Attach the callbacks to every regexps in a thread-safe way

[perl/modules/re-engine-Hooks.git] / re_defs.h

diff --git a/re_defs.h b/re_defs.h
index 23c83a11116344f0dfd154e2e54ad805c0e549ac..f9510b8d216e01e820ef4b02ad618b2caaf4f0fc 100644 (file)
--- a/re_defs.h
+++ b/re_defs.h
@@ -1,6 +1,8 @@
+EXTERN_C void reh_call_comp_begin_hook(pTHX_ regexp *);
 EXTERN_C void reh_call_comp_hook(pTHX_ regexp *, regnode *);
 EXTERN_C void reh_call_exec_hook(pTHX_ regexp *, regnode *, regmatch_info *, regmatch_state *);
 
+#define REH_CALL_COMP_BEGIN_HOOK(a)       reh_call_comp_begin_hook(aTHX_ (a))
 #define REH_CALL_REGCOMP_HOOK(a, b)       reh_call_comp_hook(aTHX_ (a), (b))
 #define REH_CALL_REGEXEC_HOOK(a, b, c, d) reh_call_exec_hook(aTHX_ (a), (b), (c), (d))