#!/usr/bin/env perl use strict; my $progname=$0; $progname = $& if $progname =~ m,[^/]+$,; my %PREFIX; # used to search for prefix numbers my %ISOCODE; # used to search for iso codes my %LANGUAGE; # used to search for language names #======================================================================= # initialisation code - stuff the DATA into the CODES hash #======================================================================= sub init { my $prefix; my $code; my $name; while () { next unless /\S/; chop; ($prefix, $code, $name ) = split(/:/, $_, 3); $PREFIX{$prefix} = $prefix; $PREFIX{$code} = $prefix; $PREFIX{$name} = $prefix; $ISOCODE{$prefix} = $code; $ISOCODE{$code} = $code; $ISOCODE{$name} = $code; $LANGUAGE{$prefix} = $name; $LANGUAGE{$code} = $name; $LANGUAGE{$name} = $name; } } #======================================================================= # usage - error message #======================================================================= sub usage { my $errmsg = shift; my $errcode = shift; print STDERR "$progname: $errmsg\n" if $errmsg; print STDERR "$progname: Converts between prefix codes, iso codes and langnames\n"; print STDERR " Usage: $progname (-i|-l|-p|-h) |all\n"; print STDERR " -i : convert prefix to iso code (ex: 03 -> pt)\n"; print STDERR " -l : convert iso code to language name (ex: pt -> portuguese)\n"; print STDERR " -p : convert iso code to prefix (ex: pt -> 03)\n"; print STDERR " the code can either be an iso code, a prefix or even a language name\n"; print STDERR " The special code \"all\" asks for all possible values.\n\n"; print STDERR " -h : print this help\n"; exit $errcode; } #======================================================================= # main - #======================================================================= init(); my ($LanguageCode, $LanguageMap); while ($ARGV[0] =~ /^-/) { $_ = shift; if (m/^-i/) { $LanguageMap = \%ISOCODE; } elsif (m/^-l/) { $LanguageMap = \%LANGUAGE; } elsif (m/^-p/) { $LanguageMap = \%PREFIX; } elsif (m/^-h/) { usage("",0); } else { usage ("unknown option $_",1); } } usage ("no operation specified on command line",1) if (!$LanguageMap); usage ("no language code specified on command line",1) if (!($LanguageCode = shift)); if ($LanguageCode =~ (m/^all$/)) { # Asked for all codes my $old=""; foreach my $key (sort values %$LanguageMap) { if ($key ne $old) { print "$key "; $old=$key; } } print "\n"; exit 0; } usage ("no mapping found for $LanguageCode\n",1) if (!($LanguageMap->{$LanguageCode})); print $LanguageMap->{$LanguageCode}, "\n"; 1; # keep third column names here with openoffice-dir/share/*// __DATA__ :be:belarussian :bg:bulgarian :bn:bengali :bs:bosnian :en-GB:english_british :gu:gujarati :hr:croatian :km:khmer :kmr-Latn:Kurmanji :pa-IN:punjabi :rw:kinarwanda :xh:xhosa :lt:lithuanian :ne:nepali :vi:vietnamese :nso:northern_sotho :ss:swazi :sr:serbian :ve:venda :ts:tsonga :st:southern_sotho :tn:tswana :br:breton :ga:gaelic :gd:scottish_gaelic :th:thai :hi:hindi :bs-BA:bosnian :en-ZA:english_southafrican :mk:macedonian :as:assamese :ml:malayalam :mr:marathi :or:odia :ur:urdu :fa:farsi :lv:latvian :nr:ndebele :ne:nepalese :sh:serbian :te:telugu :ta:tamil :tg:tajik :ka:georgian :eo:esperanto :uk:ukrainian :kk:kazakh :dz:dzongkha :kn:kannada :gl:galician :uz:uzbek :oc:occitan :ro:romanian :eu:basque :mn:mongolian :om:oromo :bo:tibetan :ast:asturian :is:icelandic :ug:uighur :si:sinhala :id:indonesian :my:burmese :am:amharic :gug:guarani 01:en-US:english_american 03:pt:portuguese 07:ru:russian 26:ns:northernsotho 27:af:afrikaans 28:zu:zulu 30:el:greek 31:nl:dutch 33:fr:french 34:es:spanish 35:fi:finnish 36:hu:hungarian 37:ca:catalan 39:it:italian 42:cs:czech 43:sk:slovak 45:da:danish 46:sv:swedish 47:nb:norwegian 48:pl:polish 49:de:german 50:sl:slovenian 53:cy:welsh 55:pt-BR:portuguese_brazilian 77:et:estonian 79:nn:norwegian_nynorsk 81:ja:japanese 82:ko:korean 86:zh-CN:chinese_simplified 88:zh-TW:chinese_traditional 90:tr:turkish 91:hi:hindi 96:ar:arabic 97:he:hebrew LibreOffice 核心代码仓库文档基金会
summaryrefslogtreecommitdiff
path: root/android
AgeCommit message (Expand)Author
2024-11-27android-viewer translated using WeblateWeblate
2024-11-04android-viewer translated using WeblateWeblate