File Coverage

blib/lib/Locale/RecodeData/ISO_5427.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_5427.
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_5427;
22              
23 1     1   7 use strict;
  1         84  
  1         44  
24              
25             require Locale::RecodeData;
26 1     1   6 use base qw(Locale::RecodeData);
  1         1  
  1         493  
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             0x00a4,
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             0x044e,
94             0x0430,
95             0x0431,
96             0x0446,
97             0x0434,
98             0x0435,
99             0x0444,
100             0x0433,
101             0x0445,
102             0x0438,
103             0x0439,
104             0x043a,
105             0x043b,
106             0x043c,
107             0x043d,
108             0x043e,
109             0x043f,
110             0x044f,
111             0x0440,
112             0x0441,
113             0x0442,
114             0x0443,
115             0x0436,
116             0x0432,
117             0x044c,
118             0x044b,
119             0x0437,
120             0x0448,
121             0x044d,
122             0x0449,
123             0x0447,
124             0x044a,
125             0x042e,
126             0x0410,
127             0x0411,
128             0x0426,
129             0x0414,
130             0x0415,
131             0x0424,
132             0x0413,
133             0x0425,
134             0x0418,
135             0x0419,
136             0x041a,
137             0x041b,
138             0x041c,
139             0x041d,
140             0x041e,
141             0x041f,
142             0x042f,
143             0x0420,
144             0x0421,
145             0x0422,
146             0x0423,
147             0x0416,
148             0x0412,
149             0x042c,
150             0x042b,
151             0x0417,
152             0x0428,
153             0x042d,
154             0x0429,
155             0x0427,
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             "\x21",
322             "\x22",
323             "\x23",
324             "\xc2\xa4",
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             "\xd1\x8e",
353             "\xd0\xb0",
354             "\xd0\xb1",
355             "\xd1\x86",
356             "\xd0\xb4",
357             "\xd0\xb5",
358             "\xd1\x84",
359             "\xd0\xb3",
360             "\xd1\x85",
361             "\xd0\xb8",
362             "\xd0\xb9",
363             "\xd0\xba",
364             "\xd0\xbb",
365             "\xd0\xbc",
366             "\xd0\xbd",
367             "\xd0\xbe",
368             "\xd0\xbf",
369             "\xd1\x8f",
370             "\xd1\x80",
371             "\xd1\x81",
372             "\xd1\x82",
373             "\xd1\x83",
374             "\xd0\xb6",
375             "\xd0\xb2",
376             "\xd1\x8c",
377             "\xd1\x8b",
378             "\xd0\xb7",
379             "\xd1\x88",
380             "\xd1\x8d",
381             "\xd1\x89",
382             "\xd1\x87",
383             "\xd1\x8a",
384             "\xd0\xae",
385             "\xd0\x90",
386             "\xd0\x91",
387             "\xd0\xa6",
388             "\xd0\x94",
389             "\xd0\x95",
390             "\xd0\xa4",
391             "\xd0\x93",
392             "\xd0\xa5",
393             "\xd0\x98",
394             "\xd0\x99",
395             "\xd0\x9a",
396             "\xd0\x9b",
397             "\xd0\x9c",
398             "\xd0\x9d",
399             "\xd0\x9e",
400             "\xd0\x9f",
401             "\xd0\xaf",
402             "\xd0\xa0",
403             "\xd0\xa1",
404             "\xd0\xa2",
405             "\xd0\xa3",
406             "\xd0\x96",
407             "\xd0\x92",
408             "\xd0\xac",
409             "\xd0\xab",
410             "\xd0\x97",
411             "\xd0\xa8",
412             "\xd0\xad",
413             "\xd0\xa9",
414             "\xd0\xa7",
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             0x00000021 => "\x21",
581             0x00000022 => "\x22",
582             0x00000023 => "\x23",
583             0x00000025 => "\x25",
584             0x00000026 => "\x26",
585             0x00000027 => "\x27",
586             0x00000028 => "\x28",
587             0x00000029 => "\x29",
588             0x0000002a => "\x2a",
589             0x0000002b => "\x2b",
590             0x0000002c => "\x2c",
591             0x0000002d => "\x2d",
592             0x0000002e => "\x2e",
593             0x0000002f => "\x2f",
594             0x00000030 => "\x30",
595             0x00000031 => "\x31",
596             0x00000032 => "\x32",
597             0x00000033 => "\x33",
598             0x00000034 => "\x34",
599             0x00000035 => "\x35",
600             0x00000036 => "\x36",
601             0x00000037 => "\x37",
602             0x00000038 => "\x38",
603             0x00000039 => "\x39",
604             0x0000003a => "\x3a",
605             0x0000003b => "\x3b",
606             0x0000003c => "\x3c",
607             0x0000003d => "\x3d",
608             0x0000003e => "\x3e",
609             0x0000003f => "\x3f",
610             0x0000007f => "\x7f",
611             0x000000a4 => "\x24",
612             0x00000410 => "\x61",
613             0x00000411 => "\x62",
614             0x00000412 => "\x77",
615             0x00000413 => "\x67",
616             0x00000414 => "\x64",
617             0x00000415 => "\x65",
618             0x00000416 => "\x76",
619             0x00000417 => "\x7a",
620             0x00000418 => "\x69",
621             0x00000419 => "\x6a",
622             0x0000041a => "\x6b",
623             0x0000041b => "\x6c",
624             0x0000041c => "\x6d",
625             0x0000041d => "\x6e",
626             0x0000041e => "\x6f",
627             0x0000041f => "\x70",
628             0x00000420 => "\x72",
629             0x00000421 => "\x73",
630             0x00000422 => "\x74",
631             0x00000423 => "\x75",
632             0x00000424 => "\x66",
633             0x00000425 => "\x68",
634             0x00000426 => "\x63",
635             0x00000427 => "\x7e",
636             0x00000428 => "\x7b",
637             0x00000429 => "\x7d",
638             0x0000042b => "\x79",
639             0x0000042c => "\x78",
640             0x0000042d => "\x7c",
641             0x0000042e => "\x60",
642             0x0000042f => "\x71",
643             0x00000430 => "\x41",
644             0x00000431 => "\x42",
645             0x00000432 => "\x57",
646             0x00000433 => "\x47",
647             0x00000434 => "\x44",
648             0x00000435 => "\x45",
649             0x00000436 => "\x56",
650             0x00000437 => "\x5a",
651             0x00000438 => "\x49",
652             0x00000439 => "\x4a",
653             0x0000043a => "\x4b",
654             0x0000043b => "\x4c",
655             0x0000043c => "\x4d",
656             0x0000043d => "\x4e",
657             0x0000043e => "\x4f",
658             0x0000043f => "\x50",
659             0x00000440 => "\x52",
660             0x00000441 => "\x53",
661             0x00000442 => "\x54",
662             0x00000443 => "\x55",
663             0x00000444 => "\x46",
664             0x00000445 => "\x48",
665             0x00000446 => "\x43",
666             0x00000447 => "\x5e",
667             0x00000448 => "\x5b",
668             0x00000449 => "\x5d",
669             0x0000044a => "\x5f",
670             0x0000044b => "\x59",
671             0x0000044c => "\x58",
672             0x0000044d => "\x5c",
673             0x0000044e => "\x40",
674             0x0000044f => "\x51",
675             );
676              
677             sub _recode
678             {
679 642 100   642   1285 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
680             $_[1] = join '',
681             map $from_ucs4{$_}
682             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"),
683 130   100     158 @{$_[1]};
  130         452  
684             } elsif ($_[0]->{_to} eq 'UTF-8',) {
685 256         718 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
686             } else {
687 256         643 $_[1] = [ map
688             $to_ucs4[$_],
689             unpack 'C*', $_[1]
690             ];
691             }
692              
693 642         1241 return 1;
694             }
695              
696             1;
697              
698             __END__