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

1 files changed, 177 insertions, 0 deletions

diff --git a/scp2/source/templates/modules.pl b/scp2/source/templates/modules.pl
new file mode 100755
index 000000000000..4028c1f08cd7
--- /dev/null
+++ b/scp2/source/templates/modules.pl
@@ -0,0 +1,177 @@
+#*************************************************************************
+#
+#   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;
+}