home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _339978aa72a8a4b4861d7fcf2c512b95 < prev    next >
Text File  |  2004-06-01  |  6KB  |  166 lines
  1. #
  2. # Demand-load module list
  3. #
  4. package Encode::Config;
  5. our $VERSION = do { my @r = (q$Revision: 1.7 $ =~ /\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.      'UTF-7'                  => 'Encode::Unicode::UTF7',
  102.     );
  103.  
  104. unless (ord("A") == 193){
  105.     %ExtModule =
  106.     (
  107.      %ExtModule,
  108.      'euc-cn'             => 'Encode::CN',
  109.      'gb12345-raw'        => 'Encode::CN',
  110.      'gb2312-raw'         => 'Encode::CN',
  111.      'hz'                 => 'Encode::CN',
  112.      'iso-ir-165'         => 'Encode::CN',
  113.      'cp936'              => 'Encode::CN',
  114.      'MacChineseSimp'     => 'Encode::CN',
  115.  
  116.      '7bit-jis'           => 'Encode::JP',
  117.      'euc-jp'             => 'Encode::JP',
  118.      'iso-2022-jp'        => 'Encode::JP',
  119.      'iso-2022-jp-1'      => 'Encode::JP',
  120.      'jis0201-raw'        => 'Encode::JP',
  121.      'jis0208-raw'        => 'Encode::JP',
  122.      'jis0212-raw'        => 'Encode::JP',
  123.      'cp932'              => 'Encode::JP',
  124.      'MacJapanese'        => 'Encode::JP',
  125.      'shiftjis'           => 'Encode::JP',
  126.  
  127.  
  128.      'euc-kr'             => 'Encode::KR',
  129.      'iso-2022-kr'        => 'Encode::KR',
  130.      'johab'              => 'Encode::KR',
  131.      'ksc5601-raw'        => 'Encode::KR',
  132.      'cp949'              => 'Encode::KR',
  133.      'MacKorean'          => 'Encode::KR',
  134.  
  135.      'big5-eten'          => 'Encode::TW',
  136.      'big5-hkscs'         => 'Encode::TW',
  137.      'cp950'              => 'Encode::TW',
  138.      'MacChineseTrad'     => 'Encode::TW',
  139.  
  140.      #'big5plus'           => 'Encode::HanExtra',
  141.      #'euc-tw'             => 'Encode::HanExtra',
  142.      #'gb18030'            => 'Encode::HanExtra',
  143.  
  144.      'MIME-Header'        => 'Encode::MIME::Header',
  145.      'MIME-B'             => 'Encode::MIME::Header',
  146.      'MIME-Q'             => 'Encode::MIME::Header',
  147.  
  148.     );
  149. }
  150.  
  151. #
  152. # Why not export ? to keep ConfigLocal Happy!
  153. #
  154. while (my ($enc,$mod) = each %ExtModule){
  155.     $Encode::ExtModule{$enc} = $mod;
  156. }
  157.  
  158. 1;
  159. __END__
  160.  
  161. =head1 NAME
  162.  
  163. Encode::Config -- internally used by Encode
  164.  
  165. =cut
  166.