-#include <wchar.h>
+#include <ctype.h>
#include <wctype.h>
-#include <stdio.h>
+#include "libc.h"
#define CASEMAP(u1,u2,l) { (u1), (l)-(u1), (u2)-(u1)+1 }
#define CASELACE(u1,u2) CASEMAP((u1),(u2),(u1)+1)
signed char lower;
unsigned char len;
} casemaps[] = {
- CASEMAP('A','Z','a'),
CASEMAP(0xc0,0xde,0xe0),
CASELACE(0x0100,0x012e),
CASELACE(0x4c1,0x4cd),
CASELACE(0x4d0,0x50e),
+ CASELACE(0x514,0x52e),
CASEMAP(0x531,0x556,0x561),
CASELACE(0x01a0,0x01a4),
CASEMAP(0x1ff8,0x1ff9,0x1f78),
CASEMAP(0x1ffa,0x1ffb,0x1f7c),
+ CASEMAP(0x13f0,0x13f5,0x13f8),
+ CASELACE(0xa698,0xa69a),
+ CASELACE(0xa796,0xa79e),
+
CASELACE(0x246,0x24e),
CASELACE(0x510,0x512),
CASEMAP(0x2160,0x216f,0x2170),
CASEMAP(0x2c00,0x2c2e,0x2c30),
CASELACE(0x2c67,0x2c6b),
CASELACE(0x2c80,0x2ce2),
+ CASELACE(0x2ceb,0x2ced),
+
+ CASELACE(0xa640,0xa66c),
+ CASELACE(0xa680,0xa696),
CASELACE(0xa722,0xa72e),
CASELACE(0xa732,0xa76e),
CASELACE(0xa779,0xa77b),
CASELACE(0xa77e,0xa786),
+ CASELACE(0xa790,0xa792),
+ CASELACE(0xa7a0,0xa7a8),
+
+ CASELACE(0xa7b4,0xa7b6),
+
CASEMAP(0xff21,0xff3a,0xff41),
{ 0,0,0 }
};
{ 0x03f7, 0x03f8 },
{ 0x03fa, 0x03fb },
{ 0x1e60, 0x1e9b },
+ { 0x1e9e, 0xdf },
{ 0x1f59, 0x1f51 },
{ 0x1f5b, 0x1f53 },
{ 0x2c6d, 0x251 },
{ 0x2c6e, 0x271 },
{ 0x2c6f, 0x250 },
+ { 0x2c70, 0x252 },
{ 0x2c72, 0x2c73 },
{ 0x2c75, 0x2c76 },
+ { 0x2c7e, 0x23f },
+ { 0x2c7f, 0x240 },
+ { 0x2cf2, 0x2cf3 },
{ 0xa77d, 0x1d79 },
+ { 0xa78b, 0xa78c },
+ { 0xa78d, 0x265 },
+ { 0xa7aa, 0x266 },
+
+ { 0x10c7, 0x2d27 },
+ { 0x10cd, 0x2d2d },
/* bogus greek 'symbol' letters */
{ 0x376, 0x377 },
{ 0x395, 0x3f5 },
{ 0x3cf, 0x3d7 },
+ { 0xa7ab, 0x25c },
+ { 0xa7ac, 0x261 },
+ { 0xa7ad, 0x26c },
+ { 0xa7ae, 0x26a },
+ { 0xa7b0, 0x29e },
+ { 0xa7b1, 0x287 },
+ { 0xa7b2, 0x29d },
+ { 0xa7b3, 0xab53 },
+
+ /* special cyrillic lowercase forms */
+ { 0x412, 0x1c80 },
+ { 0x414, 0x1c81 },
+ { 0x41e, 0x1c82 },
+ { 0x421, 0x1c83 },
+ { 0x422, 0x1c84 },
+ { 0x422, 0x1c85 },
+ { 0x42a, 0x1c86 },
+ { 0x462, 0x1c87 },
+ { 0xa64a, 0x1c88 },
+
{ 0,0 }
};
int i;
int lmul = 2*lower-1;
int lmask = lower-1;
- if ((unsigned)wc - 0x10400 < 0x50)
- return wc + lmul*0x28;
/* no letters with case in these large ranges */
if (!iswalpha(wc)
|| (unsigned)wc - 0x0600 <= 0x0fff-0x0600
- || (unsigned)wc - 0x2e00 <= 0xa6ff-0x2e00
- || (unsigned)wc - 0xa800 <= 0xfeff-0xa800)
+ || (unsigned)wc - 0x2e00 <= 0xa63f-0x2e00
+ || (unsigned)wc - 0xa800 <= 0xab52-0xa800
+ || (unsigned)wc - 0xabc0 <= 0xfeff-0xabc0)
return wc;
/* special case because the diff between upper/lower is too big */
- if ((unsigned)wc - 0x10a0 < 0x26 || (unsigned)wc - 0x2d00 < 0x26)
- return wc + lmul*(0x2d00-0x10a0);
+ if (lower && (unsigned)wc - 0x10a0 < 0x2e)
+ if (wc>0x10c5 && wc != 0x10c7 && wc != 0x10cd) return wc;
+ else return wc + 0x2d00 - 0x10a0;
+ if (!lower && (unsigned)wc - 0x2d00 < 0x26)
+ if (wc>0x2d25 && wc != 0x2d27 && wc != 0x2d2d) return wc;
+ else return wc + 0x10a0 - 0x2d00;
+ if (lower && (unsigned)wc - 0x13a0 < 0x50)
+ return wc + 0xab70 - 0x13a0;
+ if (!lower && (unsigned)wc - 0xab70 < 0x50)
+ return wc + 0x13a0 - 0xab70;
for (i=0; casemaps[i].len; i++) {
int base = casemaps[i].upper + (lmask & casemaps[i].lower);
if ((unsigned)wc-base < casemaps[i].len) {
if (pairs[i][1-lower] == wc)
return pairs[i][lower];
}
- if ((unsigned)wc - 0x10428 + (lower<<5) + (lower<<3) < 0x28)
- return wc - 0x28 + (lower<<10) + (lower<<6);
+ if ((unsigned)wc - (0x10428 - 0x28*lower) < 0x28)
+ return wc - 0x28 + 0x50*lower;
+ if ((unsigned)wc - (0x104d8 - 0x28*lower) < 0x24)
+ return wc - 0x28 + 0x50*lower;
+ if ((unsigned)wc - (0x10cc0 - 0x40*lower) < 0x33)
+ return wc - 0x40 + 0x80*lower;
+ if ((unsigned)wc - (0x118c0 - 0x20*lower) < 0x20)
+ return wc - 0x20 + 0x40*lower;
+ if ((unsigned)wc - (0x1e922 - 0x22*lower) < 0x22)
+ return wc - 0x22 + 0x44*lower;
return wc;
}
wint_t towupper(wint_t wc)
{
- return __towcase(wc, 0);
+ return (unsigned)wc < 128 ? toupper(wc) : __towcase(wc, 0);
}
wint_t towlower(wint_t wc)
{
- return __towcase(wc, 1);
+ return (unsigned)wc < 128 ? tolower(wc) : __towcase(wc, 1);
}
+
+wint_t __towupper_l(wint_t c, locale_t l)
+{
+ return towupper(c);
+}
+
+wint_t __towlower_l(wint_t c, locale_t l)
+{
+ return towlower(c);
+}
+
+weak_alias(__towupper_l, towupper_l);
+weak_alias(__towlower_l, towlower_l);