1 #if defined(PERL_EXT_RE_DEBUG) && !defined(DEBUGGING)
5 #define PERL_NO_GET_CONTEXT
13 extern regexp* my_regcomp (pTHX_ char* exp, char* xend, PMOP* pm);
14 extern I32 my_regexec (pTHX_ regexp* prog, char* stringarg, char* strend,
15 char* strbeg, I32 minend, SV* screamer,
16 void* data, U32 flags);
17 extern void my_regfree (pTHX_ struct regexp* r);
18 extern char* my_re_intuit_start (pTHX_ regexp *prog, SV *sv, char *strpos,
19 char *strend, U32 flags,
20 struct re_scream_pos_data_s *data);
21 extern SV* my_re_intuit_string (pTHX_ regexp *prog);
23 #if defined(USE_ITHREADS)
24 extern regexp* my_regdupe (pTHX_ const regexp *r, CLONE_PARAMS *param);
27 EXTERN_C const struct regexp_engine my_reg_engine = {
33 #if defined(USE_ITHREADS)
40 MODULE = re PACKAGE = re
45 PL_colorset = 0; /* Allow reinspection of ENV. */
46 /* PL_debug |= DEBUG_r_FLAG; */
47 XPUSHs(sv_2mortal(newSViv(PTR2IV(&my_reg_engine))));