Commit | Line | Data |
fdd579e2 |
1 | # |
2 | # Demand-load module list |
3 | # |
4 | package Encode::Config; |
56ff7374 |
5 | our $VERSION = do { my @r = (q$Revision: 2.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; |
fdd579e2 |
6 | |
7 | use strict; |
fdd579e2 |
8 | |
9 | our %ExtModule = |
10 | ( |
11 | # Encode::Byte |
0ab8f81e |
12 | #iso-8859-1 is in Encode.pm itself |
fdd579e2 |
13 | 'iso-8859-2' => 'Encode::Byte', |
14 | 'iso-8859-3' => 'Encode::Byte', |
15 | 'iso-8859-4' => 'Encode::Byte', |
16 | 'iso-8859-5' => 'Encode::Byte', |
17 | 'iso-8859-6' => 'Encode::Byte', |
18 | 'iso-8859-7' => 'Encode::Byte', |
19 | 'iso-8859-8' => 'Encode::Byte', |
20 | 'iso-8859-9' => 'Encode::Byte', |
21 | 'iso-8859-10' => 'Encode::Byte', |
22 | 'iso-8859-11' => 'Encode::Byte', |
23 | 'iso-8859-13' => 'Encode::Byte', |
24 | 'iso-8859-14' => 'Encode::Byte', |
25 | 'iso-8859-15' => 'Encode::Byte', |
26 | 'iso-8859-16' => 'Encode::Byte', |
27 | 'koi8-f' => 'Encode::Byte', |
28 | 'koi8-r' => 'Encode::Byte', |
29 | 'koi8-u' => 'Encode::Byte', |
30 | 'viscii' => 'Encode::Byte', |
31 | 'cp424' => 'Encode::Byte', |
32 | 'cp437' => 'Encode::Byte', |
33 | 'cp737' => 'Encode::Byte', |
34 | 'cp775' => 'Encode::Byte', |
35 | 'cp850' => 'Encode::Byte', |
36 | 'cp852' => 'Encode::Byte', |
37 | 'cp855' => 'Encode::Byte', |
38 | 'cp856' => 'Encode::Byte', |
39 | 'cp857' => 'Encode::Byte', |
40 | 'cp860' => 'Encode::Byte', |
41 | 'cp861' => 'Encode::Byte', |
42 | 'cp862' => 'Encode::Byte', |
43 | 'cp863' => 'Encode::Byte', |
44 | 'cp864' => 'Encode::Byte', |
45 | 'cp865' => 'Encode::Byte', |
46 | 'cp866' => 'Encode::Byte', |
47 | 'cp869' => 'Encode::Byte', |
48 | 'cp874' => 'Encode::Byte', |
49 | 'cp1006' => 'Encode::Byte', |
50 | 'cp1250' => 'Encode::Byte', |
51 | 'cp1251' => 'Encode::Byte', |
52 | 'cp1252' => 'Encode::Byte', |
53 | 'cp1253' => 'Encode::Byte', |
54 | 'cp1254' => 'Encode::Byte', |
55 | 'cp1255' => 'Encode::Byte', |
56 | 'cp1256' => 'Encode::Byte', |
57 | 'cp1257' => 'Encode::Byte', |
58 | 'cp1258' => 'Encode::Byte', |
59 | 'AdobeStandardEncoding' => 'Encode::Byte', |
60 | 'MacArabic' => 'Encode::Byte', |
61 | 'MacCentralEurRoman' => 'Encode::Byte', |
62 | 'MacCroatian' => 'Encode::Byte', |
63 | 'MacCyrillic' => 'Encode::Byte', |
64 | 'MacFarsi' => 'Encode::Byte', |
65 | 'MacGreek' => 'Encode::Byte', |
66 | 'MacHebrew' => 'Encode::Byte', |
67 | 'MacIcelandic' => 'Encode::Byte', |
68 | 'MacRoman' => 'Encode::Byte', |
69 | 'MacRomanian' => 'Encode::Byte', |
70 | 'MacRumanian' => 'Encode::Byte', |
71 | 'MacSami' => 'Encode::Byte', |
72 | 'MacThai' => 'Encode::Byte', |
73 | 'MacTurkish' => 'Encode::Byte', |
74 | 'MacUkrainian' => 'Encode::Byte', |
75 | 'nextstep' => 'Encode::Byte', |
76 | 'hp-roman8' => 'Encode::Byte', |
77 | 'gsm0338' => 'Encode::Byte', |
78 | # Encode::EBCDIC |
79 | 'cp37' => 'Encode::EBCDIC', |
80 | 'cp500' => 'Encode::EBCDIC', |
81 | 'cp875' => 'Encode::EBCDIC', |
82 | 'cp1026' => 'Encode::EBCDIC', |
83 | 'cp1047' => 'Encode::EBCDIC', |
84 | 'posix-bc' => 'Encode::EBCDIC', |
85 | # Encode::Symbol |
86 | 'dingbats' => 'Encode::Symbol', |
87 | 'symbol' => 'Encode::Symbol', |
88 | 'AdobeSymbol' => 'Encode::Symbol', |
89 | 'AdobeZdingbat' => 'Encode::Symbol', |
90 | 'MacDingbats' => 'Encode::Symbol', |
91 | 'MacSymbol' => 'Encode::Symbol', |
92 | # Encode::Unicode |
93 | 'UCS-2BE' => 'Encode::Unicode', |
94 | 'UCS-2LE' => 'Encode::Unicode', |
95 | 'UTF-16' => 'Encode::Unicode', |
96 | 'UTF-16BE' => 'Encode::Unicode', |
97 | 'UTF-16LE' => 'Encode::Unicode', |
98 | 'UTF-32' => 'Encode::Unicode', |
99 | 'UTF-32BE' => 'Encode::Unicode', |
100 | 'UTF-32LE' => 'Encode::Unicode', |
1485817e |
101 | 'UTF-7' => 'Encode::Unicode::UTF7', |
fdd579e2 |
102 | ); |
103 | |
104 | unless (ord("A") == 193){ |
105 | %ExtModule = |
106 | ( |
107 | %ExtModule, |
108 | 'euc-cn' => 'Encode::CN', |
109 | 'gb12345-raw' => 'Encode::CN', |
110 | 'gb2312-raw' => 'Encode::CN', |
aae85ceb |
111 | 'hz' => 'Encode::CN', |
fdd579e2 |
112 | 'iso-ir-165' => 'Encode::CN', |
113 | 'cp936' => 'Encode::CN', |
114 | 'MacChineseSimp' => 'Encode::CN', |
115 | |
116 | '7bit-jis' => 'Encode::JP', |
117 | 'euc-jp' => 'Encode::JP', |
118 | 'iso-2022-jp' => 'Encode::JP', |
119 | 'iso-2022-jp-1' => 'Encode::JP', |
120 | 'jis0201-raw' => 'Encode::JP', |
121 | 'jis0208-raw' => 'Encode::JP', |
122 | 'jis0212-raw' => 'Encode::JP', |
123 | 'cp932' => 'Encode::JP', |
124 | 'MacJapanese' => 'Encode::JP', |
125 | 'shiftjis' => 'Encode::JP', |
126 | |
127 | |
128 | 'euc-kr' => 'Encode::KR', |
129 | 'iso-2022-kr' => 'Encode::KR', |
130 | 'johab' => 'Encode::KR', |
131 | 'ksc5601-raw' => 'Encode::KR', |
132 | 'cp949' => 'Encode::KR', |
133 | 'MacKorean' => 'Encode::KR', |
134 | |
b0b300a3 |
135 | 'big5-eten' => 'Encode::TW', |
fdd579e2 |
136 | 'big5-hkscs' => 'Encode::TW', |
137 | 'cp950' => 'Encode::TW', |
138 | 'MacChineseTrad' => 'Encode::TW', |
139 | |
aae85ceb |
140 | #'big5plus' => 'Encode::HanExtra', |
141 | #'euc-tw' => 'Encode::HanExtra', |
142 | #'gb18030' => 'Encode::HanExtra', |
af1f55d9 |
143 | |
144 | 'MIME-Header' => 'Encode::MIME::Header', |
145 | 'MIME-B' => 'Encode::MIME::Header', |
146 | 'MIME-Q' => 'Encode::MIME::Header', |
147 | |
56ff7374 |
148 | 'MIME-Header-ISO_2022_JP' => 'Encode::MIME::Header::ISO_2022_JP', |
fdd579e2 |
149 | ); |
150 | } |
151 | |
aae85ceb |
152 | # |
153 | # Why not export ? to keep ConfigLocal Happy! |
154 | # |
155 | while (my ($enc,$mod) = each %ExtModule){ |
156 | $Encode::ExtModule{$enc} = $mod; |
157 | } |
fdd579e2 |
158 | |
159 | 1; |
b2704119 |
160 | __END__ |
161 | |
162 | =head1 NAME |
163 | |
164 | Encode::Config -- internally used by Encode |
165 | |
166 | =cut |