solenv/bin/modules/installer/languages.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19 package installer::languages;
  20
  21 use installer::converter;
  22 use installer::exiter;
  23 use installer::globals;
  24 use installer::remover;
  25 use installer::ziplist;
  26
  27 #############################################################################
  28 # Analyzing the language list parameter and language list from zip list file
  29 #############################################################################
  30
  31 sub analyze_languagelist
  32 {
  33     my $first = $installer::globals::languagelist;
  34
  35     $first =~ s/\_/\,/g;    # substituting "_" by ",", in case of dmake definition 01_49
  36
  37     # Products are separated by a "#", if defined in zip-list by a "|". But "get_info_about_languages"
  38     # substitutes already "|" to "#". This procedure only knows "#" as product separator.
  39     # Different languages for one product are separated by ",". But on the command line the "_" is used.
  40     # Therefore "_" is replaced by "," at the beginning of this procedure.
  41
  42     while ($first =~ /^(\S+)\#(\S+?)$/) # Minimal matching, to keep the order of languages
  43     {
  44         $first = $1;
  45         my $last = $2;
  46         unshift(@installer::globals::languageproducts, $last);
  47     }
  48
  49     unshift(@installer::globals::languageproducts, $first);
  50 }
  51
  52 ####################################################
  53 # Reading languages from zip list file
  54 ####################################################
  55
  56 sub get_info_about_languages
  57 {
  58     my ( $allsettingsarrayref ) = @_;
  59
  60     my $languagelistref;
  61
  62     $languagelistref = installer::ziplist::getinfofromziplist($allsettingsarrayref, "languages");
  63     $installer::globals::languagelist = $$languagelistref;
  64
  65     if ( $installer::globals::languagelist eq "" )  # not defined on command line and not in product list
  66     {
  67         installer::exiter::exit_program("ERROR: Languages not defined on command line (-l) and not in product list!", "get_info_about_languages");
  68     }
  69
  70     # Adapting the separator format from zip list.
  71     # | means new product, , (comma) means more than one language in one product
  72     # On the command line, | is difficult to use. Therefore this script uses hashes
  73
  74     $installer::globals::languagelist =~ s/\|/\#/g;
  75
  76     analyze_languagelist();
  77 }
  78
  79 #############################################
  80 # All languages defined for one product
  81 #############################################
  82
  83 sub get_all_languages_for_one_product
  84 {
  85     my ( $languagestring, $allvariables ) = @_;
  86
  87     my @languagearray = ();
  88
  89     my $last = $languagestring;
  90
  91     $installer::globals::ismultilingual = 0;        # setting the global variable $ismultilingual !
  92     if ( $languagestring =~ /\,/ ) { $installer::globals::ismultilingual = 1; }
  93
  94     while ( $last =~ /^\s*(.+?)\,(.+)\s*$/) # "$" for minimal matching, comma separated list
  95     {
  96         my $first = $1;
  97         $last = $2;
  98         installer::remover::remove_leading_and_ending_whitespaces(\$first);
  99         push(@languagearray, "$first");
 100     }
 101
 102     installer::remover::remove_leading_and_ending_whitespaces(\$last);
 103     push(@languagearray, "$last");
 104
 105     return \@languagearray;
 106 }
 107
 108 ##########################################################
 109 # Converting the language array into a string for output
 110 ##########################################################
 111
 112 sub get_language_string
 113 {
 114     my ($languagesref) = @_;
 115
 116     my $newstring = "";
 117
 118     for ( my $i = 0; $i <= $#{$languagesref}; $i++ )
 119     {
 120         $newstring = $newstring . ${$languagesref}[$i] . "_";
 121     }
 122
 123     # remove ending underline
 124
 125     $newstring =~ s/\_\s*$//;
 126
 127     return \$newstring;
 128 }
 129
 130 ##########################################################
 131 # Analyzing the languages in the languages array and
 132 # returning the most important language
 133 ##########################################################
 134
 135 sub get_default_language
 136 {
 137     my ($languagesref) = @_;
 138
 139     return ${$languagesref}[0];     # ToDo, only returning the first language
 140 }
 141
 142 1;