/[pub]/test/oldencodeutils/lib/Encode/ISO2022/SevenBit.pm
Suika

Diff of /test/oldencodeutils/lib/Encode/ISO2022/SevenBit.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by wakaba, Mon Sep 16 02:17:48 2002 UTC revision 1.9 by wakaba, Sat Oct 5 05:01:24 2002 UTC
# Line 15  package Encode::ISO2022::SevenBit; Line 15  package Encode::ISO2022::SevenBit;
15  use vars qw($VERSION);  use vars qw($VERSION);
16  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
17  use base qw(Encode::Encoding);  use base qw(Encode::Encoding);
18  __PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7/);  __PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7
19      7bit-jis/);
20  require Encode::ISO2022;  require Encode::ISO2022;
21    
22  sub encode ($$;$) {  sub encode ($$;$) {
23    my ($obj, $str, $chk) = @_;    my ($obj, $str, $chk) = @_;
24    $_[1] = '' if $chk;    $_[1] = '' if $chk;
25      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    $str = &Encode::ISO2022::internal_to_iso2022 ($str, $obj->__2022_encode);    $str = &Encode::ISO2022::internal_to_iso2022 ($str, $obj->__2022_encode);
32    return $str;    $str;
33  }  }
34    
35  sub decode ($$;$) {  sub decode ($$;$) {
36    my ($obj, $str, $chk) = @_;    my ($obj, $str, $chk) = @_;
37    $_[1] = '' if $chk;    $_[1] = '' if $chk;
38    return &Encode::ISO2022::iso2022_to_internal ($str, $obj->__2022_decode);    $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  }  }
47    
48  =item iso-2022-7bit  =item iso-2022-7bit
49    
50  ISO/IEC 2022 based 7-bit encoding using only G0  ISO/IEC 2022 based 7-bit encoding using only G0
51  (Alias: junet, jis, jis7, iso-2022-7)  (Alias: junet (emacsen), jis, jis7, iso-2022-7 (emacsen), 7bit-jis (perl))
52    
53  =cut  =cut
54    
# Line 47  sub __2022__common ($) { Line 61  sub __2022__common ($) {
61  }  }
62  sub __2022_encode ($) {  sub __2022_encode ($) {
63    my $C = shift->__2022__common;    my $C = shift->__2022__common;
64      $C->{GR} = undef;
65    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
66    $C;    $C;
67  }  }
# Line 55  sub __2022_decode ($) { Line 70  sub __2022_decode ($) {
70        
71    $C;    $C;
72  }  }
73    sub __encode_map ($) {
74      [];
75    }
76    sub __decode_map ($) {
77      [];
78    }
79    
80  package Encode::ISO2022::SevenBit::JP;  package Encode::ISO2022::SevenBit::JP;
81  use vars qw/@ISA/;  use vars qw/@ISA/;
82  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
83  __PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp  __PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp
84   cp50220 iso2022jp/);   iso2022jp/);
85    
86  =item iso-2022-jp  =item iso-2022-jp
87    
88  ISO/IEC 2022 based 7-bit encoding for Japanese.  ISO/IEC 2022 based 7-bit encoding for Japanese.
89  Defined by Junet no tebiki, RFC 1468 and JIS X 0208:1997 Appendix 2.  Defined by Junet no tebiki, RFC 1468 and JIS X 0208:1997 Appendix 2.
90  (Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA),  (Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA))
 CP50220 (M$))  
91    
92  =cut  =cut
93    
# Line 90  sub __2022__common ($) { Line 110  sub __2022__common ($) {
110  }  }
111  sub __2022_encode ($) {  sub __2022_encode ($) {
112    my $C = shift->__2022__common;    my $C = shift->__2022__common;
113      $C->{GR} = undef;
114    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
115    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
116    $C;    $C;
117  }  }
118    sub __encode_map ($) {
119      [qw/ucs_to_ascii ucs_to_jisx0208_1983 ucs_to_jisx0208_1990 ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];
120    }
121    sub __decode_map ($) {
122      [qw/jisx0208_1983_to_ucs jisx0208_1990_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];
123    }
124    
125  package Encode::ISO2022::SevenBit::JP1978IRV;  package Encode::ISO2022::SevenBit::JP1978IRV;
126  use vars qw/@ISA/;  use vars qw/@ISA/;
127  push @ISA, 'Encode::ISO2022::SevenBit::JP';  push @ISA, 'Encode::ISO2022::SevenBit::JP';
128  __PACKAGE__->Define (qw/iso-2022-jp-1978-irv japanese-iso-7bit-1978-irv old-jis  __PACKAGE__->Define (qw/iso-2022-jp-1978-irv japanese-iso-7bit-1978-irv old-jis
129    x-obsoleted-iso-2022-jp/);    x-obsoleted-iso-2022-jp jis78/);
130    
131  =item iso-2022-jp-1978-irv  =item iso-2022-jp-1978-irv
132    
133  ISO/IEC 2022 based 7-bit encoding for Japanese.  ISO/IEC 2022 based 7-bit encoding for Japanese,
134  (Alias: japanese-iso-7bit-1978-irv (emacsen), old-jis (emacsen))  using JIS X 0208-1978.
135    (Alias: japanese-iso-7bit-1978-irv (emacsen), old-jis (emacsen),
136    jis78)
137    
138  =cut  =cut
139    
140  sub __2022_encode ($) {  sub __2022_encode ($) {
141    my $C = shift->__2022__common;    my $C = shift->__2022__common;
142      $C->{GR} = undef;
143    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman
144    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983
145    $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990    $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990
146    $C;    $C;
147  }  }
148    sub __encode_map ($) {
149      [qw/ucs_to_ascii ucs_to_jisx0208_1978 ucs_to_jisx0208_1983 ucs_to_jisx0208_1990 ucs_to_jisx0201_latin/];
150    }
151    sub __decode_map ($) {
152      [qw/jisx0208_1983_to_ucs jisx0208_1990_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];
153    }
154    
155  package Encode::ISO2022::SevenBit::JP1;  package Encode::ISO2022::SevenBit::JP1;
156  use vars qw/@ISA/;  use vars qw/@ISA/;
157  push @ISA, 'Encode::ISO2022::SevenBit::JP';  push @ISA, 'Encode::ISO2022::SevenBit::JP';
158  __PACKAGE__->Define (qw/iso-2022-jp-1/);  __PACKAGE__->Define (qw/iso-2022-jp-1 iso2022jp-1/);
159    
160  =item iso-2022-jp-1  =item iso-2022-jp-1
161    
162  ISO/IEC 2022 based 7-bit encoding for Japanese,  ISO/IEC 2022 based 7-bit encoding for Japanese,
163  defined by RFC 2237  defined by RFC 2237.  (Alias: iso2022jp-1)
164    
165  =cut  =cut
166    
# Line 134  sub __2022__common ($) { Line 170  sub __2022__common ($) {
170    $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990    $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990
171    $C;    $C;
172  }  }
173    sub __encode_map ($) {
174      [qw/ucs_to_ascii ucs_to_jisx0208_1983 ucs_to_jisx0212_1990 ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];
175    }
176    sub __decode_map ($) {
177      [qw/jisx0208_1983_to_ucs jisx0212_1990_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];
178    }
179    
180  package Encode::ISO2022::SevenBit::JP3;  package Encode::ISO2022::SevenBit::JP3;
181  use vars qw/@ISA/;  use vars qw/@ISA/;
182  push @ISA, 'Encode::ISO2022::SevenBit::JP';  push @ISA, 'Encode::ISO2022::SevenBit::JP';
183  __PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3   iso-2022-jp-3-compatible iso-2022-jp-3-strict/);  __PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3 iso2022jp-3
184     jis0213/);
185    
186  =item iso-2022-jp-3  =item iso-2022-jp-3
187    
188  ISO/IEC 2022 based 7-bit encoding for Japanese,  ISO/IEC 2022 based 7-bit encoding for Japanese,
189  defined by JIS X 0213:2000 Appendix 2.  defined by JIS X 0213:2000 Appendix 2.
190  (Alias: x-iso-2022-jp-3)  (Alias: x-iso-2022-jp-3, iso2022jp-3, jis0213)
   
 =item iso-2022-jp-3-compatible  
   
 ISO/IEC 2022 based 7-bit encoding for Japanese  
   
 =item iso-2022-jp-3-strict  
   
 ISO/IEC 2022 based 7-bit encoding for Japanese.  
 A subset of iso-2022-jp-3.  
191    
192  =cut  =cut
193    
# Line 167  sub __2022__common ($) { Line 201  sub __2022__common ($) {
201    $C->{option}->{designate_to}->{G94n}->{"\x50"} = 0;   ## JIS X 0213:2000 plane 2    $C->{option}->{designate_to}->{G94n}->{"\x50"} = 0;   ## JIS X 0213:2000 plane 2
202    $C;    $C;
203  }  }
204    sub __encode_map ($) {
205      [qw/ucs_to_ascii ucs_to_jisx0213_2000_1 ucs_to_jisx0213_2000_2/];
206    }
207    sub __decode_map ($) {
208      [qw/jisx0213_2000_1_to_ucs jisx0212_0213_to_ucs jisx0208_1983_to_ucs jisx0208_1978_to_ucs jisx0201_latin_to_ucs/];
209    }
210    
211    package Encode::ISO2022::SevenBit::JP3Strict;
212    use vars qw/@ISA/;
213    push @ISA, 'Encode::ISO2022::SevenBit::JP3';
214    __PACKAGE__->Define (qw/iso-2022-jp-3-strict/);
215    
216    =item iso-2022-jp-3-strict
217    
218    ISO/IEC 2022 based 7-bit encoding for Japanese.
219    A subset of iso-2022-jp-3.
220    See <http://www.m17n.org/m17n2000_all_but_registration/proceedings/kawabata/jisx0213.html>.
221    
222    =cut
223    
224    sub __encode_map ($) {
225      [qw/ucs_to_ascii ucs_to_jisx0213_2000_1_esc_24_42 ucs_to_jisx0213_2000_1 ucs_to_jisx0213_2000_2/];
226    }
227    
228    package Encode::ISO2022::SevenBit::JP3Compatible;
229    use vars qw/@ISA/;
230    push @ISA, 'Encode::ISO2022::SevenBit::JP3';
231    __PACKAGE__->Define (qw/iso-2022-jp-3-compatible/);
232    
233    =item iso-2022-jp-3-compatible
234    
235    ISO/IEC 2022 based 7-bit encoding for Japanese.
236    See <http://www.m17n.org/m17n2000_all_but_registration/proceedings/kawabata/jisx0213.html>.
237    
238    =cut
239    
240    sub __encode_map ($) {
241      [qw/ucs_to_ascii ucs_to_jisx0208_1983 ucs_to_jisx0213_2000_1 ucs_to_jisx0213_2000_2/];
242    }
243    
244  package Encode::ISO2022::SevenBit::JP3Plane1;  package Encode::ISO2022::SevenBit::JP3Plane1;
245  use vars qw/@ISA/;  use vars qw/@ISA/;
# Line 185  sub __2022__common ($) { Line 258  sub __2022__common ($) {
258    $C->{option}->{designate_to}->{G94n}->{"\x50"} = -1;  ## JIS X 0213:2000 plane 2    $C->{option}->{designate_to}->{G94n}->{"\x50"} = -1;  ## JIS X 0213:2000 plane 2
259    $C;    $C;
260  }  }
261    sub __encode_map ($) {
262      [qw/ucs_to_ascii ucs_to_jisx0213_2000_1/];
263    }
264    sub __decode_map ($) {
265      [qw/jisx0213_2000_1_to_ucs jisx0208_1983_to_ucs/];
266    }
267    
268  package Encode::ISO2022::SevenBit::SS2;  package Encode::ISO2022::SevenBit::SS2;
269  use vars qw/@ISA/;  use vars qw/@ISA/;
# Line 210  sub __2022__common ($) { Line 289  sub __2022__common ($) {
289  package Encode::ISO2022::SevenBit::JP2;  package Encode::ISO2022::SevenBit::JP2;
290  use vars qw/@ISA/;  use vars qw/@ISA/;
291  push @ISA, 'Encode::ISO2022::SevenBit::SS2';  push @ISA, 'Encode::ISO2022::SevenBit::SS2';
292  __PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2/);  __PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2 iso2022jp-2/);
293    
294  =item iso-2022-jp-2  =item iso-2022-jp-2
295    
296  ISO/IEC 2022 based 7-bit multilingual encoding, defined by  ISO/IEC 2022 based 7-bit multilingual encoding, defined by
297  RFC 1554.  A subset of iso-2022-7bit-ss2.  (Alias: csISO2022JP2 (IANA))  RFC 1554.  A subset of iso-2022-7bit-ss2.  (Alias: iso2022jp-2,
298    csISO2022JP2 (IANA))
299    
300  =cut  =cut
301    
# Line 225  sub __2022__common ($) { Line 305  sub __2022__common ($) {
305    $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;    $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
306    $C->{option}->{designate_to}->{C1}->{default} = -1;    $C->{option}->{designate_to}->{C1}->{default} = -1;
307    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x47"};   ## Minimum C1    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x47"};   ## Minimum C1
308    $C->{option}->{designate_to}->{C1}->{"\x47"} = 1;    $C->{option}->{designate_to}->{C1}->{"\x47"} = -1;
309    $C->{option}->{designate_to}->{G94}->{default} = -1;    $C->{option}->{designate_to}->{G94}->{default} = -1;
310    $C->{option}->{designate_to}->{G94n}->{default} = -1;    $C->{option}->{designate_to}->{G94n}->{default} = -1;
311    $C->{option}->{designate_to}->{G96}->{default} = -1;    $C->{option}->{designate_to}->{G96}->{default} = -1;
312    $C->{option}->{designate_to}->{G96n}->{default} = -1;    $C->{option}->{designate_to}->{G96n}->{default} = -1;
313    $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0;    ## JIS X 0201 roman    $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0;    ## JIS X 0201 roman
314    for ("\x40", "\x41", "\x42", "\x43") {    for ("\x40", "\x41", "\x42", "\x43", "\x44") {
315      $C->{option}->{designate_to}->{G94n}->{ $_ } = 0;      $C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
316    }    }
317    for ("\x41", "\x46") {    for ("\x41", "\x46") {
# Line 241  sub __2022__common ($) { Line 321  sub __2022__common ($) {
321  }  }
322  sub __2022_encode ($) {  sub __2022_encode ($) {
323    my $C = shift->__2022__common;    my $C = shift->__2022__common;
324      $C->{GR} = undef;
325    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
326    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
327    $C;    $C;
328  }  }
329    sub __encode_map ($) {
330      [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/];
331    }
332    sub __decode_map ($) {
333      [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/];
334    }
335    
336  package Encode::ISO2022::SevenBit::Lock;  package Encode::ISO2022::SevenBit::Lock;
337  use vars qw/@ISA/;  use vars qw/@ISA/;
# Line 286  sub __2022__common ($) { Line 373  sub __2022__common ($) {
373  }  }
374  sub __2022_encode ($) {  sub __2022_encode ($) {
375    my $C = shift->__2022__common;    my $C = shift->__2022__common;
376      $C->{GR} = undef;
377    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
378    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
379    $C;    $C;
# Line 323  sub __2022__common ($) { Line 411  sub __2022__common ($) {
411  }  }
412  sub __2022_encode ($) {  sub __2022_encode ($) {
413    my $C = shift->__2022__common;    my $C = shift->__2022__common;
414      $C->{GR} = undef;
415    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
416    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
417    $C;    $C;
# Line 332  sub __2022_decode ($) { Line 421  sub __2022_decode ($) {
421    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
422    $C;    $C;
423  }  }
424    sub __encode_map ($) {
425      [qw/ucs_to_ascii ksx1001_1992_to_ucs/];
426    }
427    sub __decode_map ($) {
428      [qw/ksx1001_1992_to_ucs/];
429    }
430    
431  package Encode::ISO2022::SevenBit::INT1;  package Encode::ISO2022::SevenBit::INT1;
432  use vars qw/@ISA/;  use vars qw/@ISA/;
# Line 355  sub __2022__common ($) { Line 450  sub __2022__common ($) {
450    $C->{option}->{designate_to}->{G96}->{default} = -1;    $C->{option}->{designate_to}->{G96}->{default} = -1;
451    $C->{option}->{designate_to}->{G96n}->{default} = -1;    $C->{option}->{designate_to}->{G96n}->{default} = -1;
452    $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0;    ## JIS X 0201 roman    $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0;    ## JIS X 0201 roman
453    for ("\x40", "\x41", "\x42") {    for ("\x40", "\x41", "\x42", "\x44") {
454      $C->{option}->{designate_to}->{G94n}->{ $_ } = 0;      $C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
455    }    }
456    $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1;   ## KS X 1001    $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1;   ## KS X 1001
# Line 366  sub __2022__common ($) { Line 461  sub __2022__common ($) {
461  }  }
462  sub __2022_encode ($) {  sub __2022_encode ($) {
463    my $C = shift->__2022__common;    my $C = shift->__2022__common;
464      $C->{GR} = undef;
465    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
466    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
467    $C;    $C;
# Line 375  sub __2022_decode ($) { Line 471  sub __2022_decode ($) {
471    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
472    $C;    $C;
473  }  }
474    sub __encode_map ($) {
475      [qw/ucs_to_ascii ucs_to_isoiec8859_1 ucs_to_jisx0208_1983 ucs_to_jisx0212_1990 ucs_to_gb2312_1980 ucs_to_ksx1001_1992 ucs_to_isoiec8859_7 ucs_to_jisx0208_1978 ucs_to_jisx0201_latin/];
476    }
477    sub __decode_map ($) {
478      [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/];
479    }
480    
481  package Encode::ISO2022::SevenBit::LockSS2;  package Encode::ISO2022::SevenBit::LockSS2;
482  use vars qw/@ISA/;  use vars qw/@ISA/;
# Line 443  sub __2022__common ($) { Line 545  sub __2022__common ($) {
545  }  }
546  sub __2022_encode ($) {  sub __2022_encode ($) {
547    my $C = shift->__2022__common;    my $C = shift->__2022__common;
548      $C->{GR} = undef;
549    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
550    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
551    $C;    $C;
# Line 490  __END__ Line 593  __END__
593    
594  =back  =back
595    
596    =head1 AUTHORS
597    
598    Wakaba <w@suika.fam.cx>
599    
600    Nanashi-san
601    
602  =head1 LICENSE  =head1 LICENSE
603    
604  Copyright 2002 wakaba <w@suika.fam.cx>  Copyright 2002 AUTHORS
605    
606  This library is free software; you can redistribute it  This library is free software; you can redistribute it
607  and/or modify it under the same terms as Perl itself.  and/or modify it under the same terms as Perl itself.
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24