X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.fnc;h=4d91c30c8f3cfad401da0795ebcea93a43dd25c4;hb=17fda5459df9207789e2c93a13c6057a90cf1f93;hp=c8f96ecdc9be134311c946486964e0993e57ad98;hpb=639f6c3d60ee2ae4935616e7c47c2288c4dd637d;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.fnc b/embed.fnc index c8f96ec..4d91c30 100644 --- a/embed.fnc +++ b/embed.fnc @@ -113,13 +113,13 @@ Apd |void |av_undef |NULLOK AV* ar Apd |void |av_unshift |NULLOK AV* ar|I32 num Apo |SV** |av_arylen_p |NN AV* av pR |OP* |bind_match |I32 type|NN OP* left|NN OP* pat -pR |OP* |block_end |I32 floor|NN OP* seq +pR |OP* |block_end |I32 floor|NULLOK OP* seq ApR |I32 |block_gimme pR |int |block_start |int full p |void |boot_core_UNIVERSAL p |void |boot_core_PerlIO Ap |void |call_list |I32 oldscope|NN AV* av_list -pR |bool |cando |Mode_t mode|Uid_t effective|NN const Stat_t* statbufp +pR |bool |cando |Mode_t mode|bool effective|NN const Stat_t* statbufp ApR |U32 |cast_ulong |NV f ApR |I32 |cast_i32 |NV f ApR |IV |cast_iv |NV f @@ -128,7 +128,8 @@ ApR |UV |cast_uv |NV f ApR |I32 |my_chsize |int fd|Off_t length #endif pR |OP* |convert |I32 optype|I32 flags|NULLOK OP* o -Afprd |void |croak |NN const char* pat|... +: croak()'s first parm can be NULL. Otherwise, mod_perl breaks. +Afprd |void |croak |NULLOK const char* pat|... Apr |void |vcroak |NN const char* pat|NULLOK va_list* args #if defined(PERL_IMPLICIT_CONTEXT) Afnrp |void |croak_nocontext|NN const char* pat|... @@ -149,6 +150,7 @@ Afnp |int |printf_nocontext|NN const char* fmt|... #endif p |void |cv_ckproto |NN const CV* cv|NULLOK const GV* gv|NULLOK const char* p pd |CV* |cv_clone |NN CV* proto +ApdR |SV* |gv_const_sv |NN GV* gv ApdR |SV* |cv_const_sv |NULLOK CV* cv pR |SV* |op_const_sv |NULLOK const OP* o|NULLOK CV* cv Apd |void |cv_undef |NN CV* cv @@ -174,16 +176,22 @@ p |void |deprecate |NN const char* s p |void |deprecate_old |NN const char* s Afp |OP* |die |NULLOK const char* pat|... p |OP* |vdie |NULLOK const char* pat|NULLOK va_list* args -p |OP* |die_where |NN const char* message|STRLEN msglen +p |OP* |die_where |NULLOK const char* message|STRLEN msglen Ap |void |dounwind |I32 cxix -p |bool |do_aexec |NULLOK SV* really|NN SV** mark|NN SV** sp +pmb |bool |do_aexec |NULLOK SV* really|NN SV** mark|NN SV** sp p |bool |do_aexec5 |NULLOK SV* really|NN SV** mark|NN SV** sp|int fd|int flag Ap |int |do_binmode |NN PerlIO *fp|int iotype|int mode p |void |do_chop |NN SV* asv|NN SV* sv Ap |bool |do_close |NN GV* gv|bool not_implicit p |bool |do_eof |NN GV* gv + +#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION +pmb |bool |do_exec |NN const char* cmd +#else p |bool |do_exec |NN const char* cmd -#if defined(WIN32) || defined(SYMBIAN) +#endif + +#if defined(WIN32) || defined(__SYMBIAN32__) Ap |int |do_aspawn |NN SV* really|NN SV** mark|NN SV** sp Ap |int |do_spawn |NN char* cmd Ap |int |do_spawn_nowait|NN char* cmd @@ -202,7 +210,7 @@ p |I32 |do_shmio |I32 optype|NN SV** mark|NN SV** sp #endif Ap |void |do_join |NN SV* sv|NN SV* del|NN SV** mark|NN SV** sp p |OP* |do_kv -Ap |bool |do_open |NN GV* gv|NN const char* name|I32 len|int as_raw \ +Apmb |bool |do_open |NN GV* gv|NN const char* name|I32 len|int as_raw \ |int rawmode|int rawperm|NULLOK PerlIO* supplied_fp Ap |bool |do_open9 |NN GV *gv|NN const char *name|I32 len|int as_raw \ |int rawmode|int rawperm|NULLOK PerlIO *supplied_fp \ @@ -262,7 +270,7 @@ Ap |void |gv_efullname4 |NN SV* sv|NN const GV* gv|NULLOK const char* prefix|boo Ap |GV* |gv_fetchfile |NN const char* name Apd |GV* |gv_fetchmeth |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level Apd |GV* |gv_fetchmeth_autoload |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level -Apd |GV* |gv_fetchmethod |NULLOK HV* stash|NN const char* name +Apdmb |GV* |gv_fetchmethod |NULLOK HV* stash|NN const char* name Apd |GV* |gv_fetchmethod_autoload|NULLOK HV* stash|NN const char* name|I32 autoload Ap |GV* |gv_fetchpv |NN const char* name|I32 add|I32 sv_type Ap |void |gv_fullname |NN SV* sv|NN const GV* gv @@ -284,12 +292,12 @@ Ap |void |hv_free_ent |NN HV* hv|NULLOK HE* entryK Apd |I32 |hv_iterinit |NN HV* tb ApdR |char* |hv_iterkey |NN HE* entry|NN I32* retlen ApdR |SV* |hv_iterkeysv |NN HE* entry -ApdR |HE* |hv_iternext |NN HV* tb +ApdRbm |HE* |hv_iternext |NN HV* tb ApdR |SV* |hv_iternextsv |NN HV* hv|NN char** key|NN I32* retlen ApMdR |HE* |hv_iternext_flags|NN HV* tb|I32 flags ApdR |SV* |hv_iterval |NN HV* tb|NN HE* entry Ap |void |hv_ksplit |NN HV* hv|IV newmax -Apd |void |hv_magic |NN HV* hv|NULLOK GV* gv|int how +Apdbm |void |hv_magic |NN HV* hv|NULLOK GV* gv|int how Apd |SV** |hv_store |NULLOK HV* tb|NULLOK const char* key|I32 klen|NULLOK SV* val \ |U32 hash Apd |HE* |hv_store_ent |NULLOK HV* tb|NULLOK SV* key|NULLOK SV* val|U32 hash @@ -300,14 +308,14 @@ ApP |I32 |ibcmp |NN const char* a|NN const char* b|I32 len ApP |I32 |ibcmp_locale |NN const char* a|NN const char* b|I32 len Apd |I32 |ibcmp_utf8 |NN const char* a|NULLOK char **pe1|UV l1|bool u1 \ |NN const char* b|NULLOK char **pe2|UV l2|bool u2 -pR |bool |ingroup |Gid_t testgid|Uid_t effective +pR |bool |ingroup |Gid_t testgid|bool effective p |void |init_argv_symbols|int argc|NN char **argv p |void |init_debugger Ap |void |init_stacks Ap |void |init_tm |NN struct tm *ptm pd |U32 |intro_my ApPR |char* |instr |NN const char* big|NN const char* little -pR |bool |io_close |NN IO* io|bool not_implicit +p |bool |io_close |NN IO* io|bool not_implicit pR |OP* |invert |NULLOK OP* cmd dpR |bool |is_gv_magical |NN const char *name|STRLEN len|U32 flags ApR |I32 |is_lvalue_sub @@ -348,7 +356,7 @@ ApPR |bool |is_uni_punct_lc|UV c ApPR |bool |is_uni_xdigit_lc|UV c Apd |STRLEN |is_utf8_char |NN const U8 *p Apd |bool |is_utf8_string |NN const U8 *s|STRLEN len -Apd |bool |is_utf8_string_loc|NN const U8 *s|STRLEN len|NULLOK const U8 **p +Apdmb |bool |is_utf8_string_loc|NN const U8 *s|STRLEN len|NULLOK const U8 **p Apd |bool |is_utf8_string_loclen|NN const U8 *s|STRLEN len|NULLOK const U8 **ep|NULLOK STRLEN *el ApR |bool |is_utf8_alnum |NN const U8 *p ApR |bool |is_utf8_alnumc |NN const U8 *p @@ -446,6 +454,7 @@ Afp |SV* |mess |NN const char* pat|... Ap |SV* |vmess |NN const char* pat|NULLOK va_list* args p |void |qerror |NN SV* err Apd |void |sortsv |NN SV** array|size_t num_elts|SVCOMPARE_t cmp +Apd |void |sortsv_flags |NN SV** array|size_t num_elts|SVCOMPARE_t cmp|U32 flags Apd |int |mg_clear |NN SV* sv Apd |int |mg_copy |NN SV* sv|NN SV* nsv|NULLOK const char* key|I32 klen pd |void |mg_localize |NN SV* sv|NN SV* nsv @@ -502,6 +511,7 @@ Apd |CV* |newCONSTSUB |NULLOK HV* stash|NULLOK const char* name|NULLOK SV* sv Ap |void |newFORM |I32 floor|NULLOK OP* o|NULLOK OP* block Apa |OP* |newFOROP |I32 flags|NULLOK char* label|line_t forline \ |NULLOK OP* sv|NN OP* expr|NULLOK OP* block|NULLOK OP* cont +Apa |OP* |newGIVENOP |NN OP* cond|NN OP* block|PADOFFSET defsv_off Apa |OP* |newLOGOP |I32 optype|I32 flags|NN OP* left|NN OP* right Apa |OP* |newLOOPEX |I32 type|NN OP* label Apa |OP* |newLOOPOP |I32 flags|I32 debuggable|NULLOK OP* expr|NULLOK OP* block @@ -512,7 +522,7 @@ Apa |OP* |newRANGE |I32 flags|NN OP* left|NN OP* right Apa |OP* |newSLICEOP |I32 flags|NULLOK OP* subscript|NULLOK OP* listop Apa |OP* |newSTATEOP |I32 flags|NULLOK char* label|NULLOK OP* o Ap |CV* |newSUB |I32 floor|NULLOK OP* o|NULLOK OP* proto|NULLOK OP* block -Apd |CV* |newXS |NN const char* name|NN XSUBADDR_t f|NN const char* filename +Apd |CV* |newXS |NULLOK const char* name|NN XSUBADDR_t f|NN const char* filename Apda |AV* |newAV Apa |OP* |newAVREF |NN OP* o Apa |OP* |newBINOP |I32 type|I32 flags|NULLOK OP* first|NULLOK OP* last @@ -545,6 +555,7 @@ Apa |SV* |vnewSVpvf |NN const char* pat|NULLOK va_list* args Apda |SV* |newSVrv |NN SV* rv|NULLOK const char* classname Apda |SV* |newSVsv |NULLOK SV* old Apa |OP* |newUNOP |I32 type|I32 flags|NULLOK OP* first +Apa |OP* |newWHENOP |NULLOK OP* cond|NN OP* block Apa |OP* |newWHILEOP |I32 flags|I32 debuggable|NULLOK LOOP* loop \ |I32 whileline|NULLOK OP* expr|NULLOK OP* block|NULLOK OP* cont \ |I32 has_my @@ -562,7 +573,7 @@ p |PerlIO*|nextargv |NN GV* gv ApP |char* |ninstr |NN const char* big|NN const char* bigend \ |NN const char* little|NN const char* lend pr |OP* |oopsCV |NN OP* o -Ap |void |op_free |NN OP* arg +Ap |void |op_free |NULLOK OP* arg p |void |package |NN OP* o pd |PADOFFSET|pad_alloc |I32 optype|U32 tmptype p |PADOFFSET|allocmy |NN char* name @@ -589,6 +600,7 @@ Apd |I32 |call_method |NN const char* methname|I32 flags Apd |I32 |call_pv |NN const char* sub_name|I32 flags Apd |I32 |call_sv |NN SV* sv|I32 flags Ap |void |despatch_signals +Ap |OP * |doref |NN OP *o|I32 type|bool set_op_ref Apd |SV* |eval_pv |NN const char* p|I32 croak_on_error Apd |I32 |eval_sv |NN SV* sv|I32 flags Apd |SV* |get_sv |NN const char* name|I32 create @@ -607,14 +619,16 @@ Apd |void |require_pv |NN const char* pv Apd |void |pack_cat |NN SV *cat|NN const char *pat|NN const char *patend \ |NN SV **beglist|NN SV **endlist|NN SV ***next_in_list|U32 flags Apd |void |packlist |NN SV *cat|NN const char *pat|NN const char *patend|NN SV **beglist|NN SV **endlist +#ifdef PERL_USES_PL_PIDSTATUS p |void |pidgone |Pid_t pid|int status +#endif Ap |void |pmflag |NN U32* pmfl|int ch p |OP* |pmruntime |NN OP* pm|NN OP* expr|bool isreg p |OP* |pmtrans |NN OP* o|NN OP* expr|NN OP* repl Ap |void |pop_scope p |OP* |prepend_elem |I32 optype|NULLOK OP* head|NULLOK OP* tail Ap |void |push_scope -p |OP* |ref |NULLOK OP* o|I32 type +Amb |OP* |ref |NULLOK OP* o|I32 type p |OP* |refkids |NULLOK OP* o|I32 type Ap |void |regdump |NN regexp* r Ap |SV* |regclass_swash |NN const struct regnode *n|bool doinit|NULLOK SV **listsvp|NULLOK SV **altsvp @@ -659,7 +673,7 @@ Ap |void |save_bool |NN bool* boolp Ap |void |save_clearsv |NN SV** svp Ap |void |save_delete |NN HV* hv|NN char* key|I32 klen Ap |void |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|NN void* p -Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|NN void* p +Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|NULLOK void* p Ap |void |save_freesv |NULLOK SV* sv p |void |save_freeop |NULLOK OP* o Ap |void |save_freepv |NULLOK char* pv @@ -714,15 +728,15 @@ Anp |Signal_t |csighandler |int sig|... np |Signal_t |sighandler |int sig Anp |Signal_t |csighandler |int sig #endif -Ap |SV** |stack_grow |NN SV** sp|NN SV**p|int n -ApR |I32 |start_subparse |I32 is_format|U32 flags +Ap |SV** |stack_grow |NN SV** sp|NN SV** p|int n +Ap |I32 |start_subparse |I32 is_format|U32 flags p |void |sub_crush_depth|NN CV* cv Apd |bool |sv_2bool |NN SV* sv Apd |CV* |sv_2cv |NULLOK SV* sv|NN HV** st|NN GV** gvp|I32 lref Apd |IO* |sv_2io |NN SV* sv Amb |IV |sv_2iv |NN SV* sv Apd |IV |sv_2iv_flags |NN SV* sv|I32 flags -Apd |SV* |sv_2mortal |NN SV* sv +Apd |SV* |sv_2mortal |NULLOK SV* sv Apd |NV |sv_2nv |NN SV* sv Amb |char* |sv_2pv |NN SV* sv|NULLOK STRLEN* lp Apd |char* |sv_2pv_flags |NN SV* sv|NULLOK STRLEN* lp|I32 flags @@ -760,7 +774,7 @@ Apd |int |getcwd_sv |NN SV* sv Apd |void |sv_dec |NN SV* sv Ap |void |sv_dump |NN SV* sv ApdR |bool |sv_derived_from|NN SV* sv|NN const char* name -Apd |I32 |sv_eq |NN SV* sv1|NN SV* sv2 +Apd |I32 |sv_eq |NULLOK SV* sv1|NULLOK SV* sv2 Apd |void |sv_free |NULLOK SV* sv poMX |void |sv_free2 |NN SV* sv pd |void |sv_free_arenas @@ -807,10 +821,10 @@ Apd |SV* |sv_setref_pvn |NN SV* rv|NULLOK const char* classname|NN const char* p Apd |void |sv_setpv |NN SV* sv|NULLOK const char* ptr Apd |void |sv_setpvn |NN SV* sv|NULLOK const char* ptr|STRLEN len Amdb |void |sv_setsv |NN SV* dsv|NULLOK SV* ssv -Apd |void |sv_taint |NN SV* sv +Amdb |void |sv_taint |NN SV* sv ApdR |bool |sv_tainted |NN SV* sv Apd |int |sv_unmagic |NN SV* sv|int type -Apd |void |sv_unref |NN SV* sv +Apdmb |void |sv_unref |NN SV* sv Apd |void |sv_unref_flags |NN SV* sv|U32 flags Apd |void |sv_untaint |NN SV* sv Apd |void |sv_upgrade |NN SV* sv|U32 mt @@ -823,7 +837,7 @@ Apd |void |sv_vsetpvfn |NN SV* sv|NN const char* pat|STRLEN patlen \ |NULLOK bool *maybe_tainted ApR |NV |str_to_version |NN SV *sv Ap |SV* |swash_init |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none -Ap |UV |swash_fetch |NN SV *sv|NN const U8 *ptr|bool do_utf8 +Ap |UV |swash_fetch |NN SV *swash|NN const U8 *ptr|bool do_utf8 Ap |void |taint_env Ap |void |taint_proper |NULLOK const char* f|NN const char* s Apd |UV |to_utf8_case |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp \ @@ -853,10 +867,22 @@ ApMd |U8* |bytes_from_utf8|NN const U8 *s|NN STRLEN *len|NULLOK bool *is_utf8 ApMd |U8* |bytes_to_utf8 |NN const U8 *s|NN STRLEN *len Apd |UV |utf8_to_uvchr |NN const U8 *s|NULLOK STRLEN *retlen Apd |UV |utf8_to_uvuni |NN const U8 *s|NULLOK STRLEN *retlen + +#ifdef EBCDIC Adp |UV |utf8n_to_uvchr |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags +#else +Adpbm |UV |utf8n_to_uvchr |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags +#endif + Adp |UV |utf8n_to_uvuni |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags + +#ifdef EBCDIC Apd |U8* |uvchr_to_utf8 |NN U8 *d|UV uv -Ap |U8* |uvuni_to_utf8 |NN U8 *d|UV uv +#else +Apdbm |U8* |uvchr_to_utf8 |NN U8 *d|UV uv +#endif + +Apbm |U8* |uvuni_to_utf8 |NN U8 *d|UV uv Ap |U8* |uvchr_to_utf8_flags |NN U8 *d|UV uv|UV flags Apd |U8* |uvuni_to_utf8_flags |NN U8 *d|UV uv|UV flags Apd |char* |pv_uni_display |NN SV *dsv|NN const U8 *spv|STRLEN len|STRLEN pvlim|UV flags @@ -865,7 +891,7 @@ p |void |vivify_defelem |NN SV* sv p |void |vivify_ref |NN SV* sv|U32 to_what p |I32 |wait4pid |Pid_t pid|NN int* statusp|int flags p |U32 |parse_unicode_opts|NN const char **popt -p |U32 |seed +Ap |U32 |seed pR |UV |get_hash_seed p |void |report_evil_fh |NULLOK const GV *gv|NULLOK const IO *io|I32 op pd |void |report_uninit |NULLOK SV* uninit_sv @@ -898,8 +924,8 @@ Ap |int |runops_debug Afpd |void |sv_catpvf_mg |NN SV *sv|NN const char* pat|... Apd |void |sv_vcatpvf_mg |NN SV* sv|NN const char* pat|NULLOK va_list* args Apd |void |sv_catpv_mg |NN SV *sv|NN const char *ptr -Apd |void |sv_catpvn_mg |NN SV *sv|NN const char *ptr|STRLEN len -Apd |void |sv_catsv_mg |NN SV *dstr|NULLOK SV *sstr +Apdbm |void |sv_catpvn_mg |NN SV *sv|NN const char *ptr|STRLEN len +Apdbm |void |sv_catsv_mg |NN SV *dstr|NULLOK SV *sstr Afpd |void |sv_setpvf_mg |NN SV *sv|NN const char* pat|... Apd |void |sv_vsetpvf_mg |NN SV* sv|NN const char* pat|NULLOK va_list* args Apd |void |sv_setiv_mg |NN SV *sv|IV i @@ -927,9 +953,9 @@ Ap |void |do_sv_dump |I32 level|NN PerlIO *file|NULLOK SV *sv|I32 nest \ |I32 maxnest|bool dumpops|STRLEN pvlim Ap |void |magic_dump |NULLOK const MAGIC *mg Ap |void |reginitcolors -ApdR |char* |sv_2pv_nolen |NN SV* sv -ApdR |char* |sv_2pvutf8_nolen|NN SV* sv -ApdR |char* |sv_2pvbyte_nolen|NN SV* sv +ApdRmb |char* |sv_2pv_nolen |NN SV* sv +ApdRmb |char* |sv_2pvutf8_nolen|NN SV* sv +ApdRmb |char* |sv_2pvbyte_nolen|NN SV* sv AmdbR |char* |sv_pv |NN SV *sv AmdbR |char* |sv_pvutf8 |NN SV *sv AmdbR |char* |sv_pvbyte |NN SV *sv @@ -937,7 +963,7 @@ Amdb |STRLEN |sv_utf8_upgrade|NN SV *sv ApdM |bool |sv_utf8_downgrade|NN SV *sv|bool fail_ok Apd |void |sv_utf8_encode |NN SV *sv ApdM |bool |sv_utf8_decode |NN SV *sv -Apd |void |sv_force_normal|NN SV *sv +Apdmb |void |sv_force_normal|NN SV *sv Apd |void |sv_force_normal_flags|NN SV *sv|U32 flags Ap |void |tmps_grow |I32 n Apd |SV* |sv_rvweaken |NN SV *sv @@ -983,9 +1009,9 @@ ApR |char * |custom_op_desc |NN const OP* op pMX |int |sv_release_IVX |NN SV *sv #endif -Adp |void |sv_nosharing |NULLOK SV * -Adp |void |sv_nolocking |NULLOK SV * -Adp |void |sv_nounlocking |NULLOK SV * +Adp |void |sv_nosharing |NULLOK SV *sv +Adpbm |void |sv_nolocking |NULLOK SV *sv +Adpbm |void |sv_nounlocking |NULLOK SV *sv Adp |int |nothreadhook END_EXTERN_C @@ -1062,6 +1088,7 @@ pR |OP* |ck_return |NN OP *o pR |OP* |ck_rfun |NN OP *o pR |OP* |ck_rvconst |NN OP *o pR |OP* |ck_sassign |NN OP *o +pR |OP* |ck_say |NN OP *o pR |OP* |ck_select |NN OP *o pR |OP* |ck_shift |NN OP *o pR |OP* |ck_sort |NN OP *o @@ -1091,6 +1118,11 @@ s |void |no_bareword_allowed|NN const OP *o sR |OP* |no_fh_allowed|NN OP *o sR |OP* |too_few_arguments|NN OP *o|NN const char* name sR |OP* |too_many_arguments|NN OP *o|NN const char* name +s |bool |looks_like_bool|NN OP* o +s |OP* |newGIVWHENOP |NULLOK OP* cond|NN OP *block \ + |I32 enter_opcode|I32 leave_opcode \ + |PADOFFSET entertarg +s |OP* |ref_array_or_hash|NULLOK OP* cond #endif #if defined(PL_OP_SLAB_ALLOC) Apa |void* |Slab_Alloc |int m|size_t sz @@ -1120,6 +1152,7 @@ s |void* |parse_body |NULLOK char **env|XSINIT_t xsinit rs |void |run_body |I32 oldscope s |void |call_body |NN const OP *myop|bool is_eval s |void* |call_list_body |NN CV *cv +s |SV * |incpush_if_exists|NN SV *dir #endif #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) @@ -1139,6 +1172,7 @@ s |const char *|group_end |NN const char *pat|NN const char *patend|char ender sR |const char *|get_num |NN const char *ppat|NN I32 *lenptr ns |bool |need_utf8 |NN const char *pat|NN const char *patend ns |char |first_symbol |NN const char *pat|NN const char *patend +sR |char * |sv_exp_grow |NN SV *sv|STRLEN needed #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) @@ -1148,14 +1182,22 @@ sR |OP* |dofindlabel |NN OP *o|NN const char *label|NN OP **opstack|NN OP **opli sR |OP* |doparseform |NN SV *sv snR |bool |num_overflow |NV value|I32 fldsize|I32 frcsize sR |I32 |dopoptoeval |I32 startingblock +sR |I32 |dopoptogiven |I32 startingblock sR |I32 |dopoptolabel |NN const char *label sR |I32 |dopoptoloop |I32 startingblock sR |I32 |dopoptosub |I32 startingblock sR |I32 |dopoptosub_at |NN const PERL_CONTEXT* cxstk|I32 startingblock +sR |I32 |dopoptowhen |I32 startingblock s |void |save_lines |NULLOK AV *array|NN SV *sv sR |OP* |doeval |int gimme|NULLOK OP** startop|NULLOK CV* outside|U32 seq +sR |PerlIO *|check_type_and_open|NN const char *name|NN const char *mode sR |PerlIO *|doopen_pm |NN const char *name|NN const char *mode sR |bool |path_is_absolute|NN const char *name +sR |I32 |run_user_filter|int idx|NN SV *buf_sv|int maxlen +sR |PMOP* |make_matcher |NN regexp* re +sR |bool |matcher_matches_sv|NN PMOP* matcher|NN SV* sv +s |void |destroy_matcher|NN PMOP* matcher +s |OP* |do_smartmatch |NULLOK HV* seen_this|NULLOK HV* seen_other #endif #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) @@ -1164,6 +1206,18 @@ sR |CV* |get_db_sub |NN SV **svp|NN CV *cv sR |SV* |method_common |NN SV* meth|NULLOK U32* hashp #endif +#if defined(PERL_IN_PP_SORT_C) || defined(PERL_DECL_PROT) +s |I32 |sv_ncmp |NN SV *a|NN SV *b +s |I32 |sv_i_ncmp |NN SV *a|NN SV *b +s |I32 |amagic_ncmp |NN SV *a|NN SV *b +s |I32 |amagic_i_ncmp |NN SV *a|NN SV *b +s |I32 |amagic_cmp |NN SV *a|NN SV *b +s |I32 |amagic_cmp_locale|NN SV *a|NN SV *b +s |I32 |sortcv |NN SV *a|NN SV *b +s |I32 |sortcv_xsub |NN SV *a|NN SV *b +s |I32 |sortcv_stacked |NN SV *a|NN SV *b +#endif + #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT) s |OP* |doform |NN CV *cv|NN GV *gv|NN OP *retop s |int |emulate_eaccess|NN const char* path|Mode_t mode @@ -1186,30 +1240,30 @@ Es |void |reginsert |NN struct RExC_state_t *state|U8 op|NN regnode *opnd Es |void |regoptail |NN struct RExC_state_t *state|NN regnode *p|NN regnode *val Es |void |regtail |NN struct RExC_state_t *state|NN regnode *p|NN regnode *val Es |char* |regwhite |NN char *p|NN const char *e -Es |char* |nextchar |NN struct RExC_state_t* +Es |char* |nextchar |NN struct RExC_state_t *state # ifdef DEBUGGING Es |regnode*|dumpuntil |NN regnode *start|NN regnode *node \ |NULLOK regnode *last|NN SV* sv|I32 l Es |void |put_byte |NN SV* sv|int c # endif -Es |void |scan_commit |NN struct RExC_state_t*|NN struct scan_data_t *data -Es |void |cl_anything |NN struct RExC_state_t*|NN struct regnode_charclass_class *cl +Es |void |scan_commit |NN struct RExC_state_t* state|NN struct scan_data_t *data +Es |void |cl_anything |NN struct RExC_state_t* state|NN struct regnode_charclass_class *cl Es |int |cl_is_anything |NN const struct regnode_charclass_class *cl -Es |void |cl_init |NN struct RExC_state_t*|NN struct regnode_charclass_class *cl -Es |void |cl_init_zero |NN struct RExC_state_t*|NN struct regnode_charclass_class *cl +Es |void |cl_init |NN struct RExC_state_t* state|NN struct regnode_charclass_class *cl +Es |void |cl_init_zero |NN struct RExC_state_t* state|NN struct regnode_charclass_class *cl Es |void |cl_and |NN struct regnode_charclass_class *cl \ |NN const struct regnode_charclass_class *and_with -Es |void |cl_or |NN struct RExC_state_t*|NN struct regnode_charclass_class *cl \ +Es |void |cl_or |NN struct RExC_state_t* state|NN struct regnode_charclass_class *cl \ |NN const struct regnode_charclass_class *or_with -Es |I32 |study_chunk |NN struct RExC_state_t* pRExC_state|NN regnode **scanp \ +Es |I32 |study_chunk |NN struct RExC_state_t* state|NN regnode **scanp \ |NN I32 *deltap|NN regnode *last|NULLOK struct scan_data_t *data \ |U32 flags|U32 depth -Es |I32 |add_data |NN struct RExC_state_t*|I32 n|NN const char *s +Es |I32 |add_data |NN struct RExC_state_t* state|I32 n|NN const char *s rs |void |re_croak2 |NN const char* pat1|NN const char* pat2|... -Es |I32 |regpposixcc |NN struct RExC_state_t*|I32 value -Es |void |checkposixcc |NN struct RExC_state_t* +Es |I32 |regpposixcc |NN struct RExC_state_t* state|I32 value +Es |void |checkposixcc |NN struct RExC_state_t* state -Es |I32 |make_trie |NN struct RExC_state_t*|NN regnode *startbranch \ +Es |I32 |make_trie |NN struct RExC_state_t* state|NN regnode *startbranch \ |NN regnode *first|NN regnode *last|NN regnode *tail \ |U32 flags #endif @@ -1237,6 +1291,8 @@ Es |void |to_byte_substr |NN regexp * prog #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT) s |CV* |deb_curcv |I32 ix s |void |debprof |NN const OP *o +s |void |sequence |NULLOK const OP *o +s |UV |sequence_num |NULLOK const OP *o #endif #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) @@ -1249,8 +1305,6 @@ po |void |sv_add_backref |NN SV *tsv|NN SV *sv #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) nsR |char * |uiv_2buf |NN char *buf|IV iv|UV uv|int is_uv|NN char **peob -sR |IV |asIV |NN SV* sv -sR |UV |asUV |NN SV* sv s |void |sv_unglob |NN SV* sv s |void |not_a_number |NN SV *sv s |I32 |visit |NN SVFUNC_t f|U32 flags|U32 mask @@ -1300,9 +1354,10 @@ s |char* |scan_word |NN char *s|NN char *dest|STRLEN destlen \ sR |char* |skipspace |NN char *s sR |char* |swallow_bom |NN U8 *s s |void |checkcomma |NN char *s|NN const char *name|NN const char *what +s |bool |feature_is_enabled|NN char* name|STRLEN namelen s |void |force_ident |NN const char *s|int kind s |void |incline |NN char *s -s |int |intuit_method |NN char *s|NN GV *gv +s |int |intuit_method |NN char *s|NULLOK GV *gv|NULLOK CV *cv s |int |intuit_more |NN char *s s |I32 |lop |I32 f|int x|NN char *s rs |void |missingterm |NULLOK char *s @@ -1313,17 +1368,18 @@ sR |I32 |sublex_push sR |I32 |sublex_start sR |char * |filter_gets |NN SV *sv|NN PerlIO *fp|STRLEN append sR |HV * |find_in_my_stash|NN const char *pkgname|I32 len -sR |char * |tokenize_use |int|NN char* +sR |char * |tokenize_use |int is_use|NN char *s s |SV* |new_constant |NULLOK const char *s|STRLEN len|NN const char *key|NN SV *sv \ |NULLOK SV *pv|NULLOK const char *type # if defined(DEBUGGING) -s |int |tokereport |NN const char *s|I32 rv +s |int |tokereport |I32 rv # endif s |int |ao |int toketype s |void |depcom s |const char*|incl_perldb # if defined(PERL_CR_FILTER) s |I32 |cr_textfilter |int idx|NULLOK SV *sv|int maxlen +s |void |strip_return |NN SV *sv # endif #endif @@ -1343,6 +1399,7 @@ s |SV* |mess_alloc s |const char *|vdie_croak_common|NULLOK const char *pat|NULLOK va_list *args \ |NULLOK STRLEN *msglen|NULLOK I32* utf8 s |void |vdie_common |NULLOK const char *message|STRLEN msglen|I32 utf8 +sr |char * |write_no_mem #endif #if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT) @@ -1351,6 +1408,8 @@ sn |NV|mulexp10 |NV value|I32 exponent #if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT) s |STRLEN |is_utf8_char_slow|NN const U8 *s|const STRLEN len +sR |bool |is_utf8_common |NN const U8 *const p|NN SV **swash|NN const char * const swashname +sR |SV* |swash_get |NN SV* swash|UV start|UV span #endif START_EXTERN_C @@ -1414,7 +1473,7 @@ pd |void |pad_tidy |padtidy_type type pd |void |do_dump_pad |I32 level|NN PerlIO *file|NULLOK PADLIST *padlist|int full pd |void |pad_fixup_inner_anons|NN PADLIST *padlist|NN CV *old_cv|NN CV *new_cv -pd |void |pad_push |NN PADLIST *padlist|int depth +pdX |void |pad_push |NN PADLIST *padlist|int depth pR |HV* |pad_compname_type|const PADOFFSET po #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) @@ -1543,6 +1602,12 @@ Apo |bool |ckwarn_d |U32 w p |void |offer_nice_chunk |NN void *chunk|U32 chunk_size +#ifndef SPRINTF_RETURNS_STRLEN +Apnod |int |my_sprintf |NN char *buffer|NN const char *pat|... +#endif + +px |void |my_clearenv + END_EXTERN_C /* * ex: set ts=8 sts=4 sw=4 noet: