0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ignore commented-out strings in wml; framework to dump remaining english strings

Browse source
This commit is contained in:
Yann Dirson 2004-08-09 21:50:48 +00:00
parent 7492ccf2a0
commit 06d41fea7d
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
utils/wml2po.pl
View file

@ -72,6 +72,7 @@ foreach my $wmlfile (@wmlfiles) {
my ($str, $key, $value,$strtype);
while (<WML>) {
# print STDERR $_;
next if m/^\s*\#/ and !defined $key;
if (m/id\s*=\s*"(.*)"/) {
$id = $1;
} elsif (m/id\s*=\s*(.*)/) {
@ -190,6 +191,11 @@ if ($n == 0) {
foreach my $key (keys %lang) {
print STDERR $key, ' = "', $lang{$key}, "\"\n";
}
# $n = keys %english;
# print STDERR "\ALSO FINAL WARNING: the following $n english strings were NOT looked up:\n";
# foreach my $key (keys %english) {
# print STDERR $key, ' = "', $english{$key}, "\"\n";
# }
}
## Below is utility functions only - end of processing
@ -208,7 +214,7 @@ sub processentry {
if (defined $trans) {
$output = raw2postring($trans);
$touched = 1;
delete $lang{$id};
delete $lang{$id}; delete $english{$id};
$migrated++;
} else {
# print STDERR "WARNING: no translation found for $id - setting to empty\n";