X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/463ee0b2acbd047c27e8b5393cdd8398881824c5..9bed9d38d292108cf5109a72c72efaf6d17a2382:/proto.h

diff --git a/proto.h b/proto.h
index 0aeb908..d92ac1a 100644
--- a/proto.h
+++ b/proto.h
@@ -1,383 +1,467 @@
-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));
-void	av_free P((AV* ar));
-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));
-void	calllist P((AV* list));
-I32	cando P((I32 bit, I32 effective, struct stat* statbufp));
-U32	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	croak P((char* pat,...));
-void	cryptfilter P((FILE* fil));
-void	cryptswitch P((void));
-void	cv_clear 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_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));
-IO*	fetch_io P((OP* op, I32 num));
-GV*	fetch_gv P((OP* op, I32 num));
-HV*	fetch_stash P((SV* sv, I32 create));
-OP*	flatten P((OP* arg));
-void	force_ident P((char* s));
-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));
-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));
-void	hv_free P((HV* tb));
-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));
-int	init_DB_File P((int ix, int sp, int items));
-int	init_NDBM_File P((int ix, int sp, int items));
-int	init_GDBM_File P((int ix, int sp, int items));
-int	init_SDBM_File P((int ix, int sp, int items));
-int	init_ODBM_File P((int ix, int sp, int items));
-int	init_DBZ_File P((int ix, int sp, int items));
-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((void));
-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_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 STANDARD_C
-MALLOCPTRTYPE*	malloc P((MEM_SIZE nbytes));
+#ifndef NEXT30_NO_ATTRIBUTE
+#ifndef HASATTRIBUTE       /* disable GNU-cc attribute checking? */
+#ifdef  __attribute__      /* Avoid possible redefinition errors */
+#undef  __attribute__
 #endif
-OP*	maybeforcelist P((I32 optype, OP* arg));
-char*	mess P((char* pat, ...));
-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));
-int	mg_set P((SV* sv));
-OP*	mod P((OP* op, I32 type));
-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((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*	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));
+#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	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));
+CV*	cv_clone _((CV* proto));
+void	cv_undef _((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 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,
+		   int as_raw, int rawmode, int rawperm, 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));
+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));
+void	dump_mstats _((char* s));
+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, I32 flags));
+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));
+#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));
+#endif
+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));
+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 _((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));
+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));
-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, char 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_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((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));
-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	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));
+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_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	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	run _((void));
 #ifndef safemalloc
-void	safefree P((char* where));
-char*	safemalloc P((MEM_SIZE size));
-char*	saferealloc P((char* where, unsigned long size));
+void	safefree _((char* where));
+char*	safemalloc _((MEM_SIZE size));
+#ifndef MSDOS
+char*	saferealloc _((char* where, MEM_SIZE size));
+#else
+char*	saferealloc _((char* where, unsigned long size));
+#endif
 #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_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, I32 ck_uni));
-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((PMOP* pm, char* string, I32 len));
-char*	scan_str P((char* start));
-char*	scan_subst P((char* start));
-char*	scan_trans P((char* start));
-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));
-char*	skipspace P((char* s));
-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));
-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* dsv, SV* ssv));
-void	sv_chop P((SV* sv, char* ptr));
-void	sv_clear P((SV* sv));
-I32	sv_cmp P((SV* sv1, SV* sv2));
-void	sv_dec 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));
+#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));
+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, 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 _((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	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));
-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_ref P((SV* sv));
-void	sv_replace P((SV* sv, SV* nsv));
-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_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));
+void	utilize _((int aver, I32 floor, 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));