/[suikacvs]/perl/lib/Encode/ISO2022.pm
Suika

Diff of /perl/lib/Encode/ISO2022.pm

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

revision 1.1 by wakaba, Sun Sep 15 04:15:51 2002 UTC revision 1.2 by wakaba, Sun Sep 15 05:08:13 2002 UTC
# Line 11  use strict; Line 11  use strict;
11  use vars qw(%CHARSET $VERSION);  use vars qw(%CHARSET $VERSION);
12  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
13  use base qw(Encode::Encoding);  use base qw(Encode::Encoding);
14  __PACKAGE__->Define (qw/iso-2022 iso2022/);  __PACKAGE__->Define (qw/iso-2022 iso2022 2022 cp2022/);
15    
16  ### --- Intialization  ### --- Intialization
17    
# Line 555  sub internal_to_iso2022 ($\%) { Line 555  sub internal_to_iso2022 ($\%) {
555        my $c = $cc % 0x10000;        my $c = $cc % 0x10000;
556        $t = _i2g (chr((($c % 8836) / 94)+0x21).chr(($c % 94)+0x21), $C,        $t = _i2g (chr((($c % 8836) / 94)+0x21).chr(($c % 94)+0x21), $C,
557            type => 'G94n',            type => 'G94n',
558            charset_id => 'P'.int(($cc / 0x10000) - 0x7042).int($c / 8836),            charset_id => 'P'.int(($cc / 0x10000) - 0x7042).'_'.int($c / 8836),
559            charset => $C->{private_set}->{G94n}->[ ($cc / 0x10000) - 0x7042 ]            charset => $C->{private_set}->{G94n}->[ ($cc / 0x10000) - 0x7042 ]
560                         ->[ $c / 8836 ]);                         ->[ $c / 8836 ]);
561      }      }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24