/[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.5 by wakaba, Fri Sep 20 14:01:45 2002 UTC
# Line 47  sub __2022__common ($) { Line 47  sub __2022__common ($) {
47  }  }
48  sub __2022_encode ($) {  sub __2022_encode ($) {
49    my $C = shift->__2022__common;    my $C = shift->__2022__common;
50      $C->{GR} = undef;
51    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
52    $C;    $C;
53  }  }
# Line 60  package Encode::ISO2022::SevenBit::JP; Line 61  package Encode::ISO2022::SevenBit::JP;
61  use vars qw/@ISA/;  use vars qw/@ISA/;
62  push @ISA, 'Encode::ISO2022::SevenBit';  push @ISA, 'Encode::ISO2022::SevenBit';
63  __PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp  __PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp
64   cp50220 iso2022jp/);   iso2022jp/);
65    
66  =item iso-2022-jp  =item iso-2022-jp
67    
68  ISO/IEC 2022 based 7-bit encoding for Japanese.  ISO/IEC 2022 based 7-bit encoding for Japanese.
69  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.
70  (Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA),  (Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA))
 CP50220 (M$))  
71    
72  =cut  =cut
73    
# Line 90  sub __2022__common ($) { Line 90  sub __2022__common ($) {
90  }  }
91  sub __2022_encode ($) {  sub __2022_encode ($) {
92    my $C = shift->__2022__common;    my $C = shift->__2022__common;
93      $C->{GR} = undef;
94    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
95    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
96    $C;    $C;
# Line 110  ISO/IEC 2022 based 7-bit encoding for Ja Line 111  ISO/IEC 2022 based 7-bit encoding for Ja
111    
112  sub __2022_encode ($) {  sub __2022_encode ($) {
113    my $C = shift->__2022__common;    my $C = shift->__2022__common;
114      $C->{GR} = undef;
115    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman
116    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983
117    $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990    $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990
# Line 241  sub __2022__common ($) { Line 243  sub __2022__common ($) {
243  }  }
244  sub __2022_encode ($) {  sub __2022_encode ($) {
245    my $C = shift->__2022__common;    my $C = shift->__2022__common;
246      $C->{GR} = undef;
247    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
248    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
249    $C;    $C;
# Line 286  sub __2022__common ($) { Line 289  sub __2022__common ($) {
289  }  }
290  sub __2022_encode ($) {  sub __2022_encode ($) {
291    my $C = shift->__2022__common;    my $C = shift->__2022__common;
292      $C->{GR} = undef;
293    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
294    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
295    $C;    $C;
# Line 323  sub __2022__common ($) { Line 327  sub __2022__common ($) {
327  }  }
328  sub __2022_encode ($) {  sub __2022_encode ($) {
329    my $C = shift->__2022__common;    my $C = shift->__2022__common;
330      $C->{GR} = undef;
331    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
332    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
333    $C;    $C;
# Line 366  sub __2022__common ($) { Line 371  sub __2022__common ($) {
371  }  }
372  sub __2022_encode ($) {  sub __2022_encode ($) {
373    my $C = shift->__2022__common;    my $C = shift->__2022__common;
374      $C->{GR} = undef;
375    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
376    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
377    $C;    $C;
# Line 443  sub __2022__common ($) { Line 449  sub __2022__common ($) {
449  }  }
450  sub __2022_encode ($) {  sub __2022_encode ($) {
451    my $C = shift->__2022__common;    my $C = shift->__2022__common;
452      $C->{GR} = undef;
453    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
454    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
455    $C;    $C;
# Line 492  __END__ Line 499  __END__
499    
500  =head1 LICENSE  =head1 LICENSE
501    
502  Copyright 2002 wakaba <w@suika.fam.cx>  Copyright 2002 Wakaba <w@suika.fam.cx>
503    
504  This library is free software; you can redistribute it  This library is free software; you can redistribute it
505  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.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24