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);