gecko-dev/xpinstall/packager/common/createlocalizedini.pl

94 строки
2.4 KiB
Perl

#!c:\perl\bin\perl
#
# The contents of this file are subject to the Netscape Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/NPL/
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
#
# The Original Code is Mozilla Communicator client code, released
# March 31, 1998.
#
# The Initial Developer of the Original Code is Netscape
# Communications Corporation. Portions created by Netscape are
# Copyright (C) 1998-1999 Netscape Communications Corporation. All
# Rights Reserved.
#
# Contributor(s):
# Sean Su <ssu@netscape.com>
#
#
# This perl script parses the input file for special variables
# in the format of $Variable$ and replace it with the appropriate
# value(s).
#
# Input: .ini file
# - ini file to extract localizable string from
#
# ie: perl createp.pl config.ini
#
# Make sure there is at least 1 argument
if($#ARGV < 0)
{
die "usage: $0 <.properties file>
.properties file : input properties file
\n";
}
$inFile = $ARGV[0];
$previousSection;
$section;
# Get the name of the file replacing the .it extension with a .properties extension
@inFileSplit = split(/\./,$inFile);
$outFile = $inFileSplit[0];
$outFile .= "_localized.ini";
# Open the input file
open(fpIn, $inFile) || die "\ncould not open $ARGV[0]: $!\n";
# Open the output file
open(fpOut, ">$outFile") || die "\nCould not open $outFile: $!\n";
print "\n Making $outFile...\n";
# While loop to read each line from input file
while($line = <fpIn>)
{
chop($line);
@splitByEqualSign = split(/\=/, $line);
$sectionWithKey = $splitByEqualSign[0];
$value = $splitByEqualSign[1];
@splitBySectionDeliminator = split(/ - /, $sectionWithKey);
$section = $splitBySectionDeliminator[0];
$key = $splitBySectionDeliminator[1];
if($previousSection eq $section)
{
print fpOut "$key=$value\n";
}
else
{
print fpOut "\n[$section]\n";
print fpOut "$key=$value\n";
}
$previousSection = $section;
}
print fpOut "\n";
close(fpOut);
print " done!\n";
# end of script
exit(0);