perl 5.0 alpha 6

[editor's note: cleaned up from the September '94 InfoMagic CD, just
like the last commit]

1 files changed, 28 insertions, 11 deletions

diff --git a/proto.h b/proto.h
index 9407cca2af..7bec500891 100644
--- a/proto.h
+++ b/proto.h
@@ -22,6 +22,14 @@ 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));
@@ -120,18 +128,12 @@ 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));
+void	lex_start P((SV *line));
 OP*	linklist P((OP* op));
 OP*	list P((OP* o));
 OP*	listkids P((OP* o));
@@ -174,6 +176,7 @@ 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));
@@ -198,6 +201,7 @@ 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));
@@ -256,8 +260,9 @@ 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));
+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((CV* cv, 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));
@@ -269,7 +274,6 @@ 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));
@@ -294,6 +298,11 @@ 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));
@@ -327,6 +336,7 @@ OP*	scope P((OP* o));
 char*	screaminstr P((SV* bigsv, SV* littlesv));
 I32	setenv_getix P((char* nam));
 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));
@@ -339,9 +349,13 @@ 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));
@@ -357,8 +371,10 @@ 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));
+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));
@@ -382,3 +398,4 @@ OP*	wopt P((OP* cmd));
 int	yyerror P((char* s));
 int	yylex P((void));
 int	yyparse P((void));
+int	yywarn P((char* s));