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.6 $=~/\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;
}

sub __clone ($) {
  my $self = shift;
  bless {%$self}, ref $self;
};

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 kana8/);

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