diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2007-05-01 23:58:44 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-03 16:04:13 +0000 |
| commit | 2fdbfb4d61a8af78322ced14c20952a7b3b5761a (patch) | |
| tree | a16d75433a82aa96548a78f6a4ac72c35407ef8a /regexp.h | |
| parent | b37a2be91b1cd1281f2d8e07198077524e9e18c5 (diff) | |
| download | perl-2fdbfb4d61a8af78322ced14c20952a7b3b5761a.tar.gz | |
FETCH/STORE/LENGTH callbacks for numbered capture variables
From: "Ævar Arnfjörð Bjarmason" <avarab@gmail.com>
Message-ID: <51dd1af80705011658g1156e14cw4d2b21a8d772ed41@mail.gmail.com>
p4raw-id: //depot/perl@31130
Diffstat (limited to 'regexp.h')
| -rw-r--r-- | regexp.h | 14 |
1 files changed, 9 insertions, 5 deletions
@@ -121,14 +121,18 @@ typedef struct regexp_engine { re_scream_pos_data *data); SV* (*checkstr) (pTHX_ REGEXP * const rx); void (*free) (pTHX_ REGEXP * const rx); - void (*numbered_buff_get) (pTHX_ REGEXP * const rx, - const I32 paren, SV * const usesv); - SV* (*named_buff_get)(pTHX_ REGEXP * const rx, SV * const namesv, - const U32 flags); + void (*numbered_buff_FETCH) (pTHX_ REGEXP * const rx, const I32 paren, + SV * const sv); + void (*numbered_buff_STORE) (pTHX_ REGEXP * const rx, const I32 paren, + SV const * const value); + I32 (*numbered_buff_LENGTH) (pTHX_ REGEXP * const rx, const SV * const sv, + const I32 paren); + SV* (*named_buff_FETCH) (pTHX_ REGEXP * const rx, SV * const key, + const U32 flags); SV* (*qr_package)(pTHX_ REGEXP * const rx); #ifdef USE_ITHREADS void* (*dupe) (pTHX_ REGEXP * const rx, CLONE_PARAMS *param); -#endif +#endif } regexp_engine; /* Flags stored in regexp->extflags |