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

import IDs for weapon stuff, although the strings are not in po/ yet

Browse source
This commit is contained in:
Yann Dirson 2004-08-09 23:15:13 +00:00
parent 256eb903e8
commit 56e082fcde
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
utils/wml2po.pl
View file

@ -38,6 +38,7 @@ our @wmlfiles = glob ("data/units/*.cfg");
foreach my $wmlfile (@wmlfiles) {
open (WML, $wmlfile) or die "cannot open $wmlfile";
my ($id, $str);
my $readingattack = 0;
while (<WML>) {
if (m/id\s*=\s*(.*)/) {
$id = $str = $1;
@ -45,6 +46,8 @@ foreach my $wmlfile (@wmlfiles) {
set($id,$str);
# } elsif (m,\[/.*\],) {
# $id = undef;
} elsif (m/\[attack\]/) {
$readingattack = 1;
} elsif (m/unit_description\s*=\s*(?:_\s*)\"(.*)\"\s*$/) {
# single-line
if (defined $id) {
@ -52,6 +55,14 @@ foreach my $wmlfile (@wmlfiles) {
} else {
print STDERR "No id for unit_description $1\n";
}
} elsif ($readingattack) {
if (m/name=(.*)/) {
set('weapon_name_' . $1, $1);
} elsif (m/type=(.*)/) {
set('weapon_type_' . $1, $1);
} elsif (m/special=(.*)/) {
set('weapon_special_' . $1, $1);
}
}
}
close WML;