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.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
use base qw(Encode::Encoding);
__PACKAGE__->Define (qw/iso-2022-7bit jis junet/);
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)

=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->{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/);

=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))

=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->{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/);

=item iso-2022-jp-1978-irv

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

=cut

sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $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   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)

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

=item iso-2022-7bit-ss2

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

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

=item iso-2022-jp-2

ISO/IEC 2022 based 7-bit multilingual encoding, defined by
RFC 1554.  A subset of iso-2022-7bit-ss2.

=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->{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::KR;
use vars qw/@ISA/;
push @ISA, 'Encode::ISO2022::SevenBit';
__PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit/);

=item iso-2022-kr

An ISO/IEC 2022 based 7-bit encoding for Korean,
defined by RFC 1557 (Alias: korean-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}->{"\x43"} = 1;   ## KS X 1001
  $C;
}
sub __2022_encode ($) {
  my $C = shift->__2022__common;
  $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->{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;
}
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/);

=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->{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;
}

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: $
### SevenBit.pm ends here
1	wakaba	1.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.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
17			use base qw(Encode::Encoding);
18			__PACKAGE__->Define (qw/iso-2022-7bit jis junet/);
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)
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->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
51			$C;
52			}
53			sub __2022_decode ($) {
54			my $C = shift->__2022__common;
55
56			$C;
57			}
58
59			package Encode::ISO2022::SevenBit::JP;
60			use vars qw/@ISA/;
61			push @ISA, 'Encode::ISO2022::SevenBit';
62			__PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit/);
63
64			=item iso-2022-jp
65
66			ISO/IEC 2022 based 7-bit encoding for Japanese.
67			Defined by Junet no tebiki, RFC 1468 and JIS X 0208:1997 Appendix 2.
68			(Alias: junet-code, japanese-iso-7bit (emacsen))
69
70			=cut
71
72			sub __2022__common ($) {
73			my $C = Encode::ISO2022->new_object;
74			$C->{bit} = 7;
75			$C->{option}->{designate_to}->{C0}->{default} = -1;
76			$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
77			$C->{option}->{designate_to}->{C1}->{default} = -1;
78			$C->{option}->{designate_to}->{G94}->{default} = -1;
79			$C->{option}->{designate_to}->{G94n}->{default} = -1;
80			$C->{option}->{designate_to}->{G96}->{default} = -1;
81			$C->{option}->{designate_to}->{G96n}->{default} = -1;
82			$C->{option}->{designate_to}->{G94}->{"\x4A"} = 0; ## JIS X 0201 roman
83			$C->{option}->{designate_to}->{G94n}->{"\x40"} = 0; ## JIS X 0208-1978
84			$C->{option}->{designate_to}->{G94n}->{"\x42"} = 0; ## JIS X 0208-1983
85			$C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = 0; ## JIS X 0208-1990
86			$C->{option}->{use_revision} = 0;
87			$C;
88			}
89			sub __2022_encode ($) {
90			my $C = shift->__2022__common;
91			$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
92			$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
93			$C;
94			}
95
96			package Encode::ISO2022::SevenBit::JP1978IRV;
97			use vars qw/@ISA/;
98			push @ISA, 'Encode::ISO2022::SevenBit::JP';
99			__PACKAGE__->Define (qw/iso-2022-jp-1978-irv japanese-iso-7bit-1978-irv old-jis/);
100
101			=item iso-2022-jp-1978-irv
102
103			ISO/IEC 2022 based 7-bit encoding for Japanese.
104			(Alias: japanese-iso-7bit-1978-irv (emacsen), old-jis (emacsen))
105
106			=cut
107
108			sub __2022_encode ($) {
109			my $C = shift->__2022__common;
110			$C->{option}->{designate_to}->{G94}->{"\x4A"} = -1; ## JIS X 0201 roman
111			$C->{option}->{designate_to}->{G94n}->{"\x42"} = -1; ## JIS X 0208-1983
112			$C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1; ## JIS X 0208-1990
113			$C;
114			}
115
116			package Encode::ISO2022::SevenBit::JP1;
117			use vars qw/@ISA/;
118			push @ISA, 'Encode::ISO2022::SevenBit::JP';
119			__PACKAGE__->Define (qw/iso-2022-jp-1/);
120
121			=item iso-2022-jp-1
122
123			ISO/IEC 2022 based 7-bit encoding for Japanese,
124			defined by RFC 2237
125
126			=cut
127
128			sub __2022__common ($) {
129			my $C = shift->SUPER::__2022__common;
130			$C->{option}->{designate_to}->{G94n}->{"\x44"} = 0; ## JIS X 0212-1990
131			$C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1; ## JIS X 0208-1990
132			$C;
133			}
134
135			package Encode::ISO2022::SevenBit::JP3;
136			use vars qw/@ISA/;
137			push @ISA, 'Encode::ISO2022::SevenBit::JP';
138			__PACKAGE__->Define (qw/iso-2022-jp-3 x-iso-2022-jp-3 iso-2022-jp-3-compatible iso-2022-jp-3-strict/);
139
140			=item iso-2022-jp-3
141
142			ISO/IEC 2022 based 7-bit encoding for Japanese,
143			defined by JIS X 0213:2000 Appendix 2.
144			(Alias: x-iso-2022-jp-3)
145
146			=item iso-2022-jp-3-compatible
147
148			ISO/IEC 2022 based 7-bit encoding for Japanese
149
150			=item iso-2022-jp-3-strict
151
152			ISO/IEC 2022 based 7-bit encoding for Japanese.
153			A subset of iso-2022-jp-3.
154
155			=cut
156
157			sub __2022__common ($) {
158			my $C = shift->SUPER::__2022__common;
159			$C->{option}->{designate_to}->{G94}->{"\x4A"} = -1; ## JIS X 0201 roman
160			$C->{option}->{designate_to}->{G94n}->{"\x40"} = -1; ## JIS X 0208-1978
161			$C->{option}->{designate_to}->{G94n}->{"\x42"} = 0; ## restricted JIS X 0213:2000 plane 1
162			$C->{option}->{designate_to}->{G94n}->{"\x42\x40"} = -1; ## JIS X 0208-1990
163			$C->{option}->{designate_to}->{G94n}->{"\x4F"} = 0; ## JIS X 0213:2000 plane 1
164			$C->{option}->{designate_to}->{G94n}->{"\x50"} = 0; ## JIS X 0213:2000 plane 2
165			$C;
166			}
167
168			package Encode::ISO2022::SevenBit::JP3Plane1;
169			use vars qw/@ISA/;
170			push @ISA, 'Encode::ISO2022::SevenBit::JP3';
171			__PACKAGE__->Define (qw/iso-2022-jp-3-plane1/);
172
173			=item iso-2022-jp-3-plane1
174
175			ISO/IEC 2022 based 7-bit encoding for Japanese,
176			defined by JIS X 0213:2000 Appendix 2.
177
178			=cut
179
180			sub __2022__common ($) {
181			my $C = shift->SUPER::__2022__common;
182			$C->{option}->{designate_to}->{G94n}->{"\x50"} = -1; ## JIS X 0213:2000 plane 2
183			$C;
184			}
185
186			package Encode::ISO2022::SevenBit::SS2;
187			use vars qw/@ISA/;
188			push @ISA, 'Encode::ISO2022::SevenBit';
189			__PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2/);
190
191			=item iso-2022-7bit-ss2
192
193			ISO/IEC 2022 based 7-bit encoding using SS2 for 96-charset
194			(Alias: x-iso-2022-jp-2)
195
196			=cut
197
198			sub __2022__common ($) {
199			my $C = shift->SUPER::__2022__common;
200			$C->{option}->{designate_to}->{G96}->{default} = 2;
201			$C->{option}->{designate_to}->{G96n}->{default} = 2;
202			$C->{option}->{Ginvoke_by_single_shift}->[2] = 1;
203			$C;
204			}
205
206			package Encode::ISO2022::SevenBit::JP2;
207			use vars qw/@ISA/;
208			push @ISA, 'Encode::ISO2022::SevenBit::SS2';
209			__PACKAGE__->Define (qw/iso-2022-jp-2/);
210
211			=item iso-2022-jp-2
212
213			ISO/IEC 2022 based 7-bit multilingual encoding, defined by
214			RFC 1554. A subset of iso-2022-7bit-ss2.
215
216			=cut
217
218			sub __2022__common ($) {
219			my $C = shift->SUPER::__2022__common;
220			$C->{option}->{designate_to}->{C0}->{default} = -1;
221			$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
222			$C->{option}->{designate_to}->{C1}->{default} = -1;
223			$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x47"}; ## Minimum C1
224			$C->{option}->{designate_to}->{C1}->{"\x47"} = 1;
225			$C->{option}->{designate_to}->{G94}->{default} = -1;
226			$C->{option}->{designate_to}->{G94n}->{default} = -1;
227			$C->{option}->{designate_to}->{G96}->{default} = -1;
228			$C->{option}->{designate_to}->{G96n}->{default} = -1;
229			$C->{option}->{designate_to}->{G94}->{"\x4A"} = 0; ## JIS X 0201 roman
230			for ("\x40", "\x41", "\x42", "\x43") {
231			$C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
232			}
233			for ("\x41", "\x46") {
234			$C->{option}->{designate_to}->{G96}->{ $_ } = 2;
235			}
236			$C;
237			}
238			sub __2022_encode ($) {
239			my $C = shift->__2022__common;
240			$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
241			$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
242			$C;
243			}
244
245			package Encode::ISO2022::SevenBit::Lock;
246			use vars qw/@ISA/;
247			push @ISA, 'Encode::ISO2022::SevenBit';
248			__PACKAGE__->Define (qw/iso-2022-7bit-lock/);
249
250			=item iso-2022-7bit-lock
251
252			ISO/IEC 2022 based 7-bit encoding using G1 and locking-shift for 96-charset
253
254			=cut
255
256			sub __2022__common ($) {
257			my $C = shift->SUPER::__2022__common;
258			$C->{option}->{designate_to}->{G96}->{default} = 1;
259			$C->{option}->{designate_to}->{G96n}->{default} = 1;
260			$C;
261			}
262
263			package Encode::ISO2022::SevenBit::KR;
264			use vars qw/@ISA/;
265			push @ISA, 'Encode::ISO2022::SevenBit';
266			__PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit/);
267
268			=item iso-2022-kr
269
270			An ISO/IEC 2022 based 7-bit encoding for Korean,
271			defined by RFC 1557 (Alias: korean-iso-7bit (emacsen))
272
273			=cut
274
275			sub __2022__common ($) {
276			my $C = shift->SUPER::__2022__common;
277			$C->{option}->{designate_to}->{C0}->{default} = -1;
278			$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
279			$C->{option}->{designate_to}->{C1}->{default} = -1;
280			$C->{option}->{designate_to}->{G94}->{default} = -1;
281			$C->{option}->{designate_to}->{G94n}->{default} = -1;
282			$C->{option}->{designate_to}->{G96}->{default} = -1;
283			$C->{option}->{designate_to}->{G96n}->{default} = -1;
284			$C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
285			$C;
286			}
287			sub __2022_encode ($) {
288			my $C = shift->__2022__common;
289			$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
290			$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
291			$C;
292			}
293			sub __2022_decode ($) {
294			my $C = shift->__2022__common;
295			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
296			$C;
297			}
298
299			package Encode::ISO2022::SevenBit::INT1;
300			use vars qw/@ISA/;
301			push @ISA, 'Encode::ISO2022::SevenBit';
302			__PACKAGE__->Define (qw/iso-2022-int-1/);
303
304			=item iso-2022-int-1
305
306			An ISO/IEC 2022 based 7-bit multilingual encoding,
307			defined by draft-ohta-text-encoding
308
309			=cut
310
311			sub __2022__common ($) {
312			my $C = shift->SUPER::__2022__common;
313			$C->{option}->{designate_to}->{C0}->{default} = -1;
314			$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
315			$C->{option}->{designate_to}->{C1}->{default} = -1;
316			$C->{option}->{designate_to}->{G94}->{default} = -1;
317			$C->{option}->{designate_to}->{G94n}->{default} = -1;
318			$C->{option}->{designate_to}->{G96}->{default} = -1;
319			$C->{option}->{designate_to}->{G96n}->{default} = -1;
320			$C->{option}->{designate_to}->{G94}->{"\x4A"} = 0; ## JIS X 0201 roman
321			for ("\x40", "\x41", "\x42") {
322			$C->{option}->{designate_to}->{G94n}->{ $_ } = 0;
323			}
324			$C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
325			for ("\x41", "\x46") { ## ISO/IEC 8859-1,7
326			$C->{option}->{designate_to}->{G96}->{ $_ } = 1;
327			}
328			$C;
329			}
330			sub __2022_encode ($) {
331			my $C = shift->__2022__common;
332			$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
333			$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
334			$C;
335			}
336			sub __2022_decode ($) {
337			my $C = shift->__2022__common;
338			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
339			$C;
340			}
341
342			package Encode::ISO2022::SevenBit::LockSS2;
343			use vars qw/@ISA/;
344			push @ISA, 'Encode::ISO2022::SevenBit';
345			__PACKAGE__->Define (qw/iso-2022-7bit-lock-ss2 iso-2022-cjk/);
346
347			=item iso-2022-7bit-lock-ss2
348
349			An ISO/IEC 2022 based 7-bit encoding. Mixture of ISO-2022-JP,
350			ISO-2022-KR, ISO-2022-CN. (Alias: iso-2022-cjk (emacsen))
351
352			=cut
353
354			sub __2022__common ($) {
355			my $C = shift->SUPER::__2022__common;
356			$C->{option}->{designate_to}->{G96}->{default} = 2;
357			$C->{option}->{designate_to}->{G96n}->{default} = 2;
358			$C->{option}->{designate_to}->{G94n}->{"\x41"} = 1; ## GB 2312
359			$C->{option}->{designate_to}->{G94n}->{"\x43"} = 1; ## KS X 1001
360			$C->{option}->{designate_to}->{G94n}->{"\x45"} = 1; ## ISO-IR 165
361			$C->{option}->{designate_to}->{G94n}->{"\x47"} = 1; ## CNS 11643 plane 1
362			$C->{option}->{designate_to}->{G94n}->{"\x48"} = 2; ## CNS 11643 plane 2
363			$C->{option}->{designate_to}->{G94n}->{"\x49"} = 3; ## CNS 11643 plane 3
364			$C->{option}->{designate_to}->{G94n}->{"\x4A"} = 3; ## CNS 11643 plane 4
365			$C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3; ## CNS 11643 plane 5
366			$C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3; ## CNS 11643 plane 6
367			$C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3; ## CNS 11643 plane 7
368			$C;
369			}
370			sub __2022_decode ($) {
371			my $C = shift->__2022__common;
372			$C->{G1} = $Encode::ISO2022::CHARSET{G94n}->{"\x43"}; ## KS X 1001
373			$C;
374			}
375
376			package Encode::ISO2022::SevenBit::CN;
377			use vars qw/@ISA/;
378			push @ISA, 'Encode::ISO2022::SevenBit';
379			__PACKAGE__->Define (qw/iso-2022-cn chinese-iso-7bit/);
380
381			=item iso-2022-cn
382
383			An ISO/IEC 2022 based 7-bit encoding for Chinese,
384			defined by RFC 1922 (Alias: chinese-iso-7bit (emacsen))
385
386			=cut
387
388			sub __2022__common ($) {
389			my $C = shift->SUPER::__2022__common;
390			$C->{option}->{designate_to}->{C0}->{default} = -1;
391			$C->{option}->{designate_to}->{C0}->{"\x40"} = 0;
392			$C->{option}->{designate_to}->{C1}->{default} = -1;
393			$C->{option}->{designate_to}->{G94}->{default} = -1;
394			$C->{option}->{designate_to}->{G94n}->{default} = -1;
395			$C->{option}->{designate_to}->{G96}->{default} = -1;
396			$C->{option}->{designate_to}->{G96n}->{default} = -1;
397			$C->{option}->{designate_to}->{G94n}->{"\x41"} = 1; ## GB 2312
398			$C->{option}->{designate_to}->{G94n}->{"\x47"} = 1; ## CNS 11643 plane 1
399			$C->{option}->{designate_to}->{G94n}->{"\x48"} = 2; ## CNS 11643 plane 2
400			$C;
401			}
402			sub __2022_encode ($) {
403			my $C = shift->__2022__common;
404			$C->{C1} = $Encode::ISO2022::CHARSET{C1}->{"\x7E"}; ## empty set
405			$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{"\x7E"}; ## empty set
406			$C;
407			}
408
409			package Encode::ISO2022::SevenBit::CNExt;
410			use vars qw/@ISA/;
411			push @ISA, 'Encode::ISO2022::SevenBit::CN';
412			__PACKAGE__->Define (qw/iso-2022-cn-ext/);
413
414			=item iso-2022-cn-ext
415
416			An ISO/IEC 2022 based 7-bit encoding for Chinese,
417			defined by RFC 1922
418
419			=cut
420
421			sub __2022__common ($) {
422			my $C = shift->SUPER::__2022__common;
423			$C->{option}->{designate_to}->{G94n}->{"\x45"} = 1; ## ISO-IR 165
424			$C->{option}->{designate_to}->{G94n}->{"\x49"} = 3; ## CNS 11643 plane 3
425			$C->{option}->{designate_to}->{G94n}->{"\x4A"} = 3; ## CNS 11643 plane 4
426			$C->{option}->{designate_to}->{G94n}->{"\x4B"} = 3; ## CNS 11643 plane 5
427			$C->{option}->{designate_to}->{G94n}->{"\x4C"} = 3; ## CNS 11643 plane 6
428			$C->{option}->{designate_to}->{G94n}->{"\x4D"} = 3; ## CNS 11643 plane 7
429			$C;
430			}
431
432			1;
433			__END__
434
435			=back
436
437			=head1 LICENSE
438
439			Copyright 2002 wakaba <w@suika.fam.cx>
440
441			This library is free software; you can redistribute it
442			and/or modify it under the same terms as Perl itself.
443
444			=cut
445
446			# $Date: $
447			### SevenBit.pm ends here