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

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

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

revision 1.2 by wakaba, Mon Sep 16 11:00:41 2002 UTC revision 1.5 by wakaba, Sat Oct 12 07:27:01 2002 UTC
# Line 57  sub __2022_decode ($) { Line 57  sub __2022_decode ($) {
57    $C;    $C;
58  }  }
59    
60    sub __clone ($) {
61      my $self = shift;
62      bless {%$self}, ref $self;
63    };
64    
65  package Encode::ISO2022::JIS::JISX0201Latin7;  package Encode::ISO2022::JIS::JISX0201Latin7;
66  use vars qw/@ISA/;  use vars qw/@ISA/;
67  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
68  __PACKAGE__->Define (qw/jisx0201-1997-latin-7bit JIS_C6220-1969-ro  __PACKAGE__->Define (qw/jisx0201-1997-latin-7bit JIS_C6220-1969-ro
69   iso-ir-14 jp ISO646-JP csISO14JISC6220ro/);   iso-ir-14 ir14 jp ISO646-JP 646-jp csISO14JISC6220ro/);
70    
71  =item jisx0201-1997-latin-7bit  =item jisx0201-1997-latin-7bit
72    
73  JIS X 0201:1997 6.1 7-bit code for Latin.  JIS X 0201:1997 6.1 7-bit code for Latin.
74  (Alias: C<JIS_C6220-1969-ro> (RFC 1345), C<iso-ir-14> (RFC 1345),  (Alias: C<JIS_C6220-1969-ro> (RFC 1345), C<iso-ir-14> (RFC 1345),
75  C<jp> (RFC 1345), C<ISO646-JP> (RFC 1345), C<csISO14JISC6220ro> (IANA))  C<ir14>, C<jp> (RFC 1345), C<ISO646-JP> (RFC 1345), C<646-jp>,
76    C<csISO14JISC6220ro> (IANA))
77    
78  =cut  =cut
79    
# Line 75  sub __2022__common ($) { Line 81  sub __2022__common ($) {
81    my $C = shift->SUPER::__2022__common;    my $C = shift->SUPER::__2022__common;
82    $C->{bit} = 7;    $C->{bit} = 7;
83    $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin set    $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin set
84      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1};     ## RFC 1345 (not in JIS)
85      $C->{G3} = $C->{G1};
86    $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];    $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
87    $C;    $C;
88  }  }
# Line 83  package Encode::ISO2022::JIS::JISX0201Ka Line 91  package Encode::ISO2022::JIS::JISX0201Ka
91  use vars qw/@ISA/;  use vars qw/@ISA/;
92  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
93  __PACKAGE__->Define (qw/jisx0201-1997-katakana-7bit JIS_C6220-1969-jp JIS_C6220-1969  __PACKAGE__->Define (qw/jisx0201-1997-katakana-7bit JIS_C6220-1969-jp JIS_C6220-1969
94   iso-ir-13 katakana x0201-7 csISO13JISC6220jp/);   iso-ir-13 ir13 katakana x0201-7 csISO13JISC6220jp/);
95    
96  =item jisx0201-1997-katakana-7bit  =item jisx0201-1997-katakana-7bit
97    
98  JIS X 0201:1997 6.2 7-bit code for Katakana  JIS X 0201:1997 6.2 7-bit code for Katakana
99  (Alias: JIS_C6220-1969-jp (RFC 1345), JIS_C6220-1969 (RFC 1345),  (Alias: JIS_C6220-1969-jp (RFC 1345), JIS_C6220-1969 (RFC 1345),
100  iso-ir-13 (RFC 1345), katakana (RFC 1345), x0201-7 (RFC 1345),  iso-ir-13 (RFC 1345), ir13, katakana (RFC 1345), x0201-7 (RFC 1345),
101  csISO13JISC6220jp (IANA))  csISO13JISC6220jp (IANA))
102    
103  =cut  =cut
# Line 98  sub __2022__common ($) { Line 106  sub __2022__common ($) {
106    my $C = shift->SUPER::__2022__common;    my $C = shift->SUPER::__2022__common;
107    $C->{bit} = 7;    $C->{bit} = 7;
108    $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{I};       ## JIS X 0201:1997 Katakana set    $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{I};       ## JIS X 0201:1997 Katakana set
109      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1};     ## RFC 1345 (not in JIS)
110      $C->{G3} = $C->{G1};
111    $C->{option}->{undef_char} = ["\x25", {type => 'G94', charset => 'I'}];    $C->{option}->{undef_char} = ["\x25", {type => 'G94', charset => 'I'}];
112    $C;    $C;
113  }  }
# Line 499  in Encode::ISO2022::RFC1345.) Line 509  in Encode::ISO2022::RFC1345.)
509    
510  =head1 LICENSE  =head1 LICENSE
511    
512  Copyright 2002 wakaba <w@suika.fam.cx>  Copyright 2002 Wakaba <w@suika.fam.cx>
513    
514  This library is free software; you can redistribute it  This library is free software; you can redistribute it
515  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.2  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24