Michael Harwerth added warning about missing strings in translations

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@2424 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 10 insertions, 2 deletions

diff --git a/tools/binlang b/tools/binlang
index 3a0152d..ed158e7 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";
+   }
+}