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

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

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

revision 1.3 by wakaba, Sat Oct 12 07:27:01 2002 UTC revision 1.4 by wakaba, Sat Oct 12 11:03:00 2002 UTC
# Line 67  for my $f (0x30..0x5F, 0x7E) { Line 67  for my $f (0x30..0x5F, 0x7E) {
67      $CHARSET{G96n}->{ $_.$F }->{chars} = 96;      $CHARSET{G96n}->{ $_.$F }->{chars} = 96;
68      $CHARSET{G96n}->{ $_.$F }->{ucs} =      $CHARSET{G96n}->{ $_.$F }->{ucs} =
69        ({'' => 0xF4C000}->{ $_ }||0) + 96*96 * ($f-0x30);        ({'' => 0xF4C000}->{ $_ }||0) + 96*96 * ($f-0x30);
70        ## BUG: 94^n DRCSes with I byte have no mapping area        ## BUG: 96^n DRCSes with I byte have no mapping area
71    }    }
72  }  }
73      $CHARSET{G94n}->{"\x20\x40"}->{ucs} = 0x70460000;     ## DRCS 94^2 04/00
74      
75  for (0x60..0x6F) {  for (0x60..0x6F) {
76    my $F = pack 'C', $_;    my $F = pack 'C', $_;
77    ## BUG: 9x^3 sets have no mapping area    ## BUG: 9x^3 sets have no mapping area
# Line 243  sub new_object { Line 245  sub new_object {
245                  C0      => [],                  C0      => [],
246                  C1      => [],                  C1      => [],
247                  G94     => [],                  G94     => [],
248                  G94n    => [[],[],[],[],[]],                  G94n    => [[],[],[],[],["\x20\x40"]],
249                  G96     => [],                  G96     => [],
250                  #G96n   => [],  ## (not implemented)                  #G96n   => [],  ## (not implemented)
251                  U96n    => [],  ## mule-unicode sets                  U96n    => [],  ## mule-unicode sets
# Line 258  sub new_object { Line 260  sub new_object {
260          undef_char      => ["\x3F", {type => 'G94', charset => 'B'}],          undef_char      => ["\x3F", {type => 'G94', charset => 'B'}],
261          use_revision    => 1,   ## Output IRR          use_revision    => 1,   ## Output IRR
262    };    };
   ## Special code area (such as 0xFD-0xFF of sjis'es)  
   $C{Gsmap} = {"\xA0" => "\x{F8F0}", "\xFD" => "\x{F8F1}", "\xFE" => "\x{F8F2}", "\xFF" => "\x{F8F3}"};  
   $C{GsmapR} = {};      ## Reversed table  
263    \%C;    \%C;
264  }  }
265    
# Line 269  sub new_object_sjis { Line 268  sub new_object_sjis {
268    $C->{coding_system} = $CODING_SYSTEM{Csjis};    $C->{coding_system} = $CODING_SYSTEM{Csjis};
269    $C->{CR} = undef;    $C->{CR} = undef;
270    $C->{GR} = 'G2';      ## 0xA1-0xDF    $C->{GR} = 'G2';      ## 0xA1-0xDF
271    #$C->{G0} = $CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin    $C->{G0} = $CHARSET{G94}->{J};        ## JIS X 0201:1997 Latin
272    $C->{G1} = $CHARSET{G94n}->{'B@'};    ## JIS X 0208:1997    $C->{G1} = $CHARSET{G94n}->{"\x4F"};  ## JIS X 0213:2000
273    $C->{G2} = $CHARSET{G94}->{I};        ## JIS X 0201:1997 Katakana    $C->{G2} = $CHARSET{G94}->{I};        ## JIS X 0201:1997 Katakana
274    $C->{G3} = $CHARSET{G94n}->{"\x50"};  ## JIS X 0213:2000 plane 2    $C->{G3} = $CHARSET{G94n}->{"\x50"};  ## JIS X 0213:2000 plane 2
275      ## Special code area (0xFD-0xFF)
276      $C->{Gsmap} = {"\xA0" => "\x{F8F0}", "\xFD" => "\x{F8F1}", "\xFE" => "\x{F8F2}", "\xFF" => "\x{F8F3}"};
277      $C->{GsmapR} = {};    ## Reversed table
278      $C->{option}->{undef_char_sjis} = "\x81\xAC";
279    $C;    $C;
280  }  }
281    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24