/[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.6 by wakaba, Sun Sep 22 11:08:23 2002 UTC revision 1.8 by wakaba, Fri Oct 4 23:58:04 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 ($$;$) {
# Line 34  sub decode ($$;$) { Line 35  sub decode ($$;$) {
35  =item iso-2022-7bit  =item iso-2022-7bit
36    
37  ISO/IEC 2022 based 7-bit encoding using only G0  ISO/IEC 2022 based 7-bit encoding using only G0
38  (Alias: junet, jis, jis7, iso-2022-7)  (Alias: junet (emacsen), jis, jis7, iso-2022-7 (emacsen), 7bit-jis (perl))
39    
40  =cut  =cut
41    
# Line 123  sub __2022_encode ($) { Line 124  sub __2022_encode ($) {
124  package Encode::ISO2022::SevenBit::JP1;  package Encode::ISO2022::SevenBit::JP1;
125  use vars qw/@ISA/;  use vars qw/@ISA/;
126  push @ISA, 'Encode::ISO2022::SevenBit::JP';  push @ISA, 'Encode::ISO2022::SevenBit::JP';
127  __PACKAGE__->Define (qw/iso-2022-jp-1/);  __PACKAGE__->Define (qw/iso-2022-jp-1 iso2022jp-1/);
128    
129  =item iso-2022-jp-1  =item iso-2022-jp-1
130    
131  ISO/IEC 2022 based 7-bit encoding for Japanese,  ISO/IEC 2022 based 7-bit encoding for Japanese,
132  defined by RFC 2237  defined by RFC 2237.  (Alias: iso2022jp-1)
133    
134  =cut  =cut
135    
# Line 142  sub __2022__common ($) { Line 143  sub __2022__common ($) {
143  package Encode::ISO2022::SevenBit::JP3;  package Encode::ISO2022::SevenBit::JP3;
144  use vars qw/@ISA/;  use vars qw/@ISA/;
145  push @ISA, 'Encode::ISO2022::SevenBit::JP';  push @ISA, 'Encode::ISO2022::SevenBit::JP';
146  __PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3  __PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3 iso2022jp-3
147   jis0213   iso-2022-jp-3-compatible iso-2022-jp-3-strict/);   jis0213   iso-2022-jp-3-compatible iso-2022-jp-3-strict/);
148    
149  =item iso-2022-jp-3  =item iso-2022-jp-3
150    
151  ISO/IEC 2022 based 7-bit encoding for Japanese,  ISO/IEC 2022 based 7-bit encoding for Japanese,
152  defined by JIS X 0213:2000 Appendix 2.  defined by JIS X 0213:2000 Appendix 2.
153  (Alias: x-iso-2022-jp-3, jis0213)  (Alias: x-iso-2022-jp-3, iso2022jp-3, jis0213)
154    
155  =item iso-2022-jp-3-compatible  =item iso-2022-jp-3-compatible
156    
# Line 215  sub __2022__common ($) { Line 216  sub __2022__common ($) {
216  package Encode::ISO2022::SevenBit::JP2;  package Encode::ISO2022::SevenBit::JP2;
217  use vars qw/@ISA/;  use vars qw/@ISA/;
218  push @ISA, 'Encode::ISO2022::SevenBit::SS2';  push @ISA, 'Encode::ISO2022::SevenBit::SS2';
219  __PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2/);  __PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2 iso2022jp-2/);
220    
221  =item iso-2022-jp-2  =item iso-2022-jp-2
222    
223  ISO/IEC 2022 based 7-bit multilingual encoding, defined by  ISO/IEC 2022 based 7-bit multilingual encoding, defined by
224  RFC 1554.  A subset of iso-2022-7bit-ss2.  (Alias: csISO2022JP2 (IANA))  RFC 1554.  A subset of iso-2022-7bit-ss2.  (Alias: iso2022jp-2,
225    csISO2022JP2 (IANA))
226    
227  =cut  =cut
228    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24