Skip to content

Commit

Permalink
Merge pull request sympa-community#1320 from ikedas/improve_xgettext.…
Browse files Browse the repository at this point in the history
…pl by ikedas

Improve xgettext.pl
  • Loading branch information
ikedas authored Jan 13, 2022
2 parents c989822 + 85f1553 commit 30011f0
Showing 1 changed file with 54 additions and 46 deletions.
100 changes: 54 additions & 46 deletions support/xgettext.pl
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@
use constant PAR => 2;
use constant QUO1 => 3;
use constant QUO2 => 4;
use constant QUO3 => 5;
use constant QUO3 => 5; # No longer used
use constant BEGM => 6;
use constant PARM => 7;
use constant QUOM1 => 8;
Expand Down Expand Up @@ -202,30 +202,30 @@

my %seen;

## Print code/templates references
print "\n#:$f\n";
print "\n";

## Print variables if any
foreach my $entry (grep { $_->[2] } @{$file{$entry}}) {
my ($file, $line, $var) = @{$entry};
# Print variables if any.
foreach my $ent (grep { $_->[2] } @{$file{$entry}}) {
my ($file, $line, $var) = @{$ent};
$var =~ s/^\s*,\s*//;
$var =~ s/\s*$//;
print "#. ($var)\n" unless !length($var) or $seen{$var}++;
}

## If the entry is a date format, add a developper comment to help
## translators
if ($type_of_entries{$entry} and $type_of_entries{$entry} eq 'date') {
print "#. This entry is a date/time format\n";
print
"#. Check the strftime manpage for format details : http://docs.freebsd.org/info/gawk/gawk.info.Time_Functions.html\n";
} elsif ($type_of_entries{$entry}
and $type_of_entries{$entry} eq 'printf') {
print "#. This entry is a sprintf format\n";
print
"#. Check the sprintf manpage for format details : http://perldoc.perl.org/functions/sprintf.html\n";
# If the entry is a date format, add a developper comment to help
# translators.
if ('date' eq ($type_of_entries{$entry} || '')) {
print "#. This entry contains date/time conversions. See\n";
print "#. https://perldoc.perl.org/POSIX#strftime for details.\n";
} elsif ('printf' eq ($type_of_entries{$entry} || '')) {
print "#. This entry contains sprintf conversions. See\n";
print "#. https://perldoc.perl.org/functions/sprintf for details.\n";
}

# Print code/templates references.
print "#:$f\n";
print "#, c-format\n" if 'printf' eq ($type_of_entries{$entry} || '');

print "msgid ";
output($entry);
print "msgstr ";
Expand Down Expand Up @@ -422,75 +422,83 @@ sub load_perl {
}

# begin or end of string
if ($state == PAR and $t =~ m/^\s*(\')/cg) {
if ($state == PAR and $t =~ m/^\s*'/cg) {
$state = QUO1;
redo;
}
if ($state == QUO1 and $t =~ m/^([^\']+)/cg) {
$str .= $1;
if ($state == QUO1 and $t =~ m/^((?:\\\\|\\'|[^'])+)/cg) {
my $m = $1;
$m =~
s{(\\.)}{($1 eq "\\\\") ? "\\" : ($1 eq "\\'") ? "'" : $1}eg;
$m =~ s{\\}{\\\\}g;
$str .= $m;
redo;
}
if ($state == QUO1 and $t =~ m/^\'/cg) {
if ($state == QUO1 and $t =~ m/^'/cg) {
$state = PAR;
redo;
}

if ($state == PAR and $t =~ m/^\s*\"/cg) {
if ($state == PAR and $t =~ m/^\s*"/cg) {
$state = QUO2;
redo;
}
if ($state == QUO2 and $t =~ m/^([^\"]+)/cg) {
$str .= $1;
redo;
}
if ($state == QUO2 and $t =~ m/^\"/cg) {
$state = PAR;
redo;
}

if ($state == PAR and $t =~ m/^\s*\`/cg) {
$state = QUO3;
redo;
}
if ($state == QUO3 and $t =~ m/^([^\`]*)/cg) {
if ($state == QUO2 and $t =~ m/^((?:\\.|[^\\"])+)/cg) {
$str .= $1;
redo;
}
if ($state == QUO3 and $t =~ m/^\`/cg) {
if ($state == QUO2 and $t =~ m/^"/cg) {
$state = PAR;
redo;
}

if ($state == BEGM and $t =~ m/^(\')/cg) {
#if ($state == PAR and $t =~ m/^\s*\`/cg) {
# $state = QUO3;
# redo;
#}
#if ($state == QUO3 and $t =~ m/^([^\`]*)/cg) {
# $str .= $1;
# redo;
#}
#if ($state == QUO3 and $t =~ m/^\`/cg) {
# $state = PAR;
# redo;
#}

if ($state == BEGM and $t =~ m/^'/cg) {
$state = QUOM1;
redo;
}
if ($state == PARM and $t =~ m/^\s*(\')/cg) {
if ($state == PARM and $t =~ m/^\s*'/cg) {
$state = QUOM1;
redo;
}
if ($state == QUOM1 and $t =~ m/^([^\']+)/cg) {
$str .= $1;
if ($state == QUOM1 and $t =~ m/^((?:\\\\|\\'|[^'])+)/cg) {
my $m = $1;
$m =~
s{(\\.)}{($1 eq "\\\\") ? "\\" : ($1 eq "\\'") ? "'" : $1}eg;
$m =~ s{\\}{\\\\}g;
$str .= $m;
redo;
}
if ($state == QUOM1 and $t =~ m/^\'/cg) {
if ($state == QUOM1 and $t =~ m/^'/cg) {
$state = COMM;
redo;
}

if ($state == BEGM and $t =~ m/^(\")/cg) {
if ($state == BEGM and $t =~ m/^"/cg) {
$state = QUOM2;
redo;
}
if ($state == PARM and $t =~ m/^\s*(\")/cg) {
if ($state == PARM and $t =~ m/^\s*"/cg) {
$state = QUOM2;
redo;
}
if ($state == QUOM2 and $t =~ m/^([^\"]+)/cg) {
if ($state == QUOM2 and $t =~ m/^((?:\\.|[^\\"])+)/cg) {
$str .= $1;
redo;
}
if ($state == QUOM2 and $t =~ m/^\"/cg) {
if ($state == QUOM2 and $t =~ m/^"/cg) {
$state = COMM;
redo;
}
Expand Down

0 comments on commit 30011f0

Please sign in to comment.