From 1824d2161055a9981df07f379676481d42011225 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Tue, 2 Oct 2018 17:09:21 +0100 Subject: [PATCH] i18n: i18n-diff-auditor: Handle printf => print f_ Signed-off-by: Ian Jackson --- i18n-diff-auditor | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/i18n-diff-auditor b/i18n-diff-auditor index a03f0b01..6868ca7d 100755 --- 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 '(' -- 2.30.2