/[suikacvs]/perl/lib/Encode/ISO2022/SevenBit.pm
Suika

Contents of /perl/lib/Encode/ISO2022/SevenBit.pm

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.10 - (hide annotations) (download)
Sat Oct 12 07:27:01 2002 UTC (22 years, 1 month ago) by wakaba
Branch: MAIN
Changes since 1.9: +23 -6 lines 
2002-10-12  Nanashi-san

	* SJIS.pm: New module.
	* SJIS/: New directory.
	(Commited by Wakaba <w@suika.fam.cx>)
1 wakaba 1.1 =head1 NAME
2    
3     Encode::ISO2022::SevenBit --- Encode and decode of 7-bit ISO/IEC 2022
4     based encodings
5    
6     =head1 ENCODINGS
7    
8     =over 4
9    
10     =cut
11    
12     require 5.7.3;
13     use strict;
14     package Encode::ISO2022::SevenBit;
15     use vars qw($VERSION);
16 wakaba 1.10 $VERSION=do{my @r=(q$Revision: 1.9 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
17 wakaba 1.1 use base qw(Encode::Encoding);
18 wakaba 1.7 __PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7
19     7bit-jis/);
20 wakaba 1.1 require Encode::ISO2022;
21    
22     sub encode ($$;$) {
23     my ($obj, $str, $chk) = @_;
24     $_[1] = '' if $chk;
25 wakaba 1.9 if (!defined $obj->{_encode_mapping} || $obj->{_encode_mapping}) {
26     require Encode::Table;
27     $str = Encode::Table::convert ($str, $obj->__encode_map,
28     -autoload => defined $obj->{_encode_mapping_autoload} ?
29     $obj->{_encode_mapping_autoload} : 1);
30     }
31 wakaba 1.1 $str = &Encode::ISO2022::internal_to_iso2022 ($str, $obj->__2022_encode);
32 wakaba 1.9 $str;
33 wakaba 1.1 }
34    
35     sub decode ($$;$) {
36     my ($obj, $str, $chk) = @_;
37     $_[1] = '' if $chk;
38 wakaba 1.9 $str = &Encode::ISO2022::iso2022_to_internal ($str, $obj->__2022_decode);
39     if (!defined $obj->{_decode_mapping} || $obj->{_decode_mapping}) {
40     require Encode::Table;
41     $str = Encode::Table::convert ($str, $obj->__decode_map,
42     -autoload => defined $obj->{_decode_mapping_autoload} ?
43     $obj->{_decode_mapping_autoload} : 1);
44     }
45     $str;
46 wakaba 1.1 }
47    
48 wakaba 1.10 sub __clone ($) {
49     my $self = shift;
50     bless {%$self}, ref $self;
51     };
52    
53 wakaba 1.1 =item iso-2022-7bit
54    
55     ISO/IEC 2022 based 7-bit encoding using only G0
56 wakaba 1.7 (Alias: junet (emacsen), jis, jis7, iso-2022-7 (emacsen), 7bit-jis (perl))
57 wakaba 1.1
58     =cut
59    
60     sub __2022__common ($) {
61     my $C = Encode::ISO2022->new_object;
62     $C->{bit} = 7;
63     $C->{option}->{designate_to}->{G96}->{default} = 0;
64     $C->{option}->{designate_to}->{G96n}->{default} = 0;
65     $C;
66     }
67     sub __2022_encode ($) {
68     my $C = shift->__2022__common;
69 wakaba 1.4 $C->{GR} = undef;
70 wakaba 1.1 $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
71     $C;
72     }
73     sub __2022_decode ($) {
74     my $C = shift->__2022__common;
75    
76     $C;
77     }
78 wakaba 1.9 sub __encode_map ($) {
79     [];
80     }
81     sub __decode_map ($) {
82     [];
83     }
84 wakaba 1.1
85     package Encode::ISO2022::SevenBit::JP;
86     use vars qw/@ISA/;
87     push @ISA, 'Encode::ISO2022::SevenBit';
88 wakaba 1.2 __PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp
89 wakaba 1.5 iso2022jp/);
90 wakaba 1.1
91     =item iso-2022-jp
92    
93     ISO/IEC 2022 based 7-bit encoding for Japanese.
94     Defined by Junet no tebiki, RFC 1468 and JIS X 0208:1997 Appendix 2.
95 wakaba 1.5 (Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA))
96 wakaba 1.1
97     =cut
98    
99     sub __2022__common ($) {
100     my $C = Encode::ISO2022->new_object;
101     $C->{bit} = 7;
102     $C->{option}->{designate_to}->{C0}->{default} = -1;
103     $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
104     $C->{option}->{designate_to}->{C1}->{default} = -1;
105     $C->{option}->{designate_to}->{G94}->{default} = -1;
106     $C->{option}->{designate_to}->{G94n}->{default} = -1;
107     $C->{option}->{designate_to}->{G96}->{default} = -1;
108     $C->{option}->{designate_to}->{G96n}->{default} = -1;
109     $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0; ## JIS X 0201 roman
110     $C->{option}->{designate_to}->{G94n}->{"\x40"} = 0; ## JIS X 0208-1978
111     $C->{option}->{designate_to}->{G94n}->{"\x42"} = 0; ## JIS X 0208-1983
112     $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = 0; ## JIS X 0208-1990
113     $C->{option}->{use_revision} = 0;
114     $C;
115     }
116     sub __2022_encode ($) {
117     my $C = shift->__2022__common;
118 wakaba 1.4 $C->{GR} = undef;
119 wakaba 1.1 $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
120     $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
121     $C;
122     }
123 wakaba 1.9 sub __encode_map ($) {
124     [qw/ucs_to_ascii ucs_to_jisx0208_1983 ucs_to_jisx0208_1990 ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];
125     }
126     sub __decode_map ($) {
127     [qw/jisx0208_1983_to_ucs jisx0208_1990_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];
128     }
129 wakaba 1.1
130     package Encode::ISO2022::SevenBit::JP1978IRV;
131     use vars qw/@ISA/;
132     push @ISA, 'Encode::ISO2022::SevenBit::JP';
133 wakaba 1.2 __PACKAGE__->Define (qw/iso-2022-jp-1978-irv japanese-iso-7bit-1978-irv old-jis
134 wakaba 1.6 x-obsoleted-iso-2022-jp jis78/);
135 wakaba 1.1
136     =item iso-2022-jp-1978-irv
137    
138 wakaba 1.6 ISO/IEC 2022 based 7-bit encoding for Japanese,
139     using JIS X 0208-1978.
140     (Alias: japanese-iso-7bit-1978-irv (emacsen), old-jis (emacsen),
141     jis78)
142 wakaba 1.1
143     =cut
144    
145     sub __2022_encode ($) {
146     my $C = shift->__2022__common;
147 wakaba 1.4 $C->{GR} = undef;
148 wakaba 1.1 $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1; ## JIS X 0201 roman
149     $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1; ## JIS X 0208-1983
150     $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1; ## JIS X 0208-1990
151     $C;
152     }
153 wakaba 1.9 sub __encode_map ($) {
154 wakaba 1.10 [qw/ucs_to_ascii ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];
155 wakaba 1.9 }
156     sub __decode_map ($) {
157     [qw/jisx0208_1983_to_ucs jisx0208_1990_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];
158     }
159 wakaba 1.1
160     package Encode::ISO2022::SevenBit::JP1;
161     use vars qw/@ISA/;
162     push @ISA, 'Encode::ISO2022::SevenBit::JP';
163 wakaba 1.8 __PACKAGE__->Define (qw/iso-2022-jp-1 iso2022jp-1/);
164 wakaba 1.1
165     =item iso-2022-jp-1
166    
167     ISO/IEC 2022 based 7-bit encoding for Japanese,
168 wakaba 1.8 defined by RFC 2237. (Alias: iso2022jp-1)
169 wakaba 1.1
170     =cut
171    
172     sub __2022__common ($) {
173     my $C = shift->SUPER::__2022__common;
174     $C->{option}->{designate_to}->{G94n}->{"\x44"} = 0; ## JIS X 0212-1990
175     $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1; ## JIS X 0208-1990
176     $C;
177     }
178 wakaba 1.9 sub __encode_map ($) {
179     [qw/ucs_to_ascii ucs_to_jisx0208_1983 ucs_to_jisx0212_1990 ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];
180     }
181     sub __decode_map ($) {
182     [qw/jisx0208_1983_to_ucs jisx0212_1990_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];
183     }
184 wakaba 1.1
185     package Encode::ISO2022::SevenBit::JP3;
186     use vars qw/@ISA/;
187     push @ISA, 'Encode::ISO2022::SevenBit::JP';
188 wakaba 1.8 __PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3 iso2022jp-3
189 wakaba 1.9 jis0213/);
190 wakaba 1.1
191     =item iso-2022-jp-3
192    
193     ISO/IEC 2022 based 7-bit encoding for Japanese,
194     defined by JIS X 0213:2000 Appendix 2.
195 wakaba 1.8 (Alias: x-iso-2022-jp-3, iso2022jp-3, jis0213)
196 wakaba 1.1
197     =cut
198    
199     sub __2022__common ($) {
200     my $C = shift->SUPER::__2022__common;
201     $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1; ## JIS X 0201 roman
202     $C->{option}->{designate_to}->{G94n}->{"\x40"} = -1; ## JIS X 0208-1978
203     $C->{option}->{designate_to}->{G94n}->{"\x42"} = 0; ## restricted JIS X 0213:2000 plane 1
204     $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1; ## JIS X 0208-1990
205     $C->{option}->{designate_to}->{G94n}->{"\x4F"} = 0; ## JIS X 0213:2000 plane 1
206     $C->{option}->{designate_to}->{G94n}->{"\x50"} = 0; ## JIS X 0213:2000 plane 2
207     $C;
208     }
209 wakaba 1.9 sub __encode_map ($) {
210     [qw/ucs_to_ascii ucs_to_jisx0213_2000_1 ucs_to_jisx0213_2000_2/];
211     }
212     sub __decode_map ($) {
213     [qw/jisx0213_2000_1_to_ucs jisx0212_0213_to_ucs jisx0208_1983_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];
214     }
215    
216     package Encode::ISO2022::SevenBit::JP3Strict;
217     use vars qw/@ISA/;
218     push @ISA, 'Encode::ISO2022::SevenBit::JP3';
219     __PACKAGE__->Define (qw/iso-2022-jp-3-strict/);
220    
221     =item iso-2022-jp-3-strict
222    
223     ISO/IEC 2022 based 7-bit encoding for Japanese.
224     A subset of iso-2022-jp-3.
225     See <http://www.m17n.org/m17n2000_all_but_registration/proceedings/kawabata/jisx0213.html>.
226    
227     =cut
228    
229     sub __encode_map ($) {
230     [qw/ucs_to_ascii ucs_to_jisx0213_2000_1_esc_24_42 ucs_to_jisx0213_2000_1 ucs_to_jisx0213_2000_2/];
231     }
232    
233     package Encode::ISO2022::SevenBit::JP3Compatible;
234     use vars qw/@ISA/;
235     push @ISA, 'Encode::ISO2022::SevenBit::JP3';
236     __PACKAGE__->Define (qw/iso-2022-jp-3-compatible/);
237    
238     =item iso-2022-jp-3-compatible
239    
240     ISO/IEC 2022 based 7-bit encoding for Japanese.
241     See <http://www.m17n.org/m17n2000_all_but_registration/proceedings/kawabata/jisx0213.html>.
242    
243     =cut
244    
245     sub __encode_map ($) {
246     [qw/ucs_to_ascii ucs_to_jisx0208_1983 ucs_to_jisx0213_2000_1 ucs_to_jisx0213_2000_2/];
247     }
248 wakaba 1.1
249     package Encode::ISO2022::SevenBit::JP3Plane1;
250     use vars qw/@ISA/;
251     push @ISA, 'Encode::ISO2022::SevenBit::JP3';
252     __PACKAGE__->Define (qw/iso-2022-jp-3-plane1/);
253    
254     =item iso-2022-jp-3-plane1
255    
256     ISO/IEC 2022 based 7-bit encoding for Japanese,
257     defined by JIS X 0213:2000 Appendix 2.
258    
259     =cut
260    
261     sub __2022__common ($) {
262     my $C = shift->SUPER::__2022__common;
263     $C->{option}->{designate_to}->{G94n}->{"\x50"} = -1; ## JIS X 0213:2000 plane 2
264     $C;
265     }
266 wakaba 1.9 sub __encode_map ($) {
267     [qw/ucs_to_ascii ucs_to_jisx0213_2000_1/];
268     }
269     sub __decode_map ($) {
270     [qw/jisx0213_2000_1_to_ucs jisx0208_1983_to_ucs/];
271     }
272 wakaba 1.1
273     package Encode::ISO2022::SevenBit::SS2;
274     use vars qw/@ISA/;
275     push @ISA, 'Encode::ISO2022::SevenBit';
276 wakaba 1.3 __PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2 iso-2022-ss2-7
277     jis_encoding csjisencoding/);
278 wakaba 1.1
279     =item iso-2022-7bit-ss2
280    
281     ISO/IEC 2022 based 7-bit encoding using SS2 for 96-charset
282 wakaba 1.3 (Alias: x-iso-2022-jp-2, iso-2022-ss2-7 (emacsen))
283 wakaba 1.1
284     =cut
285    
286     sub __2022__common ($) {
287     my $C = shift->SUPER::__2022__common;
288     $C->{option}->{designate_to}->{G96}->{default} = 2;
289     $C->{option}->{designate_to}->{G96n}->{default} = 2;
290     $C->{option}->{Ginvoke_by_single_shift}->[2] = 1;
291     $C;
292     }
293    
294     package Encode::ISO2022::SevenBit::JP2;
295     use vars qw/@ISA/;
296     push @ISA, 'Encode::ISO2022::SevenBit::SS2';
297 wakaba 1.8 __PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2 iso2022jp-2/);
298 wakaba 1.1
299     =item iso-2022-jp-2
300    
301     ISO/IEC 2022 based 7-bit multilingual encoding, defined by
302 wakaba 1.8 RFC 1554. A subset of iso-2022-7bit-ss2. (Alias: iso2022jp-2,
303     csISO2022JP2 (IANA))
304 wakaba 1.1
305     =cut
306    
307     sub __2022__common ($) {
308     my $C = shift->SUPER::__2022__common;
309     $C->{option}->{designate_to}->{C0}->{default} = -1;
310     $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
311     $C->{option}->{designate_to}->{C1}->{default} = -1;
312     $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x47"}; ## Minimum C1
313 wakaba 1.9 $C->{option}->{designate_to}->{C1}->{"\x47"} = -1;
314 wakaba 1.1 $C->{option}->{designate_to}->{G94}->{default} = -1;
315     $C->{option}->{designate_to}->{G94n}->{default} = -1;
316     $C->{option}->{designate_to}->{G96}->{default} = -1;
317     $C->{option}->{designate_to}->{G96n}->{default} = -1;
318     $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0; ## JIS X 0201 roman
319 wakaba 1.9 for ("\x40", "\x41", "\x42", "\x43", "\x44") {
320 wakaba 1.1 $C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
321     }
322     for ("\x41", "\x46") {
323     $C->{option}->{designate_to}->{G96}->{ $_ } = 2;
324     }
325     $C;
326     }
327     sub __2022_encode ($) {
328     my $C = shift->__2022__common;
329 wakaba 1.4 $C->{GR} = undef;
330 wakaba 1.1 $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
331     $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
332     $C;
333     }
334 wakaba 1.9 sub __encode_map ($) {
335     [qw/ucs_to_ascii ucs_to_jisx0208_1983 ucs_to_jisx0212_1990 ucs_to_gb2312_1980 ucs_to_ksx1001_1992 ucs_to_jisx0208_1978 ucs_to_isoiec8859_1 ucs_to_isoiec8859_7 ucs_to_jisx0201_latin/];
336     }
337     sub __decode_map ($) {
338     [qw/jisx0208_1983_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs gb2312_1980_to_ucs ksx1001_1992_to_ucs isoiec8859_7_to_ucs/];
339     }
340 wakaba 1.1
341     package Encode::ISO2022::SevenBit::Lock;
342     use vars qw/@ISA/;
343     push @ISA, 'Encode::ISO2022::SevenBit';
344     __PACKAGE__->Define (qw/iso-2022-7bit-lock/);
345    
346     =item iso-2022-7bit-lock
347    
348     ISO/IEC 2022 based 7-bit encoding using G1 and locking-shift for 96-charset
349    
350     =cut
351    
352     sub __2022__common ($) {
353     my $C = shift->SUPER::__2022__common;
354     $C->{option}->{designate_to}->{G96}->{default} = 1;
355     $C->{option}->{designate_to}->{G96n}->{default} = 1;
356     $C;
357     }
358    
359 wakaba 1.3 package Encode::ISO2022::SevenBit::INT;
360     use vars qw/@ISA/;
361     push @ISA, 'Encode::ISO2022::SevenBit';
362     __PACKAGE__->Define (qw/iso-2022-int iso-2022-int-* iso-2022-int-2/);
363    
364     =item iso-2022-int
365    
366     ISO/IEC 2022 based 7-bit encoding using G1 and locking-shift for
367     KS X 1001 and 96-charset. See draft-ohta-text-encoding.
368     (Alias: iso-2022-int-*)
369    
370     =cut
371    
372     sub __2022__common ($) {
373     my $C = shift->SUPER::__2022__common;
374     $C->{option}->{designate_to}->{G96}->{default} = 1;
375     $C->{option}->{designate_to}->{G96n}->{default} = 1;
376     $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
377     $C;
378     }
379     sub __2022_encode ($) {
380     my $C = shift->__2022__common;
381 wakaba 1.4 $C->{GR} = undef;
382 wakaba 1.3 $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
383     $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
384     $C;
385     }
386     sub __2022_decode ($) {
387     my $C = shift->__2022__common;
388     $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
389     $C;
390     }
391    
392 wakaba 1.1 package Encode::ISO2022::SevenBit::KR;
393     use vars qw/@ISA/;
394     push @ISA, 'Encode::ISO2022::SevenBit';
395 wakaba 1.10 __PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit csiso2022kr cp50225 kr2022 korean-mail/);
396 wakaba 1.1
397     =item iso-2022-kr
398    
399     An ISO/IEC 2022 based 7-bit encoding for Korean,
400 wakaba 1.2 defined by RFC 1557 (Alias: korean-iso-7bit (emacsen),
401 wakaba 1.10 csISO2022KR (IANA), CP50225 (M$), KR2022, korean-mail (emacsen))
402 wakaba 1.1
403     =cut
404    
405     sub __2022__common ($) {
406     my $C = shift->SUPER::__2022__common;
407     $C->{option}->{designate_to}->{C0}->{default} = -1;
408     $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
409     $C->{option}->{designate_to}->{C1}->{default} = -1;
410     $C->{option}->{designate_to}->{G94}->{default} = -1;
411     $C->{option}->{designate_to}->{G94n}->{default} = -1;
412     $C->{option}->{designate_to}->{G96}->{default} = -1;
413     $C->{option}->{designate_to}->{G96n}->{default} = -1;
414     $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
415     $C;
416     }
417     sub __2022_encode ($) {
418     my $C = shift->__2022__common;
419 wakaba 1.4 $C->{GR} = undef;
420 wakaba 1.1 $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
421     $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
422     $C;
423     }
424     sub __2022_decode ($) {
425     my $C = shift->__2022__common;
426     $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
427     $C;
428     }
429 wakaba 1.9 sub __encode_map ($) {
430     [qw/ucs_to_ascii ksx1001_1992_to_ucs/];
431     }
432     sub __decode_map ($) {
433     [qw/ksx1001_1992_to_ucs/];
434     }
435 wakaba 1.1
436     package Encode::ISO2022::SevenBit::INT1;
437     use vars qw/@ISA/;
438     push @ISA, 'Encode::ISO2022::SevenBit';
439     __PACKAGE__->Define (qw/iso-2022-int-1/);
440    
441     =item iso-2022-int-1
442    
443     An ISO/IEC 2022 based 7-bit multilingual encoding,
444     defined by draft-ohta-text-encoding
445    
446     =cut
447    
448     sub __2022__common ($) {
449     my $C = shift->SUPER::__2022__common;
450     $C->{option}->{designate_to}->{C0}->{default} = -1;
451     $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
452     $C->{option}->{designate_to}->{C1}->{default} = -1;
453     $C->{option}->{designate_to}->{G94}->{default} = -1;
454     $C->{option}->{designate_to}->{G94n}->{default} = -1;
455     $C->{option}->{designate_to}->{G96}->{default} = -1;
456     $C->{option}->{designate_to}->{G96n}->{default} = -1;
457     $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0; ## JIS X 0201 roman
458 wakaba 1.9 for ("\x40", "\x41", "\x42", "\x44") {
459 wakaba 1.1 $C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
460     }
461     $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
462     for ("\x41", "\x46") { ## ISO/IEC 8859-1,7
463     $C->{option}->{designate_to}->{G96}->{ $_ } = 1;
464     }
465     $C;
466     }
467     sub __2022_encode ($) {
468     my $C = shift->__2022__common;
469 wakaba 1.4 $C->{GR} = undef;
470 wakaba 1.1 $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
471     $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
472     $C;
473     }
474     sub __2022_decode ($) {
475     my $C = shift->__2022__common;
476     $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
477     $C;
478     }
479 wakaba 1.9 sub __encode_map ($) {
480 wakaba 1.10 [qw/ucs_to_ascii ucs_to_jisx0208_1983 ucs_to_gb2312_1980 ucs_to_ksx1001_1992 ucs_to_isoiec8859_1 ucs_to_isoiec8859_7 ucs_to_jisx0212_1990 ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];
481 wakaba 1.9 }
482     sub __decode_map ($) {
483     [qw/jisx0208_1983_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs gb2312_1980_to_ucs ksx1001_1992_to_ucs isoiec8859_7_to_ucs/];
484     }
485 wakaba 1.1
486     package Encode::ISO2022::SevenBit::LockSS2;
487     use vars qw/@ISA/;
488     push @ISA, 'Encode::ISO2022::SevenBit';
489     __PACKAGE__->Define (qw/iso-2022-7bit-lock-ss2 iso-2022-cjk/);
490    
491     =item iso-2022-7bit-lock-ss2
492    
493     An ISO/IEC 2022 based 7-bit encoding. Mixture of ISO-2022-JP,
494     ISO-2022-KR, ISO-2022-CN. (Alias: iso-2022-cjk (emacsen))
495    
496     =cut
497    
498     sub __2022__common ($) {
499     my $C = shift->SUPER::__2022__common;
500     $C->{option}->{designate_to}->{G96}->{default} = 2;
501     $C->{option}->{designate_to}->{G96n}->{default} = 2;
502     $C->{option}->{designate_to}->{G94n}->{"\x41"} = 1; ## GB 2312
503     $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
504     $C->{option}->{designate_to}->{G94n}->{"\x45"} = 1; ## ISO-IR 165
505     $C->{option}->{designate_to}->{G94n}->{"\x47"} = 1; ## CNS 11643 plane 1
506     $C->{option}->{designate_to}->{G94n}->{"\x48"} = 2; ## CNS 11643 plane 2
507     $C->{option}->{designate_to}->{G94n}->{"\x49"} = 3; ## CNS 11643 plane 3
508     $C->{option}->{designate_to}->{G94n}->{"\x4A"} = 3; ## CNS 11643 plane 4
509     $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3; ## CNS 11643 plane 5
510     $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3; ## CNS 11643 plane 6
511     $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3; ## CNS 11643 plane 7
512 wakaba 1.2 $C->{option}->{designate_to}->{G94n}->{P0_0} = 1; ## GB 12345
513     $C->{option}->{designate_to}->{G94n}->{P0_1} = 2; ## GB 7589
514     $C->{option}->{designate_to}->{G94n}->{P0_2} = 2; ## GB 13131
515     $C->{option}->{designate_to}->{G94n}->{P0_3} = 3; ## GB 7590
516     $C->{option}->{designate_to}->{G94n}->{P0_4} = 3; ## GB 13132
517 wakaba 1.1 $C;
518     }
519     sub __2022_decode ($) {
520     my $C = shift->__2022__common;
521     $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
522     $C;
523     }
524    
525     package Encode::ISO2022::SevenBit::CN;
526     use vars qw/@ISA/;
527     push @ISA, 'Encode::ISO2022::SevenBit';
528 wakaba 1.2 __PACKAGE__->Define (qw/iso-2022-cn chinese-iso-7bit iso2022cn-cns iso2022cn-gb/);
529 wakaba 1.1
530     =item iso-2022-cn
531    
532     An ISO/IEC 2022 based 7-bit encoding for Chinese,
533     defined by RFC 1922 (Alias: chinese-iso-7bit (emacsen))
534    
535     =cut
536    
537     sub __2022__common ($) {
538     my $C = shift->SUPER::__2022__common;
539     $C->{option}->{designate_to}->{C0}->{default} = -1;
540     $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
541     $C->{option}->{designate_to}->{C1}->{default} = -1;
542     $C->{option}->{designate_to}->{G94}->{default} = -1;
543     $C->{option}->{designate_to}->{G94n}->{default} = -1;
544     $C->{option}->{designate_to}->{G96}->{default} = -1;
545     $C->{option}->{designate_to}->{G96n}->{default} = -1;
546     $C->{option}->{designate_to}->{G94n}->{"\x41"} = 1; ## GB 2312
547     $C->{option}->{designate_to}->{G94n}->{"\x47"} = 1; ## CNS 11643 plane 1
548     $C->{option}->{designate_to}->{G94n}->{"\x48"} = 2; ## CNS 11643 plane 2
549     $C;
550     }
551     sub __2022_encode ($) {
552     my $C = shift->__2022__common;
553 wakaba 1.4 $C->{GR} = undef;
554 wakaba 1.1 $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
555     $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
556     $C;
557     }
558 wakaba 1.10 sub __encode_map ($) {
559     [qw/ucs_to_ascii ucs_to_gb2312_1980 ucs_to_cns11643_1 ucs_to_cns11643_2/];
560     }
561     sub __decode_map ($) {
562     [qw/gb2312_1980_to_ucs cns11643_1_to_ucs cns11643_2_to_ucs/];
563     }
564 wakaba 1.1
565     package Encode::ISO2022::SevenBit::CNExt;
566     use vars qw/@ISA/;
567     push @ISA, 'Encode::ISO2022::SevenBit::CN';
568     __PACKAGE__->Define (qw/iso-2022-cn-ext/);
569    
570     =item iso-2022-cn-ext
571    
572     An ISO/IEC 2022 based 7-bit encoding for Chinese,
573     defined by RFC 1922
574    
575     =cut
576    
577     sub __2022__common ($) {
578     my $C = shift->SUPER::__2022__common;
579     $C->{option}->{designate_to}->{G94n}->{"\x45"} = 1; ## ISO-IR 165
580     $C->{option}->{designate_to}->{G94n}->{"\x49"} = 3; ## CNS 11643 plane 3
581     $C->{option}->{designate_to}->{G94n}->{"\x4A"} = 3; ## CNS 11643 plane 4
582     $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3; ## CNS 11643 plane 5
583     $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3; ## CNS 11643 plane 6
584     $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3; ## CNS 11643 plane 7
585 wakaba 1.2 $C->{option}->{designate_to}->{G94n}->{P0_0} = 1; ## GB 12345
586     $C->{option}->{designate_to}->{G94n}->{P0_1} = 2; ## GB 7589
587     $C->{option}->{designate_to}->{G94n}->{P0_2} = 2; ## GB 13131
588     $C->{option}->{designate_to}->{G94n}->{P0_3} = 3; ## GB 7590
589     $C->{option}->{designate_to}->{G94n}->{P0_4} = 3; ## GB 13132
590     $C->{option}->{designate_to}->{G94n}->{P1_0} = 3; ## CNS 11643 plane 8
591     $C->{option}->{designate_to}->{G94n}->{P1_1} = 3; ## CNS 11643 plane 9
592     $C->{option}->{designate_to}->{G94n}->{P1_2} = 3; ## CNS 11643 plane 10
593     $C->{option}->{designate_to}->{G94n}->{P1_3} = 3; ## CNS 11643 plane 11
594     $C->{option}->{designate_to}->{G94n}->{P1_4} = 3; ## CNS 11643 plane 12
595     $C->{option}->{designate_to}->{G94n}->{P1_5} = 3; ## CNS 11643 plane 13
596     $C->{option}->{designate_to}->{G94n}->{P1_6} = 3; ## CNS 11643 plane 14
597     $C->{option}->{designate_to}->{G94n}->{P2_0} = 3; ## CNS 11643 plane 15
598     $C->{option}->{designate_to}->{G94n}->{P2_1} = 3; ## CNS 11643 plane 16
599 wakaba 1.1 $C;
600     }
601 wakaba 1.10 sub __encode_map ($) {
602     [qw/ucs_to_ascii ucs_to_gb2312_1980 ucs_to_iso_ir_165 ucs_to_cns11643_1 ucs_to_cns11643_2 ucs_to_cns11643_3 ucs_to_cns11643_4 ucs_to_cns11643_5 ucs_to_cns11643_6 ucs_to_cns11643_7/];
603     }
604     sub __decode_map ($) {
605     [qw/gb2312_1980_to_ucs iso_ir_165_to_ucs cns11643_1_to_ucs cns11643_2_to_ucs cns11643_3_to_ucs cns11643_4_to_ucs cns11643_5_to_ucs cns11643_6_to_ucs cns11643_7_to_ucs/];
606     }
607 wakaba 1.1
608     1;
609     __END__
610    
611     =back
612    
613 wakaba 1.9 =head1 AUTHORS
614    
615     Wakaba <w@suika.fam.cx>
616    
617     Nanashi-san
618    
619 wakaba 1.1 =head1 LICENSE
620    
621 wakaba 1.9 Copyright 2002 AUTHORS
622 wakaba 1.1
623     This library is free software; you can redistribute it
624     and/or modify it under the same terms as Perl itself.
625    
626     =cut
627    
628 wakaba 1.10 # $Date: 2002/10/05 05:01:24 $
629 wakaba 1.1 ### SevenBit.pm ends here
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24