/[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.1 by wakaba, Sun Sep 15 04:15:11 2002 UTC revision 1.2 by wakaba, Sun Sep 15 05:08:13 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 jis junet/);  __PACKAGE__->Define (qw/iso-2022-7bit jis junet jis7/);
19  require Encode::ISO2022;  require Encode::ISO2022;
20    
21  sub encode ($$;$) {  sub encode ($$;$) {
# Line 34  sub decode ($$;$) { Line 34  sub decode ($$;$) {
34  =item iso-2022-7bit  =item iso-2022-7bit
35    
36  ISO/IEC 2022 based 7-bit encoding using only G0  ISO/IEC 2022 based 7-bit encoding using only G0
37  (Alias: junet, jis)  (Alias: junet, jis, jis7)
38    
39  =cut  =cut
40    
# Line 59  sub __2022_decode ($) { Line 59  sub __2022_decode ($) {
59  package Encode::ISO2022::SevenBit::JP;  package Encode::ISO2022::SevenBit::JP;
60  use vars qw/@ISA/;  use vars qw/@ISA/;
61  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
62  __PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit/);  __PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp
63     cp50220 iso2022jp/);
64    
65  =item iso-2022-jp  =item iso-2022-jp
66    
67  ISO/IEC 2022 based 7-bit encoding for Japanese.  ISO/IEC 2022 based 7-bit encoding for Japanese.
68  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.
69  (Alias: junet-code, japanese-iso-7bit (emacsen))  (Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA),
70    CP50220 (M$))
71    
72  =cut  =cut
73    
# Line 96  sub __2022_encode ($) { Line 98  sub __2022_encode ($) {
98  package Encode::ISO2022::SevenBit::JP1978IRV;  package Encode::ISO2022::SevenBit::JP1978IRV;
99  use vars qw/@ISA/;  use vars qw/@ISA/;
100  push @ISA, 'Encode::ISO2022::SevenBit::JP';  push @ISA, 'Encode::ISO2022::SevenBit::JP';
101  __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
102      x-obsoleted-iso-2022-jp/);
103    
104  =item iso-2022-jp-1978-irv  =item iso-2022-jp-1978-irv
105    
# Line 186  sub __2022__common ($) { Line 189  sub __2022__common ($) {
189  package Encode::ISO2022::SevenBit::SS2;  package Encode::ISO2022::SevenBit::SS2;
190  use vars qw/@ISA/;  use vars qw/@ISA/;
191  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
192  __PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2/);  __PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2  jis_encoding csjisencoding/);
193    
194  =item iso-2022-7bit-ss2  =item iso-2022-7bit-ss2
195    
# Line 206  sub __2022__common ($) { Line 209  sub __2022__common ($) {
209  package Encode::ISO2022::SevenBit::JP2;  package Encode::ISO2022::SevenBit::JP2;
210  use vars qw/@ISA/;  use vars qw/@ISA/;
211  push @ISA, 'Encode::ISO2022::SevenBit::SS2';  push @ISA, 'Encode::ISO2022::SevenBit::SS2';
212  __PACKAGE__->Define (qw/iso-2022-jp-2/);  __PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2/);
213    
214  =item iso-2022-jp-2  =item iso-2022-jp-2
215    
216  ISO/IEC 2022 based 7-bit multilingual encoding, defined by  ISO/IEC 2022 based 7-bit multilingual encoding, defined by
217  RFC 1554.  A subset of iso-2022-7bit-ss2.  RFC 1554.  A subset of iso-2022-7bit-ss2.  (Alias: csISO2022JP2 (IANA))
218    
219  =cut  =cut
220    
# Line 263  sub __2022__common ($) { Line 266  sub __2022__common ($) {
266  package Encode::ISO2022::SevenBit::KR;  package Encode::ISO2022::SevenBit::KR;
267  use vars qw/@ISA/;  use vars qw/@ISA/;
268  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
269  __PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit/);  __PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit csiso2022kr cp50225 kr2022/);
270    
271  =item iso-2022-kr  =item iso-2022-kr
272    
273  An ISO/IEC 2022 based 7-bit encoding for Korean,  An ISO/IEC 2022 based 7-bit encoding for Korean,
274  defined by RFC 1557 (Alias: korean-iso-7bit (emacsen))  defined by RFC 1557 (Alias: korean-iso-7bit (emacsen),
275    csISO2022KR (IANA), CP50225 (M$), KR2022)
276    
277  =cut  =cut
278    
# Line 365  sub __2022__common ($) { Line 369  sub __2022__common ($) {
369    $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5    $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5
370    $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6    $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6
371    $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7    $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7
372      $C->{option}->{designate_to}->{G94n}->{P0_0} = 1;     ## GB 12345
373      $C->{option}->{designate_to}->{G94n}->{P0_1} = 2;     ## GB 7589
374      $C->{option}->{designate_to}->{G94n}->{P0_2} = 2;     ## GB 13131
375      $C->{option}->{designate_to}->{G94n}->{P0_3} = 3;     ## GB 7590
376      $C->{option}->{designate_to}->{G94n}->{P0_4} = 3;     ## GB 13132
377    $C;    $C;
378  }  }
379  sub __2022_decode ($) {  sub __2022_decode ($) {
# Line 376  sub __2022_decode ($) { Line 385  sub __2022_decode ($) {
385  package Encode::ISO2022::SevenBit::CN;  package Encode::ISO2022::SevenBit::CN;
386  use vars qw/@ISA/;  use vars qw/@ISA/;
387  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
388  __PACKAGE__->Define (qw/iso-2022-cn chinese-iso-7bit/);  __PACKAGE__->Define (qw/iso-2022-cn chinese-iso-7bit  iso2022cn-cns iso2022cn-gb/);
389    
390  =item iso-2022-cn  =item iso-2022-cn
391    
# Line 426  sub __2022__common ($) { Line 435  sub __2022__common ($) {
435    $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5    $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5
436    $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6    $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6
437    $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7    $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7
438      $C->{option}->{designate_to}->{G94n}->{P0_0} = 1;     ## GB 12345
439      $C->{option}->{designate_to}->{G94n}->{P0_1} = 2;     ## GB 7589
440      $C->{option}->{designate_to}->{G94n}->{P0_2} = 2;     ## GB 13131
441      $C->{option}->{designate_to}->{G94n}->{P0_3} = 3;     ## GB 7590
442      $C->{option}->{designate_to}->{G94n}->{P0_4} = 3;     ## GB 13132
443      $C->{option}->{designate_to}->{G94n}->{P1_0} = 3;     ## CNS 11643 plane 8
444      $C->{option}->{designate_to}->{G94n}->{P1_1} = 3;     ## CNS 11643 plane 9
445      $C->{option}->{designate_to}->{G94n}->{P1_2} = 3;     ## CNS 11643 plane 10
446      $C->{option}->{designate_to}->{G94n}->{P1_3} = 3;     ## CNS 11643 plane 11
447      $C->{option}->{designate_to}->{G94n}->{P1_4} = 3;     ## CNS 11643 plane 12
448      $C->{option}->{designate_to}->{G94n}->{P1_5} = 3;     ## CNS 11643 plane 13
449      $C->{option}->{designate_to}->{G94n}->{P1_6} = 3;     ## CNS 11643 plane 14
450      $C->{option}->{designate_to}->{G94n}->{P2_0} = 3;     ## CNS 11643 plane 15
451      $C->{option}->{designate_to}->{G94n}->{P2_1} = 3;     ## CNS 11643 plane 16
452    $C;    $C;
453  }  }
454    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24