File Coverage

blib/lib/Locale/RecodeData/IBM423.pm
Criterion Covered Total %
statement 12 12 100.0
branch 4 4 100.0
condition 3 3 100.0
subroutine 3 3 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             #! /bin/false
2             # vim: set autoindent shiftwidth=4 tabstop=4:
3              
4             # Conversion routines for IBM423.
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::IBM423;
22              
23 1     1   7 use strict;
  1         2  
  1         41  
24              
25             require Locale::RecodeData;
26 1     1   5 use base qw(Locale::RecodeData);
  1         2  
  1         495  
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             0x0391,
95             0x0392,
96             0x0393,
97             0x0394,
98             0x0395,
99             0x0396,
100             0x0397,
101             0x0398,
102             0x0399,
103             0x005b,
104             0x002e,
105             0x003c,
106             0x0028,
107             0x002b,
108             0x0021,
109             0x0026,
110             0x039a,
111             0x039b,
112             0x039c,
113             0x039d,
114             0x039e,
115             0x039f,
116             0x03a0,
117             0x03a1,
118             0x03a3,
119             0x005d,
120             0x0024,
121             0x002a,
122             0x0029,
123             0x003b,
124             0x005e,
125             0x002d,
126             0x002f,
127             0x03a4,
128             0x03a5,
129             0x03a6,
130             0x03a7,
131             0x03a8,
132             0x03a9,
133             0xfffd,
134             0xfffd,
135             0xfffd,
136             0x002c,
137             0x0025,
138             0x005f,
139             0x003e,
140             0x003f,
141             0xfffd,
142             0x0386,
143             0x0388,
144             0x0389,
145             0xfffd,
146             0x038a,
147             0x038c,
148             0x038e,
149             0x038f,
150             0x0060,
151             0x003a,
152             0x00a3,
153             0x00a7,
154             0x0027,
155             0x003d,
156             0x0022,
157             0x00c4,
158             0x0061,
159             0x0062,
160             0x0063,
161             0x0064,
162             0x0065,
163             0x0066,
164             0x0067,
165             0x0068,
166             0x0069,
167             0x03b1,
168             0x03b2,
169             0x03b3,
170             0x03b4,
171             0x03b5,
172             0x03b6,
173             0x00d6,
174             0x006a,
175             0x006b,
176             0x006c,
177             0x006d,
178             0x006e,
179             0x006f,
180             0x0070,
181             0x0071,
182             0x0072,
183             0x03b7,
184             0x03b8,
185             0x03b9,
186             0x03ba,
187             0x03bb,
188             0x03bc,
189             0x00dc,
190             0x00a8,
191             0x0073,
192             0x0074,
193             0x0075,
194             0x0076,
195             0x0077,
196             0x0078,
197             0x0079,
198             0x007a,
199             0x03bd,
200             0x03be,
201             0x03bf,
202             0x03c0,
203             0x03c1,
204             0x03c2,
205             0xfffd,
206             0x03ac,
207             0x03ad,
208             0x03ae,
209             0x03ca,
210             0x03af,
211             0x03cc,
212             0x03cd,
213             0x03cb,
214             0x03ce,
215             0x03c3,
216             0x03c4,
217             0x03c5,
218             0x03c6,
219             0x03c7,
220             0x03c8,
221             0x00b8,
222             0x0041,
223             0x0042,
224             0x0043,
225             0x0044,
226             0x0045,
227             0x0046,
228             0x0047,
229             0x0048,
230             0x0049,
231             0xfffd,
232             0x03c9,
233             0x00c2,
234             0x00e0,
235             0x00e4,
236             0x00ea,
237             0x00b4,
238             0x004a,
239             0x004b,
240             0x004c,
241             0x004d,
242             0x004e,
243             0x004f,
244             0x0050,
245             0x0051,
246             0x0052,
247             0x00b1,
248             0x00e9,
249             0x00e8,
250             0x00eb,
251             0x00ee,
252             0x00ef,
253             0x00b0,
254             0xfffd,
255             0x0053,
256             0x0054,
257             0x0055,
258             0x0056,
259             0x0057,
260             0x0058,
261             0x0059,
262             0x005a,
263             0x00bd,
264             0x00f6,
265             0x00f4,
266             0x00fb,
267             0x00f9,
268             0x00fc,
269             0x0030,
270             0x0031,
271             0x0032,
272             0x0033,
273             0x0034,
274             0x0035,
275             0x0036,
276             0x0037,
277             0x0038,
278             0x0039,
279             0x00ff,
280             0x00e7,
281             0x00c7,
282             0xfffd,
283             0xfffd,
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             "\xce\x91",
354             "\xce\x92",
355             "\xce\x93",
356             "\xce\x94",
357             "\xce\x95",
358             "\xce\x96",
359             "\xce\x97",
360             "\xce\x98",
361             "\xce\x99",
362             "\x5b",
363             "\x2e",
364             "\x3c",
365             "\x28",
366             "\x2b",
367             "\x21",
368             "\x26",
369             "\xce\x9a",
370             "\xce\x9b",
371             "\xce\x9c",
372             "\xce\x9d",
373             "\xce\x9e",
374             "\xce\x9f",
375             "\xce\xa0",
376             "\xce\xa1",
377             "\xce\xa3",
378             "\x5d",
379             "\x24",
380             "\x2a",
381             "\x29",
382             "\x3b",
383             "\x5e",
384             "\x2d",
385             "\x2f",
386             "\xce\xa4",
387             "\xce\xa5",
388             "\xce\xa6",
389             "\xce\xa7",
390             "\xce\xa8",
391             "\xce\xa9",
392             "\xef\xbf\xbd",
393             "\xef\xbf\xbd",
394             "\xef\xbf\xbd",
395             "\x2c",
396             "\x25",
397             "\x5f",
398             "\x3e",
399             "\x3f",
400             "\xef\xbf\xbd",
401             "\xce\x86",
402             "\xce\x88",
403             "\xce\x89",
404             "\xef\xbf\xbd",
405             "\xce\x8a",
406             "\xce\x8c",
407             "\xce\x8e",
408             "\xce\x8f",
409             "\x60",
410             "\x3a",
411             "\xc2\xa3",
412             "\xc2\xa7",
413             "\x27",
414             "\x3d",
415             "\x22",
416             "\xc3\x84",
417             "\x61",
418             "\x62",
419             "\x63",
420             "\x64",
421             "\x65",
422             "\x66",
423             "\x67",
424             "\x68",
425             "\x69",
426             "\xce\xb1",
427             "\xce\xb2",
428             "\xce\xb3",
429             "\xce\xb4",
430             "\xce\xb5",
431             "\xce\xb6",
432             "\xc3\x96",
433             "\x6a",
434             "\x6b",
435             "\x6c",
436             "\x6d",
437             "\x6e",
438             "\x6f",
439             "\x70",
440             "\x71",
441             "\x72",
442             "\xce\xb7",
443             "\xce\xb8",
444             "\xce\xb9",
445             "\xce\xba",
446             "\xce\xbb",
447             "\xce\xbc",
448             "\xc3\x9c",
449             "\xc2\xa8",
450             "\x73",
451             "\x74",
452             "\x75",
453             "\x76",
454             "\x77",
455             "\x78",
456             "\x79",
457             "\x7a",
458             "\xce\xbd",
459             "\xce\xbe",
460             "\xce\xbf",
461             "\xcf\x80",
462             "\xcf\x81",
463             "\xcf\x82",
464             "\xef\xbf\xbd",
465             "\xce\xac",
466             "\xce\xad",
467             "\xce\xae",
468             "\xcf\x8a",
469             "\xce\xaf",
470             "\xcf\x8c",
471             "\xcf\x8d",
472             "\xcf\x8b",
473             "\xcf\x8e",
474             "\xcf\x83",
475             "\xcf\x84",
476             "\xcf\x85",
477             "\xcf\x86",
478             "\xcf\x87",
479             "\xcf\x88",
480             "\xc2\xb8",
481             "\x41",
482             "\x42",
483             "\x43",
484             "\x44",
485             "\x45",
486             "\x46",
487             "\x47",
488             "\x48",
489             "\x49",
490             "\xef\xbf\xbd",
491             "\xcf\x89",
492             "\xc3\x82",
493             "\xc3\xa0",
494             "\xc3\xa4",
495             "\xc3\xaa",
496             "\xc2\xb4",
497             "\x4a",
498             "\x4b",
499             "\x4c",
500             "\x4d",
501             "\x4e",
502             "\x4f",
503             "\x50",
504             "\x51",
505             "\x52",
506             "\xc2\xb1",
507             "\xc3\xa9",
508             "\xc3\xa8",
509             "\xc3\xab",
510             "\xc3\xae",
511             "\xc3\xaf",
512             "\xc2\xb0",
513             "\xef\xbf\xbd",
514             "\x53",
515             "\x54",
516             "\x55",
517             "\x56",
518             "\x57",
519             "\x58",
520             "\x59",
521             "\x5a",
522             "\xc2\xbd",
523             "\xc3\xb6",
524             "\xc3\xb4",
525             "\xc3\xbb",
526             "\xc3\xb9",
527             "\xc3\xbc",
528             "\x30",
529             "\x31",
530             "\x32",
531             "\x33",
532             "\x34",
533             "\x35",
534             "\x36",
535             "\x37",
536             "\x38",
537             "\x39",
538             "\xc3\xbf",
539             "\xc3\xa7",
540             "\xc3\x87",
541             "\xef\xbf\xbd",
542             "\xef\xbf\xbd",
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 => "\x4f",
581             0x00000022 => "\x7f",
582             0x00000024 => "\x5b",
583             0x00000025 => "\x6c",
584             0x00000026 => "\x50",
585             0x00000027 => "\x7d",
586             0x00000028 => "\x4d",
587             0x00000029 => "\x5d",
588             0x0000002a => "\x5c",
589             0x0000002b => "\x4e",
590             0x0000002c => "\x6b",
591             0x0000002d => "\x60",
592             0x0000002e => "\x4b",
593             0x0000002f => "\x61",
594             0x00000030 => "\xf0",
595             0x00000031 => "\xf1",
596             0x00000032 => "\xf2",
597             0x00000033 => "\xf3",
598             0x00000034 => "\xf4",
599             0x00000035 => "\xf5",
600             0x00000036 => "\xf6",
601             0x00000037 => "\xf7",
602             0x00000038 => "\xf8",
603             0x00000039 => "\xf9",
604             0x0000003a => "\x7a",
605             0x0000003b => "\x5e",
606             0x0000003c => "\x4c",
607             0x0000003d => "\x7e",
608             0x0000003e => "\x6e",
609             0x0000003f => "\x6f",
610             0x00000041 => "\xc1",
611             0x00000042 => "\xc2",
612             0x00000043 => "\xc3",
613             0x00000044 => "\xc4",
614             0x00000045 => "\xc5",
615             0x00000046 => "\xc6",
616             0x00000047 => "\xc7",
617             0x00000048 => "\xc8",
618             0x00000049 => "\xc9",
619             0x0000004a => "\xd1",
620             0x0000004b => "\xd2",
621             0x0000004c => "\xd3",
622             0x0000004d => "\xd4",
623             0x0000004e => "\xd5",
624             0x0000004f => "\xd6",
625             0x00000050 => "\xd7",
626             0x00000051 => "\xd8",
627             0x00000052 => "\xd9",
628             0x00000053 => "\xe2",
629             0x00000054 => "\xe3",
630             0x00000055 => "\xe4",
631             0x00000056 => "\xe5",
632             0x00000057 => "\xe6",
633             0x00000058 => "\xe7",
634             0x00000059 => "\xe8",
635             0x0000005a => "\xe9",
636             0x0000005b => "\x4a",
637             0x0000005d => "\x5a",
638             0x0000005e => "\x5f",
639             0x0000005f => "\x6d",
640             0x00000060 => "\x79",
641             0x00000061 => "\x81",
642             0x00000062 => "\x82",
643             0x00000063 => "\x83",
644             0x00000064 => "\x84",
645             0x00000065 => "\x85",
646             0x00000066 => "\x86",
647             0x00000067 => "\x87",
648             0x00000068 => "\x88",
649             0x00000069 => "\x89",
650             0x0000006a => "\x91",
651             0x0000006b => "\x92",
652             0x0000006c => "\x93",
653             0x0000006d => "\x94",
654             0x0000006e => "\x95",
655             0x0000006f => "\x96",
656             0x00000070 => "\x97",
657             0x00000071 => "\x98",
658             0x00000072 => "\x99",
659             0x00000073 => "\xa2",
660             0x00000074 => "\xa3",
661             0x00000075 => "\xa4",
662             0x00000076 => "\xa5",
663             0x00000077 => "\xa6",
664             0x00000078 => "\xa7",
665             0x00000079 => "\xa8",
666             0x0000007a => "\xa9",
667             0x0000007f => "\x07",
668             0x00000080 => "\x20",
669             0x00000081 => "\x21",
670             0x00000082 => "\x22",
671             0x00000083 => "\x23",
672             0x00000084 => "\x24",
673             0x00000085 => "\x15",
674             0x00000086 => "\x06",
675             0x00000087 => "\x17",
676             0x00000088 => "\x28",
677             0x00000089 => "\x29",
678             0x0000008a => "\x2a",
679             0x0000008b => "\x2b",
680             0x0000008c => "\x2c",
681             0x0000008d => "\x09",
682             0x0000008e => "\x0a",
683             0x0000008f => "\x1b",
684             0x00000090 => "\x30",
685             0x00000091 => "\x31",
686             0x00000092 => "\x1a",
687             0x00000093 => "\x33",
688             0x00000094 => "\x34",
689             0x00000095 => "\x35",
690             0x00000096 => "\x36",
691             0x00000097 => "\x08",
692             0x00000098 => "\x38",
693             0x00000099 => "\x39",
694             0x0000009a => "\x3a",
695             0x0000009b => "\x3b",
696             0x0000009c => "\x04",
697             0x0000009d => "\x14",
698             0x0000009e => "\x3e",
699             0x0000009f => "\xff",
700             0x000000a3 => "\x7b",
701             0x000000a7 => "\x7c",
702             0x000000a8 => "\xa1",
703             0x000000b0 => "\xe0",
704             0x000000b1 => "\xda",
705             0x000000b4 => "\xd0",
706             0x000000b8 => "\xc0",
707             0x000000bd => "\xea",
708             0x000000c2 => "\xcc",
709             0x000000c4 => "\x80",
710             0x000000c7 => "\xfc",
711             0x000000d6 => "\x90",
712             0x000000dc => "\xa0",
713             0x000000e0 => "\xcd",
714             0x000000e4 => "\xce",
715             0x000000e7 => "\xfb",
716             0x000000e8 => "\xdc",
717             0x000000e9 => "\xdb",
718             0x000000ea => "\xcf",
719             0x000000eb => "\xdd",
720             0x000000ee => "\xde",
721             0x000000ef => "\xdf",
722             0x000000f4 => "\xec",
723             0x000000f6 => "\xeb",
724             0x000000f9 => "\xee",
725             0x000000fb => "\xed",
726             0x000000fc => "\xef",
727             0x000000ff => "\xfa",
728             0x00000386 => "\x71",
729             0x00000388 => "\x72",
730             0x00000389 => "\x73",
731             0x0000038a => "\x75",
732             0x0000038c => "\x76",
733             0x0000038e => "\x77",
734             0x0000038f => "\x78",
735             0x00000391 => "\x41",
736             0x00000392 => "\x42",
737             0x00000393 => "\x43",
738             0x00000394 => "\x44",
739             0x00000395 => "\x45",
740             0x00000396 => "\x46",
741             0x00000397 => "\x47",
742             0x00000398 => "\x48",
743             0x00000399 => "\x49",
744             0x0000039a => "\x51",
745             0x0000039b => "\x52",
746             0x0000039c => "\x53",
747             0x0000039d => "\x54",
748             0x0000039e => "\x55",
749             0x0000039f => "\x56",
750             0x000003a0 => "\x57",
751             0x000003a1 => "\x58",
752             0x000003a3 => "\x59",
753             0x000003a4 => "\x62",
754             0x000003a5 => "\x63",
755             0x000003a6 => "\x64",
756             0x000003a7 => "\x65",
757             0x000003a8 => "\x66",
758             0x000003a9 => "\x67",
759             0x000003ac => "\xb1",
760             0x000003ad => "\xb2",
761             0x000003ae => "\xb3",
762             0x000003af => "\xb5",
763             0x000003b1 => "\x8a",
764             0x000003b2 => "\x8b",
765             0x000003b3 => "\x8c",
766             0x000003b4 => "\x8d",
767             0x000003b5 => "\x8e",
768             0x000003b6 => "\x8f",
769             0x000003b7 => "\x9a",
770             0x000003b8 => "\x9b",
771             0x000003b9 => "\x9c",
772             0x000003ba => "\x9d",
773             0x000003bb => "\x9e",
774             0x000003bc => "\x9f",
775             0x000003bd => "\xaa",
776             0x000003be => "\xab",
777             0x000003bf => "\xac",
778             0x000003c0 => "\xad",
779             0x000003c1 => "\xae",
780             0x000003c2 => "\xaf",
781             0x000003c3 => "\xba",
782             0x000003c4 => "\xbb",
783             0x000003c5 => "\xbc",
784             0x000003c6 => "\xbd",
785             0x000003c7 => "\xbe",
786             0x000003c8 => "\xbf",
787             0x000003c9 => "\xcb",
788             0x000003ca => "\xb4",
789             0x000003cb => "\xb8",
790             0x000003cc => "\xb6",
791             0x000003cd => "\xb7",
792             0x000003ce => "\xb9",
793             );
794              
795             sub _recode
796             {
797 740 100   740   1412 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
798             $_[1] = join '',
799             map $from_ucs4{$_}
800             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x6f"),
801 248   100     348 @{$_[1]};
  248         756  
802             } elsif ($_[0]->{_to} eq 'UTF-8',) {
803 246         669 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
804             } else {
805 246         633 $_[1] = [ map
806             $to_ucs4[$_],
807             unpack 'C*', $_[1]
808             ];
809             }
810              
811 740         1808 return 1;
812             }
813              
814             1;
815              
816             __END__