/[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.4 by wakaba, Mon Sep 16 06:34:35 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 90  sub __2022__common ($) { Line 91  sub __2022__common ($) {
91  }  }
92  sub __2022_encode ($) {  sub __2022_encode ($) {
93    my $C = shift->__2022__common;    my $C = shift->__2022__common;
94      $C->{GR} = undef;
95    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
96    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
97    $C;    $C;
# Line 110  ISO/IEC 2022 based 7-bit encoding for Ja Line 112  ISO/IEC 2022 based 7-bit encoding for Ja
112    
113  sub __2022_encode ($) {  sub __2022_encode ($) {
114    my $C = shift->__2022__common;    my $C = shift->__2022__common;
115      $C->{GR} = undef;
116    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman    $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman
117    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983    $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983
118    $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 244  sub __2022__common ($) {
244  }  }
245  sub __2022_encode ($) {  sub __2022_encode ($) {
246    my $C = shift->__2022__common;    my $C = shift->__2022__common;
247      $C->{GR} = undef;
248    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
249    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
250    $C;    $C;
# Line 286  sub __2022__common ($) { Line 290  sub __2022__common ($) {
290  }  }
291  sub __2022_encode ($) {  sub __2022_encode ($) {
292    my $C = shift->__2022__common;    my $C = shift->__2022__common;
293      $C->{GR} = undef;
294    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
295    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
296    $C;    $C;
# Line 323  sub __2022__common ($) { Line 328  sub __2022__common ($) {
328  }  }
329  sub __2022_encode ($) {  sub __2022_encode ($) {
330    my $C = shift->__2022__common;    my $C = shift->__2022__common;
331      $C->{GR} = undef;
332    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
333    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
334    $C;    $C;
# Line 366  sub __2022__common ($) { Line 372  sub __2022__common ($) {
372  }  }
373  sub __2022_encode ($) {  sub __2022_encode ($) {
374    my $C = shift->__2022__common;    my $C = shift->__2022__common;
375      $C->{GR} = undef;
376    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
377    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
378    $C;    $C;
# Line 443  sub __2022__common ($) { Line 450  sub __2022__common ($) {
450  }  }
451  sub __2022_encode ($) {  sub __2022_encode ($) {
452    my $C = shift->__2022__common;    my $C = shift->__2022__common;
453      $C->{GR} = undef;
454    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set    $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
455    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set    $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
456    $C;    $C;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24