From 720732a14f35acd012f9f69a9932000e674da68d Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Fri, 20 Sep 2002 06:36:49 +0000
Subject: deal with DOS newlines, ignore IDs that aren't in the english file
 and corrected the 'english text changed' comment

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@2339 a1c6a512-1295-4272-9138-f99709370657
---
 tools/uplang | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/tools/uplang b/tools/uplang
index f63edd372a..983a624e58 100755
--- a/tools/uplang
+++ b/tools/uplang
@@ -8,12 +8,14 @@ MOO
     exit;
 }
 
+my %ids;
 open(ENG, "<$ARGV[0]");
 while(<ENG>) {
     if($_ =~ / *\#/) {
         # comment
         next;
     }
+    $_ =~ s/\r//g;
     if($_ =~ / *([a-z]+): *(.*)/) {
         ($var, $value) = ($1, $2);
   #      print "$var => $value\n";
@@ -39,6 +41,8 @@ while(<NEW>) {
         # comment
         next;
     }
+    $_ =~ s/\r//g;
+
     if($_ =~ / *([a-z]+): *(.*)/) {
         ($var, $value) = ($1, $2);
 
@@ -47,11 +51,16 @@ while(<NEW>) {
         if($var eq "new") {
             # the last one for a single phrase
 
+            if(!$ids{$set{'id'}}) {
+                print "### ".$set{'id'}." was not found in the english file!\n";
+                next;
+            }
+
             print "\nid: ".$set{'id'}."\n";
             print "desc: ".$set{'desc'}."\n";
             if($set{'eng'} ne $all{$set{'id'}, 'eng'}) {
                 print "### English phrase was changed! Previous translation was made on:\n",
-                "### ".$set{'eng'}."\n";
+                "### ".$all{$set{'id'}, 'eng'}."\n";
                 $set{'eng'} = $all{$set{'id'}, 'eng'};
             }
             print "eng: ".$set{'eng'}."\n";
-- 
cgit v1.2.3