File Coverage

blib/lib/Locale/RecodeData/IBM851.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 IBM851.
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::IBM851;
22              
23 1     1   7 use strict;
  1         1  
  1         39  
24              
25             require Locale::RecodeData;
26 1     1   5 use base qw(Locale::RecodeData);
  1         2  
  1         458  
27              
28             my @to_ucs4 = (
29             0x0000,
30             0x0001,
31             0x0002,
32             0x0003,
33             0x0004,
34             0x0005,
35             0x0006,
36             0x0007,
37             0x0008,
38             0x0009,
39             0x000a,
40             0x000b,
41             0x000c,
42             0x000d,
43             0x000e,
44             0x000f,
45             0x0010,
46             0x0011,
47             0x0012,
48             0x0013,
49             0x0014,
50             0x0015,
51             0x0016,
52             0x0017,
53             0x0018,
54             0x0019,
55             0x001a,
56             0x001b,
57             0x001c,
58             0x001d,
59             0x001e,
60             0x001f,
61             0x0020,
62             0x0021,
63             0x0022,
64             0x0023,
65             0x0024,
66             0x0025,
67             0x0026,
68             0x0027,
69             0x0028,
70             0x0029,
71             0x002a,
72             0x002b,
73             0x002c,
74             0x002d,
75             0x002e,
76             0x002f,
77             0x0030,
78             0x0031,
79             0x0032,
80             0x0033,
81             0x0034,
82             0x0035,
83             0x0036,
84             0x0037,
85             0x0038,
86             0x0039,
87             0x003a,
88             0x003b,
89             0x003c,
90             0x003d,
91             0x003e,
92             0x003f,
93             0x0040,
94             0x0041,
95             0x0042,
96             0x0043,
97             0x0044,
98             0x0045,
99             0x0046,
100             0x0047,
101             0x0048,
102             0x0049,
103             0x004a,
104             0x004b,
105             0x004c,
106             0x004d,
107             0x004e,
108             0x004f,
109             0x0050,
110             0x0051,
111             0x0052,
112             0x0053,
113             0x0054,
114             0x0055,
115             0x0056,
116             0x0057,
117             0x0058,
118             0x0059,
119             0x005a,
120             0x005b,
121             0x005c,
122             0x005d,
123             0x005e,
124             0x005f,
125             0x0060,
126             0x0061,
127             0x0062,
128             0x0063,
129             0x0064,
130             0x0065,
131             0x0066,
132             0x0067,
133             0x0068,
134             0x0069,
135             0x006a,
136             0x006b,
137             0x006c,
138             0x006d,
139             0x006e,
140             0x006f,
141             0x0070,
142             0x0071,
143             0x0072,
144             0x0073,
145             0x0074,
146             0x0075,
147             0x0076,
148             0x0077,
149             0x0078,
150             0x0079,
151             0x007a,
152             0x007b,
153             0x007c,
154             0x007d,
155             0x007e,
156             0x007f,
157             0x00c7,
158             0x00fc,
159             0x00e9,
160             0x00e2,
161             0x00e4,
162             0x00e0,
163             0x0386,
164             0x00e7,
165             0x00ea,
166             0x00eb,
167             0x00e8,
168             0x00ef,
169             0x00ee,
170             0x0388,
171             0x00c4,
172             0x0389,
173             0x038a,
174             0xfffd,
175             0x038c,
176             0x00f4,
177             0x00f6,
178             0x038e,
179             0x00fb,
180             0x00f9,
181             0x038f,
182             0x00d6,
183             0x00dc,
184             0x03ac,
185             0x00a3,
186             0x03ad,
187             0x03ae,
188             0x03af,
189             0x03ca,
190             0x0390,
191             0x03cc,
192             0x03cd,
193             0x0391,
194             0x0392,
195             0x0393,
196             0x0394,
197             0x0395,
198             0x0396,
199             0x0397,
200             0x00bd,
201             0x0398,
202             0x0399,
203             0x00ab,
204             0x00bb,
205             0x2591,
206             0x2592,
207             0x2593,
208             0x2502,
209             0x2524,
210             0x039a,
211             0x039b,
212             0x039d,
213             0x039c,
214             0x2563,
215             0x2551,
216             0x2557,
217             0x255d,
218             0x039e,
219             0x039f,
220             0x2510,
221             0x2514,
222             0x2534,
223             0x252c,
224             0x251c,
225             0x2500,
226             0x253c,
227             0x03a0,
228             0x03a1,
229             0x255a,
230             0x2554,
231             0x2569,
232             0x2566,
233             0x2560,
234             0x2550,
235             0x256c,
236             0x03a3,
237             0x03a4,
238             0x03a5,
239             0x03a6,
240             0x03a7,
241             0x03a8,
242             0x03a9,
243             0x03b1,
244             0x03b2,
245             0x03b3,
246             0x2518,
247             0x250c,
248             0x2588,
249             0x2584,
250             0x03b4,
251             0x03b5,
252             0x2580,
253             0x03b6,
254             0x03b7,
255             0x03b8,
256             0x03b9,
257             0x03ba,
258             0x03bb,
259             0x03bc,
260             0x03bd,
261             0x03be,
262             0x03bf,
263             0x03c0,
264             0x03c1,
265             0x03c3,
266             0x03c2,
267             0x03c4,
268             0x00b4,
269             0x00ad,
270             0x00b1,
271             0x03c5,
272             0x03c6,
273             0x03c7,
274             0x00a7,
275             0x03c8,
276             0x02db,
277             0x00b0,
278             0x00a8,
279             0x03c9,
280             0x03cb,
281             0x03b0,
282             0x03ce,
283             0x25a0,
284             0x00a0,
285             );
286              
287             my @to_utf8 = (
288             "\x00",
289             "\x01",
290             "\x02",
291             "\x03",
292             "\x04",
293             "\x05",
294             "\x06",
295             "\x07",
296             "\x08",
297             "\x09",
298             "\x0a",
299             "\x0b",
300             "\x0c",
301             "\x0d",
302             "\x0e",
303             "\x0f",
304             "\x10",
305             "\x11",
306             "\x12",
307             "\x13",
308             "\x14",
309             "\x15",
310             "\x16",
311             "\x17",
312             "\x18",
313             "\x19",
314             "\x1a",
315             "\x1b",
316             "\x1c",
317             "\x1d",
318             "\x1e",
319             "\x1f",
320             "\x20",
321             "\x21",
322             "\x22",
323             "\x23",
324             "\x24",
325             "\x25",
326             "\x26",
327             "\x27",
328             "\x28",
329             "\x29",
330             "\x2a",
331             "\x2b",
332             "\x2c",
333             "\x2d",
334             "\x2e",
335             "\x2f",
336             "\x30",
337             "\x31",
338             "\x32",
339             "\x33",
340             "\x34",
341             "\x35",
342             "\x36",
343             "\x37",
344             "\x38",
345             "\x39",
346             "\x3a",
347             "\x3b",
348             "\x3c",
349             "\x3d",
350             "\x3e",
351             "\x3f",
352             "\x40",
353             "\x41",
354             "\x42",
355             "\x43",
356             "\x44",
357             "\x45",
358             "\x46",
359             "\x47",
360             "\x48",
361             "\x49",
362             "\x4a",
363             "\x4b",
364             "\x4c",
365             "\x4d",
366             "\x4e",
367             "\x4f",
368             "\x50",
369             "\x51",
370             "\x52",
371             "\x53",
372             "\x54",
373             "\x55",
374             "\x56",
375             "\x57",
376             "\x58",
377             "\x59",
378             "\x5a",
379             "\x5b",
380             "\x5c",
381             "\x5d",
382             "\x5e",
383             "\x5f",
384             "\x60",
385             "\x61",
386             "\x62",
387             "\x63",
388             "\x64",
389             "\x65",
390             "\x66",
391             "\x67",
392             "\x68",
393             "\x69",
394             "\x6a",
395             "\x6b",
396             "\x6c",
397             "\x6d",
398             "\x6e",
399             "\x6f",
400             "\x70",
401             "\x71",
402             "\x72",
403             "\x73",
404             "\x74",
405             "\x75",
406             "\x76",
407             "\x77",
408             "\x78",
409             "\x79",
410             "\x7a",
411             "\x7b",
412             "\x7c",
413             "\x7d",
414             "\x7e",
415             "\x7f",
416             "\xc3\x87",
417             "\xc3\xbc",
418             "\xc3\xa9",
419             "\xc3\xa2",
420             "\xc3\xa4",
421             "\xc3\xa0",
422             "\xce\x86",
423             "\xc3\xa7",
424             "\xc3\xaa",
425             "\xc3\xab",
426             "\xc3\xa8",
427             "\xc3\xaf",
428             "\xc3\xae",
429             "\xce\x88",
430             "\xc3\x84",
431             "\xce\x89",
432             "\xce\x8a",
433             "\xef\xbf\xbd",
434             "\xce\x8c",
435             "\xc3\xb4",
436             "\xc3\xb6",
437             "\xce\x8e",
438             "\xc3\xbb",
439             "\xc3\xb9",
440             "\xce\x8f",
441             "\xc3\x96",
442             "\xc3\x9c",
443             "\xce\xac",
444             "\xc2\xa3",
445             "\xce\xad",
446             "\xce\xae",
447             "\xce\xaf",
448             "\xcf\x8a",
449             "\xce\x90",
450             "\xcf\x8c",
451             "\xcf\x8d",
452             "\xce\x91",
453             "\xce\x92",
454             "\xce\x93",
455             "\xce\x94",
456             "\xce\x95",
457             "\xce\x96",
458             "\xce\x97",
459             "\xc2\xbd",
460             "\xce\x98",
461             "\xce\x99",
462             "\xc2\xab",
463             "\xc2\xbb",
464             "\xe2\x96\x91",
465             "\xe2\x96\x92",
466             "\xe2\x96\x93",
467             "\xe2\x94\x82",
468             "\xe2\x94\xa4",
469             "\xce\x9a",
470             "\xce\x9b",
471             "\xce\x9d",
472             "\xce\x9c",
473             "\xe2\x95\xa3",
474             "\xe2\x95\x91",
475             "\xe2\x95\x97",
476             "\xe2\x95\x9d",
477             "\xce\x9e",
478             "\xce\x9f",
479             "\xe2\x94\x90",
480             "\xe2\x94\x94",
481             "\xe2\x94\xb4",
482             "\xe2\x94\xac",
483             "\xe2\x94\x9c",
484             "\xe2\x94\x80",
485             "\xe2\x94\xbc",
486             "\xce\xa0",
487             "\xce\xa1",
488             "\xe2\x95\x9a",
489             "\xe2\x95\x94",
490             "\xe2\x95\xa9",
491             "\xe2\x95\xa6",
492             "\xe2\x95\xa0",
493             "\xe2\x95\x90",
494             "\xe2\x95\xac",
495             "\xce\xa3",
496             "\xce\xa4",
497             "\xce\xa5",
498             "\xce\xa6",
499             "\xce\xa7",
500             "\xce\xa8",
501             "\xce\xa9",
502             "\xce\xb1",
503             "\xce\xb2",
504             "\xce\xb3",
505             "\xe2\x94\x98",
506             "\xe2\x94\x8c",
507             "\xe2\x96\x88",
508             "\xe2\x96\x84",
509             "\xce\xb4",
510             "\xce\xb5",
511             "\xe2\x96\x80",
512             "\xce\xb6",
513             "\xce\xb7",
514             "\xce\xb8",
515             "\xce\xb9",
516             "\xce\xba",
517             "\xce\xbb",
518             "\xce\xbc",
519             "\xce\xbd",
520             "\xce\xbe",
521             "\xce\xbf",
522             "\xcf\x80",
523             "\xcf\x81",
524             "\xcf\x83",
525             "\xcf\x82",
526             "\xcf\x84",
527             "\xc2\xb4",
528             "\xc2\xad",
529             "\xc2\xb1",
530             "\xcf\x85",
531             "\xcf\x86",
532             "\xcf\x87",
533             "\xc2\xa7",
534             "\xcf\x88",
535             "\xcb\x9b",
536             "\xc2\xb0",
537             "\xc2\xa8",
538             "\xcf\x89",
539             "\xcf\x8b",
540             "\xce\xb0",
541             "\xcf\x8e",
542             "\xe2\x96\xa0",
543             "\xc2\xa0",
544             );
545              
546             my %from_ucs4 = (
547             0x00000000 => "\x00",
548             0x00000001 => "\x01",
549             0x00000002 => "\x02",
550             0x00000003 => "\x03",
551             0x00000004 => "\x04",
552             0x00000005 => "\x05",
553             0x00000006 => "\x06",
554             0x00000007 => "\x07",
555             0x00000008 => "\x08",
556             0x00000009 => "\x09",
557             0x0000000a => "\x0a",
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 => "\x14",
568             0x00000015 => "\x15",
569             0x00000016 => "\x16",
570             0x00000017 => "\x17",
571             0x00000018 => "\x18",
572             0x00000019 => "\x19",
573             0x0000001a => "\x1a",
574             0x0000001b => "\x1b",
575             0x0000001c => "\x1c",
576             0x0000001d => "\x1d",
577             0x0000001e => "\x1e",
578             0x0000001f => "\x1f",
579             0x00000020 => "\x20",
580             0x00000021 => "\x21",
581             0x00000022 => "\x22",
582             0x00000023 => "\x23",
583             0x00000024 => "\x24",
584             0x00000025 => "\x25",
585             0x00000026 => "\x26",
586             0x00000027 => "\x27",
587             0x00000028 => "\x28",
588             0x00000029 => "\x29",
589             0x0000002a => "\x2a",
590             0x0000002b => "\x2b",
591             0x0000002c => "\x2c",
592             0x0000002d => "\x2d",
593             0x0000002e => "\x2e",
594             0x0000002f => "\x2f",
595             0x00000030 => "\x30",
596             0x00000031 => "\x31",
597             0x00000032 => "\x32",
598             0x00000033 => "\x33",
599             0x00000034 => "\x34",
600             0x00000035 => "\x35",
601             0x00000036 => "\x36",
602             0x00000037 => "\x37",
603             0x00000038 => "\x38",
604             0x00000039 => "\x39",
605             0x0000003a => "\x3a",
606             0x0000003b => "\x3b",
607             0x0000003c => "\x3c",
608             0x0000003d => "\x3d",
609             0x0000003e => "\x3e",
610             0x0000003f => "\x3f",
611             0x00000040 => "\x40",
612             0x00000041 => "\x41",
613             0x00000042 => "\x42",
614             0x00000043 => "\x43",
615             0x00000044 => "\x44",
616             0x00000045 => "\x45",
617             0x00000046 => "\x46",
618             0x00000047 => "\x47",
619             0x00000048 => "\x48",
620             0x00000049 => "\x49",
621             0x0000004a => "\x4a",
622             0x0000004b => "\x4b",
623             0x0000004c => "\x4c",
624             0x0000004d => "\x4d",
625             0x0000004e => "\x4e",
626             0x0000004f => "\x4f",
627             0x00000050 => "\x50",
628             0x00000051 => "\x51",
629             0x00000052 => "\x52",
630             0x00000053 => "\x53",
631             0x00000054 => "\x54",
632             0x00000055 => "\x55",
633             0x00000056 => "\x56",
634             0x00000057 => "\x57",
635             0x00000058 => "\x58",
636             0x00000059 => "\x59",
637             0x0000005a => "\x5a",
638             0x0000005b => "\x5b",
639             0x0000005c => "\x5c",
640             0x0000005d => "\x5d",
641             0x0000005e => "\x5e",
642             0x0000005f => "\x5f",
643             0x00000060 => "\x60",
644             0x00000061 => "\x61",
645             0x00000062 => "\x62",
646             0x00000063 => "\x63",
647             0x00000064 => "\x64",
648             0x00000065 => "\x65",
649             0x00000066 => "\x66",
650             0x00000067 => "\x67",
651             0x00000068 => "\x68",
652             0x00000069 => "\x69",
653             0x0000006a => "\x6a",
654             0x0000006b => "\x6b",
655             0x0000006c => "\x6c",
656             0x0000006d => "\x6d",
657             0x0000006e => "\x6e",
658             0x0000006f => "\x6f",
659             0x00000070 => "\x70",
660             0x00000071 => "\x71",
661             0x00000072 => "\x72",
662             0x00000073 => "\x73",
663             0x00000074 => "\x74",
664             0x00000075 => "\x75",
665             0x00000076 => "\x76",
666             0x00000077 => "\x77",
667             0x00000078 => "\x78",
668             0x00000079 => "\x79",
669             0x0000007a => "\x7a",
670             0x0000007b => "\x7b",
671             0x0000007c => "\x7c",
672             0x0000007d => "\x7d",
673             0x0000007e => "\x7e",
674             0x0000007f => "\x7f",
675             0x000000a0 => "\xff",
676             0x000000a3 => "\x9c",
677             0x000000a7 => "\xf5",
678             0x000000a8 => "\xf9",
679             0x000000ab => "\xae",
680             0x000000ad => "\xf0",
681             0x000000b0 => "\xf8",
682             0x000000b1 => "\xf1",
683             0x000000b4 => "\xef",
684             0x000000bb => "\xaf",
685             0x000000bd => "\xab",
686             0x000000c4 => "\x8e",
687             0x000000c7 => "\x80",
688             0x000000d6 => "\x99",
689             0x000000dc => "\x9a",
690             0x000000e0 => "\x85",
691             0x000000e2 => "\x83",
692             0x000000e4 => "\x84",
693             0x000000e7 => "\x87",
694             0x000000e8 => "\x8a",
695             0x000000e9 => "\x82",
696             0x000000ea => "\x88",
697             0x000000eb => "\x89",
698             0x000000ee => "\x8c",
699             0x000000ef => "\x8b",
700             0x000000f4 => "\x93",
701             0x000000f6 => "\x94",
702             0x000000f9 => "\x97",
703             0x000000fb => "\x96",
704             0x000000fc => "\x81",
705             0x000002db => "\xf7",
706             0x00000386 => "\x86",
707             0x00000388 => "\x8d",
708             0x00000389 => "\x8f",
709             0x0000038a => "\x90",
710             0x0000038c => "\x92",
711             0x0000038e => "\x95",
712             0x0000038f => "\x98",
713             0x00000390 => "\xa1",
714             0x00000391 => "\xa4",
715             0x00000392 => "\xa5",
716             0x00000393 => "\xa6",
717             0x00000394 => "\xa7",
718             0x00000395 => "\xa8",
719             0x00000396 => "\xa9",
720             0x00000397 => "\xaa",
721             0x00000398 => "\xac",
722             0x00000399 => "\xad",
723             0x0000039a => "\xb5",
724             0x0000039b => "\xb6",
725             0x0000039c => "\xb8",
726             0x0000039d => "\xb7",
727             0x0000039e => "\xbd",
728             0x0000039f => "\xbe",
729             0x000003a0 => "\xc6",
730             0x000003a1 => "\xc7",
731             0x000003a3 => "\xcf",
732             0x000003a4 => "\xd0",
733             0x000003a5 => "\xd1",
734             0x000003a6 => "\xd2",
735             0x000003a7 => "\xd3",
736             0x000003a8 => "\xd4",
737             0x000003a9 => "\xd5",
738             0x000003ac => "\x9b",
739             0x000003ad => "\x9d",
740             0x000003ae => "\x9e",
741             0x000003af => "\x9f",
742             0x000003b0 => "\xfc",
743             0x000003b1 => "\xd6",
744             0x000003b2 => "\xd7",
745             0x000003b3 => "\xd8",
746             0x000003b4 => "\xdd",
747             0x000003b5 => "\xde",
748             0x000003b6 => "\xe0",
749             0x000003b7 => "\xe1",
750             0x000003b8 => "\xe2",
751             0x000003b9 => "\xe3",
752             0x000003ba => "\xe4",
753             0x000003bb => "\xe5",
754             0x000003bc => "\xe6",
755             0x000003bd => "\xe7",
756             0x000003be => "\xe8",
757             0x000003bf => "\xe9",
758             0x000003c0 => "\xea",
759             0x000003c1 => "\xeb",
760             0x000003c2 => "\xed",
761             0x000003c3 => "\xec",
762             0x000003c4 => "\xee",
763             0x000003c5 => "\xf2",
764             0x000003c6 => "\xf3",
765             0x000003c7 => "\xf4",
766             0x000003c8 => "\xf6",
767             0x000003c9 => "\xfa",
768             0x000003ca => "\xa0",
769             0x000003cb => "\xfb",
770             0x000003cc => "\xa2",
771             0x000003cd => "\xa3",
772             0x000003ce => "\xfd",
773             0x00002500 => "\xc4",
774             0x00002502 => "\xb3",
775             0x0000250c => "\xda",
776             0x00002510 => "\xbf",
777             0x00002514 => "\xc0",
778             0x00002518 => "\xd9",
779             0x0000251c => "\xc3",
780             0x00002524 => "\xb4",
781             0x0000252c => "\xc2",
782             0x00002534 => "\xc1",
783             0x0000253c => "\xc5",
784             0x00002550 => "\xcd",
785             0x00002551 => "\xba",
786             0x00002554 => "\xc9",
787             0x00002557 => "\xbb",
788             0x0000255a => "\xc8",
789             0x0000255d => "\xbc",
790             0x00002560 => "\xcc",
791             0x00002563 => "\xb9",
792             0x00002566 => "\xcb",
793             0x00002569 => "\xca",
794             0x0000256c => "\xce",
795             0x00002580 => "\xdf",
796             0x00002584 => "\xdc",
797             0x00002588 => "\xdb",
798             0x00002591 => "\xb0",
799             0x00002592 => "\xb1",
800             0x00002593 => "\xb2",
801             0x000025a0 => "\xfe",
802             );
803              
804             sub _recode
805             {
806 767 100   767   1590 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
807             $_[1] = join '',
808             map $from_ucs4{$_}
809             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"),
810 257   100     356 @{$_[1]};
  257         854  
811             } elsif ($_[0]->{_to} eq 'UTF-8',) {
812 255         700 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
813             } else {
814 255         716 $_[1] = [ map
815             $to_ucs4[$_],
816             unpack 'C*', $_[1]
817             ];
818             }
819              
820 767         1500 return 1;
821             }
822              
823             1;
824              
825             __END__