diff options
author | Daniel Stenberg <daniel@haxx.se> | 2002-09-20 06:36:49 +0000 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2002-09-20 06:36:49 +0000 |
commit | 720732a14f35acd012f9f69a9932000e674da68d (patch) | |
tree | 2c974b070ef8c846d4373dbc0782a23230989de1 /tools | |
parent | 63e350e9832ff9e1347db8a77f6545fd82810707 (diff) | |
download | rockbox-720732a14f35acd012f9f69a9932000e674da68d.tar.gz rockbox-720732a14f35acd012f9f69a9932000e674da68d.zip |
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
Diffstat (limited to 'tools')
-rwxr-xr-x | tools/uplang | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tools/uplang b/tools/uplang index f63edd372a..983a624e58 100755 --- a/tools/uplang +++ b/tools/uplang | |||
@@ -8,12 +8,14 @@ MOO | |||
8 | exit; | 8 | exit; |
9 | } | 9 | } |
10 | 10 | ||
11 | my %ids; | ||
11 | open(ENG, "<$ARGV[0]"); | 12 | open(ENG, "<$ARGV[0]"); |
12 | while(<ENG>) { | 13 | while(<ENG>) { |
13 | if($_ =~ / *\#/) { | 14 | if($_ =~ / *\#/) { |
14 | # comment | 15 | # comment |
15 | next; | 16 | next; |
16 | } | 17 | } |
18 | $_ =~ s/\r//g; | ||
17 | if($_ =~ / *([a-z]+): *(.*)/) { | 19 | if($_ =~ / *([a-z]+): *(.*)/) { |
18 | ($var, $value) = ($1, $2); | 20 | ($var, $value) = ($1, $2); |
19 | # print "$var => $value\n"; | 21 | # print "$var => $value\n"; |
@@ -39,6 +41,8 @@ while(<NEW>) { | |||
39 | # comment | 41 | # comment |
40 | next; | 42 | next; |
41 | } | 43 | } |
44 | $_ =~ s/\r//g; | ||
45 | |||
42 | if($_ =~ / *([a-z]+): *(.*)/) { | 46 | if($_ =~ / *([a-z]+): *(.*)/) { |
43 | ($var, $value) = ($1, $2); | 47 | ($var, $value) = ($1, $2); |
44 | 48 | ||
@@ -47,11 +51,16 @@ while(<NEW>) { | |||
47 | if($var eq "new") { | 51 | if($var eq "new") { |
48 | # the last one for a single phrase | 52 | # the last one for a single phrase |
49 | 53 | ||
54 | if(!$ids{$set{'id'}}) { | ||
55 | print "### ".$set{'id'}." was not found in the english file!\n"; | ||
56 | next; | ||
57 | } | ||
58 | |||
50 | print "\nid: ".$set{'id'}."\n"; | 59 | print "\nid: ".$set{'id'}."\n"; |
51 | print "desc: ".$set{'desc'}."\n"; | 60 | print "desc: ".$set{'desc'}."\n"; |
52 | if($set{'eng'} ne $all{$set{'id'}, 'eng'}) { | 61 | if($set{'eng'} ne $all{$set{'id'}, 'eng'}) { |
53 | print "### English phrase was changed! Previous translation was made on:\n", | 62 | print "### English phrase was changed! Previous translation was made on:\n", |
54 | "### ".$set{'eng'}."\n"; | 63 | "### ".$all{$set{'id'}, 'eng'}."\n"; |
55 | $set{'eng'} = $all{$set{'id'}, 'eng'}; | 64 | $set{'eng'} = $all{$set{'id'}, 'eng'}; |
56 | } | 65 | } |
57 | print "eng: ".$set{'eng'}."\n"; | 66 | print "eng: ".$set{'eng'}."\n"; |