interpreters/bocfel/unicode.c

   1 /*-
   2  * Copyright 2010-2012 Chris Spiegel.
   3  *
   4  * This file is part of Bocfel.
   5  *
   6  * Bocfel is free software: you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License, version
   8  * 2 or 3, as published by the Free Software Foundation.
   9  *
  10  * Bocfel is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with Bocfel.  If not, see <http://www.gnu.org/licenses/>.
  17  */
  18
  19 #include <string.h>
  20 #include <stdint.h>
  21
  22 #include "unicode.h"
  23 #include "memory.h"
  24 #include "util.h"
  25 #include "zterp.h"
  26
  27 int have_unicode;
  28
  29 /*
  30  * The index is the ZSCII value, minus 155 (so entry 0 refers to ZSCII
  31  * value 155); and the value at the index is the Unicode character that
  32  * the ZSCII value maps to.  Because Latin-1 and Unicode are equivalent
  33  * for 0–255, this table maps to both Unicode and Latin1, with the
  34  * caveat that values greater than 255 should be considered invalid in
  35  * Latin-1, and are translated as a question mark below in
  36  * setup_tables() where appropriate.
  37  */
  38 #define UNICODE_TABLE_SIZE      97
  39 static int unicode_entries = 69;
  40 static uint16_t unicode_table[UNICODE_TABLE_SIZE] = {
  41 0x00e4, 0x00f6, 0x00fc, 0x00c4, 0x00d6, 0x00dc, 0x00df, 0x00bb, 0x00ab,
  42 0x00eb, 0x00ef, 0x00ff, 0x00cb, 0x00cf, 0x00e1, 0x00e9, 0x00ed, 0x00f3,
  43 0x00fa, 0x00fd, 0x00c1, 0x00c9, 0x00cd, 0x00d3, 0x00da, 0x00dd, 0x00e0,
  44 0x00e8, 0x00ec, 0x00f2, 0x00f9, 0x00c0, 0x00c8, 0x00cc, 0x00d2, 0x00d9,
  45 0x00e2, 0x00ea, 0x00ee, 0x00f4, 0x00fb, 0x00c2, 0x00ca, 0x00ce, 0x00d4,
  46 0x00db, 0x00e5, 0x00c5, 0x00f8, 0x00d8, 0x00e3, 0x00f1, 0x00f5, 0x00c3,
  47 0x00d1, 0x00d5, 0x00e6, 0x00c6, 0x00e7, 0x00c7, 0x00fe, 0x00f0, 0x00de,
  48 0x00d0, 0x00a3, 0x0153, 0x0152, 0x00a1, 0x00bf,
  49 };
  50
  51 /* If a non-default Unicode table is found, this function is called with
  52  * its address; it updates the Unicode table above.
  53  */
  54 void parse_unicode_table(uint16_t utable)
  55 {
  56   if(utable >= memory_size) die("corrupted story: unicode table out of range");
  57
  58   unicode_entries = BYTE(utable++);
  59
  60   if(unicode_entries > UNICODE_TABLE_SIZE) die("corrupted story: too many entries in the unicode table");
  61   if(utable + (2 * unicode_entries) >= memory_size) die("corrupted story: unicode table out of range");
  62
  63   for(int i = 0; i < unicode_entries; i++)
  64   {
  65     unicode_table[i] = WORD(utable + (2 * i));
  66   }
  67 }
  68
  69 /* Table used to convert a ZSCII value to Unicode; and since this is
  70  * only used for output, non-output values will be returned as a
  71  * question mark.
  72  */
  73 uint16_t zscii_to_unicode[UINT8_MAX + 1];
  74
  75 /* These tables translate a Unicode or (Latin-1) character into its
  76  * ZSCII equivalent.  Only valid Unicode characters are translated (that
  77  * is, those in the range 32–126, or 160 and above).
  78  *
  79  * The first table will translate invalid Unicode characters to zero;
  80  * the second, to a question mark.
  81  */
  82 uint8_t unicode_to_zscii  [UINT16_MAX + 1];
  83 uint8_t unicode_to_zscii_q[UINT16_MAX + 1];
  84
  85 /* Convenience table: pass through all values 0–255, but yield a question mark
  86  * for others. */
  87 uint8_t unicode_to_latin1[UINT16_MAX + 1];
  88
  89 /* Convert ZSCII to Unicode line-drawing/rune characters. */
  90 uint16_t zscii_to_font3[UINT8_MAX + 1];
  91
  92 /* Lookup table to see if a character is in the alphabet table.  Key is
  93  * the character, value is the index in the alphabet table, or -1.
  94  */
  95 int atable_pos[UINT8_MAX + 1];
  96
  97 /* Not all fonts provide all characters, so there
  98  * may well be a lot of question marks.
  99  */
 100 static void build_font3_table(void)
 101 {
 102   for(int i = 0; i < UINT8_MAX; i++) zscii_to_font3[i] = UNICODE_QUESTIONMARK;
 103
 104   zscii_to_font3[ 32] = UNICODE_SPACE;
 105   zscii_to_font3[ 33] = 0x2190; /* ← */
 106   zscii_to_font3[ 34] = 0x2192; /* → */
 107   zscii_to_font3[ 35] = 0x2571; /* ╱ */
 108   zscii_to_font3[ 36] = 0x2572; /* ╲ */
 109   zscii_to_font3[ 37] = UNICODE_SPACE;
 110   zscii_to_font3[ 38] = 0x2500; /* ─ */
 111   zscii_to_font3[ 39] = 0x2500; /* ─ */
 112   zscii_to_font3[ 40] = 0x2502; /* │ */
 113   zscii_to_font3[ 41] = 0x2502; /* │ (this should be slightly offset, but whatever) */
 114   zscii_to_font3[ 42] = 0x2534; /* ┴ */
 115   zscii_to_font3[ 43] = 0x252c; /* ┬ */
 116   zscii_to_font3[ 44] = 0x251c; /* ├ */
 117   zscii_to_font3[ 45] = 0x2524; /* ┤ */
 118   zscii_to_font3[ 46] = 0x2514; /* └ */
 119   zscii_to_font3[ 47] = 0x250c; /* ┌ */
 120   zscii_to_font3[ 48] = 0x2510; /* ┐ */
 121   zscii_to_font3[ 49] = 0x2518; /* ┘ */
 122
 123   /* There are a few characters that have no box-drawing equivalents.
 124    * These are the pieces that have connections sticking out of them,
 125    * used to link rooms together.  There are two options: have filled
 126    * boxes with no connections which makes the rooms look nice but the
 127    * connections look bad, or unfilled boxes with connections which
 128    * results in bad looking rooms but attached connections.  The end
 129    * result is something like this:
 130    *
 131    * No connections:         Connections:
 132    * ╲       ╱               ╲       ╱
 133    *  ┌─┐ ▗▄▖                 ╲─┐ ▗▄╱
 134    *  │ ├─▐█▌─                │ ├─┤█├─
 135    *  └─┘ ▝▀▘                 └─┘ ▝┬▘
 136    *       │                       │
 137    *
 138    * By default the former is done, but the latter can be chosen.
 139    */
 140   zscii_to_font3[ 50] = options.enable_alt_graphics ? 0x2571 : 0x2514; /* ╱ or └ */
 141   zscii_to_font3[ 51] = options.enable_alt_graphics ? 0x2572 : 0x250c; /* ╲ or ┌ */
 142   zscii_to_font3[ 52] = options.enable_alt_graphics ? 0x2571 : 0x2510; /* ╱ or ┐ */
 143   zscii_to_font3[ 53] = options.enable_alt_graphics ? 0x2572 : 0x2518; /* ╲ or ┘ */
 144
 145   zscii_to_font3[ 54] = 0x2588; /* █ */
 146   zscii_to_font3[ 56] = 0x2584; /* ▄ */
 147   zscii_to_font3[ 55] = 0x2580; /* ▀ */
 148   zscii_to_font3[ 57] = 0x258c; /* ▌ */
 149   zscii_to_font3[ 58] = 0x2590; /* ▐ */
 150
 151   zscii_to_font3[ 59] = options.enable_alt_graphics ? 0x2534 : 0x2584; /* ┴ or ▄ */
 152   zscii_to_font3[ 60] = options.enable_alt_graphics ? 0x252c : 0x2580; /* ┬ or ▀ */
 153   zscii_to_font3[ 61] = options.enable_alt_graphics ? 0x251c : 0x258c; /* ├ or ▌ */
 154   zscii_to_font3[ 62] = options.enable_alt_graphics ? 0x2524 : 0x2590; /* ┤ or ▐ */
 155
 156   zscii_to_font3[ 63] = 0x259d; /* ▝ */
 157   zscii_to_font3[ 64] = 0x2597; /* ▗ */
 158   zscii_to_font3[ 65] = 0x2596; /* ▖ */
 159   zscii_to_font3[ 66] = 0x2598; /* ▘ */
 160
 161   zscii_to_font3[ 67] = options.enable_alt_graphics ? 0x2571 : 0x259d; /* ╱ or ▝ */
 162   zscii_to_font3[ 68] = options.enable_alt_graphics ? 0x2572 : 0x2597; /* ╲ or ▗ */
 163   zscii_to_font3[ 69] = options.enable_alt_graphics ? 0x2571 : 0x2596; /* ╱ or ▖ */
 164   zscii_to_font3[ 70] = options.enable_alt_graphics ? 0x2572 : 0x2598; /* ╲ or ▘ */
 165
 166   zscii_to_font3[ 75] = 0x2594; /* ▔ */
 167   zscii_to_font3[ 76] = 0x2581; /* ▁ */
 168   zscii_to_font3[ 77] = 0x258f; /* ▏ */
 169   zscii_to_font3[ 78] = 0x2595; /* ▕ */
 170
 171   zscii_to_font3[ 79] = UNICODE_SPACE;
 172   zscii_to_font3[ 80] = 0x258f; /* ▏ */
 173   zscii_to_font3[ 81] = 0x258e; /* ▎ */
 174   zscii_to_font3[ 82] = 0x258d; /* ▍ */
 175   zscii_to_font3[ 83] = 0x258c; /* ▌ */
 176   zscii_to_font3[ 84] = 0x258b; /* ▋ */
 177   zscii_to_font3[ 85] = 0x258a; /* ▊ */
 178   zscii_to_font3[ 86] = 0x2589; /* ▉ */
 179   zscii_to_font3[ 87] = 0x2588; /* █ */
 180   zscii_to_font3[ 88] = 0x2595; /* ▕ */
 181   zscii_to_font3[ 89] = 0x258f; /* ▏ */
 182
 183   zscii_to_font3[ 90] = 0x2573; /* ╳ */
 184   zscii_to_font3[ 91] = 0x253c; /* ┼ */
 185   zscii_to_font3[ 92] = 0x2191; /* ↑ */
 186   zscii_to_font3[ 93] = 0x2193; /* ↓ */
 187   zscii_to_font3[ 94] = 0x2195; /* ↕ */
 188   zscii_to_font3[ 95] = 0x2b1c; /* ⬜ */
 189   zscii_to_font3[ 96] = UNICODE_QUESTIONMARK;
 190   zscii_to_font3[ 97] = 0x16aa; /* ᚪ */
 191   zscii_to_font3[ 98] = 0x16d2; /* ᛒ */
 192   zscii_to_font3[ 99] = 0x16c7; /* ᛇ */
 193   zscii_to_font3[100] = 0x16de; /* ᛞ */
 194   zscii_to_font3[101] = 0x16d6; /* ᛖ */
 195   zscii_to_font3[102] = 0x16a0; /* ᚠ */
 196   zscii_to_font3[103] = 0x16b7; /* ᚷ */
 197   zscii_to_font3[104] = 0x16bb; /* ᚻ */
 198   zscii_to_font3[105] = 0x16c1; /* ᛁ */
 199   zscii_to_font3[106] = 0x16e8; /* ᛨ */
 200   zscii_to_font3[107] = 0x16e6; /* ᛦ */
 201   zscii_to_font3[108] = 0x16da; /* ᛚ */
 202   zscii_to_font3[109] = 0x16d7; /* ᛗ */
 203   zscii_to_font3[110] = 0x16be; /* ᚾ */
 204   zscii_to_font3[111] = 0x16a9; /* ᚩ */
 205   zscii_to_font3[112] = UNICODE_QUESTIONMARK; /* no good symbol */
 206   zscii_to_font3[113] = 0x0068; /* Unicode 'h'; close to the rune. */
 207   zscii_to_font3[114] = 0x16b1; /* ᚱ */
 208   zscii_to_font3[115] = 0x16cb; /* ᛋ */
 209   zscii_to_font3[116] = 0x16cf; /* ᛏ */
 210   zscii_to_font3[117] = 0x16a2; /* ᚢ */
 211   zscii_to_font3[118] = 0x16e0; /* ᛠ */
 212   zscii_to_font3[119] = 0x16b9; /* ᚹ */
 213   zscii_to_font3[120] = 0x16c9; /* ᛉ */
 214   zscii_to_font3[121] = 0x16a5; /* ᚥ */
 215   zscii_to_font3[122] = 0x16df; /* ᛟ */
 216
 217   /* These are reversed (see §16); a slightly ugly hack in screen.c is
 218    * used to accomplish this.
 219    */
 220   zscii_to_font3[123] = 0x2191; /* ↑ */
 221   zscii_to_font3[124] = 0x2193; /* ↓ */
 222   zscii_to_font3[125] = 0x2195; /* ↕ */
 223   zscii_to_font3[126] = UNICODE_QUESTIONMARK;
 224 }
 225
 226 void setup_tables(void)
 227 {
 228   /*** ZSCII to Unicode table. ***/
 229
 230   for(int i = 0; i < UINT8_MAX + 1; i++) zscii_to_unicode[i] = UNICODE_QUESTIONMARK;
 231   zscii_to_unicode[0] = 0;
 232   zscii_to_unicode[ZSCII_NEWLINE] = UNICODE_LINEFEED;
 233
 234   if(zversion == 6) zscii_to_unicode[ 9] = UNICODE_SPACE; /* Tab. */
 235   if(zversion == 6) zscii_to_unicode[11] = UNICODE_SPACE; /* Sentence space. */
 236
 237   for(int i = 32; i < 127; i++) zscii_to_unicode[i] = i;
 238   for(int i = 0; i < unicode_entries; i++)
 239   {
 240     uint16_t c = unicode_table[i];
 241
 242     if(!valid_unicode(c)) c = UNICODE_QUESTIONMARK;
 243
 244     /* If Unicode is not available, then any values > 255 are invalid. */
 245     else if(!have_unicode && c > 255) c = UNICODE_QUESTIONMARK;
 246
 247     zscii_to_unicode[i + 155] = c;
 248   }
 249
 250   /*** Unicode to ZSCII tables. ***/
 251
 252   /* Default values. */
 253   memset(unicode_to_zscii, 0, sizeof unicode_to_zscii);
 254   memset(unicode_to_zscii_q, ZSCII_QUESTIONMARK, sizeof unicode_to_zscii_q);
 255
 256   /* First fill up the entries found in the Unicode table. */
 257   for(int i = 0; i < unicode_entries; i++)
 258   {
 259     uint16_t c = unicode_table[i];
 260
 261     if(valid_unicode(c))
 262     {
 263       unicode_to_zscii  [c] = i + 155;
 264       unicode_to_zscii_q[c] = i + 155;
 265     }
 266   }
 267
 268   /* Now the values that are equivalent in ZSCII and Unicode. */
 269   for(int i = 32; i < 127; i++)
 270   {
 271     unicode_to_zscii  [i] = i;
 272     unicode_to_zscii_q[i] = i;
 273   }
 274
 275   /* Properly translate a newline. */
 276   unicode_to_zscii_q[UNICODE_LINEFEED] = ZSCII_NEWLINE;
 277
 278   /*** Unicode to Latin1 table. ***/
 279
 280   memset(unicode_to_latin1, UNICODE_QUESTIONMARK, sizeof unicode_to_latin1);
 281   for(int i = 0; i < 256; i++) unicode_to_latin1[i] = i;
 282
 283   /*** ZSCII to character graphics table. ***/
 284
 285   build_font3_table();
 286
 287   /*** Alphabet table. ***/
 288
 289   for(int i = 0; i < 256; i++) atable_pos[i] = -1;
 290
 291   /* 52 is A2 character 6, which is special and should not
 292    * be matched, so skip over it.
 293    */
 294   for(int i = 0;  i < 52    ; i++) atable_pos[atable[i]] = i;
 295   for(int i = 53; i < 26 * 3; i++) atable_pos[atable[i]] = i;
 296 }
 297
 298 /* This is adapted from Zip2000 (Copyright 2001 Kevin Bracey). */
 299 uint16_t unicode_tolower(uint16_t c)
 300 {
 301   static const unsigned char basic_latin[0x100] =
 302   {
 303     0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
 304     0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x18, 0x19, 0x1a, 0x1b, 0x1c, 0x1d, 0x1e, 0x1f,
 305     0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
 306     0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
 307     0x40, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
 308     0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7a, 0x5b, 0x5c, 0x5d, 0x5e, 0x5f,
 309     0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
 310     0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x7f,
 311     0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x8f,
 312     0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97, 0x98, 0x99, 0x9a, 0x9b, 0x9c, 0x9d, 0x9e, 0x9f,
 313     0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7, 0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf,
 314     0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf,
 315     0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7, 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
 316     0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xd7, 0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xdf,
 317     0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7, 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
 318     0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xff
 319   };
 320   static const unsigned char latin_extended_a[0x80] =
 321   {
 322     0x01, 0x01, 0x03, 0x03, 0x05, 0x05, 0x07, 0x07, 0x09, 0x09, 0x0b, 0x0b, 0x0d, 0x0d, 0x0f, 0x0f,
 323     0x11, 0x11, 0x13, 0x13, 0x15, 0x15, 0x17, 0x17, 0x19, 0x19, 0x1b, 0x1b, 0x1d, 0x1d, 0x1f, 0x1f,
 324     0x21, 0x21, 0x23, 0x23, 0x25, 0x25, 0x27, 0x27, 0x29, 0x29, 0x2b, 0x2b, 0x2d, 0x2d, 0x2f, 0x2f,
 325     0x00, 0x31, 0x33, 0x33, 0x35, 0x35, 0x37, 0x37, 0x38, 0x3a, 0x3a, 0x3c, 0x3c, 0x3e, 0x3e, 0x40,
 326     0x40, 0x42, 0x42, 0x44, 0x44, 0x46, 0x46, 0x48, 0x48, 0x49, 0x4b, 0x4b, 0x4d, 0x4d, 0x4f, 0x4f,
 327     0x51, 0x51, 0x53, 0x53, 0x55, 0x55, 0x57, 0x57, 0x59, 0x59, 0x5b, 0x5b, 0x5d, 0x5d, 0x5f, 0x5f,
 328     0x61, 0x61, 0x63, 0x63, 0x65, 0x65, 0x67, 0x67, 0x69, 0x69, 0x6b, 0x6b, 0x6d, 0x6d, 0x6f, 0x6f,
 329     0x71, 0x71, 0x73, 0x73, 0x75, 0x75, 0x77, 0x77, 0x00, 0x7a, 0x7a, 0x7c, 0x7c, 0x7e, 0x7e, 0x7f
 330   };
 331   static const unsigned char greek[0x50] =
 332   {
 333     0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0xac, 0x87, 0xad, 0xae, 0xaf, 0x8b, 0xcc, 0x8d, 0xcd, 0xce,
 334     0x90, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf,
 335     0xc0, 0xc1, 0xa2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9, 0xca, 0xcb, 0xac, 0xad, 0xae, 0xaf,
 336     0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf,
 337     0xc0, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf
 338   };
 339   static const unsigned char cyrillic[0x60] =
 340   {
 341     0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5a, 0x5b, 0x5c, 0x5d, 0x5e, 0x5f,
 342     0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
 343     0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f,
 344     0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
 345     0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f,
 346     0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5a, 0x5b, 0x5c, 0x5d, 0x5e, 0x5f
 347   };
 348
 349   if     (c  < 0x0100)             c = basic_latin[c];
 350   else if(c == 0x0130)             c = 0x0069; /* capital i with dot -> lower case i */
 351   else if(c == 0x0178)             c = 0x00ff; /* capital y diaeresis -> lower case y diaeresis */
 352   else if(c <  0x0180)             c = latin_extended_a[c - 0x100] + 0x100;
 353   else if(c >= 0x380 && c < 0x3d0) c = greek           [c - 0x380] + 0x300;
 354   else if(c >= 0x400 && c < 0x460) c = cyrillic        [c - 0x400] + 0x400;
 355
 356   return c;
 357 }