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