migrationanalysis/src/driver_docs/ulf2dat.pl

   1 :
   2 eval 'exec perl -wS $0 ${1+"$@"}'
   3     if 0;
   4 #*************************************************************************
   5 #
   6 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   7 #
   8 # Copyright 2008 by Sun Microsystems, Inc.
   9 #
  10 # OpenOffice.org - a multi-platform office productivity suite
  11 #
  12 # $RCSfile: ulf2dat.pl,v $
  13 # $Revision: 1.4.108.1 $
  14 #
  15 # This file is part of OpenOffice.org.
  16 #
  17 # OpenOffice.org is free software: you can redistribute it and/or modify
  18 # it under the terms of the GNU Lesser General Public License version 3
  19 # only, as published by the Free Software Foundation.
  20 #
  21 # OpenOffice.org is distributed in the hope that it will be useful,
  22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 # GNU Lesser General Public License version 3 for more details
  25 # (a copy is included in the LICENSE file that accompanied this code).
  26 #
  27 # You should have received a copy of the GNU Lesser General Public License
  28 # version 3 along with OpenOffice.org.  If not, see
  29 # <http://www.openoffice.org/license.html>
  30 # for a copy of the LGPLv3 License.
  31 #
  32 #***********************************************************************/
  33
  34
  35 #### script id #####
  36
  37 ( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
  38
  39 $id_str = ' $Revision: 1.4.108.1 $ ';
  40 $id_str =~ /Revision:\s+(\S+)\s+\$/
  41   ? ($script_rev = $1) : ($script_rev = "-");
  42
  43 #########################
  44 #                       #
  45 #   Globale Variablen   #
  46 #                       #
  47 #########################
  48
  49 use Encode;
  50 use Encode::Alias;
  51
  52
  53 my ($in_name, $ID, $new_ID);
  54 my ($help);
  55
  56 print STDERR "$script_name -- Version: $script_rev\n" ;
  57
  58 &get_options;
  59
  60 if ( $help ) {
  61     &usage();
  62     exit 0;
  63 };
  64
  65
  66 open IN, "<$in_name" or die "Could not open $in_name for reading $! $^E";
  67
  68 foreach $lang ( keys %files )
  69 {
  70     open "F_$lang",">$files{$lang}" or die "Could not open $files{$lang} for writing $! $^E";
  71     binmode "F_$lang";
  72     $files{$lang} = "F_$lang";
  73 }
  74
  75 %transunit = ();
  76
  77 while ( <IN> )
  78 {
  79     chomp;
  80     $line = $_;
  81     $line =~ s/\r$//;
  82     # [RID_RESXLS_COST_Print_Area]
  83     if ( $line =~ /^\[(.*)\]$/ )
  84     {
  85         $new_ID = $1;
  86
  87         write_transunit();
  88         $ID = $new_ID;
  89         %transunit = ();
  90     }
  91     # de = "Druckbereich"
  92     elsif ( $line =~ /^(\S*)\s*=\s*\"(.*)\"$/ )
  93     {
  94         $lang = $1;
  95         $string = $2;
  96         $transunit{ $lang } = $string;
  97     }
  98     elsif ( $line !~ /^\s*$/ )
  99     {
 100         die "unknown lineformat in $in_name: $line\n";
 101     }
 102 }
 103 write_transunit();
 104
 105
 106 sub write_transunit
 107 {
 108     if ( ! $ID )
 109     {
 110         return;
 111     }
 112     foreach $lang ( keys %files )
 113     {
 114         my $string;
 115         if ( defined $transunit{ $lang } )
 116         {
 117             $string = $transunit{ $lang };
 118         }
 119         else
 120         {
 121             $string = $transunit{ "en-US" };
 122         }
 123
 124         my $dat_line = "$ID=$string";
 125         Encode::from_to( $dat_line, "utf8", "UTF-16LE");
 126         print { $files{$lang} } "$dat_line\015\000\012\000";
 127     }
 128 }
 129
 130
 131 sub get_options {
 132     my ($arg,$lang);
 133
 134     while ($arg = shift @ARGV) {
 135         $arg =~ /^-i$/  and $in_name = shift @ARGV and next;
 136         $arg =~ /^-help$/  and $help = 1 and next; #show help
 137
 138         $arg =~ /.*[\/\\]([^\/\\]*)\.dat$/;
 139 #               $arg =~ /.*[/\]([^/\]*)\.dat$/;
 140         $lang = $1;
 141         print "got $lang = $arg\n";
 142         $files{ $lang } = $arg;
 143     }
 144 }
 145
 146
 147
 148 sub usage {
 149     print STDERR "\n\n";
 150     print STDERR "Syntax:   $script_name [-help|-i <ulf-filename>] <dat-filename> ... \n";
 151     print STDERR "Example:  $script_name -i strings.ulf en-US.dat de.dat\n";
 152     print STDERR "Options:\n\n";
 153     print STDERR "    -i      input ulf file\n";
 154     print STDERR "    -help   print this help info\n\n";
 155 };
 156