ext/re/re.xs

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3 #include "XSUB.h"
   4
   5 extern regexp*  my_regcomp _((char* exp, char* xend, PMOP* pm));
   6 extern I32      my_regexec _((regexp* prog, char* stringarg, char* strend,
   7                               char* strbeg, I32 minend, SV* screamer,
   8                               void* data, U32 flags));
   9
  10 static int oldfl;
  11
  12 #define R_DB 512
  13
  14 static void
  15 deinstall(void)
  16 {
  17     regexecp = &regexec_flags;
  18     regcompp = &pregcomp;
  19     if (!oldfl)
  20         debug &= ~R_DB;
  21 }
  22
  23 static void
  24 install(void)
  25 {
  26     regexecp = &my_regexec;
  27     regcompp = &my_regcomp;
  28     oldfl = debug & R_DB;
  29     debug |= R_DB;
  30 }
  31
  32 MODULE = re     PACKAGE = re
  33
  34 void
  35 install()
  36
  37 void
  38 deinstall()