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

catch scenario objectives, fix bug in multiline handling

Browse source
This commit is contained in:
Yann Dirson 2004-08-08 00:16:18 +00:00
parent 55bb09bb4c
commit 694eafb701
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
utils/wml2po.pl
View file

@ -58,11 +58,11 @@ foreach my $wmlfile (@wmlfiles) {
our %suffix = (
'difficulty_descriptions' => '_difficulties',
'cannot_use_message' => '_cannot_use_message',
'objectives' => '_objectives',
);
# get ids from other wml files
#our @wmlfiles = glob ("data/*.cfg data/scenarios/*/*.cfg");
@wmlfiles = glob ("data/*.cfg");
@wmlfiles = glob ("data/*.cfg data/scenarios/*/*.cfg");
foreach my $wmlfile (@wmlfiles) {
open (WML, $wmlfile) or die "cannot open $wmlfile";
print STDERR " Processing $wmlfile\n";
@ -74,7 +74,7 @@ foreach my $wmlfile (@wmlfiles) {
print STDERR "--> $id\n";
# } elsif (m,\[/.*\],) {
# $id = undef;
} elsif (m/(difficulty\_descriptions|cannot\_use\_message)\s*=\s*(?:_\s*)?\"(.*)\"\s*$/) {
} elsif (m/(difficulty\_descriptions|cannot\_use\_message|objectives)\s*=\s*(?:_\s*)?\"(.*)\"\s*$/) {
# single-line
die "nested key" if defined $key;
@ -83,12 +83,12 @@ foreach my $wmlfile (@wmlfiles) {
} else {
print STDERR "No id for $1 $2\n";
}
} elsif (m/(difficulty\_descriptions|cannot\_use\_message)\s*=\s*(?:_\s*)?\"(.*)\s*$/) {
} elsif (m/(difficulty\_descriptions|cannot\_use\_message|objectives)\s*=\s*(?:_\s*)?\"(.*)\s*$/) {
# start of multi-line
die "nested key" if defined $key;
$strtype=1;
$key = $1;
$key = $id . $suffix{$1};
$value = $2 . "\n";
} elsif (m/(?:title|message|name|story)\s*=\s*(?:_\s*)\"(.*)\"\s*$/) {
# single-line