ext/re/re.xs

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