X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.fnc;h=d5014c49c90bebf202317c6b79a88c022318deb1;hb=2977d345acaba2d25f549b813e6f840a0d225b16;hp=2c4bb513983f9298ba3f44f6f551f69f152d43d2;hpb=5db06880675667a071aa923bc110c33a81cc6d8a;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.fnc b/embed.fnc index 2c4bb51..d5014c4 100644 --- a/embed.fnc +++ b/embed.fnc @@ -180,7 +180,7 @@ p |OP* |vdie |NULLOK const char* pat|NULLOK va_list* args p |OP* |die_where |NULLOK const char* message|STRLEN msglen Ap |void |dounwind |I32 cxix 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 +p |bool |do_aexec5 |NULLOK SV* really|NN SV** mark|NN SV** sp|int fd|int do_report 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 @@ -198,7 +198,7 @@ Ap |int |do_spawn |NN char* cmd Ap |int |do_spawn_nowait|NN char* cmd #endif #if !defined(WIN32) -p |bool |do_exec3 |NN const char* cmd|int fd|int flag +p |bool |do_exec3 |NN const char* cmd|int fd|int do_report #endif p |void |do_execfree #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) @@ -1147,7 +1147,7 @@ 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 |bool |looks_like_bool|NN const OP* o s |OP* |newGIVWHENOP |NULLOK OP* cond|NN OP *block \ |I32 enter_opcode|I32 leave_opcode \ |PADOFFSET entertarg @@ -1303,7 +1303,6 @@ Es |I32 |make_trie |NN struct RExC_state_t* state|NN regnode *startbranch \ #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) ERs |I32 |regmatch |NN regnode *prog ERs |I32 |regrepeat |NN const regnode *p|I32 max -ERs |I32 |regrepeat_hard |NN regnode *p|I32 max|NN I32 *lp ERs |I32 |regtry |NN regexp *prog|NN char *startpos ERs |bool |reginclass |NN const regnode *n|NN const U8 *p|NULLOK STRLEN *lenp\ |bool do_utf8sv_is_utf8 @@ -1354,13 +1353,18 @@ s |int |sv_2iuv_non_preserve |NN SV *sv|I32 numtype # endif sR |I32 |expect_number |NN char** pattern # -s |bool |utf8_mg_pos |NN SV *sv|NN MAGIC **mgp|NN STRLEN **cachep \ - |I32 i|NN I32 *offsetp|I32 uoff \ - |NN const U8 **sp|NN const U8 *start \ - |NN const U8 *send -s |bool |utf8_mg_pos_init |NN SV *sv|NN MAGIC **mgp \ - |NN STRLEN **cachep|I32 i|I32 offsetp \ - |NN const U8 *s|NN const U8 *start +s |STRLEN |sv_pos_u2b_forwards|NN const U8 *const start \ + |NN const U8 *const send|STRLEN uoffset +s |STRLEN |sv_pos_u2b_midway|NN const U8 *const start \ + |NN const U8 *const send|STRLEN uoffset|STRLEN uend +s |STRLEN |sv_pos_u2b_cached|NN SV *sv|NN MAGIC **mgp \ + |NN const U8 *const start|NN const U8 *const send \ + |STRLEN uoffset|STRLEN uoffset0|STRLEN boffset0 +s |void |utf8_mg_pos_cache_update|NN SV *sv|NN MAGIC **mgp \ + |STRLEN byte|STRLEN utf8|STRLEN blen +s |STRLEN |sv_pos_b2u_forwards|NN const U8 *s|NN const U8 *const target +s |STRLEN |sv_pos_b2u_midway|NN const U8 *s|NN const U8 *const target \ + |NN const U8 *end|STRLEN endu s |char * |stringify_regexp|NN SV *sv|NN MAGIC *mg|NULLOK STRLEN *lp sn |char * |F0convert |NV nv|NN char *endbuf|NN STRLEN *len # if defined(PERL_OLD_COPY_ON_WRITE) @@ -1401,7 +1405,8 @@ s |char* |scan_word |NN char *s|NN char *dest|STRLEN destlen \ |int allow_package|NN STRLEN *slp 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 |void |checkcomma |NN const 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 @@ -1431,7 +1436,7 @@ s |int |tokereport |I32 rv #endif #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) -s |SV*|isa_lookup |NULLOK HV *stash|NN const char *name|NULLOK HV *name_stash|int len|int level +s |bool|isa_lookup |NULLOK HV *stash|NN const char *name|NULLOK HV *name_stash|int len|int level #endif #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT) @@ -1688,17 +1693,19 @@ Mp |void |pmop_xmldump |NULLOK const PMOP* pm Mp |void |do_op_xmldump |I32 level|NN PerlIO *file|NULLOK const OP *o Mp |void |op_xmldump |NN const OP* arg -Mp |TOKEN* |newTOKEN |I32 optype|YYSTYPE lval|MADPROP* madprop -Mp |void |token_free |TOKEN* arg -Mp |void |token_getmad |TOKEN* arg|OP* o|char slot -Mp |void |op_getmad_weak |OP* from|OP* o|char slot -Mp |void |op_getmad |OP* from|OP* o|char slot -Mp |void |prepend_madprops|MADPROP* mp|OP* o|char slot -Mp |void |append_madprops|MADPROP* tm|OP* o|char slot -Mp |void |addmad |MADPROP* tm|MADPROP** root|char slot -Mp |MADPROP*|newMADsv |char key|SV* sv -Mp |MADPROP*|newMADPROP |char key|char type|void* val|I32 vlen -Mp |void |mad_free |MADPROP* mp +Mp |TOKEN* |newTOKEN |I32 optype|YYSTYPE lval \ + |NULLOK MADPROP* madprop +Mp |void |token_free |NN TOKEN* arg +Mp |void |token_getmad |NN TOKEN* arg|NULLOK OP* o|char slot +Mp |void |op_getmad_weak |NULLOK OP* from|NULLOK OP* o|char slot +Mp |void |op_getmad |NULLOK OP* from|NULLOK OP* o|char slot +Mp |void |prepend_madprops|NULLOK MADPROP* mp|NULLOK OP* o|char slot +Mp |void |append_madprops|NULLOK MADPROP* tm|NULLOK OP* o|char slot +Mp |void |addmad |NULLOK MADPROP* tm|NULLOK MADPROP** root \ + |char slot +Mp |MADPROP*|newMADsv |char key|NN SV* sv +Mp |MADPROP*|newMADPROP |char key|char type|NULLOK void* val|I32 vlen +Mp |void |mad_free |NULLOK MADPROP* mp # if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) s |char* |skipspace0 |NN char *s @@ -1708,6 +1715,7 @@ s |void |start_force |int where s |void |curmad |char slot|NULLOK SV *sv # endif Mp |int |madlex +Mp |int |madparse #endif END_EXTERN_C