X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Hooks.xs;h=99e81d303a358a01e8ff89e046efdbe0b6eed091;hb=e1f0ecadfeae6b5f375598ec7ff99aee92b81979;hp=b312223c08fff684b75445b2a1940a2731d85af7;hpb=be51951333b8f0da55af1243a039e74bb15dedcd;p=perl%2Fmodules%2Fre-engine-Hooks.git

diff --git a/Hooks.xs b/Hooks.xs
index b312223..99e81d3 100644
--- a/Hooks.xs
+++ b/Hooks.xs
@@ -163,7 +163,7 @@ const struct regexp_engine reh_regexp_engine = {
 #endif
 };
 
-/* --- Private API --------------------------------------------------------- */
+/* --- Internal regexp structure -> hook list inside-out mapping ----------- */
 
 typedef struct {
  size_t            count;
@@ -251,6 +251,8 @@ STATIC void reh_private_map_delete(pTHX_ void *ri) {
  return;
 }
 
+/* --- Private API --------------------------------------------------------- */
+
 void reh_call_comp_begin_hook(pTHX_ regexp *rx) {
  SV *hint = reh_hint();
 
@@ -298,12 +300,12 @@ void reh_call_comp_begin_hook(pTHX_ regexp *rx) {
  }
 }
 
-void reh_call_comp_hook(pTHX_ regexp *rx, regnode *node) {
- REH_PRIVATE_MAP_FOREACH(cbs->comp(aTHX_ rx, node));
+void reh_call_comp_node_hook(pTHX_ regexp *rx, regnode *node) {
+ REH_PRIVATE_MAP_FOREACH(cbs->comp_node(aTHX_ rx, node));
 }
 
-void reh_call_exec_hook(pTHX_ regexp *rx, regnode *node, regmatch_info *reginfo, regmatch_state *st) {
- REH_PRIVATE_MAP_FOREACH(cbs->exec(aTHX_ rx, node, reginfo, st));
+void reh_call_exec_node_hook(pTHX_ regexp *rx, regnode *node, regmatch_info *reginfo, regmatch_state *st) {
+ REH_PRIVATE_MAP_FOREACH(cbs->exec_node(aTHX_ rx, node, reginfo, st));
 }
 
 void reh_re_free(pTHX_ REGEXP * const RX) {