Cross Reference: re.xs
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
re
/
re.xs
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#
if
defined
(
PERL_EXT_RE_DEBUG
) && !
defined
(
DEBUGGING
)
1
N/A
#
define
DEBUGGING
1
N/A
#
endif
1
N/A
1
N/A
#
define
PERL_NO_GET_CONTEXT
1
N/A
#
include
"
EXTERN.h
"
1
N/A
#
include
"
perl.h
"
1
N/A
#
include
"
XSUB.h
"
1
N/A
1
N/A
START_EXTERN_C
1
N/A
1
N/A
extern
regexp
*
my_regcomp
(
pTHX_
char
*
exp
,
char
*
xend
,
PMOP
*
pm
);
1
N/A
extern
I32
my_regexec
(
pTHX_
regexp
*
prog
,
char
*
stringarg
,
char
*
strend
,
1
N/A
char
*
strbeg
,
I32
minend
,
SV
*
screamer
,
1
N/A
void
*
data
,
U32
flags
);
1
N/A
extern
void
my_regfree
(
pTHX_
struct
regexp
* r);
1
N/A
extern
char
*
my_re_intuit_start
(
pTHX_
regexp
*
prog
,
SV
*
sv
,
char
*
strpos
,
1
N/A
char
*
strend
,
U32
flags
,
1
N/A
struct
re_scream_pos_data_s
*
data
);
1
N/A
extern
SV
*
my_re_intuit_string
(
pTHX_
regexp
*
prog
);
1
N/A
1
N/A
END_EXTERN_C
1
N/A
1
N/A
#
define
MY_CXT_KEY
"re::_guts"
XS_VERSION
1
N/A
1
N/A
typedef
struct
{
1
N/A
int
x_oldflag
;
/* debug flag */
1
N/A
}
my_cxt_t
;
1
N/A
1
N/A
START_MY_CXT
1
N/A
1
N/A
#
define
oldflag
(
MY_CXT
.
x_oldflag
)
1
N/A
1
N/A
static
void
1
N/A
uninstall
(
pTHX
)
1
N/A
{
1
N/A
dMY_CXT
;
1
N/A
PL_regexecp
=
Perl_regexec_flags
;
1
N/A
PL_regcompp
=
Perl_pregcomp
;
1
N/A
PL_regint_start
=
Perl_re_intuit_start
;
1
N/A
PL_regint_string
=
Perl_re_intuit_string
;
1
N/A
PL_regfree
=
Perl_pregfree
;
1
N/A
1
N/A
if
(!
oldflag
)
1
N/A
PL_debug
&= ~
DEBUG_r_FLAG
;
1
N/A
}
1
N/A
1
N/A
static
void
1
N/A
install
(
pTHX
)
1
N/A
{
1
N/A
dMY_CXT
;
1
N/A
PL_colorset
= 0;
/* Allow reinspection of ENV. */
1
N/A
PL_regexecp
= &
my_regexec
;
1
N/A
PL_regcompp
= &
my_regcomp
;
1
N/A
PL_regint_start
= &
my_re_intuit_start
;
1
N/A
PL_regint_string
= &
my_re_intuit_string
;
1
N/A
PL_regfree
= &
my_regfree
;
1
N/A
oldflag
=
PL_debug
&
DEBUG_r_FLAG
;
1
N/A
PL_debug
|=
DEBUG_r_FLAG
;
1
N/A
}
1
N/A
1
N/A
MODULE
=
re
PACKAGE
=
re
1
N/A
1
N/A
BOOT
:
1
N/A
{
1
N/A
MY_CXT_INIT
;
1
N/A
}
1
N/A
1
N/A
1
N/A
void
1
N/A
install
()
1
N/A
CODE
:
1
N/A
install
(
aTHX
);
1
N/A
1
N/A
void
1
N/A
uninstall
()
1
N/A
CODE
:
1
N/A
uninstall
(
aTHX
);