line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#! /bin/false |
2
|
|
|
|
|
|
|
# vim: set autoindent shiftwidth=4 tabstop=4: |
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
# Conversion routines for IBM037. |
5
|
|
|
|
|
|
|
# Copyright (C) 2002-2017 Guido Flohr , |
6
|
|
|
|
|
|
|
# all rights reserved. |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
# This program is free software: you can redistribute it and/or modify |
9
|
|
|
|
|
|
|
# it under the terms of the GNU General Public License as published by |
10
|
|
|
|
|
|
|
# the Free Software Foundation; either version 3 of the License, or |
11
|
|
|
|
|
|
|
# (at your option) any later version. |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
# This program is distributed in the hope that it will be useful, |
14
|
|
|
|
|
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
15
|
|
|
|
|
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
16
|
|
|
|
|
|
|
# GNU General Public License for more details. |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
# You should have received a copy of the GNU General Public License |
19
|
|
|
|
|
|
|
# along with this program. If not, see . |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
package Locale::RecodeData::IBM037; |
22
|
|
|
|
|
|
|
|
23
|
1
|
|
|
1
|
|
8
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
41
|
|
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
require Locale::RecodeData; |
26
|
1
|
|
|
1
|
|
7
|
use base qw(Locale::RecodeData); |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
471
|
|
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
my @to_ucs4 = ( |
29
|
|
|
|
|
|
|
0x0000, |
30
|
|
|
|
|
|
|
0x0001, |
31
|
|
|
|
|
|
|
0x0002, |
32
|
|
|
|
|
|
|
0x0003, |
33
|
|
|
|
|
|
|
0x009c, |
34
|
|
|
|
|
|
|
0x0009, |
35
|
|
|
|
|
|
|
0x0086, |
36
|
|
|
|
|
|
|
0x007f, |
37
|
|
|
|
|
|
|
0x0097, |
38
|
|
|
|
|
|
|
0x008d, |
39
|
|
|
|
|
|
|
0x008e, |
40
|
|
|
|
|
|
|
0x000b, |
41
|
|
|
|
|
|
|
0x000c, |
42
|
|
|
|
|
|
|
0x000d, |
43
|
|
|
|
|
|
|
0x000e, |
44
|
|
|
|
|
|
|
0x000f, |
45
|
|
|
|
|
|
|
0x0010, |
46
|
|
|
|
|
|
|
0x0011, |
47
|
|
|
|
|
|
|
0x0012, |
48
|
|
|
|
|
|
|
0x0013, |
49
|
|
|
|
|
|
|
0x009d, |
50
|
|
|
|
|
|
|
0x0085, |
51
|
|
|
|
|
|
|
0x0008, |
52
|
|
|
|
|
|
|
0x0087, |
53
|
|
|
|
|
|
|
0x0018, |
54
|
|
|
|
|
|
|
0x0019, |
55
|
|
|
|
|
|
|
0x0092, |
56
|
|
|
|
|
|
|
0x008f, |
57
|
|
|
|
|
|
|
0x001c, |
58
|
|
|
|
|
|
|
0x001d, |
59
|
|
|
|
|
|
|
0x001e, |
60
|
|
|
|
|
|
|
0x001f, |
61
|
|
|
|
|
|
|
0x0080, |
62
|
|
|
|
|
|
|
0x0081, |
63
|
|
|
|
|
|
|
0x0082, |
64
|
|
|
|
|
|
|
0x0083, |
65
|
|
|
|
|
|
|
0x0084, |
66
|
|
|
|
|
|
|
0x000a, |
67
|
|
|
|
|
|
|
0x0017, |
68
|
|
|
|
|
|
|
0x001b, |
69
|
|
|
|
|
|
|
0x0088, |
70
|
|
|
|
|
|
|
0x0089, |
71
|
|
|
|
|
|
|
0x008a, |
72
|
|
|
|
|
|
|
0x008b, |
73
|
|
|
|
|
|
|
0x008c, |
74
|
|
|
|
|
|
|
0x0005, |
75
|
|
|
|
|
|
|
0x0006, |
76
|
|
|
|
|
|
|
0x0007, |
77
|
|
|
|
|
|
|
0x0090, |
78
|
|
|
|
|
|
|
0x0091, |
79
|
|
|
|
|
|
|
0x0016, |
80
|
|
|
|
|
|
|
0x0093, |
81
|
|
|
|
|
|
|
0x0094, |
82
|
|
|
|
|
|
|
0x0095, |
83
|
|
|
|
|
|
|
0x0096, |
84
|
|
|
|
|
|
|
0x0004, |
85
|
|
|
|
|
|
|
0x0098, |
86
|
|
|
|
|
|
|
0x0099, |
87
|
|
|
|
|
|
|
0x009a, |
88
|
|
|
|
|
|
|
0x009b, |
89
|
|
|
|
|
|
|
0x0014, |
90
|
|
|
|
|
|
|
0x0015, |
91
|
|
|
|
|
|
|
0x009e, |
92
|
|
|
|
|
|
|
0x001a, |
93
|
|
|
|
|
|
|
0x0020, |
94
|
|
|
|
|
|
|
0x00a0, |
95
|
|
|
|
|
|
|
0x00e2, |
96
|
|
|
|
|
|
|
0x00e4, |
97
|
|
|
|
|
|
|
0x00e0, |
98
|
|
|
|
|
|
|
0x00e1, |
99
|
|
|
|
|
|
|
0x00e3, |
100
|
|
|
|
|
|
|
0x00e5, |
101
|
|
|
|
|
|
|
0x00e7, |
102
|
|
|
|
|
|
|
0x00f1, |
103
|
|
|
|
|
|
|
0x00a2, |
104
|
|
|
|
|
|
|
0x002e, |
105
|
|
|
|
|
|
|
0x003c, |
106
|
|
|
|
|
|
|
0x0028, |
107
|
|
|
|
|
|
|
0x002b, |
108
|
|
|
|
|
|
|
0x007c, |
109
|
|
|
|
|
|
|
0x0026, |
110
|
|
|
|
|
|
|
0x00e9, |
111
|
|
|
|
|
|
|
0x00ea, |
112
|
|
|
|
|
|
|
0x00eb, |
113
|
|
|
|
|
|
|
0x00e8, |
114
|
|
|
|
|
|
|
0x00ed, |
115
|
|
|
|
|
|
|
0x00ee, |
116
|
|
|
|
|
|
|
0x00ef, |
117
|
|
|
|
|
|
|
0x00ec, |
118
|
|
|
|
|
|
|
0x00df, |
119
|
|
|
|
|
|
|
0x0021, |
120
|
|
|
|
|
|
|
0x0024, |
121
|
|
|
|
|
|
|
0x002a, |
122
|
|
|
|
|
|
|
0x0029, |
123
|
|
|
|
|
|
|
0x003b, |
124
|
|
|
|
|
|
|
0x00ac, |
125
|
|
|
|
|
|
|
0x002d, |
126
|
|
|
|
|
|
|
0x002f, |
127
|
|
|
|
|
|
|
0x00c2, |
128
|
|
|
|
|
|
|
0x00c4, |
129
|
|
|
|
|
|
|
0x00c0, |
130
|
|
|
|
|
|
|
0x00c1, |
131
|
|
|
|
|
|
|
0x00c3, |
132
|
|
|
|
|
|
|
0x00c5, |
133
|
|
|
|
|
|
|
0x00c7, |
134
|
|
|
|
|
|
|
0x00d1, |
135
|
|
|
|
|
|
|
0x00a6, |
136
|
|
|
|
|
|
|
0x002c, |
137
|
|
|
|
|
|
|
0x0025, |
138
|
|
|
|
|
|
|
0x005f, |
139
|
|
|
|
|
|
|
0x003e, |
140
|
|
|
|
|
|
|
0x003f, |
141
|
|
|
|
|
|
|
0x00f8, |
142
|
|
|
|
|
|
|
0x00c9, |
143
|
|
|
|
|
|
|
0x00ca, |
144
|
|
|
|
|
|
|
0x00cb, |
145
|
|
|
|
|
|
|
0x00c8, |
146
|
|
|
|
|
|
|
0x00cd, |
147
|
|
|
|
|
|
|
0x00ce, |
148
|
|
|
|
|
|
|
0x00cf, |
149
|
|
|
|
|
|
|
0x00cc, |
150
|
|
|
|
|
|
|
0x0060, |
151
|
|
|
|
|
|
|
0x003a, |
152
|
|
|
|
|
|
|
0x0023, |
153
|
|
|
|
|
|
|
0x0040, |
154
|
|
|
|
|
|
|
0x0027, |
155
|
|
|
|
|
|
|
0x003d, |
156
|
|
|
|
|
|
|
0x0022, |
157
|
|
|
|
|
|
|
0x00d8, |
158
|
|
|
|
|
|
|
0x0061, |
159
|
|
|
|
|
|
|
0x0062, |
160
|
|
|
|
|
|
|
0x0063, |
161
|
|
|
|
|
|
|
0x0064, |
162
|
|
|
|
|
|
|
0x0065, |
163
|
|
|
|
|
|
|
0x0066, |
164
|
|
|
|
|
|
|
0x0067, |
165
|
|
|
|
|
|
|
0x0068, |
166
|
|
|
|
|
|
|
0x0069, |
167
|
|
|
|
|
|
|
0x00ab, |
168
|
|
|
|
|
|
|
0x00bb, |
169
|
|
|
|
|
|
|
0x00f0, |
170
|
|
|
|
|
|
|
0x00fd, |
171
|
|
|
|
|
|
|
0x00fe, |
172
|
|
|
|
|
|
|
0x00b1, |
173
|
|
|
|
|
|
|
0x00b0, |
174
|
|
|
|
|
|
|
0x006a, |
175
|
|
|
|
|
|
|
0x006b, |
176
|
|
|
|
|
|
|
0x006c, |
177
|
|
|
|
|
|
|
0x006d, |
178
|
|
|
|
|
|
|
0x006e, |
179
|
|
|
|
|
|
|
0x006f, |
180
|
|
|
|
|
|
|
0x0070, |
181
|
|
|
|
|
|
|
0x0071, |
182
|
|
|
|
|
|
|
0x0072, |
183
|
|
|
|
|
|
|
0x00aa, |
184
|
|
|
|
|
|
|
0x00ba, |
185
|
|
|
|
|
|
|
0x00e6, |
186
|
|
|
|
|
|
|
0x00b8, |
187
|
|
|
|
|
|
|
0x00c6, |
188
|
|
|
|
|
|
|
0x00a4, |
189
|
|
|
|
|
|
|
0x00b5, |
190
|
|
|
|
|
|
|
0x007e, |
191
|
|
|
|
|
|
|
0x0073, |
192
|
|
|
|
|
|
|
0x0074, |
193
|
|
|
|
|
|
|
0x0075, |
194
|
|
|
|
|
|
|
0x0076, |
195
|
|
|
|
|
|
|
0x0077, |
196
|
|
|
|
|
|
|
0x0078, |
197
|
|
|
|
|
|
|
0x0079, |
198
|
|
|
|
|
|
|
0x007a, |
199
|
|
|
|
|
|
|
0x00a1, |
200
|
|
|
|
|
|
|
0x00bf, |
201
|
|
|
|
|
|
|
0x00d0, |
202
|
|
|
|
|
|
|
0x00dd, |
203
|
|
|
|
|
|
|
0x00de, |
204
|
|
|
|
|
|
|
0x00ae, |
205
|
|
|
|
|
|
|
0x005e, |
206
|
|
|
|
|
|
|
0x00a3, |
207
|
|
|
|
|
|
|
0x00a5, |
208
|
|
|
|
|
|
|
0x00b7, |
209
|
|
|
|
|
|
|
0x00a9, |
210
|
|
|
|
|
|
|
0x00a7, |
211
|
|
|
|
|
|
|
0x00b6, |
212
|
|
|
|
|
|
|
0x00bc, |
213
|
|
|
|
|
|
|
0x00bd, |
214
|
|
|
|
|
|
|
0x00be, |
215
|
|
|
|
|
|
|
0x005b, |
216
|
|
|
|
|
|
|
0x005d, |
217
|
|
|
|
|
|
|
0x00af, |
218
|
|
|
|
|
|
|
0x00a8, |
219
|
|
|
|
|
|
|
0x00b4, |
220
|
|
|
|
|
|
|
0x00d7, |
221
|
|
|
|
|
|
|
0x007b, |
222
|
|
|
|
|
|
|
0x0041, |
223
|
|
|
|
|
|
|
0x0042, |
224
|
|
|
|
|
|
|
0x0043, |
225
|
|
|
|
|
|
|
0x0044, |
226
|
|
|
|
|
|
|
0x0045, |
227
|
|
|
|
|
|
|
0x0046, |
228
|
|
|
|
|
|
|
0x0047, |
229
|
|
|
|
|
|
|
0x0048, |
230
|
|
|
|
|
|
|
0x0049, |
231
|
|
|
|
|
|
|
0x00ad, |
232
|
|
|
|
|
|
|
0x00f4, |
233
|
|
|
|
|
|
|
0x00f6, |
234
|
|
|
|
|
|
|
0x00f2, |
235
|
|
|
|
|
|
|
0x00f3, |
236
|
|
|
|
|
|
|
0x00f5, |
237
|
|
|
|
|
|
|
0x007d, |
238
|
|
|
|
|
|
|
0x004a, |
239
|
|
|
|
|
|
|
0x004b, |
240
|
|
|
|
|
|
|
0x004c, |
241
|
|
|
|
|
|
|
0x004d, |
242
|
|
|
|
|
|
|
0x004e, |
243
|
|
|
|
|
|
|
0x004f, |
244
|
|
|
|
|
|
|
0x0050, |
245
|
|
|
|
|
|
|
0x0051, |
246
|
|
|
|
|
|
|
0x0052, |
247
|
|
|
|
|
|
|
0x00b9, |
248
|
|
|
|
|
|
|
0x00fb, |
249
|
|
|
|
|
|
|
0x00fc, |
250
|
|
|
|
|
|
|
0x00f9, |
251
|
|
|
|
|
|
|
0x00fa, |
252
|
|
|
|
|
|
|
0x00ff, |
253
|
|
|
|
|
|
|
0x005c, |
254
|
|
|
|
|
|
|
0x00f7, |
255
|
|
|
|
|
|
|
0x0053, |
256
|
|
|
|
|
|
|
0x0054, |
257
|
|
|
|
|
|
|
0x0055, |
258
|
|
|
|
|
|
|
0x0056, |
259
|
|
|
|
|
|
|
0x0057, |
260
|
|
|
|
|
|
|
0x0058, |
261
|
|
|
|
|
|
|
0x0059, |
262
|
|
|
|
|
|
|
0x005a, |
263
|
|
|
|
|
|
|
0x00b2, |
264
|
|
|
|
|
|
|
0x00d4, |
265
|
|
|
|
|
|
|
0x00d6, |
266
|
|
|
|
|
|
|
0x00d2, |
267
|
|
|
|
|
|
|
0x00d3, |
268
|
|
|
|
|
|
|
0x00d5, |
269
|
|
|
|
|
|
|
0x0030, |
270
|
|
|
|
|
|
|
0x0031, |
271
|
|
|
|
|
|
|
0x0032, |
272
|
|
|
|
|
|
|
0x0033, |
273
|
|
|
|
|
|
|
0x0034, |
274
|
|
|
|
|
|
|
0x0035, |
275
|
|
|
|
|
|
|
0x0036, |
276
|
|
|
|
|
|
|
0x0037, |
277
|
|
|
|
|
|
|
0x0038, |
278
|
|
|
|
|
|
|
0x0039, |
279
|
|
|
|
|
|
|
0x00b3, |
280
|
|
|
|
|
|
|
0x00db, |
281
|
|
|
|
|
|
|
0x00dc, |
282
|
|
|
|
|
|
|
0x00d9, |
283
|
|
|
|
|
|
|
0x00da, |
284
|
|
|
|
|
|
|
0x009f, |
285
|
|
|
|
|
|
|
); |
286
|
|
|
|
|
|
|
|
287
|
|
|
|
|
|
|
my @to_utf8 = ( |
288
|
|
|
|
|
|
|
"\x00", |
289
|
|
|
|
|
|
|
"\x01", |
290
|
|
|
|
|
|
|
"\x02", |
291
|
|
|
|
|
|
|
"\x03", |
292
|
|
|
|
|
|
|
"\xc2\x9c", |
293
|
|
|
|
|
|
|
"\x09", |
294
|
|
|
|
|
|
|
"\xc2\x86", |
295
|
|
|
|
|
|
|
"\x7f", |
296
|
|
|
|
|
|
|
"\xc2\x97", |
297
|
|
|
|
|
|
|
"\xc2\x8d", |
298
|
|
|
|
|
|
|
"\xc2\x8e", |
299
|
|
|
|
|
|
|
"\x0b", |
300
|
|
|
|
|
|
|
"\x0c", |
301
|
|
|
|
|
|
|
"\x0d", |
302
|
|
|
|
|
|
|
"\x0e", |
303
|
|
|
|
|
|
|
"\x0f", |
304
|
|
|
|
|
|
|
"\x10", |
305
|
|
|
|
|
|
|
"\x11", |
306
|
|
|
|
|
|
|
"\x12", |
307
|
|
|
|
|
|
|
"\x13", |
308
|
|
|
|
|
|
|
"\xc2\x9d", |
309
|
|
|
|
|
|
|
"\xc2\x85", |
310
|
|
|
|
|
|
|
"\x08", |
311
|
|
|
|
|
|
|
"\xc2\x87", |
312
|
|
|
|
|
|
|
"\x18", |
313
|
|
|
|
|
|
|
"\x19", |
314
|
|
|
|
|
|
|
"\xc2\x92", |
315
|
|
|
|
|
|
|
"\xc2\x8f", |
316
|
|
|
|
|
|
|
"\x1c", |
317
|
|
|
|
|
|
|
"\x1d", |
318
|
|
|
|
|
|
|
"\x1e", |
319
|
|
|
|
|
|
|
"\x1f", |
320
|
|
|
|
|
|
|
"\xc2\x80", |
321
|
|
|
|
|
|
|
"\xc2\x81", |
322
|
|
|
|
|
|
|
"\xc2\x82", |
323
|
|
|
|
|
|
|
"\xc2\x83", |
324
|
|
|
|
|
|
|
"\xc2\x84", |
325
|
|
|
|
|
|
|
"\x0a", |
326
|
|
|
|
|
|
|
"\x17", |
327
|
|
|
|
|
|
|
"\x1b", |
328
|
|
|
|
|
|
|
"\xc2\x88", |
329
|
|
|
|
|
|
|
"\xc2\x89", |
330
|
|
|
|
|
|
|
"\xc2\x8a", |
331
|
|
|
|
|
|
|
"\xc2\x8b", |
332
|
|
|
|
|
|
|
"\xc2\x8c", |
333
|
|
|
|
|
|
|
"\x05", |
334
|
|
|
|
|
|
|
"\x06", |
335
|
|
|
|
|
|
|
"\x07", |
336
|
|
|
|
|
|
|
"\xc2\x90", |
337
|
|
|
|
|
|
|
"\xc2\x91", |
338
|
|
|
|
|
|
|
"\x16", |
339
|
|
|
|
|
|
|
"\xc2\x93", |
340
|
|
|
|
|
|
|
"\xc2\x94", |
341
|
|
|
|
|
|
|
"\xc2\x95", |
342
|
|
|
|
|
|
|
"\xc2\x96", |
343
|
|
|
|
|
|
|
"\x04", |
344
|
|
|
|
|
|
|
"\xc2\x98", |
345
|
|
|
|
|
|
|
"\xc2\x99", |
346
|
|
|
|
|
|
|
"\xc2\x9a", |
347
|
|
|
|
|
|
|
"\xc2\x9b", |
348
|
|
|
|
|
|
|
"\x14", |
349
|
|
|
|
|
|
|
"\x15", |
350
|
|
|
|
|
|
|
"\xc2\x9e", |
351
|
|
|
|
|
|
|
"\x1a", |
352
|
|
|
|
|
|
|
"\x20", |
353
|
|
|
|
|
|
|
"\xc2\xa0", |
354
|
|
|
|
|
|
|
"\xc3\xa2", |
355
|
|
|
|
|
|
|
"\xc3\xa4", |
356
|
|
|
|
|
|
|
"\xc3\xa0", |
357
|
|
|
|
|
|
|
"\xc3\xa1", |
358
|
|
|
|
|
|
|
"\xc3\xa3", |
359
|
|
|
|
|
|
|
"\xc3\xa5", |
360
|
|
|
|
|
|
|
"\xc3\xa7", |
361
|
|
|
|
|
|
|
"\xc3\xb1", |
362
|
|
|
|
|
|
|
"\xc2\xa2", |
363
|
|
|
|
|
|
|
"\x2e", |
364
|
|
|
|
|
|
|
"\x3c", |
365
|
|
|
|
|
|
|
"\x28", |
366
|
|
|
|
|
|
|
"\x2b", |
367
|
|
|
|
|
|
|
"\x7c", |
368
|
|
|
|
|
|
|
"\x26", |
369
|
|
|
|
|
|
|
"\xc3\xa9", |
370
|
|
|
|
|
|
|
"\xc3\xaa", |
371
|
|
|
|
|
|
|
"\xc3\xab", |
372
|
|
|
|
|
|
|
"\xc3\xa8", |
373
|
|
|
|
|
|
|
"\xc3\xad", |
374
|
|
|
|
|
|
|
"\xc3\xae", |
375
|
|
|
|
|
|
|
"\xc3\xaf", |
376
|
|
|
|
|
|
|
"\xc3\xac", |
377
|
|
|
|
|
|
|
"\xc3\x9f", |
378
|
|
|
|
|
|
|
"\x21", |
379
|
|
|
|
|
|
|
"\x24", |
380
|
|
|
|
|
|
|
"\x2a", |
381
|
|
|
|
|
|
|
"\x29", |
382
|
|
|
|
|
|
|
"\x3b", |
383
|
|
|
|
|
|
|
"\xc2\xac", |
384
|
|
|
|
|
|
|
"\x2d", |
385
|
|
|
|
|
|
|
"\x2f", |
386
|
|
|
|
|
|
|
"\xc3\x82", |
387
|
|
|
|
|
|
|
"\xc3\x84", |
388
|
|
|
|
|
|
|
"\xc3\x80", |
389
|
|
|
|
|
|
|
"\xc3\x81", |
390
|
|
|
|
|
|
|
"\xc3\x83", |
391
|
|
|
|
|
|
|
"\xc3\x85", |
392
|
|
|
|
|
|
|
"\xc3\x87", |
393
|
|
|
|
|
|
|
"\xc3\x91", |
394
|
|
|
|
|
|
|
"\xc2\xa6", |
395
|
|
|
|
|
|
|
"\x2c", |
396
|
|
|
|
|
|
|
"\x25", |
397
|
|
|
|
|
|
|
"\x5f", |
398
|
|
|
|
|
|
|
"\x3e", |
399
|
|
|
|
|
|
|
"\x3f", |
400
|
|
|
|
|
|
|
"\xc3\xb8", |
401
|
|
|
|
|
|
|
"\xc3\x89", |
402
|
|
|
|
|
|
|
"\xc3\x8a", |
403
|
|
|
|
|
|
|
"\xc3\x8b", |
404
|
|
|
|
|
|
|
"\xc3\x88", |
405
|
|
|
|
|
|
|
"\xc3\x8d", |
406
|
|
|
|
|
|
|
"\xc3\x8e", |
407
|
|
|
|
|
|
|
"\xc3\x8f", |
408
|
|
|
|
|
|
|
"\xc3\x8c", |
409
|
|
|
|
|
|
|
"\x60", |
410
|
|
|
|
|
|
|
"\x3a", |
411
|
|
|
|
|
|
|
"\x23", |
412
|
|
|
|
|
|
|
"\x40", |
413
|
|
|
|
|
|
|
"\x27", |
414
|
|
|
|
|
|
|
"\x3d", |
415
|
|
|
|
|
|
|
"\x22", |
416
|
|
|
|
|
|
|
"\xc3\x98", |
417
|
|
|
|
|
|
|
"\x61", |
418
|
|
|
|
|
|
|
"\x62", |
419
|
|
|
|
|
|
|
"\x63", |
420
|
|
|
|
|
|
|
"\x64", |
421
|
|
|
|
|
|
|
"\x65", |
422
|
|
|
|
|
|
|
"\x66", |
423
|
|
|
|
|
|
|
"\x67", |
424
|
|
|
|
|
|
|
"\x68", |
425
|
|
|
|
|
|
|
"\x69", |
426
|
|
|
|
|
|
|
"\xc2\xab", |
427
|
|
|
|
|
|
|
"\xc2\xbb", |
428
|
|
|
|
|
|
|
"\xc3\xb0", |
429
|
|
|
|
|
|
|
"\xc3\xbd", |
430
|
|
|
|
|
|
|
"\xc3\xbe", |
431
|
|
|
|
|
|
|
"\xc2\xb1", |
432
|
|
|
|
|
|
|
"\xc2\xb0", |
433
|
|
|
|
|
|
|
"\x6a", |
434
|
|
|
|
|
|
|
"\x6b", |
435
|
|
|
|
|
|
|
"\x6c", |
436
|
|
|
|
|
|
|
"\x6d", |
437
|
|
|
|
|
|
|
"\x6e", |
438
|
|
|
|
|
|
|
"\x6f", |
439
|
|
|
|
|
|
|
"\x70", |
440
|
|
|
|
|
|
|
"\x71", |
441
|
|
|
|
|
|
|
"\x72", |
442
|
|
|
|
|
|
|
"\xc2\xaa", |
443
|
|
|
|
|
|
|
"\xc2\xba", |
444
|
|
|
|
|
|
|
"\xc3\xa6", |
445
|
|
|
|
|
|
|
"\xc2\xb8", |
446
|
|
|
|
|
|
|
"\xc3\x86", |
447
|
|
|
|
|
|
|
"\xc2\xa4", |
448
|
|
|
|
|
|
|
"\xc2\xb5", |
449
|
|
|
|
|
|
|
"\x7e", |
450
|
|
|
|
|
|
|
"\x73", |
451
|
|
|
|
|
|
|
"\x74", |
452
|
|
|
|
|
|
|
"\x75", |
453
|
|
|
|
|
|
|
"\x76", |
454
|
|
|
|
|
|
|
"\x77", |
455
|
|
|
|
|
|
|
"\x78", |
456
|
|
|
|
|
|
|
"\x79", |
457
|
|
|
|
|
|
|
"\x7a", |
458
|
|
|
|
|
|
|
"\xc2\xa1", |
459
|
|
|
|
|
|
|
"\xc2\xbf", |
460
|
|
|
|
|
|
|
"\xc3\x90", |
461
|
|
|
|
|
|
|
"\xc3\x9d", |
462
|
|
|
|
|
|
|
"\xc3\x9e", |
463
|
|
|
|
|
|
|
"\xc2\xae", |
464
|
|
|
|
|
|
|
"\x5e", |
465
|
|
|
|
|
|
|
"\xc2\xa3", |
466
|
|
|
|
|
|
|
"\xc2\xa5", |
467
|
|
|
|
|
|
|
"\xc2\xb7", |
468
|
|
|
|
|
|
|
"\xc2\xa9", |
469
|
|
|
|
|
|
|
"\xc2\xa7", |
470
|
|
|
|
|
|
|
"\xc2\xb6", |
471
|
|
|
|
|
|
|
"\xc2\xbc", |
472
|
|
|
|
|
|
|
"\xc2\xbd", |
473
|
|
|
|
|
|
|
"\xc2\xbe", |
474
|
|
|
|
|
|
|
"\x5b", |
475
|
|
|
|
|
|
|
"\x5d", |
476
|
|
|
|
|
|
|
"\xc2\xaf", |
477
|
|
|
|
|
|
|
"\xc2\xa8", |
478
|
|
|
|
|
|
|
"\xc2\xb4", |
479
|
|
|
|
|
|
|
"\xc3\x97", |
480
|
|
|
|
|
|
|
"\x7b", |
481
|
|
|
|
|
|
|
"\x41", |
482
|
|
|
|
|
|
|
"\x42", |
483
|
|
|
|
|
|
|
"\x43", |
484
|
|
|
|
|
|
|
"\x44", |
485
|
|
|
|
|
|
|
"\x45", |
486
|
|
|
|
|
|
|
"\x46", |
487
|
|
|
|
|
|
|
"\x47", |
488
|
|
|
|
|
|
|
"\x48", |
489
|
|
|
|
|
|
|
"\x49", |
490
|
|
|
|
|
|
|
"\xc2\xad", |
491
|
|
|
|
|
|
|
"\xc3\xb4", |
492
|
|
|
|
|
|
|
"\xc3\xb6", |
493
|
|
|
|
|
|
|
"\xc3\xb2", |
494
|
|
|
|
|
|
|
"\xc3\xb3", |
495
|
|
|
|
|
|
|
"\xc3\xb5", |
496
|
|
|
|
|
|
|
"\x7d", |
497
|
|
|
|
|
|
|
"\x4a", |
498
|
|
|
|
|
|
|
"\x4b", |
499
|
|
|
|
|
|
|
"\x4c", |
500
|
|
|
|
|
|
|
"\x4d", |
501
|
|
|
|
|
|
|
"\x4e", |
502
|
|
|
|
|
|
|
"\x4f", |
503
|
|
|
|
|
|
|
"\x50", |
504
|
|
|
|
|
|
|
"\x51", |
505
|
|
|
|
|
|
|
"\x52", |
506
|
|
|
|
|
|
|
"\xc2\xb9", |
507
|
|
|
|
|
|
|
"\xc3\xbb", |
508
|
|
|
|
|
|
|
"\xc3\xbc", |
509
|
|
|
|
|
|
|
"\xc3\xb9", |
510
|
|
|
|
|
|
|
"\xc3\xba", |
511
|
|
|
|
|
|
|
"\xc3\xbf", |
512
|
|
|
|
|
|
|
"\x5c", |
513
|
|
|
|
|
|
|
"\xc3\xb7", |
514
|
|
|
|
|
|
|
"\x53", |
515
|
|
|
|
|
|
|
"\x54", |
516
|
|
|
|
|
|
|
"\x55", |
517
|
|
|
|
|
|
|
"\x56", |
518
|
|
|
|
|
|
|
"\x57", |
519
|
|
|
|
|
|
|
"\x58", |
520
|
|
|
|
|
|
|
"\x59", |
521
|
|
|
|
|
|
|
"\x5a", |
522
|
|
|
|
|
|
|
"\xc2\xb2", |
523
|
|
|
|
|
|
|
"\xc3\x94", |
524
|
|
|
|
|
|
|
"\xc3\x96", |
525
|
|
|
|
|
|
|
"\xc3\x92", |
526
|
|
|
|
|
|
|
"\xc3\x93", |
527
|
|
|
|
|
|
|
"\xc3\x95", |
528
|
|
|
|
|
|
|
"\x30", |
529
|
|
|
|
|
|
|
"\x31", |
530
|
|
|
|
|
|
|
"\x32", |
531
|
|
|
|
|
|
|
"\x33", |
532
|
|
|
|
|
|
|
"\x34", |
533
|
|
|
|
|
|
|
"\x35", |
534
|
|
|
|
|
|
|
"\x36", |
535
|
|
|
|
|
|
|
"\x37", |
536
|
|
|
|
|
|
|
"\x38", |
537
|
|
|
|
|
|
|
"\x39", |
538
|
|
|
|
|
|
|
"\xc2\xb3", |
539
|
|
|
|
|
|
|
"\xc3\x9b", |
540
|
|
|
|
|
|
|
"\xc3\x9c", |
541
|
|
|
|
|
|
|
"\xc3\x99", |
542
|
|
|
|
|
|
|
"\xc3\x9a", |
543
|
|
|
|
|
|
|
"\xc2\x9f", |
544
|
|
|
|
|
|
|
); |
545
|
|
|
|
|
|
|
|
546
|
|
|
|
|
|
|
my %from_ucs4 = ( |
547
|
|
|
|
|
|
|
0x00000000 => "\x00", |
548
|
|
|
|
|
|
|
0x00000001 => "\x01", |
549
|
|
|
|
|
|
|
0x00000002 => "\x02", |
550
|
|
|
|
|
|
|
0x00000003 => "\x03", |
551
|
|
|
|
|
|
|
0x00000004 => "\x37", |
552
|
|
|
|
|
|
|
0x00000005 => "\x2d", |
553
|
|
|
|
|
|
|
0x00000006 => "\x2e", |
554
|
|
|
|
|
|
|
0x00000007 => "\x2f", |
555
|
|
|
|
|
|
|
0x00000008 => "\x16", |
556
|
|
|
|
|
|
|
0x00000009 => "\x05", |
557
|
|
|
|
|
|
|
0x0000000a => "\x25", |
558
|
|
|
|
|
|
|
0x0000000b => "\x0b", |
559
|
|
|
|
|
|
|
0x0000000c => "\x0c", |
560
|
|
|
|
|
|
|
0x0000000d => "\x0d", |
561
|
|
|
|
|
|
|
0x0000000e => "\x0e", |
562
|
|
|
|
|
|
|
0x0000000f => "\x0f", |
563
|
|
|
|
|
|
|
0x00000010 => "\x10", |
564
|
|
|
|
|
|
|
0x00000011 => "\x11", |
565
|
|
|
|
|
|
|
0x00000012 => "\x12", |
566
|
|
|
|
|
|
|
0x00000013 => "\x13", |
567
|
|
|
|
|
|
|
0x00000014 => "\x3c", |
568
|
|
|
|
|
|
|
0x00000015 => "\x3d", |
569
|
|
|
|
|
|
|
0x00000016 => "\x32", |
570
|
|
|
|
|
|
|
0x00000017 => "\x26", |
571
|
|
|
|
|
|
|
0x00000018 => "\x18", |
572
|
|
|
|
|
|
|
0x00000019 => "\x19", |
573
|
|
|
|
|
|
|
0x0000001a => "\x3f", |
574
|
|
|
|
|
|
|
0x0000001b => "\x27", |
575
|
|
|
|
|
|
|
0x0000001c => "\x1c", |
576
|
|
|
|
|
|
|
0x0000001d => "\x1d", |
577
|
|
|
|
|
|
|
0x0000001e => "\x1e", |
578
|
|
|
|
|
|
|
0x0000001f => "\x1f", |
579
|
|
|
|
|
|
|
0x00000020 => "\x40", |
580
|
|
|
|
|
|
|
0x00000021 => "\x5a", |
581
|
|
|
|
|
|
|
0x00000022 => "\x7f", |
582
|
|
|
|
|
|
|
0x00000023 => "\x7b", |
583
|
|
|
|
|
|
|
0x00000024 => "\x5b", |
584
|
|
|
|
|
|
|
0x00000025 => "\x6c", |
585
|
|
|
|
|
|
|
0x00000026 => "\x50", |
586
|
|
|
|
|
|
|
0x00000027 => "\x7d", |
587
|
|
|
|
|
|
|
0x00000028 => "\x4d", |
588
|
|
|
|
|
|
|
0x00000029 => "\x5d", |
589
|
|
|
|
|
|
|
0x0000002a => "\x5c", |
590
|
|
|
|
|
|
|
0x0000002b => "\x4e", |
591
|
|
|
|
|
|
|
0x0000002c => "\x6b", |
592
|
|
|
|
|
|
|
0x0000002d => "\x60", |
593
|
|
|
|
|
|
|
0x0000002e => "\x4b", |
594
|
|
|
|
|
|
|
0x0000002f => "\x61", |
595
|
|
|
|
|
|
|
0x00000030 => "\xf0", |
596
|
|
|
|
|
|
|
0x00000031 => "\xf1", |
597
|
|
|
|
|
|
|
0x00000032 => "\xf2", |
598
|
|
|
|
|
|
|
0x00000033 => "\xf3", |
599
|
|
|
|
|
|
|
0x00000034 => "\xf4", |
600
|
|
|
|
|
|
|
0x00000035 => "\xf5", |
601
|
|
|
|
|
|
|
0x00000036 => "\xf6", |
602
|
|
|
|
|
|
|
0x00000037 => "\xf7", |
603
|
|
|
|
|
|
|
0x00000038 => "\xf8", |
604
|
|
|
|
|
|
|
0x00000039 => "\xf9", |
605
|
|
|
|
|
|
|
0x0000003a => "\x7a", |
606
|
|
|
|
|
|
|
0x0000003b => "\x5e", |
607
|
|
|
|
|
|
|
0x0000003c => "\x4c", |
608
|
|
|
|
|
|
|
0x0000003d => "\x7e", |
609
|
|
|
|
|
|
|
0x0000003e => "\x6e", |
610
|
|
|
|
|
|
|
0x0000003f => "\x6f", |
611
|
|
|
|
|
|
|
0x00000040 => "\x7c", |
612
|
|
|
|
|
|
|
0x00000041 => "\xc1", |
613
|
|
|
|
|
|
|
0x00000042 => "\xc2", |
614
|
|
|
|
|
|
|
0x00000043 => "\xc3", |
615
|
|
|
|
|
|
|
0x00000044 => "\xc4", |
616
|
|
|
|
|
|
|
0x00000045 => "\xc5", |
617
|
|
|
|
|
|
|
0x00000046 => "\xc6", |
618
|
|
|
|
|
|
|
0x00000047 => "\xc7", |
619
|
|
|
|
|
|
|
0x00000048 => "\xc8", |
620
|
|
|
|
|
|
|
0x00000049 => "\xc9", |
621
|
|
|
|
|
|
|
0x0000004a => "\xd1", |
622
|
|
|
|
|
|
|
0x0000004b => "\xd2", |
623
|
|
|
|
|
|
|
0x0000004c => "\xd3", |
624
|
|
|
|
|
|
|
0x0000004d => "\xd4", |
625
|
|
|
|
|
|
|
0x0000004e => "\xd5", |
626
|
|
|
|
|
|
|
0x0000004f => "\xd6", |
627
|
|
|
|
|
|
|
0x00000050 => "\xd7", |
628
|
|
|
|
|
|
|
0x00000051 => "\xd8", |
629
|
|
|
|
|
|
|
0x00000052 => "\xd9", |
630
|
|
|
|
|
|
|
0x00000053 => "\xe2", |
631
|
|
|
|
|
|
|
0x00000054 => "\xe3", |
632
|
|
|
|
|
|
|
0x00000055 => "\xe4", |
633
|
|
|
|
|
|
|
0x00000056 => "\xe5", |
634
|
|
|
|
|
|
|
0x00000057 => "\xe6", |
635
|
|
|
|
|
|
|
0x00000058 => "\xe7", |
636
|
|
|
|
|
|
|
0x00000059 => "\xe8", |
637
|
|
|
|
|
|
|
0x0000005a => "\xe9", |
638
|
|
|
|
|
|
|
0x0000005b => "\xba", |
639
|
|
|
|
|
|
|
0x0000005c => "\xe0", |
640
|
|
|
|
|
|
|
0x0000005d => "\xbb", |
641
|
|
|
|
|
|
|
0x0000005e => "\xb0", |
642
|
|
|
|
|
|
|
0x0000005f => "\x6d", |
643
|
|
|
|
|
|
|
0x00000060 => "\x79", |
644
|
|
|
|
|
|
|
0x00000061 => "\x81", |
645
|
|
|
|
|
|
|
0x00000062 => "\x82", |
646
|
|
|
|
|
|
|
0x00000063 => "\x83", |
647
|
|
|
|
|
|
|
0x00000064 => "\x84", |
648
|
|
|
|
|
|
|
0x00000065 => "\x85", |
649
|
|
|
|
|
|
|
0x00000066 => "\x86", |
650
|
|
|
|
|
|
|
0x00000067 => "\x87", |
651
|
|
|
|
|
|
|
0x00000068 => "\x88", |
652
|
|
|
|
|
|
|
0x00000069 => "\x89", |
653
|
|
|
|
|
|
|
0x0000006a => "\x91", |
654
|
|
|
|
|
|
|
0x0000006b => "\x92", |
655
|
|
|
|
|
|
|
0x0000006c => "\x93", |
656
|
|
|
|
|
|
|
0x0000006d => "\x94", |
657
|
|
|
|
|
|
|
0x0000006e => "\x95", |
658
|
|
|
|
|
|
|
0x0000006f => "\x96", |
659
|
|
|
|
|
|
|
0x00000070 => "\x97", |
660
|
|
|
|
|
|
|
0x00000071 => "\x98", |
661
|
|
|
|
|
|
|
0x00000072 => "\x99", |
662
|
|
|
|
|
|
|
0x00000073 => "\xa2", |
663
|
|
|
|
|
|
|
0x00000074 => "\xa3", |
664
|
|
|
|
|
|
|
0x00000075 => "\xa4", |
665
|
|
|
|
|
|
|
0x00000076 => "\xa5", |
666
|
|
|
|
|
|
|
0x00000077 => "\xa6", |
667
|
|
|
|
|
|
|
0x00000078 => "\xa7", |
668
|
|
|
|
|
|
|
0x00000079 => "\xa8", |
669
|
|
|
|
|
|
|
0x0000007a => "\xa9", |
670
|
|
|
|
|
|
|
0x0000007b => "\xc0", |
671
|
|
|
|
|
|
|
0x0000007c => "\x4f", |
672
|
|
|
|
|
|
|
0x0000007d => "\xd0", |
673
|
|
|
|
|
|
|
0x0000007e => "\xa1", |
674
|
|
|
|
|
|
|
0x0000007f => "\x07", |
675
|
|
|
|
|
|
|
0x00000080 => "\x20", |
676
|
|
|
|
|
|
|
0x00000081 => "\x21", |
677
|
|
|
|
|
|
|
0x00000082 => "\x22", |
678
|
|
|
|
|
|
|
0x00000083 => "\x23", |
679
|
|
|
|
|
|
|
0x00000084 => "\x24", |
680
|
|
|
|
|
|
|
0x00000085 => "\x15", |
681
|
|
|
|
|
|
|
0x00000086 => "\x06", |
682
|
|
|
|
|
|
|
0x00000087 => "\x17", |
683
|
|
|
|
|
|
|
0x00000088 => "\x28", |
684
|
|
|
|
|
|
|
0x00000089 => "\x29", |
685
|
|
|
|
|
|
|
0x0000008a => "\x2a", |
686
|
|
|
|
|
|
|
0x0000008b => "\x2b", |
687
|
|
|
|
|
|
|
0x0000008c => "\x2c", |
688
|
|
|
|
|
|
|
0x0000008d => "\x09", |
689
|
|
|
|
|
|
|
0x0000008e => "\x0a", |
690
|
|
|
|
|
|
|
0x0000008f => "\x1b", |
691
|
|
|
|
|
|
|
0x00000090 => "\x30", |
692
|
|
|
|
|
|
|
0x00000091 => "\x31", |
693
|
|
|
|
|
|
|
0x00000092 => "\x1a", |
694
|
|
|
|
|
|
|
0x00000093 => "\x33", |
695
|
|
|
|
|
|
|
0x00000094 => "\x34", |
696
|
|
|
|
|
|
|
0x00000095 => "\x35", |
697
|
|
|
|
|
|
|
0x00000096 => "\x36", |
698
|
|
|
|
|
|
|
0x00000097 => "\x08", |
699
|
|
|
|
|
|
|
0x00000098 => "\x38", |
700
|
|
|
|
|
|
|
0x00000099 => "\x39", |
701
|
|
|
|
|
|
|
0x0000009a => "\x3a", |
702
|
|
|
|
|
|
|
0x0000009b => "\x3b", |
703
|
|
|
|
|
|
|
0x0000009c => "\x04", |
704
|
|
|
|
|
|
|
0x0000009d => "\x14", |
705
|
|
|
|
|
|
|
0x0000009e => "\x3e", |
706
|
|
|
|
|
|
|
0x0000009f => "\xff", |
707
|
|
|
|
|
|
|
0x000000a0 => "\x41", |
708
|
|
|
|
|
|
|
0x000000a1 => "\xaa", |
709
|
|
|
|
|
|
|
0x000000a2 => "\x4a", |
710
|
|
|
|
|
|
|
0x000000a3 => "\xb1", |
711
|
|
|
|
|
|
|
0x000000a4 => "\x9f", |
712
|
|
|
|
|
|
|
0x000000a5 => "\xb2", |
713
|
|
|
|
|
|
|
0x000000a6 => "\x6a", |
714
|
|
|
|
|
|
|
0x000000a7 => "\xb5", |
715
|
|
|
|
|
|
|
0x000000a8 => "\xbd", |
716
|
|
|
|
|
|
|
0x000000a9 => "\xb4", |
717
|
|
|
|
|
|
|
0x000000aa => "\x9a", |
718
|
|
|
|
|
|
|
0x000000ab => "\x8a", |
719
|
|
|
|
|
|
|
0x000000ac => "\x5f", |
720
|
|
|
|
|
|
|
0x000000ad => "\xca", |
721
|
|
|
|
|
|
|
0x000000ae => "\xaf", |
722
|
|
|
|
|
|
|
0x000000af => "\xbc", |
723
|
|
|
|
|
|
|
0x000000b0 => "\x90", |
724
|
|
|
|
|
|
|
0x000000b1 => "\x8f", |
725
|
|
|
|
|
|
|
0x000000b2 => "\xea", |
726
|
|
|
|
|
|
|
0x000000b3 => "\xfa", |
727
|
|
|
|
|
|
|
0x000000b4 => "\xbe", |
728
|
|
|
|
|
|
|
0x000000b5 => "\xa0", |
729
|
|
|
|
|
|
|
0x000000b6 => "\xb6", |
730
|
|
|
|
|
|
|
0x000000b7 => "\xb3", |
731
|
|
|
|
|
|
|
0x000000b8 => "\x9d", |
732
|
|
|
|
|
|
|
0x000000b9 => "\xda", |
733
|
|
|
|
|
|
|
0x000000ba => "\x9b", |
734
|
|
|
|
|
|
|
0x000000bb => "\x8b", |
735
|
|
|
|
|
|
|
0x000000bc => "\xb7", |
736
|
|
|
|
|
|
|
0x000000bd => "\xb8", |
737
|
|
|
|
|
|
|
0x000000be => "\xb9", |
738
|
|
|
|
|
|
|
0x000000bf => "\xab", |
739
|
|
|
|
|
|
|
0x000000c0 => "\x64", |
740
|
|
|
|
|
|
|
0x000000c1 => "\x65", |
741
|
|
|
|
|
|
|
0x000000c2 => "\x62", |
742
|
|
|
|
|
|
|
0x000000c3 => "\x66", |
743
|
|
|
|
|
|
|
0x000000c4 => "\x63", |
744
|
|
|
|
|
|
|
0x000000c5 => "\x67", |
745
|
|
|
|
|
|
|
0x000000c6 => "\x9e", |
746
|
|
|
|
|
|
|
0x000000c7 => "\x68", |
747
|
|
|
|
|
|
|
0x000000c8 => "\x74", |
748
|
|
|
|
|
|
|
0x000000c9 => "\x71", |
749
|
|
|
|
|
|
|
0x000000ca => "\x72", |
750
|
|
|
|
|
|
|
0x000000cb => "\x73", |
751
|
|
|
|
|
|
|
0x000000cc => "\x78", |
752
|
|
|
|
|
|
|
0x000000cd => "\x75", |
753
|
|
|
|
|
|
|
0x000000ce => "\x76", |
754
|
|
|
|
|
|
|
0x000000cf => "\x77", |
755
|
|
|
|
|
|
|
0x000000d0 => "\xac", |
756
|
|
|
|
|
|
|
0x000000d1 => "\x69", |
757
|
|
|
|
|
|
|
0x000000d2 => "\xed", |
758
|
|
|
|
|
|
|
0x000000d3 => "\xee", |
759
|
|
|
|
|
|
|
0x000000d4 => "\xeb", |
760
|
|
|
|
|
|
|
0x000000d5 => "\xef", |
761
|
|
|
|
|
|
|
0x000000d6 => "\xec", |
762
|
|
|
|
|
|
|
0x000000d7 => "\xbf", |
763
|
|
|
|
|
|
|
0x000000d8 => "\x80", |
764
|
|
|
|
|
|
|
0x000000d9 => "\xfd", |
765
|
|
|
|
|
|
|
0x000000da => "\xfe", |
766
|
|
|
|
|
|
|
0x000000db => "\xfb", |
767
|
|
|
|
|
|
|
0x000000dc => "\xfc", |
768
|
|
|
|
|
|
|
0x000000dd => "\xad", |
769
|
|
|
|
|
|
|
0x000000de => "\xae", |
770
|
|
|
|
|
|
|
0x000000df => "\x59", |
771
|
|
|
|
|
|
|
0x000000e0 => "\x44", |
772
|
|
|
|
|
|
|
0x000000e1 => "\x45", |
773
|
|
|
|
|
|
|
0x000000e2 => "\x42", |
774
|
|
|
|
|
|
|
0x000000e3 => "\x46", |
775
|
|
|
|
|
|
|
0x000000e4 => "\x43", |
776
|
|
|
|
|
|
|
0x000000e5 => "\x47", |
777
|
|
|
|
|
|
|
0x000000e6 => "\x9c", |
778
|
|
|
|
|
|
|
0x000000e7 => "\x48", |
779
|
|
|
|
|
|
|
0x000000e8 => "\x54", |
780
|
|
|
|
|
|
|
0x000000e9 => "\x51", |
781
|
|
|
|
|
|
|
0x000000ea => "\x52", |
782
|
|
|
|
|
|
|
0x000000eb => "\x53", |
783
|
|
|
|
|
|
|
0x000000ec => "\x58", |
784
|
|
|
|
|
|
|
0x000000ed => "\x55", |
785
|
|
|
|
|
|
|
0x000000ee => "\x56", |
786
|
|
|
|
|
|
|
0x000000ef => "\x57", |
787
|
|
|
|
|
|
|
0x000000f0 => "\x8c", |
788
|
|
|
|
|
|
|
0x000000f1 => "\x49", |
789
|
|
|
|
|
|
|
0x000000f2 => "\xcd", |
790
|
|
|
|
|
|
|
0x000000f3 => "\xce", |
791
|
|
|
|
|
|
|
0x000000f4 => "\xcb", |
792
|
|
|
|
|
|
|
0x000000f5 => "\xcf", |
793
|
|
|
|
|
|
|
0x000000f6 => "\xcc", |
794
|
|
|
|
|
|
|
0x000000f7 => "\xe1", |
795
|
|
|
|
|
|
|
0x000000f8 => "\x70", |
796
|
|
|
|
|
|
|
0x000000f9 => "\xdd", |
797
|
|
|
|
|
|
|
0x000000fa => "\xde", |
798
|
|
|
|
|
|
|
0x000000fb => "\xdb", |
799
|
|
|
|
|
|
|
0x000000fc => "\xdc", |
800
|
|
|
|
|
|
|
0x000000fd => "\x8d", |
801
|
|
|
|
|
|
|
0x000000fe => "\x8e", |
802
|
|
|
|
|
|
|
0x000000ff => "\xdf", |
803
|
|
|
|
|
|
|
); |
804
|
|
|
|
|
|
|
|
805
|
|
|
|
|
|
|
sub _recode |
806
|
|
|
|
|
|
|
{ |
807
|
770
|
100
|
|
770
|
|
1528
|
if ($_[0]->{_from} eq 'INTERNAL') { |
|
|
100
|
|
|
|
|
|
808
|
|
|
|
|
|
|
$_[1] = join '', |
809
|
|
|
|
|
|
|
map $from_ucs4{$_} |
810
|
|
|
|
|
|
|
|| (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x6f"), |
811
|
258
|
|
100
|
|
|
330
|
@{$_[1]}; |
|
258
|
|
|
|
|
829
|
|
812
|
|
|
|
|
|
|
} elsif ($_[0]->{_to} eq 'UTF-8',) { |
813
|
256
|
|
|
|
|
700
|
$_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1]; |
814
|
|
|
|
|
|
|
} else { |
815
|
256
|
|
|
|
|
689
|
$_[1] = [ map |
816
|
|
|
|
|
|
|
$to_ucs4[$_], |
817
|
|
|
|
|
|
|
unpack 'C*', $_[1] |
818
|
|
|
|
|
|
|
]; |
819
|
|
|
|
|
|
|
} |
820
|
|
|
|
|
|
|
|
821
|
770
|
|
|
|
|
1544
|
return 1; |
822
|
|
|
|
|
|
|
} |
823
|
|
|
|
|
|
|
|
824
|
|
|
|
|
|
|
1; |
825
|
|
|
|
|
|
|
|
826
|
|
|
|
|
|
|
__END__ |