/[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.3 by wakaba, Fri Sep 20 14:01:45 2002 UTC revision 1.4 by wakaba, Sun Sep 22 11:08:23 2002 UTC
# Line 61  package Encode::ISO2022::JIS::JISX0201La Line 61  package Encode::ISO2022::JIS::JISX0201La
61  use vars qw/@ISA/;  use vars qw/@ISA/;
62  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
63  __PACKAGE__->Define (qw/jisx0201-1997-latin-7bit JIS_C6220-1969-ro  __PACKAGE__->Define (qw/jisx0201-1997-latin-7bit JIS_C6220-1969-ro
64   iso-ir-14 jp ISO646-JP csISO14JISC6220ro/);   iso-ir-14 ir14 jp ISO646-JP 646-jp csISO14JISC6220ro/);
65    
66  =item jisx0201-1997-latin-7bit  =item jisx0201-1997-latin-7bit
67    
68  JIS X 0201:1997 6.1 7-bit code for Latin.  JIS X 0201:1997 6.1 7-bit code for Latin.
69  (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),
70  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>,
71    C<csISO14JISC6220ro> (IANA))
72    
73  =cut  =cut
74    
# Line 75  sub __2022__common ($) { Line 76  sub __2022__common ($) {
76    my $C = shift->SUPER::__2022__common;    my $C = shift->SUPER::__2022__common;
77    $C->{bit} = 7;    $C->{bit} = 7;
78    $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
79      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1};     ## RFC 1345 (not in JIS)
80      $C->{G3} = $C->{G1};
81    $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];    $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
82    $C;    $C;
83  }  }
# Line 83  package Encode::ISO2022::JIS::JISX0201Ka Line 86  package Encode::ISO2022::JIS::JISX0201Ka
86  use vars qw/@ISA/;  use vars qw/@ISA/;
87  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
88  __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
89   iso-ir-13 katakana x0201-7 csISO13JISC6220jp/);   iso-ir-13 ir13 katakana x0201-7 csISO13JISC6220jp/);
90    
91  =item jisx0201-1997-katakana-7bit  =item jisx0201-1997-katakana-7bit
92    
93  JIS X 0201:1997 6.2 7-bit code for Katakana  JIS X 0201:1997 6.2 7-bit code for Katakana
94  (Alias: JIS_C6220-1969-jp (RFC 1345), JIS_C6220-1969 (RFC 1345),  (Alias: JIS_C6220-1969-jp (RFC 1345), JIS_C6220-1969 (RFC 1345),
95  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),
96  csISO13JISC6220jp (IANA))  csISO13JISC6220jp (IANA))
97    
98  =cut  =cut
# Line 98  sub __2022__common ($) { Line 101  sub __2022__common ($) {
101    my $C = shift->SUPER::__2022__common;    my $C = shift->SUPER::__2022__common;
102    $C->{bit} = 7;    $C->{bit} = 7;
103    $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
104      $C->{G1} = $C->{G0}; $C->{G2} = $C->{G1};     ## RFC 1345 (not in JIS)
105      $C->{G3} = $C->{G1};
106    $C->{option}->{undef_char} = ["\x25", {type => 'G94', charset => 'I'}];    $C->{option}->{undef_char} = ["\x25", {type => 'G94', charset => 'I'}];
107    $C;    $C;
108  }  }
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24