Encode/ISO2022/JIS.pm

=head1 NAME

C<Encode::ISO2022::JIS> --- Encode and decode of ISO/IEC 2022
based encodings defined by JIS (Japan Industrial Standard),
other than RFC 1468 coded representation, C<ISO-2022-JP-3>
coded representations and C<EUC-JISX0213> coded representations

=head1 ENCODINGS

=over 4

=cut

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

sub encode ($$;$) {
  my ($obj, $str, $chk) = @_;
  $_[1] = '' if $chk;
  $str = &Encode::ISO2022::internal_to_iso2022 ($str, $obj->__2022_encode);
  return $str;
}

sub decode ($$;$) {
  my ($obj, $str, $chk) = @_;
  $_[1] = '' if $chk;
  return &Encode::ISO2022::iso2022_to_internal ($str, $obj->__2022_decode);
}

sub __2022__common ($) {
  my $C = Encode::ISO2022->new_object;
  $C->{option}->{designate_to}->{C0}->{default} = -1;
  $C->{option}->{designate_to}->{C1}->{default} = -1;
  $C->{option}->{designate_to}->{G94}->{default} = -1;
  $C->{option}->{designate_to}->{G94}->{B} = -1;
  $C->{option}->{designate_to}->{G94n}->{default} = -1;
  $C->{option}->{designate_to}->{G96}->{default} = -1;
  $C->{option}->{designate_to}->{G96n}->{default} = -1;
  $C->{G1} = $Encode::ISO2022::CHARSET{G94}->{"\x7E"};  ## empty
  $C->{option}->{reset}->{Gdesignation} = 0;
  $C->{option}->{reset}->{Ginvoke} = 0;
  $C->{option}->{undef_char} = ["\x22\x2E",     ## GETA MARK
    {type => 'G94n', charset => 'B', revision => '@'}];
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C;
}
sub __2022_decode ($) {
  my $C = shift->__2022__common;
  $C;
}

package Encode::ISO2022::EightBit::JISX0201Latin7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0201-1997-latin-7bit JIS_C6220-1969-ro
 iso-ir-14 jp ISO646-JP csISO14JISC6220ro/);

=item jisx0201-1997-latin-7bit

JIS X 0201:1997 6.1 7-bit code for Latin.
(Alias: C<JIS_C6220-1969-ro> (RFC 1345), C<iso-ir-14> (RFC 1345),
C<jp> (RFC 1345), C<ISO646-JP> (RFC 1345), C<csISO14JISC6220ro> (IANA))

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin set
  $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
  $C;
}

package Encode::ISO2022::EightBit::JISX0201Katakana7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0201-1997-katakana-7bit JIS_C6220-1969-jp JIS_C6220-1969
 iso-ir-13 katakana x0201-7 csISO13JISC6220jp/);

=item jisx0201-1997-katakana-7bit

JIS X 0201:1997 6.2 7-bit code for Katakana
(Alias: JIS_C6220-1969-jp (RFC 1345), JIS_C6220-1969 (RFC 1345),
iso-ir-13 (RFC 1345), katakana (RFC 1345), x0201-7 (RFC 1345),
csISO13JISC6220jp (IANA))

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{I};       ## JIS X 0201:1997 Katakana set
  $C->{option}->{undef_char} = ["\x25", {type => 'G94', charset => 'I'}];
  $C;
}

package Encode::ISO2022::EightBit::JISX0201LatinKatakana7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0201-1997-latin-katakana-7bit
 JIS_X0201 X0201 csHalfWidthKatakana/);

=item jisx0201-1997-latin-katakana-7bit

JIS X 0201:1997 6.3 7-bit code for Latin and Katakana
(Alias: JIS_X0201 (RFC 1345), X0201 (RFC 1345), csHalfWidthKatakana (IANA))

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin set
  $C->{G1} = $Encode::ISO2022::CHARSET{G94}->{I};       ## JIS X 0201:1997 Katakana set
  $C->{option}->{Ginvoke_to_left} = [1,1,1,1];
  $C->{option}->{reset}->{Ginvoke} = 1;
        ## JIS X 0201:1997 does not specify this limitation.
  $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C;
}

package Encode::ISO2022::EightBit::JISX0201LatinKatakana8;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0201-1997-latin-latin-8bit/);

=item jisx0201-1997-latin-katakana-8bit

JIS X 0208:1997 7.4 8-bit code for Latin and Katakana

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 8;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin set
  $C->{G1} = $Encode::ISO2022::CHARSET{G94}->{I};       ## JIS X 0201:1997 Katakana set
  $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
  $C;
}

package Encode::ISO2022::EightBit::JISX0208Kanji7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0208-1997-kanji-7bit/);

=item jisx0208-1997-kanji-7bit

JIS X 0208:1997 7.1.1 7-bit code for Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
  $C;
}

package Encode::ISO2022::EightBit::JISX0208Kanji8;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0208-1997-kanji-8bit/);

=item jisx0208-1997-kanji-8bit

JIS X 0208:1997 7.1.2 8-bit code for Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 8;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
  $C->{G1} = $Encode::ISO2022::CHARSET{G94}->{"\x7E"};  ## empty
  $C->{option}->{C1invoke_to_right} = 1;
  $C;
}

package Encode::ISO2022::EightBit::JISX0208IRVKanji7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-7bit/);

=item jisx0208-1997-irv-kanji-7bit

JIS X 0208:1997 7.2.1 7-bit code for IRV and Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B};       ## ISO/IEC 646 IRV
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
  $C->{option}->{Ginvoke_to_left} = [1,1,1,1];
  $C->{option}->{reset}->{Ginvoke} = 1;
        ## JIS X 0208:1997 does not specify this limitation.
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C;
}

package Encode::ISO2022::EightBit::JISX0208IRVKanji8;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-8bit/);

=item jisx0208-1997-irv-kanji-8bit

JIS X 0208:1997 7.2.2 8-bit code for IRV and Kanji.
(A subset of EUC-japan)

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 8;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B};       ## ISO/IEC 646 IRV
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
  $C;
}

package Encode::ISO2022::EightBit::JISX0208LatinKanji7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-7bit/);

=item jisx0208-1997-latin-kanji-7bit

JIS X 0208:1997 7.3.1 7-bit code for Latin and Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin set
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
  $C->{option}->{Ginvoke_to_left} = [1,1,1,1];
  $C->{option}->{reset}->{Ginvoke} = 1;
        ## JIS X 0208:1997 does not specify this limitation.
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C;
}

package Encode::ISO2022::EightBit::JISX0208LatinKanji8;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-8bit/);

=item jisx0208-1997-latin-kanji-8bit

JIS X 0208:1997 7.2.2 8-bit code for Latin and Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 8;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin set
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'};   ## JIS X 0208:1997
  $C;
}

package Encode::ISO2022::EightBit::JISX0213Kanji7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0213-2000-kanji-7bit/);

=item jisx0213-2000-kanji-7bit

JIS X 0213:2000 7.1.1 7-bit code for Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2
  $C->{option}->{Ginvoke_to_left} = [1,1,1,1];
  $C->{option}->{reset}->{Ginvoke} = 1;
        ## JIS X 0213:2000 does not specify this limitation.
  $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C;
}

package Encode::ISO2022::EightBit::JISX0213Kanji8;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0213-2000-kanji-8bit/);

=item jisx0213-2000-kanji-8bit

JIS X 0213:2000 7.1.2 8-bit code for Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2
  $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
  $C;
}

package Encode::ISO2022::EightBit::JISX0213IRVKanji7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-7bit/);

=item jisx0213-2000-irv-kanji-7bit

JIS X 0213:2000 7.2.1 7-bit code for IRV and Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B};       ## ISO/IEC 646 IRV
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1
  $C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2
  $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
  $C->{option}->{Ginvoke_to_left} = [1,1,1,1];
  $C->{option}->{reset}->{Ginvoke} = 1;
        ## JIS X 0213:2000 does not specify this limitation.
  $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C;
}

package Encode::ISO2022::EightBit::JISX0213IRVKanji8;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-8bit/);

=item jisx0213-2000-irv-kanji-8bit

JIS X 0213:2000 7.2.2 8-bit code for IRV and Kanji.
(A subset of EUC-JISX0213)

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 8;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B};       ## ISO/IEC 646 IRV
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1
  $C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2
  $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
  $C->{option}->{Ginvoke_to_left} = [1,0,0,0];
  $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
  $C;
}

package Encode::ISO2022::EightBit::JISX0213LatinKanji7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-7bit/);

=item jisx0213-2000-latin-kanji-7bit

JIS X 0213:2000 7.3.1 7-bit code for Latin and Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin set
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1
  $C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2
  $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
  $C->{option}->{Ginvoke_to_left} = [1,1,1,1];
  $C->{option}->{reset}->{Ginvoke} = 1;
        ## JIS X 0213:2000 does not specify this limitation.
  $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C;
}

package Encode::ISO2022::EightBit::JISX0213LatinKanji8;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-8bit/);

=item jisx0213-2000-latin-kanji-8bit

JIS X 0213:2000 7.2.2 8-bit code for Latin and Kanji

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 8;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J};       ## JIS X 0201:1997 Latin set
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O};      ## plane 1
  $C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P};      ## plane 2
  $C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
  $C->{option}->{Ginvoke_to_left} = [1,0,0,0];
  $C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
  $C;
}

1;
__END__

=back

Note that although other JISes such as JIS X 0212 and JIS X 9010
define ISO/IEC 2022-comfprming coded character sets,
these standards do not define complete coding system (but define
as used on ISO/IEC 2022 environment), so this module
does not include those coded character sets.  (IETF RFC 1345
and IANAREG give charset name to coded character sets
consist of such standards.  But those are defined by RFC 1345,
not by JIS.  Such coded character sets should be implemented
in Encode::ISO2022::RFC1345.)

=head1 LICENSE

Copyright 2002 wakaba <w@suika.fam.cx>

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

=cut

# $Date: 2002/09/15 05:08:13 $
### JIS.pm ends here
1	=head1 NAME
2
3	C<Encode::ISO2022::JIS> --- Encode and decode of ISO/IEC 2022
4	based encodings defined by JIS (Japan Industrial Standard),
5	other than RFC 1468 coded representation, C<ISO-2022-JP-3>
6	coded representations and C<EUC-JISX0213> coded representations
7
8	=head1 ENCODINGS
9
10	=over 4
11
12	=cut
13
14	require 5.7.3;
15	use strict;
16	package Encode::ISO2022::JIS;
17	use vars qw($VERSION);
18	$VERSION=do{my @r=(q$Revision: 1.2 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
19	use base qw(Encode::Encoding);
20	require Encode::ISO2022;
21
22	sub encode ($$;$) {
23	my ($obj, $str, $chk) = @_;
24	$_[1] = '' if $chk;
25	$str = &Encode::ISO2022::internal_to_iso2022 ($str, $obj->__2022_encode);
26	return $str;
27	}
28
29	sub decode ($$;$) {
30	my ($obj, $str, $chk) = @_;
31	$_[1] = '' if $chk;
32	return &Encode::ISO2022::iso2022_to_internal ($str, $obj->__2022_decode);
33	}
34
35	sub __2022__common ($) {
36	my $C = Encode::ISO2022->new_object;
37	$C->{option}->{designate_to}->{C0}->{default} = -1;
38	$C->{option}->{designate_to}->{C1}->{default} = -1;
39	$C->{option}->{designate_to}->{G94}->{default} = -1;
40	$C->{option}->{designate_to}->{G94}->{B} = -1;
41	$C->{option}->{designate_to}->{G94n}->{default} = -1;
42	$C->{option}->{designate_to}->{G96}->{default} = -1;
43	$C->{option}->{designate_to}->{G96n}->{default} = -1;
44	$C->{G1} = $Encode::ISO2022::CHARSET{G94}->{"\x7E"}; ## empty
45	$C->{option}->{reset}->{Gdesignation} = 0;
46	$C->{option}->{reset}->{Ginvoke} = 0;
47	$C->{option}->{undef_char} = ["\x22\x2E", ## GETA MARK
48	{type => 'G94n', charset => 'B', revision => '@'}];
49	$C;
50	}
51	sub __2022_encode ($) {
52	my $C = shift->__2022__common;
53	$C;
54	}
55	sub __2022_decode ($) {
56	my $C = shift->__2022__common;
57	$C;
58	}
59
60	package Encode::ISO2022::EightBit::JISX0201Latin7;
61	use vars qw/@ISA/;
62	push @ISA, 'Encode::ISO2022::JIS';
63	__PACKAGE__->Define (qw/jisx0201-1997-latin-7bit JIS_C6220-1969-ro
64	iso-ir-14 jp ISO646-JP csISO14JISC6220ro/);
65
66	=item jisx0201-1997-latin-7bit
67
68	JIS X 0201:1997 6.1 7-bit code for Latin.
69	(Alias: C<JIS_C6220-1969-ro> (RFC 1345), C<iso-ir-14> (RFC 1345),
70	C<jp> (RFC 1345), C<ISO646-JP> (RFC 1345), C<csISO14JISC6220ro> (IANA))
71
72	=cut
73
74	sub __2022__common ($) {
75	my $C = shift->SUPER::__2022__common;
76	$C->{bit} = 7;
77	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
78	$C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
79	$C;
80	}
81
82	package Encode::ISO2022::EightBit::JISX0201Katakana7;
83	use vars qw/@ISA/;
84	push @ISA, 'Encode::ISO2022::JIS';
85	__PACKAGE__->Define (qw/jisx0201-1997-katakana-7bit JIS_C6220-1969-jp JIS_C6220-1969
86	iso-ir-13 katakana x0201-7 csISO13JISC6220jp/);
87
88	=item jisx0201-1997-katakana-7bit
89
90	JIS X 0201:1997 6.2 7-bit code for Katakana
91	(Alias: JIS_C6220-1969-jp (RFC 1345), JIS_C6220-1969 (RFC 1345),
92	iso-ir-13 (RFC 1345), katakana (RFC 1345), x0201-7 (RFC 1345),
93	csISO13JISC6220jp (IANA))
94
95	=cut
96
97	sub __2022__common ($) {
98	my $C = shift->SUPER::__2022__common;
99	$C->{bit} = 7;
100	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{I}; ## JIS X 0201:1997 Katakana set
101	$C->{option}->{undef_char} = ["\x25", {type => 'G94', charset => 'I'}];
102	$C;
103	}
104
105	package Encode::ISO2022::EightBit::JISX0201LatinKatakana7;
106	use vars qw/@ISA/;
107	push @ISA, 'Encode::ISO2022::JIS';
108	__PACKAGE__->Define (qw/jisx0201-1997-latin-katakana-7bit
109	JIS_X0201 X0201 csHalfWidthKatakana/);
110
111	=item jisx0201-1997-latin-katakana-7bit
112
113	JIS X 0201:1997 6.3 7-bit code for Latin and Katakana
114	(Alias: JIS_X0201 (RFC 1345), X0201 (RFC 1345), csHalfWidthKatakana (IANA))
115
116	=cut
117
118	sub __2022__common ($) {
119	my $C = shift->SUPER::__2022__common;
120	$C->{bit} = 7;
121	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
122	$C->{G1} = $Encode::ISO2022::CHARSET{G94}->{I}; ## JIS X 0201:1997 Katakana set
123	$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
124	$C->{option}->{reset}->{Ginvoke} = 1;
125	## JIS X 0201:1997 does not specify this limitation.
126	$C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
127	$C;
128	}
129	sub __2022_encode ($) {
130	my $C = shift->__2022__common;
131	$C->{GR} = undef;
132	$C;
133	}
134
135	package Encode::ISO2022::EightBit::JISX0201LatinKatakana8;
136	use vars qw/@ISA/;
137	push @ISA, 'Encode::ISO2022::JIS';
138	__PACKAGE__->Define (qw/jisx0201-1997-latin-latin-8bit/);
139
140	=item jisx0201-1997-latin-katakana-8bit
141
142	JIS X 0208:1997 7.4 8-bit code for Latin and Katakana
143
144	=cut
145
146	sub __2022__common ($) {
147	my $C = shift->SUPER::__2022__common;
148	$C->{bit} = 8;
149	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
150	$C->{G1} = $Encode::ISO2022::CHARSET{G94}->{I}; ## JIS X 0201:1997 Katakana set
151	$C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
152	$C;
153	}
154
155	package Encode::ISO2022::EightBit::JISX0208Kanji7;
156	use vars qw/@ISA/;
157	push @ISA, 'Encode::ISO2022::JIS';
158	__PACKAGE__->Define (qw/jisx0208-1997-kanji-7bit/);
159
160	=item jisx0208-1997-kanji-7bit
161
162	JIS X 0208:1997 7.1.1 7-bit code for Kanji
163
164	=cut
165
166	sub __2022__common ($) {
167	my $C = shift->SUPER::__2022__common;
168	$C->{bit} = 7;
169	$C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
170	$C;
171	}
172
173	package Encode::ISO2022::EightBit::JISX0208Kanji8;
174	use vars qw/@ISA/;
175	push @ISA, 'Encode::ISO2022::JIS';
176	__PACKAGE__->Define (qw/jisx0208-1997-kanji-8bit/);
177
178	=item jisx0208-1997-kanji-8bit
179
180	JIS X 0208:1997 7.1.2 8-bit code for Kanji
181
182	=cut
183
184	sub __2022__common ($) {
185	my $C = shift->SUPER::__2022__common;
186	$C->{bit} = 8;
187	$C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
188	$C->{G1} = $Encode::ISO2022::CHARSET{G94}->{"\x7E"}; ## empty
189	$C->{option}->{C1invoke_to_right} = 1;
190	$C;
191	}
192
193	package Encode::ISO2022::EightBit::JISX0208IRVKanji7;
194	use vars qw/@ISA/;
195	push @ISA, 'Encode::ISO2022::JIS';
196	__PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-7bit/);
197
198	=item jisx0208-1997-irv-kanji-7bit
199
200	JIS X 0208:1997 7.2.1 7-bit code for IRV and Kanji
201
202	=cut
203
204	sub __2022__common ($) {
205	my $C = shift->SUPER::__2022__common;
206	$C->{bit} = 7;
207	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B}; ## ISO/IEC 646 IRV
208	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
209	$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
210	$C->{option}->{reset}->{Ginvoke} = 1;
211	## JIS X 0208:1997 does not specify this limitation.
212	$C;
213	}
214	sub __2022_encode ($) {
215	my $C = shift->__2022__common;
216	$C->{GR} = undef;
217	$C;
218	}
219
220	package Encode::ISO2022::EightBit::JISX0208IRVKanji8;
221	use vars qw/@ISA/;
222	push @ISA, 'Encode::ISO2022::JIS';
223	__PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-8bit/);
224
225	=item jisx0208-1997-irv-kanji-8bit
226
227	JIS X 0208:1997 7.2.2 8-bit code for IRV and Kanji.
228	(A subset of EUC-japan)
229
230	=cut
231
232	sub __2022__common ($) {
233	my $C = shift->SUPER::__2022__common;
234	$C->{bit} = 8;
235	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B}; ## ISO/IEC 646 IRV
236	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
237	$C;
238	}
239
240	package Encode::ISO2022::EightBit::JISX0208LatinKanji7;
241	use vars qw/@ISA/;
242	push @ISA, 'Encode::ISO2022::JIS';
243	__PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-7bit/);
244
245	=item jisx0208-1997-latin-kanji-7bit
246
247	JIS X 0208:1997 7.3.1 7-bit code for Latin and Kanji
248
249	=cut
250
251	sub __2022__common ($) {
252	my $C = shift->SUPER::__2022__common;
253	$C->{bit} = 7;
254	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
255	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
256	$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
257	$C->{option}->{reset}->{Ginvoke} = 1;
258	## JIS X 0208:1997 does not specify this limitation.
259	$C;
260	}
261	sub __2022_encode ($) {
262	my $C = shift->__2022__common;
263	$C->{GR} = undef;
264	$C;
265	}
266
267	package Encode::ISO2022::EightBit::JISX0208LatinKanji8;
268	use vars qw/@ISA/;
269	push @ISA, 'Encode::ISO2022::JIS';
270	__PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-8bit/);
271
272	=item jisx0208-1997-latin-kanji-8bit
273
274	JIS X 0208:1997 7.2.2 8-bit code for Latin and Kanji
275
276	=cut
277
278	sub __2022__common ($) {
279	my $C = shift->SUPER::__2022__common;
280	$C->{bit} = 8;
281	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
282	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
283	$C;
284	}
285
286	package Encode::ISO2022::EightBit::JISX0213Kanji7;
287	use vars qw/@ISA/;
288	push @ISA, 'Encode::ISO2022::JIS';
289	__PACKAGE__->Define (qw/jisx0213-2000-kanji-7bit/);
290
291	=item jisx0213-2000-kanji-7bit
292
293	JIS X 0213:2000 7.1.1 7-bit code for Kanji
294
295	=cut
296
297	sub __2022__common ($) {
298	my $C = shift->SUPER::__2022__common;
299	$C->{bit} = 7;
300	$C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
301	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
302	$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
303	$C->{option}->{reset}->{Ginvoke} = 1;
304	## JIS X 0213:2000 does not specify this limitation.
305	$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
306	$C;
307	}
308	sub __2022_encode ($) {
309	my $C = shift->__2022__common;
310	$C->{GR} = undef;
311	$C;
312	}
313
314	package Encode::ISO2022::EightBit::JISX0213Kanji8;
315	use vars qw/@ISA/;
316	push @ISA, 'Encode::ISO2022::JIS';
317	__PACKAGE__->Define (qw/jisx0213-2000-kanji-8bit/);
318
319	=item jisx0213-2000-kanji-8bit
320
321	JIS X 0213:2000 7.1.2 8-bit code for Kanji
322
323	=cut
324
325	sub __2022__common ($) {
326	my $C = shift->SUPER::__2022__common;
327	$C->{bit} = 7;
328	$C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
329	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
330	$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
331	$C;
332	}
333
334	package Encode::ISO2022::EightBit::JISX0213IRVKanji7;
335	use vars qw/@ISA/;
336	push @ISA, 'Encode::ISO2022::JIS';
337	__PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-7bit/);
338
339	=item jisx0213-2000-irv-kanji-7bit
340
341	JIS X 0213:2000 7.2.1 7-bit code for IRV and Kanji
342
343	=cut
344
345	sub __2022__common ($) {
346	my $C = shift->SUPER::__2022__common;
347	$C->{bit} = 7;
348	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B}; ## ISO/IEC 646 IRV
349	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
350	$C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
351	$C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
352	$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
353	$C->{option}->{reset}->{Ginvoke} = 1;
354	## JIS X 0213:2000 does not specify this limitation.
355	$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
356	$C;
357	}
358	sub __2022_encode ($) {
359	my $C = shift->__2022__common;
360	$C->{GR} = undef;
361	$C;
362	}
363
364	package Encode::ISO2022::EightBit::JISX0213IRVKanji8;
365	use vars qw/@ISA/;
366	push @ISA, 'Encode::ISO2022::JIS';
367	__PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-8bit/);
368
369	=item jisx0213-2000-irv-kanji-8bit
370
371	JIS X 0213:2000 7.2.2 8-bit code for IRV and Kanji.
372	(A subset of EUC-JISX0213)
373
374	=cut
375
376	sub __2022__common ($) {
377	my $C = shift->SUPER::__2022__common;
378	$C->{bit} = 8;
379	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B}; ## ISO/IEC 646 IRV
380	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
381	$C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
382	$C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
383	$C->{option}->{Ginvoke_to_left} = [1,0,0,0];
384	$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
385	$C;
386	}
387
388	package Encode::ISO2022::EightBit::JISX0213LatinKanji7;
389	use vars qw/@ISA/;
390	push @ISA, 'Encode::ISO2022::JIS';
391	__PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-7bit/);
392
393	=item jisx0213-2000-latin-kanji-7bit
394
395	JIS X 0213:2000 7.3.1 7-bit code for Latin and Kanji
396
397	=cut
398
399	sub __2022__common ($) {
400	my $C = shift->SUPER::__2022__common;
401	$C->{bit} = 7;
402	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
403	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
404	$C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
405	$C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
406	$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
407	$C->{option}->{reset}->{Ginvoke} = 1;
408	## JIS X 0213:2000 does not specify this limitation.
409	$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
410	$C;
411	}
412	sub __2022_encode ($) {
413	my $C = shift->__2022__common;
414	$C->{GR} = undef;
415	$C;
416	}
417
418	package Encode::ISO2022::EightBit::JISX0213LatinKanji8;
419	use vars qw/@ISA/;
420	push @ISA, 'Encode::ISO2022::JIS';
421	__PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-8bit/);
422
423	=item jisx0213-2000-latin-kanji-8bit
424
425	JIS X 0213:2000 7.2.2 8-bit code for Latin and Kanji
426
427	=cut
428
429	sub __2022__common ($) {
430	my $C = shift->SUPER::__2022__common;
431	$C->{bit} = 8;
432	$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
433	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
434	$C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
435	$C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
436	$C->{option}->{Ginvoke_to_left} = [1,0,0,0];
437	$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
438	$C;
439	}
440
441	1;
442	__END__
443
444	=back
445
446	Note that although other JISes such as JIS X 0212 and JIS X 9010
447	define ISO/IEC 2022-comfprming coded character sets,
448	these standards do not define complete coding system (but define
449	as used on ISO/IEC 2022 environment), so this module
450	does not include those coded character sets. (IETF RFC 1345
451	and IANAREG give charset name to coded character sets
452	consist of such standards. But those are defined by RFC 1345,
453	not by JIS. Such coded character sets should be implemented
454	in Encode::ISO2022::RFC1345.)
455
456	=head1 LICENSE
457
458	Copyright 2002 wakaba <w@suika.fam.cx>
459
460	This library is free software; you can redistribute it
461	and/or modify it under the same terms as Perl itself.
462
463	=cut
464
465	# $Date: 2002/09/15 05:08:13 $
466	### JIS.pm ends here