push @o, { T => 'specvar', E => $&, P => $& };
} elsif (!length) {
last;
+ } elsif (s{^\#.*\n}{}) {
} else {
m{^.{0,10}};
die "cannot tokenise \`$&'";
our @analysed_y;
sub analyse_chunk_core () {
+ $before //= '';
die "plain deletion\n" unless defined $after;
- die "plain insertion\n" unless defined $before;
my @xs = semiparse $before;
my @ys = semiparse $after;
@analysed_x = @analysed_y = ();
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->();
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 '('