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.6 $=~/\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
  7bit-jis/);
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 (emacsen), jis, jis7, iso-2022-7 (emacsen), 7bit-jis (perl))

=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 <[email protected]>

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

=cut

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