This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
e9a9cab5bcd1bb93efeece4ee0a6e5fe12f3fe87
[perl5.git] / ext / re / re.xs
1 /* We need access to debugger hooks */
2 #ifndef DEBUGGING
3 #  define DEBUGGING
4 #endif
5
6 #define PERL_NO_GET_CONTEXT
7 #include "EXTERN.h"
8 #include "perl.h"
9 #include "XSUB.h"
10
11 extern regexp*  my_regcomp (pTHX_ char* exp, char* xend, PMOP* pm);
12 extern I32      my_regexec (pTHX_ regexp* prog, char* stringarg, char* strend,
13                             char* strbeg, I32 minend, SV* screamer,
14                             void* data, U32 flags);
15 extern void     my_regfree (pTHX_ struct regexp* r);
16 extern char*    my_re_intuit_start (pTHX_ regexp *prog, SV *sv, char *strpos,
17                                     char *strend, U32 flags,
18                                     struct re_scream_pos_data_s *data);
19 extern SV*      my_re_intuit_string (pTHX_ regexp *prog);
20
21 static int oldfl;
22
23 static void
24 deinstall(pTHX)
25 {
26     PL_regexecp = Perl_regexec_flags;
27     PL_regcompp = Perl_pregcomp;
28     PL_regint_start = Perl_re_intuit_start;
29     PL_regint_string = Perl_re_intuit_string;
30     PL_regfree = Perl_pregfree;
31
32     if (!oldfl)
33         PL_debug &= ~DEBUG_r_FLAG;
34 }
35
36 static void
37 install(pTHX)
38 {
39     PL_colorset = 0;                    /* Allow reinspection of ENV. */
40     PL_regexecp = &my_regexec;
41     PL_regcompp = &my_regcomp;
42     PL_regint_start = &my_re_intuit_start;
43     PL_regint_string = &my_re_intuit_string;
44     PL_regfree = &my_regfree;
45     oldfl = PL_debug & DEBUG_r_FLAG;
46     PL_debug |= DEBUG_r_FLAG;
47 }
48
49 MODULE = re     PACKAGE = re
50
51 void
52 install()
53   CODE:
54     install(aTHX);
55
56 void
57 deinstall()
58   CODE:
59     deinstall(aTHX);