diff options
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 837 |
1 files changed, 444 insertions, 393 deletions
@@ -1,408 +1,459 @@ -OP* CopDBadd P((OP* cur)); -OP* add_label P((char* lbl, OP* cmd)); -OP* addcond P((OP* cmd, OP* arg)); -OP* addflags P((I32 i, I32 flags, OP* arg)); -OP* addloop P((OP* cmd, OP* arg)); -OP* append_elem P((I32 optype, OP* head, OP* tail)); -OP* append_list P((I32 optype, LISTOP* first, LISTOP* last)); -I32 apply P((I32 type, SV** mark, SV** sp)); -void av_clear P((AV* ar)); -AV* av_fake P((I32 size, SV** svp)); -SV** av_fetch P((AV* ar, I32 key, I32 lval)); -void av_fill P((AV* ar, I32 fill)); -I32 av_len P((AV* ar)); -AV* av_make P((I32 size, SV** svp)); -SV* av_pop P((AV* ar)); -void av_popnulls P((AV* ar)); -bool av_push P((AV* ar, SV* val)); -SV* av_shift P((AV* ar)); -SV** av_store P((AV* ar, I32 key, SV* val)); -void av_undef P((AV* ar)); -void av_unshift P((AV* ar, I32 num)); -OP* bind_match P((I32 type, OP* left, OP* pat)); -OP* block_head P((OP* o, OP** startp)); -int boot_DB_File P((int ix, int sp, int items)); -/* int boot_DynamicLoader P((void)); */ -int boot_NDBM_File P((int ix, int sp, int items)); -int boot_GDBM_File P((int ix, int sp, int items)); -int boot_SDBM_File P((int ix, int sp, int items)); -int boot_ODBM_File P((int ix, int sp, int items)); -int boot_DBZ_File P((int ix, int sp, int items)); -int boot_POSIX P((int ix, int sp, int items)); -void calllist P((AV* list)); -I32 cando P((I32 bit, I32 effective, struct stat* statbufp)); -U32 cast_ulong P((double f)); -static void checkcomma P((char* s, char* name, char* what)); -I32 chsize P((int fd, Off_t length)); -OP* convert P((I32 optype, I32 flags, OP* op)); -OP* cop_to_arg P((OP* cmd)); -I32 copyopt P((OP* cmd, OP* which)); -void cpy7bit P((char* d, char* s, I32 l)); -char* cpytill P((char* to, char* from, char* fromend, I32 delim, I32* retlen)); -void croak P((char* pat,...)); -void cryptfilter P((FILE* fil)); -void cryptswitch P((void)); -void cv_undef P((CV* cv)); -void deb P((char* pat,...)); -void deb_growlevel P((void)); -OP* die P((char* pat,...)); -OP* die_where P((char* message)); -void do_accept P((SV* sv, GV* ngv, GV* ggv)); -bool do_aexec P((SV* really, SV** mark, SV** sp)); -void do_chop P((SV* asv, SV* sv)); -bool do_close P((GV* gv, bool explicit)); -int do_ctl P((I32 optype, GV* gv, I32 func, SV* argsv)); -bool do_eof P((GV* gv)); -bool do_exec P((char* cmd)); -void do_execfree P((void)); -SV* do_fttext P((OP* arg, SV* sv)); -I32 do_ipcctl P((I32 optype, SV** mark, SV** sp)); -I32 do_ipcget P((I32 optype, SV** mark, SV** sp)); -void do_join P((SV* sv, SV* del, SV** mark, SV** sp)); -OP* do_kv P((void)); -I32 do_msgrcv P((SV** mark, SV** sp)); -I32 do_msgsnd P((SV** mark, SV** sp)); -bool do_open P((GV* gv, char* name, I32 len)); -void do_pipe P((SV* sv, GV* rgv, GV* wgv)); -bool do_print P((SV* sv, FILE* fp)); -bool do_seek P((GV* gv, long pos, int whence)); -I32 do_semop P((SV** mark, SV** sp)); -I32 do_shmio P((I32 optype, SV** mark, SV** sp)); -void do_sprintf P((SV* sv, int len, SV** sarg)); -OP* do_subr P((void)); -long do_tell P((GV* gv)); -I32 do_trans P((SV* sv, OP* arg)); -void do_vecset P((SV* sv)); -void do_vop P((I32 optype, SV* sv, SV* left, SV* right)); -void do_write P((struct Outrec* orec, GV* gv)); -void dump_all P((void)); -void dump_cop P((OP* cmd, OP* alt)); -void dump_eval P((void)); -int dump_fds P((char* s)); -void dump_flags P((char* b, U32 flags)); -void dump_form P((GV* gv)); -void dump_gv P((GV* gv)); -void dump_op P((OP* arg)); -void dump_pm P((PMOP* pm)); -void dump_packsubs P((HV* stash)); -void dump_sub P((GV* gv)); -void fbm_compile P((SV* sv, I32 iflag)); -char* fbm_instr P((unsigned char* big, unsigned char* bigend, SV* littlesv)); -HV* fetch_stash P((SV* sv, I32 create)); -OP* flatten P((OP* arg)); -static void force_ident P((char* s)); -static char* force_word P((char* start, int token, int check_keyword, int allow_tick)); -OP* forcelist P((OP* arg)); -void free_tmps P((void)); -OP* gen_constant_list P((OP* op)); -I32 getgimme P((OP*op)); -void gp_free P((GV* gv)); -GP* gp_ref P((GP* gp)); -GV* gv_AVadd P((GV* gv)); -GV* gv_HVadd P((GV* gv)); -void gv_check P((HV* stash)); -void gv_efullname P((SV* sv, GV* gv)); -GV* gv_fetchfile P((char* name)); -GV* gv_fetchmethod P((HV* stash, char* name)); -GV* gv_fetchpv P((char* name, I32 add, I32 svtype)); -void gv_fullname P((SV* sv, GV* gv)); -STRLEN gv_len P((SV* sv)); -SV* gv_str P((SV* sv)); -OP* gv_to_op P((I32 atype, GV* gv)); -void he_delayfree P((HE* hent)); -void he_free P((HE* hent)); -void hoistmust P((PMOP* pm)); -void hv_clear P((HV* tb)); -SV* hv_delete P((HV* tb, char* key, U32 klen)); -SV** hv_fetch P((HV* tb, char* key, U32 klen, I32 lval)); -I32 hv_iterinit P((HV* tb)); -char* hv_iterkey P((HE* entry, I32* retlen)); -HE* hv_iternext P((HV* tb)); -SV* hv_iterval P((HV* tb, HE* entry)); -void hv_magic P((HV* hv, GV* gv, I32 how)); -SV** hv_store P((HV* tb, char* key, U32 klen, SV* val, U32 hash)); -void hv_undef P((HV* tb)); -I32 ibcmp P((char* a, char* b, I32 len)); -I32 ingroup P((int testgid, I32 effective)); -char* instr P((char* big, char* little)); -OP* invert P((OP* cmd)); -OP* jmaybe P((OP* arg)); -I32 keyword P((char* d, I32 len)); -void leave_scope P((I32 base)); -void lex_end P((void)); -void lex_start P((SV *line)); -OP* linklist P((OP* op)); -OP* list P((OP* o)); -OP* listkids P((OP* o)); -OP* localize P((OP* arg, I32 lexical)); -I32 looks_like_number P((SV* sv)); -OP* loopscope P((OP* o)); -I32 lop P((I32 f, char* s)); -int magic_clearenv P((SV* sv, MAGIC* mg)); -int magic_clearpack P((SV* sv, MAGIC* mg)); -int magic_get P((SV* sv, MAGIC* mg)); -int magic_getarylen P((SV* sv, MAGIC* mg)); -int magic_getpack P((SV* sv, MAGIC* mg)); -int magic_getglob P((SV* sv, MAGIC* mg)); -int magic_gettaint P((SV* sv, MAGIC* mg)); -int magic_getuvar P((SV* sv, MAGIC* mg)); -U32 magic_len P((SV* sv, MAGIC* mg)); -int magic_set P((SV* sv, MAGIC* mg)); -int magic_setarylen P((SV* sv, MAGIC* mg)); -int magic_setbm P((SV* sv, MAGIC* mg)); -int magic_setpack P((SV* sv, MAGIC* mg)); -int magic_setdbline P((SV* sv, MAGIC* mg)); -int magic_setenv P((SV* sv, MAGIC* mg)); -int magic_setisa P((SV* sv, MAGIC* mg)); -int magic_setglob P((SV* sv, MAGIC* mg)); -int magic_setmglob P((SV* sv, MAGIC* mg)); -int magic_setsig P((SV* sv, MAGIC* mg)); -int magic_setsubstr P((SV* sv, MAGIC* mg)); -int magic_settaint P((SV* sv, MAGIC* mg)); -int magic_setuvar P((SV* sv, MAGIC* mg)); -int magic_setvec P((SV* sv, MAGIC* mg)); -void magicalize P((char* list)); -void magicname P((char* sym, char* name, I32 namlen)); -int main P((int argc, char** argv, char** env)); +#ifndef GNUC_ATTRIBUTE_CHECK /* disable GNUC attribute checking if not GNUC */ +#ifdef __attribute__ /* Avoid possible redefinition errors */ +#undef __attribute__ +#endif +#define __attribute__(attr) +#endif +#ifdef OVERLOAD +SV* amagic_call _((SV* left,SV* right,int method,int dir)); +#endif /* OVERLOAD */ +OP* append_elem _((I32 optype, OP* head, OP* tail)); +OP* append_list _((I32 optype, LISTOP* first, LISTOP* last)); +I32 apply _((I32 type, SV** mark, SV** sp)); +void assertref _((OP* op)); +void av_clear _((AV* ar)); +void av_extend _((AV* ar, I32 key)); +AV* av_fake _((I32 size, SV** svp)); +SV** av_fetch _((AV* ar, I32 key, I32 lval)); +void av_fill _((AV* ar, I32 fill)); +I32 av_len _((AV* ar)); +AV* av_make _((I32 size, SV** svp)); +SV* av_pop _((AV* ar)); +void av_push _((AV* ar, SV* val)); +SV* av_shift _((AV* ar)); +SV** av_store _((AV* ar, I32 key, SV* val)); +void av_undef _((AV* ar)); +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 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)); +#endif +OP * ck_gvconst _((OP * o)); +OP * ck_retarget _((OP *op)); +OP* convert _((I32 optype, I32 flags, OP* op)); +char* cpytill _((char* to, char* from, char* fromend, int delim, I32* retlen)); +void croak _((char* pat,...)) __attribute__((format(printf,1,2),noreturn)); +void cv_undef _((CV* cv)); +#ifdef DEBUGGING +void cx_dump _((CONTEXT* cs)); +#endif +void cryptswitch_add _((cryptswitch_t funcp)); +I32 cxinc _((void)); +void deb _((char* pat,...)) __attribute__((format(printf,1,2))); +void deb_growlevel _((void)); +I32 debop _((OP* op)); +I32 debstackptrs _((void)); +#ifdef DEBUGGING +void debprofdump _((void)); +#endif +I32 debstack _((void)); +void deprecate _((char* s)); +OP* die _((char* pat,...)) __attribute__((format(printf,1,2))); +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_eof _((GV* gv)); +bool do_exec _((char* cmd)); +void do_execfree _((void)); +#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) +I32 do_ipcctl _((I32 optype, SV** mark, SV** sp)); +I32 do_ipcget _((I32 optype, SV** mark, SV** sp)); +#endif +void do_join _((SV* sv, SV* del, SV** mark, SV** sp)); +OP* do_kv _((void)); +#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) +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)); +void do_pipe _((SV* sv, GV* rgv, GV* wgv)); +bool do_print _((SV* sv, FILE* fp)); +OP * do_readline _((void)); +I32 do_chomp _((SV* sv)); +bool do_seek _((GV* gv, long pos, int whence)); +#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) +I32 do_semop _((SV** mark, SV** sp)); +I32 do_shmio _((I32 optype, SV** mark, SV** sp)); +#endif +void do_sprintf _((SV* sv, I32 len, SV** sarg)); +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)); +void dump_all _((void)); +void dump_eval _((void)); +#ifdef NOTDEF /* See util.c */ +int dump_fds _((char* s)); +#endif +void dump_form _((GV* gv)); +void dump_gv _((GV* gv)); +void dump_op _((OP* arg)); +void dump_pm _((PMOP* pm)); +void dump_packsubs _((HV* stash)); +void dump_sub _((GV* gv)); +void fbm_compile _((SV* sv, I32 iflag)); +char* fbm_instr _((unsigned char* big, unsigned char* bigend, SV* littlesv)); +OP* force_list _((OP* arg)); +OP* fold_constants _((OP * arg)); +void free_tmps _((void)); +OP* gen_constant_list _((OP* op)); +void gp_free _((GV* gv)); +GP* gp_ref _((GP* gp)); +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)); +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_init _((GV *gv, HV *stash, char *name, STRLEN len, int multi)); +HV* gv_stashpv _((char* name, I32 create)); +HV* gv_stashsv _((SV* sv, I32 create)); +void he_delayfree _((HE* hent)); +void he_free _((HE* hent)); +void hoistmust _((PMOP* pm)); +void hv_clear _((HV* tb)); +SV* hv_delete _((HV* tb, char* key, U32 klen)); +bool hv_exists _((HV* tb, char* key, U32 klen)); +SV** hv_fetch _((HV* tb, char* key, U32 klen, I32 lval)); +I32 hv_iterinit _((HV* tb)); +char* hv_iterkey _((HE* entry, I32* retlen)); +HE* hv_iternext _((HV* tb)); +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)); +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)); +OP* invert _((OP* cmd)); +OP* jmaybe _((OP* arg)); +I32 keyword _((char* d, I32 len)); +void leave_scope _((I32 base)); +void lex_end _((void)); +void lex_start _((SV *line)); +OP* linklist _((OP* op)); +OP* list _((OP* o)); +OP* listkids _((OP* o)); +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_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_gettaint _((SV* sv, MAGIC* mg)); +int magic_getuvar _((SV* sv, MAGIC* mg)); +U32 magic_len _((SV* sv, MAGIC* mg)); +int magic_nextpack _((SV* sv, MAGIC* mg, SV* key)); +int magic_set _((SV* sv, MAGIC* mg)); +#ifdef OVERLOAD +int magic_setamagic _((SV* sv, MAGIC* mg)); +#endif /* OVERLOAD */ +int magic_setarylen _((SV* sv, MAGIC* mg)); +int magic_setbm _((SV* sv, MAGIC* mg)); +int magic_setdbline _((SV* sv, MAGIC* mg)); +int magic_setenv _((SV* sv, MAGIC* mg)); +int magic_setisa _((SV* sv, MAGIC* mg)); +int magic_setglob _((SV* sv, MAGIC* mg)); +int magic_setmglob _((SV* sv, MAGIC* mg)); +int magic_setpack _((SV* sv, MAGIC* mg)); +int magic_setpos _((SV* sv, MAGIC* mg)); +int magic_setsig _((SV* sv, MAGIC* mg)); +int magic_setsubstr _((SV* sv, MAGIC* mg)); +int magic_settaint _((SV* sv, MAGIC* mg)); +int magic_setuvar _((SV* sv, MAGIC* mg)); +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 -Malloc_t malloc P((MEM_SIZE nbytes)); +Malloc_t malloc _((MEM_SIZE nbytes)); #endif -OP* maybeforcelist P((I32 optype, OP* arg)); -char* mess P((char* pat, va_list* args)); -int mg_clear P((SV* sv)); -MAGIC* mg_find P((SV* sv, char type)); -int mg_free P((SV* sv)); -int mg_get P((SV* sv)); -U32 mg_len P((SV* sv)); -void mg_magical P((SV* sv)); -int mg_set P((SV* sv)); -OP* mod P((OP* op, I32 type)); -char* moreswitches P((char* s)); +void markstack_grow _((void)); +char* mess _((char* pat, va_list* args)); +int mg_clear _((SV* sv)); +int mg_copy _((SV *, SV *, char *, STRLEN)); +MAGIC* mg_find _((SV* sv, int type)); +int mg_free _((SV* sv)); +int mg_get _((SV* sv)); +U32 mg_len _((SV* sv)); +void mg_magical _((SV* sv)); +int mg_set _((SV* sv)); +OP* mod _((OP* op, I32 type)); +char* moreswitches _((char* s)); #ifdef MSTATS -void mstats P((char* s)); +void mstats _((char* s)); +#endif +OP * my _(( OP *)); +char* my_bcopy _((char* from, char* to, I32 len)); +#if !defined(HAS_BZERO) && !defined(HAS_MEMSET) +char* my_bzero _((char* loc, I32 len)); #endif -char* my_bcopy P((char* from, char* to, I32 len)); -char* my_bzero P((char* loc, I32 len)); -void my_exit P((I32 status)); -I32 my_lstat P((void)); -I32 my_memcmp P((unsigned char* s1, unsigned char* s2, I32 len)); -I32 my_pclose P((FILE* ptr)); -FILE* my_pfiopen P((FILE* fil, VOID (*func)())); -FILE* my_popen P((char* cmd, char* mode)); -void my_setenv P((char* nam, char* val)); -I32 my_stat P((void)); -short my_swap P((short s)); -void my_unexec P((void)); -OP* newANONLIST P((OP* op)); -OP* newANONHASH P((OP* op)); -OP* newASSIGNOP P((I32 flags, OP* left, OP* right)); -OP* newBINOP P((I32 optype, I32 flags, OP* left, OP* right)); -OP* newCONDOP P((I32 flags, OP* expr, OP* true, OP* false)); -void newFORM P((I32 floor, OP* op, OP* block)); -OP* newFOROP P((I32 flags, char* label, line_t forline, OP* scalar, OP* expr, OP*block, OP*cont)); -OP* newLOGOP P((I32 optype, I32 flags, OP* left, OP* right)); -OP* newLOOPEX P((I32 type, OP* label)); -OP* newLOOPOP P((I32 flags, I32 debuggable, OP* expr, OP* block)); -OP* newMETHOD P((OP* ref, OP* name)); -OP* newNAMEOP P((OP* o)); -OP* newNULLLIST P((void)); -OP* newOP P((I32 optype, I32 flags)); -OP* newRANGE P((I32 flags, OP* left, OP* right)); -OP* newSLICEOP P((I32 flags, OP* subscript, OP* list)); -OP* newSTATEOP P((I32 flags, char* label, OP* o)); -void newSUB P((I32 floor, OP* op, OP* block)); -OP* newUNOP P((I32 optype, I32 flags, OP* child)); -void newXSUB P((char *name, I32 ix, I32 (*subaddr)(int,int,int), char *filename)); -AV* newAV P((void)); -OP* newAVREF P((OP* o)); -OP* newBINOP P((I32 type, I32 flags, OP* first, OP* last)); -OP* newCVREF P((OP* o)); -OP* newGVOP P((I32 type, I32 flags, GV* gv)); -GV* newGVgen P((void)); -OP* newGVREF P((OP* o)); -OP* newHVREF P((OP* o)); -HV* newHV P((void)); -IO* newIO P((void)); -OP* newLISTOP P((I32 type, I32 flags, OP* first, OP* last)); -OP* newPMOP P((I32 type, I32 flags)); -OP* newPVOP P((I32 type, I32 flags, char* pv)); -SV* newRV P((SV* ref)); +void my_exit _((I32 status)) __attribute__((noreturn)); +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)); +void my_setenv _((char* nam, char* val)); +I32 my_stat _((void)); +#ifdef MYSWAP +short my_swap _((short s)); +#endif +void my_unexec _((void)); +OP* newANONLIST _((OP* op)); +OP* newANONHASH _((OP* op)); +OP* newANONSUB _((I32 floor, OP* block)); +OP* newASSIGNOP _((I32 flags, OP* left, I32 optype, OP* right)); +OP* newBINOP _((I32 optype, I32 flags, OP* left, OP* right)); +OP* newCONDOP _((I32 flags, OP* expr, OP* true, OP* false)); +void newFORM _((I32 floor, OP* op, OP* block)); +OP* newFOROP _((I32 flags, char* label, line_t forline, OP* scalar, OP* expr, OP*block, OP*cont)); +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)); +OP* newUNOP _((I32 optype, I32 flags, OP* child)); +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)); +#endif +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* newGVOP _((I32 type, I32 flags, GV* gv)); +GV* newGVgen _((char *pack)); +OP* newGVREF _((I32 type, OP* o)); +OP* newHVREF _((OP* o)); +HV* newHV _((void)); +IO* newIO _((void)); +OP* newLISTOP _((I32 type, I32 flags, OP* first, OP* last)); +OP* newPMOP _((I32 type, I32 flags)); +OP* newPVOP _((I32 type, I32 flags, char* pv)); +SV* newRV _((SV* ref)); #ifdef LEAKTEST -SV* newSV P((I32 x, STRLEN len)); +SV* newSV _((I32 x, STRLEN len)); #else -SV* newSV P((STRLEN len)); +SV* newSV _((STRLEN len)); #endif -OP* newSVREF P((OP* o)); -OP* newSVOP P((I32 type, I32 flags, SV* sv)); -SV* newSViv P((I32 i)); -SV* newSVnv P((double n)); -SV* newSVpv P((char* s, STRLEN len)); -SV* newSVsv P((SV* old)); -OP* newUNOP P((I32 type, I32 flags, OP* first)); -OP * newWHILEOP P((I32 flags, I32 debuggable, LOOP* loop, OP* expr, OP* block, OP* cont)); -FILE* nextargv P((GV* gv)); -char* ninstr P((char* big, char* bigend, char* little, char* lend)); -char* nsavestr P((char* sv, I32 len)); -void op_behead P((OP* arg)); -OP* op_fold_const P((OP* arg)); -void op_free P((OP* arg)); -void op_optimize P((OP* cmd, I32 fliporflop, I32 acmd)); -OP* over P((GV* eachgv, OP* cmd)); -PADOFFSET pad_alloc P((I32 optype, U32 tmptype)); -PADOFFSET pad_allocmy P((char* name)); -PADOFFSET pad_findmy P((char* name)); -OP* oopsAV P((OP* o)); -OP* oopsHV P((OP* o)); -void pad_leavemy P((I32 fill)); -SV* pad_sv P((PADOFFSET po)); -void pad_free P((PADOFFSET po)); -void pad_reset P((void)); -void pad_swipe P((PADOFFSET po)); -OP* parse_list P((SV* sv)); -void peep P((OP* op)); -PerlInterpreter* perl_alloc P((void)); -I32 perl_callargv P((char* subname, I32 sp, I32 gimme, char** argv)); -I32 perl_callpv P((char* subname, I32 sp, I32 gimme, I32 hasargs, I32 numargs)); -I32 perl_callsv P((SV* sv, I32 sp, I32 gimme, I32 hasargs, I32 numargs)); -void perl_construct P((PerlInterpreter* sv_interp)); -void perl_destruct P((PerlInterpreter* sv_interp)); -void perl_free P((PerlInterpreter* sv_interp)); -void perl_init_ext P((void)); -I32 perl_parse P((PerlInterpreter* sv_interp, int argc, char** argv, char** env)); -I32 perl_run P((PerlInterpreter* sv_interp)); -void pidgone P((int pid, int status)); -OP* pmruntime P((OP* pm, OP* expr, OP* repl)); -OP* pop_return P((void)); -OP* prepend_elem P((I32 optype, OP* head, OP* tail)); -void push_return P((OP* op)); -OP* rcatmaybe P((OP* arg)); -regexp* regcomp P((char* exp, char* xend, I32 fold)); -OP* ref P((OP* op, I32 type)); -OP* refkids P((OP* op, I32 type)); -void regdump P((regexp* r)); -I32 regexec P((regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, I32 safebase)); -void regfree P((struct regexp* r)); -char* regnext P((char* p)); -char* regprop P((char* op)); -void repeatcpy P((char* to, char* from, I32 len, I32 count)); -char* rninstr P((char* big, char* bigend, char* little, char* lend)); -void run_format P((struct Outrec* orec, FF* fcmd)); +OP* newSVREF _((OP* o)); +OP* newSVOP _((I32 type, I32 flags, SV* sv)); +SV* newSViv _((IV i)); +SV* newSVnv _((double n)); +SV* newSVpv _((char* s, STRLEN len)); +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)); +char* ninstr _((char* big, char* bigend, char* little, char* lend)); +OP * oopsCV _((OP* o)); +void op_free _((OP* arg)); +void package _((OP* op)); +PADOFFSET pad_alloc _((I32 optype, U32 tmptype)); +PADOFFSET pad_allocmy _((char* name)); +PADOFFSET pad_findmy _((char* name)); +OP* oopsAV _((OP* o)); +OP* oopsHV _((OP* o)); +void pad_leavemy _((I32 fill)); +SV* pad_sv _((PADOFFSET po)); +void pad_free _((PADOFFSET po)); +void pad_reset _((void)); +void pad_swipe _((PADOFFSET po)); +void peep _((OP* op)); +PerlInterpreter* perl_alloc _((void)); +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, int destruct_level)); +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_parse _((PerlInterpreter* sv_interp, void(*xsinit)(void), int argc, char** argv, char** env)); +void perl_requirepv _((char* pv)); +int perl_run _((PerlInterpreter* sv_interp)); +void pidgone _((int pid, int status)); +void pmflag _((U16* pmfl, int ch)); +OP* pmruntime _((OP* pm, OP* expr, OP* repl)); +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 push_return _((OP* op)); +void push_scope _((void)); +regexp* regcomp _((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)); +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)); #ifndef safemalloc -void safefree P((char* where)); -char* safemalloc P((MEM_SIZE size)); +void safefree _((char* where)); +char* safemalloc _((MEM_SIZE size)); #ifndef MSDOS -char* saferealloc P((char* where, MEM_SIZE size)); +char* saferealloc _((char* where, MEM_SIZE size)); #else -char* saferealloc P((char* where, unsigned long size)); +char* saferealloc _((char* where, unsigned long size)); +#endif +#endif +#ifdef LEAKTEST +void safexfree _((char* where)); +char* safexmalloc _((I32 x, MEM_SIZE size)); +char* safexrealloc _((char* where, 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)); +void savestack_grow _((void)); +void save_aptr _((AV** aptr)); +AV* save_ary _((GV* gv)); +void save_clearsv _((SV** svp)); +void save_delete _((HV* hv, char* key, I32 klen)); +#ifndef titan /* TitanOS cc can't handle this */ +void save_destructor _((void (*f)(void*), void* p)); +#endif /* titan */ +void save_freesv _((SV* sv)); +void save_freeop _((OP* op)); +void save_freepv _((char* pv)); +HV* save_hash _((GV* gv)); +void save_hptr _((HV** hptr)); +void save_I32 _((I32* intp)); +void save_int _((int* intp)); +void save_item _((SV* item)); +void save_list _((SV** sarg, I32 maxsarg)); +void save_long _((long *longp)); +void save_nogv _((GV* gv)); +SV* save_scalar _((GV* gv)); +void save_pptr _((char **pptr)); +void save_sptr _((SV** sptr)); +SV* save_svref _((SV** sptr)); +OP* sawparens _((OP* o)); +OP* scalar _((OP* o)); +OP* scalarkids _((OP* op)); +OP* scalarseq _((OP* o)); +OP* scalarvoid _((OP* op)); +unsigned long scan_hex _((char* start, I32 len, I32* retlen)); +char* scan_num _((char* s)); +unsigned long scan_oct _((char* start, I32 len, I32* retlen)); +#ifdef NOTDEF /* See toke.c pp_ctl.c and op.c */ +void scan_prefix _((PMOP* pm, char* string, I32 len)); #endif +OP* scope _((OP* o)); +char* screaminstr _((SV* bigsv, SV* littlesv)); +#ifndef VMS +I32 setenv_getix _((char* nam)); #endif -void safexfree P((char* where)); -char* safexmalloc P((I32 x, MEM_SIZE size)); -char* safexrealloc P((char* where, MEM_SIZE size)); -I32 same_dirent P((char* a, char* b)); -void savestack_grow P((void)); -void save_aptr P((AV** aptr)); -AV* save_ary P((GV* gv)); -void save_clearsv P((SV** svp)); -void save_delete P((HV* hv, char* key, I32 klen)); -void save_freesv P((SV* sv)); -void save_freeop P((OP* op)); -void save_freepv P((char* pv)); -HV* save_hash P((GV* gv)); -void save_hptr P((HV** hptr)); -void save_I32 P((I32* intp)); -void save_int P((int* intp)); -void save_item P((SV* item)); -void save_list P((SV** sarg, I32 maxsarg)); -void save_nogv P((GV* gv)); -SV* save_scalar P((GV* gv)); -void save_sptr P((SV** sptr)); -SV* save_svref P((SV** sptr)); -char* savestr P((char* sv)); -OP* sawparens P((OP* o)); -OP* scalar P((OP* o)); -OP* scalarkids P((OP* op)); -OP* scalarseq P((OP* o)); -OP* scalarvoid P((OP* op)); -static char* scan_formline P((char* s)); -unsigned long scan_hex P((char* start, I32 len, I32* retlen)); -static char* scan_heredoc P((char* s)); -static char* scan_inputsymbol P((char* s)); -static char* scan_ident P((char* s, char* send, char* dest, I32 ck_uni)); -char* scan_num P((char* s)); -unsigned long scan_oct P((char* start, I32 len, I32* retlen)); -static char* scan_pat P((char* s)); -void scan_prefix P((PMOP* pm, char* string, I32 len)); -static char* scan_str P((char* start)); -static char* scan_subst P((char* start)); -static char* scan_trans P((char* start)); -static char* scan_word P((char* s, char* dest, int allow_package, STRLEN *slp)); -OP* scope P((OP* o)); -char* screaminstr P((SV* bigsv, SV* littlesv)); -I32 setenv_getix P((char* nam)); -VOIDRET sighandler P((I32 sig)); -static char* skipspace P((char* s)); -int start_subparse P((void)); -bool sv_2bool P((SV* sv)); -CV* sv_2cv P((SV* sv, HV** st, GV** gvp, I32 lref)); -I32 sv_2iv P((SV* sv)); -SV* sv_2mortal P((SV* sv)); -double sv_2nv P((SV* sv)); -char* sv_2pv P((SV* sv, STRLEN* lp)); -int sv_backoff P((SV* sv)); -void sv_catpv P((SV* sv, char* ptr)); -void sv_catpvn P((SV* sv, char* ptr, STRLEN len)); -void sv_catsv P((SV* dsv, SV* ssv)); -void sv_chop P((SV* sv, char* ptr)); -void sv_clean_all P((void)); -void sv_clean_magic P((void)); -void sv_clean_refs P((void)); -void sv_clear P((SV* sv)); -I32 sv_cmp P((SV* sv1, SV* sv2)); -void sv_dec P((SV* sv)); -void sv_dump P((SV* sv)); -I32 sv_eq P((SV* sv1, SV* sv2)); -void sv_free P((SV* sv)); -char* sv_gets P((SV* sv, FILE* fp, I32 append)); +VOIDRET sighandler _((int sig)); +SV** stack_grow _((SV** sp, SV**p, int n)); +int start_subparse _((void)); +bool sv_2bool _((SV* sv)); +CV* sv_2cv _((SV* sv, HV** st, GV** gvp, I32 lref)); +IO* sv_2io _((SV* sv)); +IV sv_2iv _((SV* sv)); +SV* sv_2mortal _((SV* sv)); +double sv_2nv _((SV* sv)); +char* sv_2pv _((SV* sv, STRLEN* lp)); +int sv_backoff _((SV* sv)); +SV* sv_bless _((SV* sv, HV* stash)); +void sv_catpv _((SV* sv, char* ptr)); +void sv_catpvn _((SV* sv, char* ptr, STRLEN len)); +void sv_catsv _((SV* dsv, SV* ssv)); +void sv_chop _((SV* sv, char* ptr)); +void sv_clean_all _((void)); +void sv_clean_objs _((void)); +void sv_clear _((SV* sv)); +I32 sv_cmp _((SV* sv1, SV* sv2)); +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)); #ifndef DOSISH -char* sv_grow P((SV* sv, I32 newlen)); +char* sv_grow _((SV* sv, I32 newlen)); #else -char* sv_grow P((SV* sv, unsigned long newlen)); +char* sv_grow _((SV* sv, unsigned long newlen)); #endif -void sv_inc P((SV* sv)); -void sv_insert P((SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)); -SV* sv_interp P((SV* sv, SV* src, I32 sp)); -void sv_intrpcompile P((SV* src)); -int sv_isa P((SV* sv, char* name)); -int sv_isobject P((SV* sv)); -STRLEN sv_len P((SV* sv)); -void sv_magic P((SV* sv, SV* obj, char how, char* name, I32 namlen)); -SV* sv_mortalcopy P((SV* oldsv)); -SV* sv_newmortal P((void)); -SV* sv_newref P((SV* sv)); -void sv_replace P((SV* sv, SV* nsv)); -void sv_report_used P((void)); -void sv_reset P((char* s, HV* stash)); -void sv_setiv P((SV* sv, I32 num)); -void sv_setnv P((SV* sv, double num)); -void sv_setpv P((SV* sv, char* ptr)); -void sv_setpvn P((SV* sv, char* ptr, STRLEN len)); -void sv_setsv P((SV* dsv, SV* ssv)); -int sv_unmagic P((SV* sv, char type)); -void sv_unref P((SV* sv)); -void sv_usepvn P((SV* sv, char* ptr, STRLEN len)); -void taint_env P((void)); -void taint_not P((char *s)); -void taint_proper P((char* f, char* s)); -I32 uni P((I32 f, char* s)); -I32 unlnk P((char* f)); -I32 userinit P((void)); -I32 wait4pid P((int pid, int* statusp, int flags)); -void warn P((char* pat,...)); -I32 whichsig P((char* sig)); -void while_io P((OP* cmd)); -OP* wopt P((OP* cmd)); -int yyerror P((char* s)); -int yylex P((void)); -int yyparse P((void)); -int yywarn P((char* s)); +void sv_inc _((SV* sv)); +void sv_insert _((SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen)); +int sv_isa _((SV* sv, char* name)); +int sv_isobject _((SV* sv)); +STRLEN sv_len _((SV* sv)); +void sv_magic _((SV* sv, SV* obj, int how, char* name, I32 namlen)); +SV* sv_mortalcopy _((SV* oldsv)); +SV* sv_newmortal _((void)); +SV* sv_newref _((SV* sv)); +char * sv_peek _((SV* sv)); +char * sv_pvn_force _((SV* sv, STRLEN* lp)); +char* sv_reftype _((SV* sv, int ob)); +void sv_replace _((SV* sv, SV* nsv)); +void sv_report_used _((void)); +void sv_reset _((char* s, HV* stash)); +void sv_setiv _((SV* sv, IV num)); +void sv_setnv _((SV* sv, double num)); +SV* sv_setref_iv _((SV *rv, char *classname, IV iv)); +SV* sv_setref_nv _((SV *rv, char *classname, double nv)); +SV* sv_setref_pv _((SV *rv, char *classname, void* pv)); +SV* sv_setref_pvn _((SV *rv, char *classname, char* pv, I32 n)); +void sv_setpv _((SV* sv, char* ptr)); +void sv_setpvn _((SV* sv, char* ptr, STRLEN len)); +void sv_setsv _((SV* dsv, SV* ssv)); +int sv_unmagic _((SV* sv, int type)); +void sv_unref _((SV* sv)); +bool sv_upgrade _((SV* sv, U32 mt)); +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)); +I32 unlnk _((char* f)); +void utilize _((int aver, 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)); +I32 whichsig _((char* sig)); +int yyerror _((char* s)); +int yylex _((void)); +int yyparse _((void)); +int yywarn _((char* s)); |