dmd2/unialpha.c

   1
   2 // Copyright (c) 2003 by Digital Mars
   3 // All Rights Reserved
   4 // written by Walter Bright
   5 // http://www.digitalmars.com
   6 // License for redistribution is by either the Artistic License
   7 // in artistic.txt, or the GNU General Public License in gnu.txt.
   8 // See the included readme.txt for details.
   9
  10 #include <assert.h>
  11
  12 /*******************************
  13  * Return !=0 if unicode alpha.
  14  * Use table from C99 Appendix D.
  15  */
  16
  17 int isUniAlpha(unsigned u)
  18 {
  19     static unsigned short table[][2] =
  20     {
  21         { 0x00AA, 0x00AA },
  22         { 0x00B5, 0x00B5 },
  23         { 0x00B7, 0x00B7 },
  24         { 0x00BA, 0x00BA },
  25         { 0x00C0, 0x00D6 },
  26         { 0x00D8, 0x00F6 },
  27         { 0x00F8, 0x01F5 },
  28         { 0x01FA, 0x0217 },
  29         { 0x0250, 0x02A8 },
  30         { 0x02B0, 0x02B8 },
  31         { 0x02BB, 0x02BB },
  32         { 0x02BD, 0x02C1 },
  33         { 0x02D0, 0x02D1 },
  34         { 0x02E0, 0x02E4 },
  35         { 0x037A, 0x037A },
  36         { 0x0386, 0x0386 },
  37         { 0x0388, 0x038A },
  38         { 0x038C, 0x038C },
  39         { 0x038E, 0x03A1 },
  40         { 0x03A3, 0x03CE },
  41         { 0x03D0, 0x03D6 },
  42         { 0x03DA, 0x03DA },
  43         { 0x03DC, 0x03DC },
  44         { 0x03DE, 0x03DE },
  45         { 0x03E0, 0x03E0 },
  46         { 0x03E2, 0x03F3 },
  47         { 0x0401, 0x040C },
  48         { 0x040E, 0x044F },
  49         { 0x0451, 0x045C },
  50         { 0x045E, 0x0481 },
  51         { 0x0490, 0x04C4 },
  52         { 0x04C7, 0x04C8 },
  53         { 0x04CB, 0x04CC },
  54         { 0x04D0, 0x04EB },
  55         { 0x04EE, 0x04F5 },
  56         { 0x04F8, 0x04F9 },
  57         { 0x0531, 0x0556 },
  58         { 0x0559, 0x0559 },
  59         { 0x0561, 0x0587 },
  60         { 0x05B0, 0x05B9 },
  61         { 0x05BB, 0x05BD },
  62         { 0x05BF, 0x05BF },
  63         { 0x05C1, 0x05C2 },
  64         { 0x05D0, 0x05EA },
  65         { 0x05F0, 0x05F2 },
  66         { 0x0621, 0x063A },
  67         { 0x0640, 0x0652 },
  68         { 0x0660, 0x0669 },
  69         { 0x0670, 0x06B7 },
  70         { 0x06BA, 0x06BE },
  71         { 0x06C0, 0x06CE },
  72         { 0x06D0, 0x06DC },
  73         { 0x06E5, 0x06E8 },
  74         { 0x06EA, 0x06ED },
  75         { 0x06F0, 0x06F9 },
  76         { 0x0901, 0x0903 },
  77         { 0x0905, 0x0939 },
  78         { 0x093D, 0x093D },
  79         { 0x093E, 0x094D },
  80         { 0x0950, 0x0952 },
  81         { 0x0958, 0x0963 },
  82         { 0x0966, 0x096F },
  83         { 0x0981, 0x0983 },
  84         { 0x0985, 0x098C },
  85         { 0x098F, 0x0990 },
  86         { 0x0993, 0x09A8 },
  87         { 0x09AA, 0x09B0 },
  88         { 0x09B2, 0x09B2 },
  89         { 0x09B6, 0x09B9 },
  90         { 0x09BE, 0x09C4 },
  91         { 0x09C7, 0x09C8 },
  92         { 0x09CB, 0x09CD },
  93         { 0x09DC, 0x09DD },
  94         { 0x09DF, 0x09E3 },
  95         { 0x09E6, 0x09EF },
  96         { 0x09F0, 0x09F1 },
  97         { 0x0A02, 0x0A02 },
  98         { 0x0A05, 0x0A0A },
  99         { 0x0A0F, 0x0A10 },
 100         { 0x0A13, 0x0A28 },
 101         { 0x0A2A, 0x0A30 },
 102         { 0x0A32, 0x0A33 },
 103         { 0x0A35, 0x0A36 },
 104         { 0x0A38, 0x0A39 },
 105         { 0x0A3E, 0x0A42 },
 106         { 0x0A47, 0x0A48 },
 107         { 0x0A4B, 0x0A4D },
 108         { 0x0A59, 0x0A5C },
 109         { 0x0A5E, 0x0A5E },
 110         { 0x0A66, 0x0A6F },
 111         { 0x0A74, 0x0A74 },
 112         { 0x0A81, 0x0A83 },
 113         { 0x0A85, 0x0A8B },
 114         { 0x0A8D, 0x0A8D },
 115         { 0x0A8F, 0x0A91 },
 116         { 0x0A93, 0x0AA8 },
 117         { 0x0AAA, 0x0AB0 },
 118         { 0x0AB2, 0x0AB3 },
 119         { 0x0AB5, 0x0AB9 },
 120         { 0x0ABD, 0x0AC5 },
 121         { 0x0AC7, 0x0AC9 },
 122         { 0x0ACB, 0x0ACD },
 123         { 0x0AD0, 0x0AD0 },
 124         { 0x0AE0, 0x0AE0 },
 125         { 0x0AE6, 0x0AEF },
 126         { 0x0B01, 0x0B03 },
 127         { 0x0B05, 0x0B0C },
 128         { 0x0B0F, 0x0B10 },
 129         { 0x0B13, 0x0B28 },
 130         { 0x0B2A, 0x0B30 },
 131         { 0x0B32, 0x0B33 },
 132         { 0x0B36, 0x0B39 },
 133         { 0x0B3D, 0x0B3D },
 134         { 0x0B3E, 0x0B43 },
 135         { 0x0B47, 0x0B48 },
 136         { 0x0B4B, 0x0B4D },
 137         { 0x0B5C, 0x0B5D },
 138         { 0x0B5F, 0x0B61 },
 139         { 0x0B66, 0x0B6F },
 140         { 0x0B82, 0x0B83 },
 141         { 0x0B85, 0x0B8A },
 142         { 0x0B8E, 0x0B90 },
 143         { 0x0B92, 0x0B95 },
 144         { 0x0B99, 0x0B9A },
 145         { 0x0B9C, 0x0B9C },
 146         { 0x0B9E, 0x0B9F },
 147         { 0x0BA3, 0x0BA4 },
 148         { 0x0BA8, 0x0BAA },
 149         { 0x0BAE, 0x0BB5 },
 150         { 0x0BB7, 0x0BB9 },
 151         { 0x0BBE, 0x0BC2 },
 152         { 0x0BC6, 0x0BC8 },
 153         { 0x0BCA, 0x0BCD },
 154         { 0x0BE7, 0x0BEF },
 155         { 0x0C01, 0x0C03 },
 156         { 0x0C05, 0x0C0C },
 157         { 0x0C0E, 0x0C10 },
 158         { 0x0C12, 0x0C28 },
 159         { 0x0C2A, 0x0C33 },
 160         { 0x0C35, 0x0C39 },
 161         { 0x0C3E, 0x0C44 },
 162         { 0x0C46, 0x0C48 },
 163         { 0x0C4A, 0x0C4D },
 164         { 0x0C60, 0x0C61 },
 165         { 0x0C66, 0x0C6F },
 166         { 0x0C82, 0x0C83 },
 167         { 0x0C85, 0x0C8C },
 168         { 0x0C8E, 0x0C90 },
 169         { 0x0C92, 0x0CA8 },
 170         { 0x0CAA, 0x0CB3 },
 171         { 0x0CB5, 0x0CB9 },
 172         { 0x0CBE, 0x0CC4 },
 173         { 0x0CC6, 0x0CC8 },
 174         { 0x0CCA, 0x0CCD },
 175         { 0x0CDE, 0x0CDE },
 176         { 0x0CE0, 0x0CE1 },
 177         { 0x0CE6, 0x0CEF },
 178         { 0x0D02, 0x0D03 },
 179         { 0x0D05, 0x0D0C },
 180         { 0x0D0E, 0x0D10 },
 181         { 0x0D12, 0x0D28 },
 182         { 0x0D2A, 0x0D39 },
 183         { 0x0D3E, 0x0D43 },
 184         { 0x0D46, 0x0D48 },
 185         { 0x0D4A, 0x0D4D },
 186         { 0x0D60, 0x0D61 },
 187         { 0x0D66, 0x0D6F },
 188         { 0x0E01, 0x0E3A },
 189         { 0x0E40, 0x0E5B },
 190 //      { 0x0E50, 0x0E59 },
 191         { 0x0E81, 0x0E82 },
 192         { 0x0E84, 0x0E84 },
 193         { 0x0E87, 0x0E88 },
 194         { 0x0E8A, 0x0E8A },
 195         { 0x0E8D, 0x0E8D },
 196         { 0x0E94, 0x0E97 },
 197         { 0x0E99, 0x0E9F },
 198         { 0x0EA1, 0x0EA3 },
 199         { 0x0EA5, 0x0EA5 },
 200         { 0x0EA7, 0x0EA7 },
 201         { 0x0EAA, 0x0EAB },
 202         { 0x0EAD, 0x0EAE },
 203         { 0x0EB0, 0x0EB9 },
 204         { 0x0EBB, 0x0EBD },
 205         { 0x0EC0, 0x0EC4 },
 206         { 0x0EC6, 0x0EC6 },
 207         { 0x0EC8, 0x0ECD },
 208         { 0x0ED0, 0x0ED9 },
 209         { 0x0EDC, 0x0EDD },
 210         { 0x0F00, 0x0F00 },
 211         { 0x0F18, 0x0F19 },
 212         { 0x0F20, 0x0F33 },
 213         { 0x0F35, 0x0F35 },
 214         { 0x0F37, 0x0F37 },
 215         { 0x0F39, 0x0F39 },
 216         { 0x0F3E, 0x0F47 },
 217         { 0x0F49, 0x0F69 },
 218         { 0x0F71, 0x0F84 },
 219         { 0x0F86, 0x0F8B },
 220         { 0x0F90, 0x0F95 },
 221         { 0x0F97, 0x0F97 },
 222         { 0x0F99, 0x0FAD },
 223         { 0x0FB1, 0x0FB7 },
 224         { 0x0FB9, 0x0FB9 },
 225         { 0x10A0, 0x10C5 },
 226         { 0x10D0, 0x10F6 },
 227         { 0x1E00, 0x1E9B },
 228         { 0x1EA0, 0x1EF9 },
 229         { 0x1F00, 0x1F15 },
 230         { 0x1F18, 0x1F1D },
 231         { 0x1F20, 0x1F45 },
 232         { 0x1F48, 0x1F4D },
 233         { 0x1F50, 0x1F57 },
 234         { 0x1F59, 0x1F59 },
 235         { 0x1F5B, 0x1F5B },
 236         { 0x1F5D, 0x1F5D },
 237         { 0x1F5F, 0x1F7D },
 238         { 0x1F80, 0x1FB4 },
 239         { 0x1FB6, 0x1FBC },
 240         { 0x1FBE, 0x1FBE },
 241         { 0x1FC2, 0x1FC4 },
 242         { 0x1FC6, 0x1FCC },
 243         { 0x1FD0, 0x1FD3 },
 244         { 0x1FD6, 0x1FDB },
 245         { 0x1FE0, 0x1FEC },
 246         { 0x1FF2, 0x1FF4 },
 247         { 0x1FF6, 0x1FFC },
 248         { 0x203F, 0x2040 },
 249         { 0x207F, 0x207F },
 250         { 0x2102, 0x2102 },
 251         { 0x2107, 0x2107 },
 252         { 0x210A, 0x2113 },
 253         { 0x2115, 0x2115 },
 254         { 0x2118, 0x211D },
 255         { 0x2124, 0x2124 },
 256         { 0x2126, 0x2126 },
 257         { 0x2128, 0x2128 },
 258         { 0x212A, 0x2131 },
 259         { 0x2133, 0x2138 },
 260         { 0x2160, 0x2182 },
 261         { 0x3005, 0x3007 },
 262         { 0x3021, 0x3029 },
 263         { 0x3041, 0x3093 },
 264         { 0x309B, 0x309C },
 265         { 0x30A1, 0x30F6 },
 266         { 0x30FB, 0x30FC },
 267         { 0x3105, 0x312C },
 268         { 0x4E00, 0x9FA5 },
 269         { 0xAC00, 0xD7A3 },
 270     };
 271
 272 #ifdef DEBUG
 273     for (int i = 0; i < sizeof(table) / sizeof(table[0]); i++)
 274     {
 275         //printf("%x\n", table[i][0]);
 276         assert(table[i][0] <= table[i][1]);
 277         if (i < sizeof(table) / sizeof(table[0]) - 1)
 278             assert(table[i][1] < table[i + 1][0]);
 279     }
 280 #endif
 281
 282     if (u > 0xD7A3)
 283         goto Lisnot;
 284
 285     // Binary search
 286     int mid;
 287     int low;
 288     int high;
 289
 290     low = 0;
 291     high = sizeof(table) / sizeof(table[0]) - 1;
 292     while (low <= high)
 293     {
 294         mid = (low + high) >> 1;
 295         if (u < table[mid][0])
 296             high = mid - 1;
 297         else if (u > table[mid][1])
 298             low = mid + 1;
 299         else
 300             goto Lis;
 301     }
 302
 303 Lisnot:
 304 #ifdef DEBUG
 305     for (int i = 0; i < sizeof(table) / sizeof(table[0]); i++)
 306     {
 307         assert(u < table[i][0] || u > table[i][1]);
 308     }
 309 #endif
 310     return 0;
 311
 312 Lis:
 313 #ifdef DEBUG
 314     for (int i = 0; i < sizeof(table) / sizeof(table[0]); i++)
 315     {
 316         if (u >= table[i][0] && u <= table[i][1])
 317             return 1;
 318     }
 319     assert(0);          // should have been in table
 320 #endif
 321     return 1;
 322 }
 323