/[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.1 by wakaba, Mon Sep 16 06:34:35 2002 UTC revision 1.4 by wakaba, Sun Sep 22 11:08:23 2002 UTC
# Line 57  sub __2022_decode ($) { Line 57  sub __2022_decode ($) {
57    $C;    $C;
58  }  }
59    
60  package Encode::ISO2022::EightBit::JISX0201Latin7;  package Encode::ISO2022::JIS::JISX0201Latin7;
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  }  }
84    
85  package Encode::ISO2022::EightBit::JISX0201Katakana7;  package Encode::ISO2022::JIS::JISX0201Katakana7;
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  }  }
109    
110  package Encode::ISO2022::EightBit::JISX0201LatinKatakana7;  package Encode::ISO2022::JIS::JISX0201LatinKatakana7;
111  use vars qw/@ISA/;  use vars qw/@ISA/;
112  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
113  __PACKAGE__->Define (qw/jisx0201-1997-latin-katakana-7bit  __PACKAGE__->Define (qw/jisx0201-1997-latin-katakana-7bit
# Line 132  sub __2022_encode ($) { Line 137  sub __2022_encode ($) {
137    $C;    $C;
138  }  }
139    
140  package Encode::ISO2022::EightBit::JISX0201LatinKatakana8;  package Encode::ISO2022::JIS::JISX0201LatinKatakana8;
141  use vars qw/@ISA/;  use vars qw/@ISA/;
142  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
143  __PACKAGE__->Define (qw/jisx0201-1997-latin-latin-8bit/);  __PACKAGE__->Define (qw/jisx0201-1997-latin-latin-8bit/);
# Line 149  sub __2022__common ($) { Line 154  sub __2022__common ($) {
154    $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
155    $C->{G1} = $Encode::ISO2022::CHARSET{G94}->{I};       ## JIS X 0201:1997 Katakana set    $C->{G1} = $Encode::ISO2022::CHARSET{G94}->{I};       ## JIS X 0201:1997 Katakana set
156    $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];    $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
157      $C->{option}->{C1invoke_to_right} = 1;
158    $C;    $C;
159  }  }
160    
161  package Encode::ISO2022::EightBit::JISX0208Kanji7;  package Encode::ISO2022::JIS::JISX0208Kanji7;
162  use vars qw/@ISA/;  use vars qw/@ISA/;
163  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
164  __PACKAGE__->Define (qw/jisx0208-1997-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0208-1997-kanji-7bit/);
# Line 170  sub __2022__common ($) { Line 176  sub __2022__common ($) {
176    $C;    $C;
177  }  }
178    
179  package Encode::ISO2022::EightBit::JISX0208Kanji8;  package Encode::ISO2022::JIS::JISX0208Kanji8;
180  use vars qw/@ISA/;  use vars qw/@ISA/;
181  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
182  __PACKAGE__->Define (qw/jisx0208-1997-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0208-1997-kanji-8bit/);
# Line 190  sub __2022__common ($) { Line 196  sub __2022__common ($) {
196    $C;    $C;
197  }  }
198    
199  package Encode::ISO2022::EightBit::JISX0208IRVKanji7;  package Encode::ISO2022::JIS::JISX0208IRVKanji7;
200  use vars qw/@ISA/;  use vars qw/@ISA/;
201  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
202  __PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-7bit/);
# Line 217  sub __2022_encode ($) { Line 223  sub __2022_encode ($) {
223    $C;    $C;
224  }  }
225    
226  package Encode::ISO2022::EightBit::JISX0208IRVKanji8;  package Encode::ISO2022::JIS::JISX0208IRVKanji8;
227  use vars qw/@ISA/;  use vars qw/@ISA/;
228  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
229  __PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-8bit/);
# Line 234  sub __2022__common ($) { Line 240  sub __2022__common ($) {
240    $C->{bit} = 8;    $C->{bit} = 8;
241    $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B};       ## ISO/IEC 646 IRV    $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B};       ## ISO/IEC 646 IRV
242    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
243      $C->{option}->{C1invoke_to_right} = 1;
244    $C;    $C;
245  }  }
246    
247  package Encode::ISO2022::EightBit::JISX0208LatinKanji7;  package Encode::ISO2022::JIS::JISX0208LatinKanji7;
248  use vars qw/@ISA/;  use vars qw/@ISA/;
249  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
250  __PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-7bit/);
# Line 264  sub __2022_encode ($) { Line 271  sub __2022_encode ($) {
271    $C;    $C;
272  }  }
273    
274  package Encode::ISO2022::EightBit::JISX0208LatinKanji8;  package Encode::ISO2022::JIS::JISX0208LatinKanji8;
275  use vars qw/@ISA/;  use vars qw/@ISA/;
276  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
277  __PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-8bit/);
# Line 280  sub __2022__common ($) { Line 287  sub __2022__common ($) {
287    $C->{bit} = 8;    $C->{bit} = 8;
288    $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
289    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
290      $C->{option}->{C1invoke_to_right} = 1;
291    $C;    $C;
292  }  }
293    
294  package Encode::ISO2022::EightBit::JISX0213Kanji7;  package Encode::ISO2022::JIS::JISX0213Kanji7;
295  use vars qw/@ISA/;  use vars qw/@ISA/;
296  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
297  __PACKAGE__->Define (qw/jisx0213-2000-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0213-2000-kanji-7bit/);
# Line 311  sub __2022_encode ($) { Line 319  sub __2022_encode ($) {
319    $C;    $C;
320  }  }
321    
322  package Encode::ISO2022::EightBit::JISX0213Kanji8;  package Encode::ISO2022::JIS::JISX0213Kanji8;
323  use vars qw/@ISA/;  use vars qw/@ISA/;
324  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
325  __PACKAGE__->Define (qw/jisx0213-2000-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0213-2000-kanji-8bit/);
# Line 328  sub __2022__common ($) { Line 336  sub __2022__common ($) {
336    $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1    $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1
337    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2
338    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
339      $C->{option}->{C1invoke_to_right} = 1;
340    $C;    $C;
341  }  }
342    
343  package Encode::ISO2022::EightBit::JISX0213IRVKanji7;  package Encode::ISO2022::JIS::JISX0213IRVKanji7;
344  use vars qw/@ISA/;  use vars qw/@ISA/;
345  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
346  __PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-7bit/);
# Line 361  sub __2022_encode ($) { Line 370  sub __2022_encode ($) {
370    $C;    $C;
371  }  }
372    
373  package Encode::ISO2022::EightBit::JISX0213IRVKanji8;  package Encode::ISO2022::JIS::JISX0213IRVKanji8;
374  use vars qw/@ISA/;  use vars qw/@ISA/;
375  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
376  __PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-8bit/);
# Line 382  sub __2022__common ($) { Line 391  sub __2022__common ($) {
391    $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;    $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
392    $C->{option}->{Ginvoke_to_left} = [1,0,0,0];    $C->{option}->{Ginvoke_to_left} = [1,0,0,0];
393    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
394      $C->{option}->{C1invoke_to_right} = 1;
395    $C;    $C;
396  }  }
397    
398  package Encode::ISO2022::EightBit::JISX0213LatinKanji7;  package Encode::ISO2022::JIS::JISX0213LatinKanji7;
399  use vars qw/@ISA/;  use vars qw/@ISA/;
400  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
401  __PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-7bit/);
# Line 415  sub __2022_encode ($) { Line 425  sub __2022_encode ($) {
425    $C;    $C;
426  }  }
427    
428  package Encode::ISO2022::EightBit::JISX0213LatinKanji8;  package Encode::ISO2022::JIS::JISX0213LatinKanji8;
429  use vars qw/@ISA/;  use vars qw/@ISA/;
430  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
431  __PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-8bit/);
# Line 435  sub __2022__common ($) { Line 445  sub __2022__common ($) {
445    $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;    $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
446    $C->{option}->{Ginvoke_to_left} = [1,0,0,0];    $C->{option}->{Ginvoke_to_left} = [1,0,0,0];
447    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
448      $C->{option}->{C1invoke_to_right} = 1;
449      $C;
450    }
451    
452    package Encode::ISO2022::JIS::JISX4001Text7;
453    use vars qw/@ISA/;
454    push @ISA, 'Encode::ISO2022::JIS';
455    __PACKAGE__->Define (qw/jisx4001-text-7bit/);
456    
457    =item jisx4001-text-7bit
458    
459    JIS X 4001-1989 text (7-bit code)
460    
461    =cut
462    
463    sub __2022__common ($) {
464      my $C = shift->SUPER::__2022__common;
465      $C->{bit} = 7;
466      $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{B};      ## JIS X 0208-1983
467      $C->{option}->{designate_to}->{G94}->{J} = 0; ## JIS X 0201 Roman
468      $C->{option}->{designate_to}->{G94n}->{B} = 0;        ## JIS X 0208-1983
469      $C;
470    }
471    
472    package Encode::ISO2022::JIS::JISX4001Text8;
473    use vars qw/@ISA/;
474    push @ISA, 'Encode::ISO2022::JIS::JISX4001Text7';
475    __PACKAGE__->Define (qw/jisx4001-text-8bit/);
476    
477    =item jisx4001-text-8bit
478    
479    JIS X 4001-1989 text (8-bit code)
480    
481    =cut
482    
483    sub __2022__common ($) {
484      my $C = shift->SUPER::__2022__common;
485      $C->{bit} = 7;
486      $C->{option}->{C1invoke_to_right} = 1;
487    $C;    $C;
488  }  }
489    
# Line 455  in Encode::ISO2022::RFC1345.) Line 504  in Encode::ISO2022::RFC1345.)
504    
505  =head1 LICENSE  =head1 LICENSE
506    
507  Copyright 2002 wakaba <w@suika.fam.cx>  Copyright 2002 Wakaba <w@suika.fam.cx>
508    
509  This library is free software; you can redistribute it  This library is free software; you can redistribute it
510  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.1  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24