1 /***********************************************/
2 /* Global only to current interpreter instance */
3 /***********************************************/
5 /* Don't forget to re-run embed.pl to propagate changes! */
7 /* The 'I' prefix is only needed for vars that need appropriate #defines
8 * generated when built with or without MULTIPLICITY. It is also used
9 * to generate the appropriate export list for win32.
11 * When building without MULTIPLICITY, these variables will be truly global.
13 * Avoid build-specific #ifdefs here, like DEBUGGING. That way,
14 * we can keep binary compatibility of the curinterp structure */
16 /* pseudo environmental stuff */
17 PERLVAR(Iorigargc, int)
18 PERLVAR(Iorigargv, char **)
22 PERLVAR(Ihintgv, GV *)
23 PERLVAR(Iorigfilename, char *)
24 PERLVAR(Idiehook, SV *)
25 PERLVAR(Iwarnhook, SV *)
26 PERLVAR(Iparsehook, SV *)
27 PERLVAR(Icddir, char *) /* switches */
28 PERLVAR(Iminus_c, bool)
29 PERLVAR(Ipatchlevel[10],char)
30 PERLVAR(Ilocalpatches, char **)
31 PERLVARI(Isplitstr, char *, " ")
32 PERLVAR(Ipreprocess, bool)
33 PERLVAR(Iminus_n, bool)
34 PERLVAR(Iminus_p, bool)
35 PERLVAR(Iminus_l, bool)
36 PERLVAR(Iminus_a, bool)
37 PERLVAR(Iminus_F, bool)
38 PERLVAR(Idoswitches, bool)
39 PERLVAR(Idowarn, bool)
40 PERLVAR(Idoextract, bool)
41 PERLVAR(Isawampersand, bool) /* must save all match strings */
42 PERLVAR(Isawstudy, bool) /* do fbm_instr on all strings */
43 PERLVAR(Isawvec, bool)
44 PERLVAR(Iunsafe, bool)
45 PERLVAR(Iinplace, char *)
46 PERLVAR(Ie_script, SV *)
49 /* This value may be raised by extensions for testing purposes */
50 /* 0=none, 1=full, 2=full with checks */
51 PERLVARI(Iperl_destruct_level, int, 0)
53 /* magical thingies */
54 PERLVAR(Ibasetime, Time_t) /* $^T */
55 PERLVAR(Iformfeed, SV *) /* $^L */
58 PERLVARI(Imaxsysfd, I32, MAXSYSFD)
59 /* top fd to pass to subprocesses */
60 PERLVAR(Imultiline, int) /* $*--do strings hold >1 line? */
61 PERLVAR(Istatusvalue, I32) /* $? */
63 PERLVAR(Istatusvalue_vms,U32)
66 /* shortcuts to various I/O objects */
67 PERLVAR(Istdingv, GV *)
69 PERLVAR(Iargvgv, GV *)
70 PERLVAR(Iargvoutgv, GV *)
72 /* shortcuts to regexp stuff */
73 /* XXX these three aren't used anywhere */
74 PERLVAR(Ileftgv, GV *)
75 PERLVAR(Iampergv, GV *)
76 PERLVAR(Irightgv, GV *)
78 /* this one needs to be moved to thrdvar.h and accessed via
79 * find_threadsv() when USE_THREADS */
80 PERLVAR(Ireplgv, GV *)
82 /* shortcuts to misc objects */
85 /* shortcuts to debugging objects */
87 PERLVAR(IDBline, GV *)
89 PERLVAR(IDBsingle, SV *)
90 PERLVAR(IDBtrace, SV *)
91 PERLVAR(IDBsignal, SV *)
92 PERLVAR(Ilineary, AV *) /* lines of script for debugger */
93 PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
96 PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
97 PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
98 PERLVAR(Icurstname, SV *) /* name of current package */
99 PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
100 PERLVAR(Iendav, AV *) /* names of END subroutines */
101 PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
102 PERLVAR(Istrtab, HV *) /* shared string table */
103 PERLVARI(Isub_generation,U32,1) /* incr to invalidate method cache */
105 /* memory management */
106 PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
107 PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
108 PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
109 PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
111 /* funky return mechanisms */
112 PERLVAR(Ilastspbase, I32)
113 PERLVAR(Ilastsize, I32)
114 PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
116 /* subprocess state */
117 PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
120 PERLVAR(Itainting, bool) /* doing taint checks */
121 PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
124 PERLVAR(Idlevel, I32)
125 PERLVARI(Idlmax, I32, 128)
126 PERLVAR(Idebname, char *)
127 PERLVAR(Idebdelim, char *)
129 /* current interpreter roots */
130 PERLVAR(Imain_cv, CV *)
131 PERLVAR(Imain_root, OP *)
132 PERLVAR(Imain_start, OP *)
133 PERLVAR(Ieval_root, OP *)
134 PERLVAR(Ieval_start, OP *)
136 /* runtime control stuff */
137 PERLVARI(Icurcopdb, COP *, NULL)
138 PERLVARI(Icopline, line_t, NOLINE)
140 /* statics moved here for shared library purposes */
141 PERLVAR(Istrchop, SV) /* return value from chop */
142 PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
143 PERLVAR(Ilastfd, int) /* what to preserve mode on */
144 PERLVAR(Ioldname, char *) /* what to preserve mode on */
145 PERLVAR(IArgv, char **) /* stuff to free from do_aexec, vfork safe */
146 PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
147 PERLVAR(Imystrk, SV *) /* temp key string for do_each() */
148 PERLVAR(Ioldlastpm, PMOP *) /* for saving regexp context in debugger */
149 PERLVAR(Igensym, I32) /* next symbol for getsym() to define */
150 PERLVAR(Ipreambled, bool)
151 PERLVAR(Ipreambleav, AV *)
152 PERLVARI(Ilaststatval, int, -1)
153 PERLVARI(Ilaststype, I32, OP_STAT)
154 PERLVAR(Imess_sv, SV *)
156 /* XXX shouldn't these be per-thread? --GSAR */
157 PERLVAR(Iors, char *) /* output record separator $\ */
158 PERLVAR(Iorslen, STRLEN)
159 PERLVAR(Iofmt, char *) /* output format for numbers $# */
161 /* interpreter atexit processing */
162 PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
163 /* list of exit functions */
164 PERLVARI(Iexitlistlen, I32, 0) /* length of same */
165 PERLVAR(Imodglobal, HV *) /* per-interp module data */
167 /* these used to be in global before 5.004_68 */
168 PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
169 PERLVARI(Irsfp, PerlIO * VOL, Nullfp) /* current source file pointer */
170 PERLVARI(Irsfp_filters, AV *, Nullav) /* keeps active source filters */
172 PERLVAR(Icompiling, COP) /* compiling/done executing marker */
174 PERLVAR(Icompcv, CV *) /* currently compiling subroutine */
175 PERLVAR(Icomppad, AV *) /* storage for lexically scoped temporaries */
176 PERLVAR(Icomppad_name, AV *) /* variable names for "my" variables */
177 PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */
178 PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */
180 #ifdef HAVE_INTERP_INTERN
181 PERLVAR(Isys_intern, struct interp_intern)
182 /* platform internals */
185 /* more statics moved here */
186 PERLVARI(Igeneration, int, 100) /* from op.c */
187 PERLVAR(IDBcv, CV *) /* from perl.c */
188 PERLVAR(Iarchpat_auto, char*) /* from perl.c */
190 PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
191 PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
193 PERLVAR(Ilinestart, char *) /* beg. of most recently read line */
194 PERLVAR(Ipending_ident, char) /* pending identifier lookup */
195 PERLVAR(Isublex_info, SUBLEXINFO) /* from toke.c */
198 PERLVAR(Ithrsv, SV *) /* struct perl_thread for main thread */
199 PERLVARI(Ithreadnum, U32, 0) /* incremented each thread creation */
200 PERLVAR(Istrtab_mutex, perl_mutex) /* Mutex for string table access */
201 #endif /* USE_THREADS */
204 PERLVARI(piMem, IPerlMem*, NULL)
205 PERLVARI(piENV, IPerlEnv*, NULL)
206 PERLVARI(piStdIO, IPerlStdIO*, NULL)
207 PERLVARI(piLIO, IPerlLIO*, NULL)
208 PERLVARI(piDir, IPerlDir*, NULL)
209 PERLVARI(piSock, IPerlSock*, NULL)
210 PERLVARI(piProc, IPerlProc*, NULL)