summaryrefslogtreecommitdiff
path: root/tools/genlang
diff options
context:
space:
mode:
Diffstat (limited to 'tools/genlang')
-rwxr-xr-xtools/genlang9
1 files changed, 8 insertions, 1 deletions
diff --git a/tools/genlang b/tools/genlang
index 3d77540707..448784e49e 100755
--- a/tools/genlang
+++ b/tools/genlang
@@ -48,6 +48,7 @@ MOO
48 48
49open(LANG, "<$input"); 49open(LANG, "<$input");
50while(<LANG>) { 50while(<LANG>) {
51 $line++;
51 if($_ =~ / *\#/) { 52 if($_ =~ / *\#/) {
52 # comment 53 # comment
53 next; 54 next;
@@ -56,10 +57,16 @@ while(<LANG>) {
56 $_ =~ s/\r//g; 57 $_ =~ s/\r//g;
57 if($_ =~ / *([a-z]+): *(.*)/) { 58 if($_ =~ / *([a-z]+): *(.*)/) {
58 ($var, $value) = ($1, $2); 59 ($var, $value) = ($1, $2);
59 # print "$var => $value\n"; 60 # print "$var => $value\n";
60 61
61 $set{$var} = $value; 62 $set{$var} = $value;
62 63
64 if( (($var eq "new") && $value && ($value !~ /^\"(.*)\"$/)) ||
65 (($var eq "eng") && ($value !~ /^\"(.*)\"$/)) ) {
66 print "missing quotes on line $line for ".$set{'id'}."\n";
67 next;
68 }
69
63 if($var eq "new") { 70 if($var eq "new") {
64 # the last one for a single phrase 71 # the last one for a single phrase
65 72