[win32] integrate mainline
[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
49f531da 157#ifdef USE_THREADS
d4cce5f1 158PERLVAR(Ithrsv, SV *) /* holds struct perl_thread for main thread */
940cb80d 159PERLVARI(Ithreadnum, U32, 0) /* incremented each thread creation */
49f531da 160#endif /* USE_THREADS */