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

fixed wmlxgettext to support multiple strings on a single line

Browse source
This commit is contained in:
Yann Dirson 2004-11-25 10:34:47 +00:00
parent 1abc381f53
commit f31ea38d9c
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
utils/wmlxgettext
View file

@ -2,8 +2,6 @@
# FIXME:
# - maybe restrict "ability" matching to unit defs (not yet necessary)
# - maybe handle some xgettext flags and behaviours to be more
# predictable to the command-line user
use strict;
use File::Basename;
@ -28,15 +26,14 @@ foreach my $file (@ARGV) {
# skip comments
next LINE if m/^\s*\#/ and !defined $str;
if (m/^(?:[^\"]*?)((?:_\s*)?)\"([^\"]*)\"(.*)$/) {
if (!defined $str and m/^(?:[^\"]*?)((?:_\s*)?)\"([^\"]*)\"(.*)/) {
# single-line quoted string
die "nested string in $file" if defined $str;
push @{$messages{raw2postring($2)}}, "$file:$."
if ($1 ne ''); # ie. translatable
# process remaining of the line
$_ = $3;
$_ = $3 . "\n";
redo LINE;
} elsif (!defined $str and m/^(?:[^\"]*?)((?:_\s*)?)\s*\"([^\"]*)/) {
@ -48,7 +45,7 @@ foreach my $file (@ARGV) {
$str = $_;
$line = $.;
} elsif (m/(.*?)\"(.*)$/) {
} elsif (m/(.*?)\"(.*)/) {
# end of multi-line
die "end of string without a start in $file" if !defined $str;
@ -59,7 +56,7 @@ foreach my $file (@ARGV) {
$str = undef;
# process remaining of the line
$_ = $2;
$_ = $2 . "\n";
redo LINE;
} elsif (defined $str) {