languages.pm (9780544f) languages.pm (01a01bd6)
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

--- 16 unchanged lines hidden (view full) ---

25
26use installer::converter;
27use installer::existence;
28use installer::exiter;
29use installer::globals;
30use installer::remover;
31use installer::ziplist;
32
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

--- 16 unchanged lines hidden (view full) ---

25
26use installer::converter;
27use installer::existence;
28use installer::exiter;
29use installer::globals;
30use installer::remover;
31use installer::ziplist;
32
33#############################################################################
34# Analyzing the laguage list parameter and language list from zip list file
35#############################################################################
33=head2 analyze_languagelist()
36
34
37sub analyze_languagelist
38{
39 my $first = $installer::globals::languagelist;
40
41 $first =~ s/\_/\,/g; # substituting "_" by ",", in case of dmake definition 01_49
35 Convert $installer::globals::languagelist into $installer::globals::languageproduct.
42
36
43 # Products are separated by a "#", if defined in zip-list by a "|". But "get_info_about_languages"
44 # substitutes already "|" to "#". This procedure only knows "#" as product separator.
45 # Different languages for one product are separated by ",". But on the command line the "_" is used.
46 # Therefore "_" is replaced by "," at the beginning of this procedure.
47
48 while ($first =~ /^(\S+)\#(\S+?)$/) # Minimal matching, to keep the order of languages
49 {
50 $first = $1;
51 my $last = $2;
52 unshift(@installer::globals::languageproducts, $last);
53 }
37 That is now just a replacement of '_' with ','.
54
38
55 unshift(@installer::globals::languageproducts, $first);
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;
56}
57
68}
69
70
71
72
58####################################################
59# Reading languages from zip list file
60####################################################
61
62sub get_info_about_languages
63{
64 my ( $allsettingsarrayref ) = @_;
65

--- 310 unchanged lines hidden --- 		73####################################################
74# Reading languages from zip list file
75####################################################
76
77sub get_info_about_languages
78{
79 my ( $allsettingsarrayref ) = @_;
80

--- 310 unchanged lines hidden ---