home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 March / PCWorld_2003-03_cd.bin / Software / Topware / activeperl / ActivePerl / Perl / lib / Encode / Config.pm < prev    next >
Encoding:
Perl POD Document  |  2002-06-19  |  6.2 KB  |  165 lines
  1. #
  2. # Demand-load module list
  3. #
  4. package Encode::Config;
  5. our $VERSION = do { my @r = (q$Revision: 1.6 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
  6.  
  7. use strict;
  8.  
  9. our %ExtModule = 
  10.     (
  11.       # Encode::Byte
  12.       #iso-8859-1 is in Encode.pm itself
  13.      'iso-8859-2'             => 'Encode::Byte',
  14.      'iso-8859-3'             => 'Encode::Byte',
  15.      'iso-8859-4'             => 'Encode::Byte',
  16.      'iso-8859-5'             => 'Encode::Byte',
  17.      'iso-8859-6'             => 'Encode::Byte',
  18.      'iso-8859-7'             => 'Encode::Byte',
  19.      'iso-8859-8'             => 'Encode::Byte',
  20.      'iso-8859-9'             => 'Encode::Byte',
  21.      'iso-8859-10'            => 'Encode::Byte',
  22.      'iso-8859-11'            => 'Encode::Byte',
  23.      'iso-8859-13'            => 'Encode::Byte',
  24.      'iso-8859-14'            => 'Encode::Byte',
  25.      'iso-8859-15'            => 'Encode::Byte',
  26.      'iso-8859-16'            => 'Encode::Byte',
  27.      'koi8-f'                 => 'Encode::Byte',
  28.      'koi8-r'                 => 'Encode::Byte',
  29.      'koi8-u'                 => 'Encode::Byte',
  30.      'viscii'                 => 'Encode::Byte',
  31.      'cp424'                  => 'Encode::Byte',
  32.      'cp437'                  => 'Encode::Byte',
  33.      'cp737'                  => 'Encode::Byte',
  34.      'cp775'                  => 'Encode::Byte',
  35.      'cp850'                  => 'Encode::Byte',
  36.      'cp852'                  => 'Encode::Byte',
  37.      'cp855'                  => 'Encode::Byte',
  38.      'cp856'                  => 'Encode::Byte',
  39.      'cp857'                  => 'Encode::Byte',
  40.      'cp860'                  => 'Encode::Byte',
  41.      'cp861'                  => 'Encode::Byte',
  42.      'cp862'                  => 'Encode::Byte',
  43.      'cp863'                  => 'Encode::Byte',
  44.      'cp864'                  => 'Encode::Byte',
  45.      'cp865'                  => 'Encode::Byte',
  46.      'cp866'                  => 'Encode::Byte',
  47.      'cp869'                  => 'Encode::Byte',
  48.      'cp874'                  => 'Encode::Byte',
  49.      'cp1006'                 => 'Encode::Byte',
  50.      'cp1250'                 => 'Encode::Byte',
  51.      'cp1251'                 => 'Encode::Byte',
  52.      'cp1252'                 => 'Encode::Byte',
  53.      'cp1253'                 => 'Encode::Byte',
  54.      'cp1254'                 => 'Encode::Byte',
  55.      'cp1255'                 => 'Encode::Byte',
  56.      'cp1256'                 => 'Encode::Byte',
  57.      'cp1257'                 => 'Encode::Byte',
  58.      'cp1258'                 => 'Encode::Byte',
  59.      'AdobeStandardEncoding'  => 'Encode::Byte',
  60.      'MacArabic'              => 'Encode::Byte',
  61.      'MacCentralEurRoman'     => 'Encode::Byte',
  62.      'MacCroatian'            => 'Encode::Byte',
  63.      'MacCyrillic'            => 'Encode::Byte',
  64.      'MacFarsi'               => 'Encode::Byte',
  65.      'MacGreek'               => 'Encode::Byte',
  66.      'MacHebrew'              => 'Encode::Byte',
  67.      'MacIcelandic'           => 'Encode::Byte',
  68.      'MacRoman'               => 'Encode::Byte',
  69.      'MacRomanian'            => 'Encode::Byte',
  70.      'MacRumanian'            => 'Encode::Byte',
  71.      'MacSami'                => 'Encode::Byte',
  72.      'MacThai'                => 'Encode::Byte',
  73.      'MacTurkish'             => 'Encode::Byte',
  74.      'MacUkrainian'           => 'Encode::Byte',
  75.      'nextstep'               => 'Encode::Byte',
  76.      'hp-roman8'              => 'Encode::Byte',
  77.      'gsm0338'                => 'Encode::Byte',
  78.      # Encode::EBCDIC
  79.      'cp37'                   => 'Encode::EBCDIC',
  80.      'cp500'                  => 'Encode::EBCDIC',
  81.      'cp875'                  => 'Encode::EBCDIC',
  82.      'cp1026'                 => 'Encode::EBCDIC',
  83.      'cp1047'                 => 'Encode::EBCDIC',
  84.      'posix-bc'               => 'Encode::EBCDIC',
  85.      # Encode::Symbol
  86.      'dingbats'               => 'Encode::Symbol',
  87.      'symbol'                 => 'Encode::Symbol',
  88.      'AdobeSymbol'            => 'Encode::Symbol',
  89.      'AdobeZdingbat'          => 'Encode::Symbol',
  90.      'MacDingbats'            => 'Encode::Symbol',
  91.      'MacSymbol'              => 'Encode::Symbol',
  92.      # Encode::Unicode
  93.      'UCS-2BE'                => 'Encode::Unicode',
  94.      'UCS-2LE'                => 'Encode::Unicode',
  95.      'UTF-16'                 => 'Encode::Unicode',
  96.      'UTF-16BE'               => 'Encode::Unicode',
  97.      'UTF-16LE'               => 'Encode::Unicode',
  98.      'UTF-32'                 => 'Encode::Unicode',
  99.      'UTF-32BE'               => 'Encode::Unicode',
  100.      'UTF-32LE'               => 'Encode::Unicode',
  101.     );
  102.  
  103. unless (ord("A") == 193){
  104.     %ExtModule =
  105.     (
  106.      %ExtModule,
  107.      'euc-cn'             => 'Encode::CN',
  108.      'gb12345-raw'        => 'Encode::CN',
  109.      'gb2312-raw'         => 'Encode::CN',
  110.      'hz'                 => 'Encode::CN',
  111.      'iso-ir-165'         => 'Encode::CN',
  112.      'cp936'              => 'Encode::CN',
  113.      'MacChineseSimp'     => 'Encode::CN',
  114.  
  115.      '7bit-jis'           => 'Encode::JP',
  116.      'euc-jp'             => 'Encode::JP',
  117.      'iso-2022-jp'        => 'Encode::JP',
  118.      'iso-2022-jp-1'      => 'Encode::JP',
  119.      'jis0201-raw'        => 'Encode::JP',
  120.      'jis0208-raw'        => 'Encode::JP',
  121.      'jis0212-raw'        => 'Encode::JP',
  122.      'cp932'              => 'Encode::JP',
  123.      'MacJapanese'        => 'Encode::JP',
  124.      'shiftjis'           => 'Encode::JP',
  125.  
  126.  
  127.      'euc-kr'             => 'Encode::KR',
  128.      'iso-2022-kr'        => 'Encode::KR',
  129.      'johab'              => 'Encode::KR',
  130.      'ksc5601-raw'        => 'Encode::KR',
  131.      'cp949'              => 'Encode::KR',
  132.      'MacKorean'          => 'Encode::KR',
  133.  
  134.      'big5-eten'          => 'Encode::TW',
  135.      'big5-hkscs'         => 'Encode::TW',
  136.      'cp950'              => 'Encode::TW',
  137.      'MacChineseTrad'     => 'Encode::TW',
  138.  
  139.      #'big5plus'           => 'Encode::HanExtra',
  140.      #'euc-tw'             => 'Encode::HanExtra',
  141.      #'gb18030'            => 'Encode::HanExtra',
  142.  
  143.      'MIME-Header'        => 'Encode::MIME::Header',
  144.      'MIME-B'             => 'Encode::MIME::Header',
  145.      'MIME-Q'             => 'Encode::MIME::Header',
  146.  
  147.     );
  148. }
  149.  
  150. #
  151. # Why not export ? to keep ConfigLocal Happy!
  152. #
  153. while (my ($enc,$mod) = each %ExtModule){
  154.     $Encode::ExtModule{$enc} = $mod;
  155. }
  156.  
  157. 1;
  158. __END__
  159.  
  160. =head1 NAME
  161.  
  162. Encode::Config -- internally used by Encode
  163.  
  164. =cut
  165.