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

no need to use a stack

Browse source
This commit is contained in:
Yann Dirson 2005-05-08 11:59:04 +00:00
parent e28d930e4b
commit d9ce1d893b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
utils/wmlxgettext
View file

@ -27,18 +27,18 @@ chdir $toplevel;
foreach my $file (@ARGV) {
open (FILE, "<$file") or die "cannot read from $file";
my $readingattack = 0;
my @domainstack = ($initialdomain);
my $currentdomain = $initialdomain;
LINE: while (<FILE>) {
# change the current textdomain when hitting the directive
if (m/\s*\#textdomain\s+(\S+)/) {
unshift @domainstack, $1;
$currentdomain = $1;
next LINE;
}
# skip other # lines as comments
next LINE if m/^\s*\#/ and !defined $str;
next LINE unless $domainstack[0] eq $domain;
next LINE unless $currentdomain eq $domain;
if (!defined $str and m/^(?:[^\"]*?)((?:_\s*)?)\"([^\"]*)\"(.*)/) {
# single-line quoted string