File Coverage

blib/lib/Locale/RecodeData/KOI8_U.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 KOI8-U.
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::KOI8_U;
22              
23 1     1   7 use strict;
  1         1  
  1         40  
24              
25             require Locale::RecodeData;
26 1     1   5 use base qw(Locale::RecodeData);
  1         2  
  1         466  
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             0x2500,
158             0x2502,
159             0x250c,
160             0x2510,
161             0x2514,
162             0x2518,
163             0x251c,
164             0x2524,
165             0x252c,
166             0x2534,
167             0x253c,
168             0x2580,
169             0x2584,
170             0x2588,
171             0x258c,
172             0x2590,
173             0x2591,
174             0x2592,
175             0x2593,
176             0x2320,
177             0x25a0,
178             0x2219,
179             0x221a,
180             0x2248,
181             0x2264,
182             0x2265,
183             0x00a0,
184             0x2321,
185             0x00b0,
186             0x00b2,
187             0x00b7,
188             0x00f7,
189             0x2550,
190             0x2551,
191             0x2552,
192             0x0451,
193             0x0454,
194             0x2554,
195             0x0456,
196             0x0457,
197             0x2557,
198             0x2558,
199             0x2559,
200             0x255a,
201             0x255b,
202             0x0491,
203             0x255d,
204             0x255e,
205             0x255f,
206             0x2560,
207             0x2561,
208             0x0401,
209             0x0404,
210             0x2563,
211             0x0406,
212             0x0407,
213             0x2566,
214             0x2567,
215             0x2568,
216             0x2569,
217             0x256a,
218             0x0490,
219             0x256c,
220             0x00a9,
221             0x044e,
222             0x0430,
223             0x0431,
224             0x0446,
225             0x0434,
226             0x0435,
227             0x0444,
228             0x0433,
229             0x0445,
230             0x0438,
231             0x0439,
232             0x043a,
233             0x043b,
234             0x043c,
235             0x043d,
236             0x043e,
237             0x043f,
238             0x044f,
239             0x0440,
240             0x0441,
241             0x0442,
242             0x0443,
243             0x0436,
244             0x0432,
245             0x044c,
246             0x044b,
247             0x0437,
248             0x0448,
249             0x044d,
250             0x0449,
251             0x0447,
252             0x044a,
253             0x042e,
254             0x0410,
255             0x0411,
256             0x0426,
257             0x0414,
258             0x0415,
259             0x0424,
260             0x0413,
261             0x0425,
262             0x0418,
263             0x0419,
264             0x041a,
265             0x041b,
266             0x041c,
267             0x041d,
268             0x041e,
269             0x041f,
270             0x042f,
271             0x0420,
272             0x0421,
273             0x0422,
274             0x0423,
275             0x0416,
276             0x0412,
277             0x042c,
278             0x042b,
279             0x0417,
280             0x0428,
281             0x042d,
282             0x0429,
283             0x0427,
284             0x042a,
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             "\xe2\x94\x80",
417             "\xe2\x94\x82",
418             "\xe2\x94\x8c",
419             "\xe2\x94\x90",
420             "\xe2\x94\x94",
421             "\xe2\x94\x98",
422             "\xe2\x94\x9c",
423             "\xe2\x94\xa4",
424             "\xe2\x94\xac",
425             "\xe2\x94\xb4",
426             "\xe2\x94\xbc",
427             "\xe2\x96\x80",
428             "\xe2\x96\x84",
429             "\xe2\x96\x88",
430             "\xe2\x96\x8c",
431             "\xe2\x96\x90",
432             "\xe2\x96\x91",
433             "\xe2\x96\x92",
434             "\xe2\x96\x93",
435             "\xe2\x8c\xa0",
436             "\xe2\x96\xa0",
437             "\xe2\x88\x99",
438             "\xe2\x88\x9a",
439             "\xe2\x89\x88",
440             "\xe2\x89\xa4",
441             "\xe2\x89\xa5",
442             "\xc2\xa0",
443             "\xe2\x8c\xa1",
444             "\xc2\xb0",
445             "\xc2\xb2",
446             "\xc2\xb7",
447             "\xc3\xb7",
448             "\xe2\x95\x90",
449             "\xe2\x95\x91",
450             "\xe2\x95\x92",
451             "\xd1\x91",
452             "\xd1\x94",
453             "\xe2\x95\x94",
454             "\xd1\x96",
455             "\xd1\x97",
456             "\xe2\x95\x97",
457             "\xe2\x95\x98",
458             "\xe2\x95\x99",
459             "\xe2\x95\x9a",
460             "\xe2\x95\x9b",
461             "\xd2\x91",
462             "\xe2\x95\x9d",
463             "\xe2\x95\x9e",
464             "\xe2\x95\x9f",
465             "\xe2\x95\xa0",
466             "\xe2\x95\xa1",
467             "\xd0\x81",
468             "\xd0\x84",
469             "\xe2\x95\xa3",
470             "\xd0\x86",
471             "\xd0\x87",
472             "\xe2\x95\xa6",
473             "\xe2\x95\xa7",
474             "\xe2\x95\xa8",
475             "\xe2\x95\xa9",
476             "\xe2\x95\xaa",
477             "\xd2\x90",
478             "\xe2\x95\xac",
479             "\xc2\xa9",
480             "\xd1\x8e",
481             "\xd0\xb0",
482             "\xd0\xb1",
483             "\xd1\x86",
484             "\xd0\xb4",
485             "\xd0\xb5",
486             "\xd1\x84",
487             "\xd0\xb3",
488             "\xd1\x85",
489             "\xd0\xb8",
490             "\xd0\xb9",
491             "\xd0\xba",
492             "\xd0\xbb",
493             "\xd0\xbc",
494             "\xd0\xbd",
495             "\xd0\xbe",
496             "\xd0\xbf",
497             "\xd1\x8f",
498             "\xd1\x80",
499             "\xd1\x81",
500             "\xd1\x82",
501             "\xd1\x83",
502             "\xd0\xb6",
503             "\xd0\xb2",
504             "\xd1\x8c",
505             "\xd1\x8b",
506             "\xd0\xb7",
507             "\xd1\x88",
508             "\xd1\x8d",
509             "\xd1\x89",
510             "\xd1\x87",
511             "\xd1\x8a",
512             "\xd0\xae",
513             "\xd0\x90",
514             "\xd0\x91",
515             "\xd0\xa6",
516             "\xd0\x94",
517             "\xd0\x95",
518             "\xd0\xa4",
519             "\xd0\x93",
520             "\xd0\xa5",
521             "\xd0\x98",
522             "\xd0\x99",
523             "\xd0\x9a",
524             "\xd0\x9b",
525             "\xd0\x9c",
526             "\xd0\x9d",
527             "\xd0\x9e",
528             "\xd0\x9f",
529             "\xd0\xaf",
530             "\xd0\xa0",
531             "\xd0\xa1",
532             "\xd0\xa2",
533             "\xd0\xa3",
534             "\xd0\x96",
535             "\xd0\x92",
536             "\xd0\xac",
537             "\xd0\xab",
538             "\xd0\x97",
539             "\xd0\xa8",
540             "\xd0\xad",
541             "\xd0\xa9",
542             "\xd0\xa7",
543             "\xd0\xaa",
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 => "\x9a",
676             0x000000a9 => "\xbf",
677             0x000000b0 => "\x9c",
678             0x000000b2 => "\x9d",
679             0x000000b7 => "\x9e",
680             0x000000f7 => "\x9f",
681             0x00000401 => "\xb3",
682             0x00000404 => "\xb4",
683             0x00000406 => "\xb6",
684             0x00000407 => "\xb7",
685             0x00000410 => "\xe1",
686             0x00000411 => "\xe2",
687             0x00000412 => "\xf7",
688             0x00000413 => "\xe7",
689             0x00000414 => "\xe4",
690             0x00000415 => "\xe5",
691             0x00000416 => "\xf6",
692             0x00000417 => "\xfa",
693             0x00000418 => "\xe9",
694             0x00000419 => "\xea",
695             0x0000041a => "\xeb",
696             0x0000041b => "\xec",
697             0x0000041c => "\xed",
698             0x0000041d => "\xee",
699             0x0000041e => "\xef",
700             0x0000041f => "\xf0",
701             0x00000420 => "\xf2",
702             0x00000421 => "\xf3",
703             0x00000422 => "\xf4",
704             0x00000423 => "\xf5",
705             0x00000424 => "\xe6",
706             0x00000425 => "\xe8",
707             0x00000426 => "\xe3",
708             0x00000427 => "\xfe",
709             0x00000428 => "\xfb",
710             0x00000429 => "\xfd",
711             0x0000042a => "\xff",
712             0x0000042b => "\xf9",
713             0x0000042c => "\xf8",
714             0x0000042d => "\xfc",
715             0x0000042e => "\xe0",
716             0x0000042f => "\xf1",
717             0x00000430 => "\xc1",
718             0x00000431 => "\xc2",
719             0x00000432 => "\xd7",
720             0x00000433 => "\xc7",
721             0x00000434 => "\xc4",
722             0x00000435 => "\xc5",
723             0x00000436 => "\xd6",
724             0x00000437 => "\xda",
725             0x00000438 => "\xc9",
726             0x00000439 => "\xca",
727             0x0000043a => "\xcb",
728             0x0000043b => "\xcc",
729             0x0000043c => "\xcd",
730             0x0000043d => "\xce",
731             0x0000043e => "\xcf",
732             0x0000043f => "\xd0",
733             0x00000440 => "\xd2",
734             0x00000441 => "\xd3",
735             0x00000442 => "\xd4",
736             0x00000443 => "\xd5",
737             0x00000444 => "\xc6",
738             0x00000445 => "\xc8",
739             0x00000446 => "\xc3",
740             0x00000447 => "\xde",
741             0x00000448 => "\xdb",
742             0x00000449 => "\xdd",
743             0x0000044a => "\xdf",
744             0x0000044b => "\xd9",
745             0x0000044c => "\xd8",
746             0x0000044d => "\xdc",
747             0x0000044e => "\xc0",
748             0x0000044f => "\xd1",
749             0x00000451 => "\xa3",
750             0x00000454 => "\xa4",
751             0x00000456 => "\xa6",
752             0x00000457 => "\xa7",
753             0x00000490 => "\xbd",
754             0x00000491 => "\xad",
755             0x00002219 => "\x95",
756             0x0000221a => "\x96",
757             0x00002248 => "\x97",
758             0x00002264 => "\x98",
759             0x00002265 => "\x99",
760             0x00002320 => "\x93",
761             0x00002321 => "\x9b",
762             0x00002500 => "\x80",
763             0x00002502 => "\x81",
764             0x0000250c => "\x82",
765             0x00002510 => "\x83",
766             0x00002514 => "\x84",
767             0x00002518 => "\x85",
768             0x0000251c => "\x86",
769             0x00002524 => "\x87",
770             0x0000252c => "\x88",
771             0x00002534 => "\x89",
772             0x0000253c => "\x8a",
773             0x00002550 => "\xa0",
774             0x00002551 => "\xa1",
775             0x00002552 => "\xa2",
776             0x00002554 => "\xa5",
777             0x00002557 => "\xa8",
778             0x00002558 => "\xa9",
779             0x00002559 => "\xaa",
780             0x0000255a => "\xab",
781             0x0000255b => "\xac",
782             0x0000255d => "\xae",
783             0x0000255e => "\xaf",
784             0x0000255f => "\xb0",
785             0x00002560 => "\xb1",
786             0x00002561 => "\xb2",
787             0x00002563 => "\xb5",
788             0x00002566 => "\xb8",
789             0x00002567 => "\xb9",
790             0x00002568 => "\xba",
791             0x00002569 => "\xbb",
792             0x0000256a => "\xbc",
793             0x0000256c => "\xbe",
794             0x00002580 => "\x8b",
795             0x00002584 => "\x8c",
796             0x00002588 => "\x8d",
797             0x0000258c => "\x8e",
798             0x00002590 => "\x8f",
799             0x00002591 => "\x90",
800             0x00002592 => "\x91",
801             0x00002593 => "\x92",
802             0x000025a0 => "\x94",
803             );
804              
805             sub _recode
806             {
807 770 100   770   1482 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
808             $_[1] = join '',
809             map $from_ucs4{$_}
810             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"),
811 258   100     333 @{$_[1]};
  258         814  
812             } elsif ($_[0]->{_to} eq 'UTF-8',) {
813 256         706 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
814             } else {
815 256         689 $_[1] = [ map
816             $to_ucs4[$_],
817             unpack 'C*', $_[1]
818             ];
819             }
820              
821 770         1489 return 1;
822             }
823              
824             1;
825              
826             __END__