Encode/Charset/Pictogram.pm


=head1 NAME

Encode::Charset::Pictogram --- Coded character sets objects,
used by Encode::ISO2022, Encode::SJIS, and other modules
--- Coded character sets of pictograms

=cut

package Encode::Charset::Pictogram;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
require Encode::Charset;

sub import ($;@) {
  #shift;
  #my %item;
  #for (@_) {
  #  $item{$_} = 1;
  #}
  #if ($item{':foo'}) {
    $Encode::Charset::CHARSET{G256n}->{CSimode_g3} = {
        chars => 188, dimension => 2, rows => 3, ucs => 0x7100E524,
        Csjis_ku => {0xF7 => 0, 0xF8 => 1, 0xF9 => 2},
        Csjis_first => {0 => 0xF7, 1 => 0xF8, 2 => 0xF9},
    };
    $Encode::Charset::CHARSET{G256n}->{CSlmode_g3} = {
        chars => 188, dimension => 2, rows => 4, ucs => 0x7100E524,
        Csjis_ku => {0xF7 => 3, 0xF8 => 1, 0xF9 => 2},
        Csjis_first => {3 => 0xF7, 1 => 0xF8, 2 => 0xF9},
    };
    $Encode::Charset::CHARSET{G256n}->{CSdoti_g3} = {
        chars => 188, dimension => 2, rows => 4, ucs => 0x7100E000,
        Csjis_ku => {0xF0 => 0, 0xF1 => 1, 0xF2 => 2, 0xF3 => 3, 0xF4 => 4},
        Csjis_first => {0 => 0xF0, 1 => 0xF1, 2 => 0xF2, 3 => 0xF3, 4 => 0xF4},
    };
    for (101..106) {
      $Encode::Charset::CHARSET{G94}->{'P'.$_} = {
        chars => 94, dimension => 1, ucs => 0x70400000 + 94*$_,
      };
      $Encode::Charset::CHARSET{G94}->{ 'CSpictogram_page_'.($_-100) }
        = $Encode::Charset::CHARSET{G94}->{'P'.$_};
    }
  #}
  1;
}

=head1 EXAMPLE

  use Encode::Charset::Pictgram qw(:all);

=head1 SEE ALSO

L<Encode::SJIS::Pictogram/"SEE ALSO">

=head1 LICENSE

Copyright 2002 Nanashi-san  <nanashi-san@nanashi.invalid>

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/16 10:39:05 $
1	wakaba	1.1
2			=head1 NAME
3
4			Encode::Charset::Pictogram --- Coded character sets objects,
5			used by Encode::ISO2022, Encode::SJIS, and other modules
6			--- Coded character sets of pictograms
7
8			=cut
9
10			package Encode::Charset::Pictogram;
11			use strict;
12			our $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
13			require Encode::Charset;
14
15			sub import ($;@) {
16			#shift;
17			#my %item;
18			#for (@_) {
19			# $item{$_} = 1;
20			#}
21			#if ($item{':foo'}) {
22			$Encode::Charset::CHARSET{G256n}->{CSimode_g3} = {
23			chars => 188, dimension => 2, rows => 3, ucs => 0x7100E524,
24			Csjis_ku => {0xF7 => 0, 0xF8 => 1, 0xF9 => 2},
25			Csjis_first => {0 => 0xF7, 1 => 0xF8, 2 => 0xF9},
26			};
27			$Encode::Charset::CHARSET{G256n}->{CSlmode_g3} = {
28			chars => 188, dimension => 2, rows => 4, ucs => 0x7100E524,
29			Csjis_ku => {0xF7 => 3, 0xF8 => 1, 0xF9 => 2},
30			Csjis_first => {3 => 0xF7, 1 => 0xF8, 2 => 0xF9},
31			};
32			$Encode::Charset::CHARSET{G256n}->{CSdoti_g3} = {
33			chars => 188, dimension => 2, rows => 4, ucs => 0x7100E000,
34			Csjis_ku => {0xF0 => 0, 0xF1 => 1, 0xF2 => 2, 0xF3 => 3, 0xF4 => 4},
35			Csjis_first => {0 => 0xF0, 1 => 0xF1, 2 => 0xF2, 3 => 0xF3, 4 => 0xF4},
36			};
37			for (101..106) {
38			$Encode::Charset::CHARSET{G94}->{'P'.$_} = {
39			chars => 94, dimension => 1, ucs => 0x70400000 + 94*$_,
40			};
41			$Encode::Charset::CHARSET{G94}->{ 'CSpictogram_page_'.($_-100) }
42			= $Encode::Charset::CHARSET{G94}->{'P'.$_};
43			}
44			#}
45			1;
46			}
47
48			=head1 EXAMPLE
49
50			use Encode::Charset::Pictgram qw(:all);
51
52			=head1 SEE ALSO
53
54			L<Encode::SJIS::Pictogram/"SEE ALSO">
55
56			=head1 LICENSE
57
58			Copyright 2002 Nanashi-san <nanashi-san@nanashi.invalid>
59
60			This library is free software; you can redistribute it
61			and/or modify it under the same terms as Perl itself.
62
63			=cut
64
65			1; # $Date: 2002/10/16 10:39:05 $