148 lines
2.3 KiB
Perl
148 lines
2.3 KiB
Perl
#=========================================================================
|
|
#
|
|
# 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
|