This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[win32] merge change#995 from maintbranch, tweak interp.sym and
[perl5.git] / intrpvar.h
CommitLineData
49f531da
NIS
1/***********************************************/
2/* Global only to current interpreter instance */
3/***********************************************/
4
5/* pseudo environmental stuff */
6PERLVAR(Iorigargc, int)
7PERLVAR(Iorigargv, char **)
d4cce5f1
NIS
8PERLVAR(Ienvgv, GV *)
9PERLVAR(Isiggv, GV *)
10PERLVAR(Iincgv, GV *)
49f531da
NIS
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
NIS
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
NIS
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
NIS
40
41/* magical thingies */
42PERLVAR(Ibasetime, Time_t) /* $^T */
43PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1
NIS
44
45
49f531da
NIS
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
NIS
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
NIS
61PERLVAR(Iargvoutgv, GV *)
62
63/* shortcuts to regexp stuff */
64PERLVAR(Ileftgv, GV *)
65PERLVAR(Iampergv, GV *)
66PERLVAR(Irightgv, GV *)
49f531da
NIS
67PERLVAR(Iscreamfirst, I32 *)
68PERLVAR(Iscreamnext, I32 *)
69PERLVARI(Imaxscream, I32, -1)
70PERLVAR(Ilastscream, SV *)
71
72/* shortcuts to misc objects */
d4cce5f1 73PERLVAR(Ierrgv, GV *)
49f531da
NIS
74
75/* shortcuts to debugging objects */
d4cce5f1 76PERLVAR(IDBgv, GV *)
49f531da 77PERLVAR(IDBline, GV *)
d4cce5f1 78PERLVAR(IDBsub, GV *)
49f531da
NIS
79PERLVAR(IDBsingle, SV *)
80PERLVAR(IDBtrace, SV *)
81PERLVAR(IDBsignal, SV *)
82PERLVAR(Ilineary, AV *) /* lines of script for debugger */
83PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
84
85/* symbol tables */
49f531da
NIS
86PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
87PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
88PERLVAR(Icurstname, SV *) /* name of current package */
89PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
d4cce5f1 90PERLVAR(Iendav, AV *) /* names of END subroutines */
49f531da
NIS
91PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
92PERLVAR(Istrtab, HV *) /* shared string table */
93
94/* memory management */
49f531da
NIS
95PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
96PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
97PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
98PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
99
100/* funky return mechanisms */
101PERLVAR(Ilastspbase, I32)
102PERLVAR(Ilastsize, I32)
103PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
104
105/* subprocess state */
d4cce5f1 106PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da
NIS
107
108/* internal state */
49f531da
NIS
109PERLVAR(Itainting, bool) /* doing taint checks */
110PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
111
112/* trace state */
113PERLVAR(Idlevel, I32)
114PERLVARI(Idlmax, I32, 128)
115PERLVAR(Idebname, char *)
116PERLVAR(Idebdelim, char *)
117
118/* current interpreter roots */
119PERLVAR(Imain_cv, CV *)
120PERLVAR(Imain_root, OP *)
121PERLVAR(Imain_start, OP *)
122PERLVAR(Ieval_root, OP *)
123PERLVAR(Ieval_start, OP *)
124
125/* runtime control stuff */
49f531da
NIS
126PERLVARI(Icurcopdb, COP *, NULL)
127PERLVARI(Icopline, line_t, NOLINE)
49f531da
NIS
128
129/* statics moved here for shared library purposes */
130PERLVAR(Istrchop, SV) /* return value from chop */
131PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
132PERLVAR(Ilastfd, int) /* what to preserve mode on */
133PERLVAR(Ioldname, char *) /* what to preserve mode on */
d4cce5f1
NIS
134PERLVAR(IArgv, char **) /* stuff to free from do_aexec, vfork safe */
135PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
49f531da
NIS
136PERLVAR(Isortcop, OP *) /* user defined sort routine */
137PERLVAR(Isortstash, HV *) /* which is in some package or other */
138PERLVAR(Ifirstgv, GV *) /* $a */
139PERLVAR(Isecondgv, GV *) /* $b */
49f531da
NIS
140PERLVAR(Imystrk, SV *) /* temp key string for do_each() */
141PERLVAR(Idumplvl, I32) /* indentation level on syntax tree dump */
142PERLVAR(Ioldlastpm, PMOP *) /* for saving regexp context during debugger */
143PERLVAR(Igensym, I32) /* next symbol for getsym() to define */
144PERLVAR(Ipreambled, bool)
145PERLVAR(Ipreambleav, AV *)
146PERLVARI(Ilaststatval, int, -1)
147PERLVARI(Ilaststype, I32, OP_STAT)
148PERLVAR(Imess_sv, SV *)
149
d4cce5f1
NIS
150PERLVAR(Iors, char *) /* $\ */
151PERLVAR(Iorslen, STRLEN)
152PERLVAR(Iofmt, char *) /* $# */
153
4b556e6c
JD
154/* interpreter atexit processing */
155PERLVARI(Iexitlist, PerlExitListEntry *, NULL) /* list of exit functions */
156PERLVARI(Iexitlistlen, I32, 0) /* length of same */
157PERLVAR(Imodglobal, HV *) /* per-interp module data */
158
159#ifdef HAVE_INTERP_INTERN
9f699bd9 160PERLVAR(Isys_intern, struct interp_intern) /* platform internals */
4b556e6c
JD
161#endif
162
49f531da 163#ifdef USE_THREADS
d4cce5f1 164PERLVAR(Ithrsv, SV *) /* holds struct perl_thread for main thread */
940cb80d 165PERLVARI(Ithreadnum, U32, 0) /* incremented each thread creation */
49f531da 166#endif /* USE_THREADS */