office-gobmx/scp2/source/templates/modules.pl
Oliver Bolte 9207d7afe8 INTEGRATION: CWS native110 (1.1.2); FILE ADDED
2007/12/03 15:31:26 is 1.1.2.2: #i82248# creation of language modules
2007/11/12 16:04:05 is 1.1.2.1: #i82248# module.pl into source directory
2008-01-04 16:12:18 +00:00

177 lines
5.2 KiB
Perl
Executable file

#*************************************************************************
#
# OpenOffice.org - a multi-platform office productivity suite
#
# $RCSfile: modules.pl,v $
#
# $Revision: 1.2 $
#
# last change: $Author: obo $ $Date: 2008-01-04 17:12:18 $
#
# The Contents of this file are made available subject to
# the terms of GNU Lesser General Public License Version 2.1.
#
#
# GNU Lesser General Public License Version 2.1
# =============================================
# Copyright 2005 by Sun Microsystems, Inc.
# 901 San Antonio Road, Palo Alto, CA 94303, USA
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License version 2.1, as published by the Free Software Foundation.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston,
# MA 02111-1307 USA
#
#*************************************************************************
my $completelangiso_var = $ENV{COMPLETELANGISO_VAR};
my $lastcompletelangiso_var = "";
my $outfile = "";
my $infile = "";
my @infile = ();
my $globalcounter = 0;
my $globallinecounter = 0;
if ( !defined $completelangiso_var) {
print STDERR "ERROR: No language defined!\n";
exit 1;
}
startup_check();
# if ( "$completelangiso_var" eq "$lastcompletelangiso_var" ) {
# print STDERR "No new languages. Keeping old file\n";
# exit 0;
# }
my @completelangiso = split " +", $completelangiso_var;
open OUTFILE, ">$outfile" or die "$0 ERROR: cannot open $outfile for writing!\n";
print OUTFILE "// generated file, do not edit\n\n";
print OUTFILE "// languages used for last time generation\n";
print OUTFILE "// completelangiso: $completelangiso_var\n\n";
write_ALL_MODULES();
close OUTFILE;
check_counter();
sub check_counter
{
print STDERR "Wrote modules for $globalcounter languages ($globallinecounter lines)!\n";
if ( $globalcounter == 0 )
{
print STDERR "ERROR: No languages found!\n";
exit 1;
}
if ( $globallinecounter == 0 )
{
print STDERR "ERROR: No lines written!\n";
exit 1;
}
}
sub write_ALL_MODULES
{
my $counter = 0;
my $linecounter = 0;
my $linecount = $#infile + 1;
# print STDERR "Lines in inputfile: $linecount!\n";
foreach $lang (@completelangiso) {
$language = $lang;
$language_ = $lang;
$language_ =~ s/-/_/;
$languagebig_ = uc($lang);
$languagebig_ =~ s/-/_/;
$counter++;
my $sortkey = 100 * $counter;
for ( $i = 0; $i <= $#infile; $i++) {
my $line = $infile[$i];
if (( $line =~ /^\s*\*/ ) || ( $line =~ /^\s*\/\*/ )) { next; }
$line =~ s/\<LANGUAGE\>/$language/g;
$line =~ s/\<LANGUAGE_\>/$language_/g;
$line =~ s/\<LANGUAGEBIG_\>/$languagebig_/g;
$line =~ s/\<SORTKEY\>/$sortkey/g;
print OUTFILE $line;
$linecounter++;
}
print OUTFILE "\n";
}
print OUTFILE "\n";
$globalcounter = $counter;
$globallinecounter = $linecounter;
}
sub startup_check
{
my $i;
for ( $i=0; $i <= $#ARGV; $i++) {
if ( "$ARGV[$i]" eq "-o" ) {
if ( defined $ARGV[ $i + 1] ) {
$outfile = $ARGV[ $i + 1];
$i++;
}
} elsif ( "$ARGV[$i]" eq "-i" ) {
if ( defined $ARGV[ $i + 1] ) {
$infile = $ARGV[ $i + 1];
$i++;
}
} else {
usage();
}
}
usage() if $i < 3;
usage() if "$outfile" eq "";
usage() if "$infile" eq "";
if ( -f "$infile" ) {
open INFILE, "$infile" or die "$0 - ERROR: $infile exists but isn't readable.\n";
@infile = <INFILE>;
close( INFILE );
print STDERR "Reading template file: $infile\n";
my $num = $#infile + 1;
# print STDERR "Number of lines: $num\n";
} else {
die "Template file \"$infile\" not found!\n";
exit 1;
}
if ( -f "$outfile" ) {
# changed script - run always
return if (stat($0))[9] > (stat("$outfile"))[9] ;
# changed template file - run always
return if (stat($infile))[9] > (stat("$outfile"))[9] ;
open OLDFILE, "$outfile" or die "$0 - ERROR: $outfile exists but isn't readable.\n";
while ( $line = <OLDFILE> ) {
if ( $line =~ /^\/\/.*completelangiso:/ ) {
$lastcompletelangiso_var = $line;
chomp $lastcompletelangiso_var;
$lastcompletelangiso_var =~ s/^\/\/.*completelangiso:\s*//;
last;
}
}
close OLDFILE;
}
}
sub usage
{
print STDERR "Generate language modules from language script particle template (*.sct file)\n";
print STDERR "perl $0 -o outputfile -i inputfile\n";
exit 1;
}