diff options
| author | Daniel Stenberg <daniel@haxx.se> | 2002-10-11 22:01:24 +0000 |
|---|---|---|
| committer | Daniel Stenberg <daniel@haxx.se> | 2002-10-11 22:01:24 +0000 |
| commit | 1017e25438b3ca129dbe81e3d78f8f665fa39b27 (patch) | |
| tree | d321aad0abaa8a67a30558af23d2ab9e85fadf78 /tools/binlang | |
| parent | 567d84aa21dad01fe090fac9e1e63e3717ea324a (diff) | |
| download | rockbox-1017e25438b3ca129dbe81e3d78f8f665fa39b27.tar.gz rockbox-1017e25438b3ca129dbe81e3d78f8f665fa39b27.zip | |
check for quotes better and warn/skip bad ones
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@2592 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'tools/binlang')
| -rwxr-xr-x | tools/binlang | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/tools/binlang b/tools/binlang index ed158e7f2a..e77830fc6e 100755 --- a/tools/binlang +++ b/tools/binlang | |||
| @@ -89,14 +89,18 @@ while(<LANG>) { | |||
| 89 | $value = $set{'eng'}; | 89 | $value = $set{'eng'}; |
| 90 | } | 90 | } |
| 91 | 91 | ||
| 92 | $value =~ s/^\"(.*)\"/$1/g; | 92 | if($value =~ s/^\"(.*)\"/$1/g) { |
| 93 | 93 | ||
| 94 | $idnum = $idnum{$set{'id'}}; | 94 | $idnum = $idnum{$set{'id'}}; |
| 95 | $idnum{$set{'id'}} = '_done_'; | 95 | $idnum{$set{'id'}} = '_done_'; |
| 96 | 96 | ||
| 97 | printf OFILE ("%c%c%s\x00", | 97 | printf OFILE ("%c%c%s\x00", |
| 98 | ($idnum>>8), ($idnum&0xff), | 98 | ($idnum>>8), ($idnum&0xff), |
| 99 | $value); | 99 | $value); |
| 100 | } | ||
| 101 | else { | ||
| 102 | warn "String for ".$set{'id'}." misses quotes\n"; | ||
| 103 | } | ||
| 100 | 104 | ||
| 101 | undef %set; | 105 | undef %set; |
| 102 | } | 106 | } |