File Coverage

blib/lib/Locale/RecodeData/IBM880.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 IBM880.
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::IBM880;
22              
23 1     1   7 use strict;
  1         2  
  1         40  
24              
25             require Locale::RecodeData;
26 1     1   6 use base qw(Locale::RecodeData);
  1         1  
  1         441  
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             0xfffd,
95             0x0452,
96             0x0453,
97             0x0451,
98             0xfffd,
99             0x0455,
100             0x0456,
101             0x0457,
102             0x0458,
103             0x005b,
104             0x002e,
105             0x003c,
106             0x0028,
107             0x002b,
108             0x0021,
109             0x0026,
110             0x0459,
111             0x045a,
112             0x045b,
113             0x045c,
114             0xfffd,
115             0x045f,
116             0x042a,
117             0x2116,
118             0x0402,
119             0x005d,
120             0x0024,
121             0x002a,
122             0x0029,
123             0x003b,
124             0x005e,
125             0x002d,
126             0x002f,
127             0x0403,
128             0x0401,
129             0xfffd,
130             0x0405,
131             0x0406,
132             0x0407,
133             0x0408,
134             0x0409,
135             0x00a6,
136             0x002c,
137             0x0025,
138             0x005f,
139             0x003e,
140             0x003f,
141             0x040a,
142             0x040b,
143             0x040c,
144             0xfffd,
145             0xfffd,
146             0x040f,
147             0x044e,
148             0x0430,
149             0x0431,
150             0xfffd,
151             0x003a,
152             0x0023,
153             0x0040,
154             0x0027,
155             0x003d,
156             0x0022,
157             0x0446,
158             0x0061,
159             0x0062,
160             0x0063,
161             0x0064,
162             0x0065,
163             0x0066,
164             0x0067,
165             0x0068,
166             0x0069,
167             0x0434,
168             0x0435,
169             0x0444,
170             0x0433,
171             0x0445,
172             0x0438,
173             0x0439,
174             0x006a,
175             0x006b,
176             0x006c,
177             0x006d,
178             0x006e,
179             0x006f,
180             0x0070,
181             0x0071,
182             0x0072,
183             0x043a,
184             0x043b,
185             0x043c,
186             0x043d,
187             0x043e,
188             0x043f,
189             0x044f,
190             0xfffd,
191             0x0073,
192             0x0074,
193             0x0075,
194             0x0076,
195             0x0077,
196             0x0078,
197             0x0079,
198             0x007a,
199             0x0440,
200             0x0441,
201             0x0442,
202             0x0443,
203             0x0436,
204             0x0432,
205             0x044c,
206             0x044b,
207             0x0437,
208             0x0448,
209             0x044d,
210             0x0449,
211             0x0447,
212             0x044a,
213             0x042e,
214             0x0410,
215             0x0411,
216             0x0426,
217             0x0414,
218             0x0415,
219             0x0424,
220             0x0413,
221             0xfffd,
222             0x0041,
223             0x0042,
224             0x0043,
225             0x0044,
226             0x0045,
227             0x0046,
228             0x0047,
229             0x0048,
230             0x0049,
231             0x0425,
232             0x0418,
233             0x0419,
234             0x041a,
235             0x041b,
236             0x041c,
237             0xfffd,
238             0x004a,
239             0x004b,
240             0x004c,
241             0x004d,
242             0x004e,
243             0x004f,
244             0x0050,
245             0x0051,
246             0x0052,
247             0x041d,
248             0x041e,
249             0x041f,
250             0x042f,
251             0x0420,
252             0x0421,
253             0x005c,
254             0x00a4,
255             0x0053,
256             0x0054,
257             0x0055,
258             0x0056,
259             0x0057,
260             0x0058,
261             0x0059,
262             0x005a,
263             0x0422,
264             0x0423,
265             0x0416,
266             0x0412,
267             0x042c,
268             0x042b,
269             0x0030,
270             0x0031,
271             0x0032,
272             0x0033,
273             0x0034,
274             0x0035,
275             0x0036,
276             0x0037,
277             0x0038,
278             0x0039,
279             0x0417,
280             0x0428,
281             0x042d,
282             0x0429,
283             0x0427,
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             "\xef\xbf\xbd",
354             "\xd1\x92",
355             "\xd1\x93",
356             "\xd1\x91",
357             "\xef\xbf\xbd",
358             "\xd1\x95",
359             "\xd1\x96",
360             "\xd1\x97",
361             "\xd1\x98",
362             "\x5b",
363             "\x2e",
364             "\x3c",
365             "\x28",
366             "\x2b",
367             "\x21",
368             "\x26",
369             "\xd1\x99",
370             "\xd1\x9a",
371             "\xd1\x9b",
372             "\xd1\x9c",
373             "\xef\xbf\xbd",
374             "\xd1\x9f",
375             "\xd0\xaa",
376             "\xe2\x84\x96",
377             "\xd0\x82",
378             "\x5d",
379             "\x24",
380             "\x2a",
381             "\x29",
382             "\x3b",
383             "\x5e",
384             "\x2d",
385             "\x2f",
386             "\xd0\x83",
387             "\xd0\x81",
388             "\xef\xbf\xbd",
389             "\xd0\x85",
390             "\xd0\x86",
391             "\xd0\x87",
392             "\xd0\x88",
393             "\xd0\x89",
394             "\xc2\xa6",
395             "\x2c",
396             "\x25",
397             "\x5f",
398             "\x3e",
399             "\x3f",
400             "\xd0\x8a",
401             "\xd0\x8b",
402             "\xd0\x8c",
403             "\xef\xbf\xbd",
404             "\xef\xbf\xbd",
405             "\xd0\x8f",
406             "\xd1\x8e",
407             "\xd0\xb0",
408             "\xd0\xb1",
409             "\xef\xbf\xbd",
410             "\x3a",
411             "\x23",
412             "\x40",
413             "\x27",
414             "\x3d",
415             "\x22",
416             "\xd1\x86",
417             "\x61",
418             "\x62",
419             "\x63",
420             "\x64",
421             "\x65",
422             "\x66",
423             "\x67",
424             "\x68",
425             "\x69",
426             "\xd0\xb4",
427             "\xd0\xb5",
428             "\xd1\x84",
429             "\xd0\xb3",
430             "\xd1\x85",
431             "\xd0\xb8",
432             "\xd0\xb9",
433             "\x6a",
434             "\x6b",
435             "\x6c",
436             "\x6d",
437             "\x6e",
438             "\x6f",
439             "\x70",
440             "\x71",
441             "\x72",
442             "\xd0\xba",
443             "\xd0\xbb",
444             "\xd0\xbc",
445             "\xd0\xbd",
446             "\xd0\xbe",
447             "\xd0\xbf",
448             "\xd1\x8f",
449             "\xef\xbf\xbd",
450             "\x73",
451             "\x74",
452             "\x75",
453             "\x76",
454             "\x77",
455             "\x78",
456             "\x79",
457             "\x7a",
458             "\xd1\x80",
459             "\xd1\x81",
460             "\xd1\x82",
461             "\xd1\x83",
462             "\xd0\xb6",
463             "\xd0\xb2",
464             "\xd1\x8c",
465             "\xd1\x8b",
466             "\xd0\xb7",
467             "\xd1\x88",
468             "\xd1\x8d",
469             "\xd1\x89",
470             "\xd1\x87",
471             "\xd1\x8a",
472             "\xd0\xae",
473             "\xd0\x90",
474             "\xd0\x91",
475             "\xd0\xa6",
476             "\xd0\x94",
477             "\xd0\x95",
478             "\xd0\xa4",
479             "\xd0\x93",
480             "\xef\xbf\xbd",
481             "\x41",
482             "\x42",
483             "\x43",
484             "\x44",
485             "\x45",
486             "\x46",
487             "\x47",
488             "\x48",
489             "\x49",
490             "\xd0\xa5",
491             "\xd0\x98",
492             "\xd0\x99",
493             "\xd0\x9a",
494             "\xd0\x9b",
495             "\xd0\x9c",
496             "\xef\xbf\xbd",
497             "\x4a",
498             "\x4b",
499             "\x4c",
500             "\x4d",
501             "\x4e",
502             "\x4f",
503             "\x50",
504             "\x51",
505             "\x52",
506             "\xd0\x9d",
507             "\xd0\x9e",
508             "\xd0\x9f",
509             "\xd0\xaf",
510             "\xd0\xa0",
511             "\xd0\xa1",
512             "\x5c",
513             "\xc2\xa4",
514             "\x53",
515             "\x54",
516             "\x55",
517             "\x56",
518             "\x57",
519             "\x58",
520             "\x59",
521             "\x5a",
522             "\xd0\xa2",
523             "\xd0\xa3",
524             "\xd0\x96",
525             "\xd0\x92",
526             "\xd0\xac",
527             "\xd0\xab",
528             "\x30",
529             "\x31",
530             "\x32",
531             "\x33",
532             "\x34",
533             "\x35",
534             "\x36",
535             "\x37",
536             "\x38",
537             "\x39",
538             "\xd0\x97",
539             "\xd0\xa8",
540             "\xd0\xad",
541             "\xd0\xa9",
542             "\xd0\xa7",
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             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 => "\x4a",
639             0x0000005c => "\xe0",
640             0x0000005d => "\x5a",
641             0x0000005e => "\x5f",
642             0x0000005f => "\x6d",
643             0x00000061 => "\x81",
644             0x00000062 => "\x82",
645             0x00000063 => "\x83",
646             0x00000064 => "\x84",
647             0x00000065 => "\x85",
648             0x00000066 => "\x86",
649             0x00000067 => "\x87",
650             0x00000068 => "\x88",
651             0x00000069 => "\x89",
652             0x0000006a => "\x91",
653             0x0000006b => "\x92",
654             0x0000006c => "\x93",
655             0x0000006d => "\x94",
656             0x0000006e => "\x95",
657             0x0000006f => "\x96",
658             0x00000070 => "\x97",
659             0x00000071 => "\x98",
660             0x00000072 => "\x99",
661             0x00000073 => "\xa2",
662             0x00000074 => "\xa3",
663             0x00000075 => "\xa4",
664             0x00000076 => "\xa5",
665             0x00000077 => "\xa6",
666             0x00000078 => "\xa7",
667             0x00000079 => "\xa8",
668             0x0000007a => "\xa9",
669             0x0000007f => "\x07",
670             0x00000080 => "\x20",
671             0x00000081 => "\x21",
672             0x00000082 => "\x22",
673             0x00000083 => "\x23",
674             0x00000084 => "\x24",
675             0x00000085 => "\x15",
676             0x00000086 => "\x06",
677             0x00000087 => "\x17",
678             0x00000088 => "\x28",
679             0x00000089 => "\x29",
680             0x0000008a => "\x2a",
681             0x0000008b => "\x2b",
682             0x0000008c => "\x2c",
683             0x0000008d => "\x09",
684             0x0000008e => "\x0a",
685             0x0000008f => "\x1b",
686             0x00000090 => "\x30",
687             0x00000091 => "\x31",
688             0x00000092 => "\x1a",
689             0x00000093 => "\x33",
690             0x00000094 => "\x34",
691             0x00000095 => "\x35",
692             0x00000096 => "\x36",
693             0x00000097 => "\x08",
694             0x00000098 => "\x38",
695             0x00000099 => "\x39",
696             0x0000009a => "\x3a",
697             0x0000009b => "\x3b",
698             0x0000009c => "\x04",
699             0x0000009d => "\x14",
700             0x0000009e => "\x3e",
701             0x0000009f => "\xff",
702             0x000000a4 => "\xe1",
703             0x000000a6 => "\x6a",
704             0x00000401 => "\x63",
705             0x00000402 => "\x59",
706             0x00000403 => "\x62",
707             0x00000405 => "\x65",
708             0x00000406 => "\x66",
709             0x00000407 => "\x67",
710             0x00000408 => "\x68",
711             0x00000409 => "\x69",
712             0x0000040a => "\x70",
713             0x0000040b => "\x71",
714             0x0000040c => "\x72",
715             0x0000040f => "\x75",
716             0x00000410 => "\xb9",
717             0x00000411 => "\xba",
718             0x00000412 => "\xed",
719             0x00000413 => "\xbf",
720             0x00000414 => "\xbc",
721             0x00000415 => "\xbd",
722             0x00000416 => "\xec",
723             0x00000417 => "\xfa",
724             0x00000418 => "\xcb",
725             0x00000419 => "\xcc",
726             0x0000041a => "\xcd",
727             0x0000041b => "\xce",
728             0x0000041c => "\xcf",
729             0x0000041d => "\xda",
730             0x0000041e => "\xdb",
731             0x0000041f => "\xdc",
732             0x00000420 => "\xde",
733             0x00000421 => "\xdf",
734             0x00000422 => "\xea",
735             0x00000423 => "\xeb",
736             0x00000424 => "\xbe",
737             0x00000425 => "\xca",
738             0x00000426 => "\xbb",
739             0x00000427 => "\xfe",
740             0x00000428 => "\xfb",
741             0x00000429 => "\xfd",
742             0x0000042a => "\x57",
743             0x0000042b => "\xef",
744             0x0000042c => "\xee",
745             0x0000042d => "\xfc",
746             0x0000042e => "\xb8",
747             0x0000042f => "\xdd",
748             0x00000430 => "\x77",
749             0x00000431 => "\x78",
750             0x00000432 => "\xaf",
751             0x00000433 => "\x8d",
752             0x00000434 => "\x8a",
753             0x00000435 => "\x8b",
754             0x00000436 => "\xae",
755             0x00000437 => "\xb2",
756             0x00000438 => "\x8f",
757             0x00000439 => "\x90",
758             0x0000043a => "\x9a",
759             0x0000043b => "\x9b",
760             0x0000043c => "\x9c",
761             0x0000043d => "\x9d",
762             0x0000043e => "\x9e",
763             0x0000043f => "\x9f",
764             0x00000440 => "\xaa",
765             0x00000441 => "\xab",
766             0x00000442 => "\xac",
767             0x00000443 => "\xad",
768             0x00000444 => "\x8c",
769             0x00000445 => "\x8e",
770             0x00000446 => "\x80",
771             0x00000447 => "\xb6",
772             0x00000448 => "\xb3",
773             0x00000449 => "\xb5",
774             0x0000044a => "\xb7",
775             0x0000044b => "\xb1",
776             0x0000044c => "\xb0",
777             0x0000044d => "\xb4",
778             0x0000044e => "\x76",
779             0x0000044f => "\xa0",
780             0x00000451 => "\x44",
781             0x00000452 => "\x42",
782             0x00000453 => "\x43",
783             0x00000455 => "\x46",
784             0x00000456 => "\x47",
785             0x00000457 => "\x48",
786             0x00000458 => "\x49",
787             0x00000459 => "\x51",
788             0x0000045a => "\x52",
789             0x0000045b => "\x53",
790             0x0000045c => "\x54",
791             0x0000045f => "\x56",
792             0x00002116 => "\x58",
793             );
794              
795             sub _recode
796             {
797 740 100   740   1502 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
798             $_[1] = join '',
799             map $from_ucs4{$_}
800             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x6f"),
801 248   100     324 @{$_[1]};
  248         838  
802             } elsif ($_[0]->{_to} eq 'UTF-8',) {
803 246         697 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
804             } else {
805 246         630 $_[1] = [ map
806             $to_ucs4[$_],
807             unpack 'C*', $_[1]
808             ];
809             }
810              
811 740         1482 return 1;
812             }
813              
814             1;
815              
816             __END__