git.chise.org Git - chise/xemacs-chise.git-/blob - src/mule-charset.c

   1 /* Functions to handle multilingual characters.
   2    Copyright (C) 1992, 1995 Free Software Foundation, Inc.
   3    Copyright (C) 1995 Sun Microsystems, Inc.
   4
   5 This file is part of XEmacs.
   6
   7 XEmacs is free software; you can redistribute it and/or modify it
   8 under the terms of the GNU General Public License as published by the
   9 Free Software Foundation; either version 2, or (at your option) any
  10 later version.
  11
  12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with XEmacs; see the file COPYING.  If not, write to
  19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20 Boston, MA 02111-1307, USA.  */
  21
  22 /* Synched up with: FSF 20.3.  Not in FSF. */
  23
  24 /* Rewritten by Ben Wing <ben@xemacs.org>. */
  25
  26 #include <config.h>
  27 #include "lisp.h"
  28
  29 #include "buffer.h"
  30 #include "chartab.h"
  31 #include "elhash.h"
  32 #include "lstream.h"
  33 #include "device.h"
  34 #include "faces.h"
  35 #include "mule-ccl.h"
  36
  37 /* The various pre-defined charsets. */
  38
  39 Lisp_Object Vcharset_ascii;
  40 Lisp_Object Vcharset_control_1;
  41 Lisp_Object Vcharset_latin_iso8859_1;
  42 Lisp_Object Vcharset_latin_iso8859_2;
  43 Lisp_Object Vcharset_latin_iso8859_3;
  44 Lisp_Object Vcharset_latin_iso8859_4;
  45 Lisp_Object Vcharset_thai_tis620;
  46 Lisp_Object Vcharset_greek_iso8859_7;
  47 Lisp_Object Vcharset_arabic_iso8859_6;
  48 Lisp_Object Vcharset_hebrew_iso8859_8;
  49 Lisp_Object Vcharset_katakana_jisx0201;
  50 Lisp_Object Vcharset_latin_jisx0201;
  51 Lisp_Object Vcharset_cyrillic_iso8859_5;
  52 Lisp_Object Vcharset_latin_iso8859_9;
  53 Lisp_Object Vcharset_japanese_jisx0208_1978;
  54 Lisp_Object Vcharset_chinese_gb2312;
  55 Lisp_Object Vcharset_japanese_jisx0208;
  56 Lisp_Object Vcharset_korean_ksc5601;
  57 Lisp_Object Vcharset_japanese_jisx0212;
  58 Lisp_Object Vcharset_chinese_cns11643_1;
  59 Lisp_Object Vcharset_chinese_cns11643_2;
  60 #ifdef UTF2000
  61 Lisp_Object Vcharset_chinese_cns11643_3;
  62 Lisp_Object Vcharset_chinese_cns11643_4;
  63 Lisp_Object Vcharset_chinese_cns11643_5;
  64 Lisp_Object Vcharset_chinese_cns11643_6;
  65 Lisp_Object Vcharset_chinese_cns11643_7;
  66 Lisp_Object Vcharset_ucs_bmp;
  67 Lisp_Object Vcharset_latin_viscii_lower;
  68 Lisp_Object Vcharset_latin_viscii_upper;
  69 #endif
  70 Lisp_Object Vcharset_chinese_big5_1;
  71 Lisp_Object Vcharset_chinese_big5_2;
  72
  73 #ifdef ENABLE_COMPOSITE_CHARS
  74 Lisp_Object Vcharset_composite;
  75
  76 /* Hash tables for composite chars.  One maps string representing
  77    composed chars to their equivalent chars; one goes the
  78    other way. */
  79 Lisp_Object Vcomposite_char_char2string_hash_table;
  80 Lisp_Object Vcomposite_char_string2char_hash_table;
  81
  82 static int composite_char_row_next;
  83 static int composite_char_col_next;
  84
  85 #endif /* ENABLE_COMPOSITE_CHARS */
  86
  87 /* Table of charsets indexed by leading byte. */
  88 Lisp_Object charset_by_leading_byte[NUM_LEADING_BYTES];
  89
  90 /* Table of charsets indexed by type/final-byte/direction. */
  91 #ifdef UTF2000
  92 Lisp_Object charset_by_attributes[4][128];
  93 #else
  94 Lisp_Object charset_by_attributes[4][128][2];
  95 #endif
  96
  97 #ifndef UTF2000
  98 /* Table of number of bytes in the string representation of a character
  99    indexed by the first byte of that representation.
 100
 101    rep_bytes_by_first_byte(c) is more efficient than the equivalent
 102    canonical computation:
 103
 104    (BYTE_ASCII_P (c) ? 1 : XCHARSET_REP_BYTES (CHARSET_BY_LEADING_BYTE (c))) */
 105
 106 Bytecount rep_bytes_by_first_byte[0xA0] =
 107 { /* 0x00 - 0x7f are for straight ASCII */
 108   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
 109   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
 110   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
 111   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
 112   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
 113   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
 114   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
 115   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
 116   /* 0x80 - 0x8f are for Dimension-1 official charsets */
 117 #ifdef CHAR_IS_UCS4
 118   2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3,
 119 #else
 120   2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
 121 #endif
 122   /* 0x90 - 0x9d are for Dimension-2 official charsets */
 123   /* 0x9e is for Dimension-1 private charsets */
 124   /* 0x9f is for Dimension-2 private charsets */
 125   3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4
 126 };
 127 #endif
 128
 129 #ifdef UTF2000
 130 Emchar_to_byte_table*
 131 make_byte_from_character_table ()
 132 {
 133   Emchar_to_byte_table* table
 134     = (Emchar_to_byte_table*) xmalloc (sizeof (Emchar_to_byte_table));
 135
 136   table->base = NULL;
 137   return table;
 138 }
 139
 140 void
 141 put_byte_from_character_table (Emchar ch, unsigned char val,
 142                                Emchar_to_byte_table* table)
 143 {
 144   if (table->base == NULL)
 145     {
 146       table->base = xmalloc (128);
 147       table->offset = ch - (ch % 128);
 148       table->size = 128;
 149       table->base[ch - table->offset] = val;
 150     }
 151   else
 152     {
 153       int i = ch - table->offset;
 154
 155       if (i < 0)
 156         {
 157           size_t new_size = table->size - i;
 158           size_t j;
 159
 160           new_size += 128 - (new_size % 128);
 161           table->base = xrealloc (table->base, new_size);
 162           memmove (table->base + (new_size - table->size), table->base,
 163                    table->size);
 164           for (j = 0; j < (new_size - table->size); j++)
 165             table->base[j] = 0;
 166           table->offset -= (new_size - table->size);
 167           table->base[ch - table->offset] = val;
 168           table->size = new_size;
 169         }
 170       else if (i >= table->size)
 171         {
 172           size_t new_size = i + 1;
 173           size_t j;
 174
 175           new_size += 128 - (new_size % 128);
 176           table->base = xrealloc (table->base, new_size);
 177           for (j = table->size; j < new_size; j++)
 178             table->base[j] = 0;
 179           table->base[i] = val;
 180           table->size = new_size;
 181         }
 182       else
 183         {
 184           table->base[i] = val;
 185         }
 186     }
 187 }
 188
 189 unsigned char
 190 get_byte_from_character_table (Emchar ch, Emchar_to_byte_table* table)
 191 {
 192   size_t i = ch - table->offset;
 193   if (i < table->size)
 194     return table->base[i];
 195   else
 196     return 0;
 197 }
 198
 199 #define CHAR96(ft,b)    (MIN_CHAR_96 + (ft - '0') * 96 + (b & 0x7f) - 32)
 200
 201 Emchar_to_byte_table* ucs_to_latin_jisx0201;
 202
 203 Emchar latin_jisx0201_to_ucs[94] =
 204 {
 205   0x0021 /* 0x21        EXCLAMATION MARK */,
 206   0x0022 /* 0x22        QUOTATION MARK */,
 207   0x0023 /* 0x23        NUMBER SIGN */,
 208   0x0024 /* 0x24        DOLLAR SIGN */,
 209   0x0025 /* 0x25        PERCENT SIGN */,
 210   0x0026 /* 0x26        AMPERSAND */,
 211   0x0027 /* 0x27        APOSTROPHE */,
 212   0x0028 /* 0x28        LEFT PARENTHESIS */,
 213   0x0029 /* 0x29        RIGHT PARENTHESIS */,
 214   0x002A /* 0x2A        ASTERISK */,
 215   0x002B /* 0x2B        PLUS SIGN */,
 216   0x002C /* 0x2C        COMMA */,
 217   0x002D /* 0x2D        HYPHEN-MINUS */,
 218   0x002E /* 0x2E        FULL STOP */,
 219   0x002F /* 0x2F        SOLIDUS */,
 220   0x0030 /* 0x30        DIGIT ZERO */,
 221   0x0031 /* 0x31        DIGIT ONE */,
 222   0x0032 /* 0x32        DIGIT TWO */,
 223   0x0033 /* 0x33        DIGIT THREE */,
 224   0x0034 /* 0x34        DIGIT FOUR */,
 225   0x0035 /* 0x35        DIGIT FIVE */,
 226   0x0036 /* 0x36        DIGIT SIX */,
 227   0x0037 /* 0x37        DIGIT SEVEN */,
 228   0x0038 /* 0x38        DIGIT EIGHT */,
 229   0x0039 /* 0x39        DIGIT NINE */,
 230   0x003A /* 0x3A        COLON */,
 231   0x003B /* 0x3B        SEMICOLON */,
 232   0x003C /* 0x3C        LESS-THAN SIGN */,
 233   0x003D /* 0x3D        EQUALS SIGN */,
 234   0x003E /* 0x3E        GREATER-THAN SIGN */,
 235   0x003F /* 0x3F        QUESTION MARK */,
 236   0x0040 /* 0x40        COMMERCIAL AT */,
 237   0x0041 /* 0x41        LATIN CAPITAL LETTER A */,
 238   0x0042 /* 0x42        LATIN CAPITAL LETTER B */,
 239   0x0043 /* 0x43        LATIN CAPITAL LETTER C */,
 240   0x0044 /* 0x44        LATIN CAPITAL LETTER D */,
 241   0x0045 /* 0x45        LATIN CAPITAL LETTER E */,
 242   0x0046 /* 0x46        LATIN CAPITAL LETTER F */,
 243   0x0047 /* 0x47        LATIN CAPITAL LETTER G */,
 244   0x0048 /* 0x48        LATIN CAPITAL LETTER H */,
 245   0x0049 /* 0x49        LATIN CAPITAL LETTER I */,
 246   0x004A /* 0x4A        LATIN CAPITAL LETTER J */,
 247   0x004B /* 0x4B        LATIN CAPITAL LETTER K */,
 248   0x004C /* 0x4C        LATIN CAPITAL LETTER L */,
 249   0x004D /* 0x4D        LATIN CAPITAL LETTER M */,
 250   0x004E /* 0x4E        LATIN CAPITAL LETTER N */,
 251   0x004F /* 0x4F        LATIN CAPITAL LETTER O */,
 252   0x0050 /* 0x50        LATIN CAPITAL LETTER P */,
 253   0x0051 /* 0x51        LATIN CAPITAL LETTER Q */,
 254   0x0052 /* 0x52        LATIN CAPITAL LETTER R */,
 255   0x0053 /* 0x53        LATIN CAPITAL LETTER S */,
 256   0x0054 /* 0x54        LATIN CAPITAL LETTER T */,
 257   0x0055 /* 0x55        LATIN CAPITAL LETTER U */,
 258   0x0056 /* 0x56        LATIN CAPITAL LETTER V */,
 259   0x0057 /* 0x57        LATIN CAPITAL LETTER W */,
 260   0x0058 /* 0x58        LATIN CAPITAL LETTER X */,
 261   0x0059 /* 0x59        LATIN CAPITAL LETTER Y */,
 262   0x005A /* 0x5A        LATIN CAPITAL LETTER Z */,
 263   0x005B /* 0x5B        LEFT SQUARE BRACKET */,
 264   0x00A5 /* 0x5C        YEN SIGN */,
 265   0x005D /* 0x5D        RIGHT SQUARE BRACKET */,
 266   0x005E /* 0x5E        CIRCUMFLEX ACCENT */,
 267   0x005F /* 0x5F        LOW LINE */,
 268   0x0060 /* 0x60        GRAVE ACCENT */,
 269   0x0061 /* 0x61        LATIN SMALL LETTER A */,
 270   0x0062 /* 0x62        LATIN SMALL LETTER B */,
 271   0x0063 /* 0x63        LATIN SMALL LETTER C */,
 272   0x0064 /* 0x64        LATIN SMALL LETTER D */,
 273   0x0065 /* 0x65        LATIN SMALL LETTER E */,
 274   0x0066 /* 0x66        LATIN SMALL LETTER F */,
 275   0x0067 /* 0x67        LATIN SMALL LETTER G */,
 276   0x0068 /* 0x68        LATIN SMALL LETTER H */,
 277   0x0069 /* 0x69        LATIN SMALL LETTER I */,
 278   0x006A /* 0x6A        LATIN SMALL LETTER J */,
 279   0x006B /* 0x6B        LATIN SMALL LETTER K */,
 280   0x006C /* 0x6C        LATIN SMALL LETTER L */,
 281   0x006D /* 0x6D        LATIN SMALL LETTER M */,
 282   0x006E /* 0x6E        LATIN SMALL LETTER N */,
 283   0x006F /* 0x6F        LATIN SMALL LETTER O */,
 284   0x0070 /* 0x70        LATIN SMALL LETTER P */,
 285   0x0071 /* 0x71        LATIN SMALL LETTER Q */,
 286   0x0072 /* 0x72        LATIN SMALL LETTER R */,
 287   0x0073 /* 0x73        LATIN SMALL LETTER S */,
 288   0x0074 /* 0x74        LATIN SMALL LETTER T */,
 289   0x0075 /* 0x75        LATIN SMALL LETTER U */,
 290   0x0076 /* 0x76        LATIN SMALL LETTER V */,
 291   0x0077 /* 0x77        LATIN SMALL LETTER W */,
 292   0x0078 /* 0x78        LATIN SMALL LETTER X */,
 293   0x0079 /* 0x79        LATIN SMALL LETTER Y */,
 294   0x007A /* 0x7A        LATIN SMALL LETTER Z */,
 295   0x007B /* 0x7B        LEFT CURLY BRACKET */,
 296   0x007C /* 0x7C        VERTICAL LINE */,
 297   0x007D /* 0x7D        RIGHT CURLY BRACKET */,
 298   0x203E /* 0x7E        OVERLINE */
 299 };
 300
 301
 302 Emchar_to_byte_table* ucs_to_latin_iso8859_2;
 303
 304 Emchar latin_iso8859_2_to_ucs[96] =
 305 {
 306   0x00A0 /* 0xA0        NO-BREAK SPACE */,
 307   0x0104 /* 0xA1        LATIN CAPITAL LETTER A WITH OGONEK */,
 308   0x02D8 /* 0xA2        BREVE */,
 309   0x0141 /* 0xA3        LATIN CAPITAL LETTER L WITH STROKE */,
 310   0x00A4 /* 0xA4        CURRENCY SIGN */,
 311   0x013D /* 0xA5        LATIN CAPITAL LETTER L WITH CARON */,
 312   0x015A /* 0xA6        LATIN CAPITAL LETTER S WITH ACUTE */,
 313   0x00A7 /* 0xA7        SECTION SIGN */,
 314   0x00A8 /* 0xA8        DIAERESIS */,
 315   0x0160 /* 0xA9        LATIN CAPITAL LETTER S WITH CARON */,
 316   0x015E /* 0xAA        LATIN CAPITAL LETTER S WITH CEDILLA */,
 317   0x0164 /* 0xAB        LATIN CAPITAL LETTER T WITH CARON */,
 318   0x0179 /* 0xAC        LATIN CAPITAL LETTER Z WITH ACUTE */,
 319   0x00AD /* 0xAD        SOFT HYPHEN */,
 320   0x017D /* 0xAE        LATIN CAPITAL LETTER Z WITH CARON */,
 321   0x017B /* 0xAF        LATIN CAPITAL LETTER Z WITH DOT ABOVE */,
 322   0x00B0 /* 0xB0        DEGREE SIGN */,
 323   0x0105 /* 0xB1        LATIN SMALL LETTER A WITH OGONEK */,
 324   0x02DB /* 0xB2        OGONEK */,
 325   0x0142 /* 0xB3        LATIN SMALL LETTER L WITH STROKE */,
 326   0x00B4 /* 0xB4        ACUTE ACCENT */,
 327   0x013E /* 0xB5        LATIN SMALL LETTER L WITH CARON */,
 328   0x015B /* 0xB6        LATIN SMALL LETTER S WITH ACUTE */,
 329   0x02C7 /* 0xB7        CARON */,
 330   0x00B8 /* 0xB8        CEDILLA */,
 331   0x0161 /* 0xB9        LATIN SMALL LETTER S WITH CARON */,
 332   0x015F /* 0xBA        LATIN SMALL LETTER S WITH CEDILLA */,
 333   0x0165 /* 0xBB        LATIN SMALL LETTER T WITH CARON */,
 334   0x017A /* 0xBC        LATIN SMALL LETTER Z WITH ACUTE */,
 335   0x02DD /* 0xBD        DOUBLE ACUTE ACCENT */,
 336   0x017E /* 0xBE        LATIN SMALL LETTER Z WITH CARON */,
 337   0x017C /* 0xBF        LATIN SMALL LETTER Z WITH DOT ABOVE */,
 338   0x0154 /* 0xC0        LATIN CAPITAL LETTER R WITH ACUTE */,
 339   0x00C1 /* 0xC1        LATIN CAPITAL LETTER A WITH ACUTE */,
 340   0x00C2 /* 0xC2        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */,
 341   0x0102 /* 0xC3        LATIN CAPITAL LETTER A WITH BREVE */,
 342   0x00C4 /* 0xC4        LATIN CAPITAL LETTER A WITH DIAERESIS */,
 343   0x0139 /* 0xC5        LATIN CAPITAL LETTER L WITH ACUTE */,
 344   0x0106 /* 0xC6        LATIN CAPITAL LETTER C WITH ACUTE */,
 345   0x00C7 /* 0xC7        LATIN CAPITAL LETTER C WITH CEDILLA */,
 346   0x010C /* 0xC8        LATIN CAPITAL LETTER C WITH CARON */,
 347   0x00C9 /* 0xC9        LATIN CAPITAL LETTER E WITH ACUTE */,
 348   0x0118 /* 0xCA        LATIN CAPITAL LETTER E WITH OGONEK */,
 349   0x00CB /* 0xCB        LATIN CAPITAL LETTER E WITH DIAERESIS */,
 350   0x011A /* 0xCC        LATIN CAPITAL LETTER E WITH CARON */,
 351   0x00CD /* 0xCD        LATIN CAPITAL LETTER I WITH ACUTE */,
 352   0x00CE /* 0xCE        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */,
 353   0x010E /* 0xCF        LATIN CAPITAL LETTER D WITH CARON */,
 354   0x0110 /* 0xD0        LATIN CAPITAL LETTER D WITH STROKE */,
 355   0x0143 /* 0xD1        LATIN CAPITAL LETTER N WITH ACUTE */,
 356   0x0147 /* 0xD2        LATIN CAPITAL LETTER N WITH CARON */,
 357   0x00D3 /* 0xD3        LATIN CAPITAL LETTER O WITH ACUTE */,
 358   0x00D4 /* 0xD4        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */,
 359   0x0150 /* 0xD5        LATIN CAPITAL LETTER O WITH DOUBLE ACUTE */,
 360   0x00D6 /* 0xD6        LATIN CAPITAL LETTER O WITH DIAERESIS */,
 361   0x00D7 /* 0xD7        MULTIPLICATION SIGN */,
 362   0x0158 /* 0xD8        LATIN CAPITAL LETTER R WITH CARON */,
 363   0x016E /* 0xD9        LATIN CAPITAL LETTER U WITH RING ABOVE */,
 364   0x00DA /* 0xDA        LATIN CAPITAL LETTER U WITH ACUTE */,
 365   0x0170 /* 0xDB        LATIN CAPITAL LETTER U WITH DOUBLE ACUTE */,
 366   0x00DC /* 0xDC        LATIN CAPITAL LETTER U WITH DIAERESIS */,
 367   0x00DD /* 0xDD        LATIN CAPITAL LETTER Y WITH ACUTE */,
 368   0x0162 /* 0xDE        LATIN CAPITAL LETTER T WITH CEDILLA */,
 369   0x00DF /* 0xDF        LATIN SMALL LETTER SHARP S */,
 370   0x0155 /* 0xE0        LATIN SMALL LETTER R WITH ACUTE */,
 371   0x00E1 /* 0xE1        LATIN SMALL LETTER A WITH ACUTE */,
 372   0x00E2 /* 0xE2        LATIN SMALL LETTER A WITH CIRCUMFLEX */,
 373   0x0103 /* 0xE3        LATIN SMALL LETTER A WITH BREVE */,
 374   0x00E4 /* 0xE4        LATIN SMALL LETTER A WITH DIAERESIS */,
 375   0x013A /* 0xE5        LATIN SMALL LETTER L WITH ACUTE */,
 376   0x0107 /* 0xE6        LATIN SMALL LETTER C WITH ACUTE */,
 377   0x00E7 /* 0xE7        LATIN SMALL LETTER C WITH CEDILLA */,
 378   0x010D /* 0xE8        LATIN SMALL LETTER C WITH CARON */,
 379   0x00E9 /* 0xE9        LATIN SMALL LETTER E WITH ACUTE */,
 380   0x0119 /* 0xEA        LATIN SMALL LETTER E WITH OGONEK */,
 381   0x00EB /* 0xEB        LATIN SMALL LETTER E WITH DIAERESIS */,
 382   0x011B /* 0xEC        LATIN SMALL LETTER E WITH CARON */,
 383   0x00ED /* 0xED        LATIN SMALL LETTER I WITH ACUTE */,
 384   0x00EE /* 0xEE        LATIN SMALL LETTER I WITH CIRCUMFLEX */,
 385   0x010F /* 0xEF        LATIN SMALL LETTER D WITH CARON */,
 386   0x0111 /* 0xF0        LATIN SMALL LETTER D WITH STROKE */,
 387   0x0144 /* 0xF1        LATIN SMALL LETTER N WITH ACUTE */,
 388   0x0148 /* 0xF2        LATIN SMALL LETTER N WITH CARON */,
 389   0x00F3 /* 0xF3        LATIN SMALL LETTER O WITH ACUTE */,
 390   0x00F4 /* 0xF4        LATIN SMALL LETTER O WITH CIRCUMFLEX */,
 391   0x0151 /* 0xF5        LATIN SMALL LETTER O WITH DOUBLE ACUTE */,
 392   0x00F6 /* 0xF6        LATIN SMALL LETTER O WITH DIAERESIS */,
 393   0x00F7 /* 0xF7        DIVISION SIGN */,
 394   0x0159 /* 0xF8        LATIN SMALL LETTER R WITH CARON */,
 395   0x016F /* 0xF9        LATIN SMALL LETTER U WITH RING ABOVE */,
 396   0x00FA /* 0xFA        LATIN SMALL LETTER U WITH ACUTE */,
 397   0x0171 /* 0xFB        LATIN SMALL LETTER U WITH DOUBLE ACUTE */,
 398   0x00FC /* 0xFC        LATIN SMALL LETTER U WITH DIAERESIS */,
 399   0x00FD /* 0xFD        LATIN SMALL LETTER Y WITH ACUTE */,
 400   0x0163 /* 0xFE        LATIN SMALL LETTER T WITH CEDILLA */,
 401   0x02D9 /* 0xFF        DOT ABOVE */
 402 };
 403
 404 Emchar_to_byte_table* ucs_to_latin_iso8859_3;
 405
 406 Emchar latin_iso8859_3_to_ucs[96] =
 407 {
 408   0x00A0 /* 0xA0        NO-BREAK SPACE */,
 409   0x0126 /* 0xA1        LATIN CAPITAL LETTER H WITH STROKE */,
 410   0x02D8 /* 0xA2        BREVE */,
 411   0x00A3 /* 0xA3        POUND SIGN */,
 412   0x00A4 /* 0xA4        CURRENCY SIGN */,
 413   CHAR96('C', 0xA5),
 414   0x0124 /* 0xA6        LATIN CAPITAL LETTER H WITH CIRCUMFLEX */,
 415   0x00A7 /* 0xA7        SECTION SIGN */,
 416   0x00A8 /* 0xA8        DIAERESIS */,
 417   0x0130 /* 0xA9        LATIN CAPITAL LETTER I WITH DOT ABOVE */,
 418   0x015E /* 0xAA        LATIN CAPITAL LETTER S WITH CEDILLA */,
 419   0x011E /* 0xAB        LATIN CAPITAL LETTER G WITH BREVE */,
 420   0x0134 /* 0xAC        LATIN CAPITAL LETTER J WITH CIRCUMFLEX */,
 421   0x00AD /* 0xAD        SOFT HYPHEN */,
 422   CHAR96('C', 0xAE),
 423   0x017B /* 0xAF        LATIN CAPITAL LETTER Z WITH DOT ABOVE */,
 424   0x00B0 /* 0xB0        DEGREE SIGN */,
 425   0x0127 /* 0xB1        LATIN SMALL LETTER H WITH STROKE */,
 426   0x00B2 /* 0xB2        SUPERSCRIPT TWO */,
 427   0x00B3 /* 0xB3        SUPERSCRIPT THREE */,
 428   0x00B4 /* 0xB4        ACUTE ACCENT */,
 429   0x00B5 /* 0xB5        MICRO SIGN */,
 430   0x0125 /* 0xB6        LATIN SMALL LETTER H WITH CIRCUMFLEX */,
 431   0x00B7 /* 0xB7        MIDDLE DOT */,
 432   0x00B8 /* 0xB8        CEDILLA */,
 433   0x0131 /* 0xB9        LATIN SMALL LETTER DOTLESS I */,
 434   0x015F /* 0xBA        LATIN SMALL LETTER S WITH CEDILLA */,
 435   0x011F /* 0xBB        LATIN SMALL LETTER G WITH BREVE */,
 436   0x0135 /* 0xBC        LATIN SMALL LETTER J WITH CIRCUMFLEX */,
 437   0x00BD /* 0xBD        VULGAR FRACTION ONE HALF */,
 438   CHAR96('C', 0xBE),
 439   0x017C /* 0xBF        LATIN SMALL LETTER Z WITH DOT ABOVE */,
 440   0x00C0 /* 0xC0        LATIN CAPITAL LETTER A WITH GRAVE */,
 441   0x00C1 /* 0xC1        LATIN CAPITAL LETTER A WITH ACUTE */,
 442   0x00C2 /* 0xC2        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */,
 443   CHAR96('C', 0xC3),
 444   0x00C4 /* 0xC4        LATIN CAPITAL LETTER A WITH DIAERESIS */,
 445   0x010A /* 0xC5        LATIN CAPITAL LETTER C WITH DOT ABOVE */,
 446   0x0108 /* 0xC6        LATIN CAPITAL LETTER C WITH CIRCUMFLEX */,
 447   0x00C7 /* 0xC7        LATIN CAPITAL LETTER C WITH CEDILLA */,
 448   0x00C8 /* 0xC8        LATIN CAPITAL LETTER E WITH GRAVE */,
 449   0x00C9 /* 0xC9        LATIN CAPITAL LETTER E WITH ACUTE */,
 450   0x00CA /* 0xCA        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */,
 451   0x00CB /* 0xCB        LATIN CAPITAL LETTER E WITH DIAERESIS */,
 452   0x00CC /* 0xCC        LATIN CAPITAL LETTER I WITH GRAVE */,
 453   0x00CD /* 0xCD        LATIN CAPITAL LETTER I WITH ACUTE */,
 454   0x00CE /* 0xCE        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */,
 455   0x00CF /* 0xCF        LATIN CAPITAL LETTER I WITH DIAERESIS */,
 456   CHAR96('C', 0xD0),
 457   0x00D1 /* 0xD1        LATIN CAPITAL LETTER N WITH TILDE */,
 458   0x00D2 /* 0xD2        LATIN CAPITAL LETTER O WITH GRAVE */,
 459   0x00D3 /* 0xD3        LATIN CAPITAL LETTER O WITH ACUTE */,
 460   0x00D4 /* 0xD4        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */,
 461   0x0120 /* 0xD5        LATIN CAPITAL LETTER G WITH DOT ABOVE */,
 462   0x00D6 /* 0xD6        LATIN CAPITAL LETTER O WITH DIAERESIS */,
 463   0x00D7 /* 0xD7        MULTIPLICATION SIGN */,
 464   0x011C /* 0xD8        LATIN CAPITAL LETTER G WITH CIRCUMFLEX */,
 465   0x00D9 /* 0xD9        LATIN CAPITAL LETTER U WITH GRAVE */,
 466   0x00DA /* 0xDA        LATIN CAPITAL LETTER U WITH ACUTE */,
 467   0x00DB /* 0xDB        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */,
 468   0x00DC /* 0xDC        LATIN CAPITAL LETTER U WITH DIAERESIS */,
 469   0x016C /* 0xDD        LATIN CAPITAL LETTER U WITH BREVE */,
 470   0x015C /* 0xDE        LATIN CAPITAL LETTER S WITH CIRCUMFLEX */,
 471   0x00DF /* 0xDF        LATIN SMALL LETTER SHARP S */,
 472   0x00E0 /* 0xE0        LATIN SMALL LETTER A WITH GRAVE */,
 473   0x00E1 /* 0xE1        LATIN SMALL LETTER A WITH ACUTE */,
 474   0x00E2 /* 0xE2        LATIN SMALL LETTER A WITH CIRCUMFLEX */,
 475   CHAR96('C', 0xE3),
 476   0x00E4 /* 0xE4        LATIN SMALL LETTER A WITH DIAERESIS */,
 477   0x010B /* 0xE5        LATIN SMALL LETTER C WITH DOT ABOVE */,
 478   0x0109 /* 0xE6        LATIN SMALL LETTER C WITH CIRCUMFLEX */,
 479   0x00E7 /* 0xE7        LATIN SMALL LETTER C WITH CEDILLA */,
 480   0x00E8 /* 0xE8        LATIN SMALL LETTER E WITH GRAVE */,
 481   0x00E9 /* 0xE9        LATIN SMALL LETTER E WITH ACUTE */,
 482   0x00EA /* 0xEA        LATIN SMALL LETTER E WITH CIRCUMFLEX */,
 483   0x00EB /* 0xEB        LATIN SMALL LETTER E WITH DIAERESIS */,
 484   0x00EC /* 0xEC        LATIN SMALL LETTER I WITH GRAVE */,
 485   0x00ED /* 0xED        LATIN SMALL LETTER I WITH ACUTE */,
 486   0x00EE /* 0xEE        LATIN SMALL LETTER I WITH CIRCUMFLEX */,
 487   0x00EF /* 0xEF        LATIN SMALL LETTER I WITH DIAERESIS */,
 488   CHAR96('C', 0xF0),
 489   0x00F1 /* 0xF1        LATIN SMALL LETTER N WITH TILDE */,
 490   0x00F2 /* 0xF2        LATIN SMALL LETTER O WITH GRAVE */,
 491   0x00F3 /* 0xF3        LATIN SMALL LETTER O WITH ACUTE */,
 492   0x00F4 /* 0xF4        LATIN SMALL LETTER O WITH CIRCUMFLEX */,
 493   0x0121 /* 0xF5        LATIN SMALL LETTER G WITH DOT ABOVE */,
 494   0x00F6 /* 0xF6        LATIN SMALL LETTER O WITH DIAERESIS */,
 495   0x00F7 /* 0xF7        DIVISION SIGN */,
 496   0x011D /* 0xF8        LATIN SMALL LETTER G WITH CIRCUMFLEX */,
 497   0x00F9 /* 0xF9        LATIN SMALL LETTER U WITH GRAVE */,
 498   0x00FA /* 0xFA        LATIN SMALL LETTER U WITH ACUTE */,
 499   0x00FB /* 0xFB        LATIN SMALL LETTER U WITH CIRCUMFLEX */,
 500   0x00FC /* 0xFC        LATIN SMALL LETTER U WITH DIAERESIS */,
 501   0x016D /* 0xFD        LATIN SMALL LETTER U WITH BREVE */,
 502   0x015D /* 0xFE        LATIN SMALL LETTER S WITH CIRCUMFLEX */,
 503   0x02D9 /* 0xFF        DOT ABOVE */
 504 };
 505
 506 Emchar_to_byte_table* ucs_to_latin_iso8859_4;
 507
 508 Emchar latin_iso8859_4_to_ucs[96] =
 509 {
 510   0x00A0 /* 0xA0        NO-BREAK SPACE */,
 511   0x0104 /* 0xA1        LATIN CAPITAL LETTER A WITH OGONEK */,
 512   0x0138 /* 0xA2        LATIN SMALL LETTER KRA */,
 513   0x0156 /* 0xA3        LATIN CAPITAL LETTER R WITH CEDILLA */,
 514   0x00A4 /* 0xA4        CURRENCY SIGN */,
 515   0x0128 /* 0xA5        LATIN CAPITAL LETTER I WITH TILDE */,
 516   0x013B /* 0xA6        LATIN CAPITAL LETTER L WITH CEDILLA */,
 517   0x00A7 /* 0xA7        SECTION SIGN */,
 518   0x00A8 /* 0xA8        DIAERESIS */,
 519   0x0160 /* 0xA9        LATIN CAPITAL LETTER S WITH CARON */,
 520   0x0112 /* 0xAA        LATIN CAPITAL LETTER E WITH MACRON */,
 521   0x0122 /* 0xAB        LATIN CAPITAL LETTER G WITH CEDILLA */,
 522   0x0166 /* 0xAC        LATIN CAPITAL LETTER T WITH STROKE */,
 523   0x00AD /* 0xAD        SOFT HYPHEN */,
 524   0x017D /* 0xAE        LATIN CAPITAL LETTER Z WITH CARON */,
 525   0x00AF /* 0xAF        MACRON */,
 526   0x00B0 /* 0xB0        DEGREE SIGN */,
 527   0x0105 /* 0xB1        LATIN SMALL LETTER A WITH OGONEK */,
 528   0x02DB /* 0xB2        OGONEK */,
 529   0x0157 /* 0xB3        LATIN SMALL LETTER R WITH CEDILLA */,
 530   0x00B4 /* 0xB4        ACUTE ACCENT */,
 531   0x0129 /* 0xB5        LATIN SMALL LETTER I WITH TILDE */,
 532   0x013C /* 0xB6        LATIN SMALL LETTER L WITH CEDILLA */,
 533   0x02C7 /* 0xB7        CARON */,
 534   0x00B8 /* 0xB8        CEDILLA */,
 535   0x0161 /* 0xB9        LATIN SMALL LETTER S WITH CARON */,
 536   0x0113 /* 0xBA        LATIN SMALL LETTER E WITH MACRON */,
 537   0x0123 /* 0xBB        LATIN SMALL LETTER G WITH CEDILLA */,
 538   0x0167 /* 0xBC        LATIN SMALL LETTER T WITH STROKE */,
 539   0x014A /* 0xBD        LATIN CAPITAL LETTER ENG */,
 540   0x017E /* 0xBE        LATIN SMALL LETTER Z WITH CARON */,
 541   0x014B /* 0xBF        LATIN SMALL LETTER ENG */,
 542   0x0100 /* 0xC0        LATIN CAPITAL LETTER A WITH MACRON */,
 543   0x00C1 /* 0xC1        LATIN CAPITAL LETTER A WITH ACUTE */,
 544   0x00C2 /* 0xC2        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */,
 545   0x00C3 /* 0xC3        LATIN CAPITAL LETTER A WITH TILDE */,
 546   0x00C4 /* 0xC4        LATIN CAPITAL LETTER A WITH DIAERESIS */,
 547   0x00C5 /* 0xC5        LATIN CAPITAL LETTER A WITH RING ABOVE */,
 548   0x00C6 /* 0xC6        LATIN CAPITAL LETTER AE */,
 549   0x012E /* 0xC7        LATIN CAPITAL LETTER I WITH OGONEK */,
 550   0x010C /* 0xC8        LATIN CAPITAL LETTER C WITH CARON */,
 551   0x00C9 /* 0xC9        LATIN CAPITAL LETTER E WITH ACUTE */,
 552   0x0118 /* 0xCA        LATIN CAPITAL LETTER E WITH OGONEK */,
 553   0x00CB /* 0xCB        LATIN CAPITAL LETTER E WITH DIAERESIS */,
 554   0x0116 /* 0xCC        LATIN CAPITAL LETTER E WITH DOT ABOVE */,
 555   0x00CD /* 0xCD        LATIN CAPITAL LETTER I WITH ACUTE */,
 556   0x00CE /* 0xCE        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */,
 557   0x012A /* 0xCF        LATIN CAPITAL LETTER I WITH MACRON */,
 558   0x0110 /* 0xD0        LATIN CAPITAL LETTER D WITH STROKE */,
 559   0x0145 /* 0xD1        LATIN CAPITAL LETTER N WITH CEDILLA */,
 560   0x014C /* 0xD2        LATIN CAPITAL LETTER O WITH MACRON */,
 561   0x0136 /* 0xD3        LATIN CAPITAL LETTER K WITH CEDILLA */,
 562   0x00D4 /* 0xD4        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */,
 563   0x00D5 /* 0xD5        LATIN CAPITAL LETTER O WITH TILDE */,
 564   0x00D6 /* 0xD6        LATIN CAPITAL LETTER O WITH DIAERESIS */,
 565   0x00D7 /* 0xD7        MULTIPLICATION SIGN */,
 566   0x00D8 /* 0xD8        LATIN CAPITAL LETTER O WITH STROKE */,
 567   0x0172 /* 0xD9        LATIN CAPITAL LETTER U WITH OGONEK */,
 568   0x00DA /* 0xDA        LATIN CAPITAL LETTER U WITH ACUTE */,
 569   0x00DB /* 0xDB        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */,
 570   0x00DC /* 0xDC        LATIN CAPITAL LETTER U WITH DIAERESIS */,
 571   0x0168 /* 0xDD        LATIN CAPITAL LETTER U WITH TILDE */,
 572   0x016A /* 0xDE        LATIN CAPITAL LETTER U WITH MACRON */,
 573   0x00DF /* 0xDF        LATIN SMALL LETTER SHARP S */,
 574   0x0101 /* 0xE0        LATIN SMALL LETTER A WITH MACRON */,
 575   0x00E1 /* 0xE1        LATIN SMALL LETTER A WITH ACUTE */,
 576   0x00E2 /* 0xE2        LATIN SMALL LETTER A WITH CIRCUMFLEX */,
 577   0x00E3 /* 0xE3        LATIN SMALL LETTER A WITH TILDE */,
 578   0x00E4 /* 0xE4        LATIN SMALL LETTER A WITH DIAERESIS */,
 579   0x00E5 /* 0xE5        LATIN SMALL LETTER A WITH RING ABOVE */,
 580   0x00E6 /* 0xE6        LATIN SMALL LETTER AE */,
 581   0x012F /* 0xE7        LATIN SMALL LETTER I WITH OGONEK */,
 582   0x010D /* 0xE8        LATIN SMALL LETTER C WITH CARON */,
 583   0x00E9 /* 0xE9        LATIN SMALL LETTER E WITH ACUTE */,
 584   0x0119 /* 0xEA        LATIN SMALL LETTER E WITH OGONEK */,
 585   0x00EB /* 0xEB        LATIN SMALL LETTER E WITH DIAERESIS */,
 586   0x0117 /* 0xEC        LATIN SMALL LETTER E WITH DOT ABOVE */,
 587   0x00ED /* 0xED        LATIN SMALL LETTER I WITH ACUTE */,
 588   0x00EE /* 0xEE        LATIN SMALL LETTER I WITH CIRCUMFLEX */,
 589   0x012B /* 0xEF        LATIN SMALL LETTER I WITH MACRON */,
 590   0x0111 /* 0xF0        LATIN SMALL LETTER D WITH STROKE */,
 591   0x0146 /* 0xF1        LATIN SMALL LETTER N WITH CEDILLA */,
 592   0x014D /* 0xF2        LATIN SMALL LETTER O WITH MACRON */,
 593   0x0137 /* 0xF3        LATIN SMALL LETTER K WITH CEDILLA */,
 594   0x00F4 /* 0xF4        LATIN SMALL LETTER O WITH CIRCUMFLEX */,
 595   0x00F5 /* 0xF5        LATIN SMALL LETTER O WITH TILDE */,
 596   0x00F6 /* 0xF6        LATIN SMALL LETTER O WITH DIAERESIS */,
 597   0x00F7 /* 0xF7        DIVISION SIGN */,
 598   0x00F8 /* 0xF8        LATIN SMALL LETTER O WITH STROKE */,
 599   0x0173 /* 0xF9        LATIN SMALL LETTER U WITH OGONEK */,
 600   0x00FA /* 0xFA        LATIN SMALL LETTER U WITH ACUTE */,
 601   0x00FB /* 0xFB        LATIN SMALL LETTER U WITH CIRCUMFLEX */,
 602   0x00FC /* 0xFC        LATIN SMALL LETTER U WITH DIAERESIS */,
 603   0x0169 /* 0xFD        LATIN SMALL LETTER U WITH TILDE */,
 604   0x016B /* 0xFE        LATIN SMALL LETTER U WITH MACRON */,
 605   0x02D9 /* 0xFF        DOT ABOVE */
 606 };
 607
 608 Emchar_to_byte_table* ucs_to_latin_iso8859_9;
 609
 610 Emchar latin_iso8859_9_to_ucs[96] =
 611 {
 612   0x00A0 /* 0xA0        NO-BREAK SPACE */,
 613   0x00A1 /* 0xA1        INVERTED EXCLAMATION MARK */,
 614   0x00A2 /* 0xA2        CENT SIGN */,
 615   0x00A3 /* 0xA3        POUND SIGN */,
 616   0x00A4 /* 0xA4        CURRENCY SIGN */,
 617   0x00A5 /* 0xA5        YEN SIGN */,
 618   0x00A6 /* 0xA6        BROKEN BAR */,
 619   0x00A7 /* 0xA7        SECTION SIGN */,
 620   0x00A8 /* 0xA8        DIAERESIS */,
 621   0x00A9 /* 0xA9        COPYRIGHT SIGN */,
 622   0x00AA /* 0xAA        FEMININE ORDINAL INDICATOR */,
 623   0x00AB /* 0xAB        LEFT-POINTING DOUBLE ANGLE QUOTATION MARK */,
 624   0x00AC /* 0xAC        NOT SIGN */,
 625   0x00AD /* 0xAD        SOFT HYPHEN */,
 626   0x00AE /* 0xAE        REGISTERED SIGN */,
 627   0x00AF /* 0xAF        MACRON */,
 628   0x00B0 /* 0xB0        DEGREE SIGN */,
 629   0x00B1 /* 0xB1        PLUS-MINUS SIGN */,
 630   0x00B2 /* 0xB2        SUPERSCRIPT TWO */,
 631   0x00B3 /* 0xB3        SUPERSCRIPT THREE */,
 632   0x00B4 /* 0xB4        ACUTE ACCENT */,
 633   0x00B5 /* 0xB5        MICRO SIGN */,
 634   0x00B6 /* 0xB6        PILCROW SIGN */,
 635   0x00B7 /* 0xB7        MIDDLE DOT */,
 636   0x00B8 /* 0xB8        CEDILLA */,
 637   0x00B9 /* 0xB9        SUPERSCRIPT ONE */,
 638   0x00BA /* 0xBA        MASCULINE ORDINAL INDICATOR */,
 639   0x00BB /* 0xBB        RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK */,
 640   0x00BC /* 0xBC        VULGAR FRACTION ONE QUARTER */,
 641   0x00BD /* 0xBD        VULGAR FRACTION ONE HALF */,
 642   0x00BE /* 0xBE        VULGAR FRACTION THREE QUARTERS */,
 643   0x00BF /* 0xBF        INVERTED QUESTION MARK */,
 644   0x00C0 /* 0xC0        LATIN CAPITAL LETTER A WITH GRAVE */,
 645   0x00C1 /* 0xC1        LATIN CAPITAL LETTER A WITH ACUTE */,
 646   0x00C2 /* 0xC2        LATIN CAPITAL LETTER A WITH CIRCUMFLEX */,
 647   0x00C3 /* 0xC3        LATIN CAPITAL LETTER A WITH TILDE */,
 648   0x00C4 /* 0xC4        LATIN CAPITAL LETTER A WITH DIAERESIS */,
 649   0x00C5 /* 0xC5        LATIN CAPITAL LETTER A WITH RING ABOVE */,
 650   0x00C6 /* 0xC6        LATIN CAPITAL LETTER AE */,
 651   0x00C7 /* 0xC7        LATIN CAPITAL LETTER C WITH CEDILLA */,
 652   0x00C8 /* 0xC8        LATIN CAPITAL LETTER E WITH GRAVE */,
 653   0x00C9 /* 0xC9        LATIN CAPITAL LETTER E WITH ACUTE */,
 654   0x00CA /* 0xCA        LATIN CAPITAL LETTER E WITH CIRCUMFLEX */,
 655   0x00CB /* 0xCB        LATIN CAPITAL LETTER E WITH DIAERESIS */,
 656   0x00CC /* 0xCC        LATIN CAPITAL LETTER I WITH GRAVE */,
 657   0x00CD /* 0xCD        LATIN CAPITAL LETTER I WITH ACUTE */,
 658   0x00CE /* 0xCE        LATIN CAPITAL LETTER I WITH CIRCUMFLEX */,
 659   0x00CF /* 0xCF        LATIN CAPITAL LETTER I WITH DIAERESIS */,
 660   0x011E /* 0xD0        LATIN CAPITAL LETTER G WITH BREVE */,
 661   0x00D1 /* 0xD1        LATIN CAPITAL LETTER N WITH TILDE */,
 662   0x00D2 /* 0xD2        LATIN CAPITAL LETTER O WITH GRAVE */,
 663   0x00D3 /* 0xD3        LATIN CAPITAL LETTER O WITH ACUTE */,
 664   0x00D4 /* 0xD4        LATIN CAPITAL LETTER O WITH CIRCUMFLEX */,
 665   0x00D5 /* 0xD5        LATIN CAPITAL LETTER O WITH TILDE */,
 666   0x00D6 /* 0xD6        LATIN CAPITAL LETTER O WITH DIAERESIS */,
 667   0x00D7 /* 0xD7        MULTIPLICATION SIGN */,
 668   0x00D8 /* 0xD8        LATIN CAPITAL LETTER O WITH STROKE */,
 669   0x00D9 /* 0xD9        LATIN CAPITAL LETTER U WITH GRAVE */,
 670   0x00DA /* 0xDA        LATIN CAPITAL LETTER U WITH ACUTE */,
 671   0x00DB /* 0xDB        LATIN CAPITAL LETTER U WITH CIRCUMFLEX */,
 672   0x00DC /* 0xDC        LATIN CAPITAL LETTER U WITH DIAERESIS */,
 673   0x0130 /* 0xDD        LATIN CAPITAL LETTER I WITH DOT ABOVE */,
 674   0x015E /* 0xDE        LATIN CAPITAL LETTER S WITH CEDILLA */,
 675   0x00DF /* 0xDF        LATIN SMALL LETTER SHARP S */,
 676   0x00E0 /* 0xE0        LATIN SMALL LETTER A WITH GRAVE */,
 677   0x00E1 /* 0xE1        LATIN SMALL LETTER A WITH ACUTE */,
 678   0x00E2 /* 0xE2        LATIN SMALL LETTER A WITH CIRCUMFLEX */,
 679   0x00E3 /* 0xE3        LATIN SMALL LETTER A WITH TILDE */,
 680   0x00E4 /* 0xE4        LATIN SMALL LETTER A WITH DIAERESIS */,
 681   0x00E5 /* 0xE5        LATIN SMALL LETTER A WITH RING ABOVE */,
 682   0x00E6 /* 0xE6        LATIN SMALL LETTER AE */,
 683   0x00E7 /* 0xE7        LATIN SMALL LETTER C WITH CEDILLA */,
 684   0x00E8 /* 0xE8        LATIN SMALL LETTER E WITH GRAVE */,
 685   0x00E9 /* 0xE9        LATIN SMALL LETTER E WITH ACUTE */,
 686   0x00EA /* 0xEA        LATIN SMALL LETTER E WITH CIRCUMFLEX */,
 687   0x00EB /* 0xEB        LATIN SMALL LETTER E WITH DIAERESIS */,
 688   0x00EC /* 0xEC        LATIN SMALL LETTER I WITH GRAVE */,
 689   0x00ED /* 0xED        LATIN SMALL LETTER I WITH ACUTE */,
 690   0x00EE /* 0xEE        LATIN SMALL LETTER I WITH CIRCUMFLEX */,
 691   0x00EF /* 0xEF        LATIN SMALL LETTER I WITH DIAERESIS */,
 692   0x011F /* 0xF0        LATIN SMALL LETTER G WITH BREVE */,
 693   0x00F1 /* 0xF1        LATIN SMALL LETTER N WITH TILDE */,
 694   0x00F2 /* 0xF2        LATIN SMALL LETTER O WITH GRAVE */,
 695   0x00F3 /* 0xF3        LATIN SMALL LETTER O WITH ACUTE */,
 696   0x00F4 /* 0xF4        LATIN SMALL LETTER O WITH CIRCUMFLEX */,
 697   0x00F5 /* 0xF5        LATIN SMALL LETTER O WITH TILDE */,
 698   0x00F6 /* 0xF6        LATIN SMALL LETTER O WITH DIAERESIS */,
 699   0x00F7 /* 0xF7        DIVISION SIGN */,
 700   0x00F8 /* 0xF8        LATIN SMALL LETTER O WITH STROKE */,
 701   0x00F9 /* 0xF9        LATIN SMALL LETTER U WITH GRAVE */,
 702   0x00FA /* 0xFA        LATIN SMALL LETTER U WITH ACUTE */,
 703   0x00FB /* 0xFB        LATIN SMALL LETTER U WITH CIRCUMFLEX */,
 704   0x00FC /* 0xFC        LATIN SMALL LETTER U WITH DIAERESIS */,
 705   0x0131 /* 0xFD        LATIN SMALL LETTER DOTLESS I */,
 706   0x015F /* 0xFE        LATIN SMALL LETTER S WITH CEDILLA */,
 707   0x00FF /* 0xFF        LATIN SMALL LETTER Y WITH DIAERESIS */,
 708 };
 709
 710 Emchar_to_byte_table* ucs_to_latin_viscii_lower;
 711
 712 Emchar latin_viscii_lower_to_ucs[96] =
 713 {
 714   CHAR96('1', 0x20),
 715   0x1eaf /* 0x21 */,
 716   0x1eb1 /* 0x22 */,
 717   0x1eb7 /* 0x23 */,
 718   0x1ea5 /* 0x24 */,
 719   0x1ea7 /* 0x25 */,
 720   0x1ea9 /* 0x26 */,
 721   0x1ead /* 0x27 */,
 722   0x1ebd /* 0x28 */,
 723   0x1eb9 /* 0x29 */,
 724   0x1ebf /* 0x2a */,
 725   0x1ec1 /* 0x2b */,
 726   0x1ec3 /* 0x2c */,
 727   0x1ec5 /* 0x2d */,
 728   0x1ec7 /* 0x2e */,
 729   0x1ed1 /* 0x2f */,
 730   0x1ed3 /* 0x30 */,
 731   0x1ed5 /* 0x31 */,
 732   0x1ed7 /* 0x32 */,
 733   CHAR96('1', 0x33),
 734   CHAR96('1', 0x34),
 735   0x1ed9 /* 0x35 */,
 736   0x1edd /* 0x36 */,
 737   0x1edf /* 0x37 */,
 738   0x1ecb /* 0x38 */,
 739   CHAR96('1', 0x39),
 740   CHAR96('1', 0x3A),
 741   CHAR96('1', 0x3B),
 742   CHAR96('1', 0x3C),
 743   0x01a1 /* 0x3d */,
 744   0x1edb /* 0x3e */,
 745   CHAR96('1', 0x3F),
 746   CHAR96('1', 0x40),
 747   CHAR96('1', 0x41),
 748   CHAR96('1', 0x42),
 749   CHAR96('1', 0x43),
 750   CHAR96('1', 0x44),
 751   CHAR96('1', 0x45),
 752   0x1eb3 /* 0x46 */,
 753   0x1eb5 /* 0x47 */,
 754   CHAR96('1', 0x48),
 755   CHAR96('1', 0x49),
 756   CHAR96('1', 0x4A),
 757   CHAR96('1', 0x4B),
 758   CHAR96('1', 0x4C),
 759   CHAR96('1', 0x4D),
 760   CHAR96('1', 0x4E),
 761   0x1ef3 /* 0x4f */,
 762   CHAR96('1', 0x50),
 763   0x1ee9 /* 0x51 */,
 764   CHAR96('1', 0x52),
 765   CHAR96('1', 0x53),
 766   CHAR96('1', 0x54),
 767   0x1ea1 /* 0x55 */,
 768   0x1ef7 /* 0x56 */,
 769   0x1eeb /* 0x57 */,
 770   0x1eed /* 0x58 */,
 771   CHAR96('1', 0x59),
 772   CHAR96('1', 0x5A),
 773   0x1ef9 /* 0x5b */,
 774   0x1ef5 /* 0x5c */,
 775   CHAR96('1', 0x5D),
 776   0x1ee1 /* 0x5e */,
 777   0x01b0 /* 0x5f */,
 778   0x00e0 /* 0x60 */,
 779   0x00e1 /* 0x61 */,
 780   0x00e2 /* 0x62 */,
 781   0x00e3 /* 0x63 */,
 782   0x1ea3 /* 0x64 */,
 783   0x0103 /* 0x65 */,
 784   0x1eef /* 0x66 */,
 785   0x1eab /* 0x67 */,
 786   0x00e8 /* 0x68 */,
 787   0x00e9 /* 0x69 */,
 788   0x00ea /* 0x6a */,
 789   0x1ebb /* 0x6b */,
 790   0x00ec /* 0x6c */,
 791   0x00ed /* 0x6d */,
 792   0x0129 /* 0x6e */,
 793   0x1ec9 /* 0x6f */,
 794   0x0111 /* 0x70 */,
 795   0x1ef1 /* 0x71 */,
 796   0x00f2 /* 0x72 */,
 797   0x00f3 /* 0x73 */,
 798   0x00f4 /* 0x74 */,
 799   0x00f5 /* 0x75 */,
 800   0x1ecf /* 0x76 */,
 801   0x1ecd /* 0x77 */,
 802   0x1ee5 /* 0x78 */,
 803   0x00f9 /* 0x79 */,
 804   0x00fa /* 0x7a */,
 805   0x0169 /* 0x7b */,
 806   0x1ee7 /* 0x7c */,
 807   0x00fd /* 0x7d */,
 808   0x1ee3 /* 0x7e */,
 809   CHAR96('1', 0x7F)
 810 };
 811
 812 Emchar_to_byte_table* ucs_to_latin_viscii_upper;
 813
 814 Emchar latin_viscii_upper_to_ucs[96] =
 815 {
 816   CHAR96('2', 0x20),
 817   0x1eae /* 0x21 */,
 818   0x1eb0 /* 0x22 */,
 819   0x1eb6 /* 0x23 */,
 820   0x1ea4 /* 0x24 */,
 821   0x1ea6 /* 0x25 */,
 822   0x1ea8 /* 0x26 */,
 823   0x1eac /* 0x27 */,
 824   0x1ebc /* 0x28 */,
 825   0x1eb8 /* 0x29 */,
 826   0x1ebe /* 0x2a */,
 827   0x1ec0 /* 0x2b */,
 828   0x1ec2 /* 0x2c */,
 829   0x1ec4 /* 0x2d */,
 830   0x1ec6 /* 0x2e */,
 831   0x1ed0 /* 0x2f */,
 832   0x1ed2 /* 0x30 */,
 833   0x1ed4 /* 0x31 */,
 834   0x1ed6 /* 0x32 */,
 835   CHAR96('2', 0x33),
 836   CHAR96('2', 0x34),
 837   0x1ed8 /* 0x35 */,
 838   0x1edc /* 0x36 */,
 839   0x1ede /* 0x37 */,
 840   0x1eca /* 0x38 */,
 841   CHAR96('2', 0x39),
 842   CHAR96('2', 0x3a),
 843   CHAR96('2', 0x3b),
 844   CHAR96('2', 0x3c),
 845   0x01a0 /* 0x3d */,
 846   0x1eda /* 0x3e */,
 847   CHAR96('2', 0x3f),
 848   CHAR96('2', 0x40),
 849   CHAR96('2', 0x41),
 850   CHAR96('2', 0x42),
 851   CHAR96('2', 0x43),
 852   CHAR96('2', 0x44),
 853   CHAR96('2', 0x45),
 854   0x1eb2 /* 0x46 */,
 855   0x1eb4 /* 0x47 */,
 856   CHAR96('2', 0x48),
 857   CHAR96('2', 0x49),
 858   CHAR96('2', 0x4a),
 859   CHAR96('2', 0x4b),
 860   CHAR96('2', 0x4c),
 861   CHAR96('2', 0x4d),
 862   CHAR96('2', 0x4e),
 863   0x1ef2 /* 0x4f */,
 864   CHAR96('2', 0x50),
 865   0x1ee8 /* 0x51 */,
 866   CHAR96('2', 0x52),
 867   CHAR96('2', 0x53),
 868   CHAR96('2', 0x54),
 869   0x1ea0 /* 0x55 */,
 870   0x1ef6 /* 0x56 */,
 871   0x1eea /* 0x57 */,
 872   0x1eec /* 0x58 */,
 873   CHAR96('2', 0x59),
 874   CHAR96('2', 0x5a),
 875   0x1ef8 /* 0x5b */,
 876   0x1ef4 /* 0x5c */,
 877   CHAR96('2', 0x5d),
 878   0x1ee0 /* 0x5e */,
 879   0x01af /* 0x5f */,
 880   0x00c0 /* 0x60 */,
 881   0x00c1 /* 0x61 */,
 882   0x00c2 /* 0x62 */,
 883   0x00c3 /* 0x63 */,
 884   0x1ea2 /* 0x64 */,
 885   0x0102 /* 0x65 */,
 886   0x1eee /* 0x66 */,
 887   0x1eaa /* 0x67 */,
 888   0x00c8 /* 0x68 */,
 889   0x00c9 /* 0x69 */,
 890   0x00ca /* 0x6a */,
 891   0x1eba /* 0x6b */,
 892   0x00cc /* 0x6c */,
 893   0x00cd /* 0x6d */,
 894   0x0128 /* 0x6e */,
 895   0x1ec8 /* 0x6f */,
 896   0x0110 /* 0x70 */,
 897   0x1ef0 /* 0x71 */,
 898   0x00d2 /* 0x72 */,
 899   0x00d3 /* 0x73 */,
 900   0x00d4 /* 0x74 */,
 901   0x00d5 /* 0x75 */,
 902   0x1ece /* 0x76 */,
 903   0x1ecc /* 0x77 */,
 904   0x1ee4 /* 0x78 */,
 905   0x00d9 /* 0x79 */,
 906   0x00da /* 0x7a */,
 907   0x0168 /* 0x7b */,
 908   0x1ee6 /* 0x7c */,
 909   0x00dd /* 0x7d */,
 910   0x1ee2 /* 0x7e */,
 911   CHAR96('2', 0x7f)
 912 };
 913
 914
 915 Emchar_to_byte_table* ucs_to_latin_tcvn5712;
 916
 917 Emchar latin_tcvn5712_to_ucs[96] =
 918 {
 919   0x00A0 /* 0xA0  NO-BREAK SPACE */,
 920   0x0102 /* 0xA1  LATIN CAPITAL LETTER A WITH BREVE */,
 921   0x00C2 /* 0xA2  LATIN CAPITAL LETTER A WITH CIRCUMFLEX */,
 922   0x00CA /* 0xA3  LATIN CAPITAL LETTER E WITH CIRCUMFLEX */,
 923   0x00D4 /* 0xA4  LATIN CAPITAL LETTER O WITH CIRCUMFLEX */,
 924   0x01A0 /* 0xA5  LATIN CAPITAL LETTER O WITH HORN */,
 925   0x01AF /* 0xA6  LATIN CAPITAL LETTER U WITH HORN */,
 926   0x0110 /* 0xA7  LATIN CAPITAL LETTER D WITH STROKE */,
 927   0x0103 /* 0xA8  LATIN SMALL LETTER A WITH BREVE */,
 928   0x00E2 /* 0xA9  LATIN SMALL LETTER A WITH CIRCUMFLEX */,
 929   0x00EA /* 0xAA  LATIN SMALL LETTER E WITH CIRCUMFLEX */,
 930   0x00F4 /* 0xAB  LATIN SMALL LETTER O WITH CIRCUMFLEX */,
 931   0x01A1 /* 0xAC  LATIN SMALL LETTER O WITH HORN */,
 932   0x01B0 /* 0xAD  LATIN SMALL LETTER U WITH HORN */,
 933   0x0111 /* 0xAE  LATIN SMALL LETTER D WITH STROKE */,
 934   0x1EB0 /* 0xAF  LATIN CAPITAL LETTER A WITH BREVE AND GRAVE */,
 935   0x0300 /* 0xB0  COMBINING GRAVE ACCENT */,
 936   0x0309 /* 0xB1  COMBINING HOOK ABOVE */,
 937   0x0303 /* 0xB2  COMBINING TILDE */,
 938   0x0301 /* 0xB3  COMBINING ACUTE ACCENT */,
 939   0x0323 /* 0xB4  COMBINING DOT BELOW */,
 940   0x00E0 /* 0xB5  LATIN SMALL LETTER A WITH GRAVE */,
 941   0x1EA3 /* 0xB6  LATIN SMALL LETTER A WITH HOOK ABOVE */,
 942   0x00E3 /* 0xB7  LATIN SMALL LETTER A WITH TILDE */,
 943   0x00E1 /* 0xB8  LATIN SMALL LETTER A WITH ACUTE */,
 944   0x1EA1 /* 0xB9  LATIN SMALL LETTER A WITH DOT BELOW */,
 945   0x1EB2 /* 0xBA  LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE */,
 946   0x1EB1 /* 0xBB  LATIN SMALL LETTER A WITH BREVE AND GRAVE */,
 947   0x1EB3 /* 0xBC  LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE */,
 948   0x1EB5 /* 0xBD  LATIN SMALL LETTER A WITH BREVE AND TILDE */,
 949   0x1EAF /* 0xBE  LATIN SMALL LETTER A WITH BREVE AND ACUTE */,
 950   0x1EB4 /* 0xBF  LATIN CAPITAL LETTER A WITH BREVE AND TILDE */,
 951   0x1EAE /* 0xC0  LATIN CAPITAL LETTER A WITH BREVE AND ACUTE */,
 952   0x1EA6 /* 0xC1  LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE */,
 953   0x1EA8 /* 0xC2  LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE */,
 954   0x1EAA /* 0xC3  LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE */,
 955   0x1EA4 /* 0xC4  LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE */,
 956   0x1EC0 /* 0xC5  LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE */,
 957   0x1EB7 /* 0xC6  LATIN SMALL LETTER A WITH BREVE AND DOT BELOW */,
 958   0x1EA7 /* 0xC7  LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE */,
 959   0x1EA9 /* 0xC8  LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE */,
 960   0x1EAB /* 0xC9  LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE */,
 961   0x1EA5 /* 0xCA  LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE */,
 962   0x1EAD /* 0xCB  LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW */,
 963   0x00E8 /* 0xCC  LATIN SMALL LETTER E WITH GRAVE */,
 964   0x1EC2 /* 0xCD  LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE */,
 965   0x1EBB /* 0xCE  LATIN SMALL LETTER E WITH HOOK ABOVE */,
 966   0x1EBD /* 0xCF  LATIN SMALL LETTER E WITH TILDE */,
 967   0x00E9 /* 0xD0  LATIN SMALL LETTER E WITH ACUTE */,
 968   0x1EB9 /* 0xD1  LATIN SMALL LETTER E WITH DOT BELOW */,
 969   0x1EC1 /* 0xD2  LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE */,
 970   0x1EC3 /* 0xD3  LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE */,
 971   0x1EC5 /* 0xD4  LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE */,
 972   0x1EBF /* 0xD5  LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE */,
 973   0x1EC7 /* 0xD6  LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW */,
 974   0x00EC /* 0xD7  LATIN SMALL LETTER I WITH GRAVE */,
 975   0x1EC9 /* 0xD8  LATIN SMALL LETTER I WITH HOOK ABOVE */,
 976   0x1EC4 /* 0xD9  LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE */,
 977   0x1EBE /* 0xDA  LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE */,
 978   0x1ED2 /* 0xDB  LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE */,
 979   0x0129 /* 0xDC  LATIN SMALL LETTER I WITH TILDE */,
 980   0x00ED /* 0xDD  LATIN SMALL LETTER I WITH ACUTE */,
 981   0x1ECB /* 0xDE  LATIN SMALL LETTER I WITH DOT BELOW */,
 982   0x00F2 /* 0xDF  LATIN SMALL LETTER O WITH GRAVE */,
 983   0x1ED4 /* 0xE0  LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE */,
 984   0x1ECF /* 0xE1  LATIN SMALL LETTER O WITH HOOK ABOVE */,
 985   0x00F5 /* 0xE2  LATIN SMALL LETTER O WITH TILDE */,
 986   0x00F3 /* 0xE3  LATIN SMALL LETTER O WITH ACUTE */,
 987   0x1ECD /* 0xE4  LATIN SMALL LETTER O WITH DOT BELOW */,
 988   0x1ED3 /* 0xE5  LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE */,
 989   0x1ED5 /* 0xE6  LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE */,
 990   0x1ED7 /* 0xE7  LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE */,
 991   0x1ED1 /* 0xE8  LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE */,
 992   0x1ED9 /* 0xE9  LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW */,
 993   0x1EDD /* 0xEA  LATIN SMALL LETTER O WITH HORN AND GRAVE */,
 994   0x1EDF /* 0xEB  LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE */,
 995   0x1EE1 /* 0xEC  LATIN SMALL LETTER O WITH HORN AND TILDE */,
 996   0x1EDB /* 0xED  LATIN SMALL LETTER O WITH HORN AND ACUTE */,
 997   0x1EE3 /* 0xEE  LATIN SMALL LETTER O WITH HORN AND DOT BELOW */,
 998   0x00F9 /* 0xEF  LATIN SMALL LETTER U WITH GRAVE */,
 999   0x1ED6 /* 0xF0  LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE */,
1000   0x1EE7 /* 0xF1  LATIN SMALL LETTER U WITH HOOK ABOVE */,
1001   0x0169 /* 0xF2  LATIN SMALL LETTER U WITH TILDE */,
1002   0x00FA /* 0xF3  LATIN SMALL LETTER U WITH ACUTE */,
1003   0x1EE5 /* 0xF4  LATIN SMALL LETTER U WITH DOT BELOW */,
1004   0x1EEB /* 0xF5  LATIN SMALL LETTER U WITH HORN AND GRAVE */,
1005   0x1EED /* 0xF6  LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE */,
1006   0x1EEF /* 0xF7  LATIN SMALL LETTER U WITH HORN AND TILDE */,
1007   0x1EE9 /* 0xF8  LATIN SMALL LETTER U WITH HORN AND ACUTE */,
1008   0x1EF1 /* 0xF9  LATIN SMALL LETTER U WITH HORN AND DOT BELOW */,
1009   0x1EF3 /* 0xFA  LATIN SMALL LETTER Y WITH GRAVE */,
1010   0x1EF7 /* 0xFB  LATIN SMALL LETTER Y WITH HOOK ABOVE */,
1011   0x1EF9 /* 0xFC  LATIN SMALL LETTER Y WITH TILDE */,
1012   0x00FD /* 0xFD  LATIN SMALL LETTER Y WITH ACUTE */,
1013   0x1EF5 /* 0xFE  LATIN SMALL LETTER Y WITH DOT BELOW */,
1014   0x1ED0 /* 0xFF  LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE */
1015 };
1016
1017 Charset_ID latin_a_char_to_charset[128] = {
1018   /* U+0100 */ LEADING_BYTE_LATIN_ISO8859_4,
1019   /* U+0101 */ LEADING_BYTE_LATIN_ISO8859_4,
1020   /* U+0102 */ LEADING_BYTE_LATIN_ISO8859_2,
1021   /* U+0103 */ LEADING_BYTE_LATIN_ISO8859_2,
1022   /* U+0104 */ LEADING_BYTE_LATIN_ISO8859_2,
1023   /* U+0105 */ LEADING_BYTE_LATIN_ISO8859_2,
1024   /* U+0106 */ LEADING_BYTE_LATIN_ISO8859_2,
1025   /* U+0107 */ LEADING_BYTE_LATIN_ISO8859_2,
1026   /* U+0108 */ LEADING_BYTE_LATIN_ISO8859_3,
1027   /* U+0109 */ LEADING_BYTE_LATIN_ISO8859_3,
1028   /* U+010A */ LEADING_BYTE_LATIN_ISO8859_3,
1029   /* U+010B */ LEADING_BYTE_LATIN_ISO8859_3,
1030   /* U+010C */ LEADING_BYTE_LATIN_ISO8859_2,
1031   /* U+010D */ LEADING_BYTE_LATIN_ISO8859_2,
1032   /* U+010E */ LEADING_BYTE_LATIN_ISO8859_2,
1033   /* U+010F */ LEADING_BYTE_LATIN_ISO8859_2,
1034   /* U+0110 */ LEADING_BYTE_LATIN_ISO8859_2,
1035   /* U+0111 */ LEADING_BYTE_LATIN_ISO8859_2,
1036   /* U+0112 */ LEADING_BYTE_LATIN_ISO8859_4,
1037   /* U+0113 */ LEADING_BYTE_LATIN_ISO8859_4,
1038   /* U+0114 */ LEADING_BYTE_UCS_BMP,
1039   /* U+0115 */ LEADING_BYTE_UCS_BMP,
1040   /* U+0116 */ LEADING_BYTE_LATIN_ISO8859_4,
1041   /* U+0117 */ LEADING_BYTE_LATIN_ISO8859_4,
1042   /* U+0118 */ LEADING_BYTE_LATIN_ISO8859_2,
1043   /* U+0119 */ LEADING_BYTE_LATIN_ISO8859_2,
1044   /* U+011A */ LEADING_BYTE_LATIN_ISO8859_2,
1045   /* U+011B */ LEADING_BYTE_LATIN_ISO8859_2,
1046   /* U+011C */ LEADING_BYTE_LATIN_ISO8859_3,
1047   /* U+011D */ LEADING_BYTE_LATIN_ISO8859_3,
1048   /* U+011E */ LEADING_BYTE_LATIN_ISO8859_3,
1049   /* U+011F */ LEADING_BYTE_LATIN_ISO8859_3,
1050   /* U+0120 */ LEADING_BYTE_LATIN_ISO8859_3,
1051   /* U+0121 */ LEADING_BYTE_LATIN_ISO8859_3,
1052   /* U+0122 */ LEADING_BYTE_LATIN_ISO8859_4,
1053   /* U+0123 */ LEADING_BYTE_LATIN_ISO8859_4,
1054   /* U+0124 */ LEADING_BYTE_LATIN_ISO8859_3,
1055   /* U+0125 */ LEADING_BYTE_LATIN_ISO8859_3,
1056   /* U+0126 */ LEADING_BYTE_LATIN_ISO8859_3,
1057   /* U+0127 */ LEADING_BYTE_LATIN_ISO8859_3,
1058   /* U+0128 */ LEADING_BYTE_LATIN_ISO8859_4,
1059   /* U+0129 */ LEADING_BYTE_LATIN_ISO8859_4,
1060   /* U+012A */ LEADING_BYTE_LATIN_ISO8859_4,
1061   /* U+012B */ LEADING_BYTE_LATIN_ISO8859_4,
1062   /* U+012C */ LEADING_BYTE_UCS_BMP,
1063   /* U+012D */ LEADING_BYTE_UCS_BMP,
1064   /* U+012E */ LEADING_BYTE_LATIN_ISO8859_4,
1065   /* U+012F */ LEADING_BYTE_LATIN_ISO8859_4,
1066   /* U+0130 */ LEADING_BYTE_LATIN_ISO8859_3,
1067   /* U+0131 */ LEADING_BYTE_LATIN_ISO8859_3,
1068   /* U+0132 */ LEADING_BYTE_JAPANESE_JISX0212,
1069   /* U+0133 */ LEADING_BYTE_JAPANESE_JISX0212,
1070   /* U+0134 */ LEADING_BYTE_LATIN_ISO8859_3,
1071   /* U+0135 */ LEADING_BYTE_LATIN_ISO8859_3,
1072   /* U+0136 */ LEADING_BYTE_LATIN_ISO8859_4,
1073   /* U+0137 */ LEADING_BYTE_LATIN_ISO8859_4,
1074   /* U+0138 */ LEADING_BYTE_LATIN_ISO8859_4,
1075   /* U+0139 */ LEADING_BYTE_LATIN_ISO8859_2,
1076   /* U+013A */ LEADING_BYTE_LATIN_ISO8859_2,
1077   /* U+013B */ LEADING_BYTE_LATIN_ISO8859_4,
1078   /* U+013C */ LEADING_BYTE_LATIN_ISO8859_4,
1079   /* U+013D */ LEADING_BYTE_LATIN_ISO8859_2,
1080   /* U+013E */ LEADING_BYTE_LATIN_ISO8859_2,
1081   /* U+013F */ LEADING_BYTE_JAPANESE_JISX0212,
1082   /* U+0140 */ LEADING_BYTE_JAPANESE_JISX0212,
1083   /* U+0141 */ LEADING_BYTE_LATIN_ISO8859_2,
1084   /* U+0142 */ LEADING_BYTE_LATIN_ISO8859_2,
1085   /* U+0143 */ LEADING_BYTE_LATIN_ISO8859_2,
1086   /* U+0144 */ LEADING_BYTE_LATIN_ISO8859_2,
1087   /* U+0145 */ LEADING_BYTE_LATIN_ISO8859_4,
1088   /* U+0146 */ LEADING_BYTE_LATIN_ISO8859_4,
1089   /* U+0147 */ LEADING_BYTE_LATIN_ISO8859_2,
1090   /* U+0148 */ LEADING_BYTE_LATIN_ISO8859_2,
1091   /* U+0149 */ LEADING_BYTE_JAPANESE_JISX0212,
1092   /* U+014A */ LEADING_BYTE_LATIN_ISO8859_4,
1093   /* U+014B */ LEADING_BYTE_LATIN_ISO8859_4,
1094   /* U+014C */ LEADING_BYTE_LATIN_ISO8859_4,
1095   /* U+014D */ LEADING_BYTE_LATIN_ISO8859_4,
1096   /* U+014E */ LEADING_BYTE_UCS_BMP,
1097   /* U+014F */ LEADING_BYTE_UCS_BMP,
1098   /* U+0150 */ LEADING_BYTE_LATIN_ISO8859_2,
1099   /* U+0151 */ LEADING_BYTE_LATIN_ISO8859_2,
1100   /* U+0152 */ LEADING_BYTE_JAPANESE_JISX0212,
1101   /* U+0153 */ LEADING_BYTE_JAPANESE_JISX0212,
1102   /* U+0154 */ LEADING_BYTE_LATIN_ISO8859_2,
1103   /* U+0155 */ LEADING_BYTE_LATIN_ISO8859_2,
1104   /* U+0156 */ LEADING_BYTE_LATIN_ISO8859_4,
1105   /* U+0157 */ LEADING_BYTE_LATIN_ISO8859_4,
1106   /* U+0158 */ LEADING_BYTE_LATIN_ISO8859_2,
1107   /* U+0159 */ LEADING_BYTE_LATIN_ISO8859_2,
1108   /* U+015A */ LEADING_BYTE_LATIN_ISO8859_2,
1109   /* U+015B */ LEADING_BYTE_LATIN_ISO8859_2,
1110   /* U+015C */ LEADING_BYTE_LATIN_ISO8859_3,
1111   /* U+015D */ LEADING_BYTE_LATIN_ISO8859_3,
1112   /* U+015E */ LEADING_BYTE_LATIN_ISO8859_2,
1113   /* U+015F */ LEADING_BYTE_LATIN_ISO8859_2,
1114   /* U+0160 */ LEADING_BYTE_LATIN_ISO8859_2,
1115   /* U+0161 */ LEADING_BYTE_LATIN_ISO8859_2,
1116   /* U+0162 */ LEADING_BYTE_LATIN_ISO8859_2,
1117   /* U+0163 */ LEADING_BYTE_LATIN_ISO8859_2,
1118   /* U+0164 */ LEADING_BYTE_LATIN_ISO8859_2,
1119   /* U+0165 */ LEADING_BYTE_LATIN_ISO8859_2,
1120   /* U+0166 */ LEADING_BYTE_LATIN_ISO8859_4,
1121   /* U+0167 */ LEADING_BYTE_LATIN_ISO8859_4,
1122   /* U+0168 */ LEADING_BYTE_LATIN_ISO8859_4,
1123   /* U+0169 */ LEADING_BYTE_LATIN_ISO8859_4,
1124   /* U+016A */ LEADING_BYTE_LATIN_ISO8859_4,
1125   /* U+016B */ LEADING_BYTE_LATIN_ISO8859_4,
1126   /* U+016C */ LEADING_BYTE_LATIN_ISO8859_3,
1127   /* U+016D */ LEADING_BYTE_LATIN_ISO8859_3,
1128   /* U+016E */ LEADING_BYTE_LATIN_ISO8859_2,
1129   /* U+016F */ LEADING_BYTE_LATIN_ISO8859_2,
1130   /* U+0170 */ LEADING_BYTE_LATIN_ISO8859_2,
1131   /* U+0171 */ LEADING_BYTE_LATIN_ISO8859_2,
1132   /* U+0172 */ LEADING_BYTE_LATIN_ISO8859_4,
1133   /* U+0173 */ LEADING_BYTE_LATIN_ISO8859_4,
1134   /* U+0174 */ LEADING_BYTE_JAPANESE_JISX0212,
1135   /* U+0175 */ LEADING_BYTE_JAPANESE_JISX0212,
1136   /* U+0176 */ LEADING_BYTE_JAPANESE_JISX0212,
1137   /* U+0177 */ LEADING_BYTE_JAPANESE_JISX0212,
1138   /* U+0178 */ LEADING_BYTE_JAPANESE_JISX0212,
1139   /* U+0179 */ LEADING_BYTE_LATIN_ISO8859_2,
1140   /* U+017A */ LEADING_BYTE_LATIN_ISO8859_2,
1141   /* U+017B */ LEADING_BYTE_LATIN_ISO8859_2,
1142   /* U+017C */ LEADING_BYTE_LATIN_ISO8859_2,
1143   /* U+017D */ LEADING_BYTE_LATIN_ISO8859_2,
1144   /* U+017E */ LEADING_BYTE_LATIN_ISO8859_2,
1145   /* U+017F */ LEADING_BYTE_UCS_BMP
1146 };
1147
1148 unsigned char latin_a_char_to_byte1[128] = {
1149   /* U+0100 */ 0xC0 - 0x80,
1150   /* U+0101 */ 0xE0 - 0x80,
1151   /* U+0102 */ 0xC3 - 0x80,
1152   /* U+0103 */ 0xE3 - 0x80,
1153   /* U+0104 */ 0xA1 - 0x80,
1154   /* U+0105 */ 0xB1 - 0x80,
1155   /* U+0106 */ 0xC6 - 0x80,
1156   /* U+0107 */ 0xE6 - 0x80,
1157   /* U+0108 */ 0xC6 - 0x80,
1158   /* U+0109 */ 0xE6 - 0x80,
1159   /* U+010A */ 0xC5 - 0x80,
1160   /* U+010B */ 0xE5 - 0x80,
1161   /* U+010C */ 0xC8 - 0x80,
1162   /* U+010D */ 0xE8 - 0x80,
1163   /* U+010E */ 0xCF - 0x80,
1164   /* U+010F */ 0xEF - 0x80,
1165   /* U+0110 */ 0xD0 - 0x80,
1166   /* U+0111 */ 0xF0 - 0x80,
1167   /* U+0112 */ 0xAA - 0x80,
1168   /* U+0113 */ 0xBA - 0x80,
1169   /* U+0114 */ 0x01,
1170   /* U+0115 */ 0x01,
1171   /* U+0116 */ 0xCC - 0x80,
1172   /* U+0117 */ 0xEC - 0x80,
1173   /* U+0118 */ 0xCA - 0x80,
1174   /* U+0119 */ 0xEA - 0x80,
1175   /* U+011A */ 0xCC - 0x80,
1176   /* U+011B */ 0xEC - 0x80,
1177   /* U+011C */ 0xD8 - 0x80,
1178   /* U+011D */ 0xF8 - 0x80,
1179   /* U+011E */ 0xAB - 0x80,
1180   /* U+011F */ 0xBB - 0x80,
1181   /* U+0120 */ 0xD5 - 0x80,
1182   /* U+0121 */ 0xF5 - 0x80,
1183   /* U+0122 */ 0xAB - 0x80,
1184   /* U+0123 */ 0xBB - 0x80,
1185   /* U+0124 */ 0xA6 - 0x80,
1186   /* U+0125 */ 0xB6 - 0x80,
1187   /* U+0126 */ 0xA1 - 0x80,
1188   /* U+0127 */ 0xB1 - 0x80,
1189   /* U+0128 */ 0xA5 - 0x80,
1190   /* U+0129 */ 0xB5 - 0x80,
1191   /* U+012A */ 0xCF - 0x80,
1192   /* U+012B */ 0xEF - 0x80,
1193   /* U+012C */ 0x01,
1194   /* U+012D */ 0x01,
1195   /* U+012E */ 0xC7 - 0x80,
1196   /* U+012F */ 0xE7 - 0x80,
1197   /* U+0130 */ 0xA9 - 0x80,
1198   /* U+0131 */ 0xB9 - 0x80,
1199   /* U+0132 */ 0x29,
1200   /* U+0133 */ 0x29,
1201   /* U+0134 */ 0xAC - 0x80,
1202   /* U+0135 */ 0xBC - 0x80,
1203   /* U+0136 */ 0xD3 - 0x80,
1204   /* U+0137 */ 0xF3 - 0x80,
1205   /* U+0138 */ 0xA2 - 0x80,
1206   /* U+0139 */ 0xC5 - 0x80,
1207   /* U+013A */ 0xE5 - 0x80,
1208   /* U+013B */ 0xA6 - 0x80,
1209   /* U+013C */ 0xB6 - 0x80,
1210   /* U+013D */ 0xA5 - 0x80,
1211   /* U+013E */ 0xB5 - 0x80,
1212   /* U+013F */ 0x29,
1213   /* U+0140 */ 0x29,
1214   /* U+0141 */ 0xA3 - 0x80,
1215   /* U+0142 */ 0xB3 - 0x80,
1216   /* U+0143 */ 0xD1 - 0x80,
1217   /* U+0144 */ 0xF1 - 0x80,
1218   /* U+0145 */ 0xD1 - 0x80,
1219   /* U+0146 */ 0xF1 - 0x80,
1220   /* U+0147 */ 0xD2 - 0x80,
1221   /* U+0148 */ 0xF2 - 0x80,
1222   /* U+0149 */ 0x29,
1223   /* U+014A */ 0xBD - 0x80,
1224   /* U+014B */ 0xBF - 0x80,
1225   /* U+014C */ 0xD2 - 0x80,
1226   /* U+014D */ 0xF2 - 0x80,
1227   /* U+014E */ 0x01,
1228   /* U+014F */ 0x01,
1229   /* U+0150 */ 0xD5 - 0x80,
1230   /* U+0151 */ 0xF5 - 0x80,
1231   /* U+0152 */ 0x29,
1232   /* U+0153 */ 0x29,
1233   /* U+0154 */ 0xC0 - 0x80,
1234   /* U+0155 */ 0xE0 - 0x80,
1235   /* U+0156 */ 0xA3 - 0x80,
1236   /* U+0157 */ 0xB3 - 0x80,
1237   /* U+0158 */ 0xD8 - 0x80,
1238   /* U+0159 */ 0xF8 - 0x80,
1239   /* U+015A */ 0xA6 - 0x80,
1240   /* U+015B */ 0xB6 - 0x80,
1241   /* U+015C */ 0xDE - 0x80,
1242   /* U+015D */ 0xFE - 0x80,
1243   /* U+015E */ 0xAA - 0x80,
1244   /* U+015F */ 0xBA - 0x80,
1245   /* U+0160 */ 0xA9 - 0x80,
1246   /* U+0161 */ 0xB9 - 0x80,
1247   /* U+0162 */ 0xDE - 0x80,
1248   /* U+0163 */ 0xFE - 0x80,
1249   /* U+0164 */ 0xAB - 0x80,
1250   /* U+0165 */ 0xBB - 0x80,
1251   /* U+0166 */ 0xAC - 0x80,
1252   /* U+0167 */ 0xBC - 0x80,
1253   /* U+0168 */ 0xDD - 0x80,
1254   /* U+0169 */ 0xFD - 0x80,
1255   /* U+016A */ 0xDE - 0x80,
1256   /* U+016B */ 0xFE - 0x80,
1257   /* U+016C */ 0xDD - 0x80,
1258   /* U+016D */ 0xFD - 0x80,
1259   /* U+016E */ 0xD9 - 0x80,
1260   /* U+016F */ 0xF9 - 0x80,
1261   /* U+0170 */ 0xDB - 0x80,
1262   /* U+0171 */ 0xFB - 0x80,
1263   /* U+0172 */ 0xD9 - 0x80,
1264   /* U+0173 */ 0xF9 - 0x80,
1265   /* U+0174 */ 0x2A,
1266   /* U+0175 */ 0x2B,
1267   /* U+0176 */ 0x2A,
1268   /* U+0177 */ 0x2B,
1269   /* U+0178 */ 0x2A,
1270   /* U+0179 */ 0xAC - 0x80,
1271   /* U+017A */ 0xBC - 0x80,
1272   /* U+017B */ 0xAF - 0x80,
1273   /* U+017C */ 0xBF - 0x80,
1274   /* U+017D */ 0xAE - 0x80,
1275   /* U+017E */ 0xBE - 0x80,
1276   /* U+017F */ 0x01
1277 };
1278
1279 unsigned char latin_a_char_to_byte2[128] = {
1280   /* U+0100 */ 0x00,
1281   /* U+0101 */ 0x00,
1282   /* U+0102 */ 0x00,
1283   /* U+0103 */ 0x00,
1284   /* U+0104 */ 0x00,
1285   /* U+0105 */ 0x00,
1286   /* U+0106 */ 0x00,
1287   /* U+0107 */ 0x00,
1288   /* U+0108 */ 0x00,
1289   /* U+0109 */ 0x00,
1290   /* U+010A */ 0x00,
1291   /* U+010B */ 0x00,
1292   /* U+010C */ 0x00,
1293   /* U+010D */ 0x00,
1294   /* U+010E */ 0x00,
1295   /* U+010F */ 0x00,
1296   /* U+0110 */ 0x00,
1297   /* U+0111 */ 0x00,
1298   /* U+0112 */ 0x00,
1299   /* U+0113 */ 0x00,
1300   /* U+0114 */ 0x14,
1301   /* U+0115 */ 0x15,
1302   /* U+0116 */ 0x00,
1303   /* U+0117 */ 0x00,
1304   /* U+0118 */ 0x00,
1305   /* U+0119 */ 0x00,
1306   /* U+011A */ 0x00,
1307   /* U+011B */ 0x00,
1308   /* U+011C */ 0x00,
1309   /* U+011D */ 0x00,
1310   /* U+011E */ 0x00,
1311   /* U+011F */ 0x00,
1312   /* U+0120 */ 0x00,
1313   /* U+0121 */ 0x00,
1314   /* U+0122 */ 0x00,
1315   /* U+0123 */ 0x00,
1316   /* U+0124 */ 0x00,
1317   /* U+0125 */ 0x00,
1318   /* U+0126 */ 0x00,
1319   /* U+0127 */ 0x00,
1320   /* U+0128 */ 0x00,
1321   /* U+0129 */ 0x00,
1322   /* U+012A */ 0x00,
1323   /* U+012B */ 0x00,
1324   /* U+012C */ 0x2C,
1325   /* U+012D */ 0x2D,
1326   /* U+012E */ 0x00,
1327   /* U+012F */ 0x00,
1328   /* U+0130 */ 0x00,
1329   /* U+0131 */ 0x00,
1330   /* U+0132 */ 0x26,
1331   /* U+0133 */ 0x46,
1332   /* U+0134 */ 0x00,
1333   /* U+0135 */ 0x00,
1334   /* U+0136 */ 0x00,
1335   /* U+0137 */ 0x00,
1336   /* U+0138 */ 0x00,
1337   /* U+0139 */ 0x00,
1338   /* U+013A */ 0x00,
1339   /* U+013B */ 0x00,
1340   /* U+013C */ 0x00,
1341   /* U+013D */ 0x00,
1342   /* U+013E */ 0x00,
1343   /* U+013F */ 0x29,
1344   /* U+0140 */ 0x49,
1345   /* U+0141 */ 0x00,
1346   /* U+0142 */ 0x00,
1347   /* U+0143 */ 0x00,
1348   /* U+0144 */ 0x00,
1349   /* U+0145 */ 0x00,
1350   /* U+0146 */ 0x00,
1351   /* U+0147 */ 0x00,
1352   /* U+0148 */ 0x00,
1353   /* U+0149 */ 0x4A,
1354   /* U+014A */ 0x00,
1355   /* U+014B */ 0x00,
1356   /* U+014C */ 0x00,
1357   /* U+014D */ 0x00,
1358   /* U+014E */ 0x4E,
1359   /* U+014F */ 0x4F,
1360   /* U+0150 */ 0x00,
1361   /* U+0151 */ 0x00,
1362   /* U+0152 */ 0x2D,
1363   /* U+0153 */ 0x4D,
1364   /* U+0154 */ 0x00,
1365   /* U+0155 */ 0x00,
1366   /* U+0156 */ 0x00,
1367   /* U+0157 */ 0x00,
1368   /* U+0158 */ 0x00,
1369   /* U+0159 */ 0x00,
1370   /* U+015A */ 0x00,
1371   /* U+015B */ 0x00,
1372   /* U+015C */ 0x00,
1373   /* U+015D */ 0x00,
1374   /* U+015E */ 0x00,
1375   /* U+015F */ 0x00,
1376   /* U+0160 */ 0x00,
1377   /* U+0161 */ 0x00,
1378   /* U+0162 */ 0x00,
1379   /* U+0163 */ 0x00,
1380   /* U+0164 */ 0x00,
1381   /* U+0165 */ 0x00,
1382   /* U+0166 */ 0x00,
1383   /* U+0167 */ 0x00,
1384   /* U+0168 */ 0x00,
1385   /* U+0169 */ 0x00,
1386   /* U+016A */ 0x00,
1387   /* U+016B */ 0x00,
1388   /* U+016C */ 0x00,
1389   /* U+016D */ 0x00,
1390   /* U+016E */ 0x00,
1391   /* U+016F */ 0x00,
1392   /* U+0170 */ 0x00,
1393   /* U+0171 */ 0x00,
1394   /* U+0172 */ 0x00,
1395   /* U+0173 */ 0x00,
1396   /* U+0174 */ 0x71,
1397   /* U+0175 */ 0x71,
1398   /* U+0176 */ 0x74,
1399   /* U+0177 */ 0x74,
1400   /* U+0178 */ 0x73,
1401   /* U+0179 */ 0x00,
1402   /* U+017A */ 0x00,
1403   /* U+017B */ 0x00,
1404   /* U+017C */ 0x00,
1405   /* U+017D */ 0x00,
1406   /* U+017E */ 0x00,
1407   /* U+017F */ 0x7F
1408 };
1409
1410 Lisp_Object Vutf_2000_version;
1411 #endif
1412
1413 #ifndef UTF2000
1414 int leading_code_private_11;
1415 #endif
1416
1417 Lisp_Object Qcharsetp;
1418
1419 /* Qdoc_string, Qdimension, Qchars defined in general.c */
1420 Lisp_Object Qregistry, Qfinal, Qgraphic;
1421 Lisp_Object Qdirection;
1422 Lisp_Object Qreverse_direction_charset;
1423 Lisp_Object Qleading_byte;
1424 Lisp_Object Qshort_name, Qlong_name;
1425
1426 Lisp_Object Qascii,
1427   Qcontrol_1,
1428   Qlatin_iso8859_1,
1429   Qlatin_iso8859_2,
1430   Qlatin_iso8859_3,
1431   Qlatin_iso8859_4,
1432   Qthai_tis620,
1433   Qgreek_iso8859_7,
1434   Qarabic_iso8859_6,
1435   Qhebrew_iso8859_8,
1436   Qkatakana_jisx0201,
1437   Qlatin_jisx0201,
1438   Qcyrillic_iso8859_5,
1439   Qlatin_iso8859_9,
1440   Qjapanese_jisx0208_1978,
1441   Qchinese_gb2312,
1442   Qjapanese_jisx0208,
1443   Qkorean_ksc5601,
1444   Qjapanese_jisx0212,
1445   Qchinese_cns11643_1,
1446   Qchinese_cns11643_2,
1447 #ifdef UTF2000
1448   Qchinese_cns11643_3,
1449   Qchinese_cns11643_4,
1450   Qchinese_cns11643_5,
1451   Qchinese_cns11643_6,
1452   Qchinese_cns11643_7,
1453   Qucs_bmp,
1454   Qlatin_viscii_lower,
1455   Qlatin_viscii_upper,
1456 #endif
1457   Qchinese_big5_1,
1458   Qchinese_big5_2,
1459   Qcomposite;
1460
1461 Lisp_Object Ql2r, Qr2l;
1462
1463 Lisp_Object Vcharset_hash_table;
1464
1465 static Charset_ID next_allocated_1_byte_leading_byte;
1466 static Charset_ID next_allocated_2_byte_leading_byte;
1467
1468 /* Composite characters are characters constructed by overstriking two
1469    or more regular characters.
1470
1471    1) The old Mule implementation involves storing composite characters
1472       in a buffer as a tag followed by all of the actual characters
1473       used to make up the composite character.  I think this is a bad
1474       idea; it greatly complicates code that wants to handle strings
1475       one character at a time because it has to deal with the possibility
1476       of great big ungainly characters.  It's much more reasonable to
1477       simply store an index into a table of composite characters.
1478
1479    2) The current implementation only allows for 16,384 separate
1480       composite characters over the lifetime of the XEmacs process.
1481       This could become a potential problem if the user
1482       edited lots of different files that use composite characters.
1483       Due to FSF bogosity, increasing the number of allowable
1484       composite characters under Mule would decrease the number
1485       of possible faces that can exist.  Mule already has shrunk
1486       this to 2048, and further shrinkage would become uncomfortable.
1487       No such problems exist in XEmacs.
1488
1489       Composite characters could be represented as 0x80 C1 C2 C3,
1490       where each C[1-3] is in the range 0xA0 - 0xFF.  This allows
1491       for slightly under 2^20 (one million) composite characters
1492       over the XEmacs process lifetime, and you only need to
1493       increase the size of a Mule character from 19 to 21 bits.
1494       Or you could use 0x80 C1 C2 C3 C4, allowing for about
1495       85 million (slightly over 2^26) composite characters. */
1496
1497 \f
1498 /************************************************************************/
1499 /*                       Basic Emchar functions                         */
1500 /************************************************************************/
1501
1502 /* Convert a non-ASCII Mule character C into a one-character Mule-encoded
1503    string in STR.  Returns the number of bytes stored.
1504    Do not call this directly.  Use the macro set_charptr_emchar() instead.
1505  */
1506
1507 Bytecount
1508 non_ascii_set_charptr_emchar (Bufbyte *str, Emchar c)
1509 {
1510   Bufbyte *p;
1511 #ifndef UTF2000
1512   Charset_ID lb;
1513   int c1, c2;
1514   Lisp_Object charset;
1515 #endif
1516
1517   p = str;
1518 #ifdef UTF2000
1519   if ( c <= 0x7f )
1520     {
1521       *p++ = c;
1522     }
1523   else if ( c <= 0x7ff )
1524     {
1525       *p++ = (c >> 6) | 0xc0;
1526       *p++ = (c & 0x3f) | 0x80;
1527     }
1528   else if ( c <= 0xffff )
1529     {
1530       *p++ =  (c >> 12) | 0xe0;
1531       *p++ = ((c >>  6) & 0x3f) | 0x80;
1532       *p++ =  (c        & 0x3f) | 0x80;
1533     }
1534   else if ( c <= 0x1fffff )
1535     {
1536       *p++ =  (c >> 18) | 0xf0;
1537       *p++ = ((c >> 12) & 0x3f) | 0x80;
1538       *p++ = ((c >>  6) & 0x3f) | 0x80;
1539       *p++ =  (c        & 0x3f) | 0x80;
1540     }
1541   else if ( c <= 0x3ffffff )
1542     {
1543       *p++ =  (c >> 24) | 0xf8;
1544       *p++ = ((c >> 18) & 0x3f) | 0x80;
1545       *p++ = ((c >> 12) & 0x3f) | 0x80;
1546       *p++ = ((c >>  6) & 0x3f) | 0x80;
1547       *p++ =  (c        & 0x3f) | 0x80;
1548     }
1549   else
1550     {
1551       *p++ =  (c >> 30) | 0xfc;
1552       *p++ = ((c >> 24) & 0x3f) | 0x80;
1553       *p++ = ((c >> 18) & 0x3f) | 0x80;
1554       *p++ = ((c >> 12) & 0x3f) | 0x80;
1555       *p++ = ((c >>  6) & 0x3f) | 0x80;
1556       *p++ =  (c        & 0x3f) | 0x80;
1557     }
1558 #else
1559   BREAKUP_CHAR (c, charset, c1, c2);
1560   lb = CHAR_LEADING_BYTE (c);
1561   if (LEADING_BYTE_PRIVATE_P (lb))
1562     *p++ = PRIVATE_LEADING_BYTE_PREFIX (lb);
1563   *p++ = lb;
1564   if (EQ (charset, Vcharset_control_1))
1565     c1 += 0x20;
1566   *p++ = c1 | 0x80;
1567   if (c2)
1568     *p++ = c2 | 0x80;
1569 #endif
1570   return (p - str);
1571 }
1572
1573 /* Return the first character from a Mule-encoded string in STR,
1574    assuming it's non-ASCII.  Do not call this directly.
1575    Use the macro charptr_emchar() instead. */
1576
1577 Emchar
1578 non_ascii_charptr_emchar (CONST Bufbyte *str)
1579 {
1580 #ifdef UTF2000
1581   Bufbyte b;
1582   Emchar ch;
1583   int len;
1584
1585   b = *str++;
1586   if ( b >= 0xfc )
1587     {
1588       ch = (b & 0x01);
1589       len = 5;
1590     }
1591   else if ( b >= 0xf8 )
1592     {
1593       ch = b & 0x03;
1594       len = 4;
1595     }
1596   else if ( b >= 0xf0 )
1597     {
1598       ch = b & 0x07;
1599       len = 3;
1600     }
1601   else if ( b >= 0xe0 )
1602     {
1603       ch = b & 0x0f;
1604       len = 2;
1605     }
1606   else if ( b >= 0xc0 )
1607     {
1608       ch = b & 0x1f;
1609       len = 1;
1610     }
1611   else
1612     {
1613       ch = b;
1614       len = 0;
1615     }
1616   for( ; len > 0; len-- )
1617     {
1618       b = *str++;
1619       ch = ( ch << 6 ) | ( b & 0x3f );
1620     }
1621   return ch;
1622 #else
1623   Bufbyte i0 = *str, i1, i2 = 0;
1624   Lisp_Object charset;
1625
1626   if (i0 == LEADING_BYTE_CONTROL_1)
1627     return (Emchar) (*++str - 0x20);
1628
1629   if (LEADING_BYTE_PREFIX_P (i0))
1630     i0 = *++str;
1631
1632   i1 = *++str & 0x7F;
1633
1634   charset = CHARSET_BY_LEADING_BYTE (i0);
1635   if (XCHARSET_DIMENSION (charset) == 2)
1636     i2 = *++str & 0x7F;
1637
1638   return MAKE_CHAR (charset, i1, i2);
1639 #endif
1640 }
1641
1642 /* Return whether CH is a valid Emchar, assuming it's non-ASCII.
1643    Do not call this directly.  Use the macro valid_char_p() instead. */
1644
1645 #ifndef UTF2000
1646 int
1647 non_ascii_valid_char_p (Emchar ch)
1648 {
1649   int f1, f2, f3;
1650
1651   /* Must have only lowest 19 bits set */
1652   if (ch & ~0x7FFFF)
1653     return 0;
1654
1655   f1 = CHAR_FIELD1 (ch);
1656   f2 = CHAR_FIELD2 (ch);
1657   f3 = CHAR_FIELD3 (ch);
1658
1659   if (f1 == 0)
1660     {
1661       Lisp_Object charset;
1662
1663       if (f2 < MIN_CHAR_FIELD2_OFFICIAL ||
1664           (f2 > MAX_CHAR_FIELD2_OFFICIAL && f2 < MIN_CHAR_FIELD2_PRIVATE) ||
1665            f2 > MAX_CHAR_FIELD2_PRIVATE)
1666         return 0;
1667       if (f3 < 0x20)
1668         return 0;
1669
1670       if (f3 != 0x20 && f3 != 0x7F)
1671         return 1;
1672
1673       /*
1674          NOTE: This takes advantage of the fact that
1675          FIELD2_TO_OFFICIAL_LEADING_BYTE and
1676          FIELD2_TO_PRIVATE_LEADING_BYTE are the same.
1677          */
1678       charset = CHARSET_BY_LEADING_BYTE (f2 + FIELD2_TO_OFFICIAL_LEADING_BYTE);
1679       return (XCHARSET_CHARS (charset) == 96);
1680     }
1681   else
1682     {
1683       Lisp_Object charset;
1684
1685       if (f1 < MIN_CHAR_FIELD1_OFFICIAL ||
1686           (f1 > MAX_CHAR_FIELD1_OFFICIAL && f1 < MIN_CHAR_FIELD1_PRIVATE) ||
1687           f1 > MAX_CHAR_FIELD1_PRIVATE)
1688         return 0;
1689       if (f2 < 0x20 || f3 < 0x20)
1690         return 0;
1691
1692 #ifdef ENABLE_COMPOSITE_CHARS
1693       if (f1 + FIELD1_TO_OFFICIAL_LEADING_BYTE == LEADING_BYTE_COMPOSITE)
1694         {
1695           if (UNBOUNDP (Fgethash (make_int (ch),
1696                                   Vcomposite_char_char2string_hash_table,
1697                                   Qunbound)))
1698             return 0;
1699           return 1;
1700         }
1701 #endif /* ENABLE_COMPOSITE_CHARS */
1702
1703       if (f2 != 0x20 && f2 != 0x7F && f3 != 0x20 && f3 != 0x7F)
1704         return 1;
1705
1706       if (f1 <= MAX_CHAR_FIELD1_OFFICIAL)
1707         charset =
1708           CHARSET_BY_LEADING_BYTE (f1 + FIELD1_TO_OFFICIAL_LEADING_BYTE);
1709       else
1710         charset =
1711           CHARSET_BY_LEADING_BYTE (f1 + FIELD1_TO_PRIVATE_LEADING_BYTE);
1712
1713       return (XCHARSET_CHARS (charset) == 96);
1714     }
1715 }
1716 #endif
1717
1718 \f
1719 /************************************************************************/
1720 /*                       Basic string functions                         */
1721 /************************************************************************/
1722
1723 /* Copy the character pointed to by PTR into STR, assuming it's
1724    non-ASCII.  Do not call this directly.  Use the macro
1725    charptr_copy_char() instead. */
1726
1727 Bytecount
1728 non_ascii_charptr_copy_char (CONST Bufbyte *ptr, Bufbyte *str)
1729 {
1730   Bufbyte *strptr = str;
1731   *strptr = *ptr++;
1732   switch (REP_BYTES_BY_FIRST_BYTE (*strptr))
1733     {
1734       /* Notice fallthrough. */
1735 #ifdef UTF2000
1736     case 6: *++strptr = *ptr++;
1737     case 5: *++strptr = *ptr++;
1738 #endif
1739     case 4: *++strptr = *ptr++;
1740     case 3: *++strptr = *ptr++;
1741     case 2: *++strptr = *ptr;
1742       break;
1743     default:
1744       abort ();
1745     }
1746   return strptr + 1 - str;
1747 }
1748
1749 \f
1750 /************************************************************************/
1751 /*                        streams of Emchars                            */
1752 /************************************************************************/
1753
1754 /* Treat a stream as a stream of Emchar's rather than a stream of bytes.
1755    The functions below are not meant to be called directly; use
1756    the macros in insdel.h. */
1757
1758 Emchar
1759 Lstream_get_emchar_1 (Lstream *stream, int ch)
1760 {
1761   Bufbyte str[MAX_EMCHAR_LEN];
1762   Bufbyte *strptr = str;
1763
1764   str[0] = (Bufbyte) ch;
1765   switch (REP_BYTES_BY_FIRST_BYTE (ch))
1766     {
1767       /* Notice fallthrough. */
1768 #ifdef UTF2000
1769     case 6:
1770       ch = Lstream_getc (stream);
1771       assert (ch >= 0);
1772       *++strptr = (Bufbyte) ch;
1773     case 5:
1774       ch = Lstream_getc (stream);
1775       assert (ch >= 0);
1776       *++strptr = (Bufbyte) ch;
1777 #endif
1778     case 4:
1779       ch = Lstream_getc (stream);
1780       assert (ch >= 0);
1781       *++strptr = (Bufbyte) ch;
1782     case 3:
1783       ch = Lstream_getc (stream);
1784       assert (ch >= 0);
1785       *++strptr = (Bufbyte) ch;
1786     case 2:
1787       ch = Lstream_getc (stream);
1788       assert (ch >= 0);
1789       *++strptr = (Bufbyte) ch;
1790       break;
1791     default:
1792       abort ();
1793     }
1794   return charptr_emchar (str);
1795 }
1796
1797 int
1798 Lstream_fput_emchar (Lstream *stream, Emchar ch)
1799 {
1800   Bufbyte str[MAX_EMCHAR_LEN];
1801   Bytecount len = set_charptr_emchar (str, ch);
1802   return Lstream_write (stream, str, len);
1803 }
1804
1805 void
1806 Lstream_funget_emchar (Lstream *stream, Emchar ch)
1807 {
1808   Bufbyte str[MAX_EMCHAR_LEN];
1809   Bytecount len = set_charptr_emchar (str, ch);
1810   Lstream_unread (stream, str, len);
1811 }
1812
1813 \f
1814 /************************************************************************/
1815 /*                            charset object                            */
1816 /************************************************************************/
1817
1818 static Lisp_Object
1819 mark_charset (Lisp_Object obj, void (*markobj) (Lisp_Object))
1820 {
1821   struct Lisp_Charset *cs = XCHARSET (obj);
1822
1823   markobj (cs->short_name);
1824   markobj (cs->long_name);
1825   markobj (cs->doc_string);
1826   markobj (cs->registry);
1827   markobj (cs->ccl_program);
1828   return cs->name;
1829 }
1830
1831 static void
1832 print_charset (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
1833 {
1834   struct Lisp_Charset *cs = XCHARSET (obj);
1835   char buf[200];
1836
1837   if (print_readably)
1838     error ("printing unreadable object #<charset %s 0x%x>",
1839            string_data (XSYMBOL (CHARSET_NAME (cs))->name),
1840            cs->header.uid);
1841
1842   write_c_string ("#<charset ", printcharfun);
1843   print_internal (CHARSET_NAME (cs), printcharfun, 0);
1844   write_c_string (" ", printcharfun);
1845   print_internal (CHARSET_SHORT_NAME (cs), printcharfun, 1);
1846   write_c_string (" ", printcharfun);
1847   print_internal (CHARSET_LONG_NAME (cs), printcharfun, 1);
1848   write_c_string (" ", printcharfun);
1849   print_internal (CHARSET_DOC_STRING (cs), printcharfun, 1);
1850   sprintf (buf, " %s %s cols=%d g%d final='%c' reg=",
1851            CHARSET_TYPE (cs) == CHARSET_TYPE_94    ? "94" :
1852            CHARSET_TYPE (cs) == CHARSET_TYPE_96    ? "96" :
1853            CHARSET_TYPE (cs) == CHARSET_TYPE_94X94 ? "94x94" :
1854            "96x96",
1855            CHARSET_DIRECTION (cs) == CHARSET_LEFT_TO_RIGHT ? "l2r" : "r2l",
1856            CHARSET_COLUMNS (cs),
1857            CHARSET_GRAPHIC (cs),
1858            CHARSET_FINAL (cs));
1859   write_c_string (buf, printcharfun);
1860   print_internal (CHARSET_REGISTRY (cs), printcharfun, 0);
1861   sprintf (buf, " 0x%x>", cs->header.uid);
1862   write_c_string (buf, printcharfun);
1863 }
1864
1865 static const struct lrecord_description charset_description[] = {
1866   { XD_LISP_OBJECT, offsetof(struct Lisp_Charset, name), 7 },
1867   { XD_END }
1868 };
1869
1870 DEFINE_LRECORD_IMPLEMENTATION ("charset", charset,
1871                                mark_charset, print_charset, 0, 0, 0, charset_description,
1872                                struct Lisp_Charset);
1873 /* Make a new charset. */
1874
1875 static Lisp_Object
1876 make_charset (Charset_ID id, Lisp_Object name, unsigned char rep_bytes,
1877               unsigned char type, unsigned char columns, unsigned char graphic,
1878               Bufbyte final, unsigned char direction,  Lisp_Object short_name,
1879               Lisp_Object long_name, Lisp_Object doc,
1880               Lisp_Object reg)
1881 {
1882   Lisp_Object obj;
1883   struct Lisp_Charset *cs =
1884     alloc_lcrecord_type (struct Lisp_Charset, &lrecord_charset);
1885   XSETCHARSET (obj, cs);
1886
1887   CHARSET_ID            (cs) = id;
1888   CHARSET_NAME          (cs) = name;
1889   CHARSET_SHORT_NAME    (cs) = short_name;
1890   CHARSET_LONG_NAME     (cs) = long_name;
1891 #ifndef UTF2000
1892   CHARSET_REP_BYTES     (cs) = rep_bytes;
1893 #endif
1894   CHARSET_DIRECTION     (cs) = direction;
1895   CHARSET_TYPE          (cs) = type;
1896   CHARSET_COLUMNS       (cs) = columns;
1897   CHARSET_GRAPHIC       (cs) = graphic;
1898   CHARSET_FINAL         (cs) = final;
1899   CHARSET_DOC_STRING    (cs) = doc;
1900   CHARSET_REGISTRY      (cs) = reg;
1901   CHARSET_CCL_PROGRAM   (cs) = Qnil;
1902   CHARSET_REVERSE_DIRECTION_CHARSET (cs) = Qnil;
1903
1904   switch ( CHARSET_TYPE (cs) )
1905     {
1906     case CHARSET_TYPE_94:
1907       CHARSET_DIMENSION (cs) = 1;
1908       CHARSET_CHARS (cs) = 94;
1909       break;
1910     case CHARSET_TYPE_96:
1911       CHARSET_DIMENSION (cs) = 1;
1912       CHARSET_CHARS (cs) = 96;
1913       break;
1914     case CHARSET_TYPE_94X94:
1915       CHARSET_DIMENSION (cs) = 2;
1916       CHARSET_CHARS (cs) = 94;
1917       break;
1918     case CHARSET_TYPE_96X96:
1919       CHARSET_DIMENSION (cs) = 2;
1920       CHARSET_CHARS (cs) = 96;
1921       break;
1922 #ifdef UTF2000
1923     case CHARSET_TYPE_128X128:
1924       CHARSET_DIMENSION (cs) = 2;
1925       CHARSET_CHARS (cs) = 128;
1926       break;
1927     case CHARSET_TYPE_256X256:
1928       CHARSET_DIMENSION (cs) = 2;
1929       CHARSET_CHARS (cs) = 256;
1930       break;
1931 #endif
1932     }
1933
1934   if (final)
1935     {
1936       /* some charsets do not have final characters.  This includes
1937          ASCII, Control-1, Composite, and the two faux private
1938          charsets. */
1939 #if UTF2000
1940       assert (NILP (charset_by_attributes[type][final]));
1941       charset_by_attributes[type][final] = obj;
1942 #else
1943       assert (NILP (charset_by_attributes[type][final][direction]));
1944       charset_by_attributes[type][final][direction] = obj;
1945 #endif
1946     }
1947
1948   assert (NILP (charset_by_leading_byte[id - MIN_LEADING_BYTE]));
1949   charset_by_leading_byte[id - MIN_LEADING_BYTE] = obj;
1950 #ifndef UTF2000
1951   if (id < 0xA0)
1952     /* official leading byte */
1953     rep_bytes_by_first_byte[id] = rep_bytes;
1954 #endif
1955
1956   /* Some charsets are "faux" and don't have names or really exist at
1957      all except in the leading-byte table. */
1958   if (!NILP (name))
1959     Fputhash (name, obj, Vcharset_hash_table);
1960   return obj;
1961 }
1962
1963 static int
1964 get_unallocated_leading_byte (int dimension)
1965 {
1966   Charset_ID lb;
1967
1968   if (dimension == 1)
1969     {
1970       if (next_allocated_1_byte_leading_byte > MAX_LEADING_BYTE_PRIVATE_1)
1971         lb = 0;
1972       else
1973         lb = next_allocated_1_byte_leading_byte++;
1974     }
1975   else
1976     {
1977       if (next_allocated_2_byte_leading_byte > MAX_LEADING_BYTE_PRIVATE_2)
1978         lb = 0;
1979       else
1980         lb = next_allocated_2_byte_leading_byte++;
1981     }
1982
1983   if (!lb)
1984     signal_simple_error
1985       ("No more character sets free for this dimension",
1986        make_int (dimension));
1987
1988   return lb;
1989 }
1990
1991 \f
1992 /************************************************************************/
1993 /*                      Basic charset Lisp functions                    */
1994 /************************************************************************/
1995
1996 DEFUN ("charsetp", Fcharsetp, 1, 1, 0, /*
1997 Return non-nil if OBJECT is a charset.
1998 */
1999        (object))
2000 {
2001   return CHARSETP (object) ? Qt : Qnil;
2002 }
2003
2004 DEFUN ("find-charset", Ffind_charset, 1, 1, 0, /*
2005 Retrieve the charset of the given name.
2006 If CHARSET-OR-NAME is a charset object, it is simply returned.
2007 Otherwise, CHARSET-OR-NAME should be a symbol.  If there is no such charset,
2008 nil is returned.  Otherwise the associated charset object is returned.
2009 */
2010        (charset_or_name))
2011 {
2012   if (CHARSETP (charset_or_name))
2013     return charset_or_name;
2014
2015   CHECK_SYMBOL (charset_or_name);
2016   return Fgethash (charset_or_name, Vcharset_hash_table, Qnil);
2017 }
2018
2019 DEFUN ("get-charset", Fget_charset, 1, 1, 0, /*
2020 Retrieve the charset of the given name.
2021 Same as `find-charset' except an error is signalled if there is no such
2022 charset instead of returning nil.
2023 */
2024        (name))
2025 {
2026   Lisp_Object charset = Ffind_charset (name);
2027
2028   if (NILP (charset))
2029     signal_simple_error ("No such charset", name);
2030   return charset;
2031 }
2032
2033 /* We store the charsets in hash tables with the names as the key and the
2034    actual charset object as the value.  Occasionally we need to use them
2035    in a list format.  These routines provide us with that. */
2036 struct charset_list_closure
2037 {
2038   Lisp_Object *charset_list;
2039 };
2040
2041 static int
2042 add_charset_to_list_mapper (Lisp_Object key, Lisp_Object value,
2043                             void *charset_list_closure)
2044 {
2045   /* This function can GC */
2046   struct charset_list_closure *chcl =
2047     (struct charset_list_closure*) charset_list_closure;
2048   Lisp_Object *charset_list = chcl->charset_list;
2049
2050   *charset_list = Fcons (XCHARSET_NAME (value), *charset_list);
2051   return 0;
2052 }
2053
2054 DEFUN ("charset-list", Fcharset_list, 0, 0, 0, /*
2055 Return a list of the names of all defined charsets.
2056 */
2057        ())
2058 {
2059   Lisp_Object charset_list = Qnil;
2060   struct gcpro gcpro1;
2061   struct charset_list_closure charset_list_closure;
2062
2063   GCPRO1 (charset_list);
2064   charset_list_closure.charset_list = &charset_list;
2065   elisp_maphash (add_charset_to_list_mapper, Vcharset_hash_table,
2066                  &charset_list_closure);
2067   UNGCPRO;
2068
2069   return charset_list;
2070 }
2071
2072 DEFUN ("charset-name", Fcharset_name, 1, 1, 0, /*
2073 Return the name of the given charset.
2074 */
2075        (charset))
2076 {
2077   return XCHARSET_NAME (Fget_charset (charset));
2078 }
2079
2080 DEFUN ("make-charset", Fmake_charset, 3, 3, 0, /*
2081 Define a new character set.
2082 This function is for use with Mule support.
2083 NAME is a symbol, the name by which the character set is normally referred.
2084 DOC-STRING is a string describing the character set.
2085 PROPS is a property list, describing the specific nature of the
2086 character set.  Recognized properties are:
2087
2088 'short-name     Short version of the charset name (ex: Latin-1)
2089 'long-name      Long version of the charset name (ex: ISO8859-1 (Latin-1))
2090 'registry       A regular expression matching the font registry field for
2091                 this character set.
2092 'dimension      Number of octets used to index a character in this charset.
2093                 Either 1 or 2.  Defaults to 1.
2094 'columns        Number of columns used to display a character in this charset.
2095                 Only used in TTY mode. (Under X, the actual width of a
2096                 character can be derived from the font used to display the
2097                 characters.) If unspecified, defaults to the dimension
2098                 (this is almost always the correct value).
2099 'chars          Number of characters in each dimension (94 or 96).
2100                 Defaults to 94.  Note that if the dimension is 2, the
2101                 character set thus described is 94x94 or 96x96.
2102 'final          Final byte of ISO 2022 escape sequence.  Must be
2103                 supplied.  Each combination of (DIMENSION, CHARS) defines a
2104                 separate namespace for final bytes.  Note that ISO
2105                 2022 restricts the final byte to the range
2106                 0x30 - 0x7E if dimension == 1, and 0x30 - 0x5F if
2107                 dimension == 2.  Note also that final bytes in the range
2108                 0x30 - 0x3F are reserved for user-defined (not official)
2109                 character sets.
2110 'graphic        0 (use left half of font on output) or 1 (use right half
2111                 of font on output).  Defaults to 0.  For example, for
2112                 a font whose registry is ISO8859-1, the left half
2113                 (octets 0x20 - 0x7F) is the `ascii' character set, while
2114                 the right half (octets 0xA0 - 0xFF) is the `latin-1'
2115                 character set.  With 'graphic set to 0, the octets
2116                 will have their high bit cleared; with it set to 1,
2117                 the octets will have their high bit set.
2118 'direction      'l2r (left-to-right) or 'r2l (right-to-left).
2119                 Defaults to 'l2r.
2120 'ccl-program    A compiled CCL program used to convert a character in
2121                 this charset into an index into the font.  This is in
2122                 addition to the 'graphic property.  The CCL program
2123                 is passed the octets of the character, with the high
2124                 bit cleared and set depending upon whether the value
2125                 of the 'graphic property is 0 or 1.
2126 */
2127        (name, doc_string, props))
2128 {
2129   int id, dimension = 1, chars = 94, graphic = 0, final = 0, columns = -1;
2130   int direction = CHARSET_LEFT_TO_RIGHT;
2131   int type;
2132   Lisp_Object registry = Qnil;
2133   Lisp_Object charset;
2134   Lisp_Object rest, keyword, value;
2135   Lisp_Object ccl_program = Qnil;
2136   Lisp_Object short_name = Qnil, long_name = Qnil;
2137
2138   CHECK_SYMBOL (name);
2139   if (!NILP (doc_string))
2140     CHECK_STRING (doc_string);
2141
2142   charset = Ffind_charset (name);
2143   if (!NILP (charset))
2144     signal_simple_error ("Cannot redefine existing charset", name);
2145
2146   EXTERNAL_PROPERTY_LIST_LOOP (rest, keyword, value, props)
2147     {
2148       if (EQ (keyword, Qshort_name))
2149         {
2150           CHECK_STRING (value);
2151           short_name = value;
2152         }
2153
2154       if (EQ (keyword, Qlong_name))
2155         {
2156           CHECK_STRING (value);
2157           long_name = value;
2158         }
2159
2160       else if (EQ (keyword, Qdimension))
2161         {
2162           CHECK_INT (value);
2163           dimension = XINT (value);
2164           if (dimension < 1 || dimension > 2)
2165             signal_simple_error ("Invalid value for 'dimension", value);
2166         }
2167
2168       else if (EQ (keyword, Qchars))
2169         {
2170           CHECK_INT (value);
2171           chars = XINT (value);
2172           if (chars != 94 && chars != 96)
2173             signal_simple_error ("Invalid value for 'chars", value);
2174         }
2175
2176       else if (EQ (keyword, Qcolumns))
2177         {
2178           CHECK_INT (value);
2179           columns = XINT (value);
2180           if (columns != 1 && columns != 2)
2181             signal_simple_error ("Invalid value for 'columns", value);
2182         }
2183
2184       else if (EQ (keyword, Qgraphic))
2185         {
2186           CHECK_INT (value);
2187           graphic = XINT (value);
2188           if (graphic < 0 || graphic > 1)
2189             signal_simple_error ("Invalid value for 'graphic", value);
2190         }
2191
2192       else if (EQ (keyword, Qregistry))
2193         {
2194           CHECK_STRING (value);
2195           registry = value;
2196         }
2197
2198       else if (EQ (keyword, Qdirection))
2199         {
2200           if (EQ (value, Ql2r))
2201             direction = CHARSET_LEFT_TO_RIGHT;
2202           else if (EQ (value, Qr2l))
2203             direction = CHARSET_RIGHT_TO_LEFT;
2204           else
2205             signal_simple_error ("Invalid value for 'direction", value);
2206         }
2207
2208       else if (EQ (keyword, Qfinal))
2209         {
2210           CHECK_CHAR_COERCE_INT (value);
2211           final = XCHAR (value);
2212           if (final < '0' || final > '~')
2213             signal_simple_error ("Invalid value for 'final", value);
2214         }
2215
2216       else if (EQ (keyword, Qccl_program))
2217         {
2218           CHECK_VECTOR (value);
2219           ccl_program = value;
2220         }
2221
2222       else
2223         signal_simple_error ("Unrecognized property", keyword);
2224     }
2225
2226   if (!final)
2227     error ("'final must be specified");
2228   if (dimension == 2 && final > 0x5F)
2229     signal_simple_error
2230       ("Final must be in the range 0x30 - 0x5F for dimension == 2",
2231        make_char (final));
2232
2233   if (dimension == 1)
2234     type = (chars == 94) ? CHARSET_TYPE_94    : CHARSET_TYPE_96;
2235   else
2236     type = (chars == 94) ? CHARSET_TYPE_94X94 : CHARSET_TYPE_96X96;
2237
2238   if (!NILP (CHARSET_BY_ATTRIBUTES (type, final, CHARSET_LEFT_TO_RIGHT)) ||
2239       !NILP (CHARSET_BY_ATTRIBUTES (type, final, CHARSET_RIGHT_TO_LEFT)))
2240     error
2241       ("Character set already defined for this DIMENSION/CHARS/FINAL combo");
2242
2243 #ifdef UTF2000
2244   if (dimension == 1)
2245     {
2246       if (chars == 94)
2247         {
2248           /* id = CHARSET_ID_OFFSET_94 + final; */
2249           id = get_unallocated_leading_byte (dimension);
2250         }
2251       else if (chars == 96)
2252         {
2253           id = get_unallocated_leading_byte (dimension);
2254         }
2255       else
2256         {
2257           abort ();
2258         }
2259     }
2260   else if (dimension == 2)
2261     {
2262       if (chars == 94)
2263         {
2264           id = get_unallocated_leading_byte (dimension);
2265         }
2266       else if (chars == 96)
2267         {
2268           id = get_unallocated_leading_byte (dimension);
2269         }
2270       else
2271         {
2272           abort ();
2273         }
2274     }
2275   else
2276     {
2277       abort ();
2278     }
2279 #else
2280   id = get_unallocated_leading_byte (dimension);
2281 #endif
2282
2283   if (NILP (doc_string))
2284     doc_string = build_string ("");
2285
2286   if (NILP (registry))
2287     registry = build_string ("");
2288
2289   if (NILP (short_name))
2290     XSETSTRING (short_name, XSYMBOL (name)->name);
2291
2292   if (NILP (long_name))
2293     long_name = doc_string;
2294
2295   if (columns == -1)
2296     columns = dimension;
2297   charset = make_charset (id, name, dimension + 2, type, columns, graphic,
2298                           final, direction, short_name, long_name, doc_string, registry);
2299   if (!NILP (ccl_program))
2300     XCHARSET_CCL_PROGRAM (charset) = ccl_program;
2301   return charset;
2302 }
2303
2304 DEFUN ("make-reverse-direction-charset", Fmake_reverse_direction_charset,
2305        2, 2, 0, /*
2306 Make a charset equivalent to CHARSET but which goes in the opposite direction.
2307 NEW-NAME is the name of the new charset.  Return the new charset.
2308 */
2309        (charset, new_name))
2310 {
2311   Lisp_Object new_charset = Qnil;
2312   int id, dimension, columns, graphic, final;
2313   int direction, type;
2314   Lisp_Object registry, doc_string, short_name, long_name;
2315   struct Lisp_Charset *cs;
2316
2317   charset = Fget_charset (charset);
2318   if (!NILP (XCHARSET_REVERSE_DIRECTION_CHARSET (charset)))
2319     signal_simple_error ("Charset already has reverse-direction charset",
2320                          charset);
2321
2322   CHECK_SYMBOL (new_name);
2323   if (!NILP (Ffind_charset (new_name)))
2324     signal_simple_error ("Cannot redefine existing charset", new_name);
2325
2326   cs = XCHARSET (charset);
2327
2328   type      = CHARSET_TYPE      (cs);
2329   columns   = CHARSET_COLUMNS   (cs);
2330   dimension = CHARSET_DIMENSION (cs);
2331   id = get_unallocated_leading_byte (dimension);
2332
2333   graphic = CHARSET_GRAPHIC (cs);
2334   final = CHARSET_FINAL (cs);
2335   direction = CHARSET_RIGHT_TO_LEFT;
2336   if (CHARSET_DIRECTION (cs) == CHARSET_RIGHT_TO_LEFT)
2337     direction = CHARSET_LEFT_TO_RIGHT;
2338   doc_string = CHARSET_DOC_STRING (cs);
2339   short_name = CHARSET_SHORT_NAME (cs);
2340   long_name = CHARSET_LONG_NAME (cs);
2341   registry = CHARSET_REGISTRY (cs);
2342
2343   new_charset = make_charset (id, new_name, dimension + 2, type, columns,
2344                               graphic, final, direction, short_name, long_name,
2345                               doc_string, registry);
2346
2347   CHARSET_REVERSE_DIRECTION_CHARSET (cs) = new_charset;
2348   XCHARSET_REVERSE_DIRECTION_CHARSET (new_charset) = charset;
2349
2350   return new_charset;
2351 }
2352
2353 /* #### Reverse direction charsets not yet implemented.  */
2354 #if 0
2355 DEFUN ("charset-reverse-direction-charset", Fcharset_reverse_direction_charset,
2356        1, 1, 0, /*
2357 Return the reverse-direction charset parallel to CHARSET, if any.
2358 This is the charset with the same properties (in particular, the same
2359 dimension, number of characters per dimension, and final byte) as
2360 CHARSET but whose characters are displayed in the opposite direction.
2361 */
2362        (charset))
2363 {
2364   charset = Fget_charset (charset);
2365   return XCHARSET_REVERSE_DIRECTION_CHARSET (charset);
2366 }
2367 #endif
2368
2369 DEFUN ("charset-from-attributes", Fcharset_from_attributes, 3, 4, 0, /*
2370 Return a charset with the given DIMENSION, CHARS, FINAL, and DIRECTION.
2371 If DIRECTION is omitted, both directions will be checked (left-to-right
2372 will be returned if character sets exist for both directions).
2373 */
2374        (dimension, chars, final, direction))
2375 {
2376   int dm, ch, fi, di = -1;
2377   int type;
2378   Lisp_Object obj = Qnil;
2379
2380   CHECK_INT (dimension);
2381   dm = XINT (dimension);
2382   if (dm < 1 || dm > 2)
2383     signal_simple_error ("Invalid value for DIMENSION", dimension);
2384
2385   CHECK_INT (chars);
2386   ch = XINT (chars);
2387   if (ch != 94 && ch != 96)
2388     signal_simple_error ("Invalid value for CHARS", chars);
2389
2390   CHECK_CHAR_COERCE_INT (final);
2391   fi = XCHAR (final);
2392   if (fi < '0' || fi > '~')
2393     signal_simple_error ("Invalid value for FINAL", final);
2394
2395   if (EQ (direction, Ql2r))
2396     di = CHARSET_LEFT_TO_RIGHT;
2397   else if (EQ (direction, Qr2l))
2398     di = CHARSET_RIGHT_TO_LEFT;
2399   else if (!NILP (direction))
2400     signal_simple_error ("Invalid value for DIRECTION", direction);
2401
2402   if (dm == 2 && fi > 0x5F)
2403     signal_simple_error
2404       ("Final must be in the range 0x30 - 0x5F for dimension == 2", final);
2405
2406   if (dm == 1)
2407     type = (ch == 94) ? CHARSET_TYPE_94    : CHARSET_TYPE_96;
2408   else
2409     type = (ch == 94) ? CHARSET_TYPE_94X94 : CHARSET_TYPE_96X96;
2410
2411   if (di == -1)
2412     {
2413       obj = CHARSET_BY_ATTRIBUTES (type, fi, CHARSET_LEFT_TO_RIGHT);
2414       if (NILP (obj))
2415         obj = CHARSET_BY_ATTRIBUTES (type, fi, CHARSET_RIGHT_TO_LEFT);
2416     }
2417   else
2418     obj = CHARSET_BY_ATTRIBUTES (type, fi, di);
2419
2420   if (CHARSETP (obj))
2421     return XCHARSET_NAME (obj);
2422   return obj;
2423 }
2424
2425 DEFUN ("charset-short-name", Fcharset_short_name, 1, 1, 0, /*
2426 Return short name of CHARSET.
2427 */
2428        (charset))
2429 {
2430   return XCHARSET_SHORT_NAME (Fget_charset (charset));
2431 }
2432
2433 DEFUN ("charset-long-name", Fcharset_long_name, 1, 1, 0, /*
2434 Return long name of CHARSET.
2435 */
2436        (charset))
2437 {
2438   return XCHARSET_LONG_NAME (Fget_charset (charset));
2439 }
2440
2441 DEFUN ("charset-description", Fcharset_description, 1, 1, 0, /*
2442 Return description of CHARSET.
2443 */
2444        (charset))
2445 {
2446   return XCHARSET_DOC_STRING (Fget_charset (charset));
2447 }
2448
2449 DEFUN ("charset-dimension", Fcharset_dimension, 1, 1, 0, /*
2450 Return dimension of CHARSET.
2451 */
2452        (charset))
2453 {
2454   return make_int (XCHARSET_DIMENSION (Fget_charset (charset)));
2455 }
2456
2457 DEFUN ("charset-property", Fcharset_property, 2, 2, 0, /*
2458 Return property PROP of CHARSET.
2459 Recognized properties are those listed in `make-charset', as well as
2460 'name and 'doc-string.
2461 */
2462        (charset, prop))
2463 {
2464   struct Lisp_Charset *cs;
2465
2466   charset = Fget_charset (charset);
2467   cs = XCHARSET (charset);
2468
2469   CHECK_SYMBOL (prop);
2470   if (EQ (prop, Qname))        return CHARSET_NAME (cs);
2471   if (EQ (prop, Qshort_name))  return CHARSET_SHORT_NAME (cs);
2472   if (EQ (prop, Qlong_name))   return CHARSET_LONG_NAME (cs);
2473   if (EQ (prop, Qdoc_string))  return CHARSET_DOC_STRING (cs);
2474   if (EQ (prop, Qdimension))   return make_int (CHARSET_DIMENSION (cs));
2475   if (EQ (prop, Qcolumns))     return make_int (CHARSET_COLUMNS (cs));
2476   if (EQ (prop, Qgraphic))     return make_int (CHARSET_GRAPHIC (cs));
2477   if (EQ (prop, Qfinal))       return make_char (CHARSET_FINAL (cs));
2478   if (EQ (prop, Qchars))       return make_int (CHARSET_CHARS (cs));
2479   if (EQ (prop, Qregistry))    return CHARSET_REGISTRY (cs);
2480   if (EQ (prop, Qccl_program)) return CHARSET_CCL_PROGRAM (cs);
2481   if (EQ (prop, Qdirection))
2482     return CHARSET_DIRECTION (cs) == CHARSET_LEFT_TO_RIGHT ? Ql2r : Qr2l;
2483   if (EQ (prop, Qreverse_direction_charset))
2484     {
2485       Lisp_Object obj = CHARSET_REVERSE_DIRECTION_CHARSET (cs);
2486       if (NILP (obj))
2487         return Qnil;
2488       else
2489         return XCHARSET_NAME (obj);
2490     }
2491   signal_simple_error ("Unrecognized charset property name", prop);
2492   return Qnil; /* not reached */
2493 }
2494
2495 DEFUN ("charset-id", Fcharset_id, 1, 1, 0, /*
2496 Return charset identification number of CHARSET.
2497 */
2498         (charset))
2499 {
2500   return make_int(XCHARSET_LEADING_BYTE (Fget_charset (charset)));
2501 }
2502
2503 /* #### We need to figure out which properties we really want to
2504    allow to be set. */
2505
2506 DEFUN ("set-charset-ccl-program", Fset_charset_ccl_program, 2, 2, 0, /*
2507 Set the 'ccl-program property of CHARSET to CCL-PROGRAM.
2508 */
2509        (charset, ccl_program))
2510 {
2511   charset = Fget_charset (charset);
2512   CHECK_VECTOR (ccl_program);
2513   XCHARSET_CCL_PROGRAM (charset) = ccl_program;
2514   return Qnil;
2515 }
2516
2517 static void
2518 invalidate_charset_font_caches (Lisp_Object charset)
2519 {
2520   /* Invalidate font cache entries for charset on all devices. */
2521   Lisp_Object devcons, concons, hash_table;
2522   DEVICE_LOOP_NO_BREAK (devcons, concons)
2523     {
2524       struct device *d = XDEVICE (XCAR (devcons));
2525       hash_table = Fgethash (charset, d->charset_font_cache, Qunbound);
2526       if (!UNBOUNDP (hash_table))
2527         Fclrhash (hash_table);
2528     }
2529 }
2530
2531 /* Japanese folks may want to (set-charset-registry 'ascii "jisx0201") */
2532 DEFUN ("set-charset-registry", Fset_charset_registry, 2, 2, 0, /*
2533 Set the 'registry property of CHARSET to REGISTRY.
2534 */
2535        (charset, registry))
2536 {
2537   charset = Fget_charset (charset);
2538   CHECK_STRING (registry);
2539   XCHARSET_REGISTRY (charset) = registry;
2540   invalidate_charset_font_caches (charset);
2541   face_property_was_changed (Vdefault_face, Qfont, Qglobal);
2542   return Qnil;
2543 }
2544
2545 \f
2546 /************************************************************************/
2547 /*              Lisp primitives for working with characters             */
2548 /************************************************************************/
2549
2550 DEFUN ("make-char", Fmake_char, 2, 3, 0, /*
2551 Make a character from CHARSET and octets ARG1 and ARG2.
2552 ARG2 is required only for characters from two-dimensional charsets.
2553 For example, (make-char 'latin-iso8859-2 185) will return the Latin 2
2554 character s with caron.
2555 */
2556        (charset, arg1, arg2))
2557 {
2558   struct Lisp_Charset *cs;
2559   int a1, a2;
2560   int lowlim, highlim;
2561
2562   charset = Fget_charset (charset);
2563   cs = XCHARSET (charset);
2564
2565   if      (EQ (charset, Vcharset_ascii))     lowlim =  0, highlim = 127;
2566   else if (EQ (charset, Vcharset_control_1)) lowlim =  0, highlim =  31;
2567 #ifdef UTF2000
2568   else if (CHARSET_CHARS (cs) == 256)        lowlim =  0, highlim = 255;
2569 #endif
2570   else if (CHARSET_CHARS (cs) == 94)         lowlim = 33, highlim = 126;
2571   else  /* CHARSET_CHARS (cs) == 96) */      lowlim = 32, highlim = 127;
2572
2573   CHECK_INT (arg1);
2574   /* It is useful (and safe, according to Olivier Galibert) to strip
2575      the 8th bit off ARG1 and ARG2 becaue it allows programmers to
2576      write (make-char 'latin-iso8859-2 CODE) where code is the actual
2577      Latin 2 code of the character.  */
2578 #ifdef UTF2000
2579   a1 = XINT (arg1);
2580   if (highlim < 128)
2581     a1 &= 0x7f;
2582 #else
2583   a1 = XINT (arg1);
2584 #endif
2585   if (a1 < lowlim || a1 > highlim)
2586     args_out_of_range_3 (arg1, make_int (lowlim), make_int (highlim));
2587
2588   if (CHARSET_DIMENSION (cs) == 1)
2589     {
2590       if (!NILP (arg2))
2591         signal_simple_error
2592           ("Charset is of dimension one; second octet must be nil", arg2);
2593       return make_char (MAKE_CHAR (charset, a1, 0));
2594     }
2595
2596   CHECK_INT (arg2);
2597 #ifdef UTF2000
2598   a2 = XINT (arg2);
2599   if (highlim < 128)
2600     a2 &= 0x7f;
2601 #else
2602   a2 = XINT (arg2) & 0x7f;
2603 #endif
2604   if (a2 < lowlim || a2 > highlim)
2605     args_out_of_range_3 (arg2, make_int (lowlim), make_int (highlim));
2606
2607   return make_char (MAKE_CHAR (charset, a1, a2));
2608 }
2609
2610 DEFUN ("char-charset", Fchar_charset, 1, 1, 0, /*
2611 Return the character set of char CH.
2612 */
2613        (ch))
2614 {
2615   CHECK_CHAR_COERCE_INT (ch);
2616
2617   return XCHARSET_NAME (CHAR_CHARSET (XCHAR (ch)));
2618 }
2619
2620 DEFUN ("split-char", Fsplit_char, 1, 1, 0, /*
2621 Return list of charset and one or two position-codes of CHAR.
2622 */
2623        (character))
2624 {
2625   /* This function can GC */
2626   struct gcpro gcpro1, gcpro2;
2627   Lisp_Object charset = Qnil;
2628   Lisp_Object rc = Qnil;
2629   int c1, c2;
2630
2631   GCPRO2 (charset, rc);
2632   CHECK_CHAR_COERCE_INT (character);
2633
2634   BREAKUP_CHAR (XCHAR (character), charset, c1, c2);
2635
2636   if (XCHARSET_DIMENSION (Fget_charset (charset)) == 2)
2637     {
2638       rc = list3 (XCHARSET_NAME (charset), make_int (c1), make_int (c2));
2639     }
2640   else
2641     {
2642       rc = list2 (XCHARSET_NAME (charset), make_int (c1));
2643     }
2644   UNGCPRO;
2645
2646   return rc;
2647 }
2648
2649 \f
2650 #ifdef ENABLE_COMPOSITE_CHARS
2651 /************************************************************************/
2652 /*                     composite character functions                    */
2653 /************************************************************************/
2654
2655 Emchar
2656 lookup_composite_char (Bufbyte *str, int len)
2657 {
2658   Lisp_Object lispstr = make_string (str, len);
2659   Lisp_Object ch = Fgethash (lispstr,
2660                              Vcomposite_char_string2char_hash_table,
2661                              Qunbound);
2662   Emchar emch;
2663
2664   if (UNBOUNDP (ch))
2665     {
2666       if (composite_char_row_next >= 128)
2667         signal_simple_error ("No more composite chars available", lispstr);
2668       emch = MAKE_CHAR (Vcharset_composite, composite_char_row_next,
2669                         composite_char_col_next);
2670       Fputhash (make_char (emch), lispstr,
2671                 Vcomposite_char_char2string_hash_table);
2672       Fputhash (lispstr, make_char (emch),
2673                 Vcomposite_char_string2char_hash_table);
2674       composite_char_col_next++;
2675       if (composite_char_col_next >= 128)
2676         {
2677           composite_char_col_next = 32;
2678           composite_char_row_next++;
2679         }
2680     }
2681   else
2682     emch = XCHAR (ch);
2683   return emch;
2684 }
2685
2686 Lisp_Object
2687 composite_char_string (Emchar ch)
2688 {
2689   Lisp_Object str = Fgethash (make_char (ch),
2690                               Vcomposite_char_char2string_hash_table,
2691                               Qunbound);
2692   assert (!UNBOUNDP (str));
2693   return str;
2694 }
2695
2696 xxDEFUN ("make-composite-char", Fmake_composite_char, 1, 1, 0, /*
2697 Convert a string into a single composite character.
2698 The character is the result of overstriking all the characters in
2699 the string.
2700 */
2701        (string))
2702 {
2703   CHECK_STRING (string);
2704   return make_char (lookup_composite_char (XSTRING_DATA (string),
2705                                            XSTRING_LENGTH (string)));
2706 }
2707
2708 xxDEFUN ("composite-char-string", Fcomposite_char_string, 1, 1, 0, /*
2709 Return a string of the characters comprising a composite character.
2710 */
2711        (ch))
2712 {
2713   Emchar emch;
2714
2715   CHECK_CHAR (ch);
2716   emch = XCHAR (ch);
2717   if (CHAR_LEADING_BYTE (emch) != LEADING_BYTE_COMPOSITE)
2718     signal_simple_error ("Must be composite char", ch);
2719   return composite_char_string (emch);
2720 }
2721 #endif /* ENABLE_COMPOSITE_CHARS */
2722
2723 \f
2724 /************************************************************************/
2725 /*                            initialization                            */
2726 /************************************************************************/
2727
2728 void
2729 syms_of_mule_charset (void)
2730 {
2731   DEFSUBR (Fcharsetp);
2732   DEFSUBR (Ffind_charset);
2733   DEFSUBR (Fget_charset);
2734   DEFSUBR (Fcharset_list);
2735   DEFSUBR (Fcharset_name);
2736   DEFSUBR (Fmake_charset);
2737   DEFSUBR (Fmake_reverse_direction_charset);
2738   /*  DEFSUBR (Freverse_direction_charset); */
2739   DEFSUBR (Fcharset_from_attributes);
2740   DEFSUBR (Fcharset_short_name);
2741   DEFSUBR (Fcharset_long_name);
2742   DEFSUBR (Fcharset_description);
2743   DEFSUBR (Fcharset_dimension);
2744   DEFSUBR (Fcharset_property);
2745   DEFSUBR (Fcharset_id);
2746   DEFSUBR (Fset_charset_ccl_program);
2747   DEFSUBR (Fset_charset_registry);
2748
2749   DEFSUBR (Fmake_char);
2750   DEFSUBR (Fchar_charset);
2751   DEFSUBR (Fsplit_char);
2752
2753 #ifdef ENABLE_COMPOSITE_CHARS
2754   DEFSUBR (Fmake_composite_char);
2755   DEFSUBR (Fcomposite_char_string);
2756 #endif
2757
2758   defsymbol (&Qcharsetp, "charsetp");
2759   defsymbol (&Qregistry, "registry");
2760   defsymbol (&Qfinal, "final");
2761   defsymbol (&Qgraphic, "graphic");
2762   defsymbol (&Qdirection, "direction");
2763   defsymbol (&Qreverse_direction_charset, "reverse-direction-charset");
2764   defsymbol (&Qshort_name, "short-name");
2765   defsymbol (&Qlong_name, "long-name");
2766
2767   defsymbol (&Ql2r, "l2r");
2768   defsymbol (&Qr2l, "r2l");
2769
2770   /* Charsets, compatible with FSF 20.3
2771      Naming convention is Script-Charset[-Edition] */
2772   defsymbol (&Qascii,                   "ascii");
2773   defsymbol (&Qcontrol_1,               "control-1");
2774   defsymbol (&Qlatin_iso8859_1,         "latin-iso8859-1");
2775   defsymbol (&Qlatin_iso8859_2,         "latin-iso8859-2");
2776   defsymbol (&Qlatin_iso8859_3,         "latin-iso8859-3");
2777   defsymbol (&Qlatin_iso8859_4,         "latin-iso8859-4");
2778   defsymbol (&Qthai_tis620,             "thai-tis620");
2779   defsymbol (&Qgreek_iso8859_7,         "greek-iso8859-7");
2780   defsymbol (&Qarabic_iso8859_6,        "arabic-iso8859-6");
2781   defsymbol (&Qhebrew_iso8859_8,        "hebrew-iso8859-8");
2782   defsymbol (&Qkatakana_jisx0201,       "katakana-jisx0201");
2783   defsymbol (&Qlatin_jisx0201,          "latin-jisx0201");
2784   defsymbol (&Qcyrillic_iso8859_5,      "cyrillic-iso8859-5");
2785   defsymbol (&Qlatin_iso8859_9,         "latin-iso8859-9");
2786   defsymbol (&Qjapanese_jisx0208_1978,  "japanese-jisx0208-1978");
2787   defsymbol (&Qchinese_gb2312,          "chinese-gb2312");
2788   defsymbol (&Qjapanese_jisx0208,       "japanese-jisx0208");
2789   defsymbol (&Qkorean_ksc5601,          "korean-ksc5601");
2790   defsymbol (&Qjapanese_jisx0212,       "japanese-jisx0212");
2791   defsymbol (&Qchinese_cns11643_1,      "chinese-cns11643-1");
2792   defsymbol (&Qchinese_cns11643_2,      "chinese-cns11643-2");
2793 #ifdef UTF2000
2794   defsymbol (&Qchinese_cns11643_3,      "chinese-cns11643-3");
2795   defsymbol (&Qchinese_cns11643_4,      "chinese-cns11643-4");
2796   defsymbol (&Qchinese_cns11643_5,      "chinese-cns11643-5");
2797   defsymbol (&Qchinese_cns11643_6,      "chinese-cns11643-6");
2798   defsymbol (&Qchinese_cns11643_7,      "chinese-cns11643-7");
2799   defsymbol (&Qucs_bmp,                 "ucs-bmp");
2800   defsymbol (&Qlatin_viscii_lower,      "vietnamese-viscii-lower");
2801   defsymbol (&Qlatin_viscii_upper,      "vietnamese-viscii-upper");
2802 #endif
2803   defsymbol (&Qchinese_big5_1,          "chinese-big5-1");
2804   defsymbol (&Qchinese_big5_2,          "chinese-big5-2");
2805
2806   defsymbol (&Qcomposite,               "composite");
2807 }
2808
2809 void
2810 vars_of_mule_charset (void)
2811 {
2812   int i, j;
2813 #ifndef UTF2000
2814   int k;
2815 #endif
2816
2817   /* Table of charsets indexed by leading byte. */
2818   for (i = 0; i < countof (charset_by_leading_byte); i++)
2819     charset_by_leading_byte[i] = Qnil;
2820
2821 #ifdef UTF2000
2822   /* Table of charsets indexed by type/final-byte. */
2823   for (i = 0; i < countof (charset_by_attributes); i++)
2824     for (j = 0; j < countof (charset_by_attributes[0]); j++)
2825         charset_by_attributes[i][j] = Qnil;
2826 #else
2827   /* Table of charsets indexed by type/final-byte/direction. */
2828   for (i = 0; i < countof (charset_by_attributes); i++)
2829     for (j = 0; j < countof (charset_by_attributes[0]); j++)
2830       for (k = 0; k < countof (charset_by_attributes[0][0]); k++)
2831         charset_by_attributes[i][j][k] = Qnil;
2832 #endif
2833
2834   next_allocated_1_byte_leading_byte = MIN_LEADING_BYTE_PRIVATE_1;
2835 #ifdef UTF2000
2836   next_allocated_2_byte_leading_byte = LEADING_BYTE_CHINESE_BIG5_2 + 1;
2837 #else
2838   next_allocated_2_byte_leading_byte = MIN_LEADING_BYTE_PRIVATE_2;
2839 #endif
2840
2841 #ifndef UTF2000
2842   leading_code_private_11 = PRE_LEADING_BYTE_PRIVATE_1;
2843   DEFVAR_INT ("leading-code-private-11", &leading_code_private_11 /*
2844 Leading-code of private TYPE9N charset of column-width 1.
2845 */ );
2846   leading_code_private_11 = PRE_LEADING_BYTE_PRIVATE_1;
2847 #endif
2848
2849 #ifdef UTF2000
2850   Vutf_2000_version = build_string("0.6 (Tōbushijō-mae)");
2851   DEFVAR_LISP ("utf-2000-version", &Vutf_2000_version /*
2852 Version number of UTF-2000.
2853 */ );
2854 #endif
2855 }
2856
2857 void
2858 complex_vars_of_mule_charset (void)
2859 {
2860   staticpro (&Vcharset_hash_table);
2861   Vcharset_hash_table =
2862     make_lisp_hash_table (50, HASH_TABLE_NON_WEAK, HASH_TABLE_EQ);
2863
2864   /* Predefined character sets.  We store them into variables for
2865      ease of access. */
2866
2867 #ifdef UTF2000
2868   Vcharset_ucs_bmp =
2869     make_charset (LEADING_BYTE_UCS_BMP, Qucs_bmp, 1,
2870                   CHARSET_TYPE_256X256, 1, 0, 0,
2871                   CHARSET_LEFT_TO_RIGHT,
2872                   build_string ("BMP"),
2873                   build_string ("BMP"),
2874                   build_string ("BMP"),
2875                   build_string (""));
2876 #endif
2877   Vcharset_ascii =
2878     make_charset (LEADING_BYTE_ASCII, Qascii, 1,
2879                   CHARSET_TYPE_94, 1, 0, 'B',
2880                   CHARSET_LEFT_TO_RIGHT,
2881                   build_string ("ASCII"),
2882                   build_string ("ASCII)"),
2883                   build_string ("ASCII (ISO646 IRV)"),
2884                   build_string ("\\(iso8859-[0-9]*\\|-ascii\\)"));
2885   Vcharset_control_1 =
2886     make_charset (LEADING_BYTE_CONTROL_1, Qcontrol_1, 2,
2887                   CHARSET_TYPE_94, 1, 1, 0,
2888                   CHARSET_LEFT_TO_RIGHT,
2889                   build_string ("C1"),
2890                   build_string ("Control characters"),
2891                   build_string ("Control characters 128-191"),
2892                   build_string (""));
2893   Vcharset_latin_iso8859_1 =
2894     make_charset (LEADING_BYTE_LATIN_ISO8859_1, Qlatin_iso8859_1, 2,
2895                   CHARSET_TYPE_96, 1, 1, 'A',
2896                   CHARSET_LEFT_TO_RIGHT,
2897                   build_string ("Latin-1"),
2898                   build_string ("ISO8859-1 (Latin-1)"),
2899                   build_string ("ISO8859-1 (Latin-1)"),
2900                   build_string ("iso8859-1"));
2901   Vcharset_latin_iso8859_2 =
2902     make_charset (LEADING_BYTE_LATIN_ISO8859_2, Qlatin_iso8859_2, 2,
2903                   CHARSET_TYPE_96, 1, 1, 'B',
2904                   CHARSET_LEFT_TO_RIGHT,
2905                   build_string ("Latin-2"),
2906                   build_string ("ISO8859-2 (Latin-2)"),
2907                   build_string ("ISO8859-2 (Latin-2)"),
2908                   build_string ("iso8859-2"));
2909   Vcharset_latin_iso8859_3 =
2910     make_charset (LEADING_BYTE_LATIN_ISO8859_3, Qlatin_iso8859_3, 2,
2911                   CHARSET_TYPE_96, 1, 1, 'C',
2912                   CHARSET_LEFT_TO_RIGHT,
2913                   build_string ("Latin-3"),
2914                   build_string ("ISO8859-3 (Latin-3)"),
2915                   build_string ("ISO8859-3 (Latin-3)"),
2916                   build_string ("iso8859-3"));
2917   Vcharset_latin_iso8859_4 =
2918     make_charset (LEADING_BYTE_LATIN_ISO8859_4, Qlatin_iso8859_4, 2,
2919                   CHARSET_TYPE_96, 1, 1, 'D',
2920                   CHARSET_LEFT_TO_RIGHT,
2921                   build_string ("Latin-4"),
2922                   build_string ("ISO8859-4 (Latin-4)"),
2923                   build_string ("ISO8859-4 (Latin-4)"),
2924                   build_string ("iso8859-4"));
2925   Vcharset_thai_tis620 =
2926     make_charset (LEADING_BYTE_THAI_TIS620, Qthai_tis620, 2,
2927                   CHARSET_TYPE_96, 1, 1, 'T',
2928                   CHARSET_LEFT_TO_RIGHT,
2929                   build_string ("TIS620"),
2930                   build_string ("TIS620 (Thai)"),
2931                   build_string ("TIS620.2529 (Thai)"),
2932                   build_string ("tis620"));
2933   Vcharset_greek_iso8859_7 =
2934     make_charset (LEADING_BYTE_GREEK_ISO8859_7, Qgreek_iso8859_7, 2,
2935                   CHARSET_TYPE_96, 1, 1, 'F',
2936                   CHARSET_LEFT_TO_RIGHT,
2937                   build_string ("ISO8859-7"),
2938                   build_string ("ISO8859-7 (Greek)"),
2939                   build_string ("ISO8859-7 (Greek)"),
2940                   build_string ("iso8859-7"));
2941   Vcharset_arabic_iso8859_6 =
2942     make_charset (LEADING_BYTE_ARABIC_ISO8859_6, Qarabic_iso8859_6, 2,
2943                   CHARSET_TYPE_96, 1, 1, 'G',
2944                   CHARSET_RIGHT_TO_LEFT,
2945                   build_string ("ISO8859-6"),
2946                   build_string ("ISO8859-6 (Arabic)"),
2947                   build_string ("ISO8859-6 (Arabic)"),
2948                   build_string ("iso8859-6"));
2949   Vcharset_hebrew_iso8859_8 =
2950     make_charset (LEADING_BYTE_HEBREW_ISO8859_8, Qhebrew_iso8859_8, 2,
2951                   CHARSET_TYPE_96, 1, 1, 'H',
2952                   CHARSET_RIGHT_TO_LEFT,
2953                   build_string ("ISO8859-8"),
2954                   build_string ("ISO8859-8 (Hebrew)"),
2955                   build_string ("ISO8859-8 (Hebrew)"),
2956                   build_string ("iso8859-8"));
2957   Vcharset_katakana_jisx0201 =
2958     make_charset (LEADING_BYTE_KATAKANA_JISX0201, Qkatakana_jisx0201, 2,
2959                   CHARSET_TYPE_94, 1, 1, 'I',
2960                   CHARSET_LEFT_TO_RIGHT,
2961                   build_string ("JISX0201 Kana"),
2962                   build_string ("JISX0201.1976 (Japanese Kana)"),
2963                   build_string ("JISX0201.1976 Japanese Kana"),
2964                   build_string ("jisx0201.1976"));
2965   Vcharset_latin_jisx0201 =
2966     make_charset (LEADING_BYTE_LATIN_JISX0201, Qlatin_jisx0201, 2,
2967                   CHARSET_TYPE_94, 1, 0, 'J',
2968                   CHARSET_LEFT_TO_RIGHT,
2969                   build_string ("JISX0201 Roman"),
2970                   build_string ("JISX0201.1976 (Japanese Roman)"),
2971                   build_string ("JISX0201.1976 Japanese Roman"),
2972                   build_string ("jisx0201.1976"));
2973   Vcharset_cyrillic_iso8859_5 =
2974     make_charset (LEADING_BYTE_CYRILLIC_ISO8859_5, Qcyrillic_iso8859_5, 2,
2975                   CHARSET_TYPE_96, 1, 1, 'L',
2976                   CHARSET_LEFT_TO_RIGHT,
2977                   build_string ("ISO8859-5"),
2978                   build_string ("ISO8859-5 (Cyrillic)"),
2979                   build_string ("ISO8859-5 (Cyrillic)"),
2980                   build_string ("iso8859-5"));
2981   Vcharset_latin_iso8859_9 =
2982     make_charset (LEADING_BYTE_LATIN_ISO8859_9, Qlatin_iso8859_9, 2,
2983                   CHARSET_TYPE_96, 1, 1, 'M',
2984                   CHARSET_LEFT_TO_RIGHT,
2985                   build_string ("Latin-5"),
2986                   build_string ("ISO8859-9 (Latin-5)"),
2987                   build_string ("ISO8859-9 (Latin-5)"),
2988                   build_string ("iso8859-9"));
2989   Vcharset_japanese_jisx0208_1978 =
2990     make_charset (LEADING_BYTE_JAPANESE_JISX0208_1978, Qjapanese_jisx0208_1978, 3,
2991                   CHARSET_TYPE_94X94, 2, 0, '@',
2992                   CHARSET_LEFT_TO_RIGHT,
2993                   build_string ("JISX0208.1978"),
2994                   build_string ("JISX0208.1978 (Japanese)"),
2995                   build_string
2996                   ("JISX0208.1978 Japanese Kanji (so called \"old JIS\")"),
2997                   build_string ("\\(jisx0208\\|jisc6226\\)\\.1978"));
2998   Vcharset_chinese_gb2312 =
2999     make_charset (LEADING_BYTE_CHINESE_GB2312, Qchinese_gb2312, 3,
3000                   CHARSET_TYPE_94X94, 2, 0, 'A',
3001                   CHARSET_LEFT_TO_RIGHT,
3002                   build_string ("GB2312"),
3003                   build_string ("GB2312)"),
3004                   build_string ("GB2312 Chinese simplified"),
3005                   build_string ("gb2312"));
3006   Vcharset_japanese_jisx0208 =
3007     make_charset (LEADING_BYTE_JAPANESE_JISX0208, Qjapanese_jisx0208, 3,
3008                   CHARSET_TYPE_94X94, 2, 0, 'B',
3009                   CHARSET_LEFT_TO_RIGHT,
3010                   build_string ("JISX0208"),
3011                   build_string ("JISX0208.1983/1990 (Japanese)"),
3012                   build_string ("JISX0208.1983/1990 Japanese Kanji"),
3013                   build_string ("jisx0208.19\\(83\\|90\\)"));
3014   Vcharset_korean_ksc5601 =
3015     make_charset (LEADING_BYTE_KOREAN_KSC5601, Qkorean_ksc5601, 3,
3016                   CHARSET_TYPE_94X94, 2, 0, 'C',
3017                   CHARSET_LEFT_TO_RIGHT,
3018                   build_string ("KSC5601"),
3019                   build_string ("KSC5601 (Korean"),
3020                   build_string ("KSC5601 Korean Hangul and Hanja"),
3021                   build_string ("ksc5601"));
3022   Vcharset_japanese_jisx0212 =
3023     make_charset (LEADING_BYTE_JAPANESE_JISX0212, Qjapanese_jisx0212, 3,
3024                   CHARSET_TYPE_94X94, 2, 0, 'D',
3025                   CHARSET_LEFT_TO_RIGHT,
3026                   build_string ("JISX0212"),
3027                   build_string ("JISX0212 (Japanese)"),
3028                   build_string ("JISX0212 Japanese Supplement"),
3029                   build_string ("jisx0212"));
3030
3031 #define CHINESE_CNS_PLANE_RE(n) "cns11643[.-]\\(.*[.-]\\)?" n "$"
3032   Vcharset_chinese_cns11643_1 =
3033     make_charset (LEADING_BYTE_CHINESE_CNS11643_1, Qchinese_cns11643_1, 3,
3034                   CHARSET_TYPE_94X94, 2, 0, 'G',
3035                   CHARSET_LEFT_TO_RIGHT,
3036                   build_string ("CNS11643-1"),
3037                   build_string ("CNS11643-1 (Chinese traditional)"),
3038                   build_string
3039                   ("CNS 11643 Plane 1 Chinese traditional"),
3040                   build_string (CHINESE_CNS_PLANE_RE("1")));
3041   Vcharset_chinese_cns11643_2 =
3042     make_charset (LEADING_BYTE_CHINESE_CNS11643_2, Qchinese_cns11643_2, 3,
3043                   CHARSET_TYPE_94X94, 2, 0, 'H',
3044                   CHARSET_LEFT_TO_RIGHT,
3045                   build_string ("CNS11643-2"),
3046                   build_string ("CNS11643-2 (Chinese traditional)"),
3047                   build_string
3048                   ("CNS 11643 Plane 2 Chinese traditional"),
3049                   build_string (CHINESE_CNS_PLANE_RE("2")));
3050 #ifdef UTF2000
3051   Vcharset_chinese_cns11643_3 =
3052     make_charset (LEADING_BYTE_CHINESE_CNS11643_3, Qchinese_cns11643_3, 3,
3053                   CHARSET_TYPE_94X94, 2, 0, 'I',
3054                   CHARSET_LEFT_TO_RIGHT,
3055                   build_string ("CNS11643-3"),
3056                   build_string ("CNS11643-3 (Chinese traditional)"),
3057                   build_string
3058                   ("CNS 11643 Plane 3 Chinese traditional"),
3059                   build_string (CHINESE_CNS_PLANE_RE("3")));
3060   Vcharset_chinese_cns11643_4 =
3061     make_charset (LEADING_BYTE_CHINESE_CNS11643_4, Qchinese_cns11643_4, 3,
3062                   CHARSET_TYPE_94X94, 2, 0, 'J',
3063                   CHARSET_LEFT_TO_RIGHT,
3064                   build_string ("CNS11643-4"),
3065                   build_string ("CNS11643-4 (Chinese traditional)"),
3066                   build_string
3067                   ("CNS 11643 Plane 4 Chinese traditional"),
3068                   build_string (CHINESE_CNS_PLANE_RE("4")));
3069   Vcharset_chinese_cns11643_5 =
3070     make_charset (LEADING_BYTE_CHINESE_CNS11643_5, Qchinese_cns11643_5, 3,
3071                   CHARSET_TYPE_94X94, 2, 0, 'K',
3072                   CHARSET_LEFT_TO_RIGHT,
3073                   build_string ("CNS11643-5"),
3074                   build_string ("CNS11643-5 (Chinese traditional)"),
3075                   build_string
3076                   ("CNS 11643 Plane 5 Chinese traditional"),
3077                   build_string (CHINESE_CNS_PLANE_RE("5")));
3078   Vcharset_chinese_cns11643_6 =
3079     make_charset (LEADING_BYTE_CHINESE_CNS11643_6, Qchinese_cns11643_6, 3,
3080                   CHARSET_TYPE_94X94, 2, 0, 'L',
3081                   CHARSET_LEFT_TO_RIGHT,
3082                   build_string ("CNS11643-6"),
3083                   build_string ("CNS11643-6 (Chinese traditional)"),
3084                   build_string
3085                   ("CNS 11643 Plane 6 Chinese traditional"),
3086                   build_string (CHINESE_CNS_PLANE_RE("6")));
3087   Vcharset_chinese_cns11643_7 =
3088     make_charset (LEADING_BYTE_CHINESE_CNS11643_7, Qchinese_cns11643_7, 3,
3089                   CHARSET_TYPE_94X94, 2, 0, 'M',
3090                   CHARSET_LEFT_TO_RIGHT,
3091                   build_string ("CNS11643-7"),
3092                   build_string ("CNS11643-7 (Chinese traditional)"),
3093                   build_string
3094                   ("CNS 11643 Plane 7 Chinese traditional"),
3095                   build_string (CHINESE_CNS_PLANE_RE("7")));
3096   Vcharset_latin_viscii_lower =
3097     make_charset (LEADING_BYTE_LATIN_VISCII_LOWER, Qlatin_viscii_lower, 2,
3098                   CHARSET_TYPE_96, 1, 1, '1',
3099                   CHARSET_LEFT_TO_RIGHT,
3100                   build_string ("VISCII lower"),
3101                   build_string ("VISCII lower (Vietnamese)"),
3102                   build_string ("VISCII lower (Vietnamese)"),
3103                   build_string ("VISCII1.1"));
3104   Vcharset_latin_viscii_upper =
3105     make_charset (LEADING_BYTE_LATIN_VISCII_UPPER, Qlatin_viscii_upper, 2,
3106                   CHARSET_TYPE_96, 1, 1, '2',
3107                   CHARSET_LEFT_TO_RIGHT,
3108                   build_string ("VISCII upper"),
3109                   build_string ("VISCII upper (Vietnamese)"),
3110                   build_string ("VISCII upper (Vietnamese)"),
3111                   build_string ("VISCII1.1"));
3112 #endif
3113   Vcharset_chinese_big5_1 =
3114     make_charset (LEADING_BYTE_CHINESE_BIG5_1, Qchinese_big5_1, 3,
3115                   CHARSET_TYPE_94X94, 2, 0, '0',
3116                   CHARSET_LEFT_TO_RIGHT,
3117                   build_string ("Big5"),
3118                   build_string ("Big5 (Level-1)"),
3119                   build_string
3120                   ("Big5 Level-1 Chinese traditional"),
3121                   build_string ("big5"));
3122   Vcharset_chinese_big5_2 =
3123     make_charset (LEADING_BYTE_CHINESE_BIG5_2, Qchinese_big5_2, 3,
3124                   CHARSET_TYPE_94X94, 2, 0, '1',
3125                   CHARSET_LEFT_TO_RIGHT,
3126                   build_string ("Big5"),
3127                   build_string ("Big5 (Level-2)"),
3128                   build_string
3129                   ("Big5 Level-2 Chinese traditional"),
3130                   build_string ("big5"));
3131
3132 #ifdef UTF2000
3133 #define GENERATE_94_SET(name) \
3134   { \
3135     size_t i; \
3136     ucs_to_##name = make_byte_from_character_table(); \
3137     for (i = 0; i < 94; i++) \
3138       { \
3139         Emchar c = name##_to_ucs[i]; \
3140         if (c <= 0xffff) \
3141           put_byte_from_character_table (c, \
3142                                          i + 33, ucs_to_##name); \
3143       } \
3144   }
3145 #define GENERATE_96_SET(name) \
3146   { \
3147     size_t i; \
3148     ucs_to_##name = make_byte_from_character_table(); \
3149     for (i = 0; i < 96; i++) \
3150       { \
3151         Emchar c = name##_to_ucs[i]; \
3152         if (c <= 0xffff) \
3153           put_byte_from_character_table (c, \
3154                                          i + 32, ucs_to_##name); \
3155       } \
3156   }
3157
3158   GENERATE_94_SET (latin_jisx0201);
3159
3160   GENERATE_96_SET (latin_iso8859_2);
3161   GENERATE_96_SET (latin_iso8859_3);
3162   GENERATE_96_SET (latin_iso8859_4);
3163   GENERATE_96_SET (latin_iso8859_9);
3164   GENERATE_96_SET (latin_viscii_lower);
3165   GENERATE_96_SET (latin_viscii_upper);
3166 #endif
3167
3168 #ifdef ENABLE_COMPOSITE_CHARS
3169   /* #### For simplicity, we put composite chars into a 96x96 charset.
3170      This is going to lead to problems because you can run out of
3171      room, esp. as we don't yet recycle numbers. */
3172   Vcharset_composite =
3173     make_charset (LEADING_BYTE_COMPOSITE, Qcomposite, 3,
3174                   CHARSET_TYPE_96X96, 2, 0, 0,
3175                   CHARSET_LEFT_TO_RIGHT,
3176                   build_string ("Composite"),
3177                   build_string ("Composite characters"),
3178                   build_string ("Composite characters"),
3179                   build_string (""));
3180
3181   composite_char_row_next = 32;
3182   composite_char_col_next = 32;
3183
3184   Vcomposite_char_string2char_hash_table =
3185     make_lisp_hash_table (500, HASH_TABLE_NON_WEAK, HASH_TABLE_EQUAL);
3186   Vcomposite_char_char2string_hash_table =
3187     make_lisp_hash_table (500, HASH_TABLE_NON_WEAK, HASH_TABLE_EQ);
3188   staticpro (&Vcomposite_char_string2char_hash_table);
3189   staticpro (&Vcomposite_char_char2string_hash_table);
3190 #endif /* ENABLE_COMPOSITE_CHARS */
3191
3192 }