X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=src%2Fupdate.pl;h=a36c99d376cc9316a421a14086dc61c46dd2472b;hb=3873fbc39d250734131e096da47add0cf601d194;hp=0517d37462d41b44d90fc06c05034db66a7c3925;hpb=7b88eb9cbb0c1342a6480820450644708aed019c;p=perl%2Fmodules%2Fre-engine-Hooks.git

diff --git a/src/update.pl b/src/update.pl
index 0517d37..a36c99d 100644
--- a/src/update.pl
+++ b/src/update.pl
@@ -216,26 +216,39 @@ sub fetch_source_file {
  }
 }
 
+my %patched_chunks;
+my %expected_chunks = (
+ 'regcomp.c' => [ qw<re_defs COMP_BEGIN_HOOK>, ('COMP_NODE_HOOK') x 3 ],
+ 'regexec.c' => [ qw<re_defs EXEC_NODE_HOOK> ],
+);
+
 sub patch_regcomp {
- my $line = $_[0];
+ my ($line, $file) = @_;
 
  if ($line =~ /#\s*include\s+"INTERN\.h"/) {
+  push @{$patched_chunks{$file}}, 're_defs';
   return "#include \"re_defs.h\"\n";
+ } elsif ($line =~ /^(\s*)RExC_rxi\s*=\s*ri\s*;\s*$/) {
+  push @{$patched_chunks{$file}}, 'COMP_BEGIN_HOOK';
+  return $line, "$1REH_CALL_COMP_BEGIN_HOOK(pRExC_state->rx);\n";
  } elsif ($line =~ /FILL_ADVANCE_NODE(_ARG)?\(\s*([^\s,\)]+)/) {
   my $shift = $1 ? 2 : 1;
-  return $line, "    REH_CALL_REGCOMP_HOOK(pRExC_state->rx, ($2) - $shift);\n"
+  push @{$patched_chunks{$file}}, 'COMP_NODE_HOOK';
+  return $line, "    REH_CALL_COMP_NODE_HOOK(pRExC_state->rx, ($2) - $shift);\n"
  }
 
  return $line;
 }
 
 sub patch_regexec {
- my $line = $_[0];
+ my ($line, $file) = @_;
 
  if ($line =~ /#\s*include\s+"perl\.h"/) {
+  push @{$patched_chunks{$file}}, 're_defs';
   return $line, "#include \"re_defs.h\"\n";
  } elsif ($line =~ /^\s*reenter_switch:\s*$/) {
-  return "\tREH_CALL_REGEXEC_HOOK(rex, scan, reginfo, st);\n", $line;
+  push @{$patched_chunks{$file}}, 'EXEC_NODE_HOOK';
+  return "\tREH_CALL_EXEC_NODE_HOOK(rex, scan, reginfo, st);\n", $line;
  }
 
  return $line;
@@ -264,7 +277,13 @@ sub patch_source_file {
  open my $out, '>', $dst or die "Can't open $dst for writing: $!";
 
  while (defined(my $line = <$in>)) {
-  print $out $mangler->($line);
+  print $out $mangler->($line, $dst);
+ }
+
+ my $patched_chunks  = join ' ', @{$patched_chunks{$dst}};
+ my $expected_chunks = join ' ', @{$expected_chunks{$file}};
+ unless ($patched_chunks eq $expected_chunks) {
+  die "File $dst was not properly patched (got \"$patched_chunks\", expected \"$expected_chunks\")\n";
  }
 
  return 1;