Mercurial > hg > xemacs-beta

comparison src/mule-charset.c @ 5125:b5df3737028a ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 01:58:04 -0600
parents 623d57b7fbe8 304aebb79cd3
children a9c41067dd88
comparison
equal deleted inserted replaced
5124:623d57b7fbe8 5125:b5df3737028a
45 Lisp_Object Vcharset_latin_iso8859_2; 45 Lisp_Object Vcharset_latin_iso8859_2;
46 Lisp_Object Vcharset_latin_iso8859_3; 46 Lisp_Object Vcharset_latin_iso8859_3;
47 Lisp_Object Vcharset_latin_iso8859_4; 47 Lisp_Object Vcharset_latin_iso8859_4;
48 Lisp_Object Vcharset_thai_tis620; 48 Lisp_Object Vcharset_thai_tis620;
49 Lisp_Object Vcharset_greek_iso8859_7; 49 Lisp_Object Vcharset_greek_iso8859_7;
50 Lisp_Object Vcharset_arabic_iso8859_6;
50 Lisp_Object Vcharset_hebrew_iso8859_8; 51 Lisp_Object Vcharset_hebrew_iso8859_8;
51 Lisp_Object Vcharset_katakana_jisx0201; 52 Lisp_Object Vcharset_katakana_jisx0201;
52 Lisp_Object Vcharset_latin_jisx0201; 53 Lisp_Object Vcharset_latin_jisx0201;
53 Lisp_Object Vcharset_cyrillic_iso8859_5; 54 Lisp_Object Vcharset_cyrillic_iso8859_5;
54 Lisp_Object Vcharset_latin_iso8859_9; 55 Lisp_Object Vcharset_latin_iso8859_9;
91 Qlatin_iso8859_2, 92 Qlatin_iso8859_2,
92 Qlatin_iso8859_3, 93 Qlatin_iso8859_3,
93 Qlatin_iso8859_4, 94 Qlatin_iso8859_4,
94 Qthai_tis620, 95 Qthai_tis620,
95 Qgreek_iso8859_7, 96 Qgreek_iso8859_7,
97 Qarabic_iso8859_6,
96 Qhebrew_iso8859_8, 98 Qhebrew_iso8859_8,
97 Qkatakana_jisx0201, 99 Qkatakana_jisx0201,
98 Qlatin_jisx0201, 100 Qlatin_jisx0201,
99 Qcyrillic_iso8859_5, 101 Qcyrillic_iso8859_5,
100 Qlatin_iso8859_9, 102 Qlatin_iso8859_9,
137 int UNUSED (escapeflag)) 139 int UNUSED (escapeflag))
138 { 140 {
139 Lisp_Charset *cs = XCHARSET (obj); 141 Lisp_Charset *cs = XCHARSET (obj);
140 142
141 if (print_readably) 143 if (print_readably)
142 printing_unreadable_object ("#<charset %s 0x%x>", 144 printing_unreadable_lcrecord
143 XSTRING_DATA (XSYMBOL (CHARSET_NAME (cs))-> 145 (obj, XSTRING_DATA (XSYMBOL (XCHARSET_NAME (obj))->name));
144 name),
145 cs->header.uid);
146 146
147 write_fmt_string_lisp (printcharfun, "#<charset %s %S %S %S", 4, 147 write_fmt_string_lisp (printcharfun, "#<charset %s %S %S %S", 4,
148 CHARSET_NAME (cs), CHARSET_SHORT_NAME (cs), 148 CHARSET_NAME (cs), CHARSET_SHORT_NAME (cs),
149 CHARSET_LONG_NAME (cs), CHARSET_DOC_STRING (cs)); 149 CHARSET_LONG_NAME (cs), CHARSET_DOC_STRING (cs));
150 write_fmt_string (printcharfun, " %s %s cols=%d g%d final='%c' reg=", 150 write_fmt_string (printcharfun, " %s %s cols=%d g%d final='%c' reg=",
622 if (temporary) 622 if (temporary)
623 { 623 {
624 Ibyte tempname[80]; 624 Ibyte tempname[80];
625 625
626 qxesprintf (tempname, "___temporary___%d__", id); 626 qxesprintf (tempname, "___temporary___%d__", id);
627 name = intern_int (tempname); 627 name = Fmake_symbol (build_istring (tempname)); /* Uninterned. */
628 } 628 }
629 if (NILP (doc_string)) 629 if (NILP (doc_string))
630 doc_string = build_string (""); 630 doc_string = build_ascstring ("");
631 if (NILP (registries)) 631 if (NILP (registries))
632 registries = make_vector(0, Qnil); 632 registries = make_vector(0, Qnil);
633 if (NILP (short_name)) 633 if (NILP (short_name))
634 short_name = XSYMBOL (name)->name; 634 short_name = XSYMBOL (name)->name;
635 if (NILP (long_name)) 635 if (NILP (long_name))
1100 DEFSYMBOL (Qlatin_iso8859_2); 1100 DEFSYMBOL (Qlatin_iso8859_2);
1101 DEFSYMBOL (Qlatin_iso8859_3); 1101 DEFSYMBOL (Qlatin_iso8859_3);
1102 DEFSYMBOL (Qlatin_iso8859_4); 1102 DEFSYMBOL (Qlatin_iso8859_4);
1103 DEFSYMBOL (Qthai_tis620); 1103 DEFSYMBOL (Qthai_tis620);
1104 DEFSYMBOL (Qgreek_iso8859_7); 1104 DEFSYMBOL (Qgreek_iso8859_7);
1105 DEFSYMBOL (Qarabic_iso8859_6);
1105 DEFSYMBOL (Qhebrew_iso8859_8); 1106 DEFSYMBOL (Qhebrew_iso8859_8);
1106 DEFSYMBOL (Qkatakana_jisx0201); 1107 DEFSYMBOL (Qkatakana_jisx0201);
1107 DEFSYMBOL (Qlatin_jisx0201); 1108 DEFSYMBOL (Qlatin_jisx0201);
1108 DEFSYMBOL (Qcyrillic_iso8859_5); 1109 DEFSYMBOL (Qcyrillic_iso8859_5);
1109 DEFSYMBOL (Qlatin_iso8859_9); 1110 DEFSYMBOL (Qlatin_iso8859_9);
1156 staticpro (&Vcharset_ascii); 1157 staticpro (&Vcharset_ascii);
1157 Vcharset_ascii = 1158 Vcharset_ascii =
1158 make_charset (LEADING_BYTE_ASCII, Qascii, 1, 1159 make_charset (LEADING_BYTE_ASCII, Qascii, 1,
1159 CHARSET_TYPE_94, 1, 0, 'B', 1160 CHARSET_TYPE_94, 1, 0, 'B',
1160 CHARSET_LEFT_TO_RIGHT, 1161 CHARSET_LEFT_TO_RIGHT,
1161 build_string ("ASCII"), 1162 build_ascstring ("ASCII"),
1162 build_msg_string ("ASCII"), 1163 build_defer_string ("ASCII"),
1163 build_msg_string ("ASCII (ISO646 IRV)"), 1164 build_defer_string ("ASCII (ISO646 IRV)"),
1164 vector1(build_string("iso8859-1")), 0, 0); 1165 vector1(build_ascstring("iso8859-1")), 0, 0);
1165 staticpro (&Vcharset_control_1); 1166 staticpro (&Vcharset_control_1);
1166 Vcharset_control_1 = 1167 Vcharset_control_1 =
1167 make_charset (LEADING_BYTE_CONTROL_1, Qcontrol_1, 2, 1168 make_charset (LEADING_BYTE_CONTROL_1, Qcontrol_1, 2,
1168 CHARSET_TYPE_94, 1, 1, 0, 1169 CHARSET_TYPE_94, 1, 1, 0,
1169 CHARSET_LEFT_TO_RIGHT, 1170 CHARSET_LEFT_TO_RIGHT,
1170 build_string ("C1"), 1171 build_ascstring ("C1"),
1171 build_msg_string ("Control characters"), 1172 build_defer_string ("Control characters"),
1172 build_msg_string ("Control characters 128-191"), 1173 build_defer_string ("Control characters 128-191"),
1173 vector1(build_string("iso8859-1")), 0, 0); 1174 vector1(build_ascstring("iso8859-1")), 0, 0);
1174 staticpro (&Vcharset_latin_iso8859_1); 1175 staticpro (&Vcharset_latin_iso8859_1);
1175 Vcharset_latin_iso8859_1 = 1176 Vcharset_latin_iso8859_1 =
1176 make_charset (LEADING_BYTE_LATIN_ISO8859_1, Qlatin_iso8859_1, 2, 1177 make_charset (LEADING_BYTE_LATIN_ISO8859_1, Qlatin_iso8859_1, 2,
1177 CHARSET_TYPE_96, 1, 1, 'A', 1178 CHARSET_TYPE_96, 1, 1, 'A',
1178 CHARSET_LEFT_TO_RIGHT, 1179 CHARSET_LEFT_TO_RIGHT,
1179 build_string ("Latin-1"), 1180 build_ascstring ("Latin-1"),
1180 build_msg_string ("ISO8859-1 (Latin-1)"), 1181 build_defer_string ("ISO8859-1 (Latin-1)"),
1181 build_msg_string ("ISO8859-1 (Latin-1)"), 1182 build_defer_string ("ISO8859-1 (Latin-1)"),
1182 vector1(build_string("iso8859-1")), 0, 0); 1183 vector1(build_ascstring("iso8859-1")), 0, 0);
1183 staticpro (&Vcharset_latin_iso8859_2); 1184 staticpro (&Vcharset_latin_iso8859_2);
1184 Vcharset_latin_iso8859_2 = 1185 Vcharset_latin_iso8859_2 =
1185 make_charset (LEADING_BYTE_LATIN_ISO8859_2, Qlatin_iso8859_2, 2, 1186 make_charset (LEADING_BYTE_LATIN_ISO8859_2, Qlatin_iso8859_2, 2,
1186 CHARSET_TYPE_96, 1, 1, 'B', 1187 CHARSET_TYPE_96, 1, 1, 'B',
1187 CHARSET_LEFT_TO_RIGHT, 1188 CHARSET_LEFT_TO_RIGHT,
1188 build_string ("Latin-2"), 1189 build_ascstring ("Latin-2"),
1189 build_msg_string ("ISO8859-2 (Latin-2)"), 1190 build_defer_string ("ISO8859-2 (Latin-2)"),
1190 build_msg_string ("ISO8859-2 (Latin-2)"), 1191 build_defer_string ("ISO8859-2 (Latin-2)"),
1191 vector1(build_string("iso8859-2")), 0, 0); 1192 vector1(build_ascstring("iso8859-2")), 0, 0);
1192 staticpro (&Vcharset_latin_iso8859_3); 1193 staticpro (&Vcharset_latin_iso8859_3);
1193 Vcharset_latin_iso8859_3 = 1194 Vcharset_latin_iso8859_3 =
1194 make_charset (LEADING_BYTE_LATIN_ISO8859_3, Qlatin_iso8859_3, 2, 1195 make_charset (LEADING_BYTE_LATIN_ISO8859_3, Qlatin_iso8859_3, 2,
1195 CHARSET_TYPE_96, 1, 1, 'C', 1196 CHARSET_TYPE_96, 1, 1, 'C',
1196 CHARSET_LEFT_TO_RIGHT, 1197 CHARSET_LEFT_TO_RIGHT,
1197 build_string ("Latin-3"), 1198 build_ascstring ("Latin-3"),
1198 build_msg_string ("ISO8859-3 (Latin-3)"), 1199 build_defer_string ("ISO8859-3 (Latin-3)"),
1199 build_msg_string ("ISO8859-3 (Latin-3)"), 1200 build_defer_string ("ISO8859-3 (Latin-3)"),
1200 vector1(build_string("iso8859-3")), 0, 0); 1201 vector1(build_ascstring("iso8859-3")), 0, 0);
1201 staticpro (&Vcharset_latin_iso8859_4); 1202 staticpro (&Vcharset_latin_iso8859_4);
1202 Vcharset_latin_iso8859_4 = 1203 Vcharset_latin_iso8859_4 =
1203 make_charset (LEADING_BYTE_LATIN_ISO8859_4, Qlatin_iso8859_4, 2, 1204 make_charset (LEADING_BYTE_LATIN_ISO8859_4, Qlatin_iso8859_4, 2,
1204 CHARSET_TYPE_96, 1, 1, 'D', 1205 CHARSET_TYPE_96, 1, 1, 'D',
1205 CHARSET_LEFT_TO_RIGHT, 1206 CHARSET_LEFT_TO_RIGHT,
1206 build_string ("Latin-4"), 1207 build_ascstring ("Latin-4"),
1207 build_msg_string ("ISO8859-4 (Latin-4)"), 1208 build_defer_string ("ISO8859-4 (Latin-4)"),
1208 build_msg_string ("ISO8859-4 (Latin-4)"), 1209 build_defer_string ("ISO8859-4 (Latin-4)"),
1209 vector1(build_string("iso8859-4")), 0, 0); 1210 vector1(build_ascstring("iso8859-4")), 0, 0);
1210 staticpro (&Vcharset_thai_tis620); 1211 staticpro (&Vcharset_thai_tis620);
1211 Vcharset_thai_tis620 = 1212 Vcharset_thai_tis620 =
1212 make_charset (LEADING_BYTE_THAI_TIS620, Qthai_tis620, 2, 1213 make_charset (LEADING_BYTE_THAI_TIS620, Qthai_tis620, 2,
1213 CHARSET_TYPE_96, 1, 1, 'T', 1214 CHARSET_TYPE_96, 1, 1, 'T',
1214 CHARSET_LEFT_TO_RIGHT, 1215 CHARSET_LEFT_TO_RIGHT,
1215 build_string ("TIS620"), 1216 build_ascstring ("TIS620"),
1216 build_msg_string ("TIS620 (Thai)"), 1217 build_defer_string ("TIS620 (Thai)"),
1217 build_msg_string ("TIS620.2529 (Thai)"), 1218 build_defer_string ("TIS620.2529 (Thai)"),
1218 vector1(build_string("tis620.2529-1")), 0, 0); 1219 vector1(build_ascstring("tis620.2529-1")), 0, 0);
1219 staticpro (&Vcharset_greek_iso8859_7); 1220 staticpro (&Vcharset_greek_iso8859_7);
1220 Vcharset_greek_iso8859_7 = 1221 Vcharset_greek_iso8859_7 =
1221 make_charset (LEADING_BYTE_GREEK_ISO8859_7, Qgreek_iso8859_7, 2, 1222 make_charset (LEADING_BYTE_GREEK_ISO8859_7, Qgreek_iso8859_7, 2,
1222 CHARSET_TYPE_96, 1, 1, 'F', 1223 CHARSET_TYPE_96, 1, 1, 'F',
1223 CHARSET_LEFT_TO_RIGHT, 1224 CHARSET_LEFT_TO_RIGHT,
1224 build_string ("ISO8859-7"), 1225 build_ascstring ("ISO8859-7"),
1225 build_msg_string ("ISO8859-7 (Greek)"), 1226 build_defer_string ("ISO8859-7 (Greek)"),
1226 build_msg_string ("ISO8859-7 (Greek)"), 1227 build_defer_string ("ISO8859-7 (Greek)"),
1227 vector1(build_string("iso8859-7")), 0, 0); 1228 vector1(build_ascstring("iso8859-7")), 0, 0);
1229 staticpro (&Vcharset_arabic_iso8859_6);
1230 Vcharset_arabic_iso8859_6 =
1231 make_charset (LEADING_BYTE_ARABIC_ISO8859_6, Qarabic_iso8859_6, 2,
1232 CHARSET_TYPE_96, 1, 1, 'G',
1233 CHARSET_RIGHT_TO_LEFT,
1234 build_ascstring ("ISO8859-6"),
1235 build_defer_string ("ISO8859-6 (Arabic)"),
1236 build_defer_string ("ISO8859-6 (Arabic)"),
1237 vector1(build_ascstring ("iso8859-6")), 0, 0);
1228 staticpro (&Vcharset_hebrew_iso8859_8); 1238 staticpro (&Vcharset_hebrew_iso8859_8);
1229 Vcharset_hebrew_iso8859_8 = 1239 Vcharset_hebrew_iso8859_8 =
1230 make_charset (LEADING_BYTE_HEBREW_ISO8859_8, Qhebrew_iso8859_8, 2, 1240 make_charset (LEADING_BYTE_HEBREW_ISO8859_8, Qhebrew_iso8859_8, 2,
1231 CHARSET_TYPE_96, 1, 1, 'H', 1241 CHARSET_TYPE_96, 1, 1, 'H',
1232 CHARSET_RIGHT_TO_LEFT, 1242 CHARSET_RIGHT_TO_LEFT,
1233 build_string ("ISO8859-8"), 1243 build_ascstring ("ISO8859-8"),
1234 build_msg_string ("ISO8859-8 (Hebrew)"), 1244 build_defer_string ("ISO8859-8 (Hebrew)"),
1235 build_msg_string ("ISO8859-8 (Hebrew)"), 1245 build_defer_string ("ISO8859-8 (Hebrew)"),
1236 vector1(build_string ("iso8859-8")), 0, 0); 1246 vector1(build_ascstring ("iso8859-8")), 0, 0);
1237 staticpro (&Vcharset_katakana_jisx0201); 1247 staticpro (&Vcharset_katakana_jisx0201);
1238 Vcharset_katakana_jisx0201 = 1248 Vcharset_katakana_jisx0201 =
1239 make_charset (LEADING_BYTE_KATAKANA_JISX0201, Qkatakana_jisx0201, 2, 1249 make_charset (LEADING_BYTE_KATAKANA_JISX0201, Qkatakana_jisx0201, 2,
1240 CHARSET_TYPE_94, 1, 1, 'I', 1250 CHARSET_TYPE_94, 1, 1, 'I',
1241 CHARSET_LEFT_TO_RIGHT, 1251 CHARSET_LEFT_TO_RIGHT,
1242 build_string ("JISX0201 Kana"), 1252 build_ascstring ("JISX0201 Kana"),
1243 build_msg_string ("JISX0201.1976 (Japanese Kana)"), 1253 build_defer_string ("JISX0201.1976 (Japanese Kana)"),
1244 build_msg_string ("JISX0201.1976 Japanese Kana"), 1254 build_defer_string ("JISX0201.1976 Japanese Kana"),
1245 vector1(build_string ("jisx0201.1976-0")), 0, 0); 1255 vector1(build_ascstring ("jisx0201.1976-0")), 0, 0);
1246 staticpro (&Vcharset_latin_jisx0201); 1256 staticpro (&Vcharset_latin_jisx0201);
1247 Vcharset_latin_jisx0201 = 1257 Vcharset_latin_jisx0201 =
1248 make_charset (LEADING_BYTE_LATIN_JISX0201, Qlatin_jisx0201, 2, 1258 make_charset (LEADING_BYTE_LATIN_JISX0201, Qlatin_jisx0201, 2,
1249 CHARSET_TYPE_94, 1, 0, 'J', 1259 CHARSET_TYPE_94, 1, 0, 'J',
1250 CHARSET_LEFT_TO_RIGHT, 1260 CHARSET_LEFT_TO_RIGHT,
1251 build_string ("JISX0201 Roman"), 1261 build_ascstring ("JISX0201 Roman"),
1252 build_msg_string ("JISX0201.1976 (Japanese Roman)"), 1262 build_defer_string ("JISX0201.1976 (Japanese Roman)"),
1253 build_msg_string ("JISX0201.1976 Japanese Roman"), 1263 build_defer_string ("JISX0201.1976 Japanese Roman"),
1254 vector1(build_string ("jisx0201.1976-0")), 0, 0); 1264 vector1(build_ascstring ("jisx0201.1976-0")), 0, 0);
1255 staticpro (&Vcharset_cyrillic_iso8859_5); 1265 staticpro (&Vcharset_cyrillic_iso8859_5);
1256 Vcharset_cyrillic_iso8859_5 = 1266 Vcharset_cyrillic_iso8859_5 =
1257 make_charset (LEADING_BYTE_CYRILLIC_ISO8859_5, Qcyrillic_iso8859_5, 2, 1267 make_charset (LEADING_BYTE_CYRILLIC_ISO8859_5, Qcyrillic_iso8859_5, 2,
1258 CHARSET_TYPE_96, 1, 1, 'L', 1268 CHARSET_TYPE_96, 1, 1, 'L',
1259 CHARSET_LEFT_TO_RIGHT, 1269 CHARSET_LEFT_TO_RIGHT,
1260 build_string ("ISO8859-5"), 1270 build_ascstring ("ISO8859-5"),
1261 build_msg_string ("ISO8859-5 (Cyrillic)"), 1271 build_defer_string ("ISO8859-5 (Cyrillic)"),
1262 build_msg_string ("ISO8859-5 (Cyrillic)"), 1272 build_defer_string ("ISO8859-5 (Cyrillic)"),
1263 vector1(build_string ("iso8859-5")), 0, 0); 1273 vector1(build_ascstring ("iso8859-5")), 0, 0);
1264 staticpro (&Vcharset_latin_iso8859_9); 1274 staticpro (&Vcharset_latin_iso8859_9);
1265 Vcharset_latin_iso8859_9 = 1275 Vcharset_latin_iso8859_9 =
1266 make_charset (LEADING_BYTE_LATIN_ISO8859_9, Qlatin_iso8859_9, 2, 1276 make_charset (LEADING_BYTE_LATIN_ISO8859_9, Qlatin_iso8859_9, 2,
1267 CHARSET_TYPE_96, 1, 1, 'M', 1277 CHARSET_TYPE_96, 1, 1, 'M',
1268 CHARSET_LEFT_TO_RIGHT, 1278 CHARSET_LEFT_TO_RIGHT,
1269 build_string ("Latin-5"), 1279 build_ascstring ("Latin-5"),
1270 build_msg_string ("ISO8859-9 (Latin-5)"), 1280 build_defer_string ("ISO8859-9 (Latin-5)"),
1271 build_msg_string ("ISO8859-9 (Latin-5)"), 1281 build_defer_string ("ISO8859-9 (Latin-5)"),
1272 vector1(build_string ("iso8859-9")), 0, 0); 1282 vector1(build_ascstring ("iso8859-9")), 0, 0);
1273 staticpro (&Vcharset_latin_iso8859_15); 1283 staticpro (&Vcharset_latin_iso8859_15);
1274 Vcharset_latin_iso8859_15 = 1284 Vcharset_latin_iso8859_15 =
1275 make_charset (LEADING_BYTE_LATIN_ISO8859_15, Qlatin_iso8859_15, 2, 1285 make_charset (LEADING_BYTE_LATIN_ISO8859_15, Qlatin_iso8859_15, 2,
1276 CHARSET_TYPE_96, 1, 1, 'b', 1286 CHARSET_TYPE_96, 1, 1, 'b',
1277 CHARSET_LEFT_TO_RIGHT, 1287 CHARSET_LEFT_TO_RIGHT,
1278 build_string ("Latin-9"), 1288 build_ascstring ("Latin-9"),
1279 build_msg_string ("ISO8859-15 (Latin-9)"), 1289 build_defer_string ("ISO8859-15 (Latin-9)"),
1280 build_msg_string ("ISO8859-15 (Latin-9)"), 1290 build_defer_string ("ISO8859-15 (Latin-9)"),
1281 vector1(build_string ("iso8859-15")), 0, 0); 1291 vector1(build_ascstring ("iso8859-15")), 0, 0);
1282 staticpro (&Vcharset_japanese_jisx0208_1978); 1292 staticpro (&Vcharset_japanese_jisx0208_1978);
1283 Vcharset_japanese_jisx0208_1978 = 1293 Vcharset_japanese_jisx0208_1978 =
1284 make_charset (LEADING_BYTE_JAPANESE_JISX0208_1978, Qjapanese_jisx0208_1978, 3, 1294 make_charset (LEADING_BYTE_JAPANESE_JISX0208_1978, Qjapanese_jisx0208_1978, 3,
1285 CHARSET_TYPE_94X94, 2, 0, '@', 1295 CHARSET_TYPE_94X94, 2, 0, '@',
1286 CHARSET_LEFT_TO_RIGHT, 1296 CHARSET_LEFT_TO_RIGHT,
1287 build_string ("JISX0208.1978"), 1297 build_ascstring ("JISX0208.1978"),
1288 build_msg_string ("JISX0208.1978 (Japanese)"), 1298 build_defer_string ("JISX0208.1978 (Japanese)"),
1289 build_msg_string 1299 build_defer_string
1290 ("JISX0208.1978 Japanese Kanji (so called \"old JIS\")"), 1300 ("JISX0208.1978 Japanese Kanji (so called \"old JIS\")"),
1291 vector2(build_string("jisx0208.1978-0"), 1301 vector2(build_ascstring("jisx0208.1978-0"),
1292 build_string("jisc6226.1978-0")), 0, 0); 1302 build_ascstring("jisc6226.1978-0")), 0, 0);
1293 staticpro (&Vcharset_chinese_gb2312); 1303 staticpro (&Vcharset_chinese_gb2312);
1294 Vcharset_chinese_gb2312 = 1304 Vcharset_chinese_gb2312 =
1295 make_charset (LEADING_BYTE_CHINESE_GB2312, Qchinese_gb2312, 3, 1305 make_charset (LEADING_BYTE_CHINESE_GB2312, Qchinese_gb2312, 3,
1296 CHARSET_TYPE_94X94, 2, 0, 'A', 1306 CHARSET_TYPE_94X94, 2, 0, 'A',
1297 CHARSET_LEFT_TO_RIGHT, 1307 CHARSET_LEFT_TO_RIGHT,
1298 build_string ("GB2312"), 1308 build_ascstring ("GB2312"),
1299 build_msg_string ("GB2312)"), 1309 build_defer_string ("GB2312)"),
1300 build_msg_string ("GB2312 Chinese simplified"), 1310 build_defer_string ("GB2312 Chinese simplified"),
1301 vector2(build_string("gb2312.1980-0"), 1311 vector2(build_ascstring("gb2312.1980-0"),
1302 build_string("gb2312.80&gb8565.88-0")), 0, 0); 1312 build_ascstring("gb2312.80&gb8565.88-0")), 0, 0);
1303 staticpro (&Vcharset_japanese_jisx0208); 1313 staticpro (&Vcharset_japanese_jisx0208);
1304 Vcharset_japanese_jisx0208 = 1314 Vcharset_japanese_jisx0208 =
1305 make_charset (LEADING_BYTE_JAPANESE_JISX0208, Qjapanese_jisx0208, 3, 1315 make_charset (LEADING_BYTE_JAPANESE_JISX0208, Qjapanese_jisx0208, 3,
1306 CHARSET_TYPE_94X94, 2, 0, 'B', 1316 CHARSET_TYPE_94X94, 2, 0, 'B',
1307 CHARSET_LEFT_TO_RIGHT, 1317 CHARSET_LEFT_TO_RIGHT,
1308 build_string ("JISX0208"), 1318 build_ascstring ("JISX0208"),
1309 build_msg_string ("JISX0208.1983/1990 (Japanese)"), 1319 build_defer_string ("JISX0208.1983/1990 (Japanese)"),
1310 build_msg_string ("JISX0208.1983/1990 Japanese Kanji"), 1320 build_defer_string ("JISX0208.1983/1990 Japanese Kanji"),
1311 vector2(build_string("jisx0208.1983-0"), 1321 vector2(build_ascstring("jisx0208.1983-0"),
1312 build_string("jisx0208.1990-0")), 0, 0); 1322 build_ascstring("jisx0208.1990-0")), 0, 0);
1313 staticpro (&Vcharset_korean_ksc5601); 1323 staticpro (&Vcharset_korean_ksc5601);
1314 Vcharset_korean_ksc5601 = 1324 Vcharset_korean_ksc5601 =
1315 make_charset (LEADING_BYTE_KOREAN_KSC5601, Qkorean_ksc5601, 3, 1325 make_charset (LEADING_BYTE_KOREAN_KSC5601, Qkorean_ksc5601, 3,
1316 CHARSET_TYPE_94X94, 2, 0, 'C', 1326 CHARSET_TYPE_94X94, 2, 0, 'C',
1317 CHARSET_LEFT_TO_RIGHT, 1327 CHARSET_LEFT_TO_RIGHT,
1318 build_string ("KSC5601"), 1328 build_ascstring ("KSC5601"),
1319 build_msg_string ("KSC5601 (Korean"), 1329 build_defer_string ("KSC5601 (Korean"),
1320 build_msg_string ("KSC5601 Korean Hangul and Hanja"), 1330 build_defer_string ("KSC5601 Korean Hangul and Hanja"),
1321 vector1(build_string("ksc5601.1987-0")), 0, 0); 1331 vector1(build_ascstring("ksc5601.1987-0")), 0, 0);
1322 staticpro (&Vcharset_japanese_jisx0212); 1332 staticpro (&Vcharset_japanese_jisx0212);
1323 Vcharset_japanese_jisx0212 = 1333 Vcharset_japanese_jisx0212 =
1324 make_charset (LEADING_BYTE_JAPANESE_JISX0212, Qjapanese_jisx0212, 3, 1334 make_charset (LEADING_BYTE_JAPANESE_JISX0212, Qjapanese_jisx0212, 3,
1325 CHARSET_TYPE_94X94, 2, 0, 'D', 1335 CHARSET_TYPE_94X94, 2, 0, 'D',
1326 CHARSET_LEFT_TO_RIGHT, 1336 CHARSET_LEFT_TO_RIGHT,
1327 build_string ("JISX0212"), 1337 build_ascstring ("JISX0212"),
1328 build_msg_string ("JISX0212 (Japanese)"), 1338 build_defer_string ("JISX0212 (Japanese)"),
1329 build_msg_string ("JISX0212 Japanese Supplement"), 1339 build_defer_string ("JISX0212 Japanese Supplement"),
1330 vector1(build_string("jisx0212.1990-0")), 0, 0); 1340 vector1(build_ascstring("jisx0212.1990-0")), 0, 0);
1331 1341
1332 #define CHINESE_CNS_PLANE(n) "cns11643.1992-" n 1342 #define CHINESE_CNS_PLANE(n) "cns11643.1992-" n
1333 staticpro (&Vcharset_chinese_cns11643_1); 1343 staticpro (&Vcharset_chinese_cns11643_1);
1334 Vcharset_chinese_cns11643_1 = 1344 Vcharset_chinese_cns11643_1 =
1335 make_charset (LEADING_BYTE_CHINESE_CNS11643_1, Qchinese_cns11643_1, 3, 1345 make_charset (LEADING_BYTE_CHINESE_CNS11643_1, Qchinese_cns11643_1, 3,
1336 CHARSET_TYPE_94X94, 2, 0, 'G', 1346 CHARSET_TYPE_94X94, 2, 0, 'G',
1337 CHARSET_LEFT_TO_RIGHT, 1347 CHARSET_LEFT_TO_RIGHT,
1338 build_string ("CNS11643-1"), 1348 build_ascstring ("CNS11643-1"),
1339 build_msg_string ("CNS11643-1 (Chinese traditional)"), 1349 build_defer_string ("CNS11643-1 (Chinese traditional)"),
1340 build_msg_string 1350 build_defer_string
1341 ("CNS 11643 Plane 1 Chinese traditional"), 1351 ("CNS 11643 Plane 1 Chinese traditional"),
1342 vector1(build_string (CHINESE_CNS_PLANE("1"))), 0, 0); 1352 vector1(build_ascstring (CHINESE_CNS_PLANE("1"))), 0, 0);
1343 staticpro (&Vcharset_chinese_cns11643_2); 1353 staticpro (&Vcharset_chinese_cns11643_2);
1344 Vcharset_chinese_cns11643_2 = 1354 Vcharset_chinese_cns11643_2 =
1345 make_charset (LEADING_BYTE_CHINESE_CNS11643_2, Qchinese_cns11643_2, 3, 1355 make_charset (LEADING_BYTE_CHINESE_CNS11643_2, Qchinese_cns11643_2, 3,
1346 CHARSET_TYPE_94X94, 2, 0, 'H', 1356 CHARSET_TYPE_94X94, 2, 0, 'H',
1347 CHARSET_LEFT_TO_RIGHT, 1357 CHARSET_LEFT_TO_RIGHT,
1348 build_string ("CNS11643-2"), 1358 build_ascstring ("CNS11643-2"),
1349 build_msg_string ("CNS11643-2 (Chinese traditional)"), 1359 build_defer_string ("CNS11643-2 (Chinese traditional)"),
1350 build_msg_string 1360 build_defer_string
1351 ("CNS 11643 Plane 2 Chinese traditional"), 1361 ("CNS 11643 Plane 2 Chinese traditional"),
1352 vector1(build_string (CHINESE_CNS_PLANE("2"))), 0, 0); 1362 vector1(build_ascstring (CHINESE_CNS_PLANE("2"))), 0, 0);
1353 staticpro (&Vcharset_chinese_big5_1); 1363 staticpro (&Vcharset_chinese_big5_1);
1354 Vcharset_chinese_big5_1 = 1364 Vcharset_chinese_big5_1 =
1355 make_charset (LEADING_BYTE_CHINESE_BIG5_1, Qchinese_big5_1, 3, 1365 make_charset (LEADING_BYTE_CHINESE_BIG5_1, Qchinese_big5_1, 3,
1356 CHARSET_TYPE_94X94, 2, 0, '0', 1366 CHARSET_TYPE_94X94, 2, 0, '0',
1357 CHARSET_LEFT_TO_RIGHT, 1367 CHARSET_LEFT_TO_RIGHT,
1358 build_string ("Big5"), 1368 build_ascstring ("Big5"),
1359 build_msg_string ("Big5 (Level-1)"), 1369 build_defer_string ("Big5 (Level-1)"),
1360 build_msg_string 1370 build_defer_string
1361 ("Big5 Level-1 Chinese traditional"), 1371 ("Big5 Level-1 Chinese traditional"),
1362 vector1(build_string ("big5.eten-0")), 0, 0); 1372 vector1(build_ascstring ("big5.eten-0")), 0, 0);
1363 staticpro (&Vcharset_chinese_big5_2); 1373 staticpro (&Vcharset_chinese_big5_2);
1364 Vcharset_chinese_big5_2 = 1374 Vcharset_chinese_big5_2 =
1365 make_charset (LEADING_BYTE_CHINESE_BIG5_2, Qchinese_big5_2, 3, 1375 make_charset (LEADING_BYTE_CHINESE_BIG5_2, Qchinese_big5_2, 3,
1366 CHARSET_TYPE_94X94, 2, 0, '1', 1376 CHARSET_TYPE_94X94, 2, 0, '1',
1367 CHARSET_LEFT_TO_RIGHT, 1377 CHARSET_LEFT_TO_RIGHT,
1368 build_string ("Big5"), 1378 build_ascstring ("Big5"),
1369 build_msg_string ("Big5 (Level-2)"), 1379 build_defer_string ("Big5 (Level-2)"),
1370 build_msg_string 1380 build_defer_string
1371 ("Big5 Level-2 Chinese traditional"), 1381 ("Big5 Level-2 Chinese traditional"),
1372 vector1(build_string ("big5.eten-0")), 0, 0); 1382 vector1(build_ascstring ("big5.eten-0")), 0, 0);
1373 1383
1374 1384
1375 #ifdef ENABLE_COMPOSITE_CHARS 1385 #ifdef ENABLE_COMPOSITE_CHARS
1376 /* #### For simplicity, we put composite chars into a 96x96 charset. 1386 /* #### For simplicity, we put composite chars into a 96x96 charset.
1377 This is going to lead to problems because you can run out of 1387 This is going to lead to problems because you can run out of
1379 staticpro (&Vcharset_composite); 1389 staticpro (&Vcharset_composite);
1380 Vcharset_composite = 1390 Vcharset_composite =
1381 make_charset (LEADING_BYTE_COMPOSITE, Qcomposite, 3, 1391 make_charset (LEADING_BYTE_COMPOSITE, Qcomposite, 3,
1382 CHARSET_TYPE_96X96, 2, 0, 0, 1392 CHARSET_TYPE_96X96, 2, 0, 0,
1383 CHARSET_LEFT_TO_RIGHT, 1393 CHARSET_LEFT_TO_RIGHT,
1384 build_string ("Composite"), 1394 build_ascstring ("Composite"),
1385 build_msg_string ("Composite characters"), 1395 build_defer_string ("Composite characters"),
1386 build_msg_string ("Composite characters"), 1396 build_defer_string ("Composite characters"),
1387 vector1(build_string ("")), 0, 0); 1397 vector1(build_ascstring ("")), 0, 0);
1388 #else 1398 #else
1389 /* We create a hack so that we have a way of storing ESC 0 and ESC 1 1399 /* We create a hack so that we have a way of storing ESC 0 and ESC 1
1390 sequences as "characters", so that they will be output correctly. */ 1400 sequences as "characters", so that they will be output correctly. */
1391 staticpro (&Vcharset_composite); 1401 staticpro (&Vcharset_composite);
1392 Vcharset_composite = 1402 Vcharset_composite =
1393 make_charset (LEADING_BYTE_COMPOSITE_REPLACEMENT, Qcomposite, 2, 1403 make_charset (LEADING_BYTE_COMPOSITE_REPLACEMENT, Qcomposite, 2,
1394 CHARSET_TYPE_96, 1, 1, '|', 1404 CHARSET_TYPE_96, 1, 1, '|',
1395 CHARSET_LEFT_TO_RIGHT, 1405 CHARSET_LEFT_TO_RIGHT,
1396 build_string ("Composite hack"), 1406 build_ascstring ("Composite hack"),
1397 build_msg_string ("Composite characters hack"), 1407 build_defer_string ("Composite characters hack"),
1398 build_msg_string ("Composite characters hack"), 1408 build_defer_string ("Composite characters hack"),
1399 vector1(build_string ("")), 0, 0); 1409 vector1(build_ascstring ("")), 0, 0);
1400 #endif /* ENABLE_COMPOSITE_CHARS */ 1410 #endif /* ENABLE_COMPOSITE_CHARS */
1401 } 1411 }