X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1620d8059f41c65bdf4dbde03f1b3c0d4cf41233..7a945bf519e3f6ca4358df6fa1eb29479fdb148f:/embed.fnc?ds=sidebyside diff --git a/embed.fnc b/embed.fnc index bbaaaa6..159f26c 100644 --- a/embed.fnc +++ b/embed.fnc @@ -310,7 +310,7 @@ ApdR |SV* |gv_const_sv |NN GV* gv ApdR |SV* |cv_const_sv |NULLOK const CV *const cv pR |SV* |cv_const_sv_or_av|NULLOK const CV *const cv : Used in pad.c -pR |SV* |op_const_sv |NULLOK const OP* o +pR |SV* |op_const_sv |NULLOK const OP* o|NULLOK CV* cv Apd |void |cv_undef |NN CV* cv p |void |cv_forget_slab |NN CV *cv Ap |void |cx_dump |NN PERL_CONTEXT* cx @@ -394,10 +394,25 @@ Apmb |bool |do_open |NN GV* gv|NN const char* name|I32 len|int as_raw \ Ap |bool |do_open9 |NN GV *gv|NN const char *name|I32 len|int as_raw \ |int rawmode|int rawperm|NULLOK PerlIO *supplied_fp \ |NN SV *svs|I32 num +#if defined(PERL_IN_DOIO_C) +s |IO * |openn_setup |NN GV *gv|NN char *mode|NN PerlIO **saveifp \ + |NN PerlIO **saveofp|NN int *savefd \ + |NN char *savetype +s |bool |openn_cleanup |NN GV *gv|NN IO *io|NULLOK PerlIO *fp \ + |NN char *mode|NN const char *oname \ + |NULLOK PerlIO *saveifp|NULLOK PerlIO *saveofp \ + |int savefd|char savetype|int writing \ + |bool was_fdopen|NULLOK const char *type +#endif Ap |bool |do_openn |NN GV *gv|NN const char *oname|I32 len \ |int as_raw|int rawmode|int rawperm \ |NULLOK PerlIO *supplied_fp|NULLOK SV **svp \ |I32 num +Mp |bool |do_open_raw |NN GV *gv|NN const char *oname|STRLEN len \ + |int rawmode|int rawperm +Mp |bool |do_open6 |NN GV *gv|NN const char *oname|STRLEN len \ + |NULLOK PerlIO *supplied_fp|NULLOK SV **svp \ + |U32 num : Used in pp_hot.c and pp_sys.c p |bool |do_print |NULLOK SV* sv|NN PerlIO* fp : Used in pp_sys.c @@ -435,6 +450,7 @@ Apd |void |fbm_compile |NN SV* sv|U32 flags ApdR |char* |fbm_instr |NN unsigned char* big|NN unsigned char* bigend \ |NN SV* littlestr|U32 flags p |CV * |find_lexical_cv|PADOFFSET off +pR |OP * |parse_subsignature : Defined in util.c, used only in perl.c p |char* |find_script |NN const char *scriptname|bool dosearch \ |NULLOK const char *const *const search_ext|I32 flags @@ -617,6 +633,7 @@ pR |OP* |invert |NULLOK OP* cmd ApR |I32 |is_lvalue_sub : Used in cop.h XopR |I32 |was_lvalue_sub +iRn |STRLEN |_is_utf8_char_slow|NN const U8 *s|NN const U8 *e ADMpPR |U32 |to_uni_upper_lc|U32 c ADMpPR |U32 |to_uni_title_lc|U32 c ADMpPR |U32 |to_uni_lower_lc|U32 c @@ -637,8 +654,8 @@ ADMpPR |bool |is_uni_punct |UV c ADMpPR |bool |is_uni_xdigit |UV c AMp |UV |to_uni_upper |UV c|NN U8 *p|NN STRLEN *lenp AMp |UV |to_uni_title |UV c|NN U8 *p|NN STRLEN *lenp -iDMPR |bool |isIDFIRST_lazy |NN const char* p -iDMPR |bool |isALNUM_lazy |NN const char* p +ADMpPR |bool |isIDFIRST_lazy |NN const char* p +ADMpPR |bool |isALNUM_lazy |NN const char* p #ifdef PERL_IN_UTF8_C sR |U8 |to_lower_latin1|const U8 c|NULLOK U8 *p|NULLOK STRLEN *lenp #endif @@ -650,7 +667,7 @@ p |UV |_to_upper_title_latin1|const U8 c|NN U8 *p|NN STRLEN *lenp|const char S_o #endif AMp |UV |to_uni_lower |UV c|NN U8 *p|NN STRLEN *lenp AMmp |UV |to_uni_fold |UV c|NN U8 *p|NN STRLEN *lenp -AMp |UV |_to_uni_fold_flags|UV c|NN U8 *p|NN STRLEN *lenp|const U8 flags +AMp |UV |_to_uni_fold_flags|UV c|NN U8 *p|NN STRLEN *lenp|U8 flags ADMpPR |bool |is_uni_alnum_lc|UV c ADMpPR |bool |is_uni_alnumc_lc|UV c ADMpPR |bool |is_uni_idfirst_lc|UV c @@ -670,7 +687,7 @@ ADMpPR |bool |is_uni_punct_lc|UV c ADMpPR |bool |is_uni_xdigit_lc|UV c Anpd |bool |is_ascii_string|NN const U8 *s|STRLEN len AnpdD |STRLEN |is_utf8_char |NN const U8 *s -Anpd |STRLEN |is_utf8_char_buf|NN const U8 *buf|NN const U8 *buf_end +Abmnpd |STRLEN |is_utf8_char_buf|NN const U8 *buf|NN const U8 *buf_end Anpd |bool |is_utf8_string |NN const U8 *s|STRLEN len Anpdmb |bool |is_utf8_string_loc|NN const U8 *s|STRLEN len|NULLOK const U8 **ep Anpd |bool |is_utf8_string_loclen|NN const U8 *s|STRLEN len|NULLOK const U8 **ep|NULLOK STRLEN *el @@ -680,6 +697,10 @@ ADMpR |bool |is_utf8_alnum |NN const U8 *p ADMpR |bool |is_utf8_alnumc |NN const U8 *p ADMpR |bool |is_utf8_idfirst|NN const U8 *p ADMpR |bool |is_utf8_xidfirst|NN const U8 *p +AMpR |bool |_is_utf8_idcont|NN const U8 *p +AMpR |bool |_is_utf8_idstart|NN const U8 *p +AMpR |bool |_is_utf8_xidcont|NN const U8 *p +AMpR |bool |_is_utf8_xidstart|NN const U8 *p AMpR |bool |_is_utf8_perl_idcont|NN const U8 *p AMpR |bool |_is_utf8_perl_idstart|NN const U8 *p ADMpR |bool |is_utf8_idcont |NN const U8 *p @@ -734,7 +755,7 @@ AMpd |SV* |parse_label |U32 flags AMpd |OP* |parse_fullstmt |U32 flags AMpd |OP* |parse_stmtseq |U32 flags : Used in various files -Ap |void |op_null |NN OP* o +Apd |void |op_null |NN OP* o : FIXME. Used by Data::Alias EXp |void |op_clear |NN OP* o Ap |void |op_refcnt_lock @@ -751,7 +772,7 @@ p |OP* |localize |NN OP *o|I32 lex ApdR |I32 |looks_like_number|NN SV *const sv Apd |UV |grok_bin |NN const char* start|NN STRLEN* len_p|NN I32* flags|NULLOK NV *result #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_TOKE_C) -EMsR |char |grok_bslash_c |const char source|const bool utf8|const bool output_warning +EMsR |char |grok_bslash_c |const char source|const bool output_warning EMsR |bool |grok_bslash_o |NN char** s|NN UV* uv \ |NN const char** error_msg \ |const bool output_warning \ @@ -1015,7 +1036,7 @@ Apd |int |vcmp |NN SV *lhv|NN SV *rhv p |PerlIO*|nextargv |NN GV* gv AnpP |char* |ninstr |NN const char* big|NN const char* bigend \ |NN const char* little|NN const char* lend -Ap |void |op_free |NULLOK OP* arg +Apd |void |op_free |NULLOK OP* arg Mp |OP* |op_unscope |NULLOK OP* o #ifdef PERL_CORE p |void |opslab_free |NN OPSLAB *slab @@ -1068,6 +1089,11 @@ ApdO |AV* |get_av |NN const char *name|I32 flags ApdO |HV* |get_hv |NN const char *name|I32 flags ApdO |CV* |get_cv |NN const char* name|I32 flags Apd |CV* |get_cvn_flags |NN const char* name|STRLEN len|I32 flags +#ifdef WIN32 +ApPM |char* |my_setlocale |int category|NULLOK const char* locale +#else +AmPM |char* |my_setlocale |int category|NULLOK const char* locale +#endif ApOM |int |init_i18nl10n |int printwarn ApOM |int |init_i18nl14n |int printwarn ApOM |void |new_collate |NULLOK const char* newcoll @@ -1161,7 +1187,7 @@ EXp |I32|reg_numbered_buff_length|NN REGEXP * const rx|NN const SV * const sv|co EXp |SV*|reg_qr_package|NN REGEXP * const rx : FIXME - why the E? -Ep |void |regprop |NULLOK const regexp *prog|NN SV* sv|NN const regnode* o +Ep |void |regprop |NULLOK const regexp *prog|NN SV* sv|NN const regnode* o|NULLOK const regmatch_info *reginfo Anp |void |repeatcpy |NN char* to|NN const char* from|I32 len|IV count AnpP |char* |rninstr |NN const char* big|NN const char* bigend \ |NN const char* little|NN const char* lend @@ -1502,6 +1528,14 @@ EXpMR |IV |_invlist_search |NN SV* const invlist|const UV cp EXMpR |SV* |_get_swash_invlist|NN SV* const swash EXMpR |HV* |_swash_inversion_hash |NN SV* const swash #endif +#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) +ApM |SV* |_get_regclass_nonbitmap_data \ + |NULLOK const regexp *prog \ + |NN const struct regnode *node|bool doinit \ + |NULLOK SV **listsvp \ + |NULLOK SV **lonly_utf8_locale +EXp |void|_load_PL_utf8_foldclosures| +#endif #if defined(PERL_IN_REGCOMP_C) || defined (PERL_IN_DUMP_C) EXMp |void |_invlist_dump |NN PerlIO *file|I32 level \ |NN const char* const indent \ @@ -1512,13 +1546,17 @@ Ap |void |taint_proper |NULLOK const char* f|NN const char *const s Apd |UV |to_utf8_case |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp \ |NN SV **swashp|NN const char *normal|NULLOK const char *special Abmd |UV |to_utf8_lower |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp -AMp |UV |_to_utf8_lower_flags |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp|const bool flags|NULLOK bool* tainted_ptr +AMp |UV |_to_utf8_lower_flags |NN const U8 *p|NN U8* ustrp \ + |NULLOK STRLEN *lenp|bool flags Abmd |UV |to_utf8_upper |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp -AMp |UV |_to_utf8_upper_flags |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp|const bool flags|NULLOK bool* tainted_ptr +AMp |UV |_to_utf8_upper_flags |NN const U8 *p|NN U8* ustrp \ + |NULLOK STRLEN *lenp|bool flags Abmd |UV |to_utf8_title |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp -AMp |UV |_to_utf8_title_flags |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp|const bool flags|NULLOK bool* tainted_ptr +AMp |UV |_to_utf8_title_flags |NN const U8 *p|NN U8* ustrp \ + |NULLOK STRLEN *lenp|bool flags Abmd |UV |to_utf8_fold |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp -AMp |UV |_to_utf8_fold_flags|NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp|U8 flags|NULLOK bool* tainted_ptr +AMp |UV |_to_utf8_fold_flags|NN const U8 *p|NN U8* ustrp \ + |NULLOK STRLEN *lenp|U8 flags #if defined(PERL_IN_MG_C) || defined(PERL_IN_PP_C) p |bool |translate_substr_offsets|STRLEN curlen|IV pos1_iv \ |bool pos1_is_uv|IV len_iv \ @@ -1611,6 +1649,9 @@ Ap |I32 |whichsig_pv |NN const char* sig Ap |I32 |whichsig_pvn |NN const char* sig|STRLEN len : used to check for NULs in pathnames and other names AiR |bool |is_safe_syscall|NN const char *pv|STRLEN len|NN const char *what|NN const char *op_name +#ifdef PERL_CORE +inR |bool |should_warn_nl|NN const char *pv +#endif : Used in pp_ctl.c p |void |write_to_stderr|NN SV* msv : Used in op.c @@ -1823,6 +1864,7 @@ sR |HEK* |share_hek_flags|NN const char *str|I32 len|U32 hash|int flags rs |void |hv_notallowed |int flags|NN const char *key|I32 klen|NN const char *msg in |U32|ptr_hash|PTRV u s |struct xpvhv_aux*|hv_auxinit|NN HV *hv +sn |struct xpvhv_aux*|hv_auxinit_internal|NN struct xpvhv_aux *iter sM |SV* |hv_delete_common|NULLOK HV *hv|NULLOK SV *keysv \ |NULLOK const char *key|STRLEN klen|int k_flags|I32 d_flags \ |U32 hash @@ -1853,6 +1895,7 @@ sR |OP* |newDEFSVOP sR |OP* |search_const |NN OP *o sR |OP* |new_logop |I32 type|I32 flags|NN OP **firstp|NN OP **otherp s |void |simplify_sort |NN OP *o +s |void |null_listop_in_list_context |NN OP* o s |SV* |gv_ename |NN GV *gv sRn |bool |scalar_mod_type|NULLOK const OP *o|I32 type s |OP * |my_kid |NULLOK OP *o|NULLOK OP *attrs|NN OP **imopsp @@ -1999,7 +2042,7 @@ s |void |qsortsvu |NULLOK SV** array|size_t num_elts|NN SVCOMPARE_t compare #endif #if defined(PERL_IN_PP_SYS_C) -s |OP* |doform |NN CV *cv|NN GV *gv|NN OP *retop +s |OP* |doform |NN CV *cv|NN GV *gv|NULLOK OP *retop # if !defined(HAS_MKDIR) || !defined(HAS_RMDIR) sR |int |dooneliner |NN const char *cmd|NN const char *filename # endif @@ -2018,12 +2061,13 @@ Es |regnode*|regatom |NN RExC_state_t *pRExC_state \ |NN I32 *flagp|U32 depth Es |regnode*|regbranch |NN RExC_state_t *pRExC_state \ |NN I32 *flagp|I32 first|U32 depth -Es |STRLEN |reguni |NN const RExC_state_t *pRExC_state \ +Ei |STRLEN |reguni |NN const RExC_state_t *pRExC_state \ |UV uv|NN char *s Es |void |set_ANYOF_arg |NN RExC_state_t* const pRExC_state \ |NN regnode* const node \ |NULLOK SV* const cp_list \ |NULLOK SV* const runtime_defns \ + |NULLOK SV* const only_utf8_locale_list \ |NULLOK SV* const swash \ |const bool has_user_defined_property Es |regnode*|regclass |NN RExC_state_t *pRExC_state \ @@ -2031,6 +2075,8 @@ Es |regnode*|regclass |NN RExC_state_t *pRExC_state \ |bool allow_multi_fold \ |const bool silence_non_portable \ |NULLOK SV** ret_invlist +Es |void|add_above_Latin1_folds|NN RExC_state_t *pRExC_state|const U8 cp \ + |NN SV** invlist Es |bool|could_it_be_a_POSIX_class|NN RExC_state_t *pRExC_state Es |regnode*|handle_regex_sets|NN RExC_state_t *pRExC_state \ |NULLOK SV ** return_invlist \ @@ -2053,18 +2099,16 @@ Es |SV * |reg_scan_name |NN RExC_state_t *pRExC_state \ |U32 flags Es |U32 |join_exact |NN RExC_state_t *pRExC_state \ |NN regnode *scan|NN UV *min_subtract \ - |NN bool *has_exactf_sharp_s \ + |NN bool *unfolded_multi_char \ |U32 flags|NULLOK regnode *val|U32 depth -EsRn |char * |regwhite |NN RExC_state_t *pRExC_state \ - |NN char *p -EsRn |char * |regpatws |NN RExC_state_t *pRExC_state \ +EsR |char * |regpatws |NN RExC_state_t *pRExC_state \ |NN char *p|const bool recognize_comment Ei |void |alloc_maybe_populate_EXACT|NN RExC_state_t *pRExC_state \ |NN regnode *node|NN I32 *flagp|STRLEN len \ - |UV code_point + |UV code_point|bool downgradable Ei |U8 |compute_EXACTish|NN RExC_state_t *pRExC_state Es |char * |nextchar |NN RExC_state_t *pRExC_state -Es |bool |reg_skipcomment|NN RExC_state_t *pRExC_state +Ei |char * |reg_skipcomment|NN RExC_state_t *pRExC_state|NN char * p Es |void |scan_commit |NN const RExC_state_t *pRExC_state \ |NN struct scan_data_t *data \ |NN SSize_t *minlenp \ @@ -2078,14 +2122,13 @@ EsR |int |ssc_is_cp_posixl_init|NN const RExC_state_t *pRExC_state \ |NN const regnode_ssc *ssc Es |void |ssc_and |NN const RExC_state_t *pRExC_state \ |NN regnode_ssc *ssc \ - |NN const regnode_ssc *and_with -Esn |void |ssc_flags_and |NN regnode_ssc *ssc|const U8 and_with + |NN const regnode_charclass *and_with Es |void |ssc_or |NN const RExC_state_t *pRExC_state \ |NN regnode_ssc *ssc \ - |NN const regnode_ssc *or_with + |NN const regnode_charclass *or_with Es |SV* |get_ANYOF_cp_list_for_ssc \ |NN const RExC_state_t *pRExC_state \ - |NN const regnode_charclass_posixl* const node + |NN const regnode_charclass* const node Ei |void |ssc_intersection|NN regnode_ssc *ssc \ |NN SV* const invlist|const bool invert_2nd Ei |void |ssc_union |NN regnode_ssc *ssc \ @@ -2113,9 +2156,8 @@ Es |I32 |make_trie |NN RExC_state_t *pRExC_state \ |NN regnode *startbranch|NN regnode *first \ |NN regnode *last|NN regnode *tail \ |U32 word_count|U32 flags|U32 depth -Es |void |make_trie_failtable |NN RExC_state_t *pRExC_state \ - |NN regnode *source|NN regnode *stclass \ - |U32 depth +Es |regnode *|construct_ahocorasick_from_trie|NN RExC_state_t *pRExC_state \ + |NN regnode *source|U32 depth # ifdef DEBUGGING Es |void |regdump_intflags|NULLOK const char *lead| const U32 flags Es |void |regdump_extflags|NULLOK const char *lead| const U32 flags @@ -2126,6 +2168,7 @@ Es |const regnode*|dumpuntil|NN const regexp *r|NN const regnode *start \ |NN SV* sv|I32 indent|U32 depth Es |void |put_byte |NN SV* sv|int c Es |bool |put_latin1_charclass_innards|NN SV* sv|NN char* bitmap +Es |void |put_range |NN SV* sv|UV start|UV end Es |void |dump_trie |NN const struct _reg_trie_data *trie\ |NULLOK HV* widecharmap|NN AV *revcharmap\ |U32 depth @@ -2160,13 +2203,8 @@ Es |CHECKPOINT|regcppush |NN const regexp *rex|I32 parenfloor\ Es |void |regcppop |NN regexp *rex\ |NN U32 *maxopenparen_p ERsn |U8* |reghop3 |NN U8 *s|SSize_t off|NN const U8 *lim -ERsM |SV* |core_regclass_swash|NULLOK const regexp *prog \ - |NN const struct regnode *node|bool doinit \ - |NULLOK SV **listsvp -#ifdef XXX_dmq ERsn |U8* |reghop4 |NN U8 *s|SSize_t off|NN const U8 *llim \ |NN const U8 *rlim -#endif ERsn |U8* |reghopmaybe3 |NN U8 *s|SSize_t off|NN const U8 *lim ERs |char* |find_byclass |NN regexp * prog|NN const regnode *c \ |NN char *s|NN const char *strend \ @@ -2215,9 +2253,7 @@ pX |void |sv_del_backref |NN SV *const tsv|NN SV *const sv #if defined(PERL_IN_SV_C) nsR |char * |uiv_2buf |NN char *const buf|const IV iv|UV uv|const int is_uv|NN char **const peob i |void |sv_unglob |NN SV *const sv|U32 flags -s |const char *|sv_display |NN SV *const sv|NN char *tmpbuf|STRLEN tmpbuf_size s |void |not_a_number |NN SV *const sv -s |void |not_incrementable |NN SV *const sv s |I32 |visit |NN SVFUNC_t f|const U32 flags|const U32 mask # ifdef DEBUGGING s |void |del_sv |NN SV *p @@ -2361,10 +2397,12 @@ sn |NV|mulexp10 |NV value|I32 exponent #endif #if defined(PERL_IN_UTF8_C) -iRn |STRLEN |is_utf8_char_slow|NN const U8 *s|const STRLEN len sRM |UV |check_locale_boundary_crossing|NN const U8* const p|const UV result|NN U8* const ustrp|NN STRLEN *lenp iR |bool |is_utf8_common |NN const U8 *const p|NN SV **swash|NN const char * const swashname|NULLOK SV* const invlist sR |SV* |swatch_get |NN SV* swash|UV start|UV span +sRM |U8* |swash_scan_list_line|NN U8* l|NN U8* const lend|NN UV* min \ + |NN UV* max|NN UV* val|const bool wants_value \ + |NN const U8* const typestr #endif AiMn |void |append_utf8_from_native_byte|const U8 byte|NN U8** dest