projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
[asperl] integrate latest win32 branch
[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 *)
34PERLVAR(Ie_tmpname, char *)
d4cce5f1 35PERLVAR(Ie_fp, PerlIO *)
49f531da 36PERLVAR(Iperldb, U32)
d4cce5f1 37
38/* This value may be raised by extensions for testing purposes */
39/* 0=none, 1=full, 2=full with checks */
40PERLVARI(Iperl_destruct_level, int, 0)
49f531da 41
42/* magical thingies */
43PERLVAR(Ibasetime, Time_t) /* $^T */
44PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1 45
46
49f531da 47PERLVARI(Imaxsysfd, I32, MAXSYSFD) /* top fd to pass to subprocesses */
48PERLVAR(Imultiline, int) /* $*--do strings hold >1 line? */
49PERLVAR(Istatusvalue, I32) /* $? */
50#ifdef VMS
51PERLVAR(Istatusvalue_vms, U32)
52#endif
53
61bb5906 54PERLVAR(Istatcache, Stat_t) /* _ */
49f531da 55PERLVAR(Istatgv, GV *)
56PERLVARI(Istatname, SV *, Nullsv)
57
58/* shortcuts to various I/O objects */
59PERLVAR(Istdingv, GV *)
d4cce5f1 60PERLVAR(Idefgv, GV *)
49f531da 61PERLVAR(Iargvgv, GV *)
49f531da 62PERLVAR(Iargvoutgv, GV *)
63
64/* shortcuts to regexp stuff */
65PERLVAR(Ileftgv, GV *)
66PERLVAR(Iampergv, GV *)
67PERLVAR(Irightgv, GV *)
49f531da 68PERLVAR(Iscreamfirst, I32 *)
69PERLVAR(Iscreamnext, I32 *)
70PERLVARI(Imaxscream, I32, -1)
71PERLVAR(Ilastscream, SV *)
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 */
141PERLVAR(Isortstack, AV *) /* temp stack during pp_sort() */
142PERLVAR(Isignalstack, AV *) /* temp stack during sighandler() */
143PERLVAR(Imystrk, SV *) /* temp key string for do_each() */
144PERLVAR(Idumplvl, I32) /* indentation level on syntax tree dump */
145PERLVAR(Ioldlastpm, PMOP *) /* for saving regexp context during debugger */
146PERLVAR(Igensym, I32) /* next symbol for getsym() to define */
147PERLVAR(Ipreambled, bool)
148PERLVAR(Ipreambleav, AV *)
149PERLVARI(Ilaststatval, int, -1)
150PERLVARI(Ilaststype, I32, OP_STAT)
151PERLVAR(Imess_sv, SV *)
152
d4cce5f1 153PERLVAR(Iors, char *) /* $\ */
154PERLVAR(Iorslen, STRLEN)
155PERLVAR(Iofmt, char *) /* $# */
156
7fae4e64 157/* more statics moved here */
158PERLVAR(Imh, HE) /* from hv.c */
159PERLVAR(Imodcount, I32) /* from op.c */
160PERLVARI(Igeneration, int, 100) /* from op.c */
161PERLVAR(IDBcv, CV *) /* from perl.c */
162PERLVAR(Iarchpat_auto, char*) /* from perl.c */
163PERLVAR(Isortcxix, I32) /* from pp_ctl.c */
164PERLVAR(Ilastgotoprobe, OP*) /* from pp_ctl.c */
165PERLVAR(Iregdummy, regnode) /* from regcomp.c */
166PERLVAR(Iregparse, char*) /* Input-scan pointer. */
167PERLVAR(Iregxend, char*) /* End of input for compile */
168PERLVAR(Iregcode, regnode*) /* Code-emit pointer; &regdummy = don't. */
169PERLVAR(Iregnaughty, I32) /* How bad is this pattern? */
170PERLVAR(Iregsawback, I32) /* Did we see \1, ...? */
171
172/* This guys appear both in regcomp.c and regexec.c, */
173PERLVAR(Iregprecomp, char *) /* uncompiled string. */
174PERLVAR(Iregnpar, I32) /* () count. */
175PERLVAR(Iregsize, I32) /* Code size. */
176PERLVAR(Iregflags, U16) /* are we folding, multilining? */
177
178PERLVAR(Iregseen, U32) /* from regcomp.c */
179PERLVAR(Iseen_zerolen, I32) /* from regcomp.c */
180PERLVAR(Irx, regexp *) /* from regcomp.c */
181PERLVAR(Iextralen, I32) /* from regcomp.c */
182#ifdef DEBUGGING
183PERLVAR(Icolorset, int) /* from regcomp.c */
184PERLVAR(Icolors[4], char *) /* from regcomp.c */
185#endif
186
187PERLVAR(Ireginput, char *) /* String-input pointer. */
188PERLVAR(Iregbol, char *) /* Beginning of input, for ^ check. */
189PERLVAR(Iregeol, char *) /* End of input, for $ check. */
190PERLVAR(Iregstartp, char **) /* Pointer to startp array. */
191PERLVAR(Iregendp, char **) /* Ditto for endp. */
192PERLVAR(Ireglastparen, U32 *) /* Similarly for lastparen. */
193PERLVAR(Iregtill, char *) /* How far we are required to go. */
194PERLVAR(Iregprev, char) /* char before regbol, \n if none */
195
196PERLVAR(Ireg_start_tmp, char **) /* from regexec.c */
197PERLVAR(Ireg_start_tmpl,U32) /* from regexec.c */
198PERLVAR(Iregdata, struct reg_data *) /* from regexec.c renamed was data */
199PERLVAR(Ibostr, char *) /* from regexec.c */
200PERLVAR(Ireg_flags, U32) /* from regexec.c */
201PERLVAR(Ireg_eval_set, I32) /* from regexec.c */
202
203#ifdef DEBUGGING
204PERLVAR(Iregnarrate, I32) /* from regexec.c */
205PERLVAR(Iregprogram, regnode *) /* from regexec.c */
206PERLVARI(Iregindent, int, 0) /* from regexec.c */
207#endif
208
209PERLVAR(Iregcc, CURCUR *) /* from regexec.c */
210PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
211PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
212
213PERLVAR(Ilinestart, char *) /* beg. of most recently read line */
214PERLVAR(Ipending_ident, char) /* pending identifier lookup */
215PERLVAR(Isublex_info, SUBLEXINFO) /* from toke.c */
216
49f531da 217#ifdef USE_THREADS
d4cce5f1 218PERLVAR(Ithrsv, SV *) /* holds struct perl_thread for main thread */
940cb80d 219PERLVARI(Ithreadnum, U32, 0) /* incremented each thread creation */
49f531da 220#endif /* USE_THREADS */
76e3520e 221
222#ifdef PERL_OBJECT
7fae4e64 223PERLVARI(piMem, IPerlMem*, NULL)
224PERLVARI(piENV, IPerlEnv*, NULL)
225PERLVARI(piStdIO, IPerlStdIO*, NULL)
226PERLVARI(piLIO, IPerlLIO*, NULL)
227PERLVARI(piDir, IPerlDir*, NULL)
228PERLVARI(piSock, IPerlSock*, NULL)
229PERLVARI(piProc, IPerlProc*, NULL)
76e3520e 230#endif
Unnamed repository; edit this file to name it for gitweb.