53 lines
931 B
Perl
53 lines
931 B
Perl
#!/usr/bin/perl
|
|
|
|
$t = '';
|
|
|
|
for $file (sort <lang-*.txt>) {
|
|
open(IN, $file);
|
|
|
|
$name = $file;
|
|
$name =~ s#lang-##;
|
|
$name =~ s#(.)#uc($1)#e;
|
|
$name =~ s#\.txt##;
|
|
$nameUc = uc($name);
|
|
|
|
print "#ifdef LDLANG_$nameUc\n";
|
|
print "static LangTable Lang${name}Table[] = {\n";
|
|
|
|
$engl = 1;
|
|
$. = 0;
|
|
while(<IN>) {
|
|
chomp;
|
|
|
|
if(/^\s*$/) {
|
|
if($engl) {
|
|
next;
|
|
} else {
|
|
die "blank line mid-translation at $file, $.\n";
|
|
}
|
|
}
|
|
|
|
if($engl) {
|
|
$toTranslate = $_;
|
|
$engl = 0;
|
|
} else {
|
|
$translated = $_;
|
|
|
|
print " { $toTranslate, $translated },\n";
|
|
$engl = 1;
|
|
}
|
|
}
|
|
|
|
print "};\n";
|
|
|
|
print <<EOT;
|
|
static Lang Lang$name = {
|
|
Lang${name}Table, sizeof(Lang${name}Table)/sizeof(Lang${name}Table[0])
|
|
};
|
|
#endif
|
|
EOT
|
|
|
|
close FILE;
|
|
}
|
|
|