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