2 # define REH_HAS_PERL(R, V, S) (PERL_REVISION > (R) || (PERL_REVISION == (R) && (PERL_VERSION > (V) || (PERL_VERSION == (V) && (PERL_SUBVERSION >= (S))))))
5 EXTERN_C void reh_save_re_context(pTHX);
6 EXTERN_C regnode *reh_regnext(pTHX_ register regnode *);
7 #if REH_HAS_PERL(5, 11, 0)
8 EXTERN_C REGEXP *reh_pregcomp(pTHX_ SV * const, const U32);
10 EXTERN_C REGEXP *reh_pregcomp(pTHX_ const SV * const, const U32);
12 #if REH_HAS_PERL(5, 11, 2)
13 EXTERN_C REGEXP *reh_reg_temp_copy(pTHX_ REGEXP *, REGEXP *);
15 EXTERN_C REGEXP *reh_reg_temp_copy(pTHX_ REGEXP *);
17 #if REH_HAS_PERL(5, 15, 7)
18 EXTERN_C SV *reh__invlist_contents(pTHX_ SV* const);
21 EXTERN_C const struct regexp_engine reh_regexp_engine;
23 EXTERN_C void reh_call_comp_begin_hook(pTHX_ regexp *);
24 EXTERN_C void reh_call_comp_node_hook(pTHX_ regexp *, regnode *);
25 EXTERN_C void reh_call_exec_node_hook(pTHX_ regexp *, regnode *, regmatch_info *, regmatch_state *);
27 #define REH_CALL_COMP_BEGIN_HOOK(a) reh_call_comp_begin_hook(aTHX_ (a))
28 #define REH_CALL_COMP_NODE_HOOK(a, b) reh_call_comp_node_hook(aTHX_ (a), (b))
29 #define REH_CALL_EXEC_NODE_HOOK(a, b, c, d) reh_call_exec_node_hook(aTHX_ (a), (b), (c), (d))