po/README: Give a pointer to salsa; remind the translator to commit

[dgit.git] / i18n-diff-auditor

diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index a03f0b01ea1b41f03f06c3ddf451191a743564de..6868ca7d2c8df16f3b6fee1169a3b7c04903e06c 100755 (executable)
--- a/i18n-diff-auditor
+++ b/i18n-diff-auditor
@@ -268,6 +268,7 @@ sub analyse_chunk_core () {
     my $next_x = sub { $next_something->(\@xs, \@analysed_x, \$x, 'before'); };
     my $next_y = sub { $next_something->(\@ys, \@analysed_y, \$y, 'after' ); };
     our @y_expect_suffix = ();
+  ANALYSE:
     for (;;) {
        while (my $e = shift @y_expect_suffix) {
            $next_y->();
@@ -281,6 +282,24 @@ sub analyse_chunk_core () {
        next if $x->{E} eq 'sprintf' and $y->{E} eq 'f_';
        next if $x->{E} eq 'die'     and $y->{E} eq 'confess';
        next if $x->{E} eq 'die'     and $y->{E} eq 'fail';
+       foreach my $with_fh (qw(0 1)) {
+           next unless $x->{E} eq 'printf';
+           next unless $y->{E} eq 'print';
+           next unless @xs >= $with_fh;
+           next unless @ys >  $with_fh;
+           if ($with_fh) {
+               next unless $xs[0]{E} eq $ys[0]{E};
+               next unless
+                   $xs[0]{E} =~ m{^[A-Z]+$} or
+                   $xs[0]{T} eq 'ident' && $xs[0]{E} =~ m{^\$};
+           }
+           next unless $ys[$with_fh]{E} eq 'f_';
+           # yay!
+           $next_x->() if $with_fh;
+           $next_y->() if $with_fh;
+           $next_y->(); # f_
+           next ANALYSE;
+       }
        if ($y->{E} eq '+'
            and @ys >= 3
            and $ys[0]{E} eq '('