[p5sagit/p5-mst-13.2.git] / intrpvar.h

/***********************************************/
/* Global only to current interpreter instance */
/***********************************************/

/* pseudo environmental stuff */
PERLVAR(Iorigargc,	int)		
PERLVAR(Iorigargv,	char **)		
PERLVAR(Ienvgv,		GV *)		
PERLVAR(Isiggv,		GV *)		
PERLVAR(Iincgv,		GV *)		
PERLVAR(Iorigfilename,	char *)		
PERLVAR(Idiehook,	SV *)		
PERLVAR(Iwarnhook,	SV *)		
PERLVAR(Iparsehook,	SV *)		
PERLVAR(Icddir,		char *)		/* switches */
PERLVAR(Iminus_c,	bool)		
PERLVAR(Ipatchlevel[10],char)		
PERLVAR(Ilocalpatches,	char **)		
PERLVARI(Isplitstr,	char *,	" ")	
PERLVAR(Ipreprocess,	bool)		
PERLVAR(Iminus_n,	bool)		
PERLVAR(Iminus_p,	bool)		
PERLVAR(Iminus_l,	bool)		
PERLVAR(Iminus_a,	bool)		
PERLVAR(Iminus_F,	bool)		
PERLVAR(Idoswitches,	bool)		
PERLVAR(Idowarn,	bool)		
PERLVAR(Idoextract,	bool)		
PERLVAR(Isawampersand,	bool)		/* must save all match strings */
PERLVAR(Isawstudy,	bool)		/* do fbm_instr on all strings */
PERLVAR(Isawvec,	bool)		
PERLVAR(Iunsafe,	bool)		
PERLVAR(Iinplace,	char *)		
PERLVAR(Ie_tmpname,	char *)		
PERLVAR(Ie_fp,		PerlIO *)		
PERLVAR(Iperldb,	U32)		

/* This value may be raised by extensions for testing purposes */
/* 0=none, 1=full, 2=full with checks */
PERLVARI(Iperl_destruct_level,	int,	0)	

/* magical thingies */
PERLVAR(Ibasetime,	Time_t)		/* $^T */
PERLVAR(Iformfeed,	SV *)		/* $^L */


PERLVARI(Imaxsysfd,	I32,	MAXSYSFD)	/* top fd to pass to subprocesses */
PERLVAR(Imultiline,	int)		/* $*--do strings hold >1 line? */
PERLVAR(Istatusvalue,	I32)		/* $? */
#ifdef VMS
PERLVAR(Istatusvalue_vms,	U32)		
#endif

PERLVAR(Istatcache,	Stat_t)	/* _ */
PERLVAR(Istatgv,	GV *)		
PERLVARI(Istatname,	SV *,	Nullsv)	

/* shortcuts to various I/O objects */
PERLVAR(Istdingv,	GV *)		
PERLVAR(Idefgv,		GV *)		
PERLVAR(Iargvgv,	GV *)		
PERLVAR(Iargvoutgv,	GV *)		

/* shortcuts to regexp stuff */
PERLVAR(Ileftgv,	GV *)		
PERLVAR(Iampergv,	GV *)		
PERLVAR(Irightgv,	GV *)		
PERLVAR(Iscreamfirst,	I32 *)		
PERLVAR(Iscreamnext,	I32 *)		
PERLVARI(Imaxscream,	I32,	-1)	
PERLVAR(Ilastscream,	SV *)		

/* shortcuts to misc objects */
PERLVAR(Ierrgv,		GV *)		

/* shortcuts to debugging objects */
PERLVAR(IDBgv,		GV *)		
PERLVAR(IDBline,	GV *)		
PERLVAR(IDBsub,		GV *)		
PERLVAR(IDBsingle,	SV *)		
PERLVAR(IDBtrace,	SV *)		
PERLVAR(IDBsignal,	SV *)		
PERLVAR(Ilineary,	AV *)		/* lines of script for debugger */
PERLVAR(Idbargs,	AV *)		/* args to call listed by caller function */

/* symbol tables */
PERLVAR(Idebstash,	HV *)		/* symbol table for perldb package */
PERLVAR(Iglobalstash,	HV *)		/* global keyword overrides imported here */
PERLVAR(Icurstname,	SV *)		/* name of current package */
PERLVAR(Ibeginav,	AV *)		/* names of BEGIN subroutines */
PERLVAR(Iendav,		AV *)		/* names of END subroutines */
PERLVAR(Iinitav,	AV *)		/* names of INIT subroutines */
PERLVAR(Istrtab,	HV *)		/* shared string table */

/* memory management */
PERLVAR(Isv_count,	I32)		/* how many SV* are currently allocated */
PERLVAR(Isv_objcount,	I32)		/* how many objects are currently allocated */
PERLVAR(Isv_root,	SV*)		/* storage for SVs belonging to interp */
PERLVAR(Isv_arenaroot,	SV*)		/* list of areas for garbage collection */

/* funky return mechanisms */
PERLVAR(Ilastspbase,	I32)		
PERLVAR(Ilastsize,	I32)		
PERLVAR(Iforkprocess,	int)		/* so do_open |- can return proc# */

/* subprocess state */
PERLVAR(Ifdpid,		AV *)		/* keep fd-to-pid mappings for my_popen */

/* internal state */
PERLVAR(Itainting,	bool)		/* doing taint checks */
PERLVARI(Iop_mask,	char *,	NULL)	/* masked operations for safe evals */

/* trace state */
PERLVAR(Idlevel,	I32)		
PERLVARI(Idlmax,	I32,	128)	
PERLVAR(Idebname,	char *)		
PERLVAR(Idebdelim,	char *)		

/* current interpreter roots */
PERLVAR(Imain_cv,	CV *)		
PERLVAR(Imain_root,	OP *)		
PERLVAR(Imain_start,	OP *)		
PERLVAR(Ieval_root,	OP *)		
PERLVAR(Ieval_start,	OP *)		

/* runtime control stuff */
PERLVARI(Icurcopdb,	COP *,	NULL)	
PERLVARI(Icopline,	line_t,	NOLINE)	

/* statics moved here for shared library purposes */
PERLVAR(Istrchop,	SV)		/* return value from chop */
PERLVAR(Ifilemode,	int)		/* so nextargv() can preserve mode */
PERLVAR(Ilastfd,	int)		/* what to preserve mode on */
PERLVAR(Ioldname,	char *)		/* what to preserve mode on */
PERLVAR(IArgv,		char **)	/* stuff to free from do_aexec, vfork safe */
PERLVAR(ICmd,		char *)		/* stuff to free from do_aexec, vfork safe */
PERLVAR(Isortcop,	OP *)		/* user defined sort routine */
PERLVAR(Isortstash,	HV *)		/* which is in some package or other */
PERLVAR(Ifirstgv,	GV *)		/* $a */
PERLVAR(Isecondgv,	GV *)		/* $b */
PERLVAR(Isortstack,	AV *)		/* temp stack during pp_sort() */
PERLVAR(Isignalstack,	AV *)		/* temp stack during sighandler() */
PERLVAR(Imystrk,	SV *)		/* temp key string for do_each() */
PERLVAR(Idumplvl,	I32)		/* indentation level on syntax tree dump */
PERLVAR(Ioldlastpm,	PMOP *)		/* for saving regexp context during debugger */
PERLVAR(Igensym,	I32)		/* next symbol for getsym() to define */
PERLVAR(Ipreambled,	bool)		
PERLVAR(Ipreambleav,	AV *)		
PERLVARI(Ilaststatval,	int,	-1)	
PERLVARI(Ilaststype,	I32,	OP_STAT)	
PERLVAR(Imess_sv,	SV *)		

PERLVAR(Iors,		char *)		/* $\ */
PERLVAR(Iorslen,	STRLEN)		
PERLVAR(Iofmt,		char *)		/* $# */

#ifdef USE_THREADS
PERLVAR(Ithrsv,		SV *)		/* holds struct perl_thread for main thread */
PERLVARI(Ithreadnum,	U32,	0)	/* incremented each thread creation */
#endif /* USE_THREADS */
Commit	Line	Data
49f531da	1	/***********************************************/
	2	/* Global only to current interpreter instance */
	3	/***********************************************/
	4
	5	/* pseudo environmental stuff */
	6	PERLVAR(Iorigargc, int)
	7	PERLVAR(Iorigargv, char **)
d4cce5f1	8	PERLVAR(Ienvgv, GV *)
	9	PERLVAR(Isiggv, GV *)
	10	PERLVAR(Iincgv, GV *)
49f531da	11	PERLVAR(Iorigfilename, char *)
	12	PERLVAR(Idiehook, SV *)
	13	PERLVAR(Iwarnhook, SV *)
	14	PERLVAR(Iparsehook, SV *)
d4cce5f1	15	PERLVAR(Icddir, char ) / switches */
49f531da	16	PERLVAR(Iminus_c, bool)
d4cce5f1	17	PERLVAR(Ipatchlevel[10],char)
49f531da	18	PERLVAR(Ilocalpatches, char **)
49f531da	19	PERLVARI(Isplitstr, char *, " ")
	20	PERLVAR(Ipreprocess, bool)
	21	PERLVAR(Iminus_n, bool)
	22	PERLVAR(Iminus_p, bool)
	23	PERLVAR(Iminus_l, bool)
	24	PERLVAR(Iminus_a, bool)
	25	PERLVAR(Iminus_F, bool)
	26	PERLVAR(Idoswitches, bool)
	27	PERLVAR(Idowarn, bool)
	28	PERLVAR(Idoextract, bool)
	29	PERLVAR(Isawampersand, bool) /* must save all match strings */
	30	PERLVAR(Isawstudy, bool) /* do fbm_instr on all strings */
	31	PERLVAR(Isawvec, bool)
	32	PERLVAR(Iunsafe, bool)
	33	PERLVAR(Iinplace, char *)
	34	PERLVAR(Ie_tmpname, char *)
d4cce5f1	35	PERLVAR(Ie_fp, PerlIO *)
49f531da	36	PERLVAR(Iperldb, U32)
d4cce5f1	37
	38	/* This value may be raised by extensions for testing purposes */
	39	/* 0=none, 1=full, 2=full with checks */
	40	PERLVARI(Iperl_destruct_level, int, 0)
49f531da	41
	42	/* magical thingies */
	43	PERLVAR(Ibasetime, Time_t) /* $^T */
	44	PERLVAR(Iformfeed, SV ) / $^L */
d4cce5f1	45
d4cce5f1	46
49f531da	47	PERLVARI(Imaxsysfd, I32, MAXSYSFD) /* top fd to pass to subprocesses */
	48	PERLVAR(Imultiline, int) /* $--do strings hold >1 line? /
	49	PERLVAR(Istatusvalue, I32) /* $? */
	50	#ifdef VMS
	51	PERLVAR(Istatusvalue_vms, U32)
	52	#endif
	53
61bb5906	54	PERLVAR(Istatcache, Stat_t) /* _ */
49f531da	55	PERLVAR(Istatgv, GV *)
	56	PERLVARI(Istatname, SV *, Nullsv)
	57
	58	/* shortcuts to various I/O objects */
	59	PERLVAR(Istdingv, GV *)
d4cce5f1	60	PERLVAR(Idefgv, GV *)
49f531da	61	PERLVAR(Iargvgv, GV *)
49f531da	62	PERLVAR(Iargvoutgv, GV *)
	63
	64	/* shortcuts to regexp stuff */
	65	PERLVAR(Ileftgv, GV *)
	66	PERLVAR(Iampergv, GV *)
	67	PERLVAR(Irightgv, GV *)
49f531da	68	PERLVAR(Iscreamfirst, I32 *)
	69	PERLVAR(Iscreamnext, I32 *)
	70	PERLVARI(Imaxscream, I32, -1)
	71	PERLVAR(Ilastscream, SV *)
	72
	73	/* shortcuts to misc objects */
d4cce5f1	74	PERLVAR(Ierrgv, GV *)
49f531da	75
49f531da	76	/* shortcuts to debugging objects */
d4cce5f1	77	PERLVAR(IDBgv, GV *)
49f531da	78	PERLVAR(IDBline, GV *)
d4cce5f1	79	PERLVAR(IDBsub, GV *)
49f531da	80	PERLVAR(IDBsingle, SV *)
	81	PERLVAR(IDBtrace, SV *)
	82	PERLVAR(IDBsignal, SV *)
	83	PERLVAR(Ilineary, AV ) / lines of script for debugger */
	84	PERLVAR(Idbargs, AV ) / args to call listed by caller function */
	85
	86	/* symbol tables */
49f531da	87	PERLVAR(Idebstash, HV ) / symbol table for perldb package */
	88	PERLVAR(Iglobalstash, HV ) / global keyword overrides imported here */
	89	PERLVAR(Icurstname, SV ) / name of current package */
	90	PERLVAR(Ibeginav, AV ) / names of BEGIN subroutines */
d4cce5f1	91	PERLVAR(Iendav, AV ) / names of END subroutines */
49f531da	92	PERLVAR(Iinitav, AV ) / names of INIT subroutines */
	93	PERLVAR(Istrtab, HV ) / shared string table */
	94
	95	/* memory management */
49f531da	96	PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
	97	PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
	98	PERLVAR(Isv_root, SV) / storage for SVs belonging to interp */
	99	PERLVAR(Isv_arenaroot, SV) / list of areas for garbage collection */
	100
	101	/* funky return mechanisms */
	102	PERLVAR(Ilastspbase, I32)
	103	PERLVAR(Ilastsize, I32)
	104	PERLVAR(Iforkprocess, int) /* so do_open \|- can return proc# */
	105
	106	/* subprocess state */
d4cce5f1	107	PERLVAR(Ifdpid, AV ) / keep fd-to-pid mappings for my_popen */
49f531da	108
49f531da	109	/* internal state */
49f531da	110	PERLVAR(Itainting, bool) /* doing taint checks */
	111	PERLVARI(Iop_mask, char , NULL) / masked operations for safe evals */
	112
	113	/* trace state */
	114	PERLVAR(Idlevel, I32)
	115	PERLVARI(Idlmax, I32, 128)
	116	PERLVAR(Idebname, char *)
	117	PERLVAR(Idebdelim, char *)
	118
	119	/* current interpreter roots */
	120	PERLVAR(Imain_cv, CV *)
	121	PERLVAR(Imain_root, OP *)
	122	PERLVAR(Imain_start, OP *)
	123	PERLVAR(Ieval_root, OP *)
	124	PERLVAR(Ieval_start, OP *)
	125
	126	/* runtime control stuff */
49f531da	127	PERLVARI(Icurcopdb, COP *, NULL)
49f531da	128	PERLVARI(Icopline, line_t, NOLINE)
49f531da	129
	130	/* statics moved here for shared library purposes */
	131	PERLVAR(Istrchop, SV) /* return value from chop */
	132	PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
	133	PERLVAR(Ilastfd, int) /* what to preserve mode on */
	134	PERLVAR(Ioldname, char ) / what to preserve mode on */
d4cce5f1	135	PERLVAR(IArgv, char *) / stuff to free from do_aexec, vfork safe */
d4cce5f1	136	PERLVAR(ICmd, char ) / stuff to free from do_aexec, vfork safe */
49f531da	137	PERLVAR(Isortcop, OP ) / user defined sort routine */
	138	PERLVAR(Isortstash, HV ) / which is in some package or other */
	139	PERLVAR(Ifirstgv, GV ) / $a */
	140	PERLVAR(Isecondgv, GV ) / $b */
	141	PERLVAR(Isortstack, AV ) / temp stack during pp_sort() */
	142	PERLVAR(Isignalstack, AV ) / temp stack during sighandler() */
	143	PERLVAR(Imystrk, SV ) / temp key string for do_each() */
	144	PERLVAR(Idumplvl, I32) /* indentation level on syntax tree dump */
	145	PERLVAR(Ioldlastpm, PMOP ) / for saving regexp context during debugger */
	146	PERLVAR(Igensym, I32) /* next symbol for getsym() to define */
	147	PERLVAR(Ipreambled, bool)
	148	PERLVAR(Ipreambleav, AV *)
	149	PERLVARI(Ilaststatval, int, -1)
	150	PERLVARI(Ilaststype, I32, OP_STAT)
	151	PERLVAR(Imess_sv, SV *)
	152
d4cce5f1	153	PERLVAR(Iors, char ) / $\ */
	154	PERLVAR(Iorslen, STRLEN)
	155	PERLVAR(Iofmt, char ) / $# */
	156
49f531da	157	#ifdef USE_THREADS
d4cce5f1	158	PERLVAR(Ithrsv, SV ) / holds struct perl_thread for main thread */
940cb80d	159	PERLVARI(Ithreadnum, U32, 0) /* incremented each thread creation */
49f531da	160	#endif /* USE_THREADS */