summaryrefslogtreecommitdiffstats
path: root/tools/binlang
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2002-09-26 09:07:46 +0000
committerDaniel Stenberg <daniel@haxx.se>2002-09-26 09:07:46 +0000
commit97ad4c9149a088a229120167a4c84c4f83b46426 (patch)
tree8abbff22232c4cc65206c9cc5bd7b98c0df08a42 /tools/binlang
parentc1afabb61ae052967e88b3325bfd061b8d091b05 (diff)
downloadrockbox-97ad4c9149a088a229120167a4c84c4f83b46426.tar.gz
rockbox-97ad4c9149a088a229120167a4c84c4f83b46426.zip
Michael Harwerth added warning about missing strings in translations
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@2424 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'tools/binlang')
-rwxr-xr-xtools/binlang12
1 files changed, 10 insertions, 2 deletions
diff --git a/tools/binlang b/tools/binlang
index 3a0152dced..ed158e7f2a 100755
--- a/tools/binlang
+++ b/tools/binlang
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
############################################################################
# __________ __ ___.
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
@@ -68,7 +68,6 @@ while(<ENG>) {
}
close(ENG);
-
while(<LANG>) {
if($_ =~ / *\#/) {
# comment
@@ -93,6 +92,7 @@ while(<LANG>) {
$value =~ s/^\"(.*)\"/$1/g;
$idnum = $idnum{$set{'id'}};
+ $idnum{$set{'id'}} = '_done_';
printf OFILE ("%c%c%s\x00",
($idnum>>8), ($idnum&0xff),
@@ -107,3 +107,11 @@ while(<LANG>) {
close(LANG);
close(OFILE);
+
+foreach $k (keys(%idnum))
+{
+ if($idnum{$k} ne '_done_')
+ {
+ warn "Missing ID in $input: $k\n";
+ }
+}