projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Re: Exceptions in IPC::Open2
[p5sagit/p5-mst-13.2.git] / intrpvar.h
CommitLineData
49f531da 1/***********************************************/
2/* Global only to current interpreter instance */
3/***********************************************/
4
5/* pseudo environmental stuff */
6PERLVAR(Iorigargc, int)
7PERLVAR(Iorigargv, char **)
d4cce5f1 8PERLVAR(Ienvgv, GV *)
9PERLVAR(Isiggv, GV *)
10PERLVAR(Iincgv, GV *)
49f531da 11PERLVAR(Iorigfilename, char *)
12PERLVAR(Idiehook, SV *)
13PERLVAR(Iwarnhook, SV *)
14PERLVAR(Iparsehook, SV *)
d4cce5f1 15PERLVAR(Icddir, char *) /* switches */
49f531da 16PERLVAR(Iminus_c, bool)
d4cce5f1 17PERLVAR(Ipatchlevel[10],char)
49f531da 18PERLVAR(Ilocalpatches, char **)
49f531da 19PERLVARI(Isplitstr, char *, " ")
20PERLVAR(Ipreprocess, bool)
21PERLVAR(Iminus_n, bool)
22PERLVAR(Iminus_p, bool)
23PERLVAR(Iminus_l, bool)
24PERLVAR(Iminus_a, bool)
25PERLVAR(Iminus_F, bool)
26PERLVAR(Idoswitches, bool)
27PERLVAR(Idowarn, bool)
28PERLVAR(Idoextract, bool)
29PERLVAR(Isawampersand, bool) /* must save all match strings */
30PERLVAR(Isawstudy, bool) /* do fbm_instr on all strings */
31PERLVAR(Isawvec, bool)
32PERLVAR(Iunsafe, bool)
33PERLVAR(Iinplace, char *)
afe37c7d 34PERLVAR(Ie_script, SV *)
49f531da 35PERLVAR(Iperldb, U32)
d4cce5f1 36
37/* This value may be raised by extensions for testing purposes */
38/* 0=none, 1=full, 2=full with checks */
39PERLVARI(Iperl_destruct_level, int, 0)
49f531da 40
41/* magical thingies */
42PERLVAR(Ibasetime, Time_t) /* $^T */
43PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1 44
45
49f531da 46PERLVARI(Imaxsysfd, I32, MAXSYSFD) /* top fd to pass to subprocesses */
47PERLVAR(Imultiline, int) /* $*--do strings hold >1 line? */
48PERLVAR(Istatusvalue, I32) /* $? */
49#ifdef VMS
50PERLVAR(Istatusvalue_vms, U32)
51#endif
52
61bb5906 53PERLVAR(Istatcache, Stat_t) /* _ */
49f531da 54PERLVAR(Istatgv, GV *)
55PERLVARI(Istatname, SV *, Nullsv)
56
57/* shortcuts to various I/O objects */
58PERLVAR(Istdingv, GV *)
d4cce5f1 59PERLVAR(Idefgv, GV *)
49f531da 60PERLVAR(Iargvgv, GV *)
49f531da 61PERLVAR(Iargvoutgv, GV *)
62
63/* shortcuts to regexp stuff */
64PERLVAR(Ileftgv, GV *)
65PERLVAR(Iampergv, GV *)
66PERLVAR(Irightgv, GV *)
49f531da 67PERLVAR(Iscreamfirst, I32 *)
68PERLVAR(Iscreamnext, I32 *)
69PERLVARI(Imaxscream, I32, -1)
70PERLVAR(Ilastscream, SV *)
ce862d02 71PERLVAR(Ireplgv, GV *)
49f531da 72
73/* shortcuts to misc objects */
d4cce5f1 74PERLVAR(Ierrgv, GV *)
49f531da 75
76/* shortcuts to debugging objects */
d4cce5f1 77PERLVAR(IDBgv, GV *)
49f531da 78PERLVAR(IDBline, GV *)
d4cce5f1 79PERLVAR(IDBsub, GV *)
49f531da 80PERLVAR(IDBsingle, SV *)
81PERLVAR(IDBtrace, SV *)
82PERLVAR(IDBsignal, SV *)
83PERLVAR(Ilineary, AV *) /* lines of script for debugger */
84PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
85
86/* symbol tables */
49f531da 87PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
88PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
89PERLVAR(Icurstname, SV *) /* name of current package */
90PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
d4cce5f1 91PERLVAR(Iendav, AV *) /* names of END subroutines */
49f531da 92PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
93PERLVAR(Istrtab, HV *) /* shared string table */
94
95/* memory management */
49f531da 96PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
97PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
98PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
99PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
100
101/* funky return mechanisms */
102PERLVAR(Ilastspbase, I32)
103PERLVAR(Ilastsize, I32)
104PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
105
106/* subprocess state */
d4cce5f1 107PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da 108
109/* internal state */
49f531da 110PERLVAR(Itainting, bool) /* doing taint checks */
111PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
112
113/* trace state */
114PERLVAR(Idlevel, I32)
115PERLVARI(Idlmax, I32, 128)
116PERLVAR(Idebname, char *)
117PERLVAR(Idebdelim, char *)
118
119/* current interpreter roots */
120PERLVAR(Imain_cv, CV *)
121PERLVAR(Imain_root, OP *)
122PERLVAR(Imain_start, OP *)
123PERLVAR(Ieval_root, OP *)
124PERLVAR(Ieval_start, OP *)
125
126/* runtime control stuff */
49f531da 127PERLVARI(Icurcopdb, COP *, NULL)
128PERLVARI(Icopline, line_t, NOLINE)
49f531da 129
130/* statics moved here for shared library purposes */
131PERLVAR(Istrchop, SV) /* return value from chop */
132PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
133PERLVAR(Ilastfd, int) /* what to preserve mode on */
134PERLVAR(Ioldname, char *) /* what to preserve mode on */
d4cce5f1 135PERLVAR(IArgv, char **) /* stuff to free from do_aexec, vfork safe */
136PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
49f531da 137PERLVAR(Isortcop, OP *) /* user defined sort routine */
138PERLVAR(Isortstash, HV *) /* which is in some package or other */
139PERLVAR(Ifirstgv, GV *) /* $a */
140PERLVAR(Isecondgv, GV *) /* $b */
49f531da 141PERLVAR(Imystrk, SV *) /* temp key string for do_each() */
142PERLVAR(Idumplvl, I32) /* indentation level on syntax tree dump */
143PERLVAR(Ioldlastpm, PMOP *) /* for saving regexp context during debugger */
144PERLVAR(Igensym, I32) /* next symbol for getsym() to define */
145PERLVAR(Ipreambled, bool)
146PERLVAR(Ipreambleav, AV *)
147PERLVARI(Ilaststatval, int, -1)
148PERLVARI(Ilaststype, I32, OP_STAT)
149PERLVAR(Imess_sv, SV *)
150
d4cce5f1 151PERLVAR(Iors, char *) /* $\ */
152PERLVAR(Iorslen, STRLEN)
153PERLVAR(Iofmt, char *) /* $# */
154
4b556e6c 155/* interpreter atexit processing */
156PERLVARI(Iexitlist, PerlExitListEntry *, NULL) /* list of exit functions */
157PERLVARI(Iexitlistlen, I32, 0) /* length of same */
158PERLVAR(Imodglobal, HV *) /* per-interp module data */
159
160#ifdef HAVE_INTERP_INTERN
9f699bd9 161PERLVAR(Isys_intern, struct interp_intern) /* platform internals */
4b556e6c 162#endif
163
7fae4e64 164/* more statics moved here */
7fae4e64 165PERLVARI(Igeneration, int, 100) /* from op.c */
166PERLVAR(IDBcv, CV *) /* from perl.c */
167PERLVAR(Iarchpat_auto, char*) /* from perl.c */
168PERLVAR(Isortcxix, I32) /* from pp_ctl.c */
169PERLVAR(Ilastgotoprobe, OP*) /* from pp_ctl.c */
170PERLVAR(Iregdummy, regnode) /* from regcomp.c */
77d41b28 171PERLVAR(Iregcomp_parse, char*) /* Input-scan pointer. */
7fae4e64 172PERLVAR(Iregxend, char*) /* End of input for compile */
173PERLVAR(Iregcode, regnode*) /* Code-emit pointer; &regdummy = don't. */
174PERLVAR(Iregnaughty, I32) /* How bad is this pattern? */
175PERLVAR(Iregsawback, I32) /* Did we see \1, ...? */
176
177/* This guys appear both in regcomp.c and regexec.c, */
178PERLVAR(Iregprecomp, char *) /* uncompiled string. */
179PERLVAR(Iregnpar, I32) /* () count. */
180PERLVAR(Iregsize, I32) /* Code size. */
181PERLVAR(Iregflags, U16) /* are we folding, multilining? */
182
183PERLVAR(Iregseen, U32) /* from regcomp.c */
184PERLVAR(Iseen_zerolen, I32) /* from regcomp.c */
77d41b28 185PERLVAR(Iregcomp_rx, regexp *) /* from regcomp.c */
7fae4e64 186PERLVAR(Iextralen, I32) /* from regcomp.c */
51aa15f3 187/* #ifdef DEBUGGING -- keep the structure the same with/without DEBUGGING defined */
7fae4e64 188PERLVAR(Icolorset, int) /* from regcomp.c */
189PERLVAR(Icolors[4], char *) /* from regcomp.c */
51aa15f3 190/* #endif */
7fae4e64 191
192PERLVAR(Ireginput, char *) /* String-input pointer. */
193PERLVAR(Iregbol, char *) /* Beginning of input, for ^ check. */
194PERLVAR(Iregeol, char *) /* End of input, for $ check. */
195PERLVAR(Iregstartp, char **) /* Pointer to startp array. */
196PERLVAR(Iregendp, char **) /* Ditto for endp. */
197PERLVAR(Ireglastparen, U32 *) /* Similarly for lastparen. */
198PERLVAR(Iregtill, char *) /* How far we are required to go. */
199PERLVAR(Iregprev, char) /* char before regbol, \n if none */
200
201PERLVAR(Ireg_start_tmp, char **) /* from regexec.c */
202PERLVAR(Ireg_start_tmpl,U32) /* from regexec.c */
203PERLVAR(Iregdata, struct reg_data *) /* from regexec.c renamed was data */
204PERLVAR(Ibostr, char *) /* from regexec.c */
205PERLVAR(Ireg_flags, U32) /* from regexec.c */
206PERLVAR(Ireg_eval_set, I32) /* from regexec.c */
207
51aa15f3 208/* #ifdef DEBUGGING -- keep the structure the same with/without DEBUGGING defined */
7fae4e64 209PERLVAR(Iregnarrate, I32) /* from regexec.c */
210PERLVAR(Iregprogram, regnode *) /* from regexec.c */
211PERLVARI(Iregindent, int, 0) /* from regexec.c */
51aa15f3 212/* #endif */
7fae4e64 213
214PERLVAR(Iregcc, CURCUR *) /* from regexec.c */
215PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
216PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
217
218PERLVAR(Ilinestart, char *) /* beg. of most recently read line */
219PERLVAR(Ipending_ident, char) /* pending identifier lookup */
220PERLVAR(Isublex_info, SUBLEXINFO) /* from toke.c */
221
49f531da 222#ifdef USE_THREADS
d4cce5f1 223PERLVAR(Ithrsv, SV *) /* holds struct perl_thread for main thread */
940cb80d 224PERLVARI(Ithreadnum, U32, 0) /* incremented each thread creation */
49f531da 225#endif /* USE_THREADS */
76e3520e 226
227#ifdef PERL_OBJECT
7fae4e64 228PERLVARI(piMem, IPerlMem*, NULL)
229PERLVARI(piENV, IPerlEnv*, NULL)
230PERLVARI(piStdIO, IPerlStdIO*, NULL)
231PERLVARI(piLIO, IPerlLIO*, NULL)
232PERLVARI(piDir, IPerlDir*, NULL)
233PERLVARI(piSock, IPerlSock*, NULL)
234PERLVARI(piProc, IPerlProc*, NULL)
76e3520e 235#endif
Unnamed repository; edit this file to name it for gitweb.