/[pub]/test/oldencodeutils/lib/Encode/Charset.pm
Suika

Diff of /test/oldencodeutils/lib/Encode/Charset.pm

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

revision 1.2 by wakaba, Sat Sep 21 01:34:08 2002 UTC revision 1.6 by wakaba, Sat Dec 14 11:02:25 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      $CHARSET{G94n}->{P4_0} = $CHARSET{G94n}->{"\x20\x40"};
75      
76  for (0x60..0x6F) {  for (0x60..0x6F) {
77    my $F = pack 'C', $_;    my $F = pack 'C', $_;
78    ## BUG: 9x^3 sets have no mapping area    ## BUG: 9x^3 sets have no mapping area
# Line 106  $CHARSET{G96}->{A}->{ucs} = 0xA0;      ## ISO Line 109  $CHARSET{G96}->{A}->{ucs} = 0xA0;      ## ISO
109  $CHARSET{G94n}->{'B@'}->{dimension} = 2;        ## JIS X 0208-1990  $CHARSET{G94n}->{'B@'}->{dimension} = 2;        ## JIS X 0208-1990
110  $CHARSET{G94n}->{'B@'}->{chars} = 94;  $CHARSET{G94n}->{'B@'}->{chars} = 94;