/*
		 * This file was generated automatically by ExtUtils::ParseXS version 2.10 from the
		 * contents of re.xs. Do not edit this file, edit re.xs instead.
		 *
		 *	ANY CHANGES MADE HERE WILL BE LOST! 
		 *
		 */
		
		#line 1 "re.xs"
		#if defined(PERL_EXT_RE_DEBUG) && !defined(DEBUGGING)
		#  define DEBUGGING
		#endif
		
		#define PERL_NO_GET_CONTEXT
		#include "EXTERN.h"
		#include "perl.h"
		#include "XSUB.h"
		
		START_EXTERN_C
		
		extern regexp*	my_regcomp (pTHX_ char* exp, char* xend, PMOP* pm);
		extern I32	my_regexec (pTHX_ regexp* prog, char* stringarg, char* strend,
					    char* strbeg, I32 minend, SV* screamer,
					    void* data, U32 flags);
		extern void	my_regfree (pTHX_ struct regexp* r);
		extern char*	my_re_intuit_start (pTHX_ regexp *prog, SV *sv, char *strpos,
						    char *strend, U32 flags,
						    struct re_scream_pos_data_s *data);
		extern SV*	my_re_intuit_string (pTHX_ regexp *prog);
		
		END_EXTERN_C
		
		#define MY_CXT_KEY "re::_guts" XS_VERSION
		
		typedef struct {
		    int		x_oldflag;		/* debug flag */
		} my_cxt_t;
		
		START_MY_CXT
		
		#define oldflag		(MY_CXT.x_oldflag)
		
		static void
		uninstall(pTHX)
		{
		    dMY_CXT;
		    PL_regexecp = Perl_regexec_flags;
		    PL_regcompp = Perl_pregcomp;
		    PL_regint_start = Perl_re_intuit_start;
		    PL_regint_string = Perl_re_intuit_string;
		    PL_regfree = Perl_pregfree;
		
		    if (!oldflag)
			PL_debug &= ~DEBUG_r_FLAG;
		}
		
		static void
		install(pTHX)
		{
		    dMY_CXT;
		    PL_colorset = 0;			/* Allow reinspection of ENV. */
		    PL_regexecp = &my_regexec;
		    PL_regcompp = &my_regcomp;
		    PL_regint_start = &my_re_intuit_start;
		    PL_regint_string = &my_re_intuit_string;
		    PL_regfree = &my_regfree;
		    oldflag = PL_debug & DEBUG_r_FLAG;
		    PL_debug |= DEBUG_r_FLAG;
		}
		
		#ifndef PERL_UNUSED_VAR
		#  define PERL_UNUSED_VAR(var) if (0) var = var
		#endif
		
		#line 76 "re.c"
		
		XS(XS_re_install); /* prototype to pass -Wmissing-prototypes */
		XS(XS_re_install)
      ######    {
      ######        dXSARGS;
      ######        if (items != 0)
      ######    	Perl_croak(aTHX_ "Usage: re::install()");
      ######        PERL_UNUSED_VAR(cv); /* -W */
		    {
		#line 73 "re.xs"
		    install(aTHX);
		#line 88 "re.c"
		    }
      ######        XSRETURN_EMPTY;
		}
		
		
		XS(XS_re_uninstall); /* prototype to pass -Wmissing-prototypes */
		XS(XS_re_uninstall)
      ######    {
      ######        dXSARGS;
      ######        if (items != 0)
      ######    	Perl_croak(aTHX_ "Usage: re::uninstall()");
      ######        PERL_UNUSED_VAR(cv); /* -W */
		    {
		#line 78 "re.xs"
		    uninstall(aTHX);
		#line 104 "re.c"
		    }
      ######        XSRETURN_EMPTY;
		}
		
		#ifdef __cplusplus
		extern "C"
		#endif
		XS(boot_re); /* prototype to pass -Wmissing-prototypes */
		XS(boot_re)
         118    {
         118        dXSARGS;
         118        char* file = __FILE__;
		
         118        PERL_UNUSED_VAR(cv); /* -W */
         118        PERL_UNUSED_VAR(items); /* -W */
         118        XS_VERSION_BOOTCHECK ;
		
         118            newXS("re::install", XS_re_install, file);
         118            newXS("re::uninstall", XS_re_uninstall, file);
		
		    /* Initialisation Section */
		
		#line 65 "re.xs"
		{
		   MY_CXT_INIT;
		}
		
		#line 132 "re.c"
		
		    /* End of Initialisation Section */
		
         118        XSRETURN_YES;
		}