Parent Directory
| 
Revision Log
2002-10-14 Nanashi-san * ISO2022.pm, SJIS.pm: Bug fix of utf8 flag control. (Committed by Wakaba <w@suika.fam.cx>.)
| 1 | wakaba | 1.1 | |
| 2 | =head1 NAME | ||
| 3 | |||
| 4 | Encode::ISO2022 --- ISO/IEC 2022 encoder and decoder | ||
| 5 | |||
| 6 | wakaba | 1.6 | =head1 ENCODINGS |
| 7 | |||
| 8 | =over 4 | ||
| 9 | |||
| 10 | =item iso2022 | ||
| 11 | |||
| 12 | ISO/IEC 2022:1994. Default status is: | ||
| 13 | |||
| 14 | =over 2 | ||
| 15 | |||
| 16 | =item CL = C0 = ISO/IEC 6429:1991 C0 set | ||
| 17 | |||
| 18 | =item CR = C1 = ISO/IEC 6429:1991 C1 set | ||
| 19 | |||
| 20 | =item GL = G0 = ISO/IEC 646:1991 IRV GL(G0) set | ||
| 21 | |||
| 22 | =item GR = G1 = empty set | ||
| 23 | |||
| 24 | =item G2 = empty set | ||
| 25 | |||
| 26 | =item G3 = empty set | ||
| 27 | |||
| 28 | =back | ||
| 29 | |||
| 30 | (Alias: iso/iec2022, iso-2022, 2022, cp2022) | ||
| 31 | |||
| 32 | =back | ||
| 33 | |||
| 34 | Note that ISO/IEC 2022 based encodings are found in | ||
| 35 | Encode::ISO2022::* modules. This module, Encode::ISO2022 | ||
| 36 | only provides a general ISO/IEC 2022 encoder/decoder. | ||
| 37 | |||
| 38 | wakaba | 1.1 | =cut |
| 39 | |||
| 40 | require v5.7.3; | ||
| 41 | package Encode::ISO2022; | ||
| 42 | use strict; | ||
| 43 | wakaba | 1.5 | use vars qw(%CHARSET %CODING_SYSTEM $VERSION); |
| 44 | wakaba | 1.9 | $VERSION=do{my @r=(q$Revision: 1.8 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 45 | wakaba | 1.1 | use base qw(Encode::Encoding); |
| 46 | wakaba | 1.6 | __PACKAGE__->Define (qw!iso-2022 iso/iec2022 iso2022 2022 cp2022!); |
| 47 | wakaba | 1.5 | require Encode::Charset; |
| 48 | *CHARSET = \%Encode::Charset::CHARSET; | ||
| 49 | *CODING_SYSTEM = \%Encode::Charset::CODING_SYSTEM; | ||
| 50 | wakaba | 1.1 | |
| 51 | ### --- Perl Encode module common functions | ||
| 52 | |||
| 53 | sub encode ($$;$) { | ||
| 54 | my ($obj, $str, $chk) = @_; | ||
| 55 | $_[1] = '' if $chk; | ||
| 56 | $str = &internal_to_iso2022 ($str); | ||
| 57 | return $str; | ||
| 58 |