Table/tool/internal.pl

package internal;
use strict;
use 5.7.3;

use vars qw/%cp_start/;

%cp_start = (
        jisx0208_1990   => 0xE9F6C0 + 94*94*79,
);

sub cp_start (%) {
  my %o = @_;
  if ($o{charset_chars} == 94 && $o{charset_dimension} == 2
    && length $o{charset_final_byte}) {
    0xE9F6C0 + 94*94*(ord ($o{charset_final_byte})-0x30)
  }
}

1; ## $Date: 2002/08/28 09:45:59 $
### internal.pl ends here
1	wakaba	1.1	package internal;
2			use strict;
3			use 5.7.3;
4
5			use vars qw/%cp_start/;
6
7			%cp_start = (
8			jisx0208_1990 => 0xE9F6C0 + 949479,
9			);
10
11			sub cp_start (%) {
12			my %o = @_;
13			if ($o{charset_chars} == 94 && $o{charset_dimension} == 2
14			&& length $o{charset_final_byte}) {
15			0xE9F6C0 + 9494(ord ($o{charset_final_byte})-0x30)
16			}
17			}
18
19			1; ## $Date: 2002/08/28 09:45:59 $
20			### internal.pl ends here