SBSPSS/tools/Perl/pl/lang.pl

148 lines
2.3 KiB
Perl
Raw Normal View History

2000-08-29 18:26:01 +02:00
#=========================================================================
#
# LANG.PL
#
# Author: Gary Liddon @ Climax
# Created:
# Project: TPW PSX
# Purpose:
# Usage:
#
# Copyright (c) 1999 Climax Development Ltd
#
#===========================================================================
# PKG - Added check for invalid id tags
#MAIN
#{
local ($englishFile,$outFile,@langFiles)=@ARGV;
readTransFile($englishFile,"eng",\%english);
foreach $Id (keys(%english))
{
$idToTrans{$Id}="eng=$english{$Id}";
}
foreach $file (@langFiles)
{
local (%otherLang);
$otherLang={};
printf "trying $file\n";
if ($file=~/^.*\\(.*)\.dat/)
{
$prefix=$1;
}
else
{
if ($file=~/^.*\/(.*)\.dat/)
{
$prefix=$1;
}
}
printf "reading $file\n";
readTransFile($file,$prefix,\%otherLang);
printf "read $file\n";
foreach $Id (keys(%english))
{
if ($otherLang{$Id} ne "")
{
local (@trans)=split(/arsebiscuits/,$idToTrans{$Id});
push(@trans,"$prefix=$otherLang{$Id}");
$idToTrans{$Id}=join('arsebiscuits',@trans);
}
}
}
if ($outFile ne "")
{
$OUTFILE= ">$outFile";
open(OUTFILE) || die "Can't open file $outFile; $!";
foreach $Id (keys(%idToTrans))
{
print (OUTFILE "[$Id]\n");
local (@trans)=split(/arsebiscuits/,$idToTrans{$Id});
foreach $text (@trans)
{
print (OUTFILE "$text\n");
}
print (OUTFILE "\n");
}
close(OUTFILE);
}
#}
# Read a translation file into an associative array
sub readTransFile
{
local($inFile,$prefix,$destArray)=@_;
$INFILE = $inFile;
open(INFILE) || die "Can't open file $inFile; $!";
while (<INFILE>)
{
if (/^\[(.*)]\n/)
{
$id=$1;
if($id=~/[^a-zA-Z0-9_]/)
{
die("Invalid id tag [$id] in $inFile\nTag may only contain a-z, A-Z, 0-9 and _\n");
}
$Done = 0;
while (!$Done)
{
$_=<INFILE>;
chop $_;
s/;.*//g;
if ($_ ne "")
{
if (/^(.*)\=(.*)/)
{
if ($1 eq $prefix)
{
$text=$2;
$Done=1;
}
}
else
{
print "!$_!";
die "incorrectly formatted file $inFile\nlooking for $prefix=<text> for id $id\n";
}
}
}
$$destArray{$id}="$text";
}
}
close(INFILE);
}
#===========================================================================
#ends