/[suikacvs]/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.1 by wakaba, Fri Sep 20 14:01:45 2002 UTC revision 1.3 by wakaba, Sat Oct 12 07:27:01 2002 UTC
# Line 106  $CHARSET{G96}->{A}->{ucs} = 0xA0;      ## ISO Line 106  $CHARSET{G96}->{A}->{ucs} = 0xA0;      ## ISO
106  $CHARSET{G94n}->{'B@'}->{dimension} = 2;        ## JIS X 0208-1990  $CHARSET{G94n}->{'B@'}->{dimension} = 2;        ## JIS X 0208-1990
107  $CHARSET{G94n}->{'B@'}->{chars} = 94;  $CHARSET{G94n}->{'B@'}->{chars} = 94;
108  $CHARSET{G94n}->{'B@'}->{ucs} = 0xE9F6C0 + 94*94*79;  $CHARSET{G94n}->{'B@'}->{ucs} = 0xE9F6C0 + 94*94*79;
109      
110      ## SJIS G3 mapping (JIS X 0213:2000 plane 2)
111      $CHARSET{G94n}->{"\x50"}->{Csjis_kuE} = { # ku - 1
112        0xF0 => 7,  0xF1 => 3,  0xF2 => 11, 0xF3 => 13, 0xF4 => 77,
113        0xF5 => 79, 0xF6 => 81, 0xF7 => 83, 0xF8 => 85, 0xF9 => 87,
114        0xFA => 89, 0xFB => 91, 0xFC => 93,
115      };
116      $CHARSET{G94n}->{"\x50"}->{Csjis_kuO} = { # ku - 1
117        0xF0  => 0,  0xF1 => 2,  0xF2 => 4,  0xF3 => 12, 0xF4 => 14,
118        0xF5  => 78, 0xF6 => 80, 0xF7 => 82, 0xF8 => 84, 0xF9 => 86,
119        0xFA  => 88, 0xFB => 90, 0xFC => 92,
120      };