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.3 $=~/\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::JIS::JISX0201Latin7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx0201-1997-latin-7bit JIS_C6220-1969-ro
 iso-ir-14 ir14 jp ISO646-JP 646-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<ir14>, C<jp> (RFC 1345), C<ISO646-JP> (RFC 1345), C<646-jp>,
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->{G1} = $C->{G0}; $C->{G2} = $C->{G1};     ## RFC 1345 (not in JIS)
  $C->{G3} = $C->{G1};
  $C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
  $C;
}

package Encode::ISO2022::JIS::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 ir13 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), ir13, 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->{G1} = $C->{G0}; $C->{G2} = $C->{G1};     ## RFC 1345 (not in JIS)
  $C->{G3} = $C->{G1};
  $C->{option}->{undef_char} = ["\x25", {type => 'G94', charset => 'I'}];
  $C;
}

package Encode::ISO2022::JIS::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::JIS::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->{option}->{C1invoke_to_right} = 1;
  $C;
}

package Encode::ISO2022::JIS::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::JIS::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::JIS::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::JIS::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->{option}->{C1invoke_to_right} = 1;
  $C;
}

package Encode::ISO2022::JIS::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::JIS::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->{option}->{C1invoke_to_right} = 1;
  $C;
}

package Encode::ISO2022::JIS::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::JIS::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->{option}->{C1invoke_to_right} = 1;
  $C;
}

package Encode::ISO2022::JIS::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::JIS::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->{option}->{C1invoke_to_right} = 1;
  $C;
}

package Encode::ISO2022::JIS::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::JIS::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->{option}->{C1invoke_to_right} = 1;
  $C;
}

package Encode::ISO2022::JIS::JISX4001Text7;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS';
__PACKAGE__->Define (qw/jisx4001-text-7bit/);

=item jisx4001-text-7bit

JIS X 4001-1989 text (7-bit code)

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{B};      ## JIS X 0208-1983
  $C->{option}->{designate_to}->{G94}->{J} = 0; ## JIS X 0201 Roman
  $C->{option}->{designate_to}->{G94n}->{B} = 0;        ## JIS X 0208-1983
  $C;
}

package Encode::ISO2022::JIS::JISX4001Text8;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::JIS::JISX4001Text7';
__PACKAGE__->Define (qw/jisx4001-text-8bit/);

=item jisx4001-text-8bit

JIS X 4001-1989 text (8-bit code)

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{bit} = 7;
  $C->{option}->{C1invoke_to_right} = 1;
  $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/20 14:01:45 $
### JIS.pm ends here
1	wakaba	1.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	wakaba	1.4	$VERSION=do{my @r=(q$Revision: 1.3 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
19	wakaba	1.1	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	wakaba	1.2	package Encode::ISO2022::JIS::JISX0201Latin7;
61	wakaba	1.1	use vars qw/@ISA/;
62			push @ISA, 'Encode::ISO2022::JIS';
63			__PACKAGE__->Define (qw/jisx0201-1997-latin-7bit JIS_C6220-1969-ro
64	wakaba	1.4	iso-ir-14 ir14 jp ISO646-JP 646-jp csISO14JISC6220ro/);
65	wakaba	1.1
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	wakaba	1.4	C<ir14>, C<jp> (RFC 1345), C<ISO646-JP> (RFC 1345), C<646-jp>,
71			C<csISO14JISC6220ro> (IANA))
72	wakaba	1.1
73			=cut
74
75			sub __2022__common ($) {
76			my $C = shift->SUPER::__2022__common;
77			$C->{bit} = 7;
78			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
79	wakaba	1.4	$C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; ## RFC 1345 (not in JIS)
80			$C->{G3} = $C->{G1};
81	wakaba	1.1	$C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
82			$C;
83			}
84
85	wakaba	1.2	package Encode::ISO2022::JIS::JISX0201Katakana7;
86	wakaba	1.1	use vars qw/@ISA/;
87			push @ISA, 'Encode::ISO2022::JIS';
88			__PACKAGE__->Define (qw/jisx0201-1997-katakana-7bit JIS_C6220-1969-jp JIS_C6220-1969
89	wakaba	1.4	iso-ir-13 ir13 katakana x0201-7 csISO13JISC6220jp/);
90	wakaba	1.1
91			=item jisx0201-1997-katakana-7bit
92
93			JIS X 0201:1997 6.2 7-bit code for Katakana
94			(Alias: JIS_C6220-1969-jp (RFC 1345), JIS_C6220-1969 (RFC 1345),
95	wakaba	1.4	iso-ir-13 (RFC 1345), ir13, katakana (RFC 1345), x0201-7 (RFC 1345),
96	wakaba	1.1	csISO13JISC6220jp (IANA))
97
98			=cut
99
100			sub __2022__common ($) {
101			my $C = shift->SUPER::__2022__common;
102			$C->{bit} = 7;
103			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{I}; ## JIS X 0201:1997 Katakana set
104	wakaba	1.4	$C->{G1} = $C->{G0}; $C->{G2} = $C->{G1}; ## RFC 1345 (not in JIS)
105			$C->{G3} = $C->{G1};
106	wakaba	1.1	$C->{option}->{undef_char} = ["\x25", {type => 'G94', charset => 'I'}];
107			$C;
108			}
109
110	wakaba	1.2	package Encode::ISO2022::JIS::JISX0201LatinKatakana7;
111	wakaba	1.1	use vars qw/@ISA/;
112			push @ISA, 'Encode::ISO2022::JIS';
113			__PACKAGE__->Define (qw/jisx0201-1997-latin-katakana-7bit
114			JIS_X0201 X0201 csHalfWidthKatakana/);
115
116			=item jisx0201-1997-latin-katakana-7bit
117
118			JIS X 0201:1997 6.3 7-bit code for Latin and Katakana
119			(Alias: JIS_X0201 (RFC 1345), X0201 (RFC 1345), csHalfWidthKatakana (IANA))
120
121			=cut
122
123			sub __2022__common ($) {
124			my $C = shift->SUPER::__2022__common;
125			$C->{bit} = 7;
126			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
127			$C->{G1} = $Encode::ISO2022::CHARSET{G94}->{I}; ## JIS X 0201:1997 Katakana set
128			$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
129			$C->{option}->{reset}->{Ginvoke} = 1;
130			## JIS X 0201:1997 does not specify this limitation.
131			$C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
132			$C;
133			}
134			sub __2022_encode ($) {
135			my $C = shift->__2022__common;
136			$C->{GR} = undef;
137			$C;
138			}
139
140	wakaba	1.2	package Encode::ISO2022::JIS::JISX0201LatinKatakana8;
141	wakaba	1.1	use vars qw/@ISA/;
142			push @ISA, 'Encode::ISO2022::JIS';
143			__PACKAGE__->Define (qw/jisx0201-1997-latin-latin-8bit/);
144
145			=item jisx0201-1997-latin-katakana-8bit
146
147			JIS X 0208:1997 7.4 8-bit code for Latin and Katakana
148
149			=cut
150
151			sub __2022__common ($) {
152			my $C = shift->SUPER::__2022__common;
153			$C->{bit} = 8;
154			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
155			$C->{G1} = $Encode::ISO2022::CHARSET{G94}->{I}; ## JIS X 0201:1997 Katakana set
156			$C->{option}->{undef_char} = ["\x3F", {type => 'G94', charset => 'J'}];
157	wakaba	1.2	$C->{option}->{C1invoke_to_right} = 1;
158	wakaba	1.1	$C;
159			}
160
161	wakaba	1.2	package Encode::ISO2022::JIS::JISX0208Kanji7;
162	wakaba	1.1	use vars qw/@ISA/;
163			push @ISA, 'Encode::ISO2022::JIS';
164			__PACKAGE__->Define (qw/jisx0208-1997-kanji-7bit/);
165
166			=item jisx0208-1997-kanji-7bit
167
168			JIS X 0208:1997 7.1.1 7-bit code for Kanji
169
170			=cut
171
172			sub __2022__common ($) {
173			my $C = shift->SUPER::__2022__common;
174			$C->{bit} = 7;
175			$C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
176			$C;
177			}
178
179	wakaba	1.2	package Encode::ISO2022::JIS::JISX0208Kanji8;
180	wakaba	1.1	use vars qw/@ISA/;
181			push @ISA, 'Encode::ISO2022::JIS';
182			__PACKAGE__->Define (qw/jisx0208-1997-kanji-8bit/);
183
184			=item jisx0208-1997-kanji-8bit
185
186			JIS X 0208:1997 7.1.2 8-bit code for Kanji
187
188			=cut
189
190			sub __2022__common ($) {
191			my $C = shift->SUPER::__2022__common;
192			$C->{bit} = 8;
193			$C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
194			$C->{G1} = $Encode::ISO2022::CHARSET{G94}->{"\x7E"}; ## empty
195			$C->{option}->{C1invoke_to_right} = 1;
196			$C;
197			}
198
199	wakaba	1.2	package Encode::ISO2022::JIS::JISX0208IRVKanji7;
200	wakaba	1.1	use vars qw/@ISA/;
201			push @ISA, 'Encode::ISO2022::JIS';
202			__PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-7bit/);
203
204			=item jisx0208-1997-irv-kanji-7bit
205
206			JIS X 0208:1997 7.2.1 7-bit code for IRV and Kanji
207
208			=cut
209
210			sub __2022__common ($) {
211			my $C = shift->SUPER::__2022__common;
212			$C->{bit} = 7;
213			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B}; ## ISO/IEC 646 IRV
214			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
215			$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
216			$C->{option}->{reset}->{Ginvoke} = 1;
217			## JIS X 0208:1997 does not specify this limitation.
218			$C;
219			}
220			sub __2022_encode ($) {
221			my $C = shift->__2022__common;
222			$C->{GR} = undef;
223			$C;
224			}
225
226	wakaba	1.2	package Encode::ISO2022::JIS::JISX0208IRVKanji8;
227	wakaba	1.1	use vars qw/@ISA/;
228			push @ISA, 'Encode::ISO2022::JIS';
229			__PACKAGE__->Define (qw/jisx0208-1997-irv-kanji-8bit/);
230
231			=item jisx0208-1997-irv-kanji-8bit
232
233			JIS X 0208:1997 7.2.2 8-bit code for IRV and Kanji.
234			(A subset of EUC-japan)
235
236			=cut
237
238			sub __2022__common ($) {
239			my $C = shift->SUPER::__2022__common;
240			$C->{bit} = 8;
241			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B}; ## ISO/IEC 646 IRV
242			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
243	wakaba	1.2	$C->{option}->{C1invoke_to_right} = 1;
244	wakaba	1.1	$C;
245			}
246
247	wakaba	1.2	package Encode::ISO2022::JIS::JISX0208LatinKanji7;
248	wakaba	1.1	use vars qw/@ISA/;
249			push @ISA, 'Encode::ISO2022::JIS';
250			__PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-7bit/);
251
252			=item jisx0208-1997-latin-kanji-7bit
253
254			JIS X 0208:1997 7.3.1 7-bit code for Latin and Kanji
255
256			=cut
257
258			sub __2022__common ($) {
259			my $C = shift->SUPER::__2022__common;
260			$C->{bit} = 7;
261			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
262			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
263			$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
264			$C->{option}->{reset}->{Ginvoke} = 1;
265			## JIS X 0208:1997 does not specify this limitation.
266			$C;
267			}
268			sub __2022_encode ($) {
269			my $C = shift->__2022__common;
270			$C->{GR} = undef;
271			$C;
272			}
273
274	wakaba	1.2	package Encode::ISO2022::JIS::JISX0208LatinKanji8;
275	wakaba	1.1	use vars qw/@ISA/;
276			push @ISA, 'Encode::ISO2022::JIS';
277			__PACKAGE__->Define (qw/jisx0208-1997-latin-kanji-8bit/);
278
279			=item jisx0208-1997-latin-kanji-8bit
280
281			JIS X 0208:1997 7.2.2 8-bit code for Latin and Kanji
282
283			=cut
284
285			sub __2022__common ($) {
286			my $C = shift->SUPER::__2022__common;
287			$C->{bit} = 8;
288			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
289			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{'B@'}; ## JIS X 0208:1997
290	wakaba	1.2	$C->{option}->{C1invoke_to_right} = 1;
291	wakaba	1.1	$C;
292			}
293
294	wakaba	1.2	package Encode::ISO2022::JIS::JISX0213Kanji7;
295	wakaba	1.1	use vars qw/@ISA/;
296			push @ISA, 'Encode::ISO2022::JIS';
297			__PACKAGE__->Define (qw/jisx0213-2000-kanji-7bit/);
298
299			=item jisx0213-2000-kanji-7bit
300
301			JIS X 0213:2000 7.1.1 7-bit code for Kanji
302
303			=cut
304
305			sub __2022__common ($) {
306			my $C = shift->SUPER::__2022__common;
307			$C->{bit} = 7;
308			$C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
309			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
310			$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
311			$C->{option}->{reset}->{Ginvoke} = 1;
312			## JIS X 0213:2000 does not specify this limitation.
313			$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
314			$C;
315			}
316			sub __2022_encode ($) {
317			my $C = shift->__2022__common;
318			$C->{GR} = undef;
319			$C;
320			}
321
322	wakaba	1.2	package Encode::ISO2022::JIS::JISX0213Kanji8;
323	wakaba	1.1	use vars qw/@ISA/;
324			push @ISA, 'Encode::ISO2022::JIS';
325			__PACKAGE__->Define (qw/jisx0213-2000-kanji-8bit/);
326
327			=item jisx0213-2000-kanji-8bit
328
329			JIS X 0213:2000 7.1.2 8-bit code for Kanji
330
331			=cut
332
333			sub __2022__common ($) {
334			my $C = shift->SUPER::__2022__common;
335			$C->{bit} = 7;
336			$C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
337			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
338			$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
339	wakaba	1.2	$C->{option}->{C1invoke_to_right} = 1;
340	wakaba	1.1	$C;
341			}
342
343	wakaba	1.2	package Encode::ISO2022::JIS::JISX0213IRVKanji7;
344	wakaba	1.1	use vars qw/@ISA/;
345			push @ISA, 'Encode::ISO2022::JIS';
346			__PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-7bit/);
347
348			=item jisx0213-2000-irv-kanji-7bit
349
350			JIS X 0213:2000 7.2.1 7-bit code for IRV and Kanji
351
352			=cut
353
354			sub __2022__common ($) {
355			my $C = shift->SUPER::__2022__common;
356			$C->{bit} = 7;
357			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B}; ## ISO/IEC 646 IRV
358			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
359			$C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
360			$C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
361			$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
362			$C->{option}->{reset}->{Ginvoke} = 1;
363			## JIS X 0213:2000 does not specify this limitation.
364			$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
365			$C;
366			}
367			sub __2022_encode ($) {
368			my $C = shift->__2022__common;
369			$C->{GR} = undef;
370			$C;
371			}
372
373	wakaba	1.2	package Encode::ISO2022::JIS::JISX0213IRVKanji8;
374	wakaba	1.1	use vars qw/@ISA/;
375			push @ISA, 'Encode::ISO2022::JIS';
376			__PACKAGE__->Define (qw/jisx0213-2000-irv-kanji-8bit/);
377
378			=item jisx0213-2000-irv-kanji-8bit
379
380			JIS X 0213:2000 7.2.2 8-bit code for IRV and Kanji.
381			(A subset of EUC-JISX0213)
382
383			=cut
384
385			sub __2022__common ($) {
386			my $C = shift->SUPER::__2022__common;
387			$C->{bit} = 8;
388			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{B}; ## ISO/IEC 646 IRV
389			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
390			$C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
391			$C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
392			$C->{option}->{Ginvoke_to_left} = [1,0,0,0];
393			$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
394	wakaba	1.2	$C->{option}->{C1invoke_to_right} = 1;
395	wakaba	1.1	$C;
396			}
397
398	wakaba	1.2	package Encode::ISO2022::JIS::JISX0213LatinKanji7;
399	wakaba	1.1	use vars qw/@ISA/;
400			push @ISA, 'Encode::ISO2022::JIS';
401			__PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-7bit/);
402
403			=item jisx0213-2000-latin-kanji-7bit
404
405			JIS X 0213:2000 7.3.1 7-bit code for Latin and Kanji
406
407			=cut
408
409			sub __2022__common ($) {
410			my $C = shift->SUPER::__2022__common;
411			$C->{bit} = 7;
412			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
413			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
414			$C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
415			$C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
416			$C->{option}->{Ginvoke_to_left} = [1,1,1,1];
417			$C->{option}->{reset}->{Ginvoke} = 1;
418			## JIS X 0213:2000 does not specify this limitation.
419			$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
420			$C;
421			}
422			sub __2022_encode ($) {
423			my $C = shift->__2022__common;
424			$C->{GR} = undef;
425			$C;
426			}
427
428	wakaba	1.2	package Encode::ISO2022::JIS::JISX0213LatinKanji8;
429	wakaba	1.1	use vars qw/@ISA/;
430			push @ISA, 'Encode::ISO2022::JIS';
431			__PACKAGE__->Define (qw/jisx0213-2000-latin-kanji-8bit/);
432
433			=item jisx0213-2000-latin-kanji-8bit
434
435			JIS X 0213:2000 7.2.2 8-bit code for Latin and Kanji
436
437			=cut
438
439			sub __2022__common ($) {
440			my $C = shift->SUPER::__2022__common;
441			$C->{bit} = 8;
442			$C->{G0} = $Encode::ISO2022::CHARSET{G94}->{J}; ## JIS X 0201:1997 Latin set
443			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{O}; ## plane 1
444			$C->{G3} = $Encode::ISO2022::CHARSET{G94n}->{P}; ## plane 2
445			$C->{option}->{Ginvoke_by_single_shift}->[3] = 1;
446			$C->{option}->{Ginvoke_to_left} = [1,0,0,0];
447			$C->{option}->{undef_char} = ["\x22\x2E", {type => 'G94n', charset => 'O'}];
448	wakaba	1.2	$C->{option}->{C1invoke_to_right} = 1;
449			$C;
450			}
451
452			package Encode::ISO2022::JIS::JISX4001Text7;
453			use vars qw/@ISA/;
454			push @ISA, 'Encode::ISO2022::JIS';
455			__PACKAGE__->Define (qw/jisx4001-text-7bit/);
456
457			=item jisx4001-text-7bit
458
459			JIS X 4001-1989 text (7-bit code)
460
461			=cut
462
463			sub __2022__common ($) {
464			my $C = shift->SUPER::__2022__common;
465			$C->{bit} = 7;
466			$C->{G0} = $Encode::ISO2022::CHARSET{G94n}->{B}; ## JIS X 0208-1983
467			$C->{option}->{designate_to}->{G94}->{J} = 0; ## JIS X 0201 Roman
468			$C->{option}->{designate_to}->{G94n}->{B} = 0; ## JIS X 0208-1983
469			$C;
470			}
471
472			package Encode::ISO2022::JIS::JISX4001Text8;
473			use vars qw/@ISA/;
474			push @ISA, 'Encode::ISO2022::JIS::JISX4001Text7';
475			__PACKAGE__->Define (qw/jisx4001-text-8bit/);
476
477			=item jisx4001-text-8bit
478
479			JIS X 4001-1989 text (8-bit code)
480
481			=cut
482
483			sub __2022__common ($) {
484			my $C = shift->SUPER::__2022__common;
485			$C->{bit} = 7;
486			$C->{option}->{C1invoke_to_right} = 1;
487	wakaba	1.1	$C;
488			}
489
490			1;
491			__END__
492
493			=back
494
495			Note that although other JISes such as JIS X 0212 and JIS X 9010
496			define ISO/IEC 2022-comfprming coded character sets,
497			these standards do not define complete coding system (but define
498			as used on ISO/IEC 2022 environment), so this module
499			does not include those coded character sets. (IETF RFC 1345
500			and IANAREG give charset name to coded character sets
501			consist of such standards. But those are defined by RFC 1345,
502			not by JIS. Such coded character sets should be implemented
503			in Encode::ISO2022::RFC1345.)
504
505			=head1 LICENSE
506
507	wakaba	1.3	Copyright 2002 Wakaba <w@suika.fam.cx>
508	wakaba	1.1
509			This library is free software; you can redistribute it
510			and/or modify it under the same terms as Perl itself.
511
512			=cut
513
514	wakaba	1.4	# $Date: 2002/09/20 14:01:45 $
515	wakaba	1.1	### JIS.pm ends here