Encode/SJIS/JIS.pm


=head1 NAME

Encode::SJIS::JIS --- Encoder/decoder of standard Shift JIS coding systems

=head1 ENCODINGS

=over 4

=cut

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

package Encode::SJIS::JIS::SJIS1997;
use base 'Encode::SJIS';
__PACKAGE__->Define (qw!shift-jis-1997 shift_jis csshiftjis japanese-shift-jis!);

=item shift-jis-1997

Shift coded representation defined by JIS X 0208:1997 Appendix 1.
(Alias: shift_jis (IANA), csshiftjis (IANA), japanese-shift-jis (emacsen))

Note that although IANA registry [IANAREG] associates the name "MS_Kanji"
as an alias of "Shift_JIS", in this module it is not used as
a name of Shift coded representation of JIS X 0208,
since it is more apropreate to associate the name with
Microsoft-defined-Shift-JIS.  (Microsoft's shift JIS is
superset of JIS X 0208's shift JIS, even Microsoft's
does NOT comform to JIS X 0208:1997.)

=cut

sub __2022__common ($) {
  my $C = Encode::SJIS->new_object;
  $C->{G0} = $Encode::Charset::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin
  $C->{G1} = $Encode::Charset::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
  $C->{G2} = $Encode::Charset::CHARSET{G94}->{I};       ## JIS X 0201:1997 Katakana
  $C->{G3} = $Encode::Charset::CHARSET{G94n}->{' @'};   ## undef
  $C;
}
sub __encode_map ($) {
  [qw/ucs_to_jisx0201_latin ucs_to_jisx0208_1997 ucs_to_jisx0201_katakana/];
}
sub __decode_map ($) {
  [qw/jisx0201_latin_to_ucs jisx0208_1997_to_ucs jisx0201_katakana_to_ucs/];
}

package Encode::SJIS::JIS::SJIS1997ASCII;
use base 'Encode::SJIS::JIS::SJIS1997';
__PACKAGE__->Define (qw/shift-jis-1997-ascii/);

=item shift-jis-1997-ascii

Same as Shift_JISX0213 but ASCII (ISO/IEC 646 IRV)
instead of JIS X 0201:1997 Latin character set.

Note that this coding system does NOT comform to
JIS X 0208:1997 Appendix 1.

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{G0} = $Encode::Charset::CHARSET{G94}->{B};       ## ASCII
  $C;
}
sub __encode_map ($) {
  [qw/ucs_to_ascii ucs_to_jisx0208_1997 ucs_to_jisx0201_katakana/];
}
sub __decode_map ($) {
  [qw/jisx0208_1997_to_ucs jisx0201_katakana_to_ucs/];
}

package Encode::SJIS::JIS::SJIS2000plane1;
use base 'Encode::SJIS';
__PACKAGE__->Define (qw!shift_jisx0213-plane1!);

=item shift_jisx0213-plane1

Shift_JISX0213-plane1 coded representation defined by JIS X 0213:2000
Appendix 1 (i.e. implemention level 3).

=cut

sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{G3} = $Encode::Charset::CHARSET{G94n}->{' @'};   ## undef
  $C;
}
sub __encode_map ($) {
  [qw/ucs_to_jisx0201_latin ucs_to_jisx0213_2000_1 ucs_to_jisx0201_katakana/];
}

1;
__END__

=back

Coding systems C<shift_jisx0213> and C<shift_jisx0213-ascii>
are defined in Encode::SJIS.

Shift JISes using alternative name (so mapped to HALFWIDTH
or FULLWIDTH area of UCS) defined by JIS X 0208:1997 or
JIS X 0213:2000 are not included in this module but in
Encode::SJIS::JISCompatible.

Shift JISes with JIS X 0208-1978, -1983, -1990 are not
included in this module since these standards did not
define them.  They are defined in Encode::SJIS::*
other than this module.

=head1 SEE ALSO

JIS X 0208:1997, "7-bit and 8-bit double byte coded Kanji
set for information interchange", Japan Industrial Standards
Committee (JISC) <http://www.jisc.go.jp/>, 1997.

JIS X 0213:2000, "7-bit and 8-bit double byte coded extended Kanji
sets for information interchange", Japan Industrial Standards
Committee (JISC) <http://www.jisc.go.jp/>, 2000.

Encode::SJIS

[IANAREG] "CHARACTER SETS", IANA <http://www.iana.org/>,
<http://www.iana.org/assignments/character-sets>.
The charset registry for IETF <http://www.ietf.org/> standards.

=head1 LICENSE

Copyright 2002 Nanashi-san

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

=cut

# $Date: 2002/10/12 07:27:01 $
### SJIS.pm ends here
1	wakaba	1.1
2			=head1 NAME
3
4			Encode::SJIS::JIS --- Encoder/decoder of standard Shift JIS coding systems
5
6			=head1 ENCODINGS
7
8			=over 4
9
10			=cut
11
12			package Encode::SJIS::JIS;
13			use strict;
14			our $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
15			require Encode::SJIS;
16			require Encode::Encoding;
17
18			package Encode::SJIS::JIS::SJIS1997;
19			use base 'Encode::SJIS';
20			__PACKAGE__->Define (qw!shift-jis-1997 shift_jis csshiftjis japanese-shift-jis!);
21
22			=item shift-jis-1997
23
24			Shift coded representation defined by JIS X 0208:1997 Appendix 1.
25			(Alias: shift_jis (IANA), csshiftjis (IANA), japanese-shift-jis (emacsen))
26
27			Note that although IANA registry [IANAREG] associates the name "MS_Kanji"
28			as an alias of "Shift_JIS", in this module it is not used as
29			a name of Shift coded representation of JIS X 0208,
30			since it is more apropreate to associate the name with
31			Microsoft-defined-Shift-JIS. (Microsoft's shift JIS is
32			superset of JIS X 0208's shift JIS, even Microsoft's
33			does NOT comform to JIS X 0208:1997.)
34
35			=cut
36
37			sub __2022__common ($) {
38			my $C = Encode::SJIS->new_object;
39			$C->{G0} = $Encode::Charset::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin
40			$C->{G1} = $Encode::Charset::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
41			$C->{G2} = $Encode::Charset::CHARSET{G94}->{I}; ## JIS X 0201:1997 Katakana
42			$C->{G3} = $Encode::Charset::CHARSET{G94n}->{' @'}; ## undef
43			$C;
44			}
45			sub __encode_map ($) {
46			[qw/ucs_to_jisx0201_latin ucs_to_jisx0208_1997 ucs_to_jisx0201_katakana/];
47			}
48			sub __decode_map ($) {
49			[qw/jisx0201_latin_to_ucs jisx0208_1997_to_ucs jisx0201_katakana_to_ucs/];
50			}
51
52			package Encode::SJIS::JIS::SJIS1997ASCII;
53			use base 'Encode::SJIS::JIS::SJIS1997';
54			__PACKAGE__->Define (qw/shift-jis-1997-ascii/);
55
56			=item shift-jis-1997-ascii
57
58			Same as Shift_JISX0213 but ASCII (ISO/IEC 646 IRV)
59			instead of JIS X 0201:1997 Latin character set.
60
61			Note that this coding system does NOT comform to
62			JIS X 0208:1997 Appendix 1.
63
64			=cut
65
66			sub __2022__common ($) {
67			my $C = shift->SUPER::__2022__common;
68			$C->{G0} = $Encode::Charset::CHARSET{G94}->{B}; ## ASCII
69			$C;
70			}
71			sub __encode_map ($) {
72			[qw/ucs_to_ascii ucs_to_jisx0208_1997 ucs_to_jisx0201_katakana/];
73			}
74			sub __decode_map ($) {
75			[qw/jisx0208_1997_to_ucs jisx0201_katakana_to_ucs/];
76			}
77
78			package Encode::SJIS::JIS::SJIS2000plane1;
79			use base 'Encode::SJIS';
80			__PACKAGE__->Define (qw!shift_jisx0213-plane1!);
81
82			=item shift_jisx0213-plane1
83
84			Shift_JISX0213-plane1 coded representation defined by JIS X 0213:2000
85			Appendix 1 (i.e. implemention level 3).
86
87			=cut
88
89			sub __2022_encode ($) {
90			my $C = shift->__2022__common;
91			$C->{G3} = $Encode::Charset::CHARSET{G94n}->{' @'}; ## undef
92			$C;
93			}
94			sub __encode_map ($) {
95			[qw/ucs_to_jisx0201_latin ucs_to_jisx0213_2000_1 ucs_to_jisx0201_katakana/];
96			}
97
98			1;
99			__END__
100
101			=back
102
103			Coding systems C<shift_jisx0213> and C<shift_jisx0213-ascii>
104			are defined in Encode::SJIS.
105
106			Shift JISes using alternative name (so mapped to HALFWIDTH
107			or FULLWIDTH area of UCS) defined by JIS X 0208:1997 or
108			JIS X 0213:2000 are not included in this module but in
109			Encode::SJIS::JISCompatible.
110
111			Shift JISes with JIS X 0208-1978, -1983, -1990 are not
112			included in this module since these standards did not
113			define them. They are defined in Encode::SJIS::*
114			other than this module.
115
116			=head1 SEE ALSO
117
118			JIS X 0208:1997, "7-bit and 8-bit double byte coded Kanji
119			set for information interchange", Japan Industrial Standards
120			Committee (JISC) <http://www.jisc.go.jp/>, 1997.
121
122			JIS X 0213:2000, "7-bit and 8-bit double byte coded extended Kanji
123			sets for information interchange", Japan Industrial Standards
124			Committee (JISC) <http://www.jisc.go.jp/>, 2000.
125
126			Encode::SJIS
127
128			[IANAREG] "CHARACTER SETS", IANA <http://www.iana.org/>,
129			<http://www.iana.org/assignments/character-sets>.
130			The charset registry for IETF <http://www.ietf.org/> standards.
131
132			=head1 LICENSE
133
134			Copyright 2002 Nanashi-san
135
136			This library is free software; you can redistribute it
137			and/or modify it under the same terms as Perl itself.
138
139			=cut
140
141			# $Date: 2002/10/12 07:27:01 $
142			### SJIS.pm ends here