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/genlang | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'tools/genlang')

diff --git a/tools/genlang b/tools/genlang
index 3d77540707..448784e49e 100755
--- a/tools/genlang
+++ b/tools/genlang
@@ -48,6 +48,7 @@ MOO
 
 open(LANG, "<$input");
 while(<LANG>) {
+    $line++;
     if($_ =~ / *\#/) {
         # comment
         next;
@@ -56,10 +57,16 @@ while(<LANG>) {
     $_ =~ s/\r//g;
     if($_ =~ / *([a-z]+): *(.*)/) {
         ($var, $value) = ($1, $2);
-  #      print "$var => $value\n";
+        # print "$var => $value\n";
 
         $set{$var} = $value;
 
+        if( (($var eq "new") && $value && ($value !~ /^\"(.*)\"$/)) ||
+            (($var eq "eng") && ($value !~ /^\"(.*)\"$/)) ) {
+            print "missing quotes on line $line for ".$set{'id'}."\n";
+            next;
+        }
+
         if($var eq "new") {
             # the last one for a single phrase
 
-- 
cgit v1.2.3