r1782 - in packages/libi18n-charset-perl/branches/upstream/current:
. inc inc/Module inc/Module/Install lib/I18N lib/I18N/Charset t
Krzysztof Krzyzaniak
eloy at costa.debian.org
Wed Dec 28 13:49:50 UTC 2005
Author: eloy
Date: 2005-12-28 13:49:15 +0000 (Wed, 28 Dec 2005)
New Revision: 1782
Added:
packages/libi18n-charset-perl/branches/upstream/current/Changes
packages/libi18n-charset-perl/branches/upstream/current/META.yml
packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm
packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset/
packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset/character-sets
Removed:
packages/libi18n-charset-perl/branches/upstream/current/ChangeLog
packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Include.pm
packages/libi18n-charset-perl/branches/upstream/current/inc/Test/
Modified:
packages/libi18n-charset-perl/branches/upstream/current/MANIFEST
packages/libi18n-charset-perl/branches/upstream/current/Makefile.PL
packages/libi18n-charset-perl/branches/upstream/current/README
packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install.pm
packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Base.pm
packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Can.pm
packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Fetch.pm
packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Makefile.pm
packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Metadata.pm
packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Win32.pm
packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset.pm
packages/libi18n-charset-perl/branches/upstream/current/t/bug1.t
packages/libi18n-charset-perl/branches/upstream/current/t/enco.t
packages/libi18n-charset-perl/branches/upstream/current/t/iana.t
packages/libi18n-charset-perl/branches/upstream/current/t/libi.t
packages/libi18n-charset-perl/branches/upstream/current/t/map8.t
packages/libi18n-charset-perl/branches/upstream/current/t/mib.t
packages/libi18n-charset-perl/branches/upstream/current/t/mime.t
packages/libi18n-charset-perl/branches/upstream/current/t/umap.t
packages/libi18n-charset-perl/branches/upstream/current/t/utf8.t
Log:
Load /tmp/tmp.cZprDk/libi18n-charset-perl-1.379 into
packages/libi18n-charset-perl/branches/upstream/current.
Deleted: packages/libi18n-charset-perl/branches/upstream/current/ChangeLog
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/ChangeLog 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/ChangeLog 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,155 +0,0 @@
-2004-02-07 Kingpin <mthurn at verizon.net>
-
- * t/bug1.t: skip if Encode is not installed
-
- * lib/I18N/Charset.pm: new IANA document (one alias added)
-
-2004-01-30 Kingpin <mthurn at verizon.net>
-
- * lib/I18N/Charset.pm (_init_data): new IANA document (typos fixed)
-
-2004-01-24 Kingpin <mthurn at verizon.net>
-
- * lib/I18N/Charset.pm (_init_data): new IANA document (5 new charsets)
-
-2004-01-15 Kingpin <mthurn at verizon.net>
-
- * lib/I18N/Charset.pm (enco_charset_name): BUGFIX: encoding names were not initialized sometimes
-
-2003-03-28 Kingpin <mthurn at megapipe.net>
-
- * t/enco.t: new file
-
- * lib/I18N/Charset.pm (enco_charset_name): new methods for Encode encoding names
-
-2002-10-11 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * t/libi.t: use App::Info::Lib::Iconv instead of File::Which
-
- * lib/I18N/Charset.pm: check iconv version before running it
- (libi_charset_name): load iconv tables not at startup, but only when needed
-
-2002-10-10 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm: make sure iconv exists before executing it
-
- * t/libi.t: new test file
-
- * lib/I18N/Charset.pm (libi_charset_name): added support for iconv names
-
-2002-10-07 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * t/utf8.t: typo, and require Unicode::MapUTF8 version 1.09
-
-2002-10-02 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm (_init_data): new charset list from IANA
-
- * t/iana.t: two new tests for new data
-
-2002-09-05 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm: new function mime_charset_name()
-
-2002-08-09 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm (_init_data): use IO::String instead of __DATA__ mechanism
-
-2002-06-17 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm: new charset list from IANA
-
-2002-05-29 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm: new charset list from IANA
-
-2002-05-01 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm: added support for Unicode::MapUTF8
- * updated several of the tests
-
-2002-04-15 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm: new IANA charset list
-
-2002-02-07 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm (short_to_mib): short-circuit on positive answer
- (body): BUGFIX for processing Unicode::Map's REGISTRY
-
-2002-02-05 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * t/utf8.t: new file
-
- * t/umap.t: now uses Test::More
-
- * t/map8.t: now uses Test::More
-
- * t/mib.t: new file
-
- * lib/I18N/Charset.pm (mib_to_charset_name): renamed function
-
-2002-01-10 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm (charset_name_to_mib): new function (thanks to François)
-
-2001-11-30 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm (strip): localize $/
-
-2001-09-04 Kingpin <mthurn at copper.dulles.tasc.com>
-
- * lib/I18N/Charset.pm (strip): handle whitespace in blank lines of Unicode::Map/REGISTRY
-
-2001-08-24 Kingpin <mthurn at tasc.com>
-
- * lib/I18N/Charset.pm: new IANA charset list
-
-2001-06-05 Kingpin <mthurn at tasc.com>
-
- * 1.09 released
-
-2001-06-04 Kingpin <mthurn at tasc.com>
-
- * lib/I18N/Charset.pm: new IANA charset list in __DATA__; update code & tests to match
-
-2001-04-19 Kingpin <mthurn at tasc.com>
-
- * lib/I18N/Charset.pm: removed some incorrect aliases (thanks to Liam Quinn)
-
-2001-03-08 Kingpin <mthurn at tasc.com>
-
- * 1.07 released
-
-2001-03-07 Kingpin <mthurn at tasc.com>
-
- * README: mention maputf8 tests are skipped
-
- * lib/I18N/Charset.pm (try_list): be more forgiving during ALL lookups
-
-2001-03-06 Kingpin <mthurn at tasc.com>
-
- * 1.06 released
-
-2001-03-05 Kingpin <mthurn at tasc.com>
-
- * lib/I18N/Charset.pm: added support for Unicode::Map
-
-2001-01-08 Kingpin <mthurn at tasc.com>
-
- * 1.05 released (fixed pod)
-
-1999-07-09 Kingpin <mthurn at tasc.com>
-
- * 1.03 released (no code changes, just cleaned up the distribution)
-
-1998-07-29 Kingpin <mthurn at tasc.com>
-
- * 1.02 tests don't complain if Unicode::Map8 is not installed;
- a few tiny documentation changes
-
-1998-07-16 Kingpin <mthurn at tasc.com>
-
- * 1.01 first released version
-
-
Added: packages/libi18n-charset-perl/branches/upstream/current/Changes
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/Changes 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/Changes 2005-12-28 13:49:15 UTC (rev 1782)
@@ -0,0 +1,177 @@
+2005-11-12 <Daddy at C-3PO>
+
+ * t/*.t: stop using deprecated IO::Capture::ErrorMessages
+
+2005-08-31 <Daddy at C-3PO>
+
+ * lib/I18N/Charset.pm (_strip): do not pollute IANA charset list with Unicode::Map charset names
+
+2005-01-29 Kingpin <mthurn at verizon.net>
+
+ * lib/I18N/Charset.pm (_init_data): new IANA charset list (only comments changed)
+
+2004-10-25 Kingpin <mthurn at verizon.net>
+
+ * lib/I18N/Charset.pm (_init_data_extra): added aliases for Encode;
+ fixed some typos in debug messages
+
+2004-02-10 Kingpin <mthurn at verizon.net>
+
+ * lib/I18N/Charset.pm (_init_data): undo bug in IANA's document
+ (_init_data_extra): undo our workaround
+
+2004-02-07 Kingpin <mthurn at verizon.net>
+
+ * t/bug1.t: skip if Encode is not installed
+
+ * lib/I18N/Charset.pm: new IANA document (one alias added)
+
+2004-01-30 Kingpin <mthurn at verizon.net>
+
+ * lib/I18N/Charset.pm (_init_data): new IANA document (typos fixed)
+
+2004-01-24 Kingpin <mthurn at verizon.net>
+
+ * lib/I18N/Charset.pm (_init_data): new IANA document (5 new charsets)
+
+2004-01-15 Kingpin <mthurn at verizon.net>
+
+ * lib/I18N/Charset.pm (enco_charset_name): BUGFIX: encoding names were not initialized sometimes
+
+2003-03-28 Kingpin <mthurn at megapipe.net>
+
+ * t/enco.t: new file
+
+ * lib/I18N/Charset.pm (enco_charset_name): new methods for Encode encoding names
+
+2002-10-11 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * t/libi.t: use App::Info::Lib::Iconv instead of File::Which
+
+ * lib/I18N/Charset.pm: check iconv version before running it
+ (libi_charset_name): load iconv tables not at startup, but only when needed
+
+2002-10-10 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm: make sure iconv exists before executing it
+
+ * t/libi.t: new test file
+
+ * lib/I18N/Charset.pm (libi_charset_name): added support for iconv names
+
+2002-10-07 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * t/utf8.t: typo, and require Unicode::MapUTF8 version 1.09
+
+2002-10-02 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm (_init_data): new charset list from IANA
+
+ * t/iana.t: two new tests for new data
+
+2002-09-05 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm: new function mime_charset_name()
+
+2002-08-09 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm (_init_data): use IO::String instead of __DATA__ mechanism
+
+2002-06-17 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm: new charset list from IANA
+
+2002-05-29 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm: new charset list from IANA
+
+2002-05-01 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm: added support for Unicode::MapUTF8
+ * updated several of the tests
+
+2002-04-15 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm: new IANA charset list
+
+2002-02-07 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm (short_to_mib): short-circuit on positive answer
+ (body): BUGFIX for processing Unicode::Map's REGISTRY
+
+2002-02-05 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * t/utf8.t: new file
+
+ * t/umap.t: now uses Test::More
+
+ * t/map8.t: now uses Test::More
+
+ * t/mib.t: new file
+
+ * lib/I18N/Charset.pm (mib_to_charset_name): renamed function
+
+2002-01-10 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm (charset_name_to_mib): new function (thanks to François)
+
+2001-11-30 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm (strip): localize $/
+
+2001-09-04 Kingpin <mthurn at copper.dulles.tasc.com>
+
+ * lib/I18N/Charset.pm (strip): handle whitespace in blank lines of Unicode::Map/REGISTRY
+
+2001-08-24 Kingpin <mthurn at tasc.com>
+
+ * lib/I18N/Charset.pm: new IANA charset list
+
+2001-06-05 Kingpin <mthurn at tasc.com>
+
+ * 1.09 released
+
+2001-06-04 Kingpin <mthurn at tasc.com>
+
+ * lib/I18N/Charset.pm: new IANA charset list in __DATA__; update code & tests to match
+
+2001-04-19 Kingpin <mthurn at tasc.com>
+
+ * lib/I18N/Charset.pm: removed some incorrect aliases (thanks to Liam Quinn)
+
+2001-03-08 Kingpin <mthurn at tasc.com>
+
+ * 1.07 released
+
+2001-03-07 Kingpin <mthurn at tasc.com>
+
+ * README: mention maputf8 tests are skipped
+
+ * lib/I18N/Charset.pm (try_list): be more forgiving during ALL lookups
+
+2001-03-06 Kingpin <mthurn at tasc.com>
+
+ * 1.06 released
+
+2001-03-05 Kingpin <mthurn at tasc.com>
+
+ * lib/I18N/Charset.pm: added support for Unicode::Map
+
+2001-01-08 Kingpin <mthurn at tasc.com>
+
+ * 1.05 released (fixed pod)
+
+1999-07-09 Kingpin <mthurn at tasc.com>
+
+ * 1.03 released (no code changes, just cleaned up the distribution)
+
+1998-07-29 Kingpin <mthurn at tasc.com>
+
+ * 1.02 tests don't complain if Unicode::Map8 is not installed;
+ a few tiny documentation changes
+
+1998-07-16 Kingpin <mthurn at tasc.com>
+
+ * 1.01 first released version
+
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/Changes
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/MANIFEST
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/MANIFEST 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/MANIFEST 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,17 +1,17 @@
-ChangeLog
+Changes
inc/Module/Install.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
-inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Win32.pm
-inc/Test/Builder.pm
-inc/Test/More.pm
+inc/Module/Install/WriteAll.pm
lib/I18N/Charset.pm
+lib/I18N/Charset/character-sets
Makefile.PL
MANIFEST This list of files
+META.yml
README
t/bug1.t
t/enco.t
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/MANIFEST
___________________________________________________________________
Name: svn:executable
+ *
Added: packages/libi18n-charset-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/META.yml 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/META.yml 2005-12-28 13:49:15 UTC (rev 1782)
@@ -0,0 +1,21 @@
+name: I18N-Charset
+version: 1.379
+author: Martin Thurn <mthurn at cpan.org>
+license: perl
+distribution_type: module
+build_requires:
+ IO::Capture::Stderr: 0
+ Test::More: 0
+requires:
+ perl: 5.004
+ IO::String: 0
+recommends:
+ App::Info::Lib::Iconv: 0
+ Encode: 0
+ Unicode::Map: 0
+ Unicode::Map8: 0
+ Unicode::MapUTF8: 0
+no_index:
+ directory:
+ - inc
+generated_by: Module::Install version 0.37
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/META.yml
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/Makefile.PL
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/Makefile.PL 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/Makefile.PL 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,3 +1,6 @@
+
+# $Id: Makefile.PL,v 1.14 2005/11/13 03:02:31 Daddy Exp $
+
use inc::Module::Install;
name('I18N-Charset');
@@ -7,16 +10,28 @@
license('perl');
requires( perl => '5.004' );
-requires('IO::String');
recommends('App::Info::Lib::Iconv');
recommends('Encode');
+build_requires('IO::Capture::Stderr' => 0);
+requires('IO::String');
recommends('Unicode::Map');
recommends('Unicode::Map8');
recommends('Unicode::MapUTF8');
-
# Test::More is needed for `make test`:
-include_deps('Test::More', 5.004);
build_requires('Test::More');
-check_nmake(); # check and download nmake.exe for Win32
-&Makefile->write;
+&WriteAll;
+
+sub MY::postamble
+ {
+ my $ret = <<'PART0';
+coverage :
+ $(MAKE) HARNESS_PERL_SWITCHES=-MDevel::Cover coverage_slave
+coverage_slave : test
+ cover
+PART0
+ return $ret;
+ } # MY::postamble
+
+__END__
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/Makefile.PL
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/README
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/README 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/README 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,41 +1,41 @@
-
- I18N-Charset Distribution
-
-This distribution contains a module I18N::Charset which maps Character
-Set names to the names officially registered with IANA. For example,
-'Shift_JIS' is the official name of what is often referred to in HTML
-headers as 'x-sjis'.
-
-It also maps character set names to Unicode::Map, Unicode::Map8, and
-Unicode::MapUTF8 conversion scheme names (if those modules are
-installed). For example, the Unicode::Map8 scheme name for
-'windows-1251' is 'cp1251'.
-
-It also maps character set names to their preferred MIME names. For
-example, the preferred MIME name for 'ISO_646.irv:1991' is 'US-ASCII'.
-
-It also maps character set names to conversion scheme names as defined
-by the iconv library. For example, the iconv conversion scheme name
-for 'Shift_JIS' is 'MS_KANJI'.
-
-It also maps character set names to encoding names as defined
-by the Encode module. For example, the Encode encoding name
-for 'Shift_JIS' is 'shiftjis'.
-
-To install these modules, you should just have to run the following:
-
- % perl Makefile.PL
- % make test
- % make install
-
-(If you're on a Windows system, you probably use Nmake instead of make.)
-
-The module is documented using pod. When you "make install", you will
-get a man page I18N::Charset which can be displayed by "perldoc
-I18N::Charset".
-
-Please let me know if you experience any problems with this module, or
-have any ideas for additions, or if you have some new character set
-names or abbreviations you'd like to be included.
-
-Martin Thurn <mthurn at cpan.org>
+
+ I18N-Charset Distribution
+
+This distribution contains a module I18N::Charset which maps Character
+Set names to the names officially registered with IANA. For example,
+'Shift_JIS' is the official name of what is often referred to in HTML
+headers as 'x-sjis'.
+
+It also maps character set names to Unicode::Map, Unicode::Map8, and
+Unicode::MapUTF8 conversion scheme names (if those modules are
+installed). For example, the Unicode::Map8 scheme name for
+'windows-1251' is 'cp1251'.
+
+It also maps character set names to their preferred MIME names. For
+example, the preferred MIME name for 'ISO_646.irv:1991' is 'US-ASCII'.
+
+It also maps character set names to conversion scheme names as defined
+by the iconv library. For example, the iconv conversion scheme name
+for 'Shift_JIS' is 'MS_KANJI'.
+
+It also maps character set names to encoding names as defined
+by the Encode module. For example, the Encode encoding name
+for 'Shift_JIS' is 'shiftjis'.
+
+To install these modules, you should just have to run the following:
+
+ % perl Makefile.PL
+ % make test
+ % make install
+
+(If you're on a Windows system, you probably use Nmake instead of make.)
+
+The module is documented using pod. When you "make install", you will
+get a man page I18N::Charset which can be displayed by "perldoc
+I18N::Charset".
+
+Please let me know if you experience any problems with this module, or
+have any ideas for additions, or if you have some new character set
+names or abbreviations you'd like to be included.
+
+Martin Thurn <mthurn at cpan.org>
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/README
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Base.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Base.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Base.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,10 +1,7 @@
-#line 1 "inc/Module/Install/Base.pm - c:/Perl/site/lib/Module/Install/Base.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Base.pm $ $Author: autrijus $
-# $Revision: #10 $ $Change: 1847 $ $DateTime: 2003/12/31 23:14:54 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Base.pm - c:/perl/site/lib/Module/Install/Base.pm"
package Module::Install::Base;
-#line 31
+#line 28
sub new {
my ($class, %args) = @_;
@@ -18,18 +15,18 @@
bless(\%args, $class);
}
-#line 49
+#line 46
sub AUTOLOAD {
my $self = shift;
goto &{$self->_top->autoload};
}
-#line 60
+#line 57
sub _top { $_[0]->{_top} }
-#line 71
+#line 68
sub admin {
my $self = shift;
@@ -54,4 +51,4 @@
__END__
-#line 115
+#line 112
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Base.pm
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Can.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Can.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Can.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/Can.pm - c:/Perl/site/lib/Module/Install/Can.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Can.pm $ $Author: autrijus $
-# $Revision: #6 $ $Change: 1840 $ $DateTime: 2003/12/28 19:42:02 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Can.pm - c:/perl/site/lib/Module/Install/Can.pm"
package Module::Install::Can;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.01';
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Can.pm
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Fetch.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Fetch.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Fetch.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/Fetch.pm - c:/Perl/site/lib/Module/Install/Fetch.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Fetch.pm $ $Author: autrijus $
-# $Revision: #8 $ $Change: 1374 $ $DateTime: 2003/03/18 11:50:15 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Fetch.pm - c:/perl/site/lib/Module/Install/Fetch.pm"
package Module::Install::Fetch;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Fetch.pm
___________________________________________________________________
Name: svn:executable
+ *
Deleted: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Include.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Include.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Include.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,12 +0,0 @@
-#line 1 "inc/Module/Install/Include.pm - c:/Perl/site/lib/Module/Install/Include.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Include.pm $ $Author: autrijus $
-# $Revision: #8 $ $Change: 1811 $ $DateTime: 2003/12/14 18:52:33 $ vim: expandtab shiftwidth=4
-
-package Module::Install::Include;
-use Module::Install::Base; @ISA = qw(Module::Install::Base);
-
-sub include { +shift->admin->include(@_) };
-sub include_deps { +shift->admin->include_deps(@_) };
-sub auto_include { +shift->admin->auto_include(@_) };
-
-1;
Modified: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Makefile.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Makefile.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Makefile.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/Makefile.pm - c:/Perl/site/lib/Module/Install/Makefile.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Makefile.pm $ $Author: autrijus $
-# $Revision: #53 $ $Change: 1847 $ $DateTime: 2003/12/31 23:14:54 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Makefile.pm - c:/perl/site/lib/Module/Install/Makefile.pm"
package Module::Install::Makefile;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
@@ -143,4 +140,4 @@
__END__
-#line 276
+#line 273
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Makefile.pm
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Metadata.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Metadata.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Metadata.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,11 +1,8 @@
-#line 1 "inc/Module/Install/Metadata.pm - c:/Perl/site/lib/Module/Install/Metadata.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Metadata.pm $ $Author: autrijus $
-# $Revision: #31 $ $Change: 1817 $ $DateTime: 2003/12/14 20:57:39 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Metadata.pm - c:/perl/site/lib/Module/Install/Metadata.pm"
package Module::Install::Metadata;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
-$VERSION = '0.03';
+$VERSION = '0.04';
use strict 'vars';
use vars qw($VERSION);
@@ -95,6 +92,12 @@
$name;
} if $values{module_name};
+ if ($values{name} =~ /::/) {
+ my $name = $values{name};
+ $name =~ s/::/-/g;
+ die "Error in name(): '$values{name}' should be '$name'!\n";
+ }
+
my $dump = '';
foreach my $key (@scalar_keys) {
$dump .= "$key: $values{$key}\n" if exists $values{$key};
@@ -155,7 +158,7 @@
while (<FH>) {
last META_NOT_OURS if /^generated_by: Module::Install\b/;
}
- return $self;
+ return $self if -s FH;
}
}
@@ -175,7 +178,10 @@
sub abstract_from {
my ($self, $abstract_from) = @_;
require ExtUtils::MM_Unix;
- $self->abstract(ExtUtils::MM_Unix->parse_abstract($abstract_from));
+ $self->abstract(
+ bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix')
+ ->parse_abstract($abstract_from)
+ );
}
1;
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Metadata.pm
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Win32.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Win32.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Win32.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,7 +1,4 @@
-#line 1 "inc/Module/Install/Win32.pm - c:/Perl/site/lib/Module/Install/Win32.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install/Win32.pm $ $Author: autrijus $
-# $Revision: #9 $ $Change: 1789 $ $DateTime: 2003/11/11 01:22:54 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install/Win32.pm - c:/perl/site/lib/Module/Install/Win32.pm"
package Module::Install::Win32;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/Win32.pm
___________________________________________________________________
Name: svn:executable
+ *
Added: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -0,0 +1,36 @@
+#line 1 "inc/Module/Install/WriteAll.pm - c:/perl/site/lib/Module/Install/WriteAll.pm"
+package Module::Install::WriteAll;
+use Module::Install::Base; @ISA = qw(Module::Install::Base);
+
+sub WriteAll {
+ my $self = shift;
+ my %args = (
+ meta => 1,
+ sign => 0,
+ inline => 0,
+ check_nmake => 1,
+ @_
+ );
+
+ $self->sign(1) if $args{sign};
+ $self->Meta->write if $args{meta};
+ $self->admin->WriteAll(%args) if $self->is_admin;
+
+ if ($0 =~ /Build.PL$/i) {
+ $self->Build->write;
+ }
+ else {
+ $self->check_nmake if $args{check_nmake};
+ $self->makemaker_args( PL_FILES => {} )
+ unless $self->makemaker_args->{'PL_FILES'};
+
+ if ($args{inline}) {
+ $self->Inline->write;
+ }
+ else {
+ $self->Makefile->write;
+ }
+ }
+}
+
+1;
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install/WriteAll.pm
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,9 +1,6 @@
-#line 1 "inc/Module/Install.pm - c:/Perl/site/lib/Module/Install.pm"
-# $File: //depot/cpan/Module-Install/lib/Module/Install.pm $ $Author: autrijus $
-# $Revision: #66 $ $Change: 1847 $ $DateTime: 2003/12/31 23:14:54 $ vim: expandtab shiftwidth=4
-
+#line 1 "inc/Module/Install.pm - c:/perl/site/lib/Module/Install.pm"
package Module::Install;
-$VERSION = '0.31';
+$VERSION = '0.37';
die << "." unless $INC{join('/', inc => split(/::/, __PACKAGE__)).'.pm'};
Please invoke ${\__PACKAGE__} with:
@@ -22,6 +19,7 @@
use File::Path ();
@inc::Module::Install::ISA = 'Module::Install';
+*inc::Module::Install::VERSION = *VERSION;
#line 129
@@ -168,4 +166,4 @@
__END__
-#line 594
+#line 617
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/inc/Module/Install.pm
___________________________________________________________________
Name: svn:executable
+ *
Added: packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset/character-sets
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset/character-sets 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset/character-sets 2005-12-28 13:49:15 UTC (rev 1782)
@@ -0,0 +1,1867 @@
+===================================================================
+CHARACTER SETS
+
+(last updated 28 January 2005)
+
+These are the official names for character sets that may be used in
+the Internet and may be referred to in Internet documentation. These
+names are expressed in ANSI_X3.4-1968 which is commonly called
+US-ASCII or simply ASCII. The character set most commonly use in the
+Internet and used especially in protocol standards is US-ASCII, this
+is strongly encouraged. The use of the name US-ASCII is also
+encouraged.
+
+The character set names may be up to 40 characters taken from the
+printable characters of US-ASCII. However, no distinction is made
+between use of upper and lower case letters.
+
+The MIBenum value is a unique value for use in MIBs to identify coded
+character sets.
+
+The value space for MIBenum values has been divided into three
+regions. The first region (3-999) consists of coded character sets
+that have been standardized by some standard setting organization.
+This region is intended for standards that do not have subset
+implementations. The second region (1000-1999) is for the Unicode and
+ISO/IEC 10646 coded character sets together with a specification of a
+(set of) sub-repertoires that may occur. The third region (>1999) is
+intended for vendor specific coded character sets.
+
+ Assigned MIB enum Numbers
+ -------------------------
+ 0-2 Reserved
+ 3-999 Set By Standards Organizations
+ 1000-1999 Unicode / 10646
+ 2000-2999 Vendor
+
+The aliases that start with "cs" have been added for use with the
+IANA-CHARSET-MIB as originally defined in RFC3808, and as currently
+maintained by IANA at http://www/iana.org/assignments/ianacharset-mib.
+Note that the ianacharset-mib needs to be kept in sync with this
+registry. These aliases that start with "cs" contain the standard
+numbers along with suggestive names in order to facilitate applications
+that want to display the names in user interfaces. The "cs" stands
+for character set and is provided for applications that need a lower
+case first letter but want to use mixed case thereafter that cannot
+contain any special characters, such as underbar ("_") and dash ("-").
+
+If the character set is from an ISO standard, its cs alias is the ISO
+standard number or name. If the character set is not from an ISO
+standard, but is registered with ISO (IPSJ/ITSCJ is the current ISO
+Registration Authority), the ISO Registry number is specified as
+ISOnnn followed by letters suggestive of the name or standards number
+of the code set. When a national or international standard is
+revised, the year of revision is added to the cs alias of the new
+character set entry in the IANA Registry in order to distinguish the
+revised character set from the original character set.
+
+
+Character Set Reference
+------------- ---------
+
+Name: ANSI_X3.4-1968 [RFC1345,KXS2]
+MIBenum: 3
+Source: ECMA registry
+Alias: iso-ir-6
+Alias: ANSI_X3.4-1986
+Alias: ISO_646.irv:1991
+Alias: ASCII
+Alias: ISO646-US
+Alias: US-ASCII (preferred MIME name)
+Alias: us
+Alias: IBM367
+Alias: cp367
+Alias: csASCII
+
+Name: ISO-10646-UTF-1
+MIBenum: 27
+Source: Universal Transfer Format (1), this is the multibyte
+ encoding, that subsets ASCII-7. It does not have byte
+ ordering issues.
+Alias: csISO10646UTF1
+
+Name: ISO_646.basic:1983 [RFC1345,KXS2]
+MIBenum: 28
+Source: ECMA registry
+Alias: ref
+Alias: csISO646basic1983
+
+Name: INVARIANT [RFC1345,KXS2]
+MIBenum: 29
+Alias: csINVARIANT
+
+Name: ISO_646.irv:1983 [RFC1345,KXS2]
+MIBenum: 30
+Source: ECMA registry
+Alias: iso-ir-2
+Alias: irv
+Alias: csISO2IntlRefVersion
+
+Name: BS_4730 [RFC1345,KXS2]
+MIBenum: 20
+Source: ECMA registry
+Alias: iso-ir-4
+Alias: ISO646-GB
+Alias: gb
+Alias: uk
+Alias: csISO4UnitedKingdom
+
+Name: NATS-SEFI [RFC1345,KXS2]
+MIBenum: 31
+Source: ECMA registry
+Alias: iso-ir-8-1
+Alias: csNATSSEFI
+
+Name: NATS-SEFI-ADD [RFC1345,KXS2]
+MIBenum: 32
+Source: ECMA registry
+Alias: iso-ir-8-2
+Alias: csNATSSEFIADD
+
+Name: NATS-DANO [RFC1345,KXS2]
+MIBenum: 33
+Source: ECMA registry
+Alias: iso-ir-9-1
+Alias: csNATSDANO
+
+Name: NATS-DANO-ADD [RFC1345,KXS2]
+MIBenum: 34
+Source: ECMA registry
+Alias: iso-ir-9-2
+Alias: csNATSDANOADD
+
+Name: SEN_850200_B [RFC1345,KXS2]
+MIBenum: 35
+Source: ECMA registry
+Alias: iso-ir-10
+Alias: FI
+Alias: ISO646-FI
+Alias: ISO646-SE
+Alias: se
+Alias: csISO10Swedish
+
+Name: SEN_850200_C [RFC1345,KXS2]
+MIBenum: 21
+Source: ECMA registry
+Alias: iso-ir-11
+Alias: ISO646-SE2
+Alias: se2
+Alias: csISO11SwedishForNames
+
+Name: KS_C_5601-1987 [RFC1345,KXS2]
+MIBenum: 36
+Source: ECMA registry
+Alias: iso-ir-149
+Alias: KS_C_5601-1989
+Alias: KSC_5601
+Alias: korean
+Alias: csKSC56011987
+
+Name: ISO-2022-KR (preferred MIME name) [RFC1557,Choi]
+MIBenum: 37
+Source: RFC-1557 (see also KS_C_5601-1987)
+Alias: csISO2022KR
+
+Name: EUC-KR (preferred MIME name) [RFC1557,Choi]
+MIBenum: 38
+Source: RFC-1557 (see also KS_C_5861-1992)
+Alias: csEUCKR
+
+Name: ISO-2022-JP (preferred MIME name) [RFC1468,Murai]
+MIBenum: 39
+Source: RFC-1468 (see also RFC-2237)
+Alias: csISO2022JP
+
+Name: ISO-2022-JP-2 (preferred MIME name) [RFC1554,Ohta]
+MIBenum: 40
+Source: RFC-1554
+Alias: csISO2022JP2
+
+Name: ISO-2022-CN [RFC1922]
+MIBenum: 104
+Source: RFC-1922
+
+Name: ISO-2022-CN-EXT [RFC1922]
+MIBenum: 105
+Source: RFC-1922
+
+Name: JIS_C6220-1969-jp [RFC1345,KXS2]
+MIBenum: 41
+Source: ECMA registry
+Alias: JIS_C6220-1969
+Alias: iso-ir-13
+Alias: katakana
+Alias: x0201-7
+Alias: csISO13JISC6220jp
+
+Name: JIS_C6220-1969-ro [RFC1345,KXS2]
+MIBenum: 42
+Source: ECMA registry
+Alias: iso-ir-14
+Alias: jp
+Alias: ISO646-JP
+Alias: csISO14JISC6220ro
+
+Name: IT [RFC1345,KXS2]
+MIBenum: 22
+Source: ECMA registry
+Alias: iso-ir-15
+Alias: ISO646-IT
+Alias: csISO15Italian
+
+Name: PT [RFC1345,KXS2]
+MIBenum: 43
+Source: ECMA registry
+Alias: iso-ir-16
+Alias: ISO646-PT
+Alias: csISO16Portuguese
+
+Name: ES [RFC1345,KXS2]
+MIBenum: 23
+Source: ECMA registry
+Alias: iso-ir-17
+Alias: ISO646-ES
+Alias: csISO17Spanish
+
+Name: greek7-old [RFC1345,KXS2]
+MIBenum: 44
+Source: ECMA registry
+Alias: iso-ir-18
+Alias: csISO18Greek7Old
+
+Name: latin-greek [RFC1345,KXS2]
+MIBenum: 45
+Source: ECMA registry
+Alias: iso-ir-19
+Alias: csISO19LatinGreek
+
+Name: DIN_66003 [RFC1345,KXS2]
+MIBenum: 24
+Source: ECMA registry
+Alias: iso-ir-21
+Alias: de
+Alias: ISO646-DE
+Alias: csISO21German
+
+Name: NF_Z_62-010_(1973) [RFC1345,KXS2]
+MIBenum: 46
+Source: ECMA registry
+Alias: iso-ir-25
+Alias: ISO646-FR1
+Alias: csISO25French
+
+Name: Latin-greek-1 [RFC1345,KXS2]
+MIBenum: 47
+Source: ECMA registry
+Alias: iso-ir-27
+Alias: csISO27LatinGreek1
+
+Name: ISO_5427 [RFC1345,KXS2]
+MIBenum: 48
+Source: ECMA registry
+Alias: iso-ir-37
+Alias: csISO5427Cyrillic
+
+Name: JIS_C6226-1978 [RFC1345,KXS2]
+MIBenum: 49
+Source: ECMA registry
+Alias: iso-ir-42
+Alias: csISO42JISC62261978
+
+Name: BS_viewdata [RFC1345,KXS2]
+MIBenum: 50
+Source: ECMA registry
+Alias: iso-ir-47
+Alias: csISO47BSViewdata
+
+Name: INIS [RFC1345,KXS2]
+MIBenum: 51
+Source: ECMA registry
+Alias: iso-ir-49
+Alias: csISO49INIS
+
+Name: INIS-8 [RFC1345,KXS2]
+MIBenum: 52
+Source: ECMA registry
+Alias: iso-ir-50
+Alias: csISO50INIS8
+
+Name: INIS-cyrillic [RFC1345,KXS2]
+MIBenum: 53
+Source: ECMA registry
+Alias: iso-ir-51
+Alias: csISO51INISCyrillic
+
+Name: ISO_5427:1981 [RFC1345,KXS2]
+MIBenum: 54
+Source: ECMA registry
+Alias: iso-ir-54
+Alias: ISO5427Cyrillic1981
+
+Name: ISO_5428:1980 [RFC1345,KXS2]
+MIBenum: 55
+Source: ECMA registry
+Alias: iso-ir-55
+Alias: csISO5428Greek
+
+Name: GB_1988-80 [RFC1345,KXS2]
+MIBenum: 56
+Source: ECMA registry
+Alias: iso-ir-57
+Alias: cn
+Alias: ISO646-CN
+Alias: csISO57GB1988
+
+Name: GB_2312-80 [RFC1345,KXS2]
+MIBenum: 57
+Source: ECMA registry
+Alias: iso-ir-58
+Alias: chinese
+Alias: csISO58GB231280
+
+Name: NS_4551-1 [RFC1345,KXS2]
+MIBenum: 25
+Source: ECMA registry
+Alias: iso-ir-60
+Alias: ISO646-NO
+Alias: no
+Alias: csISO60DanishNorwegian
+Alias: csISO60Norwegian1
+
+Name: NS_4551-2 [RFC1345,KXS2]
+MIBenum: 58
+Source: ECMA registry
+Alias: ISO646-NO2
+Alias: iso-ir-61
+Alias: no2
+Alias: csISO61Norwegian2
+
+Name: NF_Z_62-010 [RFC1345,KXS2]
+MIBenum: 26
+Source: ECMA registry
+Alias: iso-ir-69
+Alias: ISO646-FR
+Alias: fr
+Alias: csISO69French
+
+Name: videotex-suppl [RFC1345,KXS2]
+MIBenum: 59
+Source: ECMA registry
+Alias: iso-ir-70
+Alias: csISO70VideotexSupp1
+
+Name: PT2 [RFC1345,KXS2]
+MIBenum: 60
+Source: ECMA registry
+Alias: iso-ir-84
+Alias: ISO646-PT2
+Alias: csISO84Portuguese2
+
+Name: ES2 [RFC1345,KXS2]
+MIBenum: 61
+Source: ECMA registry
+Alias: iso-ir-85
+Alias: ISO646-ES2
+Alias: csISO85Spanish2
+
+Name: MSZ_7795.3 [RFC1345,KXS2]
+MIBenum: 62
+Source: ECMA registry
+Alias: iso-ir-86
+Alias: ISO646-HU
+Alias: hu
+Alias: csISO86Hungarian
+
+Name: JIS_C6226-1983 [RFC1345,KXS2]
+MIBenum: 63
+Source: ECMA registry
+Alias: iso-ir-87
+Alias: x0208
+Alias: JIS_X0208-1983
+Alias: csISO87JISX0208
+
+Name: greek7 [RFC1345,KXS2]
+MIBenum: 64
+Source: ECMA registry
+Alias: iso-ir-88
+Alias: csISO88Greek7
+
+Name: ASMO_449 [RFC1345,KXS2]
+MIBenum: 65
+Source: ECMA registry
+Alias: ISO_9036
+Alias: arabic7
+Alias: iso-ir-89
+Alias: csISO89ASMO449
+
+Name: iso-ir-90 [RFC1345,KXS2]
+MIBenum: 66
+Source: ECMA registry
+Alias: csISO90
+
+Name: JIS_C6229-1984-a [RFC1345,KXS2]
+MIBenum: 67
+Source: ECMA registry
+Alias: iso-ir-91
+Alias: jp-ocr-a
+Alias: csISO91JISC62291984a
+
+Name: JIS_C6229-1984-b [RFC1345,KXS2]
+MIBenum: 68
+Source: ECMA registry
+Alias: iso-ir-92
+Alias: ISO646-JP-OCR-B
+Alias: jp-ocr-b
+Alias: csISO92JISC62991984b
+
+Name: JIS_C6229-1984-b-add [RFC1345,KXS2]
+MIBenum: 69
+Source: ECMA registry
+Alias: iso-ir-93
+Alias: jp-ocr-b-add
+Alias: csISO93JIS62291984badd
+
+Name: JIS_C6229-1984-hand [RFC1345,KXS2]
+MIBenum: 70
+Source: ECMA registry
+Alias: iso-ir-94
+Alias: jp-ocr-hand
+Alias: csISO94JIS62291984hand
+
+Name: JIS_C6229-1984-hand-add [RFC1345,KXS2]
+MIBenum: 71
+Source: ECMA registry
+Alias: iso-ir-95
+Alias: jp-ocr-hand-add
+Alias: csISO95JIS62291984handadd
+
+Name: JIS_C6229-1984-kana [RFC1345,KXS2]
+MIBenum: 72
+Source: ECMA registry
+Alias: iso-ir-96
+Alias: csISO96JISC62291984kana
+
+Name: ISO_2033-1983 [RFC1345,KXS2]
+MIBenum: 73
+Source: ECMA registry
+Alias: iso-ir-98
+Alias: e13b
+Alias: csISO2033
+
+Name: ANSI_X3.110-1983 [RFC1345,KXS2]
+MIBenum: 74
+Source: ECMA registry
+Alias: iso-ir-99
+Alias: CSA_T500-1983
+Alias: NAPLPS
+Alias: csISO99NAPLPS
+
+Name: ISO_8859-1:1987 [RFC1345,KXS2]
+MIBenum: 4
+Source: ECMA registry
+Alias: iso-ir-100
+Alias: ISO_8859-1
+Alias: ISO-8859-1 (preferred MIME name)
+Alias: latin1
+Alias: l1
+Alias: IBM819
+Alias: CP819
+Alias: csISOLatin1
+
+Name: ISO_8859-2:1987 [RFC1345,KXS2]
+MIBenum: 5
+Source: ECMA registry
+Alias: iso-ir-101
+Alias: ISO_8859-2
+Alias: ISO-8859-2 (preferred MIME name)
+Alias: latin2
+Alias: l2
+Alias: csISOLatin2
+
+Name: T.61-7bit [RFC1345,KXS2]
+MIBenum: 75
+Source: ECMA registry
+Alias: iso-ir-102
+Alias: csISO102T617bit
+
+Name: T.61-8bit [RFC1345,KXS2]
+MIBenum: 76
+Alias: T.61
+Source: ECMA registry
+Alias: iso-ir-103
+Alias: csISO103T618bit
+
+Name: ISO_8859-3:1988 [RFC1345,KXS2]
+MIBenum: 6
+Source: ECMA registry
+Alias: iso-ir-109
+Alias: ISO_8859-3
+Alias: ISO-8859-3 (preferred MIME name)
+Alias: latin3
+Alias: l3
+Alias: csISOLatin3
+
+Name: ISO_8859-4:1988 [RFC1345,KXS2]
+MIBenum: 7
+Source: ECMA registry
+Alias: iso-ir-110
+Alias: ISO_8859-4
+Alias: ISO-8859-4 (preferred MIME name)
+Alias: latin4
+Alias: l4
+Alias: csISOLatin4
+
+Name: ECMA-cyrillic
+MIBenum: 77
+Source: ISO registry (formerly ECMA registry)
+ http://www.itscj.ipsj.jp/ISO-IR/111.pdf
+Alias: iso-ir-111
+Alias: KOI8-E
+Alias: csISO111ECMACyrillic
+
+Name: CSA_Z243.4-1985-1 [RFC1345,KXS2]
+MIBenum: 78
+Source: ECMA registry
+Alias: iso-ir-121
+Alias: ISO646-CA
+Alias: csa7-1
+Alias: ca
+Alias: csISO121Canadian1
+
+Name: CSA_Z243.4-1985-2 [RFC1345,KXS2]
+MIBenum: 79
+Source: ECMA registry
+Alias: iso-ir-122
+Alias: ISO646-CA2
+Alias: csa7-2
+Alias: csISO122Canadian2
+
+Name: CSA_Z243.4-1985-gr [RFC1345,KXS2]
+MIBenum: 80
+Source: ECMA registry
+Alias: iso-ir-123
+Alias: csISO123CSAZ24341985gr
+
+Name: ISO_8859-6:1987 [RFC1345,KXS2]
+MIBenum: 9
+Source: ECMA registry
+Alias: iso-ir-127
+Alias: ISO_8859-6
+Alias: ISO-8859-6 (preferred MIME name)
+Alias: ECMA-114
+Alias: ASMO-708
+Alias: arabic
+Alias: csISOLatinArabic
+
+Name: ISO_8859-6-E [RFC1556,IANA]
+MIBenum: 81
+Source: RFC1556
+Alias: csISO88596E
+Alias: ISO-8859-6-E (preferred MIME name)
+
+Name: ISO_8859-6-I [RFC1556,IANA]
+MIBenum: 82
+Source: RFC1556
+Alias: csISO88596I
+Alias: ISO-8859-6-I (preferred MIME name)
+
+Name: ISO_8859-7:1987 [RFC1947,RFC1345,KXS2]
+MIBenum: 10
+Source: ECMA registry
+Alias: iso-ir-126
+Alias: ISO_8859-7
+Alias: ISO-8859-7 (preferred MIME name)
+Alias: ELOT_928
+Alias: ECMA-118
+Alias: greek
+Alias: greek8
+Alias: csISOLatinGreek
+
+Name: T.101-G2 [RFC1345,KXS2]
+MIBenum: 83
+Source: ECMA registry
+Alias: iso-ir-128
+Alias: csISO128T101G2
+
+Name: ISO_8859-8:1988 [RFC1345,KXS2]
+MIBenum: 11
+Source: ECMA registry
+Alias: iso-ir-138
+Alias: ISO_8859-8
+Alias: ISO-8859-8 (preferred MIME name)
+Alias: hebrew
+Alias: csISOLatinHebrew
+
+Name: ISO_8859-8-E [RFC1556,Nussbacher]
+MIBenum: 84
+Source: RFC1556
+Alias: csISO88598E
+Alias: ISO-8859-8-E (preferred MIME name)
+
+Name: ISO_8859-8-I [RFC1556,Nussbacher]
+MIBenum: 85
+Source: RFC1556
+Alias: csISO88598I
+Alias: ISO-8859-8-I (preferred MIME name)
+
+Name: CSN_369103 [RFC1345,KXS2]
+MIBenum: 86
+Source: ECMA registry
+Alias: iso-ir-139
+Alias: csISO139CSN369103
+
+Name: JUS_I.B1.002 [RFC1345,KXS2]
+MIBenum: 87
+Source: ECMA registry
+Alias: iso-ir-141
+Alias: ISO646-YU
+Alias: js
+Alias: yu
+Alias: csISO141JUSIB1002
+
+Name: ISO_6937-2-add [RFC1345,KXS2]
+MIBenum: 14
+Source: ECMA registry and ISO 6937-2:1983
+Alias: iso-ir-142
+Alias: csISOTextComm
+
+Name: IEC_P27-1 [RFC1345,KXS2]
+MIBenum: 88
+Source: ECMA registry
+Alias: iso-ir-143
+Alias: csISO143IECP271
+
+Name: ISO_8859-5:1988 [RFC1345,KXS2]
+MIBenum: 8
+Source: ECMA registry
+Alias: iso-ir-144
+Alias: ISO_8859-5
+Alias: ISO-8859-5 (preferred MIME name)
+Alias: cyrillic
+Alias: csISOLatinCyrillic
+
+Name: JUS_I.B1.003-serb [RFC1345,KXS2]
+MIBenum: 89
+Source: ECMA registry
+Alias: iso-ir-146
+Alias: serbian
+Alias: csISO146Serbian
+
+Name: JUS_I.B1.003-mac [RFC1345,KXS2]
+MIBenum: 90
+Source: ECMA registry
+Alias: macedonian
+Alias: iso-ir-147
+Alias: csISO147Macedonian
+
+Name: ISO_8859-9:1989 [RFC1345,KXS2]
+MIBenum: 12
+Source: ECMA registry
+Alias: iso-ir-148
+Alias: ISO_8859-9
+Alias: ISO-8859-9 (preferred MIME name)
+Alias: latin5
+Alias: l5
+Alias: csISOLatin5
+
+Name: greek-ccitt [RFC1345,KXS2]
+MIBenum: 91
+Source: ECMA registry
+Alias: iso-ir-150
+Alias: csISO150
+Alias: csISO150GreekCCITT
+
+Name: NC_NC00-10:81 [RFC1345,KXS2]
+MIBenum: 92
+Source: ECMA registry
+Alias: cuba
+Alias: iso-ir-151
+Alias: ISO646-CU
+Alias: csISO151Cuba
+
+Name: ISO_6937-2-25 [RFC1345,KXS2]
+MIBenum: 93
+Source: ECMA registry
+Alias: iso-ir-152
+Alias: csISO6937Add
+
+Name: GOST_19768-74 [RFC1345,KXS2]
+MIBenum: 94
+Source: ECMA registry
+Alias: ST_SEV_358-88
+Alias: iso-ir-153
+Alias: csISO153GOST1976874
+
+Name: ISO_8859-supp [RFC1345,KXS2]
+MIBenum: 95
+Source: ECMA registry
+Alias: iso-ir-154
+Alias: latin1-2-5
+Alias: csISO8859Supp
+
+Name: ISO_10367-box [RFC1345,KXS2]
+MIBenum: 96
+Source: ECMA registry
+Alias: iso-ir-155
+Alias: csISO10367Box
+
+Name: ISO-8859-10 (preferred MIME name) [RFC1345,KXS2]
+MIBenum: 13
+Source: ECMA registry
+Alias: iso-ir-157
+Alias: l6
+Alias: ISO_8859-10:1992
+Alias: csISOLatin6
+Alias: latin6
+
+Name: latin-lap [RFC1345,KXS2]
+MIBenum: 97
+Source: ECMA registry
+Alias: lap
+Alias: iso-ir-158
+Alias: csISO158Lap
+
+Name: JIS_X0212-1990 [RFC1345,KXS2]
+MIBenum: 98
+Source: ECMA registry
+Alias: x0212
+Alias: iso-ir-159
+Alias: csISO159JISX02121990
+
+Name: DS_2089 [RFC1345,KXS2]
+MIBenum: 99
+Source: Danish Standard, DS 2089, February 1974
+Alias: DS2089
+Alias: ISO646-DK
+Alias: dk
+Alias: csISO646Danish
+
+Name: us-dk [RFC1345,KXS2]
+MIBenum: 100
+Alias: csUSDK
+
+Name: dk-us [RFC1345,KXS2]
+MIBenum: 101
+Alias: csDKUS
+
+Name: JIS_X0201 [RFC1345,KXS2]
+MIBenum: 15
+Source: JIS X 0201-1976. One byte only, this is equivalent to
+ JIS/Roman (similar to ASCII) plus eight-bit half-width
+ Katakana
+Alias: X0201
+Alias: csHalfWidthKatakana
+
+Name: KSC5636 [RFC1345,KXS2]
+MIBenum: 102
+Alias: ISO646-KR
+Alias: csKSC5636
+
+Name: ISO-10646-UCS-2
+MIBenum: 1000
+Source: the 2-octet Basic Multilingual Plane, aka Unicode
+ this needs to specify network byte order: the standard
+ does not specify (it is a 16-bit integer space)
+Alias: csUnicode
+
+Name: ISO-10646-UCS-4
+MIBenum: 1001
+Source: the full code space. (same comment about byte order,
+ these are 31-bit numbers.
+Alias: csUCS4
+
+Name: DEC-MCS [RFC1345,KXS2]
+MIBenum: 2008
+Source: VAX/VMS User's Manual,
+ Order Number: AI-Y517A-TE, April 1986.
+Alias: dec
+Alias: csDECMCS
+
+Name: hp-roman8 [HP-PCL5,RFC1345,KXS2]
+MIBenum: 2004
+Source: LaserJet IIP Printer User's Manual,
+ HP part no 33471-90901, Hewlet-Packard, June 1989.
+Alias: roman8
+Alias: r8
+Alias: csHPRoman8
+
+Name: macintosh [RFC1345,KXS2]
+MIBenum: 2027
+Source: The Unicode Standard ver1.0, ISBN 0-201-56788-1, Oct 1991
+Alias: mac
+Alias: csMacintosh
+
+Name: IBM037 [RFC1345,KXS2]
+MIBenum: 2028
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp037
+Alias: ebcdic-cp-us
+Alias: ebcdic-cp-ca
+Alias: ebcdic-cp-wt
+Alias: ebcdic-cp-nl
+Alias: csIBM037
+
+Name: IBM038 [RFC1345,KXS2]
+MIBenum: 2029
+Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
+Alias: EBCDIC-INT
+Alias: cp038
+Alias: csIBM038
+
+Name: IBM273 [RFC1345,KXS2]
+MIBenum: 2030
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP273
+Alias: csIBM273
+
+Name: IBM274 [RFC1345,KXS2]
+MIBenum: 2031
+Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
+Alias: EBCDIC-BE
+Alias: CP274
+Alias: csIBM274
+
+Name: IBM275 [RFC1345,KXS2]
+MIBenum: 2032
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: EBCDIC-BR
+Alias: cp275
+Alias: csIBM275
+
+Name: IBM277 [RFC1345,KXS2]
+MIBenum: 2033
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: EBCDIC-CP-DK
+Alias: EBCDIC-CP-NO
+Alias: csIBM277
+
+Name: IBM278 [RFC1345,KXS2]
+MIBenum: 2034
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP278
+Alias: ebcdic-cp-fi
+Alias: ebcdic-cp-se
+Alias: csIBM278
+
+Name: IBM280 [RFC1345,KXS2]
+MIBenum: 2035
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP280
+Alias: ebcdic-cp-it
+Alias: csIBM280
+
+Name: IBM281 [RFC1345,KXS2]
+MIBenum: 2036
+Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
+Alias: EBCDIC-JP-E
+Alias: cp281
+Alias: csIBM281
+
+Name: IBM284 [RFC1345,KXS2]
+MIBenum: 2037
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP284
+Alias: ebcdic-cp-es
+Alias: csIBM284
+
+Name: IBM285 [RFC1345,KXS2]
+MIBenum: 2038
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP285
+Alias: ebcdic-cp-gb
+Alias: csIBM285
+
+Name: IBM290 [RFC1345,KXS2]
+MIBenum: 2039
+Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
+Alias: cp290
+Alias: EBCDIC-JP-kana
+Alias: csIBM290
+
+Name: IBM297 [RFC1345,KXS2]
+MIBenum: 2040
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp297
+Alias: ebcdic-cp-fr
+Alias: csIBM297
+
+Name: IBM420 [RFC1345,KXS2]
+MIBenum: 2041
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990,
+ IBM NLS RM p 11-11
+Alias: cp420
+Alias: ebcdic-cp-ar1
+Alias: csIBM420
+
+Name: IBM423 [RFC1345,KXS2]
+MIBenum: 2042
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp423
+Alias: ebcdic-cp-gr
+Alias: csIBM423
+
+Name: IBM424 [RFC1345,KXS2]
+MIBenum: 2043
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp424
+Alias: ebcdic-cp-he
+Alias: csIBM424
+
+Name: IBM437 [RFC1345,KXS2]
+MIBenum: 2011
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp437
+Alias: 437
+Alias: csPC8CodePage437
+
+Name: IBM500 [RFC1345,KXS2]
+MIBenum: 2044
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP500
+Alias: ebcdic-cp-be
+Alias: ebcdic-cp-ch
+Alias: csIBM500
+
+Name: IBM775 [HP-PCL5]
+MIBenum: 2087
+Source: HP PCL 5 Comparison Guide (P/N 5021-0329) pp B-13, 1996
+Alias: cp775
+Alias: csPC775Baltic
+
+Name: IBM850 [RFC1345,KXS2]
+MIBenum: 2009
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp850
+Alias: 850
+Alias: csPC850Multilingual
+
+Name: IBM851 [RFC1345,KXS2]
+MIBenum: 2045
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp851
+Alias: 851
+Alias: csIBM851
+
+Name: IBM852 [RFC1345,KXS2]
+MIBenum: 2010
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp852
+Alias: 852
+Alias: csPCp852
+
+Name: IBM855 [RFC1345,KXS2]
+MIBenum: 2046
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp855
+Alias: 855
+Alias: csIBM855
+
+Name: IBM857 [RFC1345,KXS2]
+MIBenum: 2047
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp857
+Alias: 857
+Alias: csIBM857
+
+Name: IBM860 [RFC1345,KXS2]
+MIBenum: 2048
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp860
+Alias: 860
+Alias: csIBM860
+
+Name: IBM861 [RFC1345,KXS2]
+MIBenum: 2049
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp861
+Alias: 861
+Alias: cp-is
+Alias: csIBM861
+
+Name: IBM862 [RFC1345,KXS2]
+MIBenum: 2013
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp862
+Alias: 862
+Alias: csPC862LatinHebrew
+
+Name: IBM863 [RFC1345,KXS2]
+MIBenum: 2050
+Source: IBM Keyboard layouts and code pages, PN 07G4586 June 1991
+Alias: cp863
+Alias: 863
+Alias: csIBM863
+
+Name: IBM864 [RFC1345,KXS2]
+MIBenum: 2051
+Source: IBM Keyboard layouts and code pages, PN 07G4586 June 1991
+Alias: cp864
+Alias: csIBM864
+
+Name: IBM865 [RFC1345,KXS2]
+MIBenum: 2052
+Source: IBM DOS 3.3 Ref (Abridged), 94X9575 (Feb 1987)
+Alias: cp865
+Alias: 865
+Alias: csIBM865
+
+Name: IBM866 [Pond]
+MIBenum: 2086
+Source: IBM NLDG Volume 2 (SE09-8002-03) August 1994
+Alias: cp866
+Alias: 866
+Alias: csIBM866
+
+Name: IBM868 [RFC1345,KXS2]
+MIBenum: 2053
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP868
+Alias: cp-ar
+Alias: csIBM868
+
+Name: IBM869 [RFC1345,KXS2]
+MIBenum: 2054
+Source: IBM Keyboard layouts and code pages, PN 07G4586 June 1991
+Alias: cp869
+Alias: 869
+Alias: cp-gr
+Alias: csIBM869
+
+Name: IBM870 [RFC1345,KXS2]
+MIBenum: 2055
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP870
+Alias: ebcdic-cp-roece
+Alias: ebcdic-cp-yu
+Alias: csIBM870
+
+Name: IBM871 [RFC1345,KXS2]
+MIBenum: 2056
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP871
+Alias: ebcdic-cp-is
+Alias: csIBM871
+
+Name: IBM880 [RFC1345,KXS2]
+MIBenum: 2057
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp880
+Alias: EBCDIC-Cyrillic
+Alias: csIBM880
+
+Name: IBM891 [RFC1345,KXS2]
+MIBenum: 2058
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp891
+Alias: csIBM891
+
+Name: IBM903 [RFC1345,KXS2]
+MIBenum: 2059
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp903
+Alias: csIBM903
+
+Name: IBM904 [RFC1345,KXS2]
+MIBenum: 2060
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: cp904
+Alias: 904
+Alias: csIBBM904
+
+Name: IBM905 [RFC1345,KXS2]
+MIBenum: 2061
+Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
+Alias: CP905
+Alias: ebcdic-cp-tr
+Alias: csIBM905
+
+Name: IBM918 [RFC1345,KXS2]
+MIBenum: 2062
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP918
+Alias: ebcdic-cp-ar2
+Alias: csIBM918
+
+Name: IBM1026 [RFC1345,KXS2]
+MIBenum: 2063
+Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
+Alias: CP1026
+Alias: csIBM1026
+
+Name: EBCDIC-AT-DE [RFC1345,KXS2]
+MIBenum: 2064
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csIBMEBCDICATDE
+
+Name: EBCDIC-AT-DE-A [RFC1345,KXS2]
+MIBenum: 2065
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICATDEA
+
+Name: EBCDIC-CA-FR [RFC1345,KXS2]
+MIBenum: 2066
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICCAFR
+
+Name: EBCDIC-DK-NO [RFC1345,KXS2]
+MIBenum: 2067
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICDKNO
+
+Name: EBCDIC-DK-NO-A [RFC1345,KXS2]
+MIBenum: 2068
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICDKNOA
+
+Name: EBCDIC-FI-SE [RFC1345,KXS2]
+MIBenum: 2069
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICFISE
+
+Name: EBCDIC-FI-SE-A [RFC1345,KXS2]
+MIBenum: 2070
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICFISEA
+
+Name: EBCDIC-FR [RFC1345,KXS2]
+MIBenum: 2071
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICFR
+
+Name: EBCDIC-IT [RFC1345,KXS2]
+MIBenum: 2072
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICIT
+
+Name: EBCDIC-PT [RFC1345,KXS2]
+MIBenum: 2073
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICPT
+
+Name: EBCDIC-ES [RFC1345,KXS2]
+MIBenum: 2074
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICES
+
+Name: EBCDIC-ES-A [RFC1345,KXS2]
+MIBenum: 2075
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICESA
+
+Name: EBCDIC-ES-S [RFC1345,KXS2]
+MIBenum: 2076
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICESS
+
+Name: EBCDIC-UK [RFC1345,KXS2]
+MIBenum: 2077
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICUK
+
+Name: EBCDIC-US [RFC1345,KXS2]
+MIBenum: 2078
+Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
+Alias: csEBCDICUS
+
+Name: UNKNOWN-8BIT [RFC1428]
+MIBenum: 2079
+Alias: csUnknown8BiT
+
+Name: MNEMONIC [RFC1345,KXS2]
+MIBenum: 2080
+Source: RFC 1345, also known as "mnemonic+ascii+38"
+Alias: csMnemonic
+
+Name: MNEM [RFC1345,KXS2]
+MIBenum: 2081
+Source: RFC 1345, also known as "mnemonic+ascii+8200"
+Alias: csMnem
+
+Name: VISCII [RFC1456]
+MIBenum: 2082
+Source: RFC 1456
+Alias: csVISCII
+
+Name: VIQR [RFC1456]
+MIBenum: 2083
+Source: RFC 1456
+Alias: csVIQR
+
+Name: KOI8-R (preferred MIME name) [RFC1489]
+MIBenum: 2084
+Source: RFC 1489, based on GOST-19768-74, ISO-6937/8,
+ INIS-Cyrillic, ISO-5427.
+Alias: csKOI8R
+
+Name: KOI8-U [RFC2319]
+MIBenum: 2088
+Source: RFC 2319
+
+Name: IBM00858
+MIBenum: 2089
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM00858) [Mahdi]
+Alias: CCSID00858
+Alias: CP00858
+Alias: PC-Multilingual-850+euro
+
+Name: IBM00924
+MIBenum: 2090
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM00924) [Mahdi]
+Alias: CCSID00924
+Alias: CP00924
+Alias: ebcdic-Latin9--euro
+
+Name: IBM01140
+MIBenum: 2091
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01140) [Mahdi]
+Alias: CCSID01140
+Alias: CP01140
+Alias: ebcdic-us-37+euro
+
+Name: IBM01141
+MIBenum: 2092
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01141) [Mahdi]
+Alias: CCSID01141
+Alias: CP01141
+Alias: ebcdic-de-273+euro
+
+Name: IBM01142
+MIBenum: 2093
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01142) [Mahdi]
+Alias: CCSID01142
+Alias: CP01142
+Alias: ebcdic-dk-277+euro
+Alias: ebcdic-no-277+euro
+
+Name: IBM01143
+MIBenum: 2094
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01143) [Mahdi]
+Alias: CCSID01143
+Alias: CP01143
+Alias: ebcdic-fi-278+euro
+Alias: ebcdic-se-278+euro
+
+Name: IBM01144
+MIBenum: 2095
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01144) [Mahdi]
+Alias: CCSID01144
+Alias: CP01144
+Alias: ebcdic-it-280+euro
+
+Name: IBM01145
+MIBenum: 2096
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01145) [Mahdi]
+Alias: CCSID01145
+Alias: CP01145
+Alias: ebcdic-es-284+euro
+
+Name: IBM01146
+MIBenum: 2097
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01146) [Mahdi]
+Alias: CCSID01146
+Alias: CP01146
+Alias: ebcdic-gb-285+euro
+
+Name: IBM01147
+MIBenum: 2098
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01147) [Mahdi]
+Alias: CCSID01147
+Alias: CP01147
+Alias: ebcdic-fr-297+euro
+
+Name: IBM01148
+MIBenum: 2099
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01148) [Mahdi]
+Alias: CCSID01148
+Alias: CP01148
+Alias: ebcdic-international-500+euro
+
+Name: IBM01149
+MIBenum: 2100
+Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01149) [Mahdi]
+Alias: CCSID01149
+Alias: CP01149
+Alias: ebcdic-is-871+euro
+
+Name: Big5-HKSCS [Yick]
+MIBenum: 2101
+Source: See (http://www.iana.org/assignments/charset-reg/Big5-HKSCS)
+Alias: None
+
+Name: IBM1047 [Robrigado]
+MIBenum: 2102
+Source: IBM1047 (EBCDIC Latin 1/Open Systems)
+http://www-1.ibm.com/servers/eserver/iseries/software/globalization/pdf/cp01047z.pdf
+Alias: IBM-1047
+
+Name: PTCP154 [Uskov]
+MIBenum: 2103
+Source: See (http://www.iana.org/assignments/charset-reg/PTCP154)
+Alias: csPTCP154
+Alias: PT154
+Alias: CP154
+Alias: Cyrillic-Asian
+
+Name: Amiga-1251
+MIBenum: 2104
+Source: See (http://www.amiga.ultranet.ru/Amiga-1251.html)
+Alias: Ami1251
+Alias: Amiga1251
+Alias: Ami-1251
+(Aliases are provided for historical reasons and should not be used)
+ [Malyshev]
+
+Name: KOI7-switched
+MIBenum: 2105
+Source: See <http://www.iana.org/assignments/charset-reg/KOI7-switched>
+Aliases: None
+
+Name: UNICODE-1-1 [RFC1641]
+MIBenum: 1010
+Source: RFC 1641
+Alias: csUnicode11
+
+Name: SCSU
+MIBenum: 1011
+Source: SCSU See (http://www.iana.org/assignments/charset-reg/SCSU) [Scherer]
+Alias: None
+
+Name: UTF-7 [RFC2152]
+MIBenum: 1012
+Source: RFC 2152
+Alias: None
+
+Name: UTF-16BE [RFC2781]
+MIBenum: 1013
+Source: RFC 2781
+Alias: None
+
+Name: UTF-16LE [RFC2781]
+MIBenum: 1014
+Source: RFC 2781
+Alias: None
+
+Name: UTF-16 [RFC2781]
+MIBenum: 1015
+Source: RFC 2781
+Alias: None
+
+Name: CESU-8 [Phipps]
+MIBenum: 1016
+Source: <http://www.unicode.org/unicode/reports/tr26>
+Alias: csCESU-8
+
+Name: UTF-32 [Davis]
+MIBenum: 1017
+Source: <http://www.unicode.org/unicode/reports/tr19/>
+Alias: None
+
+Name: UTF-32BE [Davis]
+MIBenum: 1018
+Source: <http://www.unicode.org/unicode/reports/tr19/>
+Alias: None
+
+Name: UTF-32LE [Davis]
+MIBenum: 1019
+Source: <http://www.unicode.org/unicode/reports/tr19/>
+Alias: None
+
+Name: BOCU-1 [Scherer]
+MIBenum: 1020
+Source: http://www.unicode.org/notes/tn6/
+Alias: csBOCU-1
+
+Name: UNICODE-1-1-UTF-7 [RFC1642]
+MIBenum: 103
+Source: RFC 1642
+Alias: csUnicode11UTF7
+
+Name: UTF-8 [RFC3629]
+MIBenum: 106
+Source: RFC 3629
+Alias: None
+
+Name: ISO-8859-13
+MIBenum: 109
+Source: ISO See (http://www.iana.org/assignments/charset-reg/iso-8859-13)[Tumasonis]
+Alias: None
+
+Name: ISO-8859-14
+MIBenum: 110
+Source: ISO See (http://www.iana.org/assignments/charset-reg/iso-8859-14) [Simonsen]
+Alias: iso-ir-199
+Alias: ISO_8859-14:1998
+Alias: ISO_8859-14
+Alias: latin8
+Alias: iso-celtic
+Alias: l8
+
+Name: ISO-8859-15
+MIBenum: 111
+Source: ISO
+ Please see: <http://www.iana.org/assignments/charset-reg/ISO-8859-15>
+Alias: ISO_8859-15
+Alias: Latin-9
+
+Name: ISO-8859-16
+MIBenum: 112
+Source: ISO
+Alias: iso-ir-226
+Alias: ISO_8859-16:2001
+Alias: ISO_8859-16
+Alias: latin10
+Alias: l10
+
+Name: GBK
+MIBenum: 113
+Source: Chinese IT Standardization Technical Committee
+ Please see: <http://www.iana.org/assignments/charset-reg/GBK>
+Alias: CP936
+Alias: MS936
+Alias: windows-936
+
+Name: GB18030
+MIBenum: 114
+Source: Chinese IT Standardization Technical Committee
+ Please see: <http://www.iana.org/assignments/charset-reg/GB18030>
+Alias: None
+
+Name: OSD_EBCDIC_DF04_15
+MIBenum: 115
+Source: Fujitsu-Siemens standard mainframe EBCDIC encoding
+ Please see: <http://www.iana.org/assignments/charset-reg/OSD-EBCDIC-DF04-15>
+Alias: None
+
+Name: OSD_EBCDIC_DF03_IRV
+MIBenum: 116
+Source: Fujitsu-Siemens standard mainframe EBCDIC encoding
+ Please see: <http://www.iana.org/assignments/charset-reg/OSD-EBCDIC-DF03-IRV>
+Alias: None
+
+Name: OSD_EBCDIC_DF04_1
+MIBenum: 117
+Source: Fujitsu-Siemens standard mainframe EBCDIC encoding
+ Please see: <http://www.iana.org/assignments/charset-reg/OSD-EBCDIC-DF04-1>
+Alias: None
+
+Name: JIS_Encoding
+MIBenum: 16
+Source: JIS X 0202-1991. Uses ISO 2022 escape sequences to
+ shift code sets as documented in JIS X 0202-1991.
+Alias: csJISEncoding
+
+Name: Shift_JIS (preferred MIME name)
+MIBenum: 17
+Source: This charset is an extension of csHalfWidthKatakana by
+ adding graphic characters in JIS X 0208. The CCS's are
+ JIS X0201:1997 and JIS X0208:1997. The
+ complete definition is shown in Appendix 1 of JIS
+ X0208:1997.
+ This charset can be used for the top-level media type "text".
+Alias: MS_Kanji
+Alias: csShiftJIS
+
+Name: Extended_UNIX_Code_Packed_Format_for_Japanese
+MIBenum: 18
+Source: Standardized by OSF, UNIX International, and UNIX Systems
+ Laboratories Pacific. Uses ISO 2022 rules to select
+ code set 0: US-ASCII (a single 7-bit byte set)
+ code set 1: JIS X0208-1990 (a double 8-bit byte set)
+ restricted to A0-FF in both bytes
+ code set 2: Half Width Katakana (a single 7-bit byte set)
+ requiring SS2 as the character prefix
+ code set 3: JIS X0212-1990 (a double 7-bit byte set)
+ restricted to A0-FF in both bytes
+ requiring SS3 as the character prefix
+Alias: csEUCPkdFmtJapanese
+Alias: EUC-JP (preferred MIME name)
+
+Name: Extended_UNIX_Code_Fixed_Width_for_Japanese
+MIBenum: 19
+Source: Used in Japan. Each character is 2 octets.
+ code set 0: US-ASCII (a single 7-bit byte set)
+ 1st byte = 00
+ 2nd byte = 20-7E
+ code set 1: JIS X0208-1990 (a double 7-bit byte set)
+ restricted to A0-FF in both bytes
+ code set 2: Half Width Katakana (a single 7-bit byte set)
+ 1st byte = 00
+ 2nd byte = A0-FF
+ code set 3: JIS X0212-1990 (a double 7-bit byte set)
+ restricted to A0-FF in
+ the first byte
+ and 21-7E in the second byte
+Alias: csEUCFixWidJapanese
+
+Name: ISO-10646-UCS-Basic
+MIBenum: 1002
+Source: ASCII subset of Unicode. Basic Latin = collection 1
+ See ISO 10646, Appendix A
+Alias: csUnicodeASCII
+
+Name: ISO-10646-Unicode-Latin1
+MIBenum: 1003
+Source: ISO Latin-1 subset of Unicode. Basic Latin and Latin-1
+ Supplement = collections 1 and 2. See ISO 10646,
+ Appendix A. See RFC 1815.
+Alias: csUnicodeLatin1
+Alias: ISO-10646
+
+Name: ISO-10646-J-1
+Source: ISO 10646 Japanese, see RFC 1815.
+
+Name: ISO-Unicode-IBM-1261
+MIBenum: 1005
+Source: IBM Latin-2, -3, -5, Extended Presentation Set, GCSGID: 1261
+Alias: csUnicodeIBM1261
+
+Name: ISO-Unicode-IBM-1268
+MIBenum: 1006
+Source: IBM Latin-4 Extended Presentation Set, GCSGID: 1268
+Alias: csUnicodeIBM1268
+
+Name: ISO-Unicode-IBM-1276
+MIBenum: 1007
+Source: IBM Cyrillic Greek Extended Presentation Set, GCSGID: 1276
+Alias: csUnicodeIBM1276
+
+Name: ISO-Unicode-IBM-1264
+MIBenum: 1008
+Source: IBM Arabic Presentation Set, GCSGID: 1264
+Alias: csUnicodeIBM1264
+
+Name: ISO-Unicode-IBM-1265
+MIBenum: 1009
+Source: IBM Hebrew Presentation Set, GCSGID: 1265
+Alias: csUnicodeIBM1265
+
+Name: ISO-8859-1-Windows-3.0-Latin-1 [HP-PCL5]
+MIBenum: 2000
+Source: Extended ISO 8859-1 Latin-1 for Windows 3.0.
+ PCL Symbol Set id: 9U
+Alias: csWindows30Latin1
+
+Name: ISO-8859-1-Windows-3.1-Latin-1 [HP-PCL5]
+MIBenum: 2001
+Source: Extended ISO 8859-1 Latin-1 for Windows 3.1.
+ PCL Symbol Set id: 19U
+Alias: csWindows31Latin1
+
+Name: ISO-8859-2-Windows-Latin-2 [HP-PCL5]
+MIBenum: 2002
+Source: Extended ISO 8859-2. Latin-2 for Windows 3.1.
+ PCL Symbol Set id: 9E
+Alias: csWindows31Latin2
+
+Name: ISO-8859-9-Windows-Latin-5 [HP-PCL5]
+MIBenum: 2003
+Source: Extended ISO 8859-9. Latin-5 for Windows 3.1
+ PCL Symbol Set id: 5T
+Alias: csWindows31Latin5
+
+Name: Adobe-Standard-Encoding [Adobe]
+MIBenum: 2005
+Source: PostScript Language Reference Manual
+ PCL Symbol Set id: 10J
+Alias: csAdobeStandardEncoding
+
+Name: Ventura-US [HP-PCL5]
+MIBenum: 2006
+Source: Ventura US. ASCII plus characters typically used in
+ publishing, like pilcrow, copyright, registered, trade mark,
+ section, dagger, and double dagger in the range A0 (hex)
+ to FF (hex).
+ PCL Symbol Set id: 14J
+Alias: csVenturaUS
+
+Name: Ventura-International [HP-PCL5]
+MIBenum: 2007
+Source: Ventura International. ASCII plus coded characters similar
+ to Roman8.
+ PCL Symbol Set id: 13J
+Alias: csVenturaInternational
+
+Name: PC8-Danish-Norwegian [HP-PCL5]
+MIBenum: 2012
+Source: PC Danish Norwegian
+ 8-bit PC set for Danish Norwegian
+ PCL Symbol Set id: 11U
+Alias: csPC8DanishNorwegian
+
+Name: PC8-Turkish [HP-PCL5]
+MIBenum: 2014
+Source: PC Latin Turkish. PCL Symbol Set id: 9T
+Alias: csPC8Turkish
+
+Name: IBM-Symbols [IBM-CIDT]
+MIBenum: 2015
+Source: Presentation Set, CPGID: 259
+Alias: csIBMSymbols
+
+Name: IBM-Thai [IBM-CIDT]
+MIBenum: 2016
+Source: Presentation Set, CPGID: 838
+Alias: csIBMThai
+
+Name: HP-Legal [HP-PCL5]
+MIBenum: 2017
+Source: PCL 5 Comparison Guide, Hewlett-Packard,
+ HP part number 5961-0510, October 1992
+ PCL Symbol Set id: 1U
+Alias: csHPLegal
+
+Name: HP-Pi-font [HP-PCL5]
+MIBenum: 2018
+Source: PCL 5 Comparison Guide, Hewlett-Packard,
+ HP part number 5961-0510, October 1992
+ PCL Symbol Set id: 15U
+Alias: csHPPiFont
+
+Name: HP-Math8 [HP-PCL5]
+MIBenum: 2019
+Source: PCL 5 Comparison Guide, Hewlett-Packard,
+ HP part number 5961-0510, October 1992
+ PCL Symbol Set id: 8M
+Alias: csHPMath8
+
+Name: Adobe-Symbol-Encoding [Adobe]
+MIBenum: 2020
+Source: PostScript Language Reference Manual
+ PCL Symbol Set id: 5M
+Alias: csHPPSMath
+
+Name: HP-DeskTop [HP-PCL5]
+MIBenum: 2021
+Source: PCL 5 Comparison Guide, Hewlett-Packard,
+ HP part number 5961-0510, October 1992
+ PCL Symbol Set id: 7J
+Alias: csHPDesktop
+
+Name: Ventura-Math [HP-PCL5]
+MIBenum: 2022
+Source: PCL 5 Comparison Guide, Hewlett-Packard,
+ HP part number 5961-0510, October 1992
+ PCL Symbol Set id: 6M
+Alias: csVenturaMath
+
+Name: Microsoft-Publishing [HP-PCL5]
+MIBenum: 2023
+Source: PCL 5 Comparison Guide, Hewlett-Packard,
+ HP part number 5961-0510, October 1992
+ PCL Symbol Set id: 6J
+Alias: csMicrosoftPublishing
+
+Name: Windows-31J
+MIBenum: 2024
+Source: Windows Japanese. A further extension of Shift_JIS
+ to include NEC special characters (Row 13), NEC
+ selection of IBM extensions (Rows 89 to 92), and IBM
+ extensions (Rows 115 to 119). The CCS's are
+ JIS X0201:1997, JIS X0208:1997, and these extensions.
+ This charset can be used for the top-level media type "text",
+ but it is of limited or specialized use (see RFC2278).
+ PCL Symbol Set id: 19K
+Alias: csWindows31J
+
+Name: GB2312 (preferred MIME name)
+MIBenum: 2025
+Source: Chinese for People's Republic of China (PRC) mixed one byte,
+ two byte set:
+ 20-7E = one byte ASCII
+ A1-FE = two byte PRC Kanji
+ See GB 2312-80
+ PCL Symbol Set Id: 18C
+Alias: csGB2312
+
+Name: Big5 (preferred MIME name)
+MIBenum: 2026
+Source: Chinese for Taiwan Multi-byte set.
+ PCL Symbol Set Id: 18T
+Alias: csBig5
+
+Name: windows-1250
+MIBenum: 2250
+Source: Microsoft (http://www.iana.org/assignments/charset-reg/windows-1250) [Lazhintseva]
+Alias: None
+
+Name: windows-1251
+MIBenum: 2251
+Source: Microsoft (http://www.iana.org/assignments/charset-reg/windows-1251) [Lazhintseva]
+Alias: None
+
+Name: windows-1252
+MIBenum: 2252
+Source: Microsoft (http://www.iana.org/assignments/charset-reg/windows-1252) [Wendt]
+Alias: None
+
+Name: windows-1253
+MIBenum: 2253
+Source: Microsoft (http://www.iana.org/assignments/charset-reg/windows-1253) [Lazhintseva]
+Alias: None
+
+Name: windows-1254
+MIBenum: 2254
+Source: Microsoft (http://www.iana.org/assignments/charset-reg/windows-1254) [Lazhintseva]
+Alias: None
+
+Name: windows-1255
+MIBenum: 2255
+Source: Microsoft (http://www.iana.org/assignments/charset-reg/windows-1255) [Lazhintseva]
+Alias: None
+
+Name: windows-1256
+MIBenum: 2256
+Source: Microsoft (http://www.iana.org/assignments/charset-reg/windows-1256) [Lazhintseva]
+Alias: None
+
+Name: windows-1257
+MIBenum: 2257
+Source: Microsoft (http://www.iana.org/assignments/charset-reg/windows-1257) [Lazhintseva]
+Alias: None
+
+Name: windows-1258
+MIBenum: 2258
+Source: Microsoft (http://www.iana.org/assignments/charset-reg/windows-1258) [Lazhintseva]
+Alias: None
+
+Name: TIS-620
+MIBenum: 2259
+Source: Thai Industrial Standards Institute (TISI) [Tantsetthi]
+
+Name: HZ-GB-2312
+MIBenum: 2085
+Source: RFC 1842, RFC 1843 [RFC1842, RFC1843]
+
+
+REFERENCES
+----------
+
+[RFC1345] Simonsen, K., "Character Mnemonics & Character Sets",
+ RFC 1345, Rationel Almen Planlaegning, Rationel Almen
+ Planlaegning, June 1992.
+
+[RFC1428] Vaudreuil, G., "Transition of Internet Mail from
+ Just-Send-8 to 8bit-SMTP/MIME", RFC1428, CNRI, February
+ 1993.
+
+[RFC1456] Vietnamese Standardization Working Group, "Conventions for
+ Encoding the Vietnamese Language VISCII: VIetnamese
+ Standard Code for Information Interchange VIQR: VIetnamese
+ Quoted-Readable Specification Revision 1.1", RFC 1456, May
+ 1993.
+
+[RFC1468] Murai, J., Crispin, M., and E. van der Poel, "Japanese
+ Character Encoding for Internet Messages", RFC 1468,
+ Keio University, Panda Programming, June 1993.
+
+[RFC1489] Chernov, A., "Registration of a Cyrillic Character Set",
+ RFC1489, RELCOM Development Team, July 1993.
+
+[RFC1554] Ohta, M., and K. Handa, "ISO-2022-JP-2: Multilingual
+ Extension of ISO-2022-JP", RFC1554, Tokyo Institute of
+ Technology, ETL, December 1993.
+
+[RFC1556] Nussbacher, H., "Handling of Bi-directional Texts in MIME",
+ RFC1556, Israeli Inter-University, December 1993.
+
+[RFC1557] Choi, U., Chon, K., and H. Park, "Korean Character Encoding
+ for Internet Messages", KAIST, Solvit Chosun Media,
+ December 1993.
+
+[RFC1641] Goldsmith, D., and M. Davis, "Using Unicode with MIME",
+ RFC1641, Taligent, Inc., July 1994.
+
+[RFC1642] Goldsmith, D., and M. Davis, "UTF-7", RFC1642, Taligent,
+ Inc., July 1994.
+
+[RFC1815] Ohta, M., "Character Sets ISO-10646 and ISO-10646-J-1",
+ RFC 1815, Tokyo Institute of Technology, July 1995.
+
+
+[Adobe] Adobe Systems Incorporated, PostScript Language Reference
+ Manual, second edition, Addison-Wesley Publishing Company,
+ Inc., 1990.
+
+[ECMA Registry] ISO-IR: International Register of Escape Sequences
+ http://www.itscj.ipsj.or.jp/ISO-IE/ Note: The current
+ registration authority is IPSJ/ITSCJ, Japan.
+
+[HP-PCL5] Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+ (P/N 5021-0329) pp B-13, 1996.
+
+[IBM-CIDT] IBM Corporation, "ABOUT TYPE: IBM's Technical Reference
+ for Core Interchange Digitized Type", Publication number
+ S544-3708-01
+
+[RFC1842] Wei, Y., J. Li, and Y. Jiang, "ASCII Printable
+ Characters-Based Chinese Character Encoding for Internet
+ Messages", RFC 1842, Harvard University, Rice University,
+ University of Maryland, August 1995.
+
+[RFC1843] Lee, F., "HZ - A Data Format for Exchanging Files of
+ Arbitrarily Mixed Chinese and ASCII Characters", RFC 1843,
+ Stanford University, August 1995.
+
+[RFC2152] Goldsmith, D., M. Davis, "UTF-7: A Mail-Safe Transformation
+ Format of Unicode", RFC 2152, Apple Computer, Inc.,
+ Taligent Inc., May 1997.
+
+[RFC2279] Yergeau, F., "UTF-8, A Transformation Format of ISO 10646",
+ RFC 2279, Alis Technologies, January, 1998.
+
+[RFC2781] Hoffman, P., Yergeau, F., "UTF-16, an encoding of ISO 10646",
+ RFC 2781, February 2000.
+
+[RFC3629] Yergeau, F., "UTF-8, a transformation format of ISO 10646",
+ RFC3629, November 2003.
+
+PEOPLE
+------
+
+[KXS2] Keld Simonsen <Keld.Simonsen at dkuug.dk>
+
+[Choi] Woohyong Choi <whchoi at cosmos.kaist.ac.kr>
+
+[Davis] Mark Davis, <mark at unicode.org>, April 2002.
+
+[Lazhintseva] Katya Lazhintseva, <katyal at MICROSOFT.com>, May 1996.
+
+[Mahdi] Tamer Mahdi, <tamer at ca.ibm.com>, August 2000.
+
+[Malyshev] Michael Malyshev, <michael_malyshev at mail.ru>, January 2004
+
+[Murai] Jun Murai <jun at wide.ad.jp>
+
+[Nussbacher] Hank Nussbacher, <hank at vm.tau.ac.il>
+
+[Ohta] Masataka Ohta, <mohta at cc.titech.ac.jp>, July 1995.
+
+[Phipps] Toby Phipps, <tphipps at peoplesoft.com>, March 2002.
+
+[Pond] Rick Pond, <rickpond at vnet.ibm.com>, March 1997.
+
+[Robrigado] Reuel Robrigado, <reuelr at ca.ibm.com>, September 2002.
+
+[Scherer] Markus Scherer, <markus.scherer at jtcsv.com>, August 2000,
+ September 2002.
+
+[Simonsen] Keld Simonsen, <Keld.Simonsen at rap.dk>, August 2000.
+
+[Tantsetthi] Trin Tantsetthi, <trin at mozart.inet.co.th>, September 1998.
+
+[Tumasonis] Vladas Tumasonis, <vladas.tumasonis at maf.vu.lt>, August 2000.
+
+[Uskov] Alexander Uskov, <auskov at idc.kz>, September 2002.
+
+[Wendt] Chris Wendt, <christw at microsoft.com>, December 1999.
+
+[Yick] Nicky Yick, <cliac at itsd.gcn.gov.hk>, October 2000.
+
+[]
+
+
+
+
+
+
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset/character-sets
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset.pm
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset.pm 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset.pm 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,6 +1,17 @@
-# $rcs = ' $Id: Charset.pm,v 1.371 2004/02/07 15:26:15 Daddy Exp $ ' ;
+# $rcs = ' $Id: Charset.pm,v 1.379 2005/09/02 21:32:04 Daddy Exp $ ' ;
+package I18N::Charset;
+
+require 5.002;
+
+require Exporter;
+use Carp;
+use IO::String;
+
+# Don't leave home without it:
+use strict;
+
=head1 NAME
I18N::Charset - IANA Character Set Registry names and Unicode::MapUTF8
@@ -29,16 +40,6 @@
I18N::Charset::add_libi_alias('my-sjis' => 'x-sjis');
I18N::Charset::add_enco_alias('my-japanese' => 'shiftjis');
-=cut
-
-#-----------------------------------------------------------------------
-
-package I18N::Charset;
-
-require 5.002;
-
-#-----------------------------------------------------------------------
-
=head1 DESCRIPTION
The C<I18N::Charset> module provides access to the IANA Character Set
@@ -64,19 +65,10 @@
=cut
#-----------------------------------------------------------------------
-
-require Exporter;
-use Carp;
-use IO::String;
-
-# Don't leave home without it:
-use strict;
-
-#-----------------------------------------------------------------------
# Public Global Variables
#-----------------------------------------------------------------------
use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
-$VERSION = do { my @r = (q$Revision: 1.371 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 1.379 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
@ISA = qw( Exporter );
@EXPORT = qw( iana_charset_name
map8_charset_name
@@ -94,14 +86,14 @@
# Private Global Variables
#-----------------------------------------------------------------------
-# %SHORTtoMIB is a hash of stripped names to mib.
-my %SHORTtoMIB;
-# %MIBtoLONG is a hash of mib to long name.
-my %MIBtoLONG;
-# %LONGtoMIB is a hash of long name to mib.
-my %LONGtoMIB;
-# %MIBtoMIME is a hash of mib to preferred MIME names.
-my %MIBtoMIME;
+# %hsMIBofShortname is a hash of stripped names to mib.
+my %hsMIBofShortname;
+# %hsLongnameOfMIB is a hash of mib to long name.
+my %hsLongnameOfMIB;
+# %hsMIBofLongname is a hash of long name to mib.
+my %hsMIBofLongname;
+# %hsMIMEofMIB is a hash of mib to preferred MIME names.
+my %hsMIMEofMIB;
# %MIBtoMAP8 is a hash of mib to Unicode::Map8 names. (Only valid for
# those U::Map8 names that we can find in the IANA registry)
my %MIBtoMAP8;
@@ -116,11 +108,12 @@
# %MIBtoLIBI is a hash of mib to libiconv names. (Only valid for
# those libiconv names that we can find in the IANA registry)
my %MIBtoLIBI;
-# %MIBtoLIBI is a hash of mib to Encode names. (Only valid for
+# %MIBtoENCO is a hash of mib to Encode names. (Only valid for
# those Encode names that we can find in the IANA registry)
my %MIBtoENCO;
use constant DEBUG => 0;
+use constant DEBUG_ENCO => 0;
=head1 CONVERSION ROUTINES
@@ -158,34 +151,34 @@
return undef unless $code ne '';
# $iDebug = ($code =~ m!sjis!);
# print STDERR " + iana_charset_name($code)..." if $iDebug;
- my $mib = &short_to_mib($code);
+ my $mib = &_short_to_mib($code);
return undef unless defined $mib;
# print STDERR " + mib is ($mib)..." if $iDebug;
# Make sure this is really a IANA mib:
return undef if &_is_dummy($mib);
# print STDERR " + is really iana..." if $iDebug;
- return $MIBtoLONG{$mib};
+ return $hsLongnameOfMIB{$mib};
} # iana_charset_name
-sub try_list
+sub _try_list
{
my $code = shift;
- my @asTry = ($code, &strip($code));
- push @asTry, &strip($code) if $code =~ s!\A(x-)+!!; # try without leading x-
+ my @asTry = ($code, &_strip($code));
+ push @asTry, &_strip($code) if $code =~ s!\A(x-)+!!; # try without leading x-
return @asTry;
- } # try_list
+ } # _try_list
-sub short_to_mib
+sub _short_to_mib
{
my $code = shift;
local $^W = 0;
- # print STDERR " + short_to_mib($code)..." if DEBUG;
+ # print STDERR " + _short_to_mib($code)..." if DEBUG;
my $answer = undef;
TRY_SHORT:
- foreach my $sTry (&try_list($code))
+ foreach my $sTry (&_try_list($code))
{
- my $iMIB = $SHORTtoMIB{$sTry} || 'undef';
+ my $iMIB = $hsMIBofShortname{$sTry} || 'undef';
# print STDERR "try($sTry)...$iMIB..." if DEBUG;
if ($iMIB ne 'undef')
{
@@ -195,16 +188,16 @@
} # foreach
# print STDERR "answer is $answer\n" if DEBUG;
return $answer;
- } # short_to_mib
+ } # _short_to_mib
-sub short_to_long
+sub _short_to_long
{
local $^W = 0;
my $s = shift;
- # print STDERR " + short_to_long($s)..." if DEBUG;
- return $MIBtoLONG{&short_to_mib($s)};
- } # short_to_long
+ # print STDERR " + _short_to_long($s)..." if DEBUG;
+ return $hsLongnameOfMIB{&_short_to_mib($s)};
+ } # _short_to_long
=item mime_charset_name()
@@ -226,13 +219,13 @@
return undef unless defined $code;
return undef unless $code ne '';
# print STDERR " + mime_charset_name($code)..." if DEBUG;
- my $mib = &short_to_mib($code);
+ my $mib = &_short_to_mib($code);
return undef unless defined $mib;
# print STDERR " + mib is ($mib)..." if DEBUG;
# Make sure this is really an IANA mib:
return undef if &_is_dummy($mib);
# print STDERR " + is really iana..." if DEBUG;
- return $MIBtoMIME{$mib};
+ return $hsMIMEofMIB{$mib};
} # mime_charset_name
@@ -257,7 +250,11 @@
# Get a list of aliases from Encode:
if (eval q{require Encode})
{
- my @as = Encode->encodings(':all');
+ my @as;
+ @as = Encode->encodings(':all');
+ # push @as, Encode->encodings('EBCDIC');
+ my $iFake = 0;
+ my $iReal = 0;
ENCODING:
foreach my $s (@as)
{
@@ -268,18 +265,28 @@
{
# Create a dummy mib:
$mib = $sFakeMIB++;
+ $iFake++;
} # if
else
{
$mib = &charset_name_to_mib($sIana);
+ $iReal++;
}
# At this point we have a mib for this Encode entry.
$MIBtoENCO{$mib} = $s;
- # print STDERR " + mib for enco ==$s== is $mib\n";
- $SHORTtoMIB{&strip($s)} = $mib;
- # print STDERR " + assign enco =$s==>$mib\n" if &_is_dummy($mib);
+ DEBUG_ENCO && print STDERR " + mib for enco ==$s== is $mib\n";
+ $hsMIBofShortname{&_strip($s)} = $mib;
+ DEBUG_ENCO && print STDERR " + assign enco =$s==>$mib\n" if &_is_dummy($mib);
+ } # foreach ENCODING
+ if (DEBUG_ENCO)
+ {
+ print STDERR " + Summary of Encode encodings:\n";
+ printf STDERR (" + %d encodings found.\n", scalar(@as));
+ print STDERR " + $iFake fake mibs created.\n";
+ print STDERR " + $iReal real mibs re-used.\n";
} # if
$iEncoLoaded = 1;
+ &add_enco_alias('Windows-31J', 'cp932');
} # if
else
{
@@ -300,12 +307,12 @@
return undef unless $code ne '';
&_maybe_load_enco();
my $iDebug = 0; # ($code =~ m!johab!i);
- print STDERR " + enco_charset_name($code)..." if $iDebug;
- my $mib = &short_to_mib($code);
+ print STDERR " + enco_charset_name($code)..." if ($iDebug || DEBUG_ENCO);
+ my $mib = &_short_to_mib($code);
return undef unless defined $mib;
- print STDERR " + mib is ($mib)..." if $iDebug;
+ print STDERR " + mib is ($mib)..." if ($iDebug || DEBUG_ENCO);
my $ret = &_mib_to_enco($mib);
- print STDERR " + enco is ($ret)..." if $iDebug;
+ print STDERR " + enco is ($ret)..." if ($iDebug || DEBUG_ENCO);
return $ret;
} # enco_charset_name
@@ -366,7 +373,7 @@
{
$MIBtoLIBI{$mib} = $sWord;
# print STDERR " + mib for libi ==$sWord== is $mib\n";
- $SHORTtoMIB{&strip($sWord)} = $mib;
+ $hsMIBofShortname{&_strip($sWord)} = $mib;
} # foreach ADD_LIBI
} # foreach ICONV_LINE
} # if
@@ -387,7 +394,7 @@
return undef unless $code ne '';
# my $iDebug = 1; # ($code =~ m!johab!i);
# print STDERR " + libi_charset_name($code)..." if $iDebug;
- my $mib = &short_to_mib($code);
+ my $mib = &_short_to_mib($code);
return undef unless defined $mib;
# print STDERR " + mib is ($mib)..." if $iDebug;
my $ret = &_mib_to_libi($mib);
@@ -418,7 +425,7 @@
return undef unless defined $code;
return undef unless $code ne '';
local $^W = 0;
- return $MIBtoLONG{$code};
+ return $hsLongnameOfMIB{$code};
} # mib_to_charset_name
@@ -439,7 +446,7 @@
{
my $s = shift;
return undef unless defined($s);
- return $LONGtoMIB{$s} || $LONGtoMIB{
+ return $hsMIBofLongname{$s} || $hsMIBofLongname{
&iana_charset_name($s) ||
&umap_charset_name($s) ||
&map8_charset_name($s) ||
@@ -468,9 +475,9 @@
return undef unless $code ne '';
# $iDebug = 0 && ($code =~ m!037!);
# print STDERR " + map8_charset_name($code)..." if $iDebug;
- $code = &strip($code);
+ $code = &_strip($code);
# print STDERR "$code..." if $iDebug;
- my $iMIB = &short_to_mib($code) || 'undef';
+ my $iMIB = &_short_to_mib($code) || 'undef';
# print STDERR "$iMIB..." if $iDebug;
if ($iMIB ne 'undef')
{
@@ -492,8 +499,6 @@
$sCharset = umap_charset_name('hebrew');
-=back
-
=cut
sub umap_charset_name
@@ -504,7 +509,7 @@
# $iDebug = ($code =~ m!apple!i);
# print STDERR "\n + MIBtoUMAP{dummymib029} == $MIBtoUMAP{$sDummy .'029'}\n\n" if $iDebug;
# print STDERR " + umap_charset_name($code)..." if $iDebug;
- my $iMIB = &short_to_mib(&strip($code)) || 'undef';
+ my $iMIB = &_short_to_mib(&_strip($code)) || 'undef';
# print STDERR "$iMIB..." if $iDebug;
if ($iMIB ne 'undef')
{
@@ -536,7 +541,7 @@
return undef unless $code ne '';
# $iDebug = ($code =~ m!u!);
# print STDERR " + umu8_charset_name($code)..." if $iDebug;
- my $iMIB = &short_to_mib($code) || 'undef';
+ my $iMIB = &_short_to_mib($code) || 'undef';
# print STDERR "$iMIB..." if $iDebug;
if ($iMIB ne 'undef')
{
@@ -547,6 +552,7 @@
return undef;
} # umu8_charset_name
+=back
=head1 QUERY ROUTINES
@@ -566,7 +572,7 @@
sub all_iana_charset_names
{
- return values %MIBtoLONG;
+ return values %hsLongnameOfMIB;
} # all_iana_charset_names
#-----------------------------------------------------------------------
@@ -609,12 +615,12 @@
my $sName = &iana_charset_name($sReal);
if (not defined($sName))
{
- carp "attempt to alias \"$sAlias\" to unknown IANA character set \"$sReal\"\n" if DEBUG;
+ carp qq{attempt to alias "$sAlias" to unknown IANA charset "$sReal"};
return undef;
} # if
- my $mib = &short_to_mib(&strip($sName));
+ my $mib = &_short_to_mib(&_strip($sName));
# print STDERR " --> $sName --> $mib\n";
- $SHORTtoMIB{&strip($sAlias)} = $mib;
+ $hsMIBofShortname{&_strip($sAlias)} = $mib;
return $sName;
} # add_iana_alias
@@ -660,16 +666,16 @@
{
my ($sAlias, $sReal) = @_;
my $sName = &map8_charset_name($sReal);
- my $sShort = &strip($sAlias);
- my $sShortName = &strip($sName);
+ my $sShort = &_strip($sAlias);
+ my $sShortName = &_strip($sName);
if (not defined($sName))
{
- carp "attempt to alias \"$sAlias\" to unknown Map8 character set \"$sReal\"\n" if DEBUG;
+ carp qq{attempt to alias "$sAlias" to unknown Map8 charset "$sReal"};
return undef;
} # if
- if (exists $SHORTtoMIB{$sShortName})
+ if (exists $hsMIBofShortname{$sShortName})
{
- $SHORTtoMIB{$sShort} = $SHORTtoMIB{$sShortName};
+ $hsMIBofShortname{$sShort} = $hsMIBofShortname{$sShortName};
} # if
return $sName;
} # add_map8_alias
@@ -687,16 +693,16 @@
{
my ($sAlias, $sReal) = @_;
my $sName = &umap_charset_name($sReal);
- my $sShort = &strip($sAlias);
- my $sShortName = &strip($sName);
+ my $sShort = &_strip($sAlias);
+ my $sShortName = &_strip($sName);
if (not defined($sName))
{
- carp "attempt to alias \"$sAlias\" to unknown U::Map character set \"$sReal\"\n" if DEBUG;
+ carp qq{attempt to alias "$sAlias" to unknown U::Map charset "$sReal"};
return undef;
} # if
- if (exists $SHORTtoMIB{$sShortName})
+ if (exists $hsMIBofShortname{$sShortName})
{
- $SHORTtoMIB{$sShort} = $SHORTtoMIB{$sShortName};
+ $hsMIBofShortname{$sShort} = $hsMIBofShortname{$sShortName};
} # if
return $sName;
} # add_umap_alias
@@ -735,12 +741,12 @@
my $sName = &libi_charset_name($sReal);
if (not defined($sName))
{
- carp "attempt to alias \"$sAlias\" to unknown iconv conversion scheme \"$sReal\"\n" if DEBUG;
+ carp qq{attempt to alias "$sAlias" to unknown iconv charset "$sReal"};
return undef;
} # if
- my $mib = &short_to_mib(&strip($sName));
+ my $mib = &_short_to_mib(&_strip($sName));
# print STDERR "sName=$sName...mib=$mib\n";
- $SHORTtoMIB{&strip($sAlias)} = $mib;
+ $hsMIBofShortname{&_strip($sAlias)} = $mib;
return $sName;
} # add_libi_alias
@@ -775,22 +781,22 @@
{
my ($sAlias, $sReal) = @_;
my $iDebug = 0;
- print STDERR " + add_enco_alias($sAlias,$sReal)..." if $iDebug;
+ print STDERR " + add_enco_alias($sAlias,$sReal)..." if ($iDebug || DEBUG_ENCO);
my $sName = &enco_charset_name($sReal);
if (not defined($sName))
{
- carp "attempt to alias \"$sAlias\" to unknown iconv conversion scheme \"$sReal\"\n" if DEBUG;
+ carp qq{attempt to alias "$sAlias" to unknown Encode charset "$sReal"};
return undef;
} # if
- my $mib = &short_to_mib(&strip($sName));
- print STDERR "sName=$sName...mib=$mib\n" if $iDebug;
- $SHORTtoMIB{&strip($sAlias)} = $mib;
+ my $mib = &_short_to_mib(&_strip($sName));
+ print STDERR "sName=$sName...mib=$mib\n" if ($iDebug || DEBUG_ENCO);
+ $hsMIBofShortname{&_strip($sAlias)} = $mib;
return $sName;
} # add_enco_alias
#-----------------------------------------------------------------------
-=head1 EXAMPLES
+=back
=head1 KNOWN BUGS AND LIMITATIONS
@@ -860,12 +866,12 @@
#-----------------------------------------------------------------------
-sub strip
+sub _strip
{
my $s = lc(shift);
$s =~ tr/[0-9a-zA-Z]//dc;
return $s;
- } # strip
+ } # _strip
# initialization code - stuff the DATA into some data structure
@@ -877,7 +883,9 @@
my ($sName, $iMIB, $sAlias, $mimename);
my $iDebug = 0;
# I used to use the __DATA__ mechanism to initialize the data, but
- # that is not compatible with perlapp
+ # that is not compatible with perlapp. NOTE that storing the IANA
+ # charset data as a file separate from this module code will not
+ # work with perlapp either!
my $io = new IO::String(_init_data());
local $/ = "\n";
DATA:
@@ -906,13 +914,13 @@
$iMIB = $1;
# $iDebug = ($iMIB =~ m!225[23]!);
print STDERR " + found mib: $iMIB, long = $sName\n" if $iDebug;
- $MIBtoLONG{$iMIB} = $sName;
- $LONGtoMIB{$sName} = $iMIB;
- $SHORTtoMIB{&strip($sName)} = $iMIB;
+ $hsLongnameOfMIB{$iMIB} = $sName;
+ $hsMIBofLongname{$sName} = $iMIB;
+ $hsMIBofShortname{&_strip($sName)} = $iMIB;
if ($mimename)
{
print STDERR " + found mime: mib=$iMIB, mime=$sName\n" if $iDebug;
- $MIBtoMIME{$iMIB} = $sName;
+ $hsMIMEofMIB{$iMIB} = $sName;
# We've got the MIME name for this entry, don't look for more
# until next entry:
$mimename = 0;
@@ -924,11 +932,11 @@
if ($sAlias !~ m!None!i)
{
print STDERR " + map Alias ($sAlias) to mib $iMIB\n" if $iDebug;
- $SHORTtoMIB{&strip($sAlias)} = $iMIB;
+ $hsMIBofShortname{&_strip($sAlias)} = $iMIB;
if ($mimename)
{
print STDERR " + found mime: mib=$iMIB, mime=$sAlias\n" if $iDebug;
- $MIBtoMIME{$iMIB} = $sAlias;
+ $hsMIMEofMIB{$iMIB} = $sAlias;
# We've got the MIME name for this entry, don't look for
# more until next entry:
$mimename = 0;
@@ -946,13 +954,14 @@
EQUAL_LINE:
foreach my $sLine (@asEqualLines)
{
+ next if ($sLine =~ m!\A#!);
# print STDERR " + equal-sign line $sLine...\n";
my @as = split(/\ ===\ /, $sLine);
next unless defined $as[0];
next unless $as[0] ne '';
next unless defined $as[1];
next unless $as[1] ne '';
- my $iMIB = $SHORTtoMIB{&strip($as[0])} || '';
+ my $iMIB = $hsMIBofShortname{&_strip($as[0])} || '';
unless ($iMIB ne '')
{
print STDERR " --- can not find IANA entry for equal-sign directive $as[0]\n";
@@ -960,9 +969,9 @@
} # unless
foreach my $s (@as)
{
- my $sStrip = &strip($s);
+ my $sStrip = &_strip($s);
# print STDERR " + $sStrip --> $iMIB\n";
- $SHORTtoMIB{$sStrip} = $iMIB;
+ $hsMIBofShortname{$sStrip} = $iMIB;
} # foreach
} # foreach
@@ -999,11 +1008,11 @@
# $iDebug = 1;
$iMIB = $sFakeMIB++;
print STDERR " + had to use a dummy mib ($iMIB) for U::Map8==$sMap8==\n" if $iDebug;
- $LONGtoMIB{$sMap8} = $iMIB;
+ $hsMIBofLongname{$sMap8} = $iMIB;
} # unless
else
{
- $iMIB = $LONGtoMIB{$sFound};
+ $iMIB = $hsMIBofLongname{$sFound};
print STDERR " + found IANA name $sFound ($iMIB) for Map8 entry $sMap8\n" if $iDebug;
}
# $iDebug = ($iMIB =~ m!225[23]!);
@@ -1013,9 +1022,9 @@
# Map ALL the Map8 aliases to this Map8 master name:
foreach my $s ($sMap8, @as)
{
- $s = &strip($s);
- print STDERR " + map $s to $iMIB in SHORTtoMIB...\n" if $iDebug;
- $SHORTtoMIB{$s} = $iMIB;
+ $s = &_strip($s);
+ print STDERR " + map $s to $iMIB in hsMIBofShortname...\n" if $iDebug;
+ $hsMIBofShortname{$s} = $iMIB;
} # foreach
# $iDebug = 0;
} # while
@@ -1041,16 +1050,16 @@
my $sMapFile = "$MAP_Path/REGISTRY";
if (open MAPS, $sMapFile)
{
- local $/;
- undef $/;
+ local $/ = undef;
my @asMAPS = split(/\n\s*\n/, <MAPS>);
+ UMAP_ENTRY:
foreach my $sEntry (@asMAPS)
{
$iDebug = 0;
# print STDERR " + working on Umap entry >>>>>$sEntry<<<<<...\n";
my ($sName, $iMIB) = ('', '');
# Get the value of the name field, and skip entries with no name:
- next unless $sEntry =~ m!^name:\s+(\S+)!mi;
+ next UMAP_ENTRY unless $sEntry =~ m!^name:\s+(\S+)!mi;
$sName = $1;
# $iDebug = ($sName =~ m!apple!);
print STDERR " + UMAP sName is $sName\n" if $iDebug;
@@ -1065,16 +1074,16 @@
{
# This entry does not have the MIB listed. See if the name
# of any of the aliases are known to our iana tables:
- ALIAS:
+ UMAP_ALIAS:
foreach my $sAlias ($sName, @asAlias)
{
print STDERR " + try alias $sAlias\n" if $iDebug;
- my $iMIBtry = &short_to_mib(&strip($sAlias));
+ my $iMIBtry = &_short_to_mib(&_strip($sAlias));
if ($iMIBtry)
{
print STDERR " + matched\n" if $iDebug;
$iMIB = $iMIBtry;
- last ALIAS;
+ last UMAP_ALIAS;
} # if
} # foreach
# If nothing matched, create a dummy mib:
@@ -1088,16 +1097,14 @@
# $iDebug = ($iMIB eq '17');
print STDERR " + UMAP mib is $iMIB\n" if $iDebug;
$MIBtoUMAP{$iMIB} = $sName;
- # Set the long IANA name, IF it is empty so far:
- $MIBtoLONG{$iMIB} ||= $sName;
- $LONGtoMIB{$sName} ||= $iMIB;
- $SHORTtoMIB{&strip($sName)} ||= $iMIB;
+ $hsMIBofLongname{$sName} ||= $iMIB;
+ $hsMIBofShortname{&_strip($sName)} ||= $iMIB;
foreach my $sAlias (@asAlias)
{
print STDERR " + UMAP alias $sAlias\n" if $iDebug;
- $SHORTtoMIB{&strip($sAlias)} = $iMIB;
- } # while
- } # foreach
+ $hsMIBofShortname{&_strip($sAlias)} = $iMIB;
+ } # foreach $sAlias
+ } # foreach UMAP_ENTRY
close MAPS;
# print STDERR "\n + MIBtoUMAP{dummymib029} == $MIBtoUMAP{$sDummy .'029'}\n\n";
} # if open
@@ -1160,7 +1167,7 @@
print STDERR " + the following IANA names do *not* have entries in the Map8 table:\n";
my %hiTried = ();
- foreach my $sIANA (sort values %MIBtoLONG)
+ foreach my $sIANA (sort values %hsLongnameOfMIB)
{
next if $hiTried{$sIANA};
print "$sIANA\n" unless defined &map8_charset_name($sIANA);
@@ -1187,18 +1194,18 @@
last INFINITE;
# debugging: huge dump:
- # &dumpHash('MIBtoLONG', \%MIBtoLONG);
- # &dumpHash('LONGtoMIB', \%LONGtoMIB);
- # &dumpHash('SHORTtoMIB', \%SHORTtoMIB);
- foreach (keys %SHORTtoMIB)
+ # &_dump_hash('hsLongnameOfMIB', \%hsLongnameOfMIB);
+ # &_dump_hash('hsMIBofLongname', \%hsMIBofLongname);
+ # &_dump_hash('hsMIBofShortname', \%hsMIBofShortname);
+ foreach (keys %hsMIBofShortname)
{
- print STDERR " + short_to_long($_) == ", &short_to_long($_) || 'undef', "\n";
+ print STDERR " + _short_to_long($_) == ", &_short_to_long($_) || 'undef', "\n";
} # foreach
last INFINITE;
} # while
-sub dumpHash
+sub _dump_hash
{
my ($sName, $rh) = @_;
print STDERR " + after initialization, $sName is:\n";
@@ -1206,7 +1213,7 @@
{
print STDERR " + $key => $$rh{$key}\n";
} # foreach
- } # dumpHash
+ } # _dump_hash
sub _init_data_extra
{
@@ -1233,15 +1240,14 @@
EBCDIC-FR === ebcdic-cp-fr
EBCDIC-IT === ebcdic-cp-it
EBCDIC-UK === ebcdic-cp-gb
-EBCDIC-US === ebcdic-cp-us
EBCDIC-FI-SE === ebcdic-cp-fi
UTF-7 === Unicode-2-0-utf-7
UTF-8 === Unicode-2-0-utf-8
Extended_UNIX_Code_Packed_Format_for_Japanese === euc === euc-jp
-# These were added for Unicode::MapUTF8:
+# These are for Unicode::MapUTF8:
ISO-10646-UCS-2 === ucs2
ISO-10646-UCS-4 === ucs4
-# These were added for iconv:
+# These are for iconv:
ISO-2022-JP === ISO-2022-JP-1
# These are for Encode:
IBM1047 === cp1047
@@ -1251,8 +1257,37 @@
JIS_C6226-1983 === jis0208-raw
JIS_X0212-1990 === jis0212-raw
KS_C_5601-1987 === ksc5601-raw
-# This is to workaround a bug in IANA's document:
-ECMA-cyrillic === KOI8-E
+CP037 === CP37
+cp863 === DOSCanadaF
+cp860 === DOSPortuguese
+cp869 === DOSGreek2
+koi8-r === cp878
+# These encodings are handled by Encode, but I don't know what they are:
+# ??? === AdobeZdingbats
+# ??? === MacArabic
+# ??? === MacCentralEurRoman
+# ??? === MacChineseSimp
+# ??? === MacChineseTrad
+# ??? === MacCroatian
+# ??? === MacCyrillic
+# ??? === MacDingbats
+# ??? === MacFarsi
+# ??? === MacGreek
+# ??? === MacHebrew
+# ??? === MacIcelandic
+# ??? === MacJapanese
+# ??? === MacKorean
+# ??? === MacRomanian
+# ??? === MacRumanian
+# ??? === MacSami
+# ??? === MacThai
+# ??? === MacTurkish
+# ??? === MacUkrainian
+# ??? === MacVietnamese
+# ??? === cp1006
+# ??? === dingbats
+# ??? === nextstep
+# ??? === posix-bc
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
} # _init_data_extra
@@ -1265,7 +1300,7 @@
===================================================================
CHARACTER SETS
-(last updated 2004-02-06)
+(last updated 28 January 2005)
These are the official names for character sets that may be used in
the Internet and may be referred to in Internet documentation. These
@@ -1299,13 +1334,17 @@
2000-2999 Vendor
The aliases that start with "cs" have been added for use with the
-Printer MIB (see RFC 1759) and contain the standard numbers along with
-suggestive names in order to facilitate applications that want to
-display the names in user interfaces. The "cs" stands for character
-set and is provided for applications that need a lower case first
-letter but want to use mixed case thereafter that cannot contain any
-special characters, such as underbar ("_") and dash ("-"). If the
-character set is from an ISO standard, its cs alias is the ISO
+IANA-CHARSET-MIB as originally defined in RFC3808, and as currently
+maintained by IANA at http://www/iana.org/assignments/ianacharset-mib.
+Note that the ianacharset-mib needs to be kept in sync with this
+registry. These aliases that start with "cs" contain the standard
+numbers along with suggestive names in order to facilitate applications
+that want to display the names in user interfaces. The "cs" stands
+for character set and is provided for applications that need a lower
+case first letter but want to use mixed case thereafter that cannot
+contain any special characters, such as underbar ("_") and dash ("-").
+
+If the character set is from an ISO standard, its cs alias is the ISO
standard number or name. If the character set is not from an ISO
standard, but is registered with ISO (IPSJ/ITSCJ is the current ISO
Registration Authority), the ISO Registry number is specified as
@@ -1776,7 +1815,7 @@
Source: ISO registry (formerly ECMA registry)
http://www.itscj.ipsj.jp/ISO-IR/111.pdf
Alias: iso-ir-111
-Alias: KO18-E
+Alias: KOI8-E
Alias: csISO111ECMACyrillic
Name: CSA_Z243.4-1985-1 [RFC1345,KXS2]
@@ -3131,3 +3170,4 @@
1;
__END__
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/lib/I18N/Charset.pm
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/t/bug1.t
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/t/bug1.t 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/t/bug1.t 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,3 +1,6 @@
+
+# $Id: bug1.t,v 1.5 2005/11/12 14:36:17 Daddy Exp $
+
use ExtUtils::testlib;
use Test::More;
unless (eval "require Encode")
@@ -14,3 +17,4 @@
'test literal -- big5');
__END__
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/t/bug1.t
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/t/enco.t
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/t/enco.t 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/t/enco.t 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,15 +1,17 @@
# enco.t - tests for "preferred ENCO name" functionality of I18N::Charset
+# $Id: enco.t,v 1.5 2005/11/12 14:45:08 Daddy Exp $
+
use ExtUtils::testlib;
-use Test::More;
-unless (eval "require Encode")
- {
- plan skip_all => 'Encode is not installed';
- } # unless
+use Test::More no_plan;
-plan tests => 25;
-&use_ok('I18N::Charset', 'enco_charset_name');
+use IO::Capture::Stderr;
+my $oICE = IO::Capture::Stderr->new;
+use strict;
+
+BEGIN { &use_ok('I18N::Charset') };
+
#================================================
# TESTS FOR enco routines
#================================================
@@ -22,37 +24,50 @@
ok(!defined enco_charset_name("junk"), 'junk argument');
ok(!defined enco_charset_name(999999), '999999 argument');
ok(!defined enco_charset_name(\@aa), 'arrayref argument');
+$oICE->start;
+ok(!defined I18N::Charset::add_enco_alias(undef => 'junk argument'));
+ok(!defined I18N::Charset::add_enco_alias('' => 'junk argument'));
+ok(!defined I18N::Charset::add_enco_alias("my-junk" => 'junk argument'));
+$oICE->stop;
-#---- some successful examples -----------------------------------------
-is(enco_charset_name("x-x-sjis"), enco_charset_name("Shift JIS"), 'x-x-sjis');
-is(enco_charset_name("x-ASCII"), "ascii", 'normal literal -- ASCII');
-is(enco_charset_name("S-JIS"), "shiftjis", 'normal -- G.B.K.');
-is(enco_charset_name("cp1251"), "cp1251", 'identity -- cp1251');
-is(enco_charset_name("IBM1047"), "cp1047", 'builtin alias -- cp1047');
-is(enco_charset_name("cs GB-2312"), "gb2312-raw", 'builtin alias -- gb2312-raw');
+SKIP:
+ {
+ skip 'Encode is not installed', 18 unless eval "require Encode";
-#---- some aliasing examples -----------------------------------------
-ok(!defined I18N::Charset::add_enco_alias("my-junk" => 'junk argument'));
-ok(I18N::Charset::add_enco_alias('my-japanese1' => 'jis0201-raw'));
-is(enco_charset_name("my-japanese1"),
- 'jis0201-raw',
- 'alias literal -- my-japanese1');
-is(enco_charset_name("my-japanese1"),
- enco_charset_name('jis-x-0201'),
- 'alias equal -- my-japanese1');
-ok(I18N::Charset::add_enco_alias('my-japanese2' => 'jis0208-raw'));
-is(enco_charset_name("my-japanese2"),
- enco_charset_name('cs ISO-87 JIS_X0208'), 'alias equal -- my-japanese2');
-ok(I18N::Charset::add_enco_alias('my-japanese3' => 'sjis'), 'set alias my-japanese3');
-is(enco_charset_name("my-japanese3"), 'shiftjis', 'alias literal -- my-japanese3');
-is(enco_charset_name("my-japanese3"),
- enco_charset_name('MS_KANJI'), 'alias equal -- my-japanese3');
-ok(I18N::Charset::add_enco_alias('my-japanese4' => 'my-japanese1'), 'alias-to-alias');
-is(enco_charset_name("my-japanese4"),
- enco_charset_name('my-japanese1'), 'alias equal -- my-japanese4');
-is(enco_charset_name("my-japanese4"),
- 'jis0201-raw', 'alias equal -- my-japanese4');
+ #---- some successful examples -----------------------------------------
+ is(enco_charset_name("x-x-sjis"), enco_charset_name("Shift JIS"), 'x-x-sjis');
+ is(enco_charset_name("x-ASCII"), "ascii", 'normal literal -- ASCII');
+ is(enco_charset_name("S-JIS"), "shiftjis", 'normal -- G.B.K.');
+ is(enco_charset_name("cp1251"), "cp1251", 'identity -- cp1251');
+ is(enco_charset_name("IBM1047"), "cp1047", 'builtin alias -- cp1047');
+ is(enco_charset_name("cp037"), "cp37", 'builtin alias -- cp37');
+ is(enco_charset_name("ebcdic-cp-us"), "cp37", 'builtin alias -- cp37');
+ is(enco_charset_name("windows-31-j"), "cp932", 'builtin alias -- cp932');
+ is(enco_charset_name("cs GB-2312"), "gb2312-raw", 'builtin alias -- gb2312-raw');
+ #---- some aliasing examples -----------------------------------------
+ ok(I18N::Charset::add_enco_alias('my-japanese1' => 'jis0201-raw'));
+ is(enco_charset_name("my-japanese1"),
+ 'jis0201-raw',
+ 'alias literal -- my-japanese1');
+ is(enco_charset_name("my-japanese1"),
+ enco_charset_name('jis-x-0201'),
+ 'alias equal -- my-japanese1');
+ ok(I18N::Charset::add_enco_alias('my-japanese2' => 'jis0208-raw'));
+ is(enco_charset_name("my-japanese2"),
+ enco_charset_name('cs ISO-87 JIS_X0208'), 'alias equal -- my-japanese2');
+ ok(I18N::Charset::add_enco_alias('my-japanese3' => 'sjis'), 'set alias my-japanese3');
+ is(enco_charset_name("my-japanese3"), 'shiftjis', 'alias literal -- my-japanese3');
+ is(enco_charset_name("my-japanese3"),
+ enco_charset_name('MS_KANJI'), 'alias equal -- my-japanese3');
+ ok(I18N::Charset::add_enco_alias('my-japanese4' => 'my-japanese1'), 'alias-to-alias');
+ is(enco_charset_name("my-japanese4"),
+ enco_charset_name('my-japanese1'), 'alias equal -- my-japanese4');
+ is(enco_charset_name("my-japanese4"),
+ 'jis0201-raw', 'alias equal -- my-japanese4');
+ } # end of SKIP block
+
exit 0;
__END__
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/t/enco.t
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/t/iana.t
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/t/iana.t 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/t/iana.t 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,8 +1,14 @@
-#!./perl
+# $Revision: 1.11 $
# iana.t - tests for Locale::Country
+use ExtUtils::testlib;
use Test::More tests => 27;
+use IO::Capture::Stderr;
+my $oICE = IO::Capture::Stderr->new;
+
+use strict;
+
BEGIN { use_ok('I18N::Charset') };
#================================================
@@ -33,10 +39,11 @@
ok(iana_charset_name("latin 10") eq "ISO-8859-16", 'latin 10');
#---- some aliasing examples -----------------------------------------
+$oICE->start;
ok(!defined(I18N::Charset::add_iana_alias("alias1" => "junk")), 'add alias1');
ok(!defined iana_charset_name("alias1"), 'alias1');
ok(!defined iana_charset_name("junk"), 'junk');
-
+$oICE->stop;
ok(I18N::Charset::add_iana_alias("alias2" => "Shift_JIS") eq "Shift_JIS", 'add alias2');
ok(iana_charset_name("alias2") eq "Shift_JIS", 'alias2');
@@ -44,6 +51,12 @@
ok(iana_charset_name("alias3") eq "Shift_JIS", '');
ok(iana_charset_name("sjis") eq "Shift_JIS", '');
+# Tests for coverage:
+my @asAll = I18N::Charset::all_iana_charset_names();
+my $iAll = scalar(@asAll);
+diag("There are $iAll IANA charset names registered");
+
exit 0;
__END__
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/t/iana.t
___________________________________________________________________
Name: svn:executable
-
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/t/libi.t
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/t/libi.t 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/t/libi.t 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,31 +1,16 @@
# libi.t - tests for "preferred LIBI name" functionality of I18N::Charset
-use Test::More;
+# $Id: libi.t,v 1.10 2005/11/12 14:45:08 Daddy Exp $
-unless (eval "require App::Info::Lib::Iconv")
- {
- plan skip_all => 'App::Info::Lib::Iconv is not installed';
- } # unless
+use Test::More no_plan;
-my $oAILI = new App::Info::Lib::Iconv;
-unless (ref $oAILI)
- {
- plan skip_all => 'can not determine iconv version (not installed?)';
- } # unless
-if (! $oAILI->installed)
- {
- plan skip_all => 'iconv is not installed';
- } # if
-my $iLibiVersion = $oAILI->version || 0.0;
-# print STDERR " + libiconv version is $iLibiVersion\n";
-if ($iLibiVersion < 1.8)
- {
- plan skip_all => 'iconv version is too old(?)';
- } # if
-plan tests => 23;
+use IO::Capture::Stderr;
+my $oICE = IO::Capture::Stderr->new;
-&use_ok('I18N::Charset');
+use strict;
+BEGIN { use_ok('I18N::Charset') };
+
#================================================
# TESTS FOR libi routines
#================================================
@@ -38,27 +23,50 @@
ok(!defined libi_charset_name("junk"), 'junk argument');
ok(!defined libi_charset_name(999999), '999999 argument');
ok(!defined libi_charset_name(\@aa), 'arrayref argument');
+$oICE->start;
+ok(!defined I18N::Charset::add_libi_alias("my-junk" => 'junk argument'));
+$oICE->stop;
-#---- some successful examples -----------------------------------------
-is(libi_charset_name("x-x-sjis"), libi_charset_name("MS_KANJI"), 'x-x-sjis');
-is(libi_charset_name("x-x-sjis"), "MS_KANJI", 'normal literal -- x-x-sjis');
-is(libi_charset_name("G.B.K."), "CP936", 'normal -- G.B.K.');
-is(libi_charset_name("CP936"), "CP936", 'identity -- CP936');
-is(libi_charset_name("Johab"), "CP1361", 'normal -- Johab');
-is(libi_charset_name("johab"), libi_charset_name("cp 1361"), 'equivalent -- johab');
+SKIP:
+ {
+ skip 'App::Info::Lib::Iconv is not installed', 16 unless eval "require App::Info::Lib::Iconv";
+ my $oAILI = new App::Info::Lib::Iconv;
+ SKIP:
+ {
+ skip 'can not determine iconv version (not installed?)', 16 unless ref $oAILI;
+ SKIP:
+ {
+ skip 'iconv is not installed', 16 unless $oAILI->installed;
+ my $iLibiVersion = $oAILI->version || 0.0;
+ # print STDERR " + libiconv version is $iLibiVersion\n";
+ SKIP:
+ {
+ skip 'iconv version is too old(?)', 16 if ($iLibiVersion < 1.8);
-#---- some aliasing examples -----------------------------------------
-ok(!defined I18N::Charset::add_libi_alias("my-junk" => 'junk argument'));
-ok(I18N::Charset::add_libi_alias('my-chinese1' => 'CN-GB'));
-is(libi_charset_name("my-chinese1"), 'CN-GB', 'alias literal -- my-chinese1');
-is(libi_charset_name("my-chinese1"), libi_charset_name('EUC-CN'), 'alias equal -- my-chinese1');
-ok(I18N::Charset::add_libi_alias('my-chinese2' => 'EUC-CN'));
-is(libi_charset_name("my-chinese2"), 'CN-GB', 'alias literal -- my-chinese2');
-is(libi_charset_name("my-chinese2"), libi_charset_name('G.B.2312'), 'alias equal -- my-chinese2');
-ok(I18N::Charset::add_libi_alias('my-japanese' => 'x-x-sjis'));
-is(libi_charset_name("my-japanese"), 'MS_KANJI', 'alias literal -- my-japanese');
-is(libi_charset_name("my-japanese"), libi_charset_name('Shift_JIS'), 'alias equal -- my-japanese');
+ #---- some successful examples -----------------------------------------
+ is(libi_charset_name("x-x-sjis"), libi_charset_name("MS_KANJI"), 'x-x-sjis');
+ is(libi_charset_name("x-x-sjis"), "MS_KANJI", 'normal literal -- x-x-sjis');
+ is(libi_charset_name("G.B.K."), "CP936", 'normal -- G.B.K.');
+ is(libi_charset_name("CP936"), "CP936", 'identity -- CP936');
+ is(libi_charset_name("Johab"), "CP1361", 'normal -- Johab');
+ is(libi_charset_name("johab"), libi_charset_name("cp 1361"), 'equivalent -- johab');
+ #---- some aliasing examples -----------------------------------------
+ ok(I18N::Charset::add_libi_alias('my-chinese1' => 'CN-GB'));
+ is(libi_charset_name("my-chinese1"), 'CN-GB', 'alias literal -- my-chinese1');
+ is(libi_charset_name("my-chinese1"), libi_charset_name('EUC-CN'), 'alias equal -- my-chinese1');
+ ok(I18N::Charset::add_libi_alias('my-chinese2' => 'EUC-CN'));
+ is(libi_charset_name("my-chinese2"), 'CN-GB', 'alias literal -- my-chinese2');
+ is(libi_charset_name("my-chinese2"), libi_charset_name('G.B.2312'), 'alias equal -- my-chinese2');
+ ok(I18N::Charset::add_libi_alias('my-japanese' => 'x-x-sjis'));
+ is(libi_charset_name("my-japanese"), 'MS_KANJI', 'alias literal -- my-japanese');
+ is(libi_charset_name("my-japanese"), libi_charset_name('Shift_JIS'), 'alias equal -- my-japanese');
+ }
+ }
+ }
+ }
+
exit 0;
__END__
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/t/libi.t
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/t/map8.t
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/t/map8.t 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/t/map8.t 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,21 +1,16 @@
-#!./perl
-#
# map8.t - tests for Unicode::Map8 functionality of I18N::Charset
-#
-use I18N::Charset;
-use Test::More;
+# $Id: map8.t,v 1.12 2005/11/12 14:45:09 Daddy Exp $
-if (eval "require Unicode::Map8")
- {
- plan tests => 23;
- }
-else
- {
- plan skip_all => 'Unicode::Map8 is not installed';
- } # unless
+use Test::More no_plan;
+use IO::Capture::Stderr;
+my $oICE = IO::Capture::Stderr->new;
+use strict;
+
+BEGIN { use_ok('I18N::Charset') };
+
#================================================
# TESTS FOR map8 routines
#================================================
@@ -27,34 +22,41 @@
ok(!defined map8_charset_name(""), ''); # empty argument
ok(!defined map8_charset_name("junk"), ''); # illegal code
ok(!defined map8_charset_name(\@aa), ''); # illegal argument
+$oICE->start;
+ok(!defined(I18N::Charset::add_map8_alias("alias1" => "junk")), '');
+$oICE->stop;
+ok(!defined map8_charset_name("alias1"), '');
-#---- some successful examples -----------------------------------------
-ok(map8_charset_name("ASMO_449") eq "ASMO_449", '');
-ok(map8_charset_name("ISO_9036") eq "ASMO_449", '');
-ok(map8_charset_name("arabic7") eq "ASMO_449", '');
-ok(map8_charset_name("iso-ir-89") eq "ASMO_449", '');
-ok(map8_charset_name("ISO-IR-89") eq "ASMO_449", '');
-ok(map8_charset_name("ISO - ir _ 89") eq "ASMO_449", '');
+SKIP:
+ {
+ skip 'Unicode::Map8 is not installed', 16 unless eval "require Unicode::Map8";
-#---- an iana example that ONLY works with Unicode::Map8 installed -----
-ok(iana_charset_name("cp1251") eq "windows-1251", '');
+ #---- some successful examples -----------------------------------------
+ ok(map8_charset_name("ASMO_449") eq "ASMO_449", '');
+ ok(map8_charset_name("ISO_9036") eq "ASMO_449", '');
+ ok(map8_charset_name("arabic7") eq "ASMO_449", '');
+ ok(map8_charset_name("iso-ir-89") eq "ASMO_449", '');
+ ok(map8_charset_name("ISO-IR-89") eq "ASMO_449", '');
+ ok(map8_charset_name("ISO - ir _ 89") eq "ASMO_449", '');
-#---- some aliasing examples -------------------------------------------
-ok(!defined(I18N::Charset::add_map8_alias("alias1" => "junk")), '');
-ok(!defined map8_charset_name("alias1"), '');
+ #---- an iana example that ONLY works with Unicode::Map8 installed -----
+ ok(iana_charset_name("cp1251") eq "windows-1251", '');
-ok(I18N::Charset::add_map8_alias("alias2" => "ES2") eq "ES2", '');
-ok(map8_charset_name("alias2") eq "ES2", '');
+ #---- some aliasing examples -------------------------------------------
+ ok(I18N::Charset::add_map8_alias("alias2" => "ES2") eq "ES2", '');
+ ok(map8_charset_name("alias2") eq "ES2", '');
-ok(I18N::Charset::add_map8_alias("alias3" => "iso-ir-85") eq "ES2", '');
-ok(map8_charset_name("alias3") eq "ES2", '');
+ ok(I18N::Charset::add_map8_alias("alias3" => "iso-ir-85") eq "ES2", '');
+ ok(map8_charset_name("alias3") eq "ES2", '');
-ok(map8_charset_name("Ebcdic cp FI") eq "IBM278", '');
-ok(map8_charset_name("IBM278") eq "IBM278", '');
-ok(I18N::Charset::add_map8_alias("my278" => "IBM278") eq "IBM278", '');
-ok(map8_charset_name("My 278") eq "IBM278", '');
-ok(map8_charset_name("cp278") eq "IBM278", '');
+ ok(map8_charset_name("Ebcdic cp FI") eq "IBM278", '');
+ ok(map8_charset_name("IBM278") eq "IBM278", '');
+ ok(I18N::Charset::add_map8_alias("my278" => "IBM278") eq "IBM278", '');
+ ok(map8_charset_name("My 278") eq "IBM278", '');
+ ok(map8_charset_name("cp278") eq "IBM278", '');
+ } # end of SKIP block
exit 0;
__END__
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/t/map8.t
___________________________________________________________________
Name: svn:executable
-
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/t/mib.t
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/t/mib.t 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/t/mib.t 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,52 +1,53 @@
-# mib.t - Tests for converting mib numbers back to charset names
-
-use Test::More tests => 25;
-BEGIN { use_ok('I18N::Charset') };
-
-#================================================
-# TESTS FOR mib routine
-#================================================
-
-#---- selection of examples which should all result in undef -----------
-ok(!defined mib_charset_name()); # no argument
-ok(!defined mib_charset_name(undef)); # undef argument
-ok(!defined mib_charset_name("")); # empty argument
-ok(!defined mib_charset_name("junk")); # illegal code
-ok(!defined mib_charset_name(9999999)); # illegal code
-ok(!defined mib_charset_name("None")); # "None" appears as an Alias
- # in the data but should be
- # ignored
-my @aa;
-ok(!defined mib_charset_name(\@aa)); # illegal argument
-
-# The same things, in the opposite direction:
-ok(!defined charset_name_to_mib()); # no argument
-ok(!defined charset_name_to_mib(undef)); # undef argument
-ok(!defined charset_name_to_mib("")); # empty argument
-ok(!defined charset_name_to_mib("junk")); # illegal code
-ok(!defined charset_name_to_mib(9999999)); # illegal code
-ok(!defined charset_name_to_mib("None")); # "None" appears as an
- # Alias in the data but
- # should be ignored
-ok(!defined charset_name_to_mib(\@aa)); # illegal argument
-
- #---- some successful examples -----------------------------------------
-ok(mib_charset_name("3") eq "ANSI_X3.4-1968");
-ok(mib_charset_name("106") eq "UTF-8");
-ok(mib_to_charset_name("1015") eq "UTF-16");
-ok(mib_to_charset_name("17") eq "Shift_JIS");
-
-# The same things, in the opposite direction:
-ok(charset_name_to_mib("ecma cyrillic") eq '77');
-ok(charset_name_to_mib("UTF-8") == 106);
-ok(charset_name_to_mib("UTF-16") == 1015);
-ok(charset_name_to_mib('s h i f t j i s') eq '17');
-
-# This is the FIRST entry in the IANA list:
-ok(charset_name_to_mib("ANSI_X3.4-1968") eq '3');
-# This is the LAST entry in the IANA list:
-ok(charset_name_to_mib('hz gb 2312') == 2085);
-
-exit 0;
-
-__END__
+# $Revision: 1.4 $
+# mib.t - Tests for converting mib numbers back to charset names
+
+use Test::More tests => 25;
+BEGIN { use_ok('I18N::Charset') };
+
+#================================================
+# TESTS FOR mib routine
+#================================================
+
+#---- selection of examples which should all result in undef -----------
+ok(!defined mib_charset_name()); # no argument
+ok(!defined mib_charset_name(undef)); # undef argument
+ok(!defined mib_charset_name("")); # empty argument
+ok(!defined mib_charset_name("junk")); # illegal code
+ok(!defined mib_charset_name(9999999)); # illegal code
+ok(!defined mib_charset_name("None")); # "None" appears as an Alias
+ # in the data but should be
+ # ignored
+my @aa;
+ok(!defined mib_charset_name(\@aa)); # illegal argument
+
+# The same things, in the opposite direction:
+ok(!defined charset_name_to_mib()); # no argument
+ok(!defined charset_name_to_mib(undef)); # undef argument
+ok(!defined charset_name_to_mib("")); # empty argument
+ok(!defined charset_name_to_mib("junk")); # illegal code
+ok(!defined charset_name_to_mib(9999999)); # illegal code
+ok(!defined charset_name_to_mib("None")); # "None" appears as an
+ # Alias in the data but
+ # should be ignored
+ok(!defined charset_name_to_mib(\@aa)); # illegal argument
+
+ #---- some successful examples -----------------------------------------
+ok(mib_charset_name("3") eq "ANSI_X3.4-1968");
+ok(mib_charset_name("106") eq "UTF-8");
+ok(mib_to_charset_name("1015") eq "UTF-16");
+ok(mib_to_charset_name("17") eq "Shift_JIS");
+
+# The same things, in the opposite direction:
+ok(charset_name_to_mib("ecma cyrillic") eq '77');
+ok(charset_name_to_mib("UTF-8") == 106);
+ok(charset_name_to_mib("UTF-16") == 1015);
+ok(charset_name_to_mib('s h i f t j i s') eq '17');
+
+# This is the FIRST entry in the IANA list:
+ok(charset_name_to_mib("ANSI_X3.4-1968") eq '3');
+# This is the LAST entry in the IANA list:
+ok(charset_name_to_mib('hz gb 2312') == 2085);
+
+exit 0;
+
+__END__
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/t/mib.t
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/t/mime.t
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/t/mime.t 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/t/mime.t 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,3 +1,4 @@
+# $Id: mime.t,v 1.5 2005/09/01 03:09:45 Daddy Exp $
# mime.t - tests for "preferred MIME name" functionality of I18N::Charset
use Test::More tests => 14;
@@ -30,3 +31,5 @@
exit 0;
__END__
+
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/t/mime.t
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/t/umap.t
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/t/umap.t 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/t/umap.t 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,48 +1,51 @@
-#
-# umap.t - tests for Unicode::Map functionality of I18N::Charset
-#
-
-use I18N::Charset;
-use Test::More;
-
-if (eval "require Unicode::Map")
- {
- plan tests => 16;
- }
-else
- {
- plan skip_all => 'Unicode::Map is not installed';
- } # unless
-
-#================================================
-# TESTS FOR umap routines
-#================================================
-
-my @aa;
-#---- selection of examples which should all result in undef -----------
-ok(!defined umap_charset_name(), 'no argument');
-ok(!defined umap_charset_name(undef), 'undef argument');
-ok(!defined umap_charset_name(""), 'empty argument');
-ok(!defined umap_charset_name("junk"), 'junk argument');
-ok(!defined umap_charset_name(999999), '999999 argument');
-ok(!defined umap_charset_name(\@aa), 'arrayref argument');
-
-#---- some successful examples -----------------------------------------
-ok(umap_charset_name("apple symbol") eq "APPLE-SYMBOL", 'dummy mib');
-ok(umap_charset_name("Adobe Ding Bats") eq "ADOBE-DINGBATS", 'dummy mib');
-ok(umap_charset_name("cs IBM-037") eq "CP037", 'same as iana');
-ok(umap_charset_name("CP037") eq "CP037", 'identical');
-
-#---- some aliasing examples -------------------------------------------
-ok(!defined(I18N::Charset::add_umap_alias("alias1" => "junk")), 'add alias1');
-ok(!defined umap_charset_name("alias1"), 'alias1');
-
-ok(I18N::Charset::add_umap_alias("alias2" => "IBM775") eq "CP775", 'add alias2');
-ok(umap_charset_name("alias2") eq "CP775", 'alias2');
-
-ok(I18N::Charset::add_umap_alias("alias3" => "alias2") eq "CP775", 'add alias3');
-ok(umap_charset_name("alias3") eq "CP775", 'alias3');
-
-exit 0;
-
-__END__
+# umap.t - tests for Unicode::Map functionality of I18N::Charset
+
+# $Id: umap.t,v 1.8 2005/11/12 14:45:09 Daddy Exp $
+
+use I18N::Charset;
+use Test::More no_plan;
+
+use IO::Capture::Stderr;
+my $oICE = IO::Capture::Stderr->new;
+
+use strict;
+
+#================================================
+# TESTS FOR umap routines
+#================================================
+
+my @aa;
+#---- selection of examples which should all result in undef -----------
+ok(!defined umap_charset_name(), 'no argument');
+ok(!defined umap_charset_name(undef), 'undef argument');
+ok(!defined umap_charset_name(""), 'empty argument');
+ok(!defined umap_charset_name("junk"), 'junk argument');
+ok(!defined umap_charset_name(999999), '999999 argument');
+ok(!defined umap_charset_name(\@aa), 'arrayref argument');
+$oICE->start;
+ok(!defined(I18N::Charset::add_umap_alias("alias1" => "junk")), '+alias1');
+$oICE->stop;
+ok(!defined umap_charset_name("alias1"), '=alias1');
+
+SKIP:
+ {
+ skip 'Unicode::Map is not installed', 8 unless eval "require Unicode::Map";
+
+ #---- some successful examples -----------------------------------------
+ ok(umap_charset_name("apple symbol") eq "APPLE-SYMBOL", 'dummy mib');
+ ok(umap_charset_name("Adobe Ding Bats") eq "ADOBE-DINGBATS", 'dummy mib');
+ ok(umap_charset_name("cs IBM-037") eq "CP037", 'same as iana');
+ ok(umap_charset_name("CP037") eq "CP037", 'identical');
+
+ #---- some aliasing examples -------------------------------------------
+ ok(I18N::Charset::add_umap_alias("alias2" => "IBM775") eq "CP775", '+alias2');
+ ok(umap_charset_name("alias2") eq "CP775", '=alias2');
+
+ ok(I18N::Charset::add_umap_alias("alias3" => "alias2") eq "CP775", '+alias3');
+ ok(umap_charset_name("alias3") eq "CP775", '=alias3');
+ } # end of SKIP block
+
+exit 0;
+
+__END__
+
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/t/umap.t
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libi18n-charset-perl/branches/upstream/current/t/utf8.t
===================================================================
--- packages/libi18n-charset-perl/branches/upstream/current/t/utf8.t 2005-12-28 13:29:32 UTC (rev 1781)
+++ packages/libi18n-charset-perl/branches/upstream/current/t/utf8.t 2005-12-28 13:49:15 UTC (rev 1782)
@@ -1,79 +1,76 @@
-# utf8.t - tests for Unicode::MapUTF8 functionality of I18N::Charset
-
-use Test::More;
-
-use strict;
-
-BEGIN
- {
- unless (eval "require Unicode::MapUTF8")
- {
- plan skip_all => 'Unicode::MapUTF8 is not installed';
- } # unless
- plan tests => 22;
- } # BEGIN
-
-BEGIN { use_ok('I18N::Charset') };
-
-# These should fail gracefully:
-my @aa;
-ok(!defined umu8_charset_name(), ''); # no argument
-ok(!defined umu8_charset_name(undef), ''); # undef argument
-ok(!defined umu8_charset_name(""), ''); # empty argument
-ok(!defined umu8_charset_name("junk"), ''); # illegal code
-ok(!defined umu8_charset_name(\@aa), ''); # illegal argument
-
-SKIP:
- {
- skip 'Unicode::MapUTF8 version is too old (1.09 is good)', 16 unless eval '(1.08 < ($Unicode::MapUTF8::VERSION || 0))';
-
- # Plain old IANA names:
- ok(umu8_charset_name("Unicode-2-0-utf-8") eq "utf8", 'Unicode-2-0-utf-8');
- ok(umu8_charset_name("UCS-2") eq "ucs2", 'UCS-2');
- ok(umu8_charset_name("U.C.S. 4") eq "ucs4", 'U.C.S. 4');
- SKIP:
- {
- skip 'Unicode::Map is not installed', 2 unless eval 'require Unicode::Map';
- # Unicode::Map aliases:
- # Unicode::Map names with dummy mib:
- ok(umu8_charset_name("Adobe Ding Bats") eq "ADOBE-DINGBATS", 'Adobe Ding Bats');
- ok(umu8_charset_name("M.S. Turkish") eq "MS-TURKISH", 'M.S. Turkish');
- } # SKIP block for Unicode::Map8 module
- SKIP:
- {
- skip 'Unicode::Map8 is not installed', 7 unless eval 'require Unicode::Map8';
- # Unicode::Map8 aliases:
- ok(umu8_charset_name("Windows-1-2-5-1") eq "cp1251", 'windows-1-2-5-1');
- ok(umu8_charset_name("windows-1252") eq "cp1252", 'windows-1252 eq');
- ok(umu8_charset_name("win-latin-1") eq "cp1252", 'win-latin-1');
- ok(umu8_charset_name("windows-1252") ne "cp1253", 'windows-1252 ne');
- ok(umu8_charset_name("windows-1253") eq "cp1253", 'windows-1253');
- # Unicode::Map8 names with dummy mib:
- ok(umu8_charset_name("Adobe Zapf Ding Bats") eq "Adobe-Zapf-Dingbats", 'Adobe Zapf Ding Bats');
- ok(umu8_charset_name(" c p 1 0 0 7 9 ") eq "cp10079", ' c p 1 0 0 7 9 ');
- } # SKIP block for Unicode::Map8 module
- SKIP:
- {
- skip 'Jcode is not installed', 4 unless eval 'require Jcode';
- ok(umu8_charset_name("Shift_JIS") eq "sjis", 'Shift_JIS');
- ok(umu8_charset_name("sjis") eq "sjis", 'sjis');
- ok(umu8_charset_name("x-sjis") eq "sjis", 'x-sjis');
- ok(umu8_charset_name("x-x-sjis") eq "sjis", 'x-x-sjis');
- } # SKIP block for Jcode module
- } # SKIP block for VERSION of Unicode::Map8 module
-
-exit 0;
-
-my @as = &Unicode::MapUTF8::utf8_supported_charset();
-my @TESTS = map { 'defined iana_charset_name("'. $_ .'")' } @as;
-
-plan tests => scalar(@TESTS);
-
-foreach (@TESTS)
- {
- ok($_);
- } # foreach
-
-exit 0;
-
-__END__
+# $Revision: 1.7 $
+# utf8.t - tests for Unicode::MapUTF8 functionality of I18N::Charset
+
+use Test::More no_plan;
+
+use strict;
+
+BEGIN { use_ok('I18N::Charset') };
+
+# These should fail gracefully:
+my @aa;
+ok(!defined umu8_charset_name(), ''); # no argument
+ok(!defined umu8_charset_name(undef), ''); # undef argument
+ok(!defined umu8_charset_name(""), ''); # empty argument
+ok(!defined umu8_charset_name("junk"), ''); # illegal code
+ok(!defined umu8_charset_name(\@aa), ''); # illegal argument
+
+SKIP:
+ {
+ skip 'Unicode::MapUTF8 is not installed', 16 unless eval "require Unicode::MapUTF8";
+
+ SKIP:
+ {
+ skip 'Unicode::MapUTF8 version is too old (1.09 is good)', 16 unless eval '(1.08 < ($Unicode::MapUTF8::VERSION || 0))';
+
+ # Plain old IANA names:
+ ok(umu8_charset_name("Unicode-2-0-utf-8") eq "utf8", 'Unicode-2-0-utf-8');
+ ok(umu8_charset_name("UCS-2") eq "ucs2", 'UCS-2');
+ ok(umu8_charset_name("U.C.S. 4") eq "ucs4", 'U.C.S. 4');
+ SKIP:
+ {
+ skip 'Unicode::Map is not installed', 2 unless eval 'require Unicode::Map';
+ # Unicode::Map aliases:
+ # Unicode::Map names with dummy mib:
+ ok(umu8_charset_name("Adobe Ding Bats") eq "ADOBE-DINGBATS", 'Adobe Ding Bats');
+ ok(umu8_charset_name("M.S. Turkish") eq "MS-TURKISH", 'M.S. Turkish');
+ } # SKIP block for Unicode::Map8 module
+ SKIP:
+ {
+ skip 'Unicode::Map8 is not installed', 7 unless eval 'require Unicode::Map8';
+ # Unicode::Map8 aliases:
+ ok(umu8_charset_name("Windows-1-2-5-1") eq "cp1251", 'windows-1-2-5-1');
+ ok(umu8_charset_name("windows-1252") eq "cp1252", 'windows-1252 eq');
+ ok(umu8_charset_name("win-latin-1") eq "cp1252", 'win-latin-1');
+ ok(umu8_charset_name("windows-1252") ne "cp1253", 'windows-1252 ne');
+ ok(umu8_charset_name("windows-1253") eq "cp1253", 'windows-1253');
+ # Unicode::Map8 names with dummy mib:
+ ok(umu8_charset_name("Adobe Zapf Ding Bats") eq "Adobe-Zapf-Dingbats", 'Adobe Zapf Ding Bats');
+ ok(umu8_charset_name(" c p 1 0 0 7 9 ") eq "cp10079", ' c p 1 0 0 7 9 ');
+ } # SKIP block for Unicode::Map8 module
+ SKIP:
+ {
+ skip 'Jcode is not installed', 4 unless eval 'require Jcode';
+ ok(umu8_charset_name("Shift_JIS") eq "sjis", 'Shift_JIS');
+ ok(umu8_charset_name("sjis") eq "sjis", 'sjis');
+ ok(umu8_charset_name("x-sjis") eq "sjis", 'x-sjis');
+ ok(umu8_charset_name("x-x-sjis") eq "sjis", 'x-x-sjis');
+ } # SKIP block for Jcode module
+ } # SKIP block for VERSION of Unicode::MapUTF8 module
+ } # SKIP block for existence of Unicode::MapUTF8 module
+
+exit 0;
+
+my @as = &Unicode::MapUTF8::utf8_supported_charset();
+my @TESTS = map { 'defined iana_charset_name("'. $_ .'")' } @as;
+
+plan tests => scalar(@TESTS);
+
+foreach (@TESTS)
+ {
+ ok($_);
+ } # foreach
+
+exit 0;
+
+__END__
Property changes on: packages/libi18n-charset-perl/branches/upstream/current/t/utf8.t
___________________________________________________________________
Name: svn:executable
+ *
More information about the Pkg-perl-cvs-commits
mailing list