Encode/ISO2022/SevenBit.pm

=head1 NAME

Encode::ISO2022::SevenBit --- Encode and decode of 7-bit ISO/IEC 2022
based encodings

=head1 ENCODINGS

=over 4

=cut

require 5.7.3;
use strict;
package Encode::ISO2022::SevenBit;
use vars qw($VERSION);
$VERSION=do{my @r=(q$Revision: 1.5 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
use base qw(Encode::Encoding);
__PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7/);
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);
}

=item iso-2022-7bit

ISO/IEC 2022 based 7-bit encoding using only G0
(Alias: junet, jis, jis7, iso-2022-7)

=cut

sub __2022__common ($) {
  my $C = Encode::ISO2022->new_object;
  $C->{bit} = 7;
  $C->{option}->{designate_to}->{G96}->{default} = 0;
  $C->{option}->{designate_to}->{G96n}->{default} = 0;
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
  $C;
}
sub __2022_decode ($) {
  my $C = shift->__2022__common;
  
  $C;
}

package Encode::ISO2022::SevenBit::JP;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit';
__PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp
 iso2022jp/);

=item iso-2022-jp

ISO/IEC 2022 based 7-bit encoding for Japanese.
Defined by Junet no tebiki, RFC 1468 and JIS X 0208:1997 Appendix 2.
(Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA))

=cut

sub __2022__common ($) {
  my $C = Encode::ISO2022->new_object;
  $C->{bit} = 7;
  $C->{option}->{designate_to}->{C0}->{default} = -1;
  $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
  $C->{option}->{designate_to}->{C1}->{default} = -1;
  $C->{option}->{designate_to}->{G94}->{default} = -1;
  $C->{option}->{designate_to}->{G94n}->{default} = -1;
  $C->{option}->{designate_to}->{G96}->{default} = -1;
  $C->{option}->{designate_to}->{G96n}->{default} = -1;
  $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0;    ## JIS X 0201 roman
  $C->{option}->{designate_to}->{G94n}->{"\x40"} = 0;   ## JIS X 0208-1978
  $C->{option}->{designate_to}->{G94n}->{"\x42"} = 0;   ## JIS X 0208-1983
  $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = 0;       ## JIS X 0208-1990
  $C->{option}->{use_revision} = 0;
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
  $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
  $C;
}

package Encode::ISO2022::SevenBit::JP1978IRV;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit::JP';
__PACKAGE__->Define (qw/iso-2022-jp-1978-irv japanese-iso-7bit-1978-irv old-jis
  x-obsoleted-iso-2022-jp jis78/);

=item iso-2022-jp-1978-irv

ISO/IEC 2022 based 7-bit encoding for Japanese,
using JIS X 0208-1978.
(Alias: japanese-iso-7bit-1978-irv (emacsen), old-jis (emacsen),
jis78)

=cut

sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman
  $C->{option}->{designate_to}->{G94n}->{"\x42"} = -1;  ## JIS X 0208-1983
  $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990
  $C;
}

package Encode::ISO2022::SevenBit::JP1;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit::JP';
__PACKAGE__->Define (qw/iso-2022-jp-1/);

=item iso-2022-jp-1

ISO/IEC 2022 based 7-bit encoding for Japanese,
defined by RFC 2237

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{G94n}->{"\x44"} = 0;   ## JIS X 0212-1990
  $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990
  $C;
}

package Encode::ISO2022::SevenBit::JP3;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit::JP';
__PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3
 jis0213   iso-2022-jp-3-compatible iso-2022-jp-3-strict/);

=item iso-2022-jp-3

ISO/IEC 2022 based 7-bit encoding for Japanese,
defined by JIS X 0213:2000 Appendix 2.
(Alias: x-iso-2022-jp-3, jis0213)

=item iso-2022-jp-3-compatible

ISO/IEC 2022 based 7-bit encoding for Japanese

=item iso-2022-jp-3-strict

ISO/IEC 2022 based 7-bit encoding for Japanese.
A subset of iso-2022-jp-3.

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{G94}->{"\x4A"} = -1;   ## JIS X 0201 roman
  $C->{option}->{designate_to}->{G94n}->{"\x40"} = -1;  ## JIS X 0208-1978
  $C->{option}->{designate_to}->{G94n}->{"\x42"} = 0;   ## restricted JIS X 0213:2000 plane 1
  $C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1;      ## JIS X 0208-1990
  $C->{option}->{designate_to}->{G94n}->{"\x4F"} = 0;   ## JIS X 0213:2000 plane 1
  $C->{option}->{designate_to}->{G94n}->{"\x50"} = 0;   ## JIS X 0213:2000 plane 2
  $C;
}

package Encode::ISO2022::SevenBit::JP3Plane1;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit::JP3';
__PACKAGE__->Define (qw/iso-2022-jp-3-plane1/);

=item iso-2022-jp-3-plane1

ISO/IEC 2022 based 7-bit encoding for Japanese,
defined by JIS X 0213:2000 Appendix 2.

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{G94n}->{"\x50"} = -1;  ## JIS X 0213:2000 plane 2
  $C;
}

package Encode::ISO2022::SevenBit::SS2;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit';
__PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2 iso-2022-ss2-7
   jis_encoding csjisencoding/);

=item iso-2022-7bit-ss2

ISO/IEC 2022 based 7-bit encoding using SS2 for 96-charset
(Alias: x-iso-2022-jp-2, iso-2022-ss2-7 (emacsen))

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{G96}->{default} = 2;
  $C->{option}->{designate_to}->{G96n}->{default} = 2;
  $C->{option}->{Ginvoke_by_single_shift}->[2] = 1;
  $C;
}

package Encode::ISO2022::SevenBit::JP2;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit::SS2';
__PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2/);

=item iso-2022-jp-2

ISO/IEC 2022 based 7-bit multilingual encoding, defined by
RFC 1554.  A subset of iso-2022-7bit-ss2.  (Alias: csISO2022JP2 (IANA))

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{C0}->{default} = -1;
  $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
  $C->{option}->{designate_to}->{C1}->{default} = -1;
  $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x47"};   ## Minimum C1
  $C->{option}->{designate_to}->{C1}->{"\x47"} = 1;
  $C->{option}->{designate_to}->{G94}->{default} = -1;
  $C->{option}->{designate_to}->{G94n}->{default} = -1;
  $C->{option}->{designate_to}->{G96}->{default} = -1;
  $C->{option}->{designate_to}->{G96n}->{default} = -1;
  $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0;    ## JIS X 0201 roman
  for ("\x40", "\x41", "\x42", "\x43") {
    $C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
  }
  for ("\x41", "\x46") {
    $C->{option}->{designate_to}->{G96}->{ $_ } = 2;
  }
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
  $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
  $C;
}

package Encode::ISO2022::SevenBit::Lock;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit';
__PACKAGE__->Define (qw/iso-2022-7bit-lock/);

=item iso-2022-7bit-lock

ISO/IEC 2022 based 7-bit encoding using G1 and locking-shift for 96-charset

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{G96}->{default} = 1;
  $C->{option}->{designate_to}->{G96n}->{default} = 1;
  $C;
}

package Encode::ISO2022::SevenBit::INT;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit';
__PACKAGE__->Define (qw/iso-2022-int iso-2022-int-*  iso-2022-int-2/);

=item iso-2022-int

ISO/IEC 2022 based 7-bit encoding using G1 and locking-shift for
KS X 1001 and 96-charset.  See draft-ohta-text-encoding.
(Alias: iso-2022-int-*)

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{G96}->{default} = 1;
  $C->{option}->{designate_to}->{G96n}->{default} = 1;
  $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1;   ## KS X 1001
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
  $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
  $C;
}
sub __2022_decode ($) {
  my $C = shift->__2022__common;
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
  $C;
}

package Encode::ISO2022::SevenBit::KR;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit';
__PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit csiso2022kr cp50225 kr2022/);

=item iso-2022-kr

An ISO/IEC 2022 based 7-bit encoding for Korean,
defined by RFC 1557 (Alias: korean-iso-7bit (emacsen),
csISO2022KR (IANA), CP50225 (M$), KR2022)

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{C0}->{default} = -1;
  $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
  $C->{option}->{designate_to}->{C1}->{default} = -1;
  $C->{option}->{designate_to}->{G94}->{default} = -1;
  $C->{option}->{designate_to}->{G94n}->{default} = -1;
  $C->{option}->{designate_to}->{G96}->{default} = -1;
  $C->{option}->{designate_to}->{G96n}->{default} = -1;
  $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1;   ## KS X 1001
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
  $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
  $C;
}
sub __2022_decode ($) {
  my $C = shift->__2022__common;
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
  $C;
}

package Encode::ISO2022::SevenBit::INT1;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit';
__PACKAGE__->Define (qw/iso-2022-int-1/);

=item iso-2022-int-1

An ISO/IEC 2022 based 7-bit multilingual encoding,
defined by draft-ohta-text-encoding

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{C0}->{default} = -1;
  $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
  $C->{option}->{designate_to}->{C1}->{default} = -1;
  $C->{option}->{designate_to}->{G94}->{default} = -1;
  $C->{option}->{designate_to}->{G94n}->{default} = -1;
  $C->{option}->{designate_to}->{G96}->{default} = -1;
  $C->{option}->{designate_to}->{G96n}->{default} = -1;
  $C->{option}->{designate_to}->{G94}->{"\x4A"} = 0;    ## JIS X 0201 roman
  for ("\x40", "\x41", "\x42") {
    $C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
  }
  $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1;   ## KS X 1001
  for ("\x41", "\x46") {        ## ISO/IEC 8859-1,7
    $C->{option}->{designate_to}->{G96}->{ $_ } = 1;
  }
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
  $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
  $C;
}
sub __2022_decode ($) {
  my $C = shift->__2022__common;
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
  $C;
}

package Encode::ISO2022::SevenBit::LockSS2;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit';
__PACKAGE__->Define (qw/iso-2022-7bit-lock-ss2 iso-2022-cjk/);

=item iso-2022-7bit-lock-ss2

An ISO/IEC 2022 based 7-bit encoding.  Mixture of ISO-2022-JP,
ISO-2022-KR, ISO-2022-CN.  (Alias: iso-2022-cjk (emacsen))

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{G96}->{default} = 2;
  $C->{option}->{designate_to}->{G96n}->{default} = 2;
  $C->{option}->{designate_to}->{G94n}->{"\x41"} = 1;   ## GB 2312
  $C->{option}->{designate_to}->{G94n}->{"\x43"} = 1;   ## KS X 1001
  $C->{option}->{designate_to}->{G94n}->{"\x45"} = 1;   ## ISO-IR 165
  $C->{option}->{designate_to}->{G94n}->{"\x47"} = 1;   ## CNS 11643 plane 1
  $C->{option}->{designate_to}->{G94n}->{"\x48"} = 2;   ## CNS 11643 plane 2
  $C->{option}->{designate_to}->{G94n}->{"\x49"} = 3;   ## CNS 11643 plane 3
  $C->{option}->{designate_to}->{G94n}->{"\x4A"} = 3;   ## CNS 11643 plane 4
  $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5
  $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6
  $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7
  $C->{option}->{designate_to}->{G94n}->{P0_0} = 1;     ## GB 12345
  $C->{option}->{designate_to}->{G94n}->{P0_1} = 2;     ## GB 7589
  $C->{option}->{designate_to}->{G94n}->{P0_2} = 2;     ## GB 13131
  $C->{option}->{designate_to}->{G94n}->{P0_3} = 3;     ## GB 7590
  $C->{option}->{designate_to}->{G94n}->{P0_4} = 3;     ## GB 13132
  $C;
}
sub __2022_decode ($) {
  my $C = shift->__2022__common;
  $C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
  $C;
}

package Encode::ISO2022::SevenBit::CN;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit';
__PACKAGE__->Define (qw/iso-2022-cn chinese-iso-7bit  iso2022cn-cns iso2022cn-gb/);

=item iso-2022-cn

An ISO/IEC 2022 based 7-bit encoding for Chinese,
defined by RFC 1922 (Alias: chinese-iso-7bit (emacsen))

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{C0}->{default} = -1;
  $C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
  $C->{option}->{designate_to}->{C1}->{default} = -1;
  $C->{option}->{designate_to}->{G94}->{default} = -1;
  $C->{option}->{designate_to}->{G94n}->{default} = -1;
  $C->{option}->{designate_to}->{G96}->{default} = -1;
  $C->{option}->{designate_to}->{G96n}->{default} = -1;
  $C->{option}->{designate_to}->{G94n}->{"\x41"} = 1;   ## GB 2312
  $C->{option}->{designate_to}->{G94n}->{"\x47"} = 1;   ## CNS 11643 plane 1
  $C->{option}->{designate_to}->{G94n}->{"\x48"} = 2;   ## CNS 11643 plane 2
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $C->{GR} = undef;
  $C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"};   ## empty set
  $C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"};  ## empty set
  $C;
}

package Encode::ISO2022::SevenBit::CNExt;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit::CN';
__PACKAGE__->Define (qw/iso-2022-cn-ext/);

=item iso-2022-cn-ext

An ISO/IEC 2022 based 7-bit encoding for Chinese,
defined by RFC 1922

=cut

sub __2022__common ($) {
  my $C = shift->SUPER::__2022__common;
  $C->{option}->{designate_to}->{G94n}->{"\x45"} = 1;   ## ISO-IR 165
  $C->{option}->{designate_to}->{G94n}->{"\x49"} = 3;   ## CNS 11643 plane 3
  $C->{option}->{designate_to}->{G94n}->{"\x4A"} = 3;   ## CNS 11643 plane 4
  $C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3;   ## CNS 11643 plane 5
  $C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3;   ## CNS 11643 plane 6
  $C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3;   ## CNS 11643 plane 7
  $C->{option}->{designate_to}->{G94n}->{P0_0} = 1;     ## GB 12345
  $C->{option}->{designate_to}->{G94n}->{P0_1} = 2;     ## GB 7589
  $C->{option}->{designate_to}->{G94n}->{P0_2} = 2;     ## GB 13131
  $C->{option}->{designate_to}->{G94n}->{P0_3} = 3;     ## GB 7590
  $C->{option}->{designate_to}->{G94n}->{P0_4} = 3;     ## GB 13132
  $C->{option}->{designate_to}->{G94n}->{P1_0} = 3;     ## CNS 11643 plane 8
  $C->{option}->{designate_to}->{G94n}->{P1_1} = 3;     ## CNS 11643 plane 9
  $C->{option}->{designate_to}->{G94n}->{P1_2} = 3;     ## CNS 11643 plane 10
  $C->{option}->{designate_to}->{G94n}->{P1_3} = 3;     ## CNS 11643 plane 11
  $C->{option}->{designate_to}->{G94n}->{P1_4} = 3;     ## CNS 11643 plane 12
  $C->{option}->{designate_to}->{G94n}->{P1_5} = 3;     ## CNS 11643 plane 13
  $C->{option}->{designate_to}->{G94n}->{P1_6} = 3;     ## CNS 11643 plane 14
  $C->{option}->{designate_to}->{G94n}->{P2_0} = 3;     ## CNS 11643 plane 15
  $C->{option}->{designate_to}->{G94n}->{P2_1} = 3;     ## CNS 11643 plane 16
  $C;
}

1;
__END__

=back

=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 $
### SevenBit.pm ends here
1	=head1 NAME
2
3	Encode::ISO2022::SevenBit --- Encode and decode of 7-bit ISO/IEC 2022
4	based encodings
5
6	=head1 ENCODINGS
7
8	=over 4
9
10	=cut
11
12	require 5.7.3;
13	use strict;
14	package Encode::ISO2022::SevenBit;
15	use vars qw($VERSION);
16	$VERSION=do{my @r=(q$Revision: 1.5 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
17	use base qw(Encode::Encoding);
18	__PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7/);
19	require Encode::ISO2022;
20
21	sub encode ($$;$) {
22	my ($obj, $str, $chk) = @_;
23	$_[1] = '' if $chk;
24	$str = &Encode::ISO2022::internal_to_iso2022 ($str, $obj->__2022_encode);
25	return $str;
26	}
27
28	sub decode ($$;$) {
29	my ($obj, $str, $chk) = @_;
30	$_[1] = '' if $chk;
31	return &Encode::ISO2022::iso2022_to_internal ($str, $obj->__2022_decode);
32	}
33
34	=item iso-2022-7bit
35
36	ISO/IEC 2022 based 7-bit encoding using only G0
37	(Alias: junet, jis, jis7, iso-2022-7)
38
39	=cut
40
41	sub __2022__common ($) {
42	my $C = Encode::ISO2022->new_object;
43	$C->{bit} = 7;
44	$C->{option}->{designate_to}->{G96}->{default} = 0;
45	$C->{option}->{designate_to}->{G96n}->{default} = 0;
46	$C;
47	}
48	sub __2022_encode ($) {
49	my $C = shift->__2022__common;
50	$C->{GR} = undef;
51	$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
52	$C;
53	}
54	sub __2022_decode ($) {
55	my $C = shift->__2022__common;
56
57	$C;
58	}
59
60	package Encode::ISO2022::SevenBit::JP;
61	use vars qw/@ISA/;
62	push @ISA, 'Encode::ISO2022::SevenBit';
63	__PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp
64	iso2022jp/);
65
66	=item iso-2022-jp
67
68	ISO/IEC 2022 based 7-bit encoding for Japanese.
69	Defined by Junet no tebiki, RFC 1468 and JIS X 0208:1997 Appendix 2.
70	(Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA))
71
72	=cut
73
74	sub __2022__common ($) {
75	my $C = Encode::ISO2022->new_object;
76	$C->{bit} = 7;
77	$C->{option}->{designate_to}->{C0}->{default} = -1;
78	$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
79	$C->{option}->{designate_to}->{C1}->{default} = -1;
80	$C->{option}->{designate_to}->{G94}->{default} = -1;
81	$C->{option}->{designate_to}->{G94n}->{default} = -1;
82	$C->{option}->{designate_to}->{G96}->{default} = -1;
83	$C->{option}->{designate_to}->{G96n}->{default} = -1;
84	$C->{option}->{designate_to}->{G94}->{"\x4A"} = 0; ## JIS X 0201 roman
85	$C->{option}->{designate_to}->{G94n}->{"\x40"} = 0; ## JIS X 0208-1978
86	$C->{option}->{designate_to}->{G94n}->{"\x42"} = 0; ## JIS X 0208-1983
87	$C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = 0; ## JIS X 0208-1990
88	$C->{option}->{use_revision} = 0;
89	$C;
90	}
91	sub __2022_encode ($) {
92	my $C = shift->__2022__common;
93	$C->{GR} = undef;
94	$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
95	$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
96	$C;
97	}
98
99	package Encode::ISO2022::SevenBit::JP1978IRV;
100	use vars qw/@ISA/;
101	push @ISA, 'Encode::ISO2022::SevenBit::JP';
102	__PACKAGE__->Define (qw/iso-2022-jp-1978-irv japanese-iso-7bit-1978-irv old-jis
103	x-obsoleted-iso-2022-jp jis78/);
104
105	=item iso-2022-jp-1978-irv
106
107	ISO/IEC 2022 based 7-bit encoding for Japanese,
108	using JIS X 0208-1978.
109	(Alias: japanese-iso-7bit-1978-irv (emacsen), old-jis (emacsen),
110	jis78)
111
112	=cut
113
114	sub __2022_encode ($) {
115	my $C = shift->__2022__common;
116	$C->{GR} = undef;
117	$C->{option}->{designate_to}->{G94}->{"\x4A"} = -1; ## JIS X 0201 roman
118	$C->{option}->{designate_to}->{G94n}->{"\x42"} = -1; ## JIS X 0208-1983
119	$C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1; ## JIS X 0208-1990
120	$C;
121	}
122
123	package Encode::ISO2022::SevenBit::JP1;
124	use vars qw/@ISA/;
125	push @ISA, 'Encode::ISO2022::SevenBit::JP';
126	__PACKAGE__->Define (qw/iso-2022-jp-1/);
127
128	=item iso-2022-jp-1
129
130	ISO/IEC 2022 based 7-bit encoding for Japanese,
131	defined by RFC 2237
132
133	=cut
134
135	sub __2022__common ($) {
136	my $C = shift->SUPER::__2022__common;
137	$C->{option}->{designate_to}->{G94n}->{"\x44"} = 0; ## JIS X 0212-1990
138	$C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1; ## JIS X 0208-1990
139	$C;
140	}
141
142	package Encode::ISO2022::SevenBit::JP3;
143	use vars qw/@ISA/;
144	push @ISA, 'Encode::ISO2022::SevenBit::JP';
145	__PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3
146	jis0213 iso-2022-jp-3-compatible iso-2022-jp-3-strict/);
147
148	=item iso-2022-jp-3
149
150	ISO/IEC 2022 based 7-bit encoding for Japanese,
151	defined by JIS X 0213:2000 Appendix 2.
152	(Alias: x-iso-2022-jp-3, jis0213)
153
154	=item iso-2022-jp-3-compatible
155
156	ISO/IEC 2022 based 7-bit encoding for Japanese
157
158	=item iso-2022-jp-3-strict
159
160	ISO/IEC 2022 based 7-bit encoding for Japanese.
161	A subset of iso-2022-jp-3.
162
163	=cut
164
165	sub __2022__common ($) {
166	my $C = shift->SUPER::__2022__common;
167	$C->{option}->{designate_to}->{G94}->{"\x4A"} = -1; ## JIS X 0201 roman
168	$C->{option}->{designate_to}->{G94n}->{"\x40"} = -1; ## JIS X 0208-1978
169	$C->{option}->{designate_to}->{G94n}->{"\x42"} = 0; ## restricted JIS X 0213:2000 plane 1
170	$C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1; ## JIS X 0208-1990
171	$C->{option}->{designate_to}->{G94n}->{"\x4F"} = 0; ## JIS X 0213:2000 plane 1
172	$C->{option}->{designate_to}->{G94n}->{"\x50"} = 0; ## JIS X 0213:2000 plane 2
173	$C;
174	}
175
176	package Encode::ISO2022::SevenBit::JP3Plane1;
177	use vars qw/@ISA/;
178	push @ISA, 'Encode::ISO2022::SevenBit::JP3';
179	__PACKAGE__->Define (qw/iso-2022-jp-3-plane1/);
180
181	=item iso-2022-jp-3-plane1
182
183	ISO/IEC 2022 based 7-bit encoding for Japanese,
184	defined by JIS X 0213:2000 Appendix 2.
185
186	=cut
187
188	sub __2022__common ($) {
189	my $C = shift->SUPER::__2022__common;
190	$C->{option}->{designate_to}->{G94n}->{"\x50"} = -1; ## JIS X 0213:2000 plane 2
191	$C;
192	}
193
194	package Encode::ISO2022::SevenBit::SS2;
195	use vars qw/@ISA/;
196	push @ISA, 'Encode::ISO2022::SevenBit';
197	__PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2 iso-2022-ss2-7
198	jis_encoding csjisencoding/);
199
200	=item iso-2022-7bit-ss2
201
202	ISO/IEC 2022 based 7-bit encoding using SS2 for 96-charset
203	(Alias: x-iso-2022-jp-2, iso-2022-ss2-7 (emacsen))
204
205	=cut
206
207	sub __2022__common ($) {
208	my $C = shift->SUPER::__2022__common;
209	$C->{option}->{designate_to}->{G96}->{default} = 2;
210	$C->{option}->{designate_to}->{G96n}->{default} = 2;
211	$C->{option}->{Ginvoke_by_single_shift}->[2] = 1;
212	$C;
213	}
214
215	package Encode::ISO2022::SevenBit::JP2;
216	use vars qw/@ISA/;
217	push @ISA, 'Encode::ISO2022::SevenBit::SS2';
218	__PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2/);
219
220	=item iso-2022-jp-2
221
222	ISO/IEC 2022 based 7-bit multilingual encoding, defined by
223	RFC 1554. A subset of iso-2022-7bit-ss2. (Alias: csISO2022JP2 (IANA))
224
225	=cut
226
227	sub __2022__common ($) {
228	my $C = shift->SUPER::__2022__common;
229	$C->{option}->{designate_to}->{C0}->{default} = -1;
230	$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
231	$C->{option}->{designate_to}->{C1}->{default} = -1;
232	$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x47"}; ## Minimum C1
233	$C->{option}->{designate_to}->{C1}->{"\x47"} = 1;
234	$C->{option}->{designate_to}->{G94}->{default} = -1;
235	$C->{option}->{designate_to}->{G94n}->{default} = -1;
236	$C->{option}->{designate_to}->{G96}->{default} = -1;
237	$C->{option}->{designate_to}->{G96n}->{default} = -1;
238	$C->{option}->{designate_to}->{G94}->{"\x4A"} = 0; ## JIS X 0201 roman
239	for ("\x40", "\x41", "\x42", "\x43") {
240	$C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
241	}
242	for ("\x41", "\x46") {
243	$C->{option}->{designate_to}->{G96}->{ $_ } = 2;
244	}
245	$C;
246	}
247	sub __2022_encode ($) {
248	my $C = shift->__2022__common;
249	$C->{GR} = undef;
250	$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
251	$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
252	$C;
253	}
254
255	package Encode::ISO2022::SevenBit::Lock;
256	use vars qw/@ISA/;
257	push @ISA, 'Encode::ISO2022::SevenBit';
258	__PACKAGE__->Define (qw/iso-2022-7bit-lock/);
259
260	=item iso-2022-7bit-lock
261
262	ISO/IEC 2022 based 7-bit encoding using G1 and locking-shift for 96-charset
263
264	=cut
265
266	sub __2022__common ($) {
267	my $C = shift->SUPER::__2022__common;
268	$C->{option}->{designate_to}->{G96}->{default} = 1;
269	$C->{option}->{designate_to}->{G96n}->{default} = 1;
270	$C;
271	}
272
273	package Encode::ISO2022::SevenBit::INT;
274	use vars qw/@ISA/;
275	push @ISA, 'Encode::ISO2022::SevenBit';
276	__PACKAGE__->Define (qw/iso-2022-int iso-2022-int-* iso-2022-int-2/);
277
278	=item iso-2022-int
279
280	ISO/IEC 2022 based 7-bit encoding using G1 and locking-shift for
281	KS X 1001 and 96-charset. See draft-ohta-text-encoding.
282	(Alias: iso-2022-int-*)
283
284	=cut
285
286	sub __2022__common ($) {
287	my $C = shift->SUPER::__2022__common;
288	$C->{option}->{designate_to}->{G96}->{default} = 1;
289	$C->{option}->{designate_to}->{G96n}->{default} = 1;
290	$C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
291	$C;
292	}
293	sub __2022_encode ($) {
294	my $C = shift->__2022__common;
295	$C->{GR} = undef;
296	$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
297	$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
298	$C;
299	}
300	sub __2022_decode ($) {
301	my $C = shift->__2022__common;
302	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
303	$C;
304	}
305
306	package Encode::ISO2022::SevenBit::KR;
307	use vars qw/@ISA/;
308	push @ISA, 'Encode::ISO2022::SevenBit';
309	__PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit csiso2022kr cp50225 kr2022/);
310
311	=item iso-2022-kr
312
313	An ISO/IEC 2022 based 7-bit encoding for Korean,
314	defined by RFC 1557 (Alias: korean-iso-7bit (emacsen),
315	csISO2022KR (IANA), CP50225 (M$), KR2022)
316
317	=cut
318
319	sub __2022__common ($) {
320	my $C = shift->SUPER::__2022__common;
321	$C->{option}->{designate_to}->{C0}->{default} = -1;
322	$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
323	$C->{option}->{designate_to}->{C1}->{default} = -1;
324	$C->{option}->{designate_to}->{G94}->{default} = -1;
325	$C->{option}->{designate_to}->{G94n}->{default} = -1;
326	$C->{option}->{designate_to}->{G96}->{default} = -1;
327	$C->{option}->{designate_to}->{G96n}->{default} = -1;
328	$C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
329	$C;
330	}
331	sub __2022_encode ($) {
332	my $C = shift->__2022__common;
333	$C->{GR} = undef;
334	$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
335	$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
336	$C;
337	}
338	sub __2022_decode ($) {
339	my $C = shift->__2022__common;
340	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
341	$C;
342	}
343
344	package Encode::ISO2022::SevenBit::INT1;
345	use vars qw/@ISA/;
346	push @ISA, 'Encode::ISO2022::SevenBit';
347	__PACKAGE__->Define (qw/iso-2022-int-1/);
348
349	=item iso-2022-int-1
350
351	An ISO/IEC 2022 based 7-bit multilingual encoding,
352	defined by draft-ohta-text-encoding
353
354	=cut
355
356	sub __2022__common ($) {
357	my $C = shift->SUPER::__2022__common;
358	$C->{option}->{designate_to}->{C0}->{default} = -1;
359	$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
360	$C->{option}->{designate_to}->{C1}->{default} = -1;
361	$C->{option}->{designate_to}->{G94}->{default} = -1;
362	$C->{option}->{designate_to}->{G94n}->{default} = -1;
363	$C->{option}->{designate_to}->{G96}->{default} = -1;
364	$C->{option}->{designate_to}->{G96n}->{default} = -1;
365	$C->{option}->{designate_to}->{G94}->{"\x4A"} = 0; ## JIS X 0201 roman
366	for ("\x40", "\x41", "\x42") {
367	$C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
368	}
369	$C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
370	for ("\x41", "\x46") { ## ISO/IEC 8859-1,7
371	$C->{option}->{designate_to}->{G96}->{ $_ } = 1;
372	}
373	$C;
374	}
375	sub __2022_encode ($) {
376	my $C = shift->__2022__common;
377	$C->{GR} = undef;
378	$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
379	$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
380	$C;
381	}
382	sub __2022_decode ($) {
383	my $C = shift->__2022__common;
384	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
385	$C;
386	}
387
388	package Encode::ISO2022::SevenBit::LockSS2;
389	use vars qw/@ISA/;
390	push @ISA, 'Encode::ISO2022::SevenBit';
391	__PACKAGE__->Define (qw/iso-2022-7bit-lock-ss2 iso-2022-cjk/);
392
393	=item iso-2022-7bit-lock-ss2
394
395	An ISO/IEC 2022 based 7-bit encoding. Mixture of ISO-2022-JP,
396	ISO-2022-KR, ISO-2022-CN. (Alias: iso-2022-cjk (emacsen))
397
398	=cut
399
400	sub __2022__common ($) {
401	my $C = shift->SUPER::__2022__common;
402	$C->{option}->{designate_to}->{G96}->{default} = 2;
403	$C->{option}->{designate_to}->{G96n}->{default} = 2;
404	$C->{option}->{designate_to}->{G94n}->{"\x41"} = 1; ## GB 2312
405	$C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
406	$C->{option}->{designate_to}->{G94n}->{"\x45"} = 1; ## ISO-IR 165
407	$C->{option}->{designate_to}->{G94n}->{"\x47"} = 1; ## CNS 11643 plane 1
408	$C->{option}->{designate_to}->{G94n}->{"\x48"} = 2; ## CNS 11643 plane 2
409	$C->{option}->{designate_to}->{G94n}->{"\x49"} = 3; ## CNS 11643 plane 3
410	$C->{option}->{designate_to}->{G94n}->{"\x4A"} = 3; ## CNS 11643 plane 4
411	$C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3; ## CNS 11643 plane 5
412	$C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3; ## CNS 11643 plane 6
413	$C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3; ## CNS 11643 plane 7
414	$C->{option}->{designate_to}->{G94n}->{P0_0} = 1; ## GB 12345
415	$C->{option}->{designate_to}->{G94n}->{P0_1} = 2; ## GB 7589
416	$C->{option}->{designate_to}->{G94n}->{P0_2} = 2; ## GB 13131
417	$C->{option}->{designate_to}->{G94n}->{P0_3} = 3; ## GB 7590
418	$C->{option}->{designate_to}->{G94n}->{P0_4} = 3; ## GB 13132
419	$C;
420	}
421	sub __2022_decode ($) {
422	my $C = shift->__2022__common;
423	$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
424	$C;
425	}
426
427	package Encode::ISO2022::SevenBit::CN;
428	use vars qw/@ISA/;
429	push @ISA, 'Encode::ISO2022::SevenBit';
430	__PACKAGE__->Define (qw/iso-2022-cn chinese-iso-7bit iso2022cn-cns iso2022cn-gb/);
431
432	=item iso-2022-cn
433
434	An ISO/IEC 2022 based 7-bit encoding for Chinese,
435	defined by RFC 1922 (Alias: chinese-iso-7bit (emacsen))
436
437	=cut
438
439	sub __2022__common ($) {
440	my $C = shift->SUPER::__2022__common;
441	$C->{option}->{designate_to}->{C0}->{default} = -1;
442	$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
443	$C->{option}->{designate_to}->{C1}->{default} = -1;
444	$C->{option}->{designate_to}->{G94}->{default} = -1;
445	$C->{option}->{designate_to}->{G94n}->{default} = -1;
446	$C->{option}->{designate_to}->{G96}->{default} = -1;
447	$C->{option}->{designate_to}->{G96n}->{default} = -1;
448	$C->{option}->{designate_to}->{G94n}->{"\x41"} = 1; ## GB 2312
449	$C->{option}->{designate_to}->{G94n}->{"\x47"} = 1; ## CNS 11643 plane 1
450	$C->{option}->{designate_to}->{G94n}->{"\x48"} = 2; ## CNS 11643 plane 2
451	$C;
452	}
453	sub __2022_encode ($) {
454	my $C = shift->__2022__common;
455	$C->{GR} = undef;
456	$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
457	$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
458	$C;
459	}
460
461	package Encode::ISO2022::SevenBit::CNExt;
462	use vars qw/@ISA/;
463	push @ISA, 'Encode::ISO2022::SevenBit::CN';
464	__PACKAGE__->Define (qw/iso-2022-cn-ext/);
465
466	=item iso-2022-cn-ext
467
468	An ISO/IEC 2022 based 7-bit encoding for Chinese,
469	defined by RFC 1922
470
471	=cut
472
473	sub __2022__common ($) {
474	my $C = shift->SUPER::__2022__common;
475	$C->{option}->{designate_to}->{G94n}->{"\x45"} = 1; ## ISO-IR 165
476	$C->{option}->{designate_to}->{G94n}->{"\x49"} = 3; ## CNS 11643 plane 3
477	$C->{option}->{designate_to}->{G94n}->{"\x4A"} = 3; ## CNS 11643 plane 4
478	$C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3; ## CNS 11643 plane 5
479	$C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3; ## CNS 11643 plane 6
480	$C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3; ## CNS 11643 plane 7
481	$C->{option}->{designate_to}->{G94n}->{P0_0} = 1; ## GB 12345
482	$C->{option}->{designate_to}->{G94n}->{P0_1} = 2; ## GB 7589
483	$C->{option}->{designate_to}->{G94n}->{P0_2} = 2; ## GB 13131
484	$C->{option}->{designate_to}->{G94n}->{P0_3} = 3; ## GB 7590
485	$C->{option}->{designate_to}->{G94n}->{P0_4} = 3; ## GB 13132
486	$C->{option}->{designate_to}->{G94n}->{P1_0} = 3; ## CNS 11643 plane 8
487	$C->{option}->{designate_to}->{G94n}->{P1_1} = 3; ## CNS 11643 plane 9
488	$C->{option}->{designate_to}->{G94n}->{P1_2} = 3; ## CNS 11643 plane 10
489	$C->{option}->{designate_to}->{G94n}->{P1_3} = 3; ## CNS 11643 plane 11
490	$C->{option}->{designate_to}->{G94n}->{P1_4} = 3; ## CNS 11643 plane 12
491	$C->{option}->{designate_to}->{G94n}->{P1_5} = 3; ## CNS 11643 plane 13
492	$C->{option}->{designate_to}->{G94n}->{P1_6} = 3; ## CNS 11643 plane 14
493	$C->{option}->{designate_to}->{G94n}->{P2_0} = 3; ## CNS 11643 plane 15
494	$C->{option}->{designate_to}->{G94n}->{P2_1} = 3; ## CNS 11643 plane 16
495	$C;
496	}
497
498	1;
499	__END__
500
501	=back
502
503	=head1 LICENSE
504
505	Copyright 2002 Wakaba <w@suika.fam.cx>
506
507	This library is free software; you can redistribute it
508	and/or modify it under the same terms as Perl itself.
509
510	=cut
511
512	# $Date: 2002/09/20 14:01:45 $
513	### SevenBit.pm ends here