File Coverage

blib/lib/Locale/RecodeData/VISCII.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 VISCII.
5             # Copyright (C) 2002-2026 Guido Flohr <guido.flohr@cantanea.com>,
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 <http://www.gnu.org/licenses/>.
20              
21             package Locale::RecodeData::VISCII;
22              
23 1     1   8 use strict;
  1         37  
  1         67  
24              
25             require Locale::RecodeData;
26 1     1   7 use base qw(Locale::RecodeData);
  1         2  
  1         705  
27              
28             my @to_ucs4 = (
29             0x0000,
30             0x0001,
31             0x1eb2,
32             0x0003,
33             0x0004,
34             0x1eb4,
35             0x1eaa,
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             0x1ef6,
50             0x0015,
51             0x0016,
52             0x0017,
53             0x0018,
54             0x1ef8,
55             0x001a,
56             0x001b,
57             0x001c,
58             0x001d,
59             0x1ef4,
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             0x1ea0,
158             0x1eae,
159             0x1eb0,
160             0x1eb6,
161             0x1ea4,
162             0x1ea6,
163             0x1ea8,
164             0x1eac,
165             0x1ebc,
166             0x1eb8,
167             0x1ebe,
168             0x1ec0,
169             0x1ec2,
170             0x1ec4,
171             0x1ec6,
172             0x1ed0,
173             0x1ed2,
174             0x1ed4,
175             0x1ed6,
176             0x1ed8,
177             0x1ee2,
178             0x1eda,
179             0x1edc,
180             0x1ede,
181             0x1eca,
182             0x1ece,
183             0x1ecc,
184             0x1ec8,
185             0x1ee6,
186             0x0168,
187             0x1ee4,
188             0x1ef2,
189             0x00d5,
190             0x1eaf,
191             0x1eb1,
192             0x1eb7,
193             0x1ea5,
194             0x1ea7,
195             0x1ea9,
196             0x1ead,
197             0x1ebd,
198             0x1eb9,
199             0x1ebf,
200             0x1ec1,
201             0x1ec3,
202             0x1ec5,
203             0x1ec7,
204             0x1ed1,
205             0x1ed3,
206             0x1ed5,
207             0x1ed7,
208             0x1ee0,
209             0x01a0,
210             0x1ed9,
211             0x1edd,
212             0x1edf,
213             0x1ecb,
214             0x1ef0,
215             0x1ee8,
216             0x1eea,
217             0x1eec,
218             0x01a1,
219             0x1edb,
220             0x01af,
221             0x00c0,
222             0x00c1,
223             0x00c2,
224             0x00c3,
225             0x1ea2,
226             0x0102,
227             0x1eb3,
228             0x1eb5,
229             0x00c8,
230             0x00c9,
231             0x00ca,
232             0x1eba,
233             0x00cc,
234             0x00cd,
235             0x0128,
236             0x1ef3,
237             0x0110,
238             0x1ee9,
239             0x00d2,
240             0x00d3,
241             0x00d4,
242             0x1ea1,
243             0x1ef7,
244             0x1eeb,
245             0x1eed,
246             0x00d9,
247             0x00da,
248             0x1ef9,
249             0x1ef5,
250             0x00dd,
251             0x1ee1,
252             0x01b0,
253             0x00e0,
254             0x00e1,
255             0x00e2,
256             0x00e3,
257             0x1ea3,
258             0x0103,
259             0x1eef,
260             0x1eab,
261             0x00e8,
262             0x00e9,
263             0x00ea,
264             0x1ebb,
265             0x00ec,
266             0x00ed,
267             0x0129,
268             0x1ec9,
269             0x0111,
270             0x1ef1,
271             0x00f2,
272             0x00f3,
273             0x00f4,
274             0x00f5,
275             0x1ecf,
276             0x1ecd,
277             0x1ee5,
278             0x00f9,
279             0x00fa,
280             0x0169,
281             0x1ee7,
282             0x00fd,
283             0x1ee3,
284             0x1eee,
285             );
286              
287             my @to_utf8 = (
288             "\x00",
289             "\x01",
290             "\xe1\xba\xb2",
291             "\x03",
292             "\x04",
293             "\xe1\xba\xb4",
294             "\xe1\xba\xaa",
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             "\xe1\xbb\xb6",
309             "\x15",
310             "\x16",
311             "\x17",
312             "\x18",
313             "\xe1\xbb\xb8",
314             "\x1a",
315             "\x1b",
316             "\x1c",
317             "\x1d",
318             "\xe1\xbb\xb4",
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             "\xe1\xba\xa0",
417             "\xe1\xba\xae",
418             "\xe1\xba\xb0",
419             "\xe1\xba\xb6",
420             "\xe1\xba\xa4",
421             "\xe1\xba\xa6",
422             "\xe1\xba\xa8",
423             "\xe1\xba\xac",
424             "\xe1\xba\xbc",
425             "\xe1\xba\xb8",
426             "\xe1\xba\xbe",
427             "\xe1\xbb\x80",
428             "\xe1\xbb\x82",
429             "\xe1\xbb\x84",
430             "\xe1\xbb\x86",
431             "\xe1\xbb\x90",
432             "\xe1\xbb\x92",
433             "\xe1\xbb\x94",
434             "\xe1\xbb\x96",
435             "\xe1\xbb\x98",
436             "\xe1\xbb\xa2",
437             "\xe1\xbb\x9a",
438             "\xe1\xbb\x9c",
439             "\xe1\xbb\x9e",
440             "\xe1\xbb\x8a",
441             "\xe1\xbb\x8e",
442             "\xe1\xbb\x8c",
443             "\xe1\xbb\x88",
444             "\xe1\xbb\xa6",
445             "\xc5\xa8",
446             "\xe1\xbb\xa4",
447             "\xe1\xbb\xb2",
448             "\xc3\x95",
449             "\xe1\xba\xaf",
450             "\xe1\xba\xb1",
451             "\xe1\xba\xb7",
452             "\xe1\xba\xa5",
453             "\xe1\xba\xa7",
454             "\xe1\xba\xa9",
455             "\xe1\xba\xad",
456             "\xe1\xba\xbd",
457             "\xe1\xba\xb9",
458             "\xe1\xba\xbf",
459             "\xe1\xbb\x81",
460             "\xe1\xbb\x83",
461             "\xe1\xbb\x85",
462             "\xe1\xbb\x87",
463             "\xe1\xbb\x91",
464             "\xe1\xbb\x93",
465             "\xe1\xbb\x95",
466             "\xe1\xbb\x97",
467             "\xe1\xbb\xa0",
468             "\xc6\xa0",
469             "\xe1\xbb\x99",
470             "\xe1\xbb\x9d",
471             "\xe1\xbb\x9f",
472             "\xe1\xbb\x8b",
473             "\xe1\xbb\xb0",
474             "\xe1\xbb\xa8",
475             "\xe1\xbb\xaa",
476             "\xe1\xbb\xac",
477             "\xc6\xa1",
478             "\xe1\xbb\x9b",
479             "\xc6\xaf",
480             "\xc3\x80",
481             "\xc3\x81",
482             "\xc3\x82",
483             "\xc3\x83",
484             "\xe1\xba\xa2",
485             "\xc4\x82",
486             "\xe1\xba\xb3",
487             "\xe1\xba\xb5",
488             "\xc3\x88",
489             "\xc3\x89",
490             "\xc3\x8a",
491             "\xe1\xba\xba",
492             "\xc3\x8c",
493             "\xc3\x8d",
494             "\xc4\xa8",
495             "\xe1\xbb\xb3",
496             "\xc4\x90",
497             "\xe1\xbb\xa9",
498             "\xc3\x92",
499             "\xc3\x93",
500             "\xc3\x94",
501             "\xe1\xba\xa1",
502             "\xe1\xbb\xb7",
503             "\xe1\xbb\xab",
504             "\xe1\xbb\xad",
505             "\xc3\x99",
506             "\xc3\x9a",
507             "\xe1\xbb\xb9",
508             "\xe1\xbb\xb5",
509             "\xc3\x9d",
510             "\xe1\xbb\xa1",
511             "\xc6\xb0",
512             "\xc3\xa0",
513             "\xc3\xa1",
514             "\xc3\xa2",
515             "\xc3\xa3",
516             "\xe1\xba\xa3",
517             "\xc4\x83",
518             "\xe1\xbb\xaf",
519             "\xe1\xba\xab",
520             "\xc3\xa8",
521             "\xc3\xa9",
522             "\xc3\xaa",
523             "\xe1\xba\xbb",
524             "\xc3\xac",
525             "\xc3\xad",
526             "\xc4\xa9",
527             "\xe1\xbb\x89",
528             "\xc4\x91",
529             "\xe1\xbb\xb1",
530             "\xc3\xb2",
531             "\xc3\xb3",
532             "\xc3\xb4",
533             "\xc3\xb5",
534             "\xe1\xbb\x8f",
535             "\xe1\xbb\x8d",
536             "\xe1\xbb\xa5",
537             "\xc3\xb9",
538             "\xc3\xba",
539             "\xc5\xa9",
540             "\xe1\xbb\xa7",
541             "\xc3\xbd",
542             "\xe1\xbb\xa3",
543             "\xe1\xbb\xae",
544             );
545              
546             my %from_ucs4 = (
547             0x00000000 => "\x00",
548             0x00000001 => "\x01",
549             0x00000003 => "\x03",
550             0x00000004 => "\x04",
551             0x00000007 => "\x07",
552             0x00000008 => "\x08",
553             0x00000009 => "\x09",
554             0x0000000a => "\x0a",
555             0x0000000b => "\x0b",
556             0x0000000c => "\x0c",
557             0x0000000d => "\x0d",
558             0x0000000e => "\x0e",
559             0x0000000f => "\x0f",
560             0x00000010 => "\x10",
561             0x00000011 => "\x11",
562             0x00000012 => "\x12",
563             0x00000013 => "\x13",
564             0x00000015 => "\x15",
565             0x00000016 => "\x16",
566             0x00000017 => "\x17",
567             0x00000018 => "\x18",
568             0x0000001a => "\x1a",
569             0x0000001b => "\x1b",
570             0x0000001c => "\x1c",
571             0x0000001d => "\x1d",
572             0x0000001f => "\x1f",
573             0x00000020 => "\x20",
574             0x00000021 => "\x21",
575             0x00000022 => "\x22",
576             0x00000023 => "\x23",
577             0x00000024 => "\x24",
578             0x00000025 => "\x25",
579             0x00000026 => "\x26",
580             0x00000027 => "\x27",
581             0x00000028 => "\x28",
582             0x00000029 => "\x29",
583             0x0000002a => "\x2a",
584             0x0000002b => "\x2b",
585             0x0000002c => "\x2c",
586             0x0000002d => "\x2d",
587             0x0000002e => "\x2e",
588             0x0000002f => "\x2f",
589             0x00000030 => "\x30",
590             0x00000031 => "\x31",
591             0x00000032 => "\x32",
592             0x00000033 => "\x33",
593             0x00000034 => "\x34",
594             0x00000035 => "\x35",
595             0x00000036 => "\x36",
596             0x00000037 => "\x37",
597             0x00000038 => "\x38",
598             0x00000039 => "\x39",
599             0x0000003a => "\x3a",
600             0x0000003b => "\x3b",
601             0x0000003c => "\x3c",
602             0x0000003d => "\x3d",
603             0x0000003e => "\x3e",
604             0x0000003f => "\x3f",
605             0x00000040 => "\x40",
606             0x00000041 => "\x41",
607             0x00000042 => "\x42",
608             0x00000043 => "\x43",
609             0x00000044 => "\x44",
610             0x00000045 => "\x45",
611             0x00000046 => "\x46",
612             0x00000047 => "\x47",
613             0x00000048 => "\x48",
614             0x00000049 => "\x49",
615             0x0000004a => "\x4a",
616             0x0000004b => "\x4b",
617             0x0000004c => "\x4c",
618             0x0000004d => "\x4d",
619             0x0000004e => "\x4e",
620             0x0000004f => "\x4f",
621             0x00000050 => "\x50",
622             0x00000051 => "\x51",
623             0x00000052 => "\x52",
624             0x00000053 => "\x53",
625             0x00000054 => "\x54",
626             0x00000055 => "\x55",
627             0x00000056 => "\x56",
628             0x00000057 => "\x57",
629             0x00000058 => "\x58",
630             0x00000059 => "\x59",
631             0x0000005a => "\x5a",
632             0x0000005b => "\x5b",
633             0x0000005c => "\x5c",
634             0x0000005d => "\x5d",
635             0x0000005e => "\x5e",
636             0x0000005f => "\x5f",
637             0x00000060 => "\x60",
638             0x00000061 => "\x61",
639             0x00000062 => "\x62",
640             0x00000063 => "\x63",
641             0x00000064 => "\x64",
642             0x00000065 => "\x65",
643             0x00000066 => "\x66",
644             0x00000067 => "\x67",
645             0x00000068 => "\x68",
646             0x00000069 => "\x69",
647             0x0000006a => "\x6a",
648             0x0000006b => "\x6b",
649             0x0000006c => "\x6c",
650             0x0000006d => "\x6d",
651             0x0000006e => "\x6e",
652             0x0000006f => "\x6f",
653             0x00000070 => "\x70",
654             0x00000071 => "\x71",
655             0x00000072 => "\x72",
656             0x00000073 => "\x73",
657             0x00000074 => "\x74",
658             0x00000075 => "\x75",
659             0x00000076 => "\x76",
660             0x00000077 => "\x77",
661             0x00000078 => "\x78",
662             0x00000079 => "\x79",
663             0x0000007a => "\x7a",
664             0x0000007b => "\x7b",
665             0x0000007c => "\x7c",
666             0x0000007d => "\x7d",
667             0x0000007e => "\x7e",
668             0x0000007f => "\x7f",
669             0x000000c0 => "\xc0",
670             0x000000c1 => "\xc1",
671             0x000000c2 => "\xc2",
672             0x000000c3 => "\xc3",
673             0x000000c8 => "\xc8",
674             0x000000c9 => "\xc9",
675             0x000000ca => "\xca",
676             0x000000cc => "\xcc",
677             0x000000cd => "\xcd",
678             0x000000d2 => "\xd2",
679             0x000000d3 => "\xd3",
680             0x000000d4 => "\xd4",
681             0x000000d5 => "\xa0",
682             0x000000d9 => "\xd9",
683             0x000000da => "\xda",
684             0x000000dd => "\xdd",
685             0x000000e0 => "\xe0",
686             0x000000e1 => "\xe1",
687             0x000000e2 => "\xe2",
688             0x000000e3 => "\xe3",
689             0x000000e8 => "\xe8",
690             0x000000e9 => "\xe9",
691             0x000000ea => "\xea",
692             0x000000ec => "\xec",
693             0x000000ed => "\xed",
694             0x000000f2 => "\xf2",
695             0x000000f3 => "\xf3",
696             0x000000f4 => "\xf4",
697             0x000000f5 => "\xf5",
698             0x000000f9 => "\xf9",
699             0x000000fa => "\xfa",
700             0x000000fd => "\xfd",
701             0x00000102 => "\xc5",
702             0x00000103 => "\xe5",
703             0x00000110 => "\xd0",
704             0x00000111 => "\xf0",
705             0x00000128 => "\xce",
706             0x00000129 => "\xee",
707             0x00000168 => "\x9d",
708             0x00000169 => "\xfb",
709             0x000001a0 => "\xb4",
710             0x000001a1 => "\xbd",
711             0x000001af => "\xbf",
712             0x000001b0 => "\xdf",
713             0x00001ea0 => "\x80",
714             0x00001ea1 => "\xd5",
715             0x00001ea2 => "\xc4",
716             0x00001ea3 => "\xe4",
717             0x00001ea4 => "\x84",
718             0x00001ea5 => "\xa4",
719             0x00001ea6 => "\x85",
720             0x00001ea7 => "\xa5",
721             0x00001ea8 => "\x86",
722             0x00001ea9 => "\xa6",
723             0x00001eaa => "\x06",
724             0x00001eab => "\xe7",
725             0x00001eac => "\x87",
726             0x00001ead => "\xa7",
727             0x00001eae => "\x81",
728             0x00001eaf => "\xa1",
729             0x00001eb0 => "\x82",
730             0x00001eb1 => "\xa2",
731             0x00001eb2 => "\x02",
732             0x00001eb3 => "\xc6",
733             0x00001eb4 => "\x05",
734             0x00001eb5 => "\xc7",
735             0x00001eb6 => "\x83",
736             0x00001eb7 => "\xa3",
737             0x00001eb8 => "\x89",
738             0x00001eb9 => "\xa9",
739             0x00001eba => "\xcb",
740             0x00001ebb => "\xeb",
741             0x00001ebc => "\x88",
742             0x00001ebd => "\xa8",
743             0x00001ebe => "\x8a",
744             0x00001ebf => "\xaa",
745             0x00001ec0 => "\x8b",
746             0x00001ec1 => "\xab",
747             0x00001ec2 => "\x8c",
748             0x00001ec3 => "\xac",
749             0x00001ec4 => "\x8d",
750             0x00001ec5 => "\xad",
751             0x00001ec6 => "\x8e",
752             0x00001ec7 => "\xae",
753             0x00001ec8 => "\x9b",
754             0x00001ec9 => "\xef",
755             0x00001eca => "\x98",
756             0x00001ecb => "\xb8",
757             0x00001ecc => "\x9a",
758             0x00001ecd => "\xf7",
759             0x00001ece => "\x99",
760             0x00001ecf => "\xf6",
761             0x00001ed0 => "\x8f",
762             0x00001ed1 => "\xaf",
763             0x00001ed2 => "\x90",
764             0x00001ed3 => "\xb0",
765             0x00001ed4 => "\x91",
766             0x00001ed5 => "\xb1",
767             0x00001ed6 => "\x92",
768             0x00001ed7 => "\xb2",
769             0x00001ed8 => "\x93",
770             0x00001ed9 => "\xb5",
771             0x00001eda => "\x95",
772             0x00001edb => "\xbe",
773             0x00001edc => "\x96",
774             0x00001edd => "\xb6",
775             0x00001ede => "\x97",
776             0x00001edf => "\xb7",
777             0x00001ee0 => "\xb3",
778             0x00001ee1 => "\xde",
779             0x00001ee2 => "\x94",
780             0x00001ee3 => "\xfe",
781             0x00001ee4 => "\x9e",
782             0x00001ee5 => "\xf8",
783             0x00001ee6 => "\x9c",
784             0x00001ee7 => "\xfc",
785             0x00001ee8 => "\xba",
786             0x00001ee9 => "\xd1",
787             0x00001eea => "\xbb",
788             0x00001eeb => "\xd7",
789             0x00001eec => "\xbc",
790             0x00001eed => "\xd8",
791             0x00001eee => "\xff",
792             0x00001eef => "\xe6",
793             0x00001ef0 => "\xb9",
794             0x00001ef1 => "\xf1",
795             0x00001ef2 => "\x9f",
796             0x00001ef3 => "\xcf",
797             0x00001ef4 => "\x1e",
798             0x00001ef5 => "\xdc",
799             0x00001ef6 => "\x14",
800             0x00001ef7 => "\xd6",
801             0x00001ef8 => "\x19",
802             0x00001ef9 => "\xdb",
803             );
804              
805             sub _recode
806             {
807 770 100   770   1829 if ($_[0]->{_from} eq 'INTERNAL') {
    100          
808             $_[1] = join '',
809             map $from_ucs4{$_}
810             || (defined $from_ucs4{$_} ? $from_ucs4{$_} : "\x3f"),
811 258   100     396 @{$_[1]};
  258         1019  
812             } elsif ($_[0]->{_to} eq 'UTF-8',) {
813 256         801 $_[1] = join '', map $to_utf8[$_], unpack 'C*', $_[1];
814             } else {
815 256         734 $_[1] = [ map
816             $to_ucs4[$_],
817             unpack 'C*', $_[1]
818             ];
819             }
820              
821 770         1717 return 1;
822             }
823              
824             1;
825              
826             __END__
827              
828             =head1 NAME
829              
830             Locale::RecodeData::VISCII - Conversion routines for VISCII
831              
832             =head1 SYNOPSIS
833              
834             This module is internal to libintl. Do not use directly!
835              
836             =head1 DESCRIPTION
837              
838             This module is generated and contains the conversion tables and
839             routines for VISCII.
840             =head1 CHARACTER TABLE
841              
842             The following table is sorted in the same order as the original charmap.
843             All character codes are in hexadecimal. Please read 'ISO-10646' as
844             'ISO-10646-UCS4'.
845              
846             Local | ISO-10646 | Description
847             -------+-----------+-------------------------------------------------
848             00 | 00000000 | NULL (NUL)
849             01 | 00000001 | START OF HEADING (SOH)
850             02 | 00001EB2 | LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
851             03 | 00000003 | END OF TEXT (ETX)
852             04 | 00000004 | END OF TRANSMISSION (EOT)
853             05 | 00001EB4 | LATIN CAPITAL LETTER A WITH BREVE AND TILDE
854             06 | 00001EAA | LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
855             07 | 00000007 | BELL (BEL)
856             08 | 00000008 | BACKSPACE (BS)
857             09 | 00000009 | CHARACTER TABULATION (HT)
858             0A | 0000000A | LINE FEED (LF)
859             0B | 0000000B | LINE TABULATION (VT)
860             0C | 0000000C | FORM FEED (FF)
861             0D | 0000000D | CARRIAGE RETURN (CR)
862             0E | 0000000E | SHIFT OUT (SO)
863             0F | 0000000F | SHIFT IN (SI)
864             10 | 00000010 | DATALINK ESCAPE (DLE)
865             11 | 00000011 | DEVICE CONTROL ONE (DC1)
866             12 | 00000012 | DEVICE CONTROL TWO (DC2)
867             13 | 00000013 | DEVICE CONTROL THREE (DC3)
868             14 | 00001EF6 | LATIN CAPITAL LETTER Y WITH HOOK ABOVE
869             15 | 00000015 | NEGATIVE ACKNOWLEDGE (NAK)
870             16 | 00000016 | SYNCHRONOUS IDLE (SYN)
871             17 | 00000017 | END OF TRANSMISSION BLOCK (ETB)
872             18 | 00000018 | CANCEL (CAN)
873             19 | 00001EF8 | LATIN CAPITAL LETTER Y WITH TILDE
874             1A | 0000001A | SUBSTITUTE (SUB)
875             1B | 0000001B | ESCAPE (ESC)
876             1C | 0000001C | FILE SEPARATOR (IS4)
877             1D | 0000001D | GROUP SEPARATOR (IS3)
878             1E | 00001EF4 | LATIN CAPITAL LETTER Y WITH DOT BELOW
879             1F | 0000001F | UNIT SEPARATOR (IS1)
880             20 | 00000020 | SPACE
881             21 | 00000021 | EXCLAMATION MARK
882             22 | 00000022 | QUOTATION MARK
883             23 | 00000023 | NUMBER SIGN
884             24 | 00000024 | DOLLAR SIGN
885             25 | 00000025 | PERCENT SIGN
886             26 | 00000026 | AMPERSAND
887             27 | 00000027 | APOSTROPHE
888             28 | 00000028 | LEFT PARENTHESIS
889             29 | 00000029 | RIGHT PARENTHESIS
890             2A | 0000002A | ASTERISK
891             2B | 0000002B | PLUS SIGN
892             2C | 0000002C | COMMA
893             2D | 0000002D | HYPHEN-MINUS
894             2E | 0000002E | FULL STOP
895             2F | 0000002F | SOLIDUS
896             30 | 00000030 | DIGIT ZERO
897             31 | 00000031 | DIGIT ONE
898             32 | 00000032 | DIGIT TWO
899             33 | 00000033 | DIGIT THREE
900             34 | 00000034 | DIGIT FOUR
901             35 | 00000035 | DIGIT FIVE
902             36 | 00000036 | DIGIT SIX
903             37 | 00000037 | DIGIT SEVEN
904             38 | 00000038 | DIGIT EIGHT
905             39 | 00000039 | DIGIT NINE
906             3A | 0000003A | COLON
907             3B | 0000003B | SEMICOLON
908             3C | 0000003C | LESS-THAN SIGN
909             3D | 0000003D | EQUALS SIGN
910             3E | 0000003E | GREATER-THAN SIGN
911             3F | 0000003F | QUESTION MARK
912             40 | 00000040 | COMMERCIAL AT
913             41 | 00000041 | LATIN CAPITAL LETTER A
914             42 | 00000042 | LATIN CAPITAL LETTER B
915             43 | 00000043 | LATIN CAPITAL LETTER C
916             44 | 00000044 | LATIN CAPITAL LETTER D
917             45 | 00000045 | LATIN CAPITAL LETTER E
918             46 | 00000046 | LATIN CAPITAL LETTER F
919             47 | 00000047 | LATIN CAPITAL LETTER G
920             48 | 00000048 | LATIN CAPITAL LETTER H
921             49 | 00000049 | LATIN CAPITAL LETTER I
922             4A | 0000004A | LATIN CAPITAL LETTER J
923             4B | 0000004B | LATIN CAPITAL LETTER K
924             4C | 0000004C | LATIN CAPITAL LETTER L
925             4D | 0000004D | LATIN CAPITAL LETTER M
926             4E | 0000004E | LATIN CAPITAL LETTER N
927             4F | 0000004F | LATIN CAPITAL LETTER O
928             50 | 00000050 | LATIN CAPITAL LETTER P
929             51 | 00000051 | LATIN CAPITAL LETTER Q
930             52 | 00000052 | LATIN CAPITAL LETTER R
931             53 | 00000053 | LATIN CAPITAL LETTER S
932             54 | 00000054 | LATIN CAPITAL LETTER T
933             55 | 00000055 | LATIN CAPITAL LETTER U
934             56 | 00000056 | LATIN CAPITAL LETTER V
935             57 | 00000057 | LATIN CAPITAL LETTER W
936             58 | 00000058 | LATIN CAPITAL LETTER X
937             59 | 00000059 | LATIN CAPITAL LETTER Y
938             5A | 0000005A | LATIN CAPITAL LETTER Z
939             5B | 0000005B | LEFT SQUARE BRACKET
940             5C | 0000005C | REVERSE SOLIDUS
941             5D | 0000005D | RIGHT SQUARE BRACKET
942             5E | 0000005E | CIRCUMFLEX ACCENT
943             5F | 0000005F | LOW LINE
944             60 | 00000060 | GRAVE ACCENT
945             61 | 00000061 | LATIN SMALL LETTER A
946             62 | 00000062 | LATIN SMALL LETTER B
947             63 | 00000063 | LATIN SMALL LETTER C
948             64 | 00000064 | LATIN SMALL LETTER D
949             65 | 00000065 | LATIN SMALL LETTER E
950             66 | 00000066 | LATIN SMALL LETTER F
951             67 | 00000067 | LATIN SMALL LETTER G
952             68 | 00000068 | LATIN SMALL LETTER H
953             69 | 00000069 | LATIN SMALL LETTER I
954             6A | 0000006A | LATIN SMALL LETTER J
955             6B | 0000006B | LATIN SMALL LETTER K
956             6C | 0000006C | LATIN SMALL LETTER L
957             6D | 0000006D | LATIN SMALL LETTER M
958             6E | 0000006E | LATIN SMALL LETTER N
959             6F | 0000006F | LATIN SMALL LETTER O
960             70 | 00000070 | LATIN SMALL LETTER P
961             71 | 00000071 | LATIN SMALL LETTER Q
962             72 | 00000072 | LATIN SMALL LETTER R
963             73 | 00000073 | LATIN SMALL LETTER S
964             74 | 00000074 | LATIN SMALL LETTER T
965             75 | 00000075 | LATIN SMALL LETTER U
966             76 | 00000076 | LATIN SMALL LETTER V
967             77 | 00000077 | LATIN SMALL LETTER W
968             78 | 00000078 | LATIN SMALL LETTER X
969             79 | 00000079 | LATIN SMALL LETTER Y
970             7A | 0000007A | LATIN SMALL LETTER Z
971             7B | 0000007B | LEFT CURLY BRACKET
972             7C | 0000007C | VERTICAL LINE
973             7D | 0000007D | RIGHT CURLY BRACKET
974             7E | 0000007E | TILDE
975             7F | 0000007F | DELETE (DEL)
976             80 | 00001EA0 | LATIN CAPITAL LETTER A WITH DOT BELOW
977             81 | 00001EAE | LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
978             82 | 00001EB0 | LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
979             83 | 00001EB6 | LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
980             84 | 00001EA4 | LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
981             85 | 00001EA6 | LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
982             86 | 00001EA8 | LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
983             87 | 00001EAC | LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
984             88 | 00001EBC | LATIN CAPITAL LETTER E WITH TILDE
985             89 | 00001EB8 | LATIN CAPITAL LETTER E WITH DOT BELOW
986             8A | 00001EBE | LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
987             8B | 00001EC0 | LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
988             8C | 00001EC2 | LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
989             8D | 00001EC4 | LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
990             8E | 00001EC6 | LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
991             8F | 00001ED0 | LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
992             90 | 00001ED2 | LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
993             91 | 00001ED4 | LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
994             92 | 00001ED6 | LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
995             93 | 00001ED8 | LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
996             94 | 00001EE2 | LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
997             95 | 00001EDA | LATIN CAPITAL LETTER O WITH HORN AND ACUTE
998             96 | 00001EDC | LATIN CAPITAL LETTER O WITH HORN AND GRAVE
999             97 | 00001EDE | LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
1000             98 | 00001ECA | LATIN CAPITAL LETTER I WITH DOT BELOW
1001             99 | 00001ECE | LATIN CAPITAL LETTER O WITH HOOK ABOVE
1002             9A | 00001ECC | LATIN CAPITAL LETTER O WITH DOT BELOW
1003             9B | 00001EC8 | LATIN CAPITAL LETTER I WITH HOOK ABOVE
1004             9C | 00001EE6 | LATIN CAPITAL LETTER U WITH HOOK ABOVE
1005             9D | 00000168 | LATIN CAPITAL LETTER U WITH TILDE
1006             9E | 00001EE4 | LATIN CAPITAL LETTER U WITH DOT BELOW
1007             9F | 00001EF2 | LATIN CAPITAL LETTER Y WITH GRAVE
1008             A0 | 000000D5 | LATIN CAPITAL LETTER O WITH TILDE
1009             A1 | 00001EAF | LATIN SMALL LETTER A WITH BREVE AND ACUTE
1010             A2 | 00001EB1 | LATIN SMALL LETTER A WITH BREVE AND GRAVE
1011             A3 | 00001EB7 | LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
1012             A4 | 00001EA5 | LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
1013             A5 | 00001EA7 | LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
1014             A6 | 00001EA9 | LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
1015             A7 | 00001EAD | LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
1016             A8 | 00001EBD | LATIN SMALL LETTER E WITH TILDE
1017             A9 | 00001EB9 | LATIN SMALL LETTER E WITH DOT BELOW
1018             AA | 00001EBF | LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
1019             AB | 00001EC1 | LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
1020             AC | 00001EC3 | LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
1021             AD | 00001EC5 | LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
1022             AE | 00001EC7 | LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
1023             AF | 00001ED1 | LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
1024             B0 | 00001ED3 | LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
1025             B1 | 00001ED5 | LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
1026             B2 | 00001ED7 | LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
1027             B3 | 00001EE0 | LATIN CAPITAL LETTER O WITH HORN AND TILDE
1028             B4 | 000001A0 | LATIN CAPITAL LETTER O WITH HORN
1029             B5 | 00001ED9 | LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
1030             B6 | 00001EDD | LATIN SMALL LETTER O WITH HORN AND GRAVE
1031             B7 | 00001EDF | LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE
1032             B8 | 00001ECB | LATIN SMALL LETTER I WITH DOT BELOW
1033             B9 | 00001EF0 | LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
1034             BA | 00001EE8 | LATIN CAPITAL LETTER U WITH HORN AND ACUTE
1035             BB | 00001EEA | LATIN CAPITAL LETTER U WITH HORN AND GRAVE
1036             BC | 00001EEC | LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
1037             BD | 000001A1 | LATIN SMALL LETTER O WITH HORN
1038             BE | 00001EDB | LATIN SMALL LETTER O WITH HORN AND ACUTE
1039             BF | 000001AF | LATIN CAPITAL LETTER U WITH HORN
1040             C0 | 000000C0 | LATIN CAPITAL LETTER A WITH GRAVE
1041             C1 | 000000C1 | LATIN CAPITAL LETTER A WITH ACUTE
1042             C2 | 000000C2 | LATIN CAPITAL LETTER A WITH CIRCUMFLEX
1043             C3 | 000000C3 | LATIN CAPITAL LETTER A WITH TILDE
1044             C4 | 00001EA2 | LATIN CAPITAL LETTER A WITH HOOK ABOVE
1045             C5 | 00000102 | LATIN CAPITAL LETTER A WITH BREVE
1046             C6 | 00001EB3 | LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
1047             C7 | 00001EB5 | LATIN SMALL LETTER A WITH BREVE AND TILDE
1048             C8 | 000000C8 | LATIN CAPITAL LETTER E WITH GRAVE
1049             C9 | 000000C9 | LATIN CAPITAL LETTER E WITH ACUTE
1050             CA | 000000CA | LATIN CAPITAL LETTER E WITH CIRCUMFLEX
1051             CB | 00001EBA | LATIN CAPITAL LETTER E WITH HOOK ABOVE
1052             CC | 000000CC | LATIN CAPITAL LETTER I WITH GRAVE
1053             CD | 000000CD | LATIN CAPITAL LETTER I WITH ACUTE
1054             CE | 00000128 | LATIN CAPITAL LETTER I WITH TILDE
1055             CF | 00001EF3 | LATIN SMALL LETTER Y WITH GRAVE
1056             D0 | 00000110 | LATIN CAPITAL LETTER D WITH STROKE
1057             D1 | 00001EE9 | LATIN SMALL LETTER U WITH HORN AND ACUTE
1058             D2 | 000000D2 | LATIN CAPITAL LETTER O WITH GRAVE
1059             D3 | 000000D3 | LATIN CAPITAL LETTER O WITH ACUTE
1060             D4 | 000000D4 | LATIN CAPITAL LETTER O WITH CIRCUMFLEX
1061             D5 | 00001EA1 | LATIN SMALL LETTER A WITH DOT BELOW
1062             D6 | 00001EF7 | LATIN SMALL LETTER Y WITH HOOK ABOVE
1063             D7 | 00001EEB | LATIN SMALL LETTER U WITH HORN AND GRAVE
1064             D8 | 00001EED | LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE
1065             D9 | 000000D9 | LATIN CAPITAL LETTER U WITH GRAVE
1066             DA | 000000DA | LATIN CAPITAL LETTER U WITH ACUTE
1067             DB | 00001EF9 | LATIN SMALL LETTER Y WITH TILDE
1068             DC | 00001EF5 | LATIN SMALL LETTER Y WITH DOT BELOW
1069             DD | 000000DD | LATIN CAPITAL LETTER Y WITH ACUTE
1070             DE | 00001EE1 | LATIN SMALL LETTER O WITH HORN AND TILDE
1071             DF | 000001B0 | LATIN SMALL LETTER U WITH HORN
1072             E0 | 000000E0 | LATIN SMALL LETTER A WITH GRAVE
1073             E1 | 000000E1 | LATIN SMALL LETTER A WITH ACUTE
1074             E2 | 000000E2 | LATIN SMALL LETTER A WITH CIRCUMFLEX
1075             E3 | 000000E3 | LATIN SMALL LETTER A WITH TILDE
1076             E4 | 00001EA3 | LATIN SMALL LETTER A WITH HOOK ABOVE
1077             E5 | 00000103 | LATIN SMALL LETTER A WITH BREVE
1078             E6 | 00001EEF | LATIN SMALL LETTER U WITH HORN AND TILDE
1079             E7 | 00001EAB | LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
1080             E8 | 000000E8 | LATIN SMALL LETTER E WITH GRAVE
1081             E9 | 000000E9 | LATIN SMALL LETTER E WITH ACUTE
1082             EA | 000000EA | LATIN SMALL LETTER E WITH CIRCUMFLEX
1083             EB | 00001EBB | LATIN SMALL LETTER E WITH HOOK ABOVE
1084             EC | 000000EC | LATIN SMALL LETTER I WITH GRAVE
1085             ED | 000000ED | LATIN SMALL LETTER I WITH ACUTE
1086             EE | 00000129 | LATIN SMALL LETTER I WITH TILDE
1087             EF | 00001EC9 | LATIN SMALL LETTER I WITH HOOK ABOVE
1088             F0 | 00000111 | LATIN SMALL LETTER D WITH STROKE
1089             F1 | 00001EF1 | LATIN SMALL LETTER U WITH HORN AND DOT BELOW
1090             F2 | 000000F2 | LATIN SMALL LETTER O WITH GRAVE
1091             F3 | 000000F3 | LATIN SMALL LETTER O WITH ACUTE
1092             F4 | 000000F4 | LATIN SMALL LETTER O WITH CIRCUMFLEX
1093             F5 | 000000F5 | LATIN SMALL LETTER O WITH TILDE
1094             F6 | 00001ECF | LATIN SMALL LETTER O WITH HOOK ABOVE
1095             F7 | 00001ECD | LATIN SMALL LETTER O WITH DOT BELOW
1096             F8 | 00001EE5 | LATIN SMALL LETTER U WITH DOT BELOW
1097             F9 | 000000F9 | LATIN SMALL LETTER U WITH GRAVE
1098             FA | 000000FA | LATIN SMALL LETTER U WITH ACUTE
1099             FB | 00000169 | LATIN SMALL LETTER U WITH TILDE
1100             FC | 00001EE7 | LATIN SMALL LETTER U WITH HOOK ABOVE
1101             FD | 000000FD | LATIN SMALL LETTER Y WITH ACUTE
1102             FE | 00001EE3 | LATIN SMALL LETTER O WITH HORN AND DOT BELOW
1103             FF | 00001EEE | LATIN CAPITAL LETTER U WITH HORN AND TILDE
1104              
1105              
1106             =head1 AUTHOR
1107              
1108             Copyright (C) 2002-2026 L<Guido Flohr|http://www.guido-flohr.net/>
1109             (L<mailto:guido.flohr@cantanea.com>), all rights reserved. See the source
1110             code for details!code for details!
1111              
1112             =head1 SEE ALSO
1113              
1114             Locale::RecodeData(3), Locale::Recode(3), perl(1)
1115              
1116             =cut
1117             Local Variables:
1118             mode: perl
1119             perl-indent-level: 4
1120             perl-continued-statement-offset: 4
1121             perl-continued-brace-offset: 0
1122             perl-brace-offset: -4
1123             perl-brace-imaginary-offset: 0
1124             perl-label-offset: -4
1125             cperl-indent-level: 4
1126             cperl-continued-statement-offset: 2
1127             tab-width: 4
1128             End: