diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-09-29 18:57:07 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-09-29 15:05:22 +0000 |
| commit | f2f78491bc610222b437dc1912ed4ab18db55da8 (patch) | |
| tree | 351d9c603d1b0da884b8d0eddf43618684e62344 /perl.h | |
| parent | 8d8756e7e9233ee3d56235e7432a5a3acbe03daf (diff) | |
| download | perl-f2f78491bc610222b437dc1912ed4ab18db55da8.tar.gz | |
Re: [PATCH] Add hook for re_dup() into regex engine as reg_dupe (make re pluggable under threads)
Message-ID: <9b18b3110609290757n62b3484i7bb948f965524191@mail.gmail.com>
p4raw-id: //depot/perl@28902
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -198,19 +198,21 @@ #define CALLREGCOMP(exp, xend, pm) Perl_pregcomp(aTHX_ exp,xend,pm) +#define CALLREGCOMP_ENG(prog, exp, xend, pm) \ + CALL_FPTR(((prog)->comp))(aTHX_ exp, xend, pm) #define CALLREGEXEC(prog,stringarg,strend,strbeg,minend,screamer,data,flags) \ - CALL_FPTR((prog)->engine->regexec)(aTHX_ (prog),(stringarg),(strend), \ + CALL_FPTR((prog)->engine->exec)(aTHX_ (prog),(stringarg),(strend), \ (strbeg),(minend),(screamer),(data),(flags)) #define CALLREG_INTUIT_START(prog,sv,strpos,strend,flags,data) \ - CALL_FPTR((prog)->engine->re_intuit_start)(aTHX_ (prog), (sv), (strpos), \ + CALL_FPTR((prog)->engine->intuit)(aTHX_ (prog), (sv), (strpos), \ (strend),(flags),(data)) #define CALLREG_INTUIT_STRING(prog) \ - CALL_FPTR((prog)->engine->re_intuit_string)(aTHX_ (prog)) + CALL_FPTR((prog)->engine->checkstr)(aTHX_ (prog)) #define CALLREGFREE(prog) \ - if(prog) CALL_FPTR((prog)->engine->regfree)(aTHX_ (prog)) + if(prog) CALL_FPTR((prog)->engine->free)(aTHX_ (prog)) #if defined(USE_ITHREADS) #define CALLREGDUPE(prog,param) \ - (prog ? CALL_FPTR((prog)->engine->regdupe)(aTHX_ (prog),(param)) \ + (prog ? CALL_FPTR((prog)->engine->dupe)(aTHX_ (prog),(param)) \ : (REGEXP *)NULL) #endif |