/[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.3 by wakaba, Fri Sep 20 14:01:45 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
# Line 79  sub __2022__common ($) { Line 79  sub __2022__common ($) {
79    $C;    $C;
80  }  }
81    
82  package Encode::ISO2022::EightBit::JISX0201Katakana7;  package Encode::ISO2022::JIS::JISX0201Katakana7;
83  use vars qw/@ISA/;  use vars qw/@ISA/;
84  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
85  __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
# Line 102  sub __2022__common ($) { Line 102  sub __2022__common ($) {
102    $C;    $C;
103  }  }
104    
105  package Encode::ISO2022::EightBit::JISX0201LatinKatakana7;  package Encode::ISO2022::JIS::JISX0201LatinKatakana7;
106  use vars qw/@ISA/;  use vars qw/@ISA/;
107  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
108  __PACKAGE__->Define (qw/jisx0201-1997-latin-katakana-7bit  __PACKAGE__->Define (qw/jisx0201-1997-latin-katakana-7bit
# Line 132  sub __2022_encode ($) { Line 132  sub __2022_encode ($) {
132    $C;    $C;
133  }  }
134    
135  package Encode::ISO2022::EightBit::JISX0201LatinKatakana8;  package Encode::ISO2022::JIS::JISX0201LatinKatakana8;
136  use vars qw/@ISA/;  use vars qw/@ISA/;
137  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
138  __PACKAGE__->Define (qw/jisx0201-1997-latin-latin-8bit/);  __PACKAGE__->Define (qw/jisx0201-1997-latin-latin-8bit/);
# Line 149  sub __2022__common ($) { Line 149  sub __2022__common ($) {
149    $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
150    $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
151    $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];    $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
152      $C->{option}->{C1invoke_to_right} = 1;
153    $C;    $C;
154  }  }
155    
156  package Encode::ISO2022::EightBit::JISX0208Kanji7;  package Encode::ISO2022::JIS::JISX0208Kanji7;
157  use vars qw/@ISA/;  use vars qw/@ISA/;
158  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
159  __PACKAGE__->Define (qw/jisx0208-1997-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0208-1997-kanji-7bit/);
# Line 170  sub __2022__common ($) { Line 171  sub __2022__common ($) {
171    $C;    $C;
172  }  }
173    
174  package Encode::ISO2022::EightBit::JISX0208Kanji8;  package Encode::ISO2022::JIS::JISX0208Kanji8;
175  use vars qw/@ISA/;  use vars qw/@ISA/;
176  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
177  __PACKAGE__->Define (qw/jisx0208-1997-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0208-1997-kanji-8bit/);
# Line 190  sub __2022__common ($) { Line 191  sub __2022__common ($) {
191    $C;    $C;
192  }  }
193    
194  package Encode::ISO2022::EightBit::JISX0208IRVKanji7;  package Encode::ISO2022::JIS::JISX0208IRVKanji7;
195  use vars qw/@ISA/;  use vars qw/@ISA/;
196  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
197  __PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-7bit/);
# Line 217  sub __2022_encode ($) { Line 218  sub __2022_encode ($) {
218    $C;    $C;
219  }  }
220    
221  package Encode::ISO2022::EightBit::JISX0208IRVKanji8;  package Encode::ISO2022::JIS::JISX0208IRVKanji8;
222  use vars qw/@ISA/;  use vars qw/@ISA/;
223  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
224  __PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-8bit/);
# Line 234  sub __2022__common ($) { Line 235  sub __2022__common ($) {
235    $C->{bit} = 8;    $C->{bit} = 8;
236    $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B};       ## ISO/IEC 646 IRV    $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B};       ## ISO/IEC 646 IRV
237    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
238      $C->{option}->{C1invoke_to_right} = 1;
239    $C;    $C;
240  }  }
241    
242  package Encode::ISO2022::EightBit::JISX0208LatinKanji7;  package Encode::ISO2022::JIS::JISX0208LatinKanji7;
243  use vars qw/@ISA/;  use vars qw/@ISA/;
244  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
245  __PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-7bit/);
# Line 264  sub __2022_encode ($) { Line 266  sub __2022_encode ($) {
266    $C;    $C;
267  }  }
268    
269  package Encode::ISO2022::EightBit::JISX0208LatinKanji8;  package Encode::ISO2022::JIS::JISX0208LatinKanji8;
270  use vars qw/@ISA/;  use vars qw/@ISA/;
271  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
272  __PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-8bit/);
# Line 280  sub __2022__common ($) { Line 282  sub __2022__common ($) {
282    $C->{bit} = 8;    $C->{bit} = 8;
283    $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
284    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
285      $C->{option}->{C1invoke_to_right} = 1;
286    $C;    $C;
287  }  }
288    
289  package Encode::ISO2022::EightBit::JISX0213Kanji7;  package Encode::ISO2022::JIS::JISX0213Kanji7;
290  use vars qw/@ISA/;  use vars qw/@ISA/;
291  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
292  __PACKAGE__->Define (qw/jisx0213-2000-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0213-2000-kanji-7bit/);
# Line 311  sub __2022_encode ($) { Line 314  sub __2022_encode ($) {
314    $C;    $C;
315  }  }
316    
317  package Encode::ISO2022::EightBit::JISX0213Kanji8;  package Encode::ISO2022::JIS::JISX0213Kanji8;
318  use vars qw/@ISA/;  use vars qw/@ISA/;
319  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
320  __PACKAGE__->Define (qw/jisx0213-2000-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0213-2000-kanji-8bit/);
# Line 328  sub __2022__common ($) { Line 331  sub __2022__common ($) {
331    $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1    $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1
332    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2    $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2
333    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
334      $C->{option}->{C1invoke_to_right} = 1;
335    $C;    $C;
336  }  }
337    
338  package Encode::ISO2022::EightBit::JISX0213IRVKanji7;  package Encode::ISO2022::JIS::JISX0213IRVKanji7;
339  use vars qw/@ISA/;  use vars qw/@ISA/;
340  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
341  __PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-7bit/);
# Line 361  sub __2022_encode ($) { Line 365  sub __2022_encode ($) {
365    $C;    $C;
366  }  }
367    
368  package Encode::ISO2022::EightBit::JISX0213IRVKanji8;  package Encode::ISO2022::JIS::JISX0213IRVKanji8;
369  use vars qw/@ISA/;  use vars qw/@ISA/;
370  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
371  __PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-8bit/);
# Line 382  sub __2022__common ($) { Line 386  sub __2022__common ($) {
386    $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;    $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
387    $C->{option}->{Ginvoke_to_left} = [1,0,0,0];    $C->{option}->{Ginvoke_to_left} = [1,0,0,0];
388    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
389      $C->{option}->{C1invoke_to_right} = 1;
390    $C;    $C;
391  }  }
392    
393  package Encode::ISO2022::EightBit::JISX0213LatinKanji7;  package Encode::ISO2022::JIS::JISX0213LatinKanji7;
394  use vars qw/@ISA/;  use vars qw/@ISA/;
395  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
396  __PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-7bit/);  __PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-7bit/);
# Line 415  sub __2022_encode ($) { Line 420  sub __2022_encode ($) {
420    $C;    $C;
421  }  }
422    
423  package Encode::ISO2022::EightBit::JISX0213LatinKanji8;  package Encode::ISO2022::JIS::JISX0213LatinKanji8;
424  use vars qw/@ISA/;  use vars qw/@ISA/;
425  push @ISA, 'Encode::ISO2022::JIS';  push @ISA, 'Encode::ISO2022::JIS';
426  __PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-8bit/);  __PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-8bit/);
# Line 435  sub __2022__common ($) { Line 440  sub __2022__common ($) {
440    $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;    $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
441    $C->{option}->{Ginvoke_to_left} = [1,0,0,0];    $C->{option}->{Ginvoke_to_left} = [1,0,0,0];
442    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];    $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
443      $C->{option}->{C1invoke_to_right} = 1;
444      $C;
445    }
446    
447    package Encode::ISO2022::JIS::JISX4001Text7;
448    use vars qw/@ISA/;
449    push @ISA, 'Encode::ISO2022::JIS';
450    __PACKAGE__->Define (qw/jisx4001-text-7bit/);
451    
452    =item jisx4001-text-7bit
453    
454    JIS X 4001-1989 text (7-bit code)
455    
456    =cut
457    
458    sub __2022__common ($) {
459      my $C = shift->SUPER::__2022__common;
460      $C->{bit} = 7;
461      $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{B};      ## JIS X 0208-1983
462      $C->{option}->{designate_to}->{G94}->{J} = 0; ## JIS X 0201 Roman
463      $C->{option}->{designate_to}->{G94n}->{B} = 0;        ## JIS X 0208-1983
464      $C;
465    }
466    
467    package Encode::ISO2022::JIS::JISX4001Text8;
468    use vars qw/@ISA/;
469    push @ISA, 'Encode::ISO2022::JIS::JISX4001Text7';
470    __PACKAGE__->Define (qw/jisx4001-text-8bit/);
471    
472    =item jisx4001-text-8bit
473    
474    JIS X 4001-1989 text (8-bit code)
475    
476    =cut
477    
478    sub __2022__common ($) {
479      my $C = shift->SUPER::__2022__common;
480      $C->{bit} = 7;
481      $C->{option}->{C1invoke_to_right} = 1;
482    $C;    $C;
483  }  }
484    
# Line 455  in Encode::ISO2022::RFC1345.) Line 499  in Encode::ISO2022::RFC1345.)
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.1  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24