1 /* Mapping table for CP775.
2    Copyright (C) 1998-2022 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4 
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Lesser General Public
7    License as published by the Free Software Foundation; either
8    version 2.1 of the License, or (at your option) any later version.
9 
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Lesser General Public License for more details.
14 
15    You should have received a copy of the GNU Lesser General Public
16    License along with the GNU C Library; if not, see
17    <https://www.gnu.org/licenses/>.  */
18 
19 #include <stdint.h>
20 
21 /* Table to map to UCS4.  It can be generated using
22    (I know, this is a useless use of cat, but the linebreak requires it):
23 
24    cat .../unix/mappings/vendors/micsft/pc/cp775.txt |
25    sed -e 's/\(0x..\)[[:space:]]*\(0x....\).*$/  [\1] = \2,/p' -e d
26 
27  */
28 static const uint32_t to_ucs4[256] =
29 {
30   [0x00] = 0x0000,
31   [0x01] = 0x0001,
32   [0x02] = 0x0002,
33   [0x03] = 0x0003,
34   [0x04] = 0x0004,
35   [0x05] = 0x0005,
36   [0x06] = 0x0006,
37   [0x07] = 0x0007,
38   [0x08] = 0x0008,
39   [0x09] = 0x0009,
40   [0x0a] = 0x000a,
41   [0x0b] = 0x000b,
42   [0x0c] = 0x000c,
43   [0x0d] = 0x000d,
44   [0x0e] = 0x000e,
45   [0x0f] = 0x000f,
46   [0x10] = 0x0010,
47   [0x11] = 0x0011,
48   [0x12] = 0x0012,
49   [0x13] = 0x0013,
50   [0x14] = 0x0014,
51   [0x15] = 0x0015,
52   [0x16] = 0x0016,
53   [0x17] = 0x0017,
54   [0x18] = 0x0018,
55   [0x19] = 0x0019,
56   [0x1a] = 0x001a,
57   [0x1b] = 0x001b,
58   [0x1c] = 0x001c,
59   [0x1d] = 0x001d,
60   [0x1e] = 0x001e,
61   [0x1f] = 0x001f,
62   [0x20] = 0x0020,
63   [0x21] = 0x0021,
64   [0x22] = 0x0022,
65   [0x23] = 0x0023,
66   [0x24] = 0x0024,
67   [0x25] = 0x0025,
68   [0x26] = 0x0026,
69   [0x27] = 0x0027,
70   [0x28] = 0x0028,
71   [0x29] = 0x0029,
72   [0x2a] = 0x002a,
73   [0x2b] = 0x002b,
74   [0x2c] = 0x002c,
75   [0x2d] = 0x002d,
76   [0x2e] = 0x002e,
77   [0x2f] = 0x002f,
78   [0x30] = 0x0030,
79   [0x31] = 0x0031,
80   [0x32] = 0x0032,
81   [0x33] = 0x0033,
82   [0x34] = 0x0034,
83   [0x35] = 0x0035,
84   [0x36] = 0x0036,
85   [0x37] = 0x0037,
86   [0x38] = 0x0038,
87   [0x39] = 0x0039,
88   [0x3a] = 0x003a,
89   [0x3b] = 0x003b,
90   [0x3c] = 0x003c,
91   [0x3d] = 0x003d,
92   [0x3e] = 0x003e,
93   [0x3f] = 0x003f,
94   [0x40] = 0x0040,
95   [0x41] = 0x0041,
96   [0x42] = 0x0042,
97   [0x43] = 0x0043,
98   [0x44] = 0x0044,
99   [0x45] = 0x0045,
100   [0x46] = 0x0046,
101   [0x47] = 0x0047,
102   [0x48] = 0x0048,
103   [0x49] = 0x0049,
104   [0x4a] = 0x004a,
105   [0x4b] = 0x004b,
106   [0x4c] = 0x004c,
107   [0x4d] = 0x004d,
108   [0x4e] = 0x004e,
109   [0x4f] = 0x004f,
110   [0x50] = 0x0050,
111   [0x51] = 0x0051,
112   [0x52] = 0x0052,
113   [0x53] = 0x0053,
114   [0x54] = 0x0054,
115   [0x55] = 0x0055,
116   [0x56] = 0x0056,
117   [0x57] = 0x0057,
118   [0x58] = 0x0058,
119   [0x59] = 0x0059,
120   [0x5a] = 0x005a,
121   [0x5b] = 0x005b,
122   [0x5c] = 0x005c,
123   [0x5d] = 0x005d,
124   [0x5e] = 0x005e,
125   [0x5f] = 0x005f,
126   [0x60] = 0x0060,
127   [0x61] = 0x0061,
128   [0x62] = 0x0062,
129   [0x63] = 0x0063,
130   [0x64] = 0x0064,
131   [0x65] = 0x0065,
132   [0x66] = 0x0066,
133   [0x67] = 0x0067,
134   [0x68] = 0x0068,
135   [0x69] = 0x0069,
136   [0x6a] = 0x006a,
137   [0x6b] = 0x006b,
138   [0x6c] = 0x006c,
139   [0x6d] = 0x006d,
140   [0x6e] = 0x006e,
141   [0x6f] = 0x006f,
142   [0x70] = 0x0070,
143   [0x71] = 0x0071,
144   [0x72] = 0x0072,
145   [0x73] = 0x0073,
146   [0x74] = 0x0074,
147   [0x75] = 0x0075,
148   [0x76] = 0x0076,
149   [0x77] = 0x0077,
150   [0x78] = 0x0078,
151   [0x79] = 0x0079,
152   [0x7a] = 0x007a,
153   [0x7b] = 0x007b,
154   [0x7c] = 0x007c,
155   [0x7d] = 0x007d,
156   [0x7e] = 0x007e,
157   [0x7f] = 0x007f,
158   [0x80] = 0x0106,
159   [0x81] = 0x00fc,
160   [0x82] = 0x00e9,
161   [0x83] = 0x0101,
162   [0x84] = 0x00e4,
163   [0x85] = 0x0123,
164   [0x86] = 0x00e5,
165   [0x87] = 0x0107,
166   [0x88] = 0x0142,
167   [0x89] = 0x0113,
168   [0x8a] = 0x0156,
169   [0x8b] = 0x0157,
170   [0x8c] = 0x012b,
171   [0x8d] = 0x0179,
172   [0x8e] = 0x00c4,
173   [0x8f] = 0x00c5,
174   [0x90] = 0x00c9,
175   [0x91] = 0x00e6,
176   [0x92] = 0x00c6,
177   [0x93] = 0x014d,
178   [0x94] = 0x00f6,
179   [0x95] = 0x0122,
180   [0x96] = 0x00a2,
181   [0x97] = 0x015a,
182   [0x98] = 0x015b,
183   [0x99] = 0x00d6,
184   [0x9a] = 0x00dc,
185   [0x9b] = 0x00f8,
186   [0x9c] = 0x00a3,
187   [0x9d] = 0x00d8,
188   [0x9e] = 0x00d7,
189   [0x9f] = 0x00a4,
190   [0xa0] = 0x0100,
191   [0xa1] = 0x012a,
192   [0xa2] = 0x00f3,
193   [0xa3] = 0x017b,
194   [0xa4] = 0x017c,
195   [0xa5] = 0x017a,
196   [0xa6] = 0x201d,
197   [0xa7] = 0x00a6,
198   [0xa8] = 0x00a9,
199   [0xa9] = 0x00ae,
200   [0xaa] = 0x00ac,
201   [0xab] = 0x00bd,
202   [0xac] = 0x00bc,
203   [0xad] = 0x0141,
204   [0xae] = 0x00ab,
205   [0xaf] = 0x00bb,
206   [0xb0] = 0x2591,
207   [0xb1] = 0x2592,
208   [0xb2] = 0x2593,
209   [0xb3] = 0x2502,
210   [0xb4] = 0x2524,
211   [0xb5] = 0x0104,
212   [0xb6] = 0x010c,
213   [0xb7] = 0x0118,
214   [0xb8] = 0x0116,
215   [0xb9] = 0x2563,
216   [0xba] = 0x2551,
217   [0xbb] = 0x2557,
218   [0xbc] = 0x255d,
219   [0xbd] = 0x012e,
220   [0xbe] = 0x0160,
221   [0xbf] = 0x2510,
222   [0xc0] = 0x2514,
223   [0xc1] = 0x2534,
224   [0xc2] = 0x252c,
225   [0xc3] = 0x251c,
226   [0xc4] = 0x2500,
227   [0xc5] = 0x253c,
228   [0xc6] = 0x0172,
229   [0xc7] = 0x016a,
230   [0xc8] = 0x255a,
231   [0xc9] = 0x2554,
232   [0xca] = 0x2569,
233   [0xcb] = 0x2566,
234   [0xcc] = 0x2560,
235   [0xcd] = 0x2550,
236   [0xce] = 0x256c,
237   [0xcf] = 0x017d,
238   [0xd0] = 0x0105,
239   [0xd1] = 0x010d,
240   [0xd2] = 0x0119,
241   [0xd3] = 0x0117,
242   [0xd4] = 0x012f,
243   [0xd5] = 0x0161,
244   [0xd6] = 0x0173,
245   [0xd7] = 0x016b,
246   [0xd8] = 0x017e,
247   [0xd9] = 0x2518,
248   [0xda] = 0x250c,
249   [0xdb] = 0x2588,
250   [0xdc] = 0x2584,
251   [0xdd] = 0x258c,
252   [0xde] = 0x2590,
253   [0xdf] = 0x2580,
254   [0xe0] = 0x00d3,
255   [0xe1] = 0x00df,
256   [0xe2] = 0x014c,
257   [0xe3] = 0x0143,
258   [0xe4] = 0x00f5,
259   [0xe5] = 0x00d5,
260   [0xe6] = 0x00b5,
261   [0xe7] = 0x0144,
262   [0xe8] = 0x0136,
263   [0xe9] = 0x0137,
264   [0xea] = 0x013b,
265   [0xeb] = 0x013c,
266   [0xec] = 0x0146,
267   [0xed] = 0x0112,
268   [0xee] = 0x0145,
269   [0xef] = 0x2019,
270   [0xf0] = 0x00ad,
271   [0xf1] = 0x00b1,
272   [0xf2] = 0x201c,
273   [0xf3] = 0x00be,
274   [0xf4] = 0x00b6,
275   [0xf5] = 0x00a7,
276   [0xf6] = 0x00f7,
277   [0xf7] = 0x201e,
278   [0xf8] = 0x00b0,
279   [0xf9] = 0x2219,
280   [0xfa] = 0x00b7,
281   [0xfb] = 0x00b9,
282   [0xfc] = 0x00b3,
283   [0xfd] = 0x00b2,
284   [0xfe] = 0x25a0,
285   [0xff] = 0x00a0,
286 };
287 
288 
289 /* Index table for mapping from UCS4.  The table can be generated with
290 
291    cat .../unix/mappings/vendors/micsft/pc/cp775.txt |
292    awk '/^0x/ { if (NF > 2) print $2; }' | perl gap.pl
293 
294    where gap.pl is the file in this directory.
295  */
296 static const struct gap from_idx[] =
297 {
298   { .start = 0x0000, .end = 0x007f, .idx =     0 },
299   { .start = 0x00a0, .end = 0x00c9, .idx =   -32 },
300   { .start = 0x00d3, .end = 0x00e9, .idx =   -41 },
301   { .start = 0x00f3, .end = 0x0119, .idx =   -50 },
302   { .start = 0x0122, .end = 0x0123, .idx =   -58 },
303   { .start = 0x012a, .end = 0x012f, .idx =   -64 },
304   { .start = 0x0136, .end = 0x014d, .idx =   -70 },
305   { .start = 0x0156, .end = 0x0161, .idx =   -78 },
306   { .start = 0x016a, .end = 0x016b, .idx =   -86 },
307   { .start = 0x0172, .end = 0x017e, .idx =   -92 },
308   { .start = 0x2019, .end = 0x201e, .idx = -7926 },
309   { .start = 0x2219, .end = 0x2219, .idx = -8432 },
310   { .start = 0x2500, .end = 0x2502, .idx = -9174 },
311   { .start = 0x250c, .end = 0x251c, .idx = -9183 },
312   { .start = 0x2524, .end = 0x2524, .idx = -9190 },
313   { .start = 0x252c, .end = 0x252c, .idx = -9197 },
314   { .start = 0x2534, .end = 0x2534, .idx = -9204 },
315   { .start = 0x253c, .end = 0x253c, .idx = -9211 },
316   { .start = 0x2550, .end = 0x256c, .idx = -9230 },
317   { .start = 0x2580, .end = 0x2593, .idx = -9249 },
318   { .start = 0x25a0, .end = 0x25a0, .idx = -9261 },
319   { .start = 0xffff, .end = 0xffff, .idx =     0 }
320 };
321 
322 /* Table accessed through above index table.  It can be generated using:
323 
324    cat .../unix/mappings/vendors/micsft/pc/cp775.txt |
325    awk '/^0x/ { if (NF > 2) print $2, $1; }' | perl gaptab.pl
326 
327    where gaptab.pl is the file in this directory.
328  */
329 static const char from_ucs4[] =
330 {
331   '\x00', '\x01', '\x02', '\x03', '\x04', '\x05', '\x06', '\x07',
332   '\x08', '\x09', '\x0a', '\x0b', '\x0c', '\x0d', '\x0e', '\x0f',
333   '\x10', '\x11', '\x12', '\x13', '\x14', '\x15', '\x16', '\x17',
334   '\x18', '\x19', '\x1a', '\x1b', '\x1c', '\x1d', '\x1e', '\x1f',
335   '\x20', '\x21', '\x22', '\x23', '\x24', '\x25', '\x26', '\x27',
336   '\x28', '\x29', '\x2a', '\x2b', '\x2c', '\x2d', '\x2e', '\x2f',
337   '\x30', '\x31', '\x32', '\x33', '\x34', '\x35', '\x36', '\x37',
338   '\x38', '\x39', '\x3a', '\x3b', '\x3c', '\x3d', '\x3e', '\x3f',
339   '\x40', '\x41', '\x42', '\x43', '\x44', '\x45', '\x46', '\x47',
340   '\x48', '\x49', '\x4a', '\x4b', '\x4c', '\x4d', '\x4e', '\x4f',
341   '\x50', '\x51', '\x52', '\x53', '\x54', '\x55', '\x56', '\x57',
342   '\x58', '\x59', '\x5a', '\x5b', '\x5c', '\x5d', '\x5e', '\x5f',
343   '\x60', '\x61', '\x62', '\x63', '\x64', '\x65', '\x66', '\x67',
344   '\x68', '\x69', '\x6a', '\x6b', '\x6c', '\x6d', '\x6e', '\x6f',
345   '\x70', '\x71', '\x72', '\x73', '\x74', '\x75', '\x76', '\x77',
346   '\x78', '\x79', '\x7a', '\x7b', '\x7c', '\x7d', '\x7e', '\x7f',
347   '\xff', '\x00', '\x96', '\x9c', '\x9f', '\x00', '\xa7', '\xf5',
348   '\x00', '\xa8', '\x00', '\xae', '\xaa', '\xf0', '\xa9', '\x00',
349   '\xf8', '\xf1', '\xfd', '\xfc', '\x00', '\xe6', '\xf4', '\xfa',
350   '\x00', '\xfb', '\x00', '\xaf', '\xac', '\xab', '\xf3', '\x00',
351   '\x00', '\x00', '\x00', '\x00', '\x8e', '\x8f', '\x92', '\x00',
352   '\x00', '\x90', '\xe0', '\x00', '\xe5', '\x99', '\x9e', '\x9d',
353   '\x00', '\x00', '\x00', '\x9a', '\x00', '\x00', '\xe1', '\x00',
354   '\x00', '\x00', '\x00', '\x84', '\x86', '\x91', '\x00', '\x00',
355   '\x82', '\xa2', '\x00', '\xe4', '\x94', '\xf6', '\x9b', '\x00',
356   '\x00', '\x00', '\x81', '\x00', '\x00', '\x00', '\xa0', '\x83',
357   '\x00', '\x00', '\xb5', '\xd0', '\x80', '\x87', '\x00', '\x00',
358   '\x00', '\x00', '\xb6', '\xd1', '\x00', '\x00', '\x00', '\x00',
359   '\xed', '\x89', '\x00', '\x00', '\xb8', '\xd3', '\xb7', '\xd2',
360   '\x95', '\x85', '\xa1', '\x8c', '\x00', '\x00', '\xbd', '\xd4',
361   '\xe8', '\xe9', '\x00', '\x00', '\x00', '\xea', '\xeb', '\x00',
362   '\x00', '\x00', '\x00', '\xad', '\x88', '\xe3', '\xe7', '\xee',
363   '\xec', '\x00', '\x00', '\x00', '\x00', '\x00', '\xe2', '\x93',
364   '\x8a', '\x8b', '\x00', '\x00', '\x97', '\x98', '\x00', '\x00',
365   '\x00', '\x00', '\xbe', '\xd5', '\xc7', '\xd7', '\xc6', '\xd6',
366   '\x00', '\x00', '\x00', '\x00', '\x00', '\x8d', '\xa5', '\xa3',
367   '\xa4', '\xcf', '\xd8', '\xef', '\x00', '\x00', '\xf2', '\xa6',
368   '\xf7', '\xf9', '\xc4', '\x00', '\xb3', '\xda', '\x00', '\x00',
369   '\x00', '\xbf', '\x00', '\x00', '\x00', '\xc0', '\x00', '\x00',
370   '\x00', '\xd9', '\x00', '\x00', '\x00', '\xc3', '\xb4', '\xc2',
371   '\xc1', '\xc5', '\xcd', '\xba', '\x00', '\x00', '\xc9', '\x00',
372   '\x00', '\xbb', '\x00', '\x00', '\xc8', '\x00', '\x00', '\xbc',
373   '\x00', '\x00', '\xcc', '\x00', '\x00', '\xb9', '\x00', '\x00',
374   '\xcb', '\x00', '\x00', '\xca', '\x00', '\x00', '\xce', '\xdf',
375   '\x00', '\x00', '\x00', '\xdc', '\x00', '\x00', '\x00', '\xdb',
376   '\x00', '\x00', '\x00', '\xdd', '\x00', '\x00', '\x00', '\xde',
377   '\xb0', '\xb1', '\xb2', '\xfe',
378 };
379