diff options
| author | Karl Williamson <khw@cpan.org> | 2019-03-26 21:54:03 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-04-13 16:20:35 -0600 |
| commit | aabfeadc64376a5e473fe2a3fed20fd0d311dca5 (patch) | |
| tree | ab412da71f8f6d2f8938e5a3d13d8f685a44af39 /embed.fnc | |
| parent | 2ec4590ec8255732ec2d163daabd237cdaf886f4 (diff) | |
| download | perl-aabfeadc64376a5e473fe2a3fed20fd0d311dca5.tar.gz | |
Make a few parse fcns accessible to B::Hooks::Parser
This module had made copies of three functions from toke.c many releases
ago, and they stagnated. Most outside code has no business calling
them, but the least worst choice I believe is to make them accessible,
but hide that fact.
This commit makes them accessible to modules that have defined PERL_EXT.
It does not document their API's, and marks them as subject to change,
so they aren't even listed as available in the docs. In other words,
you'd have to really go digging to find out you could use them.
And the API of two of the three had changed since the code was
originally stolen. So that "subject to change" actually has happened.
We should feel free to change the API as needed, and B::Hooks::Parser
will have to be updated.
Thanks to Tony Cook for advising me on this area unfamiliar to me.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -2744,6 +2744,12 @@ EXpR |SV* |get_and_check_backslash_N_name|NN const char* s \ |const bool is_utf8 \ |NN const char** error_msg +EXpMR |char* |scan_str |NN char *start|int keep_quoted \ + |int keep_delims|int re_reparse \ + |NULLOK char **delimp +EXpM |char* |scan_word |NN char *s|NN char *dest|STRLEN destlen \ + |int allow_package|NN STRLEN *slp +EXpMR |char* |skipspace_flags|NN char *s|U32 flags #if defined(PERL_IN_TOKE_C) s |void |check_uni s |void |force_next |I32 type @@ -2761,16 +2767,10 @@ s |char* |scan_ident |NN char *s|NN char *dest \ |STRLEN destlen|I32 ck_uni sR |char* |scan_inputsymbol|NN char *start sR |char* |scan_pat |NN char *start|I32 type -sR |char* |scan_str |NN char *start|int keep_quoted \ - |int keep_delims|int re_reparse \ - |NULLOK char **delimp sR |char* |scan_subst |NN char *start sR |char* |scan_trans |NN char *start -s |char* |scan_word |NN char *s|NN char *dest|STRLEN destlen \ - |int allow_package|NN STRLEN *slp s |void |update_debugger_info|NULLOK SV *orig_sv \ |NULLOK const char *const buf|STRLEN len -sR |char* |skipspace_flags|NN char *s|U32 flags sR |char* |swallow_bom |NN U8 *s #ifndef PERL_NO_UTF16_FILTER s |I32 |utf16_textfilter|int idx|NN SV *sv|int maxlen |