X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=df537e9535f61f4e1ada100738f22753c827fcf9;hb=c6ecf61fd8db79f1fc1b90463b6c61a4267ab923;hp=11d36efe9f24d7c2bb2ce19dd3d604a97f12584a;hpb=79072805bf63abe5b5978b5928ab00d360ea3e7f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/proto.h b/proto.h
index 11d36ef..df537e9 100644
--- a/proto.h
+++ b/proto.h
@@ -1,352 +1,487 @@
-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, OP *head, OP *tail));
-I32 	apply P((I32 type, SV **mark, SV **sp));
-void 	av_clear P((AV *ar));
-AV *	av_fake P((I32 size, SV **strp));
-SV **	av_fetch P((AV *ar, I32 key, I32 lval));
-void 	av_fill P((AV *ar, I32 fill));
-void 	av_free P((AV *ar));
-I32 	av_len P((AV *ar));
-AV *	av_make P((I32 size, SV **strp));
-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 *tail));
-I32 	cando P((I32 bit, I32 effective, struct stat *statbufp));
-unsigned long 	cast_ulong P((double f));
-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 	cryptfilter P((FILE *fil));
-void 	cryptswitch P((void));
-void 	deb P((char *pat, ...));
-void 	deb_growlevel P((void));
-OP * 	die P((const 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 *astr, SV *sv));
-bool 	do_close P((GV *gv, bool explicit));
-int 	do_ctl P((I32 optype, GV *gv, I32 func, SV *argstr));
-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((SV*,OP*,I32));
-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));
-I32 	do_repeatary P((SV*,OP*,I32));
-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((OP *root, OP *start));
-	dump_fds P((char *s));
-void 	dump_flags P((char *b, U32 flags));
-void 	dump_gv P((GV *gv));
-void 	dump_op P((OP *arg));
-void 	dump_pm P((PM *pm));
-	dup2 P((int oldfd, int newfd));
-void 	fbm_compile P((SV *sv, I32 iflag));
-char *	fbm_instr P((unsigned char *big, unsigned char *bigend, SV *littlestr));
-IO *	fetch_io P((OP* op, I32 num));
-GV *	fetch_gv P((OP* op, I32 num));
-OP *	flatten P((OP *arg));
-void	force_ident P((char *s));
-char *	force_word P((char *s));
-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((I32 min, I32 max));
-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));
-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((PM *pm));
-void 	hv_clear P((HV *tb, I32 dodbm));
-void 	hv_dbmclose P((HV *tb));
-bool 	hv_dbmopen P((HV *tb, char *fname, int mode));
-bool 	hv_dbmstore P((HV *tb, char *key, U32 klen, SV *sv));
-SV *	hv_delete P((HV *tb, char *key, U32 klen));
-SV **	hv_fetch P((HV *tb, char *key, U32 klen, I32 lval));
-void 	hv_free P((HV *tb, I32 dodbm));
-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((SV *sv, 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 dodbm));
-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));
-void 	leave_scope P((I32 base));
-OP *	linklist P((OP *op));
-OP *	list P((OP *o));
-OP *	listkids P((OP *o));
-OP *	localize P((OP *arg));
-I32 	looks_like_number P((SV *sv));
-OP *	loopscope P((OP *o));
-I32 	lop P((I32 f, char *s));
-int	magic_get	P((SV* sv, MAGIC* mg));
-int	magic_getarylen	P((SV* sv, MAGIC* mg));
-int	magic_getglob	P((SV* sv, MAGIC* mg));
-int	magic_getuvar	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_setdbline	P((SV* sv, MAGIC* mg));
-int	magic_setdbm	P((SV* sv, MAGIC* mg));
-int	magic_setenv	P((SV* sv, MAGIC* mg));
-int	magic_setglob	P((SV* sv, MAGIC* mg));
-int	magic_setsig	P((SV* sv, MAGIC* mg));
-int	magic_setsubstr	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));
-	main P((int argc, char **argv, char **env));
-MALLOCPTRTYPE *	malloc P((MEM_SIZE nbytes));
-OP *	maybeforcelist P((I32 optype, OP *arg));
-char *	mess P((char *pat, ...));
-int	mg_clear P((SV *sv));
-int	mg_free P((SV *sv, char type));
-int	mg_freeall P((SV *sv));
-int	mg_get P((SV *sv));
-U32	mg_len P((SV *sv));
-int	mg_set P((SV *sv));
-char *	moreswitches P((char *s));
-void 	mstats P((char *s));
-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((OP *arg, SV *sv));
-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((OP *arg, SV *sv));
-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((OP *name, OP *block));
-OP *	newFOROP P((I32 flags, char *label, line_t forline, OP* scalar, OP* expr, OP*block, OP*cont));
-HV *	newHV P((U32 lookat));
-OP *	newLOGOP P((I32 optype, I32 flags, OP *left, OP *right));
-OP *	newLOOPOP P((I32 flags, I32 debuggable, OP *expr, OP *block, OP *cont));
-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((OP *name, OP *block));
-OP *	newUNOP P((I32 optype, I32 flags, OP *child));
-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((U32 lookat));
-IO *	newIO P((void));
-OP *	newLISTOP P((I32 type, I32 flags, first, last));
-OP *	newPMOP P((I32 type, I32 flags));
-OP *	newPVOP P((I32 type, I32 flags, PV *pv));
+#ifndef NEXT30_NO_ATTRIBUTE
+#ifndef HASATTRIBUTE       /* disable GNU-cc attribute checking? */
+#ifdef  __attribute__      /* Avoid possible redefinition errors */
+#undef  __attribute__
+#endif
+#define __attribute__(attr)
+#endif 
+#endif
+#ifdef OVERLOAD
+SV*	amagic_call _((SV* left,SV* right,int method,int dir));
+bool Gv_AMupdate _((HV* stash));
+#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	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	my_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));
+CV*	cv_clone _((CV* proto));
+void	cv_undef _((CV* cv));
+SV*	cv_const_sv _((CV* cv));
+#ifdef DEBUGGING
+void	cx_dump _((CONTEXT* cs));
+#endif
+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));
+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 not_implicit));
+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,
+		   int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp));
+void	do_pipe _((SV* sv, GV* rgv, GV* wgv));
+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));
+#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));
+I32	dowantarray _((void));
+void	dump_all _((void));
+void	dump_eval _((void));
+#ifdef DUMP_FDS  /* See util.c */
+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));
+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, 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, 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, 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_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));
+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_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));
+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));
+#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 *, I32));
+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));
+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
+void	my_exit _((U32 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 _((PerlIO* ptr));
+PerlIO*	my_popen _((char* cmd, char* mode));
+void	my_setenv _((char* nam, char* val));
+I32	my_stat _((void));
+#ifdef MYSWAP
+short	my_swap _((short s));
+long	my_htonl _((long l));
+long	my_ntohl _((long l));
+#endif
+void	my_unexec _((void));
+OP*	newANONLIST _((OP* op));
+OP*	newANONHASH _((OP* op));
+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));
+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*	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* 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));
+#endif
+AV*	newAV _((void));
+OP*	newAVREF _((OP* o));
+OP*	newBINOP _((I32 type, I32 flags, OP* first, OP* last));
+OP*	newCVREF _((I32 flags, OP* o));
+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));
-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((void));
-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));
-Interpreter *	perl_alloc P((void));
-I32 	perl_callback P((char *subname, I32 sp, I32 gimme, I32 hasargs, I32 numargs));
-I32 	perl_callv P((char *subname, I32 sp, I32 gimme, char **argv));
-void 	perl_construct P((Interpreter *sv_interp));
-void 	perl_destruct P((Interpreter *sv_interp));
-void 	perl_free P((Interpreter *sv_interp));
-I32 	perl_parse P((Interpreter *sv_interp, int argc, char **argv, char **env));
-I32 	perl_run P((Interpreter *sv_interp));
-void  	pidgone P((int pid, int status));
-OP *	pmruntime P((OP *pm, OP *expr));
-OP *	pop_return P((void));
-OP *	prepend_elem P((I32 optype, OP *head, OP *tail));
-void	push_return P((OP* op));
-void 	pv_grow P((char **strptr, I32 *curlen, I32 newlen));
-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	reinit_lexer P((void));
-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));
+PerlIO*	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));
+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_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));
+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	provide_ref _((OP* op, SV* sv));
+void	push_return _((OP* op));
+void	push_scope _((void));
+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	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	runops _((void));
 #ifndef safemalloc
-void 	safefree P((char *where));
-char *	safemalloc P((MEM_SIZE size));
-char *	saferealloc P((char *where, unsigned long size));
+void	safefree _((Malloc_t where));
+Malloc_t	safemalloc _((MEM_SIZE size));
+#ifndef MSDOS
+Malloc_t	saferealloc _((Malloc_t where, MEM_SIZE size));
+#else
+Malloc_t	saferealloc _((Malloc_t where, unsigned long size));
+#endif
+Malloc_t	safecalloc _((MEM_SIZE cnt, MEM_SIZE size));
+#endif
+#ifdef LEAKTEST
+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));
+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));
+OP*	scope _((OP* o));
+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));
+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));
+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));
+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));
+void	sv_free_arenas _((void));
+char*	sv_gets _((SV* sv, PerlIO* fp, I32 append));
+#ifndef DOSISH
+char*	sv_grow _((SV* sv, I32 newlen));
+#else
+char*	sv_grow _((SV* sv, unsigned long newlen));
+#endif
+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));
+#ifdef UNLINK_ALL_VERSIONS
+I32	unlnk _((char* f));
 #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));
-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_lines P((AV *array, SV *sv));
-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));
-char *	scan_formline P((char *s));
-unsigned long 	scan_hex P((char *start, I32 len, I32 *retlen));
-char *	scan_heredoc P((char *s));
-char *	scan_inputsymbol P((char *s));
-char *	scan_ident P((char *s, char *send, char *dest));
-char *	scan_num P((char *s));
-unsigned long 	scan_oct P((char *start, I32 len, I32 *retlen));
-char *	scan_pat P((char *s));
-void 	scan_prefix P((PM *pm, char *string, I32 len));
-char *	scan_str P((char *start));
-char *	scan_subst P((char *start));
-char *	scan_trans P((char *start));
-OP *	scope P((OP *o));
-char *	screaminstr P((SV *bigstr, SV *littlestr));
-I32 	setenv_getix P((char *nam));
-char *	skipspace P((char *s));
-AV *	sv_2av P((SV *sv, STASH **st, GV **gvp, I32 lref));
-CV *	sv_2cv P((SV *sv, STASH **st, GV **gvp, I32 lref));
-HV *	sv_2hv P((SV *sv, STASH **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));
-char *	sv_append_till P((SV *sv, char *from, char *fromend, I32 delim, char *keeplist));
-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 *dstr, SV *sstr));
-void 	sv_chop P((SV *sv, char *ptr));
-void 	sv_clear P((SV *sv));
-I32 	sv_cmp P((SV *str1, SV *str2));
-void 	sv_dec P((SV *sv));
-I32 	sv_eq P((SV *str1, SV *str2));
-void 	sv_free P((SV *sv));
-char *	sv_gets P((SV *sv, FILE *fp, I32 append));
-char *	sv_grow P((SV *sv, unsigned long newlen));
-void 	sv_inc P((SV *sv));
-void 	sv_insert P((SV *bigstr, STRLEN offset, STRLEN len, char *little, STRLEN littlelen));
-SV *	sv_interp P((SV *sv, SV *src, I32 sp));
-void 	sv_intrpcompile P((SV *src));
-STRLEN 	sv_len P((SV *sv));
-void 	sv_magic P((SV *sv, SV *sv, char how, char *name, STRLEN namlen));
-SV *	sv_mortalcopy P((SV *oldstr));
-SV * 	sv_ref P((SV *sv));
-void 	sv_replace P((SV *sv, SV *nstr));
-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 *dstr, SV *sstr));
-void 	taint_env P((void));
-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((const 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));
+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));
+I32	whichsig _((char* sig));
+int	yyerror _((char* s));
+int	yylex _((void));
+int	yyparse _((void));
+int	yywarn _((char* s));