5 #define CASEMAP(u1,u2,l) { (u1), (l)-(u1), (u2)-(u1)+1 }
6 #define CASELACE(u1,u2) CASEMAP((u1),(u2),(u1)+1)
14 CASEMAP(0xc0,0xde,0xe0),
16 CASELACE(0x0100,0x012e),
17 CASELACE(0x0132,0x0136),
18 CASELACE(0x0139,0x0147),
19 CASELACE(0x014a,0x0176),
20 CASELACE(0x0179,0x017d),
22 CASELACE(0x370,0x372),
23 CASEMAP(0x391,0x3a1,0x3b1),
24 CASEMAP(0x3a3,0x3ab,0x3c3),
25 CASEMAP(0x400,0x40f,0x450),
26 CASEMAP(0x410,0x42f,0x430),
28 CASELACE(0x460,0x480),
29 CASELACE(0x48a,0x4be),
30 CASELACE(0x4c1,0x4cd),
31 CASELACE(0x4d0,0x50e),
33 CASELACE(0x514,0x526),
34 CASEMAP(0x531,0x556,0x561),
36 CASELACE(0x01a0,0x01a4),
37 CASELACE(0x01b3,0x01b5),
38 CASELACE(0x01cd,0x01db),
39 CASELACE(0x01de,0x01ee),
40 CASELACE(0x01f8,0x021e),
41 CASELACE(0x0222,0x0232),
42 CASELACE(0x03d8,0x03ee),
44 CASELACE(0x1e00,0x1e94),
45 CASELACE(0x1ea0,0x1efe),
47 CASEMAP(0x1f08,0x1f0f,0x1f00),
48 CASEMAP(0x1f18,0x1f1d,0x1f10),
49 CASEMAP(0x1f28,0x1f2f,0x1f20),
50 CASEMAP(0x1f38,0x1f3f,0x1f30),
51 CASEMAP(0x1f48,0x1f4d,0x1f40),
53 CASEMAP(0x1f68,0x1f6f,0x1f60),
54 CASEMAP(0x1f88,0x1f8f,0x1f80),
55 CASEMAP(0x1f98,0x1f9f,0x1f90),
56 CASEMAP(0x1fa8,0x1faf,0x1fa0),
57 CASEMAP(0x1fb8,0x1fb9,0x1fb0),
58 CASEMAP(0x1fba,0x1fbb,0x1f70),
59 CASEMAP(0x1fc8,0x1fcb,0x1f72),
60 CASEMAP(0x1fd8,0x1fd9,0x1fd0),
61 CASEMAP(0x1fda,0x1fdb,0x1f76),
62 CASEMAP(0x1fe8,0x1fe9,0x1fe0),
63 CASEMAP(0x1fea,0x1feb,0x1f7a),
64 CASEMAP(0x1ff8,0x1ff9,0x1f78),
65 CASEMAP(0x1ffa,0x1ffb,0x1f7c),
67 CASELACE(0x246,0x24e),
68 CASELACE(0x510,0x512),
69 CASEMAP(0x2160,0x216f,0x2170),
70 CASEMAP(0x2c00,0x2c2e,0x2c30),
71 CASELACE(0x2c67,0x2c6b),
72 CASELACE(0x2c80,0x2ce2),
73 CASELACE(0x2ceb,0x2ced),
75 CASELACE(0xa640,0xa66c),
76 CASELACE(0xa680,0xa696),
78 CASELACE(0xa722,0xa72e),
79 CASELACE(0xa732,0xa76e),
80 CASELACE(0xa779,0xa77b),
81 CASELACE(0xa77e,0xa786),
83 CASELACE(0xa790,0xa792),
84 CASELACE(0xa7a0,0xa7a8),
86 CASEMAP(0xff21,0xff3a,0xff41),
90 static const unsigned short pairs[][2] = {
209 /* bogus greek 'symbol' letters */
225 static wchar_t __towcase(wchar_t wc, int lower)
228 int lmul = 2*lower-1;
230 /* no letters with case in these large ranges */
232 || (unsigned)wc - 0x0600 <= 0x0fff-0x0600
233 || (unsigned)wc - 0x2e00 <= 0xa63f-0x2e00
234 || (unsigned)wc - 0xa800 <= 0xfeff-0xa800)
236 /* special case because the diff between upper/lower is too big */
237 if (lower && (unsigned)wc - 0x10a0 < 0x2e)
238 if (wc>0x10c5 && wc != 0x10c7 && wc != 0x10cd) return wc;
239 else return wc + 0x2d00 - 0x10a0;
240 if (!lower && (unsigned)wc - 0x2d00 < 0x26)
241 if (wc>0x2d25 && wc != 0x2d27 && wc != 0x2d2d) return wc;
242 else return wc + 0x10a0 - 0x2d00;
243 for (i=0; casemaps[i].len; i++) {
244 int base = casemaps[i].upper + (lmask & casemaps[i].lower);
245 if ((unsigned)wc-base < casemaps[i].len) {
246 if (casemaps[i].lower == 1)
247 return wc + lower - ((wc-casemaps[i].upper)&1);
248 return wc + lmul*casemaps[i].lower;
251 for (i=0; pairs[i][1-lower]; i++) {
252 if (pairs[i][1-lower] == wc)
253 return pairs[i][lower];
255 if ((unsigned)wc - (0x10428 - 0x28*lower) < 0x28)
256 return wc - 0x28 + 0x50*lower;
260 wint_t towupper(wint_t wc)
262 return __towcase(wc, 0);
265 wint_t towlower(wint_t wc)
267 return __towcase(wc, 1);