[perl5.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 *)		
/* switches */
PERLVAR(Icddir,	char *)		
PERLVAR(Iminus_c,	bool)		
PERLVAR(Ipatchlevel[10],	char)		
PERLVAR(Ilocalpatches,	char **)		
PERLVAR(Inrs,	SV *)		
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 */
PERLVARI(Iperl_destruct_level,	int,	0)	/* 0=none, 1=full, 2=full with checks */

/* magical thingies */
PERLVAR(Ibasetime,	Time_t)		/* $^T */
PERLVAR(Iformfeed,	SV *)		/* $^L */
PERLVARI(Ichopset,	char *,	" \n-")	/* $: */
PERLVAR(Irs,	SV *)		/* $/ */
PERLVAR(Iofs,	char *)		/* $, */
PERLVAR(Iofslen,	STRLEN)		
PERLVAR(Iors,	char *)		/* $\ */
PERLVAR(Iorslen,	STRLEN)		
PERLVAR(Iofmt,	char *)		/* $# */
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,	struct stat)		/* _ */
PERLVAR(Istatgv,	GV *)		
PERLVARI(Istatname,	SV *,	Nullsv)	

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

/* shortcuts to regexp stuff */
PERLVAR(Ileftgv,	GV *)		
PERLVAR(Iampergv,	GV *)		
PERLVAR(Irightgv,	GV *)		
PERLVAR(Icurpm,	PMOP *)		/* what to do \ interps from */
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(Idefstash,	HV *)		/* main symbol table */
PERLVAR(Icurstash,	HV *)		/* symbol table for current package */
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(Itmps_stack,	SV **)		
PERLVARI(Itmps_ix,	I32,	-1)	
PERLVARI(Itmps_floor,	I32,	-1)	
PERLVAR(Itmps_max,	I32)		
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(Iin_eval,	VOL int)		/* trap "fatal" errors? */
PERLVAR(Irestartop,	OP *)		/* Are we propagating an error from croak? */
PERLVAR(Idelaymagic,	int)		/* ($<,$>) = ... */
PERLVAR(Idirty,	bool)		/* In the middle of tearing things down? */
PERLVAR(Ilocalizing,	U8)		/* are we processing a local() list? */
PERLVAR(Itainted,	bool)		/* using variables controlled by $< */
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(Icurcop,	COP * VOL,	&compiling)	
PERLVARI(Icurcopdb,	COP *,	NULL)	
PERLVARI(Icopline,	line_t,	NOLINE)	
PERLVAR(Icxstack,	PERL_CONTEXT *)		
PERLVARI(Icxstack_ix,	I32,	-1)	
PERLVARI(Icxstack_max,	I32,	128)	
PERLVAR(Istart_env,	JMPENV)		/* empty startup sigjmp() environment */
PERLVAR(Itop_env,	JMPENV *)		/* ptr. to current sigjmp() environment */

/* stack stuff */
PERLVAR(Icurstack,	AV *)		/* THE STACK */
PERLVAR(Imainstack,	AV *)		/* the stack when nothing funny is happening */

/* format accumulators */
PERLVAR(Iformtarget,	SV *)		
PERLVAR(Ibodytarget,	SV *)		
PERLVAR(Itoptarget,	SV *)		

/* 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 *)		

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