toke.c: Allow \N{} handling fcn to be used elsewhere in core

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index a976e8c..517bcb5 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2736,6 +2736,10 @@ s        |void   |anonymise_cv_maybe     |NN GV *gv|NN CV *cv
 : Used in sv.c and hv.c
 po     |void * |more_bodies    |const svtype sv_type|const size_t body_size \
                                |const size_t arena_size
 : Used in sv.c and hv.c
 po     |void * |more_bodies    |const svtype sv_type|const size_t body_size \
                                |const size_t arena_size

+EXpR   |SV*    |get_and_check_backslash_N_name|NN const char* s        \
+                               |NN const char* const e                 \
+                               |const bool is_utf8                     \
+                               |NN const char** error_msg

 
 #if defined(PERL_IN_TOKE_C)
 s      |void   |check_uni
 
 #if defined(PERL_IN_TOKE_C)
 s      |void   |check_uni


@@ -2746,9 +2750,6 @@ s |char*  |force_word     |NN char *start|int token|int check_keyword \
                                |int allow_pack
 s      |SV*    |tokeq          |NN SV *sv
 sR     |char*  |scan_const     |NN char *start
                                |int allow_pack
 s      |SV*    |tokeq          |NN SV *sv
 sR     |char*  |scan_const     |NN char *start

-sR     |SV*    |get_and_check_backslash_N_name|NN const char* s \
-                               |NN const char* const e          \
-                               |NN const char** error_msg

 sR     |SV*    |get_and_check_backslash_N_name_wrapper|NN const char* s \
                                |NN const char* const e
 sR     |char*  |scan_formline  |NN char *s
 sR     |SV*    |get_and_check_backslash_N_name_wrapper|NN const char* s \
                                |NN const char* const e
 sR     |char*  |scan_formline  |NN char *s