Parent Directory
| 
Revision Log
2001-12-24 wakaba <wakaba@suika.fam.cx> * M17N/: New directory.
| 1 | wakaba | 1.1 | |
| 2 | package M17N::Code::JA; | ||
| 3 | use strict; | ||
| 4 | use vars qw(%re %internalo); | ||
| 5 | |||
| 6 | %re = ( | ||
| 7 | 94x1 => qr/\x1B\x28([\x40-\x7D])((?:[\x21-\x7E])*)/, | ||
| 8 | 94x2 => qr/(?:\x1B\x26([\x40-\x7E]))?\x1B\x24\x28?([\x40-\x5F])((?:[\x21-\x7E][\x21-\x7E])*)/, | ||
| 9 | 96x1 => qr/\x1B\x2C([\x40-\x7D])((?:[\x20-\x7F])*)/, | ||
| 10 | utf8 => qr/\x1B\x25(?:\x47|\x2F[\x47-\x49])((?:[\x20-\x7F]|(?:[\xC0-\xFD][\x80-\xBF]+))*)\x1B\x25\x40/, | ||
| 11 | ); | ||
| 12 | %internalo = ( | ||
| 13 | 94x1 => 0xE90940, | ||
| 14 | 94x2 => 0xE9F6C0, | ||
| 15 | 96x1 => 0xE926A0, | ||
| 16 | jisx02081990 => 0xE9F6C0 + 94*94*79, | ||
| 17 | ); | ||
| 18 | %internalo = (%internalo, | ||
| 19 | jisx0201kana => $internalo{94x1} + 94 * (0x49-0x30), | ||
| 20 | jisx0201kana_end => $internalo{94x1} + 94 * (0x49-0x30+1) -1, | ||
| 21 | jisx0201latin => $internalo{94x1} + 94 * (0x4A-0x30), | ||
| 22 |