solenv/bin/modules/installer/languages.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: languages.pm,v $
  10 #
  11 # $Revision: 1.14 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32 package installer::languages;
  33
  34 use installer::converter;
  35 use installer::existence;
  36 use installer::exiter;
  37 use installer::globals;
  38 use installer::remover;
  39 use installer::ziplist;
  40
  41 #############################################################################
  42 # Analyzing the laguage list parameter and language list from zip list file
  43 #############################################################################
  44
  45 sub analyze_languagelist
  46 {
  47     my $first = $installer::globals::languagelist;
  48
  49     $first =~ s/\_/\,/g;        # substituting "_" by ",", in case of dmake definition 01_49
  50
  51     # Products are separated by a "#", if defined in zip-list by a "|". But "get_info_about_languages"
  52     # substitutes already "|" to "#". This procedure only knows "#" as product separator.
  53     # Different languages for one product are separated by ",". But on the command line the "_" is used.
  54     # Therefore "_" is replaced by "," at the beginning of this procedure.
  55
  56     while ($first =~ /^(\S+)\#(\S+?)$/) # Minimal matching, to keep the order of languages
  57     {
  58         $first = $1;
  59         my $last = $2;
  60         unshift(@installer::globals::languageproducts, $last);
  61     }
  62
  63     unshift(@installer::globals::languageproducts, $first);
  64 }
  65
  66 ####################################################
  67 # Reading languages from zip list file
  68 ####################################################
  69
  70 sub get_info_about_languages
  71 {
  72     my ( $allsettingsarrayref ) = @_;
  73
  74     my $languagelistref;
  75
  76     $languagelistref = installer::ziplist::getinfofromziplist($allsettingsarrayref, "languages");
  77     $installer::globals::languagelist = $$languagelistref;
  78
  79     if ( $installer::globals::languagelist eq "" )      # not defined on command line and not in product list
  80     {
  81         installer::exiter::exit_program("ERROR: Languages not defined on command line (-l) and not in product list!", "get_info_about_languages");
  82     }
  83
  84     # Adapting the separator format from zip list.
  85     # | means new product, , (comma) means more than one language in one product
  86     # On the command line, | is difficult to use. Therefore this script uses hashes
  87
  88     $installer::globals::languagelist =~ s/\|/\#/g;
  89
  90     analyze_languagelist();
  91 }
  92
  93 #############################################################################
  94 # Checking whether all elements of an array A are also member of array B
  95 #############################################################################
  96
  97 sub all_elements_of_array1_in_array2
  98 {
  99     my ($array1, $array2) = @_;
 100
 101     my $array2_contains_all_elements_of_array1 = 1;
 102
 103     for ( my $i = 0; $i <= $#{$array1}; $i++ )
 104     {
 105         if (! installer::existence::exists_in_array(${$array1}[$i], $array2))
 106         {
 107             $array2_contains_all_elements_of_array1 = 0;
 108             last;
 109         }
 110     }
 111
 112     return $array2_contains_all_elements_of_array1;
 113 }
 114
 115 #############################################
 116 # All languages defined for one product
 117 #############################################
 118
 119 sub get_all_languages_for_one_product
 120 {
 121     my ( $languagestring, $allvariables ) = @_;
 122
 123     my @languagearray = ();
 124
 125     my $last = $languagestring;
 126
 127     $installer::globals::ismultilingual = 0;            # setting the global variable $ismultilingual !
 128     if ( $languagestring =~ /\,/ ) { $installer::globals::ismultilingual = 1; }
 129
 130     while ( $last =~ /^\s*(.+?)\,(.+)\s*$/)     # "$" for minimal matching, comma separated list
 131     {
 132         my $first = $1;
 133         $last = $2;
 134         installer::remover::remove_leading_and_ending_whitespaces(\$first);
 135         push(@languagearray, "$first");
 136     }
 137
 138     installer::remover::remove_leading_and_ending_whitespaces(\$last);
 139     push(@languagearray, "$last");
 140
 141     if ( $installer::globals::iswindowsbuild )
 142     {
 143         my $furthercheck = 1;
 144
 145         # For some languages (that are not supported by Windows, english needs to be added to the installation set
 146         # Languages saved in "@installer::globals::noMSLocaleLangs"
 147
 148         if ( all_elements_of_array1_in_array2(\@languagearray, \@installer::globals::noMSLocaleLangs) )
 149         {
 150             my $officestartlanguage = $languagearray[0];
 151             unshift(@languagearray, "en-US");   # am Anfang einfügen!
 152             $installer::globals::ismultilingual = 1;
 153             $installer::globals::added_english  = 1;
 154             $installer::globals::set_office_start_language  = 1;
 155             # setting the variable PRODUCTLANGUAGE, needed for Linguistic-ForceDefaultLanguage.xcu
 156             $allvariables->{'PRODUCTLANGUAGE'} = $officestartlanguage;
 157             $furthercheck = 0;
 158         }
 159
 160         # In bilingual installation sets, in which english is the first language,
 161         # the Office start language shall be the second language.
 162
 163         if ( $furthercheck )
 164         {
 165             if (( $#languagearray == 1 ) && ( $languagearray[0] eq "en-US" ))
 166             {
 167                 my $officestartlanguage = $languagearray[1];
 168                 $installer::globals::set_office_start_language  = 1;
 169                 # setting the variable PRODUCTLANGUAGE, needed for Linguistic-ForceDefaultLanguage.xcu
 170                 $allvariables->{'PRODUCTLANGUAGE'} = $officestartlanguage;
 171             }
 172         }
 173     }
 174
 175     return \@languagearray;
 176 }
 177
 178 ####################################################################################
 179 # FAKE: The languages string may contain only "de", "en-US", instead of "01", ...
 180 # But this has to be removed as soon as possible.
 181 # In the future the languages are determined with "en-US" instead "01"
 182 # already on the command line and in the zip list file.
 183 ####################################################################################
 184
 185 sub fake_languagesstring
 186 {
 187     my ($stringref) = @_;
 188
 189     # ATTENTION: This function has to be removed as soon as possible!
 190
 191     $$stringref =~ s/01/en-US/;
 192     $$stringref =~ s/03/pt/;
 193     $$stringref =~ s/07/ru/;
 194     $$stringref =~ s/30/el/;
 195     $$stringref =~ s/31/nl/;
 196     $$stringref =~ s/33/fr/;
 197     $$stringref =~ s/34/es/;
 198     $$stringref =~ s/35/fi/;
 199     $$stringref =~ s/36/hu/;
 200     $$stringref =~ s/37/ca/;
 201     $$stringref =~ s/39/it/;
 202     $$stringref =~ s/42/cs/;
 203     $$stringref =~ s/43/sk/;
 204     $$stringref =~ s/44/en-GB/;
 205     $$stringref =~ s/45/da/;
 206     $$stringref =~ s/46/sv/;
 207     $$stringref =~ s/47/no/;
 208     $$stringref =~ s/48/pl/;
 209     $$stringref =~ s/49/de/;
 210     $$stringref =~ s/55/pt-BR/;
 211     $$stringref =~ s/66/th/;
 212     $$stringref =~ s/77/et/;
 213     $$stringref =~ s/81/ja/;
 214     $$stringref =~ s/82/ko/;
 215     $$stringref =~ s/86/zh-CN/;
 216     $$stringref =~ s/88/zh-TW/;
 217     $$stringref =~ s/90/tr/;
 218     $$stringref =~ s/91/hi-IN/;
 219     $$stringref =~ s/96/ar/;
 220     $$stringref =~ s/97/he/;
 221 }
 222
 223 ##########################################################
 224 # Converting the language array into a string for output
 225 ##########################################################
 226
 227 sub get_language_string
 228 {
 229     my ($languagesref) = @_;
 230
 231     my $newstring = "";
 232
 233     for ( my $i = 0; $i <= $#{$languagesref}; $i++ )
 234     {
 235         $newstring = $newstring . ${$languagesref}[$i] . "_";
 236     }
 237
 238     # remove ending underline
 239
 240     $newstring =~ s/\_\s*$//;
 241
 242     return \$newstring;
 243 }
 244
 245 ##########################################################
 246 # Analyzing the languages in the languages array and
 247 # returning the most important language
 248 ##########################################################
 249
 250 sub get_default_language
 251 {
 252     my ($languagesref) = @_;
 253
 254     return ${$languagesref}[0];         # ToDo, only returning the first language
 255 }
 256
 257 #############################################################
 258 # Contains the installation set one of the asian languages?
 259 #############################################################
 260
 261 sub detect_asian_language
 262 {
 263     my ($languagesref) = @_;
 264
 265     my $containsasia = 0;
 266
 267     for ( my $i = 0; $i <= $#{$languagesref}; $i++ )
 268     {
 269         my $onelang = ${$languagesref}[$i];
 270         $onelang =~ s/\s*$//;
 271
 272         for ( my $j = 0; $j <= $#installer::globals::asianlanguages; $j++ )
 273         {
 274             my $asialang = $installer::globals::asianlanguages[$j];
 275             $asialang =~ s/\s*$//;
 276
 277             if ( $onelang eq $asialang )
 278             {
 279                 $containsasia = 1;
 280                 last;
 281             }
 282         }
 283
 284         if ( $containsasia ) { last; }
 285     }
 286
 287     return $containsasia;
 288 }
 289
 290 #############################################################
 291 # Contains the installation set only asian languages?
 292 #############################################################
 293
 294 sub contains_only_asian_languages
 295 {
 296     my ($languagesref) = @_;
 297
 298     my $onlyasian = 1;
 299
 300     for ( my $i = 0; $i <= $#{$languagesref}; $i++ )
 301     {
 302         my $onelang = ${$languagesref}[$i];
 303         $onelang =~ s/\s*$//;
 304
 305         if (! installer::existence::exists_in_array($onelang, \@installer::globals::asianlanguages))
 306         {
 307             $onlyasian = 0;
 308             last;
 309         }
 310     }
 311
 312     return $onlyasian;
 313 }
 314
 315 ################################################################
 316 # Contains the installation set one of the western languages
 317 ################################################################
 318
 319 sub detect_western_language
 320 {
 321     my ($languagesref) = @_;
 322
 323     my $containswestern = 1;
 324
 325     if ( contains_only_asian_languages($languagesref) ) { $containswestern = 0; }
 326
 327     return $containswestern;
 328 }
 329
 330 ################################################################
 331 # Determining the language used by the Java installer
 332 ################################################################
 333
 334 sub get_java_language
 335 {
 336     my ( $language ) = @_;
 337
 338     # my $javalanguage = "";
 339
 340     # if ( $language eq "en-US" ) { $javalanguage = "en_US"; }
 341     # elsif ( $language eq "ar" ) { $javalanguage = "ar_AR"; }
 342     # elsif ( $language eq "bg" ) { $javalanguage = "bg_BG"; }
 343     # elsif ( $language eq "ca" ) { $javalanguage = "ca_CA"; }
 344     # elsif ( $language eq "cs" ) { $javalanguage = "cs_CS"; }
 345     # elsif ( $language eq "da" ) { $javalanguage = "da_DA"; }
 346     # elsif ( $language eq "de" ) { $javalanguage = "de"; }
 347     # elsif ( $language eq "de" ) { $javalanguage = "de_DE"; }
 348     # elsif ( $language eq "et" ) { $javalanguage = "et_ET"; }
 349     # elsif ( $language eq "el" ) { $javalanguage = "el_EL"; }
 350     # elsif ( $language eq "fi" ) { $javalanguage = "fi_FI"; }
 351     # elsif ( $language eq "fr" ) { $javalanguage = "fr_FR"; }
 352     # elsif ( $language eq "hu" ) { $javalanguage = "hu_HU"; }
 353     # elsif ( $language eq "he" ) { $javalanguage = "he_HE"; }
 354     # elsif ( $language eq "it" ) { $javalanguage = "it_IT"; }
 355     # elsif ( $language eq "nl" ) { $javalanguage = "nl_NL"; }
 356     # elsif ( $language eq "es" ) { $javalanguage = "es_ES"; }
 357     # elsif ( $language eq "sv" ) { $javalanguage = "sv_SV"; }
 358     # elsif ( $language eq "sk" ) { $javalanguage = "sk_SK"; }
 359     # elsif ( $language eq "pl" ) { $javalanguage = "pl_PL"; }
 360     # elsif ( $language eq "pt-BR" ) { $javalanguage = "pt_BR"; }
 361     # elsif ( $language eq "ru" ) { $javalanguage = "ru_RU"; }
 362     # elsif ( $language eq "tr" ) { $javalanguage = "tr_TR"; }
 363     # elsif ( $language eq "ja" ) { $javalanguage = "ja"; }
 364     # elsif ( $language eq "ja" ) { $javalanguage = "ja_JP"; }
 365     # elsif ( $language eq "ko" ) { $javalanguage = "ko_KR"; }
 366     # elsif ( $language eq "th" ) { $javalanguage = "th_TH"; }
 367     # elsif ( $language eq "zh-CN" ) { $javalanguage = "zh_CN"; }
 368     # elsif ( $language eq "zh-TW" ) { $javalanguage = "zh_TW"; }
 369
 370     # languages not defined yet
 371     # if ( $javalanguage eq "" )
 372     # {
 373     #   $javalanguage = $language;
 374     #   $javalanguage =~ s/\-/\_/;
 375     # }
 376
 377     $javalanguage = $language;
 378     $javalanguage =~ s/\-/\_/;
 379
 380     return $javalanguage;
 381 }
 382
 383 1;