X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=df537e9535f61f4e1ada100738f22753c827fcf9;hb=c6ecf61fd8db79f1fc1b90463b6c61a4267ab923;hp=8002cd103be8c481a55b07251c33251530a8acbc;hpb=232e078e289220085e912e3d740ae77767611478;p=p5sagit%2Fp5-mst-13.2.git diff --git a/proto.h b/proto.h index 8002cd1..df537e9 100644 --- a/proto.h +++ b/proto.h @@ -30,13 +30,14 @@ void av_unshift _((AV* ar, I32 num)); OP* bind_match _((I32 type, OP* left, OP* pat)); OP* block_end _((int line, int floor, OP* seq)); int block_start _((void)); +void boot_core_UNIVERSAL _((void)); void calllist _((AV* list)); I32 cando _((I32 bit, I32 effective, struct stat* statbufp)); #ifndef CASTNEGFLOAT U32 cast_ulong _((double f)); #endif #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP) -I32 chsize _((int fd, Off_t length)); +I32 my_chsize _((int fd, Off_t length)); #endif OP * ck_gvconst _((OP * o)); OP * ck_retarget _((OP *op)); @@ -45,10 +46,13 @@ char* cpytill _((char* to, char* from, char* fromend, int delim, I32* retlen)); void croak _((char* pat,...)) __attribute__((format(printf,1,2),noreturn)); CV* cv_clone _((CV* proto)); void cv_undef _((CV* cv)); +SV* cv_const_sv _((CV* cv)); #ifdef DEBUGGING void cx_dump _((CONTEXT* cs)); #endif -void cryptswitch_add _((cryptswitch_t funcp)); +SV * filter_add _((filter_t funcp, SV *datasv)); +void filter_del _((filter_t funcp)); +I32 filter_read _((int idx, SV *buffer, int maxlen)); I32 cxinc _((void)); void deb _((char* pat,...)) __attribute__((format(printf,1,2))); void deb_growlevel _((void)); @@ -64,7 +68,7 @@ OP* die_where _((char* message)); void dounwind _((I32 cxix)); bool do_aexec _((SV* really, SV** mark, SV** sp)); void do_chop _((SV* asv, SV* sv)); -bool do_close _((GV* gv, bool explicit)); +bool do_close _((GV* gv, bool not_implicit)); bool do_eof _((GV* gv)); bool do_exec _((char* cmd)); void do_execfree _((void)); @@ -78,9 +82,10 @@ OP* do_kv _((void)); I32 do_msgrcv _((SV** mark, SV** sp)); I32 do_msgsnd _((SV** mark, SV** sp)); #endif -bool do_open _((GV* gv, char* name, I32 len, FILE* supplied_fp)); +bool do_open _((GV* gv, char* name, I32 len, + int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)); void do_pipe _((SV* sv, GV* rgv, GV* wgv)); -bool do_print _((SV* sv, FILE* fp)); +bool do_print _((SV* sv, PerlIO* fp)); OP * do_readline _((void)); I32 do_chomp _((SV* sv)); bool do_seek _((GV* gv, long pos, int whence)); @@ -93,6 +98,7 @@ long do_tell _((GV* gv)); I32 do_trans _((SV* sv, OP* arg)); void do_vecset _((SV* sv)); void do_vop _((I32 optype, SV* sv, SV* left, SV* right)); +I32 dowantarray _((void)); void dump_all _((void)); void dump_eval _((void)); #ifdef DUMP_FDS /* See util.c */ @@ -100,6 +106,9 @@ int dump_fds _((char* s)); #endif void dump_form _((GV* gv)); void dump_gv _((GV* gv)); +#ifdef MYMALLOC +void dump_mstats _((char* s)); +#endif void dump_op _((OP* arg)); void dump_pm _((PMOP* pm)); void dump_packsubs _((HV* stash)); @@ -116,33 +125,40 @@ GV* gv_AVadd _((GV* gv)); GV* gv_HVadd _((GV* gv)); GV* gv_IOadd _((GV* gv)); void gv_check _((HV* stash)); -void gv_efullname _((SV* sv, GV* gv)); +void gv_efullname _((SV *sv, GV *gv, char *prefix)); GV* gv_fetchfile _((char* name)); GV* gv_fetchmeth _((HV* stash, char* name, STRLEN len, I32 level)); GV* gv_fetchmethod _((HV* stash, char* name)); GV* gv_fetchpv _((char* name, I32 add, I32 sv_type)); -void gv_fullname _((SV* sv, GV* gv)); +void gv_fullname _((SV *sv, GV *gv, char *prefix)); void gv_init _((GV *gv, HV *stash, char *name, STRLEN len, int multi)); HV* gv_stashpv _((char* name, I32 create)); +HV* gv_stashpvn _((char* name, U32 namelen, I32 create)); HV* gv_stashsv _((SV* sv, I32 create)); -void he_delayfree _((HE* hent)); -void he_free _((HE* hent)); +void he_delayfree _((HE* hent, I32 shared)); +void he_free _((HE* hent, I32 shared)); void hoistmust _((PMOP* pm)); void hv_clear _((HV* tb)); SV* hv_delete _((HV* tb, char* key, U32 klen, I32 flags)); +SV* hv_delete_ent _((HV* tb, SV* key, I32 flags, U32 hash)); bool hv_exists _((HV* tb, char* key, U32 klen)); +bool hv_exists_ent _((HV* tb, SV* key, U32 hash)); SV** hv_fetch _((HV* tb, char* key, U32 klen, I32 lval)); +HE* hv_fetch_ent _((HV* tb, SV* key, I32 lval, U32 hash)); I32 hv_iterinit _((HV* tb)); char* hv_iterkey _((HE* entry, I32* retlen)); +SV* hv_iterkeysv _((HE* entry)); HE* hv_iternext _((HV* tb)); -SV * hv_iternextsv _((HV* hv, char** key, I32* retlen)); +SV* hv_iternextsv _((HV* hv, char** key, I32* retlen)); SV* hv_iterval _((HV* tb, HE* entry)); void hv_magic _((HV* hv, GV* gv, int how)); SV** hv_store _((HV* tb, char* key, U32 klen, SV* val, U32 hash)); +HE* hv_store_ent _((HV* tb, SV* key, SV* val, U32 hash)); void hv_undef _((HV* tb)); I32 ibcmp _((U8* a, U8* b, I32 len)); I32 ingroup _((I32 testgid, I32 effective)); char* instr _((char* big, char* little)); +bool io_close _((IO* io)); OP* invert _((OP* cmd)); OP* jmaybe _((OP* arg)); I32 keyword _((char* d, I32 len)); @@ -156,12 +172,14 @@ OP* localize _((OP* arg, I32 lexical)); I32 looks_like_number _((SV* sv)); int magic_clearenv _((SV* sv, MAGIC* mg)); int magic_clearpack _((SV* sv, MAGIC* mg)); +int magic_clearsig _((SV* sv, MAGIC* mg)); int magic_existspack _((SV* sv, MAGIC* mg)); int magic_get _((SV* sv, MAGIC* mg)); int magic_getarylen _((SV* sv, MAGIC* mg)); int magic_getpack _((SV* sv, MAGIC* mg)); int magic_getglob _((SV* sv, MAGIC* mg)); int magic_getpos _((SV* sv, MAGIC* mg)); +int magic_getsig _((SV* sv, MAGIC* mg)); int magic_gettaint _((SV* sv, MAGIC* mg)); int magic_getuvar _((SV* sv, MAGIC* mg)); U32 magic_len _((SV* sv, MAGIC* mg)); @@ -187,13 +205,19 @@ int magic_setvec _((SV* sv, MAGIC* mg)); int magic_wipepack _((SV* sv, MAGIC* mg)); void magicname _((char* sym, char* name, I32 namlen)); int main _((int argc, char** argv, char** env)); -#ifndef STANDARD_C +#if !defined(STANDARD_C) Malloc_t malloc _((MEM_SIZE nbytes)); #endif +#if defined(MYMALLOC) && defined(HIDEMYMALLOC) +extern Malloc_t malloc _((MEM_SIZE nbytes)); +extern Malloc_t realloc _((Malloc_t, MEM_SIZE)); +extern Free_t free _((Malloc_t)); +extern Malloc_t calloc _((MEM_SIZE, MEM_SIZE)); +#endif void markstack_grow _((void)); char* mess _((char* pat, va_list* args)); int mg_clear _((SV* sv)); -int mg_copy _((SV *, SV *, char *, STRLEN)); +int mg_copy _((SV *, SV *, char *, I32)); MAGIC* mg_find _((SV* sv, int type)); int mg_free _((SV* sv)); int mg_get _((SV* sv)); @@ -202,9 +226,6 @@ void mg_magical _((SV* sv)); int mg_set _((SV* sv)); OP* mod _((OP* op, I32 type)); char* moreswitches _((char* s)); -#ifdef MSTATS -void mstats _((char* s)); -#endif OP * my _(( OP *)); char* my_bcopy _((char* from, char* to, I32 len)); #if !defined(HAS_BZERO) && !defined(HAS_MEMSET) @@ -215,8 +236,8 @@ I32 my_lstat _((void)); #ifndef HAS_MEMCMP I32 my_memcmp _((unsigned char* s1, unsigned char* s2, I32 len)); #endif -I32 my_pclose _((FILE* ptr)); -FILE* my_popen _((char* cmd, char* mode)); +I32 my_pclose _((PerlIO* ptr)); +PerlIO* my_popen _((char* cmd, char* mode)); void my_setenv _((char* nam, char* val)); I32 my_stat _((void)); #ifdef MYSWAP @@ -227,7 +248,7 @@ long my_ntohl _((long l)); void my_unexec _((void)); OP* newANONLIST _((OP* op)); OP* newANONHASH _((OP* op)); -OP* newANONSUB _((I32 floor, OP* block)); +OP* newANONSUB _((I32 floor, OP* proto, OP* block)); OP* newASSIGNOP _((I32 flags, OP* left, I32 optype, OP* right)); OP* newCONDOP _((I32 flags, OP* expr, OP* trueop, OP* falseop)); void newFORM _((I32 floor, OP* op, OP* block)); @@ -235,14 +256,13 @@ OP* newFOROP _((I32 flags, char* label, line_t forline, OP* scalar, OP* expr, OP OP* newLOGOP _((I32 optype, I32 flags, OP* left, OP* right)); OP* newLOOPEX _((I32 type, OP* label)); OP* newLOOPOP _((I32 flags, I32 debuggable, OP* expr, OP* block)); -OP* newMETHOD _((OP* ref, OP* name)); OP* newNULLLIST _((void)); OP* newOP _((I32 optype, I32 flags)); void newPROG _((OP* op)); OP* newRANGE _((I32 flags, OP* left, OP* right)); OP* newSLICEOP _((I32 flags, OP* subscript, OP* list)); OP* newSTATEOP _((I32 flags, char* label, OP* o)); -CV* newSUB _((I32 floor, OP* op, OP* block)); +CV* newSUB _((I32 floor, OP* op, OP* proto, OP* block)); CV* newXS _((char *name, void (*subaddr)(CV* cv), char *filename)); #ifdef DEPRECATED CV* newXSUB _((char *name, I32 ix, I32 (*subaddr)(int,int,int), char *filename)); @@ -250,8 +270,7 @@ CV* newXSUB _((char *name, I32 ix, I32 (*subaddr)(int,int,int), char *filename)) AV* newAV _((void)); OP* newAVREF _((OP* o)); OP* newBINOP _((I32 type, I32 flags, OP* first, OP* last)); -OP* newCVREF _((OP* o)); -OP* newCVOP _((I32 type, I32 flags, CV* cv, OP* cont)); +OP* newCVREF _((I32 flags, OP* o)); OP* newGVOP _((I32 type, I32 flags, GV* gv)); GV* newGVgen _((char *pack)); OP* newGVREF _((I32 type, OP* o)); @@ -276,7 +295,7 @@ SV* newSVrv _((SV* rv, char* classname)); SV* newSVsv _((SV* old)); OP* newUNOP _((I32 type, I32 flags, OP* first)); OP * newWHILEOP _((I32 flags, I32 debuggable, LOOP* loop, OP* expr, OP* block, OP* cont)); -FILE* nextargv _((GV* gv)); +PerlIO* nextargv _((GV* gv)); char* ninstr _((char* big, char* bigend, char* little, char* lend)); OP * oopsCV _((OP* o)); void op_free _((OP* arg)); @@ -297,20 +316,18 @@ I32 perl_call_argv _((char* subname, I32 flags, char** argv)); I32 perl_call_method _((char* methname, I32 flags)); I32 perl_call_pv _((char* subname, I32 flags)); I32 perl_call_sv _((SV* sv, I32 flags)); -#ifdef DEPRECATED -I32 perl_callargv _((char* subname, I32 sp, I32 gimme, char** argv)); -I32 perl_callpv _((char* subname, I32 sp, I32 gimme, I32 hasargs, I32 numargs)); -I32 perl_callsv _((SV* sv, I32 sp, I32 gimme, I32 hasargs, I32 numargs)); -#endif void perl_construct _((PerlInterpreter* sv_interp)); void perl_destruct _((PerlInterpreter* sv_interp)); +I32 perl_eval_sv _((SV* sv, I32 flags)); void perl_free _((PerlInterpreter* sv_interp)); SV* perl_get_sv _((char* name, I32 create)); AV* perl_get_av _((char* name, I32 create)); HV* perl_get_hv _((char* name, I32 create)); CV* perl_get_cv _((char* name, I32 create)); +int perl_init_i18nl10n _((int printwarn)); int perl_parse _((PerlInterpreter* sv_interp, void(*xsinit)(void), int argc, char** argv, char** env)); -void perl_requirepv _((char* pv)); +void perl_require_pv _((char* pv)); +#define perl_requirepv perl_require_pv int perl_run _((PerlInterpreter* sv_interp)); void pidgone _((int pid, int status)); void pmflag _((U16* pmfl, int ch)); @@ -319,38 +336,43 @@ OP* pmtrans _((OP* op, OP* expr, OP* repl)); OP* pop_return _((void)); void pop_scope _((void)); OP* prepend_elem _((I32 optype, OP* head, OP* tail)); +void provide_ref _((OP* op, SV* sv)); void push_return _((OP* op)); void push_scope _((void)); -regexp* regcomp _((char* exp, char* xend, PMOP* pm)); +regexp* pregcomp _((char* exp, char* xend, PMOP* pm)); OP* ref _((OP* op, I32 type)); OP* refkids _((OP* op, I32 type)); void regdump _((regexp* r)); -I32 regexec _((regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, I32 safebase)); -void regfree _((struct regexp* r)); +I32 pregexec _((regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, I32 safebase)); +void pregfree _((struct regexp* r)); char* regnext _((char* p)); char* regprop _((char* op)); void repeatcpy _((char* to, char* from, I32 len, I32 count)); char* rninstr _((char* big, char* bigend, char* little, char* lend)); -int run _((void)); +int runops _((void)); #ifndef safemalloc -void safefree _((char* where)); -char* safemalloc _((MEM_SIZE size)); +void safefree _((Malloc_t where)); +Malloc_t safemalloc _((MEM_SIZE size)); #ifndef MSDOS -char* saferealloc _((char* where, MEM_SIZE size)); +Malloc_t saferealloc _((Malloc_t where, MEM_SIZE size)); #else -char* saferealloc _((char* where, unsigned long size)); +Malloc_t saferealloc _((Malloc_t where, unsigned long size)); #endif +Malloc_t safecalloc _((MEM_SIZE cnt, MEM_SIZE size)); #endif #ifdef LEAKTEST -void safexfree _((char* where)); -char* safexmalloc _((I32 x, MEM_SIZE size)); -char* safexrealloc _((char* where, MEM_SIZE size)); +void safexfree _((Malloc_t where)); +Malloc_t safexmalloc _((I32 x, MEM_SIZE size)); +Malloc_t safexrealloc _((Malloc_t where, MEM_SIZE size)); +Malloc_t safexcalloc _((I32 x, MEM_SIZE size, MEM_SIZE size)); #endif #ifndef HAS_RENAME I32 same_dirent _((char* a, char* b)); #endif char* savepv _((char* sv)); char* savepvn _((char* sv, I32 len)); +char* sharepvn _((char* sv, I32 len, U32 hash)); +void unsharepvn _((char* sv, I32 len, U32 hash)); void savestack_grow _((void)); void save_aptr _((AV** aptr)); AV* save_ary _((GV* gv)); @@ -387,6 +409,7 @@ char* screaminstr _((SV* bigsv, SV* littlesv)); #ifndef VMS I32 setenv_getix _((char* nam)); #endif +void setdefout _((GV *gv)); Signal_t sighandler _((int sig)); SV** stack_grow _((SV** sp, SV**p, int n)); int start_subparse _((void)); @@ -397,6 +420,7 @@ IV sv_2iv _((SV* sv)); SV* sv_2mortal _((SV* sv)); double sv_2nv _((SV* sv)); char* sv_2pv _((SV* sv, STRLEN* lp)); +void sv_add_arena _((char* ptr, U32 size, U32 flags)); int sv_backoff _((SV* sv)); SV* sv_bless _((SV* sv, HV* stash)); void sv_catpv _((SV* sv, char* ptr)); @@ -411,7 +435,8 @@ void sv_dec _((SV* sv)); void sv_dump _((SV* sv)); I32 sv_eq _((SV* sv1, SV* sv2)); void sv_free _((SV* sv)); -char* sv_gets _((SV* sv, FILE* fp, I32 append)); +void sv_free_arenas _((void)); +char* sv_gets _((SV* sv, PerlIO* fp, I32 append)); #ifndef DOSISH char* sv_grow _((SV* sv, I32 newlen)); #else @@ -448,8 +473,10 @@ void sv_usepvn _((SV* sv, char* ptr, STRLEN len)); void taint_env _((void)); void taint_not _((char *s)); void taint_proper _((char* f, char* s)); +#ifdef UNLINK_ALL_VERSIONS I32 unlnk _((char* f)); -void utilize _((int aver, OP* id, OP* arg)); +#endif +void utilize _((int aver, I32 floor, OP* version, OP* id, OP* arg)); I32 wait4pid _((int pid, int* statusp, int flags)); void warn _((char* pat,...)) __attribute__((format(printf,1,2))); void watch _((char **addr));