diff options
Diffstat (limited to 'tools')
| -rwxr-xr-x | tools/binlang | 23 |
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"; |