diff options
author | Karl Williamson <khw@cpan.org> | 2020-02-12 21:07:27 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-02-19 22:09:48 -0700 |
commit | 616fc31e65dc89ae8ee8ef31a8ca5451d35f9577 (patch) | |
tree | 4134e3ec2c8931e14e69fdd77669227c362129b7 /proto.h | |
parent | 60d8e2bf61eb07095157b2e3164e614e0b0dc4b3 (diff) | |
download | perl-616fc31e65dc89ae8ee8ef31a8ca5451d35f9577.tar.gz |
regcomp.c: Add wrappers for cmplng/xctng wildcard subpatterns
This is in preparation for being called from more than one place.
It has the salubrious effect that the wrapping we do around the user's
supplied pattern is no longer visible in the Debug output of that
pattern.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -4256,6 +4256,14 @@ PERL_STATIC_INLINE UV* S__invlist_array_init(SV* const invlist, const bool will_ assert(invlist) #endif +STATIC REGEXP* S_compile_wildcard(pTHX_ const char * name, const STRLEN len, const bool ignore_case) + __attribute__warn_unused_result__; +#define PERL_ARGS_ASSERT_COMPILE_WILDCARD \ + assert(name) + +STATIC I32 S_execute_wildcard(pTHX_ REGEXP * const prog, char* stringarg, char* strend, char* strbeg, SSize_t minend, SV* screamer, U32 nosave); +#define PERL_ARGS_ASSERT_EXECUTE_WILDCARD \ + assert(prog); assert(stringarg); assert(strend); assert(strbeg); assert(screamer) #ifndef PERL_NO_INLINE_FUNCTIONS PERL_STATIC_INLINE IV* S_get_invlist_previous_index_addr(SV* invlist) __attribute__warn_unused_result__; |