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	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	wakaba	1.6	$VERSION=do{my @r=(q$Revision: 1.5 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
17	wakaba	1.1	use base qw(Encode::Encoding);
18	wakaba	1.3	__PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7/);
19	wakaba	1.1	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	wakaba	1.3	(Alias: junet, jis, jis7, iso-2022-7)
38	wakaba	1.1
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	wakaba	1.4	$C->{GR} = undef;
51	wakaba	1.1	$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	wakaba	1.2	__PACKAGE__->Define (qw/iso-2022-jp junet-code japanese-iso-7bit csiso2022jp
64	wakaba	1.5	iso2022jp/);
65	wakaba	1.1
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	wakaba	1.5	(Alias: junet-code, japanese-iso-7bit (emacsen), csISO2022JP (IANA))
71	wakaba	1.1
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	wakaba	1.4	$C->{GR} = undef;
94	wakaba	1.1	$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	wakaba	1.2	__PACKAGE__->Define (qw/iso-2022-jp-1978-irv japanese-iso-7bit-1978-irv old-jis
103	wakaba	1.6	x-obsoleted-iso-2022-jp jis78/);
104	wakaba	1.1
105			=item iso-2022-jp-1978-irv
106
107	wakaba	1.6	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	wakaba	1.1
112			=cut
113
114			sub __2022_encode ($) {
115			my $C = shift->__2022__common;
116	wakaba	1.4	$C->{GR} = undef;
117	wakaba	1.1	$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	wakaba	1.6	__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	wakaba	1.1
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	wakaba	1.6	(Alias: x-iso-2022-jp-3, jis0213)
153	wakaba	1.1
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	wakaba	1.3	__PACKAGE__->Define (qw/iso-2022-7bit-ss2 x-iso-2022-jp-2 iso-2022-ss2-7
198			jis_encoding csjisencoding/);
199	wakaba	1.1
200			=item iso-2022-7bit-ss2
201
202			ISO/IEC 2022 based 7-bit encoding using SS2 for 96-charset
203	wakaba	1.3	(Alias: x-iso-2022-jp-2, iso-2022-ss2-7 (emacsen))
204	wakaba	1.1
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	wakaba	1.2	__PACKAGE__->Define (qw/iso-2022-jp-2 csiso2022jp2/);
219	wakaba	1.1
220			=item iso-2022-jp-2
221
222			ISO/IEC 2022 based 7-bit multilingual encoding, defined by
223	wakaba	1.2	RFC 1554. A subset of iso-2022-7bit-ss2. (Alias: csISO2022JP2 (IANA))
224	wakaba	1.1
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	wakaba	1.4	$C->{GR} = undef;
250	wakaba	1.1	$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	wakaba	1.3	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	wakaba	1.4	$C->{GR} = undef;
296	wakaba	1.3	$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	wakaba	1.1	package Encode::ISO2022::SevenBit::KR;
307			use vars qw/@ISA/;
308			push @ISA, 'Encode::ISO2022::SevenBit';
309	wakaba	1.2	__PACKAGE__->Define (qw/iso-2022-kr korean-iso-7bit csiso2022kr cp50225 kr2022/);
310	wakaba	1.1
311			=item iso-2022-kr
312
313			An ISO/IEC 2022 based 7-bit encoding for Korean,
314	wakaba	1.2	defined by RFC 1557 (Alias: korean-iso-7bit (emacsen),
315			csISO2022KR (IANA), CP50225 (M$), KR2022)
316	wakaba	1.1
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	wakaba	1.4	$C->{GR} = undef;
334	wakaba	1.1	$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	wakaba	1.4	$C->{GR} = undef;
378	wakaba	1.1	$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	wakaba	1.2	$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	wakaba	1.1	$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	wakaba	1.2	__PACKAGE__->Define (qw/iso-2022-cn chinese-iso-7bit iso2022cn-cns iso2022cn-gb/);
431	wakaba	1.1
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	wakaba	1.4	$C->{GR} = undef;
456	wakaba	1.1	$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	wakaba	1.2	$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	wakaba	1.1	$C;
496			}
497
498			1;
499			__END__
500
501			=back
502
503			=head1 LICENSE
504
505	wakaba	1.5	Copyright 2002 Wakaba <w@suika.fam.cx>
506	wakaba	1.1
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	wakaba	1.6	# $Date: 2002/09/20 14:01:45 $
513	wakaba	1.1	### SevenBit.pm ends here