summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/uptexdir/kanji.c
blob: bf1e358a1a64a2e0741db106be472b64ecabac7d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
/*
 *  KANJI Code conversion routines.
 *  (for upTeX and e-upTeX)
 */

#include "kanji.h"

#define CS_TOKEN_FLAG  0x1FFFFFFF
#define CJK_CHAR_LIMIT  0x1000000
#define CJK_TOKEN_FLAG   0xFFFFFF
#define KCAT_KANJI     16
#define KCAT_HANGUL    19

#if !defined(WIN32)
int sjisterminal;
#endif

/* TOKEN */
boolean check_kanji (integer c)
{
    if (c > CS_TOKEN_FLAG) return false;
    else if (!(XXHi(c)>=KCAT_KANJI && XXHi(c)<=KCAT_HANGUL)) return false;
    else return is_char_kanji(c);
}

boolean is_char_ascii(integer c)
{
    return (0 <= c && c < 0x100);
}

boolean is_char_kanji(integer c)
{
    if (is_internalUPTEX()) 
        return (c>=0&&(c & CJK_TOKEN_FLAG) < CJK_CHAR_LIMIT);
    else
        return iskanji1(Hi(c)) && iskanji2(Lo(c));
}

boolean ismultiprn(integer c)
{
    int i, j;

    for (i=2; i<=4; i++) for (j=1; j<=i; j++) {
        if (ismultichr(i,j,c)) return true;
    }
    return false;
}

integer calc_pos(integer c)
{
    unsigned char c1, c2;

    if(c>=0 && c<=255) return(c);
    c1 = Hi(c);
    c2 = Lo(c);

    c1 = (c1 % 4) * 64;  /* c1 = 0, 64, 128, 192 */
    c2 = c2 % 64;        /* c2 = 0..63 */
    return(c1 + c2);     /* ret = 0..255 */
}

/* Ref. http://www.unicode.org/Public/UNIDATA/Blocks.txt */
/* # Blocks-6.1.0.txt                                    */
/* # Date: 2011-06-14, 18:26:00 GMT [KW, LI]             */
static long ucs_range[]={
      0x0000, /* Basic Latin					0x00 */
      0x0080, /* Latin-1 Supplement				     */
      0x0100, /* Latin Extended-A				     */
      0x0180, /* Latin Extended-B				     */
      0x0250, /* IPA Extensions					     */
      0x02B0, /* Spacing Modifier Letters			     */
      0x0300, /* Combining Diacritical Marks			     */
      0x0370, /* Greek and Coptic				     */
      0x0400, /* Cyrillic					0x08 */
      0x0500, /* Cyrillic Supplement				     */
      0x0530, /* Armenian					     */
      0x0590, /* Hebrew						     */
      0x0600, /* Arabic						     */
      0x0700, /* Syriac						     */
      0x0750, /* Arabic Supplement				     */
      0x0780, /* Thaana						     */
      0x07C0, /* NKo						0x10 */
      0x0800, /* Samaritan					     */
      0x0840, /* Mandaic					     */
      0x08A0, /* Arabic Extended-A				     */
      0x0900, /* Devanagari					     */
      0x0980, /* Bengali					     */
      0x0A00, /* Gurmukhi					     */
      0x0A80, /* Gujarati					     */
      0x0B00, /* Oriya						0x18 */
      0x0B80, /* Tamil						     */
      0x0C00, /* Telugu						     */
      0x0C80, /* Kannada					     */
      0x0D00, /* Malayalam					     */
      0x0D80, /* Sinhala					     */
      0x0E00, /* Thai						     */
      0x0E80, /* Lao						     */
      0x0F00, /* Tibetan					0x20 */
      0x1000, /* Myanmar					     */
      0x10A0, /* Georgian					     */
      0x1100, /* Hangul Jamo					     */
      0x1200, /* Ethiopic					     */
      0x1380, /* Ethiopic Supplement				     */
      0x13A0, /* Cherokee					     */
      0x1400, /* Unified Canadian Aboriginal Syllabics		     */
      0x1680, /* Ogham						0x28 */
      0x16A0, /* Runic						     */
      0x1700, /* Tagalog					     */
      0x1720, /* Hanunoo					     */
      0x1740, /* Buhid						     */
      0x1760, /* Tagbanwa					     */
      0x1780, /* Khmer						     */
      0x1800, /* Mongolian					     */
      0x18B0, /* Unified Canadian Aboriginal Syllabics Extended	0x30 */
      0x1900, /* Limbu						     */
      0x1950, /* Tai Le						     */
      0x1980, /* New Tai Lue					     */
      0x19E0, /* Khmer Symbols					     */
      0x1A00, /* Buginese					     */
      0x1A20, /* Tai Tham					     */
      0x1B00, /* Balinese					     */
      0x1B80, /* Sundanese					0x38 */
      0x1BC0, /* Batak						     */
      0x1C00, /* Lepcha						     */
      0x1C50, /* Ol Chiki					     */
      0x1CC0, /* Sundanese Supplement				     */
      0x1CD0, /* Vedic Extensions				     */
      0x1D00, /* Phonetic Extensions				     */
      0x1D80, /* Phonetic Extensions Supplement			     */
      0x1DC0, /* Combining Diacritical Marks Supplement		0x40 */
      0x1E00, /* Latin Extended Additional			     */
      0x1F00, /* Greek Extended					     */
      0x2000, /* General Punctuation				     */
      0x2070, /* Superscripts and Subscripts			     */
      0x20A0, /* Currency Symbols				     */
      0x20D0, /* Combining Diacritical Marks for Symbols	     */
      0x2100, /* Letterlike Symbols				     */
      0x2150, /* Number Forms					0x48 */
      0x2190, /* Arrows						     */
      0x2200, /* Mathematical Operators				     */
      0x2300, /* Miscellaneous Technical			     */
      0x2400, /* Control Pictures				     */
      0x2440, /* Optical Character Recognition			     */
      0x2460, /* Enclosed Alphanumerics				     */
      0x2500, /* Box Drawing					     */
      0x2580, /* Block Elements					0x50 */
      0x25A0, /* Geometric Shapes				     */
      0x2600, /* Miscellaneous Symbols				     */
      0x2700, /* Dingbats					     */
      0x27C0, /* Miscellaneous Mathematical Symbols-A		     */
      0x27F0, /* Supplemental Arrows-A				     */
      0x2800, /* Braille Patterns				     */
      0x2900, /* Supplemental Arrows-B				     */
      0x2980, /* Miscellaneous Mathematical Symbols-B		0x58 */
      0x2A00, /* Supplemental Mathematical Operators		     */
      0x2B00, /* Miscellaneous Symbols and Arrows		     */
      0x2C00, /* Glagolitic					     */
      0x2C60, /* Latin Extended-C				     */
      0x2C80, /* Coptic						     */
      0x2D00, /* Georgian Supplement				     */
      0x2D30, /* Tifinagh					     */
      0x2D80, /* Ethiopic Extended				0x60 */
      0x2DE0, /* Cyrillic Extended-A				     */
      0x2E00, /* Supplemental Punctuation			     */
      0x2E80, /* CJK Radicals Supplement			     */
      0x2F00, /* Kangxi Radicals				     */
      0x2FF0, /* Ideographic Description Characters		     */
      0x3000, /* CJK Symbols and Punctuation			     */
      0x3040, /* Hiragana					     */
      0x30A0, /* Katakana					0x68 */
      0x3100, /* Bopomofo					     */
      0x3130, /* Hangul Compatibility Jamo			     */
      0x3190, /* Kanbun						     */
      0x31A0, /* Bopomofo Extended				     */
      0x31C0, /* CJK Strokes					     */
      0x31F0, /* Katakana Phonetic Extensions			     */
      0x3200, /* Enclosed CJK Letters and Months		     */
      0x3300, /* CJK Compatibility				0x70 */
      0x3400, /* CJK Unified Ideographs Extension A		     */
      0x4DC0, /* Yijing Hexagram Symbols			     */
      0x4E00, /* CJK Unified Ideographs				     */
      0xA000, /* Yi Syllables					     */
      0xA490, /* Yi Radicals					     */
      0xA4D0, /* Lisu						     */
      0xA500, /* Vai						     */
      0xA640, /* Cyrillic Extended-B				0x78 */
      0xA6A0, /* Bamum						     */
      0xA700, /* Modifier Tone Letters				     */
      0xA720, /* Latin Extended-D				     */
      0xA800, /* Syloti Nagri					     */
      0xA830, /* Common Indic Number Forms			     */
      0xA840, /* Phags-pa					     */
      0xA880, /* Saurashtra					     */
      0xA8E0, /* Devanagari Extended				0x80 */
      0xA900, /* Kayah Li					     */
      0xA930, /* Rejang						     */
      0xA960, /* Hangul Jamo Extended-A				     */
      0xA980, /* Javanese					     */
      0xAA00, /* Cham						     */
      0xAA60, /* Myanmar Extended-A				     */
      0xAA80, /* Tai Viet					     */
      0xAAE0, /* Meetei Mayek Extensions			0x88 */
      0xAB00, /* Ethiopic Extended-A				     */
      0xABC0, /* Meetei Mayek					     */
      0xAC00, /* Hangul Syllables				     */
      0xD7B0, /* Hangul Jamo Extended-B				     */
      0xD800, /* High Surrogates				     */
      0xDB80, /* High Private Use Surrogates			     */
      0xDC00, /* Low Surrogates					     */
      0xE000, /* Private Use Area				0x90 */
      0xF900, /* CJK Compatibility Ideographs			     */
      0xFB00, /* Alphabetic Presentation Forms			     */
      0xFB50, /* Arabic Presentation Forms-A			     */
      0xFE00, /* Variation Selectors				     */
      0xFE10, /* Vertical Forms					     */
      0xFE20, /* Combining Half Marks				     */
      0xFE30, /* CJK Compatibility Forms			     */
      0xFE50, /* Small Form Variants				0x98 */
      0xFE70, /* Arabic Presentation Forms-B			     */
      0xFF00, /* Halfwidth and Fullwidth Forms			     */
      0xFFF0, /* Specials                               	     */
      0x10000, /* Linear B Syllabary				     */
      0x10080, /* Linear B Ideograms				     */
      0x10100, /* Aegean Numbers				     */
      0x10140, /* Ancient Greek Numbers				     */
      0x10190, /* Ancient Symbols				0xa0 */
      0x101D0, /* Phaistos Disc					     */
      0x10280, /* Lycian					     */
      0x102A0, /* Carian					     */
      0x10300, /* Old Italic					     */
      0x10330, /* Gothic					     */
      0x10380, /* Ugaritic					     */
      0x103A0, /* Old Persian					     */
      0x10400, /* Deseret					0xa8 */
      0x10450, /* Shavian					     */
      0x10480, /* Osmanya					     */
      0x10800, /* Cypriot Syllabary				     */
      0x10840, /* Imperial Aramaic				     */
      0x10900, /* Phoenician					     */
      0x10920, /* Lydian					     */
      0x10980, /* Meroitic Hieroglyphs				     */
      0x109A0, /* Meroitic Cursive				0xb0 */
      0x10A00, /* Kharoshthi					     */
      0x10A60, /* Old South Arabian				     */
      0x10B00, /* Avestan					     */
      0x10B40, /* Inscriptional Parthian			     */
      0x10B60, /* Inscriptional Pahlavi				     */
      0x10C00, /* Old Turkic					     */
      0x10E60, /* Rumi Numeral Symbols				     */
      0x11000, /* Brahmi					0xb8 */
      0x11080, /* Kaithi					     */
      0x110D0, /* Sora Sompeng					     */
      0x11100, /* Chakma					     */
      0x11180, /* Sharada					     */
      0x11680, /* Takri						     */
      0x12000, /* Cuneiform					     */
      0x12400, /* Cuneiform Numbers and Punctuation		     */
      0x13000, /* Egyptian Hieroglyphs				0xc0 */
      0x16800, /* Bamum Supplement				     */
      0x16F00, /* Miao						     */
      0x1B000, /* Kana Supplement				     */
      0x1D000, /* Byzantine Musical Symbols			     */
      0x1D100, /* Musical Symbols				     */
      0x1D200, /* Ancient Greek Musical Notation		     */
      0x1D300, /* Tai Xuan Jing Symbols				     */
      0x1D360, /* Counting Rod Numerals				0xc8 */
      0x1D400, /* Mathematical Alphanumeric Symbols		     */
      0x1EE00, /* Arabic Mathematical Alphabetic Symbols	     */
      0x1F000, /* Mahjong Tiles					     */
      0x1F030, /* Domino Tiles					     */
      0x1F0A0, /* Playing Cards					     */
      0x1F100, /* Enclosed Alphanumeric Supplement		     */
      0x1F200, /* Enclosed Ideographic Supplement		     */
      0x1F300, /* Miscellaneous Symbols And Pictographs		0xd0 */
      0x1F600, /* Emoticons					     */
      0x1F680, /* Transport And Map Symbols			     */
      0x1F700, /* Alchemical Symbols				     */
      0x20000, /* CJK Unified Ideographs Extension B		     */
      0x2A700, /* CJK Unified Ideographs Extension C		     */
      0x2B740, /* CJK Unified Ideographs Extension D		     */
      0x2F800, /* CJK Compatibility Ideographs Supplement	     */
      0x30000, /* reserved					0xd8 */
      0x40000, /* reserved					     */
      0x50000, /* reserved					     */
      0x60000, /* reserved					     */
      0x70000, /* reserved					     */
      0x80000, /* reserved					     */
      0x90000, /* reserved					     */
      0xA0000, /* reserved					     */
      0xB0000, /* reserved					0xe0 */
      0xC0000, /* reserved					     */
      0xD0000, /* reserved					     */
      0xE0000, /* Tags						     */
      0xE0100, /* Variation Selectors Supplement		     */
      0xF0000, /* Supplementary Private Use Area-A		     */
      0x100000, /* Supplementary Private Use Area-B		     */
  /* Value over 0x10FFFF is illegal under Unicode,
     They are for some special use.  *** experimental ***  */
      0x110000, /* Reserved					     */
      0x120000, /* Reserved					0xe8 */
      0x130000, /* Reserved					     */
      0x140000, /* Reserved					     */
      0x150000, /* Reserved					     */
      0x160000, /* Reserved					     */
      0x170000, /* Reserved					     */
      0x180000, /* Reserved					     */
      0x190000, /* Reserved					     */
      0x1A0000, /* Reserved					0xf0 */
      0x1B0000, /* Reserved					     */
      0x1C0000, /* Reserved					     */
      0x1D0000, /* Reserved					     */
      0x1E0000, /* Reserved					     */
      0x1F0000, /* Reserved					     */
      0x200000, /* Reserved					     */
      0x210000, /* Reserved					     */
      0x220000, /* Reserved					0xf8 */
      CJK_CHAR_LIMIT
};

#define NUCS_RANGE (sizeof(ucs_range)/sizeof(ucs_range[0]))

/* Return i, which satisfies a[i] <= x < a[i+1]. */
/* 'i' is serached between left <= i <= right. */
/* If no i satisfies such condition, return left-1. */
/* [Okumura et al.] An algorithm encyclopedia in Java, p.236. */
static int
binary_search (long x, long *a, int left, int right)
{
    right++;
    while (left < right) {
        int mid = (left + right) / 2;
        if (a[mid] <= x ) left = mid + 1;
        else             right = mid;
    }
    return left - 1;
}

#define FULLWIDTH_DIGIT_0    0xFF10
#define FULLWIDTH_DIGIT_9    0xFF19
#define FULLWIDTH_CAPITAL_A  0xFF21
#define FULLWIDTH_CAPITAL_Z  0xFF3A
#define FULLWIDTH_SMALL_A    0xFF41
#define FULLWIDTH_SMALL_Z    0xFF5A
#define HALFWIDTH_KATAKANA_WO         0xFF66
#define HALFWIDTH_KATAKANA_SMALL_TSU  0xFF6F
#define HALFWIDTH_KATAKANA_A          0xFF71
#define HALFWIDTH_KATAKANA_N          0xFF9D

integer kcatcodekey(integer c)
{
    if (is_internalUPTEX()) {
      if (  (FULLWIDTH_DIGIT_0  <=c && c<=FULLWIDTH_DIGIT_9  )
         || (FULLWIDTH_CAPITAL_A<=c && c<=FULLWIDTH_CAPITAL_Z)
         || (FULLWIDTH_SMALL_A  <=c && c<=FULLWIDTH_SMALL_Z  ) )
        return 0xFE;
      if (  (HALFWIDTH_KATAKANA_WO <=c && c<=HALFWIDTH_KATAKANA_SMALL_TSU )
         || (HALFWIDTH_KATAKANA_A  <=c && c<=HALFWIDTH_KATAKANA_N  ) )
        return 0xFF;
      return binary_search((long)c, ucs_range, 0, NUCS_RANGE-1);
    } else {
        return Hi(toDVI(c));
    }
}

integer multilenbuffchar(integer c)
{
    c=toBUFF(c);
    if (BYTE1(c)) return 4;
    if (BYTE2(c)) return 3;
    if (BYTE3(c)) return 2;
    if (BYTE4(c)) return 1;
    return 0;
}

void init_kanji (const_string file_str, const_string internal_str)
{
    if (!set_enc_string (file_str, internal_str)) {
        fprintf (stderr, "Bad kanji encoding \"%s\" or \"%s\".\n",
                 file_str ? file_str  : "NULL",
                 internal_str ? internal_str : "NULL");
        uexit(1);
    }
}

void init_default_kanji (const_string file_str, const_string internal_str)
{
    char *p;

    enable_UPTEX (true); /* enable */

    p = getenv ("PTEX_KANJI_ENC");
    if (p) {
        if (!set_enc_string (p, NULL))
            fprintf (stderr, "Ignoring bad kanji encoding \"%s\".\n", p);
    }

#ifdef WIN32
    p = kpse_var_value ("guess_input_kanji_encoding");
    if (p) {
        if (*p == '1' || *p == 'y' || *p == 't')
            infile_enc_auto = 1;
        free(p);
    }
#endif

    init_kanji (file_str, internal_str);
}