File Coverage

blib/lib/Locale/RecodeData/MACTHAI.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 MACTHAI.
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::MACTHAI;
22              
23 1     1   7 use strict;
  1         2  
  1         43  
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             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             0x00ab,
158             0x00bb,
159             0x2026,
160             0xf88c,
161             0xf88f,
162             0xf892,
163             0xf895,
164             0xf898,
165             0xf88b,
166             0xf88e,
167             0xf891,
168             0xf894,
169             0xf897,
170             0x201c,
171             0x201d,
172             0xf899,
173             0xfffd,
174             0x2022,
175             0xf884,
176             0xf889,
177             0xf885,
178             0xf886,
179             0xf887,
180             0xf888,
181             0xf88a,
182             0xf88d,
183             0xf890,
184             0xf893,
185             0xf896,
186             0x2018,
187             0x2019,
188             0xfffd,
189             0x00a0,
190             0x0e01,
191             0x0e02,
192             0x0e03,
193             0x0e04,
194             0x0e05,
195             0x0e06,
196             0x0e07,
197             0x0e08,
198             0x0e09,
199             0x0e0a,
200             0x0e0b,
201             0x0e0c,
202             0x0e0d,
203             0x0e0e,
204             0x0e0f,
205             0x0e10,
206             0x0e11,
207             0x0e12,
208             0x0e13,
209             0x0e14,
210             0x0e15,
211             0x0e16,
212             0x0e17,
213             0x0e18,
214             0x0e19,
215             0x0e1a,
216             0x0e1b,
217             0x0e1c,
218             0x0e1d,
219             0x0e1e,
220             0x0e1f,
221             0x0e20,
222             0x0e21,
223             0x0e22,
224             0x0e23,
225             0x0e24,
226             0x0e25,
227             0x0e26,
228             0x0e27,
229             0x0e28,
230             0x0e29,
231             0x0e2a,
232             0x0e2b,
233             0x0e2c,
234             0x0e2d,
235             0x0e2e,
236             0x0e2f,
237             0x0e30,
238             0x0e31,
239             0x0e32,
240             0x0e33,
241             0x0e34,
242             0x0e35,
243             0x0e36,
244             0x0e37,
245             0x0e38,
246             0x0e39,
247             0x0e3a,
248             0xfeff,
249             0x200b,
250             0x2013,
251             0x2014,
252             0x0e3f,
253             0x0e40,
254             0x0e41,
255             0x0e42,
256             0x0e43,
257             0x0e44,
258             0x0e45,
259             0x0e46,
260             0x0e47,
261             0x0e48,
262             0x0e49,
263             0x0e4a,
264             0x0e4b,
265             0x0e4c,
266             0x0e4d,
267             0x2122,
268             0x0e4f,
269             0x0e50,
270             0x0e51,
271             0x0e52,
272             0x0e53,
273             0x0e54,
274             0x0e55,
275             0x0e56,
276             0x0e57,
277             0x0e58,
278             0x0e59,
279             0x00ae,
280             0x00a9,
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\xab",
417             "\xc2\xbb",
418             "\xe2\x80\xa6",
419             "\xef\xa2\x8c",
420             "\xef\xa2\x8f",
421             "\xef\xa2\x92",
422             "\xef\xa2\x95",
423             "\xef\xa2\x98",
424             "\xef\xa2\x8b",
425             "\xef\xa2\x8e",
426             "\xef\xa2\x91",
427             "\xef\xa2\x94",
428             "\xef\xa2\x97",
429             "\xe2\x80\x9c",
430             "\xe2\x80\x9d",
431             "\xef\xa2\x99",
432             "\xef\xbf\xbd",
433             "\xe2\x80\xa2",
434             "\xef\xa2\x84",
435             "\xef\xa2\x89",
436             "\xef\xa2\x85",
437             "\xef\xa2\x86",
438             "\xef\xa2\x87",
439             "\xef\xa2\x88",
440             "\xef\xa2\x8a",
441             "\xef\xa2\x8d",
442             "\xef\xa2\x90",
443             "\xef\xa2\x93",
444             "\xef\xa2\x96",
445             "\xe2\x80\x98",
446             "\xe2\x80\x99",
447             "\xef\xbf\xbd",
448             "\xc2\xa0",
449             "\xe0\xb8\x81",
450             "\xe0\xb8\x82",
451             "\xe0\xb8\x83",
452             "\xe0\xb8\x84",
453             "\xe0\xb8\x85",
454             "\xe0\xb8\x86",
455             "\xe0\xb8\x87",
456             "\xe0\xb8\x88",
457             "\xe0\xb8\x89",
458             "\xe0\xb8\x8a",
459             "\xe0\xb8\x8b",
460             "\xe0\xb8\x8c",
461             "\xe0\xb8\x8d",
462             "\xe0\xb8\x8e",
463             "\xe0\xb8\x8f",
464             "\xe0\xb8\x90",
465             "\xe0\xb8\x91",
466             "\xe0\xb8\x92",
467             "\xe0\xb8\x93",
468             "\xe0\xb8\x94",
469             "\xe0\xb8\x95",
470             "\xe0\xb8\x96",
471             "\xe0\xb8\x97",
472             "\xe0\xb8\x98",
473             "\xe0\xb8\x99",
474             "\xe0\xb8\x9a",
475             "\xe0\xb8\x9b",
476             "\xe0\xb8\x9c",
477             "\xe0\xb8\x9d",
478             "\xe0\xb8\x9e",
479             "\xe0\xb8\x9f",
480             "\xe0\xb8\xa0",
481             "\xe0\xb8\xa1",
482             "\xe0\xb8\xa2",
483             "\xe0\xb8\xa3",
484             "\xe0\xb8\xa4",
485             "\xe0\xb8\xa5",
486             "\xe0\xb8\xa6",
487             "\xe0\xb8\xa7",
488             "\xe0\xb8\xa8",
489             "\xe0\xb8\xa9",
490             "\xe0\xb8\xaa",
491             "\xe0\xb8\xab",
492             "\xe0\xb8\xac",
493             "\xe0\xb8\xad",
494             "\xe0\xb8\xae",
495             "\xe0\xb8\xaf",
496             "\xe0\xb8\xb0",
497             "\xe0\xb8\xb1",
498             "\xe0\xb8\xb2",
499             "\xe0\xb8\xb3",
500             "\xe0\xb8\xb4",
501             "\xe0\xb8\xb5",
502             "\xe0\xb8\xb6",
503             "\xe0\xb8\xb7",
504             "\xe0\xb8\xb8",
505             "\xe0\xb8\xb9",
506             "\xe0\xb8\xba",
507             "\xef\xbb\xbf",
508             "\xe2\x80\x8b",
509             "\xe2\x80\x93",
510             "\xe2\x80\x94",
511             "\xe0\xb8\xbf",
512             "\xe0\xb9\x80",
513             "\xe0\xb9\x81",
514             "\xe0\xb9\x82",
515             "\xe0\xb9\x83",
516             "\xe0\xb9\x84",
517             "\xe0\xb9\x85",
518             "\xe0\xb9\x86",
519             "\xe0\xb9\x87",
520             "\xe0\xb9\x88",
521             "\xe0\xb9\x89",
522             "\xe0\xb9\x8a",
523             "\xe0\xb9\x8b",
524             "\xe0\xb9\x8c",
525             "\xe0\xb9\x8d",
526             "\xe2\x84\xa2",
527             "\xe0\xb9\x8f",
528             "\xe0\xb9\x90",
529             "\xe0\xb9\x91",
530             "\xe0\xb9\x92",
531             "\xe0\xb9\x93",
532             "\xe0\xb9\x94",
533             "\xe0\xb9\x95",
534             "\xe0\xb9\x96",
535             "\xe0\xb9\x97",
536             "\xe0\xb9\x98",
537             "\xe0\xb9\x99",
538             "\xc2\xae",
539             "\xc2\xa9",
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             0x000000a0 => "\xa0",
676             0x000000a9 => "\xfb",
677             0x000000ab => "\x80",
678             0x000000ae => "\xfa",
679             0x000000bb => "\x81",
680             0x00000e01 => "\xa1",
681             0x00000e02 => "\xa2",
682             0x00000e03 => "\xa3",
683             0x00000e04 => "\xa4",
684             0x00000e05 => "\xa5",
685             0x00000e06 => "\xa6",
686             0x00000e07 => "\xa7",
687             0x00000e08 => "\xa8",
688             0x00000e09 => "\xa9",
689             0x00000e0a => "\xaa",
690             0x00000e0b => "\xab",
691             0x00000e0c => "\xac",
692             0x00000e0d => "\xad",
693             0x00000e0e => "\xae",
694             0x00000e0f => "\xaf",
695             0x00000e10 => "\xb0",
696             0x00000e11 => "\xb1",
697             0x00000e12 => "\xb2",
698             0x00000e13 => "\xb3",
699             0x00000e14 => "\xb4",
700             0x00000e15 => "\xb5",
701             0x00000e16 => "\xb6",
702             0x00000e17 => "\xb7",
703             0x00000e18 => "\xb8",
704             0x00000e19 => "\xb9",
705             0x00000e1a => "\xba",
706             0x00000e1b => "\xbb",
707             0x00000e1c => "\xbc",
708             0x00000e1d => "\xbd",
709             0x00000e1e => "\xbe",
710             0x00000e1f => "\xbf",
711             0x00000e20 => "\xc0",
712             0x00000e21 => "\xc1",
713             0x00000e22 => "\xc2",
714             0x00000e23 => "\xc3",
715             0x00000e24 => "\xc4",
716             0x00000e25 => "\xc5",
717             0x00000e26 => "\xc6",
718             0x00000e27 => "\xc7",
719             0x00000e28 => "\xc8",
720             0x00000e29 => "\xc9",
721             0x00000e2a => "\xca",
722             0x00000e2b => "\xcb",
723             0x00000e2c => "\xcc",
724             0x00000e2d => "\xcd",
725             0x00000e2e => "\xce",
726             0x00000e2f => "\xcf",
727             0x00000e30 => "\xd0",
728             0x00000e31 => "\xd1",
729             0x00000e32 => "\xd2",
730             0x00000e33 => "\xd3",
731             0x00000e34 => "\xd4",
732             0x00000e35 => "\xd5",
733             0x00000e36 => "\xd6",
734             0x00000e37 => "\xd7",
735             0x00000e38 => "\xd8",
736             0x00000e39 => "\xd9",
737             0x00000e3a => "\xda",
738             0x00000e3f => "\xdf",
739             0x00000e40 => "\xe0",
740             0x00000e41 => "\xe1",
741             0x00000e42 => "\xe2",
742             0x00000e43 => "\xe3",
743             0x00000e44 => "\xe4",
744             0x00000e45 => "\xe5",
745             0x00000e46 => "\xe6",
746             0x00000e47 => "\xe7",
747             0x00000e48 => "\xe8",
748             0x00000e49 => "\xe9",
749             0x00000e4a => "\xea",
750             0x00000e4b => "\xeb",
751             0x00000e4c => "\xec",
752             0x00000e4d => "\xed",
753             0x00000e4f => "\xef",
754             0x00000e50 => "\xf0",
755             0x00000e51 => "\xf1",
756             0x00000e52 => "\xf2",
757             0x00000e53 => "\xf3",
758             0x00000e54 => "\xf4",
759             0x00000e55 => "\xf5",
760             0x00000e56 => "\xf6",
761             0x00000e57 => "\xf7",
762             0x00000e58 => "\xf8",
763             0x00000e59 => "\xf9",
764             0x0000200b => "\xdc",
765             0x00002013 => "\xdd",
766             0x00002014 => "\xde",
767             0x00002018 => "\x9d",
768             0x00002019 => "\x9e",
769             0x0000201c => "\x8d",
770             0x0000201d => "\x8e",
771             0x00002022 => "\x91",
772             0x00002026 => "\x82",
773             0x00002122 => "\xee",
774             0x0000f884 => "\x92",
775             0x0000f885 => "\x94",
776             0x0000f886 => "\x95",
777             0x0000f887 => "\x96",
778             0x0000f888 => "\x97",
779             0x0000f889 => "\x93",
780             0x0000f88a => "\x98",
781             0x0000f88b => "\x88",
782             0x0000f88c => "\x83",
783             0x0000f88d => "\x99",
784             0x0000f88e => "\x89",
785             0x0000f88f => "\x84",
786             0x0000f890 => "\x9a",
787             0x0000f891 => "\x8a",
788             0x0000f892 => "\x85",
789             0x0000f893 => "\x9b",
790             0x0000f894 => "\x8b",
791             0x0000f895 => "\x86",
792             0x0000f896 => "\x9c",
793             0x0000f897 => "\x8c",
794             0x0000f898 => "\x87",
795             0x0000f899 => "\x8f",
796             0x0000feff => "\xdb",
797             );
798              
799             sub _recode
800             {
801 760 100   760   1495 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
802             $_[1] = join '',
803             map $from_ucs4{$_}
804             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"),
805 252   100     316 @{$_[1]};
  252         821  
806             } elsif ($_[0]->{_to} eq 'UTF-8',) {
807 254         705 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
808             } else {
809 254         662 $_[1] = [ map
810             $to_ucs4[$_],
811             unpack 'C*', $_[1]
812             ];
813             }
814              
815 760         1464 return 1;
816             }
817              
818             1;
819              
820             __END__