From 1017e25438b3ca129dbe81e3d78f8f665fa39b27 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Fri, 11 Oct 2002 22:01:24 +0000
Subject: check for quotes better and warn/skip bad ones

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

(limited to 'tools/binlang')

diff --git a/tools/binlang b/tools/binlang
index ed158e7f2a..e77830fc6e 100755
--- a/tools/binlang
+++ b/tools/binlang
@@ -89,14 +89,18 @@ while(<LANG>) {
                 $value = $set{'eng'};
             }
 
-            $value =~ s/^\"(.*)\"/$1/g;
+            if($value =~ s/^\"(.*)\"/$1/g) {
 
-            $idnum = $idnum{$set{'id'}};
-            $idnum{$set{'id'}} = '_done_';
+                $idnum = $idnum{$set{'id'}};
+                $idnum{$set{'id'}} = '_done_';
 
-            printf OFILE ("%c%c%s\x00",
-                          ($idnum>>8), ($idnum&0xff),
-                          $value);
+                printf OFILE ("%c%c%s\x00",
+                              ($idnum>>8), ($idnum&0xff),
+                              $value);
+            }
+            else {
+                warn "String for ".$set{'id'}." misses quotes\n";
+            }
 
             undef %set;
         }
-- 
cgit v1.2.3