From 97ad4c9149a088a229120167a4c84c4f83b46426 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 26 Sep 2002 09:07:46 +0000
Subject: Michael Harwerth added warning about missing strings in translations

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@2424 a1c6a512-1295-4272-9138-f99709370657
---
 tools/binlang | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'tools')

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";
+   }
+}
-- 
cgit v1.2.3