home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 September / PCWSEP07.iso / Software / Linux / Linux Mint 3.0 Light / LinuxMint-3.0-Light.iso / casper / filesystem.squashfs / usr / share / openoffice / bin / openoffice-xlate-lang
Encoding:
Text File  |  2007-04-10  |  4.1 KB  |  199 lines
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4.  
  5. my $progname=$0; $progname = $& if $progname =~ m,[^/]+$,;
  6.  
  7. my %PREFIX;   # used to search for prefix numbers
  8. my %ISOCODE;  # used to search for iso codes
  9. my %LANGUAGE; # used to search for language names
  10.  
  11. #=======================================================================
  12. # initialisation code - stuff the DATA into the CODES hash
  13. #=======================================================================
  14. sub init {
  15.  
  16.     my $prefix;
  17.     my $code;
  18.     my $name;
  19.  
  20.  
  21.     while (<DATA>)
  22.     {
  23.         next unless /\S/;
  24.         chop;
  25.         ($prefix, $code, $name ) = split(/:/, $_, 3);
  26.         $PREFIX{$prefix} = $prefix;
  27.         $PREFIX{$code} = $prefix;
  28.         $PREFIX{$name} = $prefix;
  29.  
  30.         $ISOCODE{$prefix} = $code;
  31.         $ISOCODE{$code} = $code;
  32.         $ISOCODE{$name} = $code;
  33.     
  34.         $LANGUAGE{$prefix} = $name;
  35.         $LANGUAGE{$code} = $name;
  36.         $LANGUAGE{$name} = $name;
  37.     }
  38. }
  39.  
  40.  
  41. #=======================================================================
  42. # usage - error message
  43. #=======================================================================
  44. sub usage {
  45.     my $errmsg = shift;
  46.     my $errcode = shift;
  47.     print STDERR "$progname: $errmsg\n" if $errmsg;
  48.     print STDERR "$progname: Converts between prefix codes, iso codes and langnames\n";
  49.     print STDERR " Usage: $progname (-i|-l|-p|-h) <code>|all\n";
  50.     print STDERR "  -i <code>: convert prefix to iso code (ex: 03 -> pt)\n";
  51.     print STDERR "  -l <code>: convert iso code to language name (ex: pt -> portuguese)\n";
  52.     print STDERR "  -p <code>: convert iso code to prefix (ex: pt -> 03)\n";
  53.     print STDERR "  the code can either be an iso code, a prefix or even a language name\n";
  54.     print STDERR "  The special code \"all\" asks for all possible values.\n\n";
  55.     print STDERR "  -h : print this help\n";
  56.     exit $errcode;
  57. }
  58.  
  59. #=======================================================================
  60. # main - 
  61. #=======================================================================
  62. init();
  63.  
  64. my ($LanguageCode, $LanguageMap);
  65.  
  66. while ($ARGV[0] =~ /^-/) {
  67.     $_ = shift;
  68.     if (m/^-i/) {
  69.     $LanguageMap = \%ISOCODE;
  70.     }
  71.     elsif (m/^-l/) {
  72.     $LanguageMap = \%LANGUAGE;
  73.     }
  74.     elsif (m/^-p/) {
  75.     $LanguageMap = \%PREFIX;
  76.     }
  77.     elsif (m/^-h/) {
  78.     usage("",0);
  79.     }
  80.     else {
  81.     usage ("unknown option $_",1);
  82.     }
  83. }
  84.  
  85. usage ("no operation specified on command line",1)
  86.     if (!$LanguageMap);
  87.  
  88. usage ("no language code specified on command line",1)
  89.     if (!($LanguageCode = shift));
  90.  
  91. if ($LanguageCode =~ (m/^all$/)) {
  92.     # Asked for all codes
  93.     my $old="";
  94.     foreach my $key (sort values %$LanguageMap) {
  95.     if ($key ne $old) {
  96.         print "$key ";
  97.         $old=$key;
  98.     }
  99.     }
  100.     print "\n";
  101.     exit 0;
  102. }
  103.  
  104. usage ("no mapping found for $LanguageCode\n",1)
  105.     if (!(%$LanguageMap->{$LanguageCode}));
  106.  
  107. print $LanguageMap->{$LanguageCode}, "\n";
  108.  
  109. 1;
  110.  
  111. # keep third column names here with openoffice-dir/share/*/<long lang name>/
  112.  
  113. __DATA__
  114. :be-BY:belarussian
  115. :bg:bulgarian
  116. :bn:bengali
  117. :bs:bosnian
  118. :en-GB:english_british
  119. :gu-IN:gujarati
  120. :hr:croatian
  121. :km:khmer
  122. :ku:kurdish
  123. :pa-IN:punjabi
  124. :rw:kinarwanda
  125. :xh:xhosa
  126. :lt:lithuanian
  127. :ne:nepali
  128. :vi:vietnamese
  129. :ns:northern_sotho
  130. :ss:swazi
  131. :sr-CS:serbian
  132. :ve:venda
  133. :ts:tsonga
  134. :st:southern_sotho
  135. :tn:tswana
  136. :br:breton
  137. :ga:gaelic
  138. :th:thai
  139. :hi-IN:hindi
  140. :bs-BA:bosnian
  141. :en-ZA:english_southafrican
  142. :mk:macedonian
  143. :lo:lao
  144. :as-IN:assamese
  145. :ml-IN:malayalam
  146. :mr-IN:marathi
  147. :or-IN:oriya
  148. :ur-IN:urdu
  149. :fa:farsi
  150. :lv:latvian
  151. :nr:ndebele
  152. :ne:nepalese
  153. :sh-YU:serbian
  154. :te-IN:telugu
  155. :ti-ER:tigrinya
  156. :ta-IN:tamil
  157. :tg:tajik
  158. :ka:georgian
  159. :eo:esperanto
  160. :uk:ukrainian
  161. :dz:dzongkha
  162. :kn:kannada
  163. :sw:swahili
  164. :gl:galician
  165. 01:en-US:english_american
  166. 03:pt:portuguese
  167. 07:ru:russian
  168. 26:ns:northernsotho
  169. 27:af:afrikaans
  170. 28:zu:zulu
  171. 30:el:greek
  172. 31:nl:dutch
  173. 33:fr:french
  174. 34:es:spanish
  175. 35:fi:finnish
  176. 36:hu:hungarian
  177. 37:ca:catalan
  178. 39:it:italian
  179. 42:cs:czech
  180. 43:sk:slovak
  181. 45:da:danish
  182. 46:sv:swedish
  183. 47:nb:norwegian
  184. 48:pl:polish
  185. 49:de:german
  186. 50:sl:slovenian
  187. 53:cy:welsh
  188. 55:pt-BR:portuguese_brazilian
  189. 77:et:estonian
  190. 79:nn:norwegian_nynorsk
  191. 81:ja:japanese
  192. 82:ko:korean
  193. 86:zh-CN:chinese_simplified
  194. 88:zh-TW:chinese_traditional
  195. 90:tr:turkish
  196. 91:hi:hindi
  197. 96:ar:arabic
  198. 97:he:hebrew
  199.