diff options
Diffstat (limited to 'tools/genlang')
| -rwxr-xr-x | tools/genlang | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tools/genlang b/tools/genlang index 3d77540..448784e 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 |