Table/tool/internal.pl

=head1 NAME

internal.pl --- Utilities to get information of internal code
(to generate dumped script).

=head1 DESCRIPTION

This library collects functions and constants of internal
coding system properties.  Internal code allocation is
temporary so that (pre-dumped) source script should not
be embeded internal code related information (such as
code point of a character from ISO-IR) as far as possible.

=cut

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)
  } elsif ($o{charset_chars} == 94 && $o{charset_dimension} == 1
    && length $o{charset_final_byte}) {
    0xE90940 + 94*(ord ($o{charset_final_byte})-0x30)
  }
}

=head1 SEE ALSO

Encode::Table, Encode::ISO2022, tbl2pm.pl

=head1 AUTHOR

Nanashi-san

=head1 LICENSE

Copyright 2002 AUTHOR

This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

=cut

1; ## $Date: 2002/10/05 01:34:55 $
### internal.pl ends here
1	wakaba	1.2	=head1 NAME
2
3			internal.pl --- Utilities to get information of internal code
4			(to generate dumped script).
5
6			=head1 DESCRIPTION
7
8			This library collects functions and constants of internal
9			coding system properties. Internal code allocation is
10			temporary so that (pre-dumped) source script should not
11			be embeded internal code related information (such as
12			code point of a character from ISO-IR) as far as possible.
13
14			=cut
15
16	wakaba	1.1	package internal;
17			use strict;
18			use 5.7.3;
19
20			use vars qw/%cp_start/;
21
22			%cp_start = (
23			jisx0208_1990 => 0xE9F6C0 + 949479,
24			);
25
26			sub cp_start (%) {
27			my %o = @_;
28			if ($o{charset_chars} == 94 && $o{charset_dimension} == 2
29			&& length $o{charset_final_byte}) {
30			0xE9F6C0 + 9494(ord ($o{charset_final_byte})-0x30)
31	wakaba	1.3	} elsif ($o{charset_chars} == 94 && $o{charset_dimension} == 1
32			&& length $o{charset_final_byte}) {
33			0xE90940 + 94*(ord ($o{charset_final_byte})-0x30)
34	wakaba	1.1	}
35			}
36
37	wakaba	1.2	=head1 SEE ALSO
38
39			Encode::Table, Encode::ISO2022, tbl2pm.pl
40
41			=head1 AUTHOR
42
43			Nanashi-san
44
45			=head1 LICENSE
46
47			Copyright 2002 AUTHOR
48
49			This library is free software; you can redistribute it
50			and/or modify it under the same terms as Perl itself.
51
52			=cut
53
54	wakaba	1.3	1; ## $Date: 2002/10/05 01:34:55 $
55	wakaba	1.1	### internal.pl ends here