File Coverage

blib/lib/Locale/RecodeData/GEORGIAN_PS.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 GEORGIAN-PS.
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::GEORGIAN_PS;
22              
23 1     1   7 use strict;
  1         2  
  1         42  
24              
25             require Locale::RecodeData;
26 1     1   5 use base qw(Locale::RecodeData);
  1         2  
  1         456  
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             0x201a,
160             0x0192,
161             0x201e,
162             0x2026,
163             0x2020,
164             0x2021,
165             0x02c6,
166             0x2030,
167             0x0160,
168             0x2039,
169             0x0152,
170             0x008d,
171             0x008e,
172             0x008f,
173             0x0090,
174             0x2018,
175             0x2019,
176             0x201c,
177             0x201d,
178             0x2022,
179             0x2013,
180             0x2014,
181             0x02dc,
182             0x2122,
183             0x0161,
184             0x203a,
185             0x0153,
186             0x009d,
187             0x009e,
188             0x0178,
189             0x00a0,
190             0x00a1,
191             0x00a2,
192             0x00a3,
193             0x00a4,
194             0x00a5,
195             0x00a6,
196             0x00a7,
197             0x00a8,
198             0x00a9,
199             0x00aa,
200             0x00ab,
201             0x00ac,
202             0x00ad,
203             0x00ae,
204             0x00af,
205             0x00b0,
206             0x00b1,
207             0x00b2,
208             0x00b3,
209             0x00b4,
210             0x00b5,
211             0x00b6,
212             0x00b7,
213             0x00b8,
214             0x00b9,
215             0x00ba,
216             0x00bb,
217             0x00bc,
218             0x00bd,
219             0x00be,
220             0x00bf,
221             0x10d0,
222             0x10d1,
223             0x10d2,
224             0x10d3,
225             0x10d4,
226             0x10d5,
227             0x10d6,
228             0x10f1,
229             0x10d7,
230             0x10d8,
231             0x10d9,
232             0x10da,
233             0x10db,
234             0x10dc,
235             0x10f2,
236             0x10dd,
237             0x10de,
238             0x10df,
239             0x10e0,
240             0x10e1,
241             0x10e2,
242             0x10f3,
243             0x10e3,
244             0x10e4,
245             0x10e5,
246             0x10e6,
247             0x10e7,
248             0x10e8,
249             0x10e9,
250             0x10ea,
251             0x10eb,
252             0x10ec,
253             0x10ed,
254             0x10ee,
255             0x10f4,
256             0x10ef,
257             0x10f0,
258             0x10f5,
259             0x00e6,
260             0x00e7,
261             0x00e8,
262             0x00e9,
263             0x00ea,
264             0x00eb,
265             0x00ec,
266             0x00ed,
267             0x00ee,
268             0x00ef,
269             0x00f0,
270             0x00f1,
271             0x00f2,
272             0x00f3,
273             0x00f4,
274             0x00f5,
275             0x00f6,
276             0x00f7,
277             0x00f8,
278             0x00f9,
279             0x00fa,
280             0x00fb,
281             0x00fc,
282             0x00fd,
283             0x00fe,
284             0x00ff,
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             "\xe2\x80\x9a",
419             "\xc6\x92",
420             "\xe2\x80\x9e",
421             "\xe2\x80\xa6",
422             "\xe2\x80\xa0",
423             "\xe2\x80\xa1",
424             "\xcb\x86",
425             "\xe2\x80\xb0",
426             "\xc5\xa0",
427             "\xe2\x80\xb9",
428             "\xc5\x92",
429             "\xc2\x8d",
430             "\xc2\x8e",
431             "\xc2\x8f",
432             "\xc2\x90",
433             "\xe2\x80\x98",
434             "\xe2\x80\x99",
435             "\xe2\x80\x9c",
436             "\xe2\x80\x9d",
437             "\xe2\x80\xa2",
438             "\xe2\x80\x93",
439             "\xe2\x80\x94",
440             "\xcb\x9c",
441             "\xe2\x84\xa2",
442             "\xc5\xa1",
443             "\xe2\x80\xba",
444             "\xc5\x93",
445             "\xc2\x9d",
446             "\xc2\x9e",
447             "\xc5\xb8",
448             "\xc2\xa0",
449             "\xc2\xa1",
450             "\xc2\xa2",
451             "\xc2\xa3",
452             "\xc2\xa4",
453             "\xc2\xa5",
454             "\xc2\xa6",
455             "\xc2\xa7",
456             "\xc2\xa8",
457             "\xc2\xa9",
458             "\xc2\xaa",
459             "\xc2\xab",
460             "\xc2\xac",
461             "\xc2\xad",
462             "\xc2\xae",
463             "\xc2\xaf",
464             "\xc2\xb0",
465             "\xc2\xb1",
466             "\xc2\xb2",
467             "\xc2\xb3",
468             "\xc2\xb4",
469             "\xc2\xb5",
470             "\xc2\xb6",
471             "\xc2\xb7",
472             "\xc2\xb8",
473             "\xc2\xb9",
474             "\xc2\xba",
475             "\xc2\xbb",
476             "\xc2\xbc",
477             "\xc2\xbd",
478             "\xc2\xbe",
479             "\xc2\xbf",
480             "\xe1\x83\x90",
481             "\xe1\x83\x91",
482             "\xe1\x83\x92",
483             "\xe1\x83\x93",
484             "\xe1\x83\x94",
485             "\xe1\x83\x95",
486             "\xe1\x83\x96",
487             "\xe1\x83\xb1",
488             "\xe1\x83\x97",
489             "\xe1\x83\x98",
490             "\xe1\x83\x99",
491             "\xe1\x83\x9a",
492             "\xe1\x83\x9b",
493             "\xe1\x83\x9c",
494             "\xe1\x83\xb2",
495             "\xe1\x83\x9d",
496             "\xe1\x83\x9e",
497             "\xe1\x83\x9f",
498             "\xe1\x83\xa0",
499             "\xe1\x83\xa1",
500             "\xe1\x83\xa2",
501             "\xe1\x83\xb3",
502             "\xe1\x83\xa3",
503             "\xe1\x83\xa4",
504             "\xe1\x83\xa5",
505             "\xe1\x83\xa6",
506             "\xe1\x83\xa7",
507             "\xe1\x83\xa8",
508             "\xe1\x83\xa9",
509             "\xe1\x83\xaa",
510             "\xe1\x83\xab",
511             "\xe1\x83\xac",
512             "\xe1\x83\xad",
513             "\xe1\x83\xae",
514             "\xe1\x83\xb4",
515             "\xe1\x83\xaf",
516             "\xe1\x83\xb0",
517             "\xe1\x83\xb5",
518             "\xc3\xa6",
519             "\xc3\xa7",
520             "\xc3\xa8",
521             "\xc3\xa9",
522             "\xc3\xaa",
523             "\xc3\xab",
524             "\xc3\xac",
525             "\xc3\xad",
526             "\xc3\xae",
527             "\xc3\xaf",
528             "\xc3\xb0",
529             "\xc3\xb1",
530             "\xc3\xb2",
531             "\xc3\xb3",
532             "\xc3\xb4",
533             "\xc3\xb5",
534             "\xc3\xb6",
535             "\xc3\xb7",
536             "\xc3\xb8",
537             "\xc3\xb9",
538             "\xc3\xba",
539             "\xc3\xbb",
540             "\xc3\xbc",
541             "\xc3\xbd",
542             "\xc3\xbe",
543             "\xc3\xbf",
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             0x0000008d => "\x8d",
678             0x0000008e => "\x8e",
679             0x0000008f => "\x8f",
680             0x00000090 => "\x90",
681             0x0000009d => "\x9d",
682             0x0000009e => "\x9e",
683             0x000000a0 => "\xa0",
684             0x000000a1 => "\xa1",
685             0x000000a2 => "\xa2",
686             0x000000a3 => "\xa3",
687             0x000000a4 => "\xa4",
688             0x000000a5 => "\xa5",
689             0x000000a6 => "\xa6",
690             0x000000a7 => "\xa7",
691             0x000000a8 => "\xa8",
692             0x000000a9 => "\xa9",
693             0x000000aa => "\xaa",
694             0x000000ab => "\xab",
695             0x000000ac => "\xac",
696             0x000000ad => "\xad",
697             0x000000ae => "\xae",
698             0x000000af => "\xaf",
699             0x000000b0 => "\xb0",
700             0x000000b1 => "\xb1",
701             0x000000b2 => "\xb2",
702             0x000000b3 => "\xb3",
703             0x000000b4 => "\xb4",
704             0x000000b5 => "\xb5",
705             0x000000b6 => "\xb6",
706             0x000000b7 => "\xb7",
707             0x000000b8 => "\xb8",
708             0x000000b9 => "\xb9",
709             0x000000ba => "\xba",
710             0x000000bb => "\xbb",
711             0x000000bc => "\xbc",
712             0x000000bd => "\xbd",
713             0x000000be => "\xbe",
714             0x000000bf => "\xbf",
715             0x000000e6 => "\xe6",
716             0x000000e7 => "\xe7",
717             0x000000e8 => "\xe8",
718             0x000000e9 => "\xe9",
719             0x000000ea => "\xea",
720             0x000000eb => "\xeb",
721             0x000000ec => "\xec",
722             0x000000ed => "\xed",
723             0x000000ee => "\xee",
724             0x000000ef => "\xef",
725             0x000000f0 => "\xf0",
726             0x000000f1 => "\xf1",
727             0x000000f2 => "\xf2",
728             0x000000f3 => "\xf3",
729             0x000000f4 => "\xf4",
730             0x000000f5 => "\xf5",
731             0x000000f6 => "\xf6",
732             0x000000f7 => "\xf7",
733             0x000000f8 => "\xf8",
734             0x000000f9 => "\xf9",
735             0x000000fa => "\xfa",
736             0x000000fb => "\xfb",
737             0x000000fc => "\xfc",
738             0x000000fd => "\xfd",
739             0x000000fe => "\xfe",
740             0x000000ff => "\xff",
741             0x00000152 => "\x8c",
742             0x00000153 => "\x9c",
743             0x00000160 => "\x8a",
744             0x00000161 => "\x9a",
745             0x00000178 => "\x9f",
746             0x00000192 => "\x83",
747             0x000002c6 => "\x88",
748             0x000002dc => "\x98",
749             0x000010d0 => "\xc0",
750             0x000010d1 => "\xc1",
751             0x000010d2 => "\xc2",
752             0x000010d3 => "\xc3",
753             0x000010d4 => "\xc4",
754             0x000010d5 => "\xc5",
755             0x000010d6 => "\xc6",
756             0x000010d7 => "\xc8",
757             0x000010d8 => "\xc9",
758             0x000010d9 => "\xca",
759             0x000010da => "\xcb",
760             0x000010db => "\xcc",
761             0x000010dc => "\xcd",
762             0x000010dd => "\xcf",
763             0x000010de => "\xd0",
764             0x000010df => "\xd1",
765             0x000010e0 => "\xd2",
766             0x000010e1 => "\xd3",
767             0x000010e2 => "\xd4",
768             0x000010e3 => "\xd6",
769             0x000010e4 => "\xd7",
770             0x000010e5 => "\xd8",
771             0x000010e6 => "\xd9",
772             0x000010e7 => "\xda",
773             0x000010e8 => "\xdb",
774             0x000010e9 => "\xdc",
775             0x000010ea => "\xdd",
776             0x000010eb => "\xde",
777             0x000010ec => "\xdf",
778             0x000010ed => "\xe0",
779             0x000010ee => "\xe1",
780             0x000010ef => "\xe3",
781             0x000010f0 => "\xe4",
782             0x000010f1 => "\xc7",
783             0x000010f2 => "\xce",
784             0x000010f3 => "\xd5",
785             0x000010f4 => "\xe2",
786             0x000010f5 => "\xe5",
787             0x00002013 => "\x96",
788             0x00002014 => "\x97",
789             0x00002018 => "\x91",
790             0x00002019 => "\x92",
791             0x0000201a => "\x82",
792             0x0000201c => "\x93",
793             0x0000201d => "\x94",
794             0x0000201e => "\x84",
795             0x00002020 => "\x86",
796             0x00002021 => "\x87",
797             0x00002022 => "\x95",
798             0x00002026 => "\x85",
799             0x00002030 => "\x89",
800             0x00002039 => "\x8b",
801             0x0000203a => "\x9b",
802             0x00002122 => "\x99",
803             );
804              
805             sub _recode
806             {
807 770 100   770   1542 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
808             $_[1] = join '',
809             map $from_ucs4{$_}
810             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"),
811 258   100     328 @{$_[1]};
  258         819  
812             } elsif ($_[0]->{_to} eq 'UTF-8',) {
813 256         695 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
814             } else {
815 256         695 $_[1] = [ map
816             $to_ucs4[$_],
817             unpack 'C*', $_[1]
818             ];
819             }
820              
821 770         1469 return 1;
822             }
823              
824             1;
825              
826             __END__