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