File Coverage

blib/lib/Locale/RecodeData/ISO_8859_6.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 ISO-8859-6.
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::ISO_8859_6;
22              
23 1     1   6 use strict;
  1         2  
  1         42  
24              
25             require Locale::RecodeData;
26 1     1   5 use base qw(Locale::RecodeData);
  1         1  
  1         507  
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             0x0080,
158             0x0081,
159             0x0082,
160             0x0083,
161             0x0084,
162             0x0085,
163             0x0086,
164             0x0087,
165             0x0088,
166             0x0089,
167             0x008a,
168             0x008b,
169             0x008c,
170             0x008d,
171             0x008e,
172             0x008f,
173             0x0090,
174             0x0091,
175             0x0092,
176             0x0093,
177             0x0094,
178             0x0095,
179             0x0096,
180             0x0097,
181             0x0098,
182             0x0099,
183             0x009a,
184             0x009b,
185             0x009c,
186             0x009d,
187             0x009e,
188             0x009f,
189             0x00a0,
190             0xfffd,
191             0xfffd,
192             0xfffd,
193             0x00a4,
194             0xfffd,
195             0xfffd,
196             0xfffd,
197             0xfffd,
198             0xfffd,
199             0xfffd,
200             0xfffd,
201             0x060c,
202             0x00ad,
203             0xfffd,
204             0xfffd,
205             0xfffd,
206             0xfffd,
207             0xfffd,
208             0xfffd,
209             0xfffd,
210             0xfffd,
211             0xfffd,
212             0xfffd,
213             0xfffd,
214             0xfffd,
215             0xfffd,
216             0x061b,
217             0xfffd,
218             0xfffd,
219             0xfffd,
220             0x061f,
221             0xfffd,
222             0x0621,
223             0x0622,
224             0x0623,
225             0x0624,
226             0x0625,
227             0x0626,
228             0x0627,
229             0x0628,
230             0x0629,
231             0x062a,
232             0x062b,
233             0x062c,
234             0x062d,
235             0x062e,
236             0x062f,
237             0x0630,
238             0x0631,
239             0x0632,
240             0x0633,
241             0x0634,
242             0x0635,
243             0x0636,
244             0x0637,
245             0x0638,
246             0x0639,
247             0x063a,
248             0xfffd,
249             0xfffd,
250             0xfffd,
251             0xfffd,
252             0xfffd,
253             0x0640,
254             0x0641,
255             0x0642,
256             0x0643,
257             0x0644,
258             0x0645,
259             0x0646,
260             0x0647,
261             0x0648,
262             0x0649,
263             0x064a,
264             0x064b,
265             0x064c,
266             0x064d,
267             0x064e,
268             0x064f,
269             0x0650,
270             0x0651,
271             0x0652,
272             0xfffd,
273             0xfffd,
274             0xfffd,
275             0xfffd,
276             0xfffd,
277             0xfffd,
278             0xfffd,
279             0xfffd,
280             0xfffd,
281             0xfffd,
282             0xfffd,
283             0xfffd,
284             0xfffd,
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             "\xc2\x80",
417             "\xc2\x81",
418             "\xc2\x82",
419             "\xc2\x83",
420             "\xc2\x84",
421             "\xc2\x85",
422             "\xc2\x86",
423             "\xc2\x87",
424             "\xc2\x88",
425             "\xc2\x89",
426             "\xc2\x8a",
427             "\xc2\x8b",
428             "\xc2\x8c",
429             "\xc2\x8d",
430             "\xc2\x8e",
431             "\xc2\x8f",
432             "\xc2\x90",
433             "\xc2\x91",
434             "\xc2\x92",
435             "\xc2\x93",
436             "\xc2\x94",
437             "\xc2\x95",
438             "\xc2\x96",
439             "\xc2\x97",
440             "\xc2\x98",
441             "\xc2\x99",
442             "\xc2\x9a",
443             "\xc2\x9b",
444             "\xc2\x9c",
445             "\xc2\x9d",
446             "\xc2\x9e",
447             "\xc2\x9f",
448             "\xc2\xa0",
449             "\xef\xbf\xbd",
450             "\xef\xbf\xbd",
451             "\xef\xbf\xbd",
452             "\xc2\xa4",
453             "\xef\xbf\xbd",
454             "\xef\xbf\xbd",
455             "\xef\xbf\xbd",
456             "\xef\xbf\xbd",
457             "\xef\xbf\xbd",
458             "\xef\xbf\xbd",
459             "\xef\xbf\xbd",
460             "\xd8\x8c",
461             "\xc2\xad",
462             "\xef\xbf\xbd",
463             "\xef\xbf\xbd",
464             "\xef\xbf\xbd",
465             "\xef\xbf\xbd",
466             "\xef\xbf\xbd",
467             "\xef\xbf\xbd",
468             "\xef\xbf\xbd",
469             "\xef\xbf\xbd",
470             "\xef\xbf\xbd",
471             "\xef\xbf\xbd",
472             "\xef\xbf\xbd",
473             "\xef\xbf\xbd",
474             "\xef\xbf\xbd",
475             "\xd8\x9b",
476             "\xef\xbf\xbd",
477             "\xef\xbf\xbd",
478             "\xef\xbf\xbd",
479             "\xd8\x9f",
480             "\xef\xbf\xbd",
481             "\xd8\xa1",
482             "\xd8\xa2",
483             "\xd8\xa3",
484             "\xd8\xa4",
485             "\xd8\xa5",
486             "\xd8\xa6",
487             "\xd8\xa7",
488             "\xd8\xa8",
489             "\xd8\xa9",
490             "\xd8\xaa",
491             "\xd8\xab",
492             "\xd8\xac",
493             "\xd8\xad",
494             "\xd8\xae",
495             "\xd8\xaf",
496             "\xd8\xb0",
497             "\xd8\xb1",
498             "\xd8\xb2",
499             "\xd8\xb3",
500             "\xd8\xb4",
501             "\xd8\xb5",
502             "\xd8\xb6",
503             "\xd8\xb7",
504             "\xd8\xb8",
505             "\xd8\xb9",
506             "\xd8\xba",
507             "\xef\xbf\xbd",
508             "\xef\xbf\xbd",
509             "\xef\xbf\xbd",
510             "\xef\xbf\xbd",
511             "\xef\xbf\xbd",
512             "\xd9\x80",
513             "\xd9\x81",
514             "\xd9\x82",
515             "\xd9\x83",
516             "\xd9\x84",
517             "\xd9\x85",
518             "\xd9\x86",
519             "\xd9\x87",
520             "\xd9\x88",
521             "\xd9\x89",
522             "\xd9\x8a",
523             "\xd9\x8b",
524             "\xd9\x8c",
525             "\xd9\x8d",
526             "\xd9\x8e",
527             "\xd9\x8f",
528             "\xd9\x90",
529             "\xd9\x91",
530             "\xd9\x92",
531             "\xef\xbf\xbd",
532             "\xef\xbf\xbd",
533             "\xef\xbf\xbd",
534             "\xef\xbf\xbd",
535             "\xef\xbf\xbd",
536             "\xef\xbf\xbd",
537             "\xef\xbf\xbd",
538             "\xef\xbf\xbd",
539             "\xef\xbf\xbd",
540             "\xef\xbf\xbd",
541             "\xef\xbf\xbd",
542             "\xef\xbf\xbd",
543             "\xef\xbf\xbd",
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             0x00000080 => "\x80",
676             0x00000081 => "\x81",
677             0x00000082 => "\x82",
678             0x00000083 => "\x83",
679             0x00000084 => "\x84",
680             0x00000085 => "\x85",
681             0x00000086 => "\x86",
682             0x00000087 => "\x87",
683             0x00000088 => "\x88",
684             0x00000089 => "\x89",
685             0x0000008a => "\x8a",
686             0x0000008b => "\x8b",
687             0x0000008c => "\x8c",
688             0x0000008d => "\x8d",
689             0x0000008e => "\x8e",
690             0x0000008f => "\x8f",
691             0x00000090 => "\x90",
692             0x00000091 => "\x91",
693             0x00000092 => "\x92",
694             0x00000093 => "\x93",
695             0x00000094 => "\x94",
696             0x00000095 => "\x95",
697             0x00000096 => "\x96",
698             0x00000097 => "\x97",
699             0x00000098 => "\x98",
700             0x00000099 => "\x99",
701             0x0000009a => "\x9a",
702             0x0000009b => "\x9b",
703             0x0000009c => "\x9c",
704             0x0000009d => "\x9d",
705             0x0000009e => "\x9e",
706             0x0000009f => "\x9f",
707             0x000000a0 => "\xa0",
708             0x000000a4 => "\xa4",
709             0x000000ad => "\xad",
710             0x0000060c => "\xac",
711             0x0000061b => "\xbb",
712             0x0000061f => "\xbf",
713             0x00000621 => "\xc1",
714             0x00000622 => "\xc2",
715             0x00000623 => "\xc3",
716             0x00000624 => "\xc4",
717             0x00000625 => "\xc5",
718             0x00000626 => "\xc6",
719             0x00000627 => "\xc7",
720             0x00000628 => "\xc8",
721             0x00000629 => "\xc9",
722             0x0000062a => "\xca",
723             0x0000062b => "\xcb",
724             0x0000062c => "\xcc",
725             0x0000062d => "\xcd",
726             0x0000062e => "\xce",
727             0x0000062f => "\xcf",
728             0x00000630 => "\xd0",
729             0x00000631 => "\xd1",
730             0x00000632 => "\xd2",
731             0x00000633 => "\xd3",
732             0x00000634 => "\xd4",
733             0x00000635 => "\xd5",
734             0x00000636 => "\xd6",
735             0x00000637 => "\xd7",
736             0x00000638 => "\xd8",
737             0x00000639 => "\xd9",
738             0x0000063a => "\xda",
739             0x00000640 => "\xe0",
740             0x00000641 => "\xe1",
741             0x00000642 => "\xe2",
742             0x00000643 => "\xe3",
743             0x00000644 => "\xe4",
744             0x00000645 => "\xe5",
745             0x00000646 => "\xe6",
746             0x00000647 => "\xe7",
747             0x00000648 => "\xe8",
748             0x00000649 => "\xe9",
749             0x0000064a => "\xea",
750             0x0000064b => "\xeb",
751             0x0000064c => "\xec",
752             0x0000064d => "\xed",
753             0x0000064e => "\xee",
754             0x0000064f => "\xef",
755             0x00000650 => "\xf0",
756             0x00000651 => "\xf1",
757             0x00000652 => "\xf2",
758             );
759              
760             sub _recode
761             {
762 661 100   661   1314 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
763             $_[1] = join '',
764             map $from_ucs4{$_}
765             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"),
766 213   100     301 @{$_[1]};
  213         693  
767             } elsif ($_[0]->{_to} eq 'UTF-8',) {
768 224         621 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
769             } else {
770 224         580 $_[1] = [ map
771             $to_ucs4[$_],
772             unpack 'C*', $_[1]
773             ];
774             }
775              
776 661         1361 return 1;
777             }
778              
779             1;
780              
781             __END__