Upgrade to Encode 0.93, from Dan Kogai.
Jarkko Hietaniemi [Wed, 20 Mar 2002 15:28:44 +0000 (15:28 +0000)]
p4raw-id: //depot/perl@15371

27 files changed:
MANIFEST
ext/Encode/AUTHORS [new file with mode: 0644]
ext/Encode/CN/CN.pm
ext/Encode/Changes [new file with mode: 0644]
ext/Encode/Encode.pm
ext/Encode/JP/JP.pm
ext/Encode/KR/KR.pm
ext/Encode/MANIFEST
ext/Encode/README
ext/Encode/TW/TW.pm
ext/Encode/lib/Encode/CN/HZ.pm
ext/Encode/lib/Encode/Encoding.pm
ext/Encode/lib/Encode/Internal.pm
ext/Encode/lib/Encode/JP/Constants.pm
ext/Encode/lib/Encode/JP/H2Z.pm
ext/Encode/lib/Encode/JP/ISO_2022_JP.pm
ext/Encode/lib/Encode/JP/JIS.pm
ext/Encode/lib/Encode/Tcl.pm
ext/Encode/lib/Encode/Tcl/Escape.pm
ext/Encode/lib/Encode/Tcl/Table.pm
ext/Encode/lib/Encode/Unicode.pm
ext/Encode/lib/Encode/XS.pm
ext/Encode/lib/Encode/iso10646_1.pm
ext/Encode/lib/Encode/ucs2_le.pm
ext/Encode/lib/Encode/utf8.pm
ext/Encode/t/CJKalias.t [new file with mode: 0644]
ext/Encode/t/JP.t

index c61fcaf..8f39306 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -196,6 +196,8 @@ ext/DynaLoader/hints/openbsd.pl     Hint for DynaLoader for named architecture
 ext/DynaLoader/Makefile.PL     Dynamic Loader makefile writer
 ext/DynaLoader/README          Dynamic Loader notes and intro
 ext/DynaLoader/XSLoader_pm.PL  Simple XS Loader perl module
+ext/Encode/AUTHORS             Encode extension
+ext/Encode/Changes             Encode extension
 ext/Encode/CN/CN.pm            Encode extension
 ext/Encode/CN/Makefile.PL      Encode extension
 ext/Encode/compile             Encode extension
@@ -356,6 +358,7 @@ ext/Encode/lib/EncodeFormat.pod             Encode extension
 ext/Encode/Makefile.PL         Encode extension makefile writer
 ext/Encode/MANIFEST            Encode extension
 ext/Encode/README              Encode extension
+ext/Encode/t/CJKalias.t                Encode extension
 ext/Encode/t/CN.t              Encode extension test
 ext/Encode/t/Encode.t          Encode extension test
 ext/Encode/t/jisx0208.euc      Encode extension test
diff --git a/ext/Encode/AUTHORS b/ext/Encode/AUTHORS
new file mode 100644 (file)
index 0000000..5f9869e
--- /dev/null
@@ -0,0 +1,15 @@
+# To give due honor to those who have made Encode module  what is is today,
+# here are easily-from-changelogs-extractable people and their
+# (hopefully) current and preferred email addresses (as of early 2001,
+# if known).
+#
+# The use of this database for anything else than Encode and/or Perl 
+# development is strictly forbidden.  (Passive distribution with the Perl 
+# source code kit is naturally allowed.)
+#
+# This list is in alphabetical order.
+-- 
+Autrijus Tang                  <autrijus@autrijus.org>
+Dan Kogai                      <dankogai@dan.co.jp>
+Jarkko Hietaniemi              <jhi@iki.fi>
+Nick Ing-Simmons               <nick@ing-simmons.net>
index bca6fa3..198eeb5 100644 (file)
@@ -1,11 +1,14 @@
 package Encode::CN;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.93 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Encode;
 use Encode::CN::HZ;
 use XSLoader;
 XSLoader::load('Encode::CN',$VERSION);
 
+Encode::define_alias( qr/euc.*cn$/i     => '"euc-cn"' );
+Encode::define_alias( qr/cn.*euc/i      => '"euc-cn"' );
+
 1;
 __END__
 =head1 NAME
@@ -23,12 +26,17 @@ Encode::CN - China-based Chinese Encodings
 This module implements China-based Chinese charset encodings.
 Encodings supported are as follows.
 
-  euc-cn       EUC (Extended Unix Character)
-  gb2312       The raw (low-bit) GB2312 character map
-  gb12345      Traditional chinese counterpart to GB2312 (raw)
-  iso-ir-165   GB2312 + GB6345 + GB8565 + additions
-  cp936                Code Page 936, also known as GBK (Extended GuoBiao)
-  hz           7-bit escaped GB2312 encoding
+  Canonical   Alias            Description
+  --------------------------------------------------------------------
+  euc-cn      /euc.*cn$/i      EUC (Extended Unix Character)
+             /cn.*euc$/i
+  gb2312                       The raw (low-bit) GB2312 character map
+  gb12345                      Traditional chinese counterpart to 
+                               GB2312 (raw)
+  iso-ir-165                   GB2312 + GB6345 + GB8565 + additions
+  cp936                                Code Page 936, also known as GBK 
+                               (Extended GuoBiao)
+  hz                           7-bit escaped GB2312 encoding
 
 To find how to use this module in detail, see L<Encode>.
 
diff --git a/ext/Encode/Changes b/ext/Encode/Changes
new file mode 100644 (file)
index 0000000..48c6aa3
--- /dev/null
@@ -0,0 +1,28 @@
+# Revision history for Perl extension Encode.
+#
+# $Id$
+#
+
+0.93  Wed Mar 20 2002
+* First release to be uploaded to CPAN.  For prehistoric changes,
+  please see Changes file of perl distibution as well as 
+  perl-unicode@perl.org archive, available at:
+  http://archive.develooper.com/perl-unicode@perl.org/
+
+  Changes Since 0.92 includes;
++ Changes
++ AUTHORS
+! Encode.pm
+! README
+  + Mention to perl-unicode@perl.org added
+! JP/JP.pm
+  + Encoding aliases added so you can feed locale names
+    and MIME Charset="" directly.
+  - Mention to JISX0212 removed because it's fixed
+! CN/CN.pm
+! KR/KR.pm
+  + Encoding aliases added.  Note TW is left untouched because
+    euc-tw is not implemented in TW but in Encode::HanExtra.
+    Autrijus, you may fix Encode::HanExtra.
++ t/CJKalias.t
+  + to test encode aliases added
index 681b17d..92dd1db 100644 (file)
@@ -1,6 +1,6 @@
 package Encode;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.93 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 require DynaLoader;
 require Exporter;
@@ -1086,7 +1086,7 @@ to be rationalized.
 =head1 SEE ALSO
 
 L<perlunicode>, L<perlebcdic>, L<perlfunc/open>, L<PerlIO>, L<encoding>,
-L<utf8>
+L<utf8>, the Perl Unicode Mailing List E<lt>perl-unicode@perl.orgE<gt>
 
 
 =cut
index fc4e6fd..e60b912 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     }
 }
 use Encode;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.93 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use XSLoader;
 XSLoader::load('Encode::JP',$VERSION);
@@ -13,6 +13,13 @@ XSLoader::load('Encode::JP',$VERSION);
 use Encode::JP::JIS;
 use Encode::JP::ISO_2022_JP;
 
+Encode::define_alias( qr/euc.*jp$/i     => '"euc-jp"' );
+Encode::define_alias( qr/jp.*euc/i      => '"euc-jp"' );
+Encode::define_alias( qr/ujis$/i        => '"euc-jp"' );
+Encode::define_alias( qr/shift.*jis$/i  => '"shiftjis"' );
+Encode::define_alias( qr/sjis$/i        => '"shiftjis"' );
+Encode::define_alias( qr/^jis$/i        => '"7bit-jis"' );
+
 1;
 __END__
 =head1 NAME
@@ -30,12 +37,19 @@ Encode::JP - Japanese Encodings
 This module implements Japanese charset encodings.  Encodings
 supported are as follows.
 
-  euc-jp        EUC (Extended Unix Character)
-  shiftjis      Shift JIS (aka MS Kanji)
-  7bit-jis      7bit JIS
-  iso-2022-jp   ISO-2022-JP (7bit JIS with all X201 converted to X208)
-  macjapan      Mac Japan (Shift JIS + Apple vendor mappings)
-  cp932         Code Page 932 (Shift JIS + Microsoft vendor mappings)
+  Canonical   Alias            Description
+  --------------------------------------------------------------------
+  euc-jp      /euc.*jp$/i      EUC (Extended Unix Character)
+              /jp.*euc/i   
+             /ujis$/i
+  shiftjis    /shift.*jis$/i   Shift JIS (aka MS Kanji)
+             /sjis$/i
+  7bit-jis    /^jis$/i         7bit JIS
+  iso-2022-jp                  ISO-2022-JP 
+                               (7bit JIS with all Halfwidth Kana 
+                                converted to Fullwidth)
+  macjapan      Mac Japan      (Shift JIS + Apple vendor mappings)
+  cp932         Code Page 932  (Shift JIS + Microsoft vendor mappings)
 
 =head1 DESCRIPTION
 
@@ -43,9 +57,6 @@ To find how to use this module in detail, see L<Encode>.
 
 =head1 BUGS
 
-JISX0212-1990 -> utf8 conversion does not work 
-(the reverse does, however.  encengine|compile bug?)
-
 ASCII part (0x00-0x7f) is preserved for all encodings, even though it
 conflicts with mappings by the Unicode Consortium.  See
 
index 55e2f1e..0823fa9 100644 (file)
@@ -1,10 +1,13 @@
 package Encode::KR;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.93 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Encode;
 use XSLoader;
 XSLoader::load('Encode::KR',$VERSION);
 
+Encode::define_alias( qr/euc.*kr$/i     => '"euc-kr"' );
+Encode::define_alias( qr/kr.*euc/i      => '"euc-kr"' );
+
 1;
 __END__
 =head1 NAME
@@ -22,9 +25,14 @@ Encode::KR - Korean Encodings
 This module implements Korean charset encodings.  Encodings supported
 are as follows.
 
-  euc-kr       EUC (Extended Unix Character)
-  ksc5601      Korean standard code set
-  cp949                Code Page 949 (EUC-KR + Unified Hangul Code)
+
+  Canonical   Alias            Description
+  --------------------------------------------------------------------
+  euc-kr      /euc.*kr$/i      EUC (Extended Unix Character)
+             /kr.*euc/i
+  ksc5601                      Korean standard code set
+  cp949                                Code Page 949 
+                               (EUC-KR + Unified Hangul Code)
   
 To find how to use this module in detail, see L<Encode>.
 
index 8e9a18b..ec9fc4d 100644 (file)
-CN/CN.pm
-CN/Makefile.PL
-Encode.pm
-Encode.xs
-Encode/11643-1.enc
-Encode/11643-2.enc
-Encode/2022-cn.enc
-Encode/2022-jp.enc
-Encode/2022-jp1.enc
-Encode/2022-jp2.enc
-Encode/2022-kr.enc
-Encode/2022.enc
-Encode/7bit-greek.enc
-Encode/7bit-jis.enc
-Encode/7bit-kana.enc
-Encode/7bit-latin1.enc
-Encode/8859-1.enc
-Encode/8859-1.ucm
-Encode/8859-10.enc
-Encode/8859-10.ucm
-Encode/8859-11.enc
-Encode/8859-11.ucm
-Encode/8859-13.enc
-Encode/8859-13.ucm
-Encode/8859-14.enc
-Encode/8859-14.ucm
-Encode/8859-15.enc
-Encode/8859-15.ucm
-Encode/8859-16.enc
-Encode/8859-16.ucm
-Encode/8859-2.enc
-Encode/8859-2.ucm
-Encode/8859-3.enc
-Encode/8859-3.ucm
-Encode/8859-4.enc
-Encode/8859-4.ucm
-Encode/8859-5.enc
-Encode/8859-5.ucm
-Encode/8859-6.enc
-Encode/8859-6.ucm
-Encode/8859-7.enc
-Encode/8859-7.ucm
-Encode/8859-8.enc
-Encode/8859-8.ucm
-Encode/8859-9.enc
-Encode/8859-9.ucm
-Encode/ascii.enc
-Encode/ascii.ucm
-Encode/big5-hkscs.enc
-Encode/big5.enc
-Encode/cp1006.enc
-Encode/cp1047.enc
-Encode/cp1047.ucm
-Encode/cp1250.enc
-Encode/cp1250.ucm
-Encode/cp1251.enc
-Encode/cp1252.enc
-Encode/cp1253.enc
-Encode/cp1254.enc
-Encode/cp1255.enc
-Encode/cp1256.enc
-Encode/cp1257.enc
-Encode/cp1258.enc
-Encode/cp37.enc
-Encode/cp37.ucm
-Encode/cp424.enc
-Encode/cp437.enc
-Encode/cp737.enc
-Encode/cp775.enc
-Encode/cp850.enc
-Encode/cp852.enc
-Encode/cp855.enc
-Encode/cp856.enc
-Encode/cp857.enc
-Encode/cp860.enc
-Encode/cp861.enc
-Encode/cp862.enc
-Encode/cp863.enc
-Encode/cp864.enc
-Encode/cp865.enc
-Encode/cp866.enc
-Encode/cp869.enc
-Encode/cp874.enc
-Encode/cp932.enc
-Encode/cp936.enc
-Encode/cp949.enc
-Encode/cp950.enc
-Encode/dingbats.enc
-Encode/dingbats.ucm
-Encode/euc-cn.enc
-Encode/euc-jp.enc
-Encode/euc-jp.ucm
-Encode/euc-kr.enc
-Encode/gb12345.enc
-Encode/gb1988.enc
-Encode/gb2312.enc
-Encode/gsm0338.enc
-Encode/ir-197.enc
-Encode/iso-ir-165.enc
-Encode/jis0201.enc
-Encode/jis0201.ucm
-Encode/jis0208.enc
-Encode/jis0212.enc
-Encode/koi8-f.enc
-Encode/koi8-f.ucm
-Encode/koi8-r.enc
-Encode/koi8-r.ucm
-Encode/koi8-u.enc
-Encode/koi8-u.ucm
-Encode/ksc5601.enc
-Encode/macCentEuro.enc
-Encode/macCroatian.enc
-Encode/macCyrillic.enc
-Encode/macDingbats.enc
-Encode/macGreek.enc
-Encode/macIceland.enc
-Encode/macJapan.enc
-Encode/macRoman.enc
-Encode/macRumanian.enc
-Encode/macSami.enc
-Encode/macThai.enc
-Encode/macTurkish.enc
-Encode/macUkraine.enc
-Encode/nextstep.enc
-Encode/nextstep.ucm
-Encode/posix-bc.enc
-Encode/posix-bc.ucm
-Encode/roman8.enc
-Encode/roman8.ucm
-Encode/shiftjis.enc
-Encode/symbol.enc
-Encode/symbol.ucm
-Encode/viscii.enc
-Encode/viscii.ucm
-JP/JP.pm
-JP/Makefile.PL
-KR/KR.pm
-KR/Makefile.PL
-MANIFEST
-Makefile.PL
-README
-TW/Makefile.PL
-TW/TW.pm
-compile
-encengine.c
-encode.h
-lib/Encode/CN/HZ.pm
-lib/Encode/Encoding.pm
-lib/Encode/Internal.pm
-lib/Encode/JP/Constants.pm
-lib/Encode/JP/H2Z.pm
-lib/Encode/JP/ISO_2022_JP.pm
-lib/Encode/JP/JIS.pm
-lib/Encode/Tcl.pm
-lib/Encode/Tcl/Escape.pm
-lib/Encode/Tcl/Table.pm
-lib/Encode/Unicode.pm
-lib/Encode/XS.pm
-lib/Encode/iso10646_1.pm
-lib/Encode/ucs2_le.pm
-lib/Encode/utf8.pm
-lib/EncodeFormat.pod
-t/CN.t
-t/Encode.t
-t/JP.t
-t/TW.t
-t/Tcl.t
-t/jisx0208.euc
-t/jisx0208.ref
-t/jisx0212.euc
-t/jisx0212.ref
+AUTHORS                List of authors
+CN/CN.pm               Encode extension
+CN/Makefile.PL Encode extension
+Changes                Change Log
+Encode.pm                      Encode extension
+Encode.xs              Encode extension
+Encode/11643-1.enc             Encode table
+Encode/11643-2.enc             Encode table
+Encode/2022-cn.enc             Encode table
+Encode/2022-jp.enc             Encode table
+Encode/2022-jp1.enc            Encode table
+Encode/2022-jp2.enc            Encode table
+Encode/2022-kr.enc             Encode table
+Encode/2022.enc                Encode table
+Encode/7bit-greek.enc  Encode table
+Encode/7bit-jis.enc            Encode table
+Encode/7bit-kana.enc           Encode table
+Encode/7bit-latin1.enc Encode table
+Encode/8859-1.enc              Encode table
+Encode/8859-1.ucm              Encode table
+Encode/8859-10.enc             Encode table
+Encode/8859-10.ucm             Encode table
+Encode/8859-11.enc             Encode table
+Encode/8859-11.ucm             Encode table
+Encode/8859-13.enc             Encode table
+Encode/8859-13.ucm             Encode table
+Encode/8859-14.enc             Encode table
+Encode/8859-14.ucm             Encode table
+Encode/8859-15.enc             Encode table
+Encode/8859-15.ucm             Encode table
+Encode/8859-16.enc             Encode table
+Encode/8859-16.ucm             Encode table
+Encode/8859-2.enc              Encode table
+Encode/8859-2.ucm              Encode table
+Encode/8859-3.enc              Encode table
+Encode/8859-3.ucm              Encode table
+Encode/8859-4.enc              Encode table
+Encode/8859-4.ucm              Encode table
+Encode/8859-5.enc              Encode table
+Encode/8859-5.ucm              Encode table
+Encode/8859-6.enc              Encode table
+Encode/8859-6.ucm              Encode table
+Encode/8859-7.enc              Encode table
+Encode/8859-7.ucm              Encode table
+Encode/8859-8.enc              Encode table
+Encode/8859-8.ucm              Encode table
+Encode/8859-9.enc              Encode table
+Encode/8859-9.ucm              Encode table
+Encode/ascii.enc               Encode table
+Encode/ascii.ucm               Encode table
+Encode/big5-hkscs.enc  Encode table
+Encode/big5.enc                Encode table
+Encode/cp1006.enc              Encode table
+Encode/cp1047.enc              Encode table
+Encode/cp1047.ucm              Encode table
+Encode/cp1250.enc              Encode table
+Encode/cp1250.ucm              Encode table
+Encode/cp1251.enc              Encode table
+Encode/cp1252.enc              Encode table
+Encode/cp1253.enc              Encode table
+Encode/cp1254.enc              Encode table
+Encode/cp1255.enc              Encode table
+Encode/cp1256.enc              Encode table
+Encode/cp1257.enc              Encode table
+Encode/cp1258.enc              Encode table
+Encode/cp37.enc                Encode table
+Encode/cp37.ucm                Encode table
+Encode/cp424.enc               Encode table
+Encode/cp437.enc               Encode table
+Encode/cp737.enc               Encode table
+Encode/cp775.enc               Encode table
+Encode/cp850.enc               Encode table
+Encode/cp852.enc               Encode table
+Encode/cp855.enc               Encode table
+Encode/cp856.enc               Encode table
+Encode/cp857.enc               Encode table
+Encode/cp860.enc               Encode table
+Encode/cp861.enc               Encode table
+Encode/cp862.enc               Encode table
+Encode/cp863.enc               Encode table
+Encode/cp864.enc               Encode table
+Encode/cp865.enc               Encode table
+Encode/cp866.enc               Encode table
+Encode/cp869.enc               Encode table
+Encode/cp874.enc               Encode table
+Encode/cp932.enc               Encode table
+Encode/cp936.enc               Encode table
+Encode/cp949.enc               Encode table
+Encode/cp950.enc               Encode table
+Encode/dingbats.enc            Encode table
+Encode/dingbats.ucm            Encode table
+Encode/euc-cn.enc              Encode table
+Encode/euc-jp.enc              Encode table
+Encode/euc-jp.ucm              Encode table
+Encode/euc-kr.enc              Encode table
+Encode/gb12345.enc             Encode table
+Encode/gb1988.enc              Encode table
+Encode/gb2312.enc              Encode table
+Encode/gsm0338.enc             Encode table
+Encode/ir-197.enc              Encode table
+Encode/iso-ir-165.enc  Encode table
+Encode/jis0201.enc             Encode table
+Encode/jis0201.ucm             Encode table
+Encode/jis0208.enc             Encode table
+Encode/jis0212.enc             Encode table
+Encode/koi8-f.enc              Encode table
+Encode/koi8-f.ucm              Encode table
+Encode/koi8-r.enc              Encode table
+Encode/koi8-r.ucm              Encode table
+Encode/koi8-u.enc              Encode table
+Encode/koi8-u.ucm              Encode table
+Encode/ksc5601.enc             Encode table
+Encode/macCentEuro.enc Encode table
+Encode/macCroatian.enc Encode table
+Encode/macCyrillic.enc Encode table
+Encode/macDingbats.enc Encode table
+Encode/macGreek.enc            Encode table
+Encode/macIceland.enc  Encode table
+Encode/macJapan.enc            Encode table
+Encode/macRoman.enc            Encode table
+Encode/macRumanian.enc Encode table
+Encode/macSami.enc             Encode table
+Encode/macThai.enc             Encode table
+Encode/macTurkish.enc  Encode table
+Encode/macUkraine.enc  Encode table
+Encode/nextstep.enc            Encode table
+Encode/nextstep.ucm            Encode table
+Encode/posix-bc.enc            Encode table
+Encode/posix-bc.ucm            Encode table
+Encode/roman8.enc              Encode table
+Encode/roman8.ucm              Encode table
+Encode/shiftjis.enc            Encode table
+Encode/symbol.enc              Encode table
+Encode/symbol.ucm              Encode table
+Encode/viscii.enc              Encode table
+Encode/viscii.ucm              Encode table
+JP/JP.pm               Encode extension
+JP/Makefile.PL Encode extension
+KR/KR.pm               Encode extension
+KR/Makefile.PL         Encode extension
+MANIFEST               Encode extension
+Makefile.PL            Encode extension makefile writer
+README         Encode extension
+TW/Makefile.PL Encode extension
+TW/TW.pm               Encode extension
+compile                Encode extension
+encengine.c            Encode extension
+encode.h               Encode extension
+lib/Encode/CN/HZ.pm            Encode extension
+lib/Encode/Encoding.pm Encode extension
+lib/Encode/Internal.pm Encode extension
+lib/Encode/JP/Constants.pm     Encode extension
+lib/Encode/JP/H2Z.pm           Encode extension
+lib/Encode/JP/ISO_2022_JP.pm   Encode extension
+lib/Encode/JP/JIS.pm   Encode extension
+lib/Encode/Tcl.pm              Encode extension
+lib/Encode/Tcl/Escape.pm       Encode extension
+lib/Encode/Tcl/Table.pm        Encode extension
+lib/Encode/Unicode.pm  Encode extension
+lib/Encode/XS.pm               Encode extension
+lib/Encode/iso10646_1.pm       Encode extension
+lib/Encode/ucs2_le.pm  Encode extension
+lib/Encode/utf8.pm             Encode extension
+lib/EncodeFormat.pod           Encode extension
+t/CJKalias.t   Encode extension test
+t/CN.t         Encode extension test
+t/Encode.t             Encode extension test
+t/JP.t         Encode extension test
+t/TW.t         Encode extension test
+t/Tcl.t                Encode extension test
+t/jisx0208.euc Encode extension test
+t/jisx0208.ref Encode extension test
+t/jisx0212.euc Encode extension test
+t/jisx0212.ref Encode extension test
index 6e8384f..9f923fb 100644 (file)
@@ -24,3 +24,7 @@ DEPENDENCIES
 
 This module requires perl5.7.2 or later.
 
+QUESTIONS?
+
+If you have any questions "perldoc Encode" does not answer, please
+feel free to ask at perl-unicode@perl.org.
index 70c7897..61b8271 100644 (file)
@@ -1,5 +1,5 @@
 package Encode::TW;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Encode;
 use XSLoader;
index aad9274..6e382ff 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 no warnings 'redefine'; # to quell the "use Encode" below
 
 use vars qw($VERSION);
-$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Encode::CN;
 use Encode qw|encode decode|;
index 249b7fa..e03e22d 100644 (file)
@@ -1,7 +1,7 @@
 package Encode::Encoding;
 # Base class for classes which implement encodings
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 sub Define
 {
index e106703..b510d42 100644 (file)
@@ -1,6 +1,6 @@
 package Encode::Internal;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use base 'Encode::Encoding';
 
index c8cc908..3ffba8a 100644 (file)
@@ -1,5 +1,5 @@
 #
-# $Id: Constants.pm,v 0.90 2002/03/19 13:14:18 dankogai Exp dankogai $
+# $Id: Constants.pm,v 0.92 2002/03/19 17:01:26 dankogai Exp $
 #
 
 package Encode::JP::Constants;
@@ -7,8 +7,8 @@ package Encode::JP::Constants;
 use strict;
 use vars qw($RCSID $VERSION);
 
-$RCSID = q$Id: Constants.pm,v 0.90 2002/03/19 13:14:18 dankogai Exp dankogai $;
-$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$RCSID = q$Id: Constants.pm,v 0.92 2002/03/19 17:01:26 dankogai Exp $;
+$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Carp;
 
index dad22b1..dbfac50 100644 (file)
@@ -1,5 +1,5 @@
 #
-# $Id: H2Z.pm,v 0.90 2002/03/19 13:14:18 dankogai Exp dankogai $
+# $Id: H2Z.pm,v 0.92 2002/03/19 17:01:26 dankogai Exp $
 #
 
 package Encode::JP::H2Z;
@@ -7,8 +7,8 @@ package Encode::JP::H2Z;
 use strict;
 use vars qw($RCSID $VERSION);
 
-$RCSID = q$Id: H2Z.pm,v 0.90 2002/03/19 13:14:18 dankogai Exp dankogai $;
-$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$RCSID = q$Id: H2Z.pm,v 0.92 2002/03/19 17:01:26 dankogai Exp $;
+$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Carp;
 
index 9439296..30b06b8 100644 (file)
@@ -5,7 +5,7 @@ use Encode::JP::H2Z;
 use base 'Encode::Encoding';
 
 use vars qw($VERSION);
-$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 my $canon = 'iso-2022-jp';
 my $obj = bless {name => $canon}, __PACKAGE__;
index fab3460..005ca52 100644 (file)
@@ -5,7 +5,7 @@ use base 'Encode::Encoding';
 use strict;
 
 use vars qw($VERSION);
-$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 # Just for the time being, we implement jis-7bit
 # encoding via EUC
index 6f7e4b9..0662e3e 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     }
 }
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Encode qw(find_encoding);
 use base 'Encode::Encoding';
@@ -125,6 +125,7 @@ sub INC_find
 
 require Encode::Tcl::Table;
 require Encode::Tcl::Escape;
+require Encode::Tcl::Extended;
 
 1;
 __END__
index 1571b8c..89290fb 100644 (file)
@@ -1,6 +1,6 @@
 package Encode::Tcl::Escape;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use base 'Encode::Encoding';
 
index 26a7a10..948c3b9 100644 (file)
@@ -1,6 +1,6 @@
 package Encode::Tcl::Table;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use base 'Encode::Encoding';
 
index db0c084..919c9f2 100644 (file)
@@ -1,6 +1,6 @@
 package Encoding::Unicode;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use base 'Encode::Encoding';
 
index bee3c3e..9522828 100644 (file)
@@ -1,6 +1,6 @@
 package Encode::XS;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use base 'Encode::Encoding';
 1;
index 0ce8f63..0cc71d3 100644 (file)
@@ -1,6 +1,6 @@
 package Encode::iso10646_1;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use base 'Encode::Encoding';
 # Encoding is 16-bit network order Unicode (no surogates)
index bd0cb1d..ef25a8f 100644 (file)
@@ -1,6 +1,6 @@
 package Encode::ucs_2le;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use base 'Encode::Encoding';
 
index 60580f7..3743d30 100644 (file)
@@ -1,6 +1,6 @@
 package Encode::utf8;
 use strict;
-our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use base 'Encode::Encoding';
 # package to allow long-hand
diff --git a/ext/Encode/t/CJKalias.t b/ext/Encode/t/CJKalias.t
new file mode 100644 (file)
index 0000000..be4dd5e
--- /dev/null
@@ -0,0 +1,29 @@
+use strict;
+#use Test::More tests => 27;
+use Test::More qw(no_plan);
+use Encode::CN;
+use Encode::JP;
+use Encode::KR;
+use Encode::TW;
+
+print "# alias test\n";
+
+my %a2c = qw(
+            ja_JP.euc  euc-jp
+            x-euc-jp   euc-jp
+            zh_CN.euc  euc-cn
+            x-euc-cn   euc-cn
+            ko_KR.euc  euc-kr
+            x-euc-kr   euc-kr
+            ujis       euc-jp
+            Shift_JIS  shiftjis
+            x-sjis     shiftjis
+            jis        7bit-jis
+            );
+
+foreach my $a (keys %a2c){          
+    my $e = Encode::find_encoding($a);
+    my $n =  $e->name || $e->{name};
+    is($n, $a2c{$a});
+}
+
index 7b4bf14..733aeb9 100644 (file)
@@ -18,6 +18,7 @@ BEGIN {
 }
 use strict;
 use Test::More tests => 27;
+#use Test::More qw(no_plan);
 use Encode;
 use File::Basename;
 use File::Spec;
@@ -88,6 +89,7 @@ while (<$src>)
  }
 close($dst);
 close($src);
+
 TODO:
 {
   local $TODO = 'needs debugging on VMS' if $^O eq 'VMS';
@@ -117,6 +119,7 @@ SKIP:
 }
 
 is($enc->name,'euc-jp');
+
 END {
  1 while unlink($utf,$rnd);
 }