scp2/source/templates/modules.pl

   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 my $completelangiso_var = $ENV{COMPLETELANGISO_VAR};
  20 my $lastcompletelangiso_var = "";
  21 my $outfile = "";
  22 my $infile = "";
  23 my @infile = ();
  24 my $globalcounter = 0;
  25 my $globallinecounter = 0;
  26 my $verbose = 0;
  27
  28 if ( !defined $completelangiso_var) {
  29     print STDERR "ERROR: No language defined!\n";
  30     exit 1;
  31 }
  32
  33 startup_check();
  34
  35 # if ( "$completelangiso_var" eq "$lastcompletelangiso_var" ) {
  36 #    print STDERR "No new languages. Keeping old file\n";
  37 #    exit 0;
  38 # }
  39
  40 my @completelangiso = split " +", $completelangiso_var;
  41
  42 open OUTFILE, ">$outfile" or die "$0 ERROR: cannot open $outfile for writing!\n";
  43 print OUTFILE "// generated file, do not edit\n\n";
  44 print OUTFILE "// languages used for last time generation\n";
  45 print OUTFILE "// completelangiso: $completelangiso_var\n\n";
  46 write_ALL_MODULES();
  47 close OUTFILE;
  48 check_counter();
  49
  50 sub check_counter
  51 {
  52     print STDERR "Wrote modules for $globalcounter languages ($globallinecounter lines)!\n" if $verbose;
  53     if ( $globalcounter == 0 )
  54     {
  55         print STDERR "ERROR: No languages found!\n";
  56         exit 1;
  57     }
  58
  59     if ( $globallinecounter == 0 )
  60     {
  61         print STDERR "ERROR: No lines written!\n";
  62         exit 1;
  63     }
  64 }
  65
  66
  67 sub write_ALL_MODULES
  68 {
  69     my $counter = 0;
  70     my $linecounter = 0;
  71     my $linecount = $#infile + 1;
  72     # print STDERR "Lines in inputfile: $linecount!\n";
  73
  74     foreach $lang (@completelangiso) {
  75         $language = $lang;
  76         $language_ = $lang;
  77         $language_ =~ s/-/_/;
  78         $languagebig_ = uc($lang);
  79         $languagebig_ =~ s/-/_/;
  80         $counter++;
  81         my $sortkey = 100 * $counter;
  82
  83         for ( $i = 0; $i <= $#infile; $i++) {
  84             my $line = $infile[$i];
  85             if (( $line =~  /^\s*\*/ ) || ( $line =~  /^\s*\/\*/ )) { next; }
  86             $line =~ s/\<LANGUAGE\>/$language/g;
  87             $line =~ s/\<LANGUAGE_\>/$language_/g;
  88             $line =~ s/\<LANGUAGEBIG_\>/$languagebig_/g;
  89             $line =~ s/\<SORTKEY\>/$sortkey/g;
  90             print OUTFILE $line;
  91             $linecounter++;
  92         }
  93         print OUTFILE "\n";
  94     }
  95     print OUTFILE "\n";
  96
  97     $globalcounter = $counter;
  98     $globallinecounter = $linecounter;
  99 }
 100
 101 sub startup_check
 102 {
 103     my $i;
 104
 105     if ( $#ARGV >= 0 )
 106     {
 107         if ( $ARGV[0] eq "-verbose" )
 108         {
 109             $verbose = 1;
 110             shift @ARGV;
 111         }
 112         elsif ( $ARGV[0] eq "-quiet" )
 113         {
 114             # no special quiet flag/mode
 115             shift @ARGV;
 116         }
 117     }
 118
 119     for ( $i=0; $i <= $#ARGV; $i++) {
 120         if ( "$ARGV[$i]" eq "-o" ) {
 121             if ( defined $ARGV[ $i + 1] ) {
 122                 $outfile = $ARGV[ $i + 1];
 123                 $i++;
 124             }
 125         } elsif ( "$ARGV[$i]" eq "-i" ) {
 126             if ( defined $ARGV[ $i + 1] ) {
 127                 $infile = $ARGV[ $i + 1];
 128                 $i++;
 129             }
 130         } else {
 131             usage();
 132         }
 133     }
 134
 135     usage() if $i < 3;
 136     usage() if "$outfile" eq "";
 137     usage() if "$infile" eq "";
 138
 139     if ( -f "$infile" ) {
 140         open INFILE, "$infile" or die "$0 - ERROR: $infile exists but isn't readable.\n";
 141         @infile = <INFILE>;
 142         close( INFILE );
 143         print STDERR "Reading template file: $infile\n" if $verbose;
 144         my $num = $#infile + 1;
 145         # print STDERR "Number of lines: $num\n";
 146     } else {
 147         die "Template file \"$infile\" not found!\n";
 148         exit 1;
 149     }
 150
 151     if ( -f "$outfile" ) {
 152         # changed script - run always
 153         return if (stat($0))[9] > (stat("$outfile"))[9] ;
 154         # changed template file - run always
 155         return if (stat($infile))[9] > (stat("$outfile"))[9] ;
 156
 157         open OLDFILE, "$outfile" or die "$0 - ERROR: $outfile exists but isn't readable.\n";
 158         while ( $line = <OLDFILE> ) {
 159             if ( $line =~ /^\/\/.*completelangiso:/ ) {
 160                 $lastcompletelangiso_var = $line;
 161                 chomp $lastcompletelangiso_var;
 162                 $lastcompletelangiso_var =~ s/^\/\/.*completelangiso:\s*//;
 163                 last;
 164             }
 165         }
 166         close OLDFILE;
 167     }
 168
 169 }
 170
 171 sub usage
 172 {
 173     print STDERR "Generate language modules from language script particle template (*.sct file)\n";
 174     print STDERR "perl $0 [-verbose] -o outputfile -i inputfile\n";
 175     exit  1;
 176 }