diff options
author | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
---|---|---|
committer | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
commit | f56e05005c751822074f0a22aa9a98d2eb189924 (patch) | |
tree | e28fc632241c9d248069d45dd9ab2a41fa64868f /contrib/perl5/ext/re/re.xs | |
parent | 344ddc14973a1519f100f54051dcb068069fe43c (diff) | |
download | FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.zip FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.tar.gz |
Perl is no longer in base. Long live the port!
Diffstat (limited to 'contrib/perl5/ext/re/re.xs')
-rw-r--r-- | contrib/perl5/ext/re/re.xs | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/contrib/perl5/ext/re/re.xs b/contrib/perl5/ext/re/re.xs deleted file mode 100644 index 25c2a90..0000000 --- a/contrib/perl5/ext/re/re.xs +++ /dev/null @@ -1,61 +0,0 @@ -/* We need access to debugger hooks */ -#ifndef DEBUGGING -# define DEBUGGING -#endif - -#define PERL_NO_GET_CONTEXT -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" - -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); - -static int oldfl; - -#define R_DB 512 - -static void -deinstall(pTHX) -{ - 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 (!oldfl) - PL_debug &= ~R_DB; -} - -static void -install(pTHX) -{ - 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; - oldfl = PL_debug & R_DB; - PL_debug |= R_DB; -} - -MODULE = re PACKAGE = re - -void -install() - CODE: - install(aTHX); - -void -deinstall() - CODE: - deinstall(aTHX); |