File Coverage

blib/lib/Locale/RecodeData/ISO_5428.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_5428.
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_5428;
22              
23 1     1   7 use strict;
  1         2  
  1         40  
24              
25             require Locale::RecodeData;
26 1     1   5 use base qw(Locale::RecodeData);
  1         2  
  1         464  
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             0xe002,
63             0xe003,
64             0xe009,
65             0xe005,
66             0xe012,
67             0xe013,
68             0xe014,
69             0xfffd,
70             0xfffd,
71             0xfffd,
72             0xfffd,
73             0xfffd,
74             0xfffd,
75             0xfffd,
76             0xfffd,
77             0x00ab,
78             0x00bb,
79             0x201d,
80             0x201c,
81             0x0374,
82             0x0375,
83             0xfffd,
84             0xfffd,
85             0xfffd,
86             0xfffd,
87             0xfffd,
88             0x00b7,
89             0xfffd,
90             0xfffd,
91             0xfffd,
92             0x003b,
93             0xfffd,
94             0x0391,
95             0x0392,
96             0xfffd,
97             0x0393,
98             0x0394,
99             0x0395,
100             0x03da,
101             0x03dc,
102             0x0396,
103             0x0397,
104             0x0398,
105             0x0399,
106             0x039a,
107             0x039b,
108             0x039c,
109             0x039d,
110             0x039e,
111             0x039f,
112             0x03a0,
113             0x03de,
114             0x03a1,
115             0x03a3,
116             0xfffd,
117             0x03a4,
118             0x03a5,
119             0x03a6,
120             0x03a7,
121             0x03a8,
122             0x03a9,
123             0x03e0,
124             0xfffd,
125             0xfffd,
126             0x03b1,
127             0x03b2,
128             0x03d0,
129             0x03b3,
130             0x03b4,
131             0x03b5,
132             0xe01a,
133             0xe01b,
134             0x03b6,
135             0x03b7,
136             0x03b8,
137             0x03b9,
138             0x03ba,
139             0x03bb,
140             0x03bc,
141             0x03bd,
142             0x03be,
143             0x03bf,
144             0x03c0,
145             0xe01c,
146             0x03c1,
147             0x03c3,
148             0x03c2,
149             0x03c4,
150             0x03c5,
151             0x03c6,
152             0x03c7,
153             0x03c8,
154             0x03c9,
155             0xe01d,
156             0x007f,
157             0xfffd,
158             0xfffd,
159             0xfffd,
160             0xfffd,
161             0xfffd,
162             0xfffd,
163             0xfffd,
164             0xfffd,
165             0xfffd,
166             0xfffd,
167             0xfffd,
168             0xfffd,
169             0xfffd,
170             0xfffd,
171             0xfffd,
172             0xfffd,
173             0xfffd,
174             0xfffd,
175             0xfffd,
176             0xfffd,
177             0xfffd,
178             0xfffd,
179             0xfffd,
180             0xfffd,
181             0xfffd,
182             0xfffd,
183             0xfffd,
184             0xfffd,
185             0xfffd,
186             0xfffd,
187             0xfffd,
188             0xfffd,
189             0xfffd,
190             0xfffd,
191             0xfffd,
192             0xfffd,
193             0xfffd,
194             0xfffd,
195             0xfffd,
196             0xfffd,
197             0xfffd,
198             0xfffd,
199             0xfffd,
200             0xfffd,
201             0xfffd,
202             0xfffd,
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             0xfffd,
217             0xfffd,
218             0xfffd,
219             0xfffd,
220             0xfffd,
221             0xfffd,
222             0xfffd,
223             0xfffd,
224             0xfffd,
225             0xfffd,
226             0xfffd,
227             0xfffd,
228             0xfffd,
229             0xfffd,
230             0xfffd,
231             0xfffd,
232             0xfffd,
233             0xfffd,
234             0xfffd,
235             0xfffd,
236             0xfffd,
237             0xfffd,
238             0xfffd,
239             0xfffd,
240             0xfffd,
241             0xfffd,
242             0xfffd,
243             0xfffd,
244             0xfffd,
245             0xfffd,
246             0xfffd,
247             0xfffd,
248             0xfffd,
249             0xfffd,
250             0xfffd,
251             0xfffd,
252             0xfffd,
253             0xfffd,
254             0xfffd,
255             0xfffd,
256             0xfffd,
257             0xfffd,
258             0xfffd,
259             0xfffd,
260             0xfffd,
261             0xfffd,
262             0xfffd,
263             0xfffd,
264             0xfffd,
265             0xfffd,
266             0xfffd,
267             0xfffd,
268             0xfffd,
269             0xfffd,
270             0xfffd,
271             0xfffd,
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             "\xee\x80\x82",
322             "\xee\x80\x83",
323             "\xee\x80\x89",
324             "\xee\x80\x85",
325             "\xee\x80\x92",
326             "\xee\x80\x93",
327             "\xee\x80\x94",
328             "\xef\xbf\xbd",
329             "\xef\xbf\xbd",
330             "\xef\xbf\xbd",
331             "\xef\xbf\xbd",
332             "\xef\xbf\xbd",
333             "\xef\xbf\xbd",
334             "\xef\xbf\xbd",
335             "\xef\xbf\xbd",
336             "\xc2\xab",
337             "\xc2\xbb",
338             "\xe2\x80\x9d",
339             "\xe2\x80\x9c",
340             "\xcd\xb4",
341             "\xcd\xb5",
342             "\xef\xbf\xbd",
343             "\xef\xbf\xbd",
344             "\xef\xbf\xbd",
345             "\xef\xbf\xbd",
346             "\xef\xbf\xbd",
347             "\xc2\xb7",
348             "\xef\xbf\xbd",
349             "\xef\xbf\xbd",
350             "\xef\xbf\xbd",
351             "\x3b",
352             "\xef\xbf\xbd",
353             "\xce\x91",
354             "\xce\x92",
355             "\xef\xbf\xbd",
356             "\xce\x93",
357             "\xce\x94",
358             "\xce\x95",
359             "\xcf\x9a",
360             "\xcf\x9c",
361             "\xce\x96",
362             "\xce\x97",
363             "\xce\x98",
364             "\xce\x99",
365             "\xce\x9a",
366             "\xce\x9b",
367             "\xce\x9c",
368             "\xce\x9d",
369             "\xce\x9e",
370             "\xce\x9f",
371             "\xce\xa0",
372             "\xcf\x9e",
373             "\xce\xa1",
374             "\xce\xa3",
375             "\xef\xbf\xbd",
376             "\xce\xa4",
377             "\xce\xa5",
378             "\xce\xa6",
379             "\xce\xa7",
380             "\xce\xa8",
381             "\xce\xa9",
382             "\xcf\xa0",
383             "\xef\xbf\xbd",
384             "\xef\xbf\xbd",
385             "\xce\xb1",
386             "\xce\xb2",
387             "\xcf\x90",
388             "\xce\xb3",
389             "\xce\xb4",
390             "\xce\xb5",
391             "\xee\x80\x9a",
392             "\xee\x80\x9b",
393             "\xce\xb6",
394             "\xce\xb7",
395             "\xce\xb8",
396             "\xce\xb9",
397             "\xce\xba",
398             "\xce\xbb",
399             "\xce\xbc",
400             "\xce\xbd",
401             "\xce\xbe",
402             "\xce\xbf",
403             "\xcf\x80",
404             "\xee\x80\x9c",
405             "\xcf\x81",
406             "\xcf\x83",
407             "\xcf\x82",
408             "\xcf\x84",
409             "\xcf\x85",
410             "\xcf\x86",
411             "\xcf\x87",
412             "\xcf\x88",
413             "\xcf\x89",
414             "\xee\x80\x9d",
415             "\x7f",
416             "\xef\xbf\xbd",
417             "\xef\xbf\xbd",
418             "\xef\xbf\xbd",
419             "\xef\xbf\xbd",
420             "\xef\xbf\xbd",
421             "\xef\xbf\xbd",
422             "\xef\xbf\xbd",
423             "\xef\xbf\xbd",
424             "\xef\xbf\xbd",
425             "\xef\xbf\xbd",
426             "\xef\xbf\xbd",
427             "\xef\xbf\xbd",
428             "\xef\xbf\xbd",
429             "\xef\xbf\xbd",
430             "\xef\xbf\xbd",
431             "\xef\xbf\xbd",
432             "\xef\xbf\xbd",
433             "\xef\xbf\xbd",
434             "\xef\xbf\xbd",
435             "\xef\xbf\xbd",
436             "\xef\xbf\xbd",
437             "\xef\xbf\xbd",
438             "\xef\xbf\xbd",
439             "\xef\xbf\xbd",
440             "\xef\xbf\xbd",
441             "\xef\xbf\xbd",
442             "\xef\xbf\xbd",
443             "\xef\xbf\xbd",
444             "\xef\xbf\xbd",
445             "\xef\xbf\xbd",
446             "\xef\xbf\xbd",
447             "\xef\xbf\xbd",
448             "\xef\xbf\xbd",
449             "\xef\xbf\xbd",
450             "\xef\xbf\xbd",
451             "\xef\xbf\xbd",
452             "\xef\xbf\xbd",
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             "\xef\xbf\xbd",
461             "\xef\xbf\xbd",
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             "\xef\xbf\xbd",
476             "\xef\xbf\xbd",
477             "\xef\xbf\xbd",
478             "\xef\xbf\xbd",
479             "\xef\xbf\xbd",
480             "\xef\xbf\xbd",
481             "\xef\xbf\xbd",
482             "\xef\xbf\xbd",
483             "\xef\xbf\xbd",
484             "\xef\xbf\xbd",
485             "\xef\xbf\xbd",
486             "\xef\xbf\xbd",
487             "\xef\xbf\xbd",
488             "\xef\xbf\xbd",
489             "\xef\xbf\xbd",
490             "\xef\xbf\xbd",
491             "\xef\xbf\xbd",
492             "\xef\xbf\xbd",
493             "\xef\xbf\xbd",
494             "\xef\xbf\xbd",
495             "\xef\xbf\xbd",
496             "\xef\xbf\xbd",
497             "\xef\xbf\xbd",
498             "\xef\xbf\xbd",
499             "\xef\xbf\xbd",
500             "\xef\xbf\xbd",
501             "\xef\xbf\xbd",
502             "\xef\xbf\xbd",
503             "\xef\xbf\xbd",
504             "\xef\xbf\xbd",
505             "\xef\xbf\xbd",
506             "\xef\xbf\xbd",
507             "\xef\xbf\xbd",
508             "\xef\xbf\xbd",
509             "\xef\xbf\xbd",
510             "\xef\xbf\xbd",
511             "\xef\xbf\xbd",
512             "\xef\xbf\xbd",
513             "\xef\xbf\xbd",
514             "\xef\xbf\xbd",
515             "\xef\xbf\xbd",
516             "\xef\xbf\xbd",
517             "\xef\xbf\xbd",
518             "\xef\xbf\xbd",
519             "\xef\xbf\xbd",
520             "\xef\xbf\xbd",
521             "\xef\xbf\xbd",
522             "\xef\xbf\xbd",
523             "\xef\xbf\xbd",
524             "\xef\xbf\xbd",
525             "\xef\xbf\xbd",
526             "\xef\xbf\xbd",
527             "\xef\xbf\xbd",
528             "\xef\xbf\xbd",
529             "\xef\xbf\xbd",
530             "\xef\xbf\xbd",
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             0x0000003b => "\x3f",
581             0x0000007f => "\x7f",
582             0x000000ab => "\x30",
583             0x000000b7 => "\x3b",
584             0x000000bb => "\x31",
585             0x00000374 => "\x34",
586             0x00000375 => "\x35",
587             0x00000391 => "\x41",
588             0x00000392 => "\x42",
589             0x00000393 => "\x44",
590             0x00000394 => "\x45",
591             0x00000395 => "\x46",
592             0x00000396 => "\x49",
593             0x00000397 => "\x4a",
594             0x00000398 => "\x4b",
595             0x00000399 => "\x4c",
596             0x0000039a => "\x4d",
597             0x0000039b => "\x4e",
598             0x0000039c => "\x4f",
599             0x0000039d => "\x50",
600             0x0000039e => "\x51",
601             0x0000039f => "\x52",
602             0x000003a0 => "\x53",
603             0x000003a1 => "\x55",
604             0x000003a3 => "\x56",
605             0x000003a4 => "\x58",
606             0x000003a5 => "\x59",
607             0x000003a6 => "\x5a",
608             0x000003a7 => "\x5b",
609             0x000003a8 => "\x5c",
610             0x000003a9 => "\x5d",
611             0x000003b1 => "\x61",
612             0x000003b2 => "\x62",
613             0x000003b3 => "\x64",
614             0x000003b4 => "\x65",
615             0x000003b5 => "\x66",
616             0x000003b6 => "\x69",
617             0x000003b7 => "\x6a",
618             0x000003b8 => "\x6b",
619             0x000003b9 => "\x6c",
620             0x000003ba => "\x6d",
621             0x000003bb => "\x6e",
622             0x000003bc => "\x6f",
623             0x000003bd => "\x70",
624             0x000003be => "\x71",
625             0x000003bf => "\x72",
626             0x000003c0 => "\x73",
627             0x000003c1 => "\x75",
628             0x000003c2 => "\x77",
629             0x000003c3 => "\x76",
630             0x000003c4 => "\x78",
631             0x000003c5 => "\x79",
632             0x000003c6 => "\x7a",
633             0x000003c7 => "\x7b",
634             0x000003c8 => "\x7c",
635             0x000003c9 => "\x7d",
636             0x000003d0 => "\x63",
637             0x000003da => "\x47",
638             0x000003dc => "\x48",
639             0x000003de => "\x54",
640             0x000003e0 => "\x5e",
641             0x0000201c => "\x33",
642             0x0000201d => "\x32",
643             0x0000e002 => "\x21",
644             0x0000e003 => "\x22",
645             0x0000e005 => "\x24",
646             0x0000e009 => "\x23",
647             0x0000e012 => "\x25",
648             0x0000e013 => "\x26",
649             0x0000e014 => "\x27",
650             0x0000e01a => "\x67",
651             0x0000e01b => "\x68",
652             0x0000e01c => "\x74",
653             0x0000e01d => "\x7e",
654             );
655              
656             sub _recode
657             {
658 579 100   579   1269 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
659             $_[1] = join '',
660             map $from_ucs4{$_}
661             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"),
662 109   100     134 @{$_[1]};
  109         428  
663             } elsif ($_[0]->{_to} eq 'UTF-8',) {
664 235         667 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
665             } else {
666 235         681 $_[1] = [ map
667             $to_ucs4[$_],
668             unpack 'C*', $_[1]
669             ];
670             }
671              
672 579         1268 return 1;
673             }
674              
675             1;
676              
677             __END__