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