summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rwxr-xr-xtools/binlang23
1 files changed, 19 insertions, 4 deletions
diff --git a/tools/binlang b/tools/binlang
index 3d7fdff1db..158c755459 100755
--- a/tools/binlang
+++ b/tools/binlang
@@ -28,6 +28,11 @@ MOO
exit;
}
+if($ARGV[0] eq "-v") {
+ shift @ARGV;
+ $debug=1;
+}
+
my $english = $ARGV[0];
my $input = $ARGV[1];
my $output = $ARGV[2];
@@ -47,6 +52,7 @@ printf OFILE ("\x1a%c", $langversion); # magic lang file header
#
# We scan the english file to get the correct order of the id numbers
#
+my $idnum=0; # start with a true number
while(<ENG>) {
if($_ =~ / *\#/) {
# comment
@@ -92,11 +98,20 @@ while(<LANG>) {
if($value =~ s/^\"(.*)\" *$/$1/g) {
$idnum = $idnum{$set{'id'}};
- $idnum{$set{'id'}} = '_done_';
- printf OFILE ("%c%c%s\x00",
- ($idnum>>8), ($idnum&0xff),
- $value);
+ if($idnum eq "") {
+ warn "Found no ".$set{'id'}." in english file!\n";
+ }
+ else {
+ $idnum{$set{'id'}} = '_done_';
+
+ printf OFILE ("%c%c%s\x00",
+ ($idnum>>8), ($idnum&0xff),
+ $value);
+ if($debug) {
+ printf("%02x => %s\n", $idnum, $value);
+ }
+ }
}
else {
warn "String for ".$set{'id'}." misses quotes\n";