File Coverage

blib/lib/Locale/RecodeData/EBCDIC_ES_S.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 EBCDIC-ES-S.
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::EBCDIC_ES_S;
22              
23 1     1   7 use strict;
  1         2  
  1         39  
24              
25             require Locale::RecodeData;
26 1     1   5 use base qw(Locale::RecodeData);
  1         2  
  1         443  
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             0xfffd,
96             0xfffd,
97             0xfffd,
98             0xfffd,
99             0xfffd,
100             0xfffd,
101             0xfffd,
102             0xfffd,
103             0x00a2,
104             0x002e,
105             0x003c,
106             0x0028,
107             0x002b,
108             0x007c,
109             0x0026,
110             0xfffd,
111             0xfffd,
112             0xfffd,
113             0xfffd,
114             0xfffd,
115             0xfffd,
116             0xfffd,
117             0xfffd,
118             0xfffd,
119             0x0021,
120             0x0024,
121             0x002a,
122             0x0029,
123             0x003b,
124             0x00ac,
125             0x002d,
126             0x002f,
127             0xfffd,
128             0xfffd,
129             0xfffd,
130             0xfffd,
131             0xfffd,
132             0xfffd,
133             0xfffd,
134             0xfffd,
135             0x00f1,
136             0x002c,
137             0x0025,
138             0x005f,
139             0x003e,
140             0x003f,
141             0xfffd,
142             0xfffd,
143             0xfffd,
144             0xfffd,
145             0xfffd,
146             0xfffd,
147             0xfffd,
148             0xfffd,
149             0xfffd,
150             0x0060,
151             0x003a,
152             0x00d1,
153             0x0040,
154             0x0027,
155             0x003d,
156             0x0022,
157             0xfffd,
158             0x0061,
159             0x0062,
160             0x0063,
161             0x0064,
162             0x0065,
163             0x0066,
164             0x0067,
165             0x0068,
166             0x0069,
167             0xfffd,
168             0xfffd,
169             0xfffd,
170             0xfffd,
171             0xfffd,
172             0xfffd,
173             0xfffd,
174             0x006a,
175             0x006b,
176             0x006c,
177             0x006d,
178             0x006e,
179             0x006f,
180             0x0070,
181             0x0071,
182             0x0072,
183             0xfffd,
184             0xfffd,
185             0xfffd,
186             0xfffd,
187             0xfffd,
188             0xfffd,
189             0xfffd,
190             0x00a8,
191             0x0073,
192             0x0074,
193             0x0075,
194             0x0076,
195             0x0077,
196             0x0078,
197             0x0079,
198             0x007a,
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             0x007b,
222             0x0041,
223             0x0042,
224             0x0043,
225             0x0044,
226             0x0045,
227             0x0046,
228             0x0047,
229             0x0048,
230             0x0049,
231             0xfffd,
232             0xfffd,
233             0xfffd,
234             0xfffd,
235             0xfffd,
236             0xfffd,
237             0x007d,
238             0x004a,
239             0x004b,
240             0x004c,
241             0x004d,
242             0x004e,
243             0x004f,
244             0x0050,
245             0x0051,
246             0x0052,
247             0xfffd,
248             0xfffd,
249             0xfffd,
250             0xfffd,
251             0xfffd,
252             0xfffd,
253             0x005c,
254             0xfffd,
255             0x0053,
256             0x0054,
257             0x0055,
258             0x0056,
259             0x0057,
260             0x0058,
261             0x0059,
262             0x005a,
263             0xfffd,
264             0xfffd,
265             0xfffd,
266             0xfffd,
267             0xfffd,
268             0xfffd,
269             0x0030,
270             0x0031,
271             0x0032,
272             0x0033,
273             0x0034,
274             0x0035,
275             0x0036,
276             0x0037,
277             0x0038,
278             0x0039,
279             0xfffd,
280             0xfffd,
281             0xfffd,
282             0xfffd,
283             0xfffd,
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             "\xef\xbf\xbd",
355             "\xef\xbf\xbd",
356             "\xef\xbf\xbd",
357             "\xef\xbf\xbd",
358             "\xef\xbf\xbd",
359             "\xef\xbf\xbd",
360             "\xef\xbf\xbd",
361             "\xef\xbf\xbd",
362             "\xc2\xa2",
363             "\x2e",
364             "\x3c",
365             "\x28",
366             "\x2b",
367             "\x7c",
368             "\x26",
369             "\xef\xbf\xbd",
370             "\xef\xbf\xbd",
371             "\xef\xbf\xbd",
372             "\xef\xbf\xbd",
373             "\xef\xbf\xbd",
374             "\xef\xbf\xbd",
375             "\xef\xbf\xbd",
376             "\xef\xbf\xbd",
377             "\xef\xbf\xbd",
378             "\x21",
379             "\x24",
380             "\x2a",
381             "\x29",
382             "\x3b",
383             "\xc2\xac",
384             "\x2d",
385             "\x2f",
386             "\xef\xbf\xbd",
387             "\xef\xbf\xbd",
388             "\xef\xbf\xbd",
389             "\xef\xbf\xbd",
390             "\xef\xbf\xbd",
391             "\xef\xbf\xbd",
392             "\xef\xbf\xbd",
393             "\xef\xbf\xbd",
394             "\xc3\xb1",
395             "\x2c",
396             "\x25",
397             "\x5f",
398             "\x3e",
399             "\x3f",
400             "\xef\xbf\xbd",
401             "\xef\xbf\xbd",
402             "\xef\xbf\xbd",
403             "\xef\xbf\xbd",
404             "\xef\xbf\xbd",
405             "\xef\xbf\xbd",
406             "\xef\xbf\xbd",
407             "\xef\xbf\xbd",
408             "\xef\xbf\xbd",
409             "\x60",
410             "\x3a",
411             "\xc3\x91",
412             "\x40",
413             "\x27",
414             "\x3d",
415             "\x22",
416             "\xef\xbf\xbd",
417             "\x61",
418             "\x62",
419             "\x63",
420             "\x64",
421             "\x65",
422             "\x66",
423             "\x67",
424             "\x68",
425             "\x69",
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             "\x6a",
434             "\x6b",
435             "\x6c",
436             "\x6d",
437             "\x6e",
438             "\x6f",
439             "\x70",
440             "\x71",
441             "\x72",
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             "\xc2\xa8",
450             "\x73",
451             "\x74",
452             "\x75",
453             "\x76",
454             "\x77",
455             "\x78",
456             "\x79",
457             "\x7a",
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             "\x7b",
481             "\x41",
482             "\x42",
483             "\x43",
484             "\x44",
485             "\x45",
486             "\x46",
487             "\x47",
488             "\x48",
489             "\x49",
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             "\x7d",
497             "\x4a",
498             "\x4b",
499             "\x4c",
500             "\x4d",
501             "\x4e",
502             "\x4f",
503             "\x50",
504             "\x51",
505             "\x52",
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             "\x5c",
513             "\xef\xbf\xbd",
514             "\x53",
515             "\x54",
516             "\x55",
517             "\x56",
518             "\x57",
519             "\x58",
520             "\x59",
521             "\x5a",
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             "\x30",
529             "\x31",
530             "\x32",
531             "\x33",
532             "\x34",
533             "\x35",
534             "\x36",
535             "\x37",
536             "\x38",
537             "\x39",
538             "\xef\xbf\xbd",
539             "\xef\xbf\xbd",
540             "\xef\xbf\xbd",
541             "\xef\xbf\xbd",
542             "\xef\xbf\xbd",
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 => "\x5a",
581             0x00000022 => "\x7f",
582             0x00000024 => "\x5b",
583             0x00000025 => "\x6c",
584             0x00000026 => "\x50",
585             0x00000027 => "\x7d",
586             0x00000028 => "\x4d",
587             0x00000029 => "\x5d",
588             0x0000002a => "\x5c",
589             0x0000002b => "\x4e",
590             0x0000002c => "\x6b",
591             0x0000002d => "\x60",
592             0x0000002e => "\x4b",
593             0x0000002f => "\x61",
594             0x00000030 => "\xf0",
595             0x00000031 => "\xf1",
596             0x00000032 => "\xf2",
597             0x00000033 => "\xf3",
598             0x00000034 => "\xf4",
599             0x00000035 => "\xf5",
600             0x00000036 => "\xf6",
601             0x00000037 => "\xf7",
602             0x00000038 => "\xf8",
603             0x00000039 => "\xf9",
604             0x0000003a => "\x7a",
605             0x0000003b => "\x5e",
606             0x0000003c => "\x4c",
607             0x0000003d => "\x7e",
608             0x0000003e => "\x6e",
609             0x0000003f => "\x6f",
610             0x00000040 => "\x7c",
611             0x00000041 => "\xc1",
612             0x00000042 => "\xc2",
613             0x00000043 => "\xc3",
614             0x00000044 => "\xc4",
615             0x00000045 => "\xc5",
616             0x00000046 => "\xc6",
617             0x00000047 => "\xc7",
618             0x00000048 => "\xc8",
619             0x00000049 => "\xc9",
620             0x0000004a => "\xd1",
621             0x0000004b => "\xd2",
622             0x0000004c => "\xd3",
623             0x0000004d => "\xd4",
624             0x0000004e => "\xd5",
625             0x0000004f => "\xd6",
626             0x00000050 => "\xd7",
627             0x00000051 => "\xd8",
628             0x00000052 => "\xd9",
629             0x00000053 => "\xe2",
630             0x00000054 => "\xe3",
631             0x00000055 => "\xe4",
632             0x00000056 => "\xe5",
633             0x00000057 => "\xe6",
634             0x00000058 => "\xe7",
635             0x00000059 => "\xe8",
636             0x0000005a => "\xe9",
637             0x0000005c => "\xe0",
638             0x0000005f => "\x6d",
639             0x00000060 => "\x79",
640             0x00000061 => "\x81",
641             0x00000062 => "\x82",
642             0x00000063 => "\x83",
643             0x00000064 => "\x84",
644             0x00000065 => "\x85",
645             0x00000066 => "\x86",
646             0x00000067 => "\x87",
647             0x00000068 => "\x88",
648             0x00000069 => "\x89",
649             0x0000006a => "\x91",
650             0x0000006b => "\x92",
651             0x0000006c => "\x93",
652             0x0000006d => "\x94",
653             0x0000006e => "\x95",
654             0x0000006f => "\x96",
655             0x00000070 => "\x97",
656             0x00000071 => "\x98",
657             0x00000072 => "\x99",
658             0x00000073 => "\xa2",
659             0x00000074 => "\xa3",
660             0x00000075 => "\xa4",
661             0x00000076 => "\xa5",
662             0x00000077 => "\xa6",
663             0x00000078 => "\xa7",
664             0x00000079 => "\xa8",
665             0x0000007a => "\xa9",
666             0x0000007b => "\xc0",
667             0x0000007c => "\x4f",
668             0x0000007d => "\xd0",
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             0x000000a2 => "\x4a",
703             0x000000a8 => "\xa1",
704             0x000000ac => "\x5f",
705             0x000000d1 => "\x7b",
706             0x000000f1 => "\x6a",
707             );
708              
709             sub _recode
710             {
711 482 100   482   959 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
712             $_[1] = join '',
713             map $from_ucs4{$_}
714             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"),
715 162   100     211 @{$_[1]};
  162         526  
716             } elsif ($_[0]->{_to} eq 'UTF-8',) {
717 160         447 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
718             } else {
719 160         472 $_[1] = [ map
720             $to_ucs4[$_],
721             unpack 'C*', $_[1]
722             ];
723             }
724              
725 482         1036 return 1;
726             }
727              
728             1;
729              
730             __END__