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