1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
/* need to replace pregcomp et al, so enable that */
#ifndef PERL_IN_XSUB_RE
# define PERL_IN_XSUB_RE
#endif
/* need access to debugger hooks */
#if defined(PERL_EXT_RE_DEBUG) && !defined(DEBUGGING)
# define DEBUGGING
# define DEBUGGING_RE_ONLY
#endif
/* We *really* need to overwrite these symbols: */
#define Perl_regexec_flags my_regexec
#define Perl_regdump my_regdump
#define Perl_regprop my_regprop
#define Perl_re_intuit_start my_re_intuit_start
#define Perl_re_compile my_re_compile
#define Perl_re_op_compile my_re_op_compile
#define Perl_regfree_internal my_regfree
#define Perl_re_intuit_string my_re_intuit_string
#define Perl_regdupe_internal my_regdupe
#define Perl_reg_numbered_buff_fetch my_reg_numbered_buff_fetch
#define Perl_reg_numbered_buff_store my_reg_numbered_buff_store
#define Perl_reg_numbered_buff_length my_reg_numbered_buff_length
#define Perl_reg_named_buff my_reg_named_buff
#define Perl_reg_named_buff_iter my_reg_named_buff_iter
#define Perl_reg_named_buff_fetch my_reg_named_buff_fetch
#define Perl_reg_named_buff_exists my_reg_named_buff_exists
#define Perl_reg_named_buff_firstkey my_reg_named_buff_firstkey
#define Perl_reg_named_buff_nextkey my_reg_named_buff_nextkey
#define Perl_reg_named_buff_scalar my_reg_named_buff_scalar
#define Perl_reg_named_buff_all my_reg_named_buff_all
#define Perl_reg_qr_package my_reg_qr_package
/* We override these names because currently under static builds
* we end up with confusion between the normal regex engine and
* the debugging one. Ideally this problem should be solved in
* another way, but for now this should prevent debugging mode
* code being called from non-debugging codepaths. I suspect that
* this being needed is a symptom of something else deeper being
* wrong, but for now this seems to resolve the problem.
*
* Without these defines at least one pattern in t/op/split.t will
* fail when perl is built with -Uusedl. */
#define Perl_study_chunk my_study_chunk
#define Perl_scan_commit my_scan_commit
#define Perl_ssc_init my_ssc_init
#define Perl_join_exact my_join_exact
#define Perl_make_trie my_make_trie
#define Perl_construct_ahocorasick_from_trie my_construct_ahocorasick_from_trie
#define Perl_make_trie my_make_trie
#define PERL_NO_GET_CONTEXT
/*
* ex: set ts=8 sts=4 sw=4 et:
*/
|
