This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PL_in_load_module only has values 0 and 1, so can be a bool instead of int.
[perl5.git] / intrpvar.h
CommitLineData
907b3e23
DM
1/* intrpvar.h
2 *
3 * Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
1129b882 4 * 2006, 2007, 2008 by Larry Wall and others
907b3e23
DM
5 *
6 * You may distribute under the terms of either the GNU General Public
7 * License or the Artistic License, as specified in the README file.
8 *
9 */
10
11/*
12=head1 Per-Interpreter Variables
13*/
49f531da 14
907b3e23
DM
15/* These variables are per-interpreter in threaded/multiplicity builds,
16 * global otherwise.
17
18 * Don't forget to re-run embed.pl to propagate changes! */
cb68f92d 19
6537fe72
MS
20/* New variables must be added to the very end for binary compatibility.
21 * XSUB.h provides wrapper functions via perlapi.h that make this
22 * irrelevant, but not all code may be expected to #include XSUB.h. */
23
02506efe
JH
24/* Don't forget to add your variable also to perl_clone()! */
25
cb68f92d
GS
26/* The 'I' prefix is only needed for vars that need appropriate #defines
27 * generated when built with or without MULTIPLICITY. It is also used
28 * to generate the appropriate export list for win32.
29 *
907b3e23
DM
30 * When building without MULTIPLICITY, these variables will be truly global.
31 *
32 * Important ones in the first cache line (if alignment is done right) */
33
34PERLVAR(Istack_sp, SV **) /* top of the stack */
35#ifdef OP_IN_REGISTER
36PERLVAR(Iopsave, OP *)
37#else
38PERLVAR(Iop, OP *) /* currently executing op */
39#endif
40PERLVAR(Icurpad, SV **) /* active pad (lexicals+tmps) */
41
42PERLVAR(Istack_base, SV **)
43PERLVAR(Istack_max, SV **)
44
45PERLVAR(Iscopestack, I32 *) /* scopes we've ENTERed */
f2b88940
NC
46/* name of the scopes we've ENTERed. Only used with -DDEBUGGING, but needs to be
47 present always, as -DDEUBGGING must be binary compatible with non. */
48PERLVARI(Iscopestack_name, const char * *, NULL)
907b3e23
DM
49PERLVAR(Iscopestack_ix, I32)
50PERLVAR(Iscopestack_max,I32)
51
52PERLVAR(Isavestack, ANY *) /* items that need to be restored when
53 LEAVEing scopes we've ENTERed */
54PERLVAR(Isavestack_ix, I32)
55PERLVAR(Isavestack_max, I32)
56
57PERLVAR(Itmps_stack, SV **) /* mortals we've made */
58PERLVARI(Itmps_ix, I32, -1)
59PERLVARI(Itmps_floor, I32, -1)
60PERLVAR(Itmps_max, I32)
61PERLVAR(Imodcount, I32) /* how much mod()ification in
62 assignment? */
63
64PERLVAR(Imarkstack, I32 *) /* stack_sp locations we're
65 remembering */
66PERLVAR(Imarkstack_ptr, I32 *)
67PERLVAR(Imarkstack_max, I32 *)
68
69PERLVAR(ISv, SV *) /* used to hold temporary values */
70PERLVAR(IXpv, XPV *) /* used to hold temporary values */
71
72/*
73=for apidoc Amn|STRLEN|PL_na
74
75A convenience variable which is typically used with C<SvPV> when one
76doesn't care about the length of the string. It is usually more efficient
77to either declare a local variable and use that instead or to use the
78C<SvPV_nolen> macro.
79
80=cut
81*/
82
83PERLVAR(Ina, STRLEN) /* for use in SvPV when length is
84 Not Applicable */
85
86/* stat stuff */
87PERLVAR(Istatbuf, Stat_t)
88PERLVAR(Istatcache, Stat_t) /* _ */
89PERLVAR(Istatgv, GV *)
90PERLVARI(Istatname, SV *, NULL)
91
92#ifdef HAS_TIMES
93PERLVAR(Itimesbuf, struct tms)
94#endif
95
96/* Fields used by magic variables such as $@, $/ and so on */
97PERLVAR(Icurpm, PMOP *) /* what to do \ interps in REs from */
98
99/*
100=for apidoc mn|SV*|PL_rs
101
102The input record separator - C<$/> in Perl space.
103
104=for apidoc mn|GV*|PL_last_in_gv
105
106The GV which was last used for a filehandle input operation. (C<< <FH> >>)
107
e23d9e2f 108=for apidoc mn|GV*|PL_ofsgv
907b3e23 109
e23d9e2f 110The glob containing the output field separator - C<*,> in Perl space.
907b3e23
DM
111
112=cut
113*/
114
115PERLVAR(Irs, SV *) /* input record separator $/ */
116PERLVAR(Ilast_in_gv, GV *) /* GV used in last <FH> */
e23d9e2f 117PERLVAR(Iofsgv, GV *) /* GV of output field separator *, */
907b3e23
DM
118PERLVAR(Idefoutgv, GV *) /* default FH for output */
119PERLVARI(Ichopset, const char *, " \n-") /* $: */
120PERLVAR(Iformtarget, SV *)
121PERLVAR(Ibodytarget, SV *)
122PERLVAR(Itoptarget, SV *)
123
124/* Stashes */
125PERLVAR(Idefstash, HV *) /* main symbol table */
126PERLVAR(Icurstash, HV *) /* symbol table for current package */
127
128PERLVAR(Irestartop, OP *) /* propagating an error from croak? */
febb3a6d 129PERLVAR(Irestartjmpenv, JMPENV *) /* target frame for longjmp in die */
910e0671 130PERLVAR(Icurcop, COP *)
907b3e23
DM
131PERLVAR(Icurstack, AV *) /* THE STACK */
132PERLVAR(Icurstackinfo, PERL_SI *) /* current stack + context */
133PERLVAR(Imainstack, AV *) /* the stack when nothing funny is
134 happening */
135
136PERLVAR(Itop_env, JMPENV *) /* ptr to current sigjmp environment */
137PERLVAR(Istart_env, JMPENV) /* empty startup sigjmp environment */
138PERLVARI(Ierrors, SV *, NULL) /* outstanding queued errors */
139
140/* statics "owned" by various functions */
907b3e23
DM
141PERLVAR(Ihv_fetch_ent_mh, HE*) /* owned by hv_fetch_ent() */
142
907b3e23
DM
143PERLVAR(Ilastgotoprobe, OP*) /* from pp_ctl.c */
144
145/* sort stuff */
146PERLVAR(Isortcop, OP *) /* user defined sort routine */
147PERLVAR(Isortstash, HV *) /* which is in some package or other */
148PERLVAR(Ifirstgv, GV *) /* $a */
149PERLVAR(Isecondgv, GV *) /* $b */
150
151/* float buffer */
152PERLVAR(Iefloatbuf, char *)
153PERLVAR(Iefloatsize, STRLEN)
154
155/* regex stuff */
156
157PERLVAR(Iscreamfirst, I32 *)
158PERLVAR(Iscreamnext, I32 *)
159PERLVAR(Ilastscream, SV *)
160
161PERLVAR(Ireg_state, struct re_save_state)
162
163PERLVAR(Iregdummy, regnode) /* from regcomp.c */
164
165PERLVARI(Idumpindent, U16, 4) /* number of blanks per dump
166 indentation level */
167
157b3822
NC
168
169PERLVAR(Iutf8locale, bool) /* utf8 locale detected */
170PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */
907b3e23
DM
171
172PERLVARA(Icolors,6, char *) /* from regcomp.c */
173
174PERLVARI(Ipeepp, peep_t, MEMBER_TO_FPTR(Perl_peep))
175 /* Pointer to peephole optimizer */
176
2f175318
VP
177/*
178=for apidoc Amn|Perl_ophook_t|PL_opfreehook
179
180When non-C<NULL>, the function pointed by this variable will be called each time an OP is freed with the corresponding OP as the argument.
181This allows extensions to free any extra attribute they have locally attached to an OP.
182It is also assured to first fire for the parent OP and then for its kids.
183
184When you replace this variable, it is considered a good practice to store the possibly previously installed hook and that you recall it inside your own.
185
186=cut
187*/
188
799dfa8f 189PERLVARI(Iopfreehook, Perl_ophook_t, 0) /* op_free() hook */
f37b8c3f 190
907b3e23
DM
191PERLVARI(Imaxscream, I32, -1)
192PERLVARI(Ireginterp_cnt,I32, 0) /* Whether "Regexp" was interpolated. */
193PERLVARI(Iwatchaddr, char **, 0)
194PERLVAR(Iwatchok, char *)
195
196/* the currently active slab in a chain of slabs of regmatch states,
197 * and the currently active state within that slab */
198
199PERLVARI(Iregmatch_slab, regmatch_slab *, NULL)
200PERLVAR(Iregmatch_state, regmatch_state *)
201
907b3e23 202/* Put anything new that is pointer aligned here. */
d95e864f 203
907b3e23
DM
204PERLVAR(Idelaymagic, U16) /* ($<,$>) = ... */
205PERLVAR(Ilocalizing, U8) /* are we processing a local() list? */
206PERLVAR(Icolorset, bool) /* from regcomp.c */
207PERLVARI(Idirty, bool, FALSE) /* in the middle of tearing things
208 down? */
910e0671 209PERLVAR(Iin_eval, U8) /* trap "fatal" errors? */
907b3e23 210PERLVAR(Itainted, bool) /* using variables controlled by $< */
d95e864f
NC
211
212/* This value may be set when embedding for full cleanup */
213/* 0=none, 1=full, 2=full with checks */
801627e8
NC
214/* mod_perl is special, and also assigns a meaning -1 */
215PERLVARI(Iperl_destruct_level, signed char, 0)
d95e864f
NC
216
217PERLVAR(Iperldb, U32)
218
49f531da 219/* pseudo environmental stuff */
d95e864f 220PERLVAR(Iorigargc, int)
cb68f92d
GS
221PERLVAR(Iorigargv, char **)
222PERLVAR(Ienvgv, GV *)
cb68f92d 223PERLVAR(Iincgv, GV *)
b3ac6de7 224PERLVAR(Ihintgv, GV *)
cb68f92d
GS
225PERLVAR(Iorigfilename, char *)
226PERLVAR(Idiehook, SV *)
227PERLVAR(Iwarnhook, SV *)
1d7c1841
GS
228
229/* switches */
a7cb1f99 230PERLVAR(Ipatchlevel, SV *)
27da23d5 231PERLVAR(Ilocalpatches, const char * const *)
dd374669 232PERLVARI(Isplitstr, const char *, " ")
9f7da6d5
NC
233
234PERLVAR(Iminus_c, bool)
cb68f92d
GS
235PERLVAR(Iminus_n, bool)
236PERLVAR(Iminus_p, bool)
237PERLVAR(Iminus_l, bool)
238PERLVAR(Iminus_a, bool)
239PERLVAR(Iminus_F, bool)
240PERLVAR(Idoswitches, bool)
bc9b29db 241PERLVAR(Iminus_E, bool)
954c1994
GS
242
243/*
ccfc67b7 244
2eb25c99 245=for apidoc mn|bool|PL_dowarn
954c1994
GS
246
247The C variable which corresponds to Perl's $^W warning variable.
248
249=cut
250*/
251
d41ff1b8 252PERLVAR(Idowarn, U8)
cb68f92d 253PERLVAR(Idoextract, bool)
49f531da 254PERLVAR(Isawampersand, bool) /* must save all match strings */
cb68f92d 255PERLVAR(Iunsafe, bool)
9f7da6d5
NC
256PERLVAR(Iexit_flags, U8) /* was exit() unexpected, etc. */
257PERLVAR(Isrand_called, bool)
258/* Part of internal state, but makes the 16th 1 byte variable in a row. */
259PERLVAR(Itainting, bool) /* doing taint checks */
4fa7c2bf 260PERLVARI(Iin_load_module, bool, FALSE) /* to prevent recursions in PerlIO_find_layer */
cb68f92d
GS
261PERLVAR(Iinplace, char *)
262PERLVAR(Ie_script, SV *)
49f531da
NIS
263
264/* magical thingies */
265PERLVAR(Ibasetime, Time_t) /* $^T */
266PERLVAR(Iformfeed, SV *) /* $^L */
d4cce5f1
NIS
267
268
cb68f92d
GS
269PERLVARI(Imaxsysfd, I32, MAXSYSFD)
270 /* top fd to pass to subprocesses */
49f531da
NIS
271PERLVAR(Istatusvalue, I32) /* $? */
272#ifdef VMS
cb68f92d 273PERLVAR(Istatusvalue_vms,U32)
e5218da5
GA
274#else
275PERLVAR(Istatusvalue_posix,I32)
49f531da
NIS
276#endif
277
157b3822
NC
278PERLVARI(Isig_pending, int,0) /* Number if highest signal pending */
279PERLVAR(Ipsig_pend, int *) /* per-signal "count" of pending */
280
49f531da 281/* shortcuts to various I/O objects */
cb68f92d 282PERLVAR(Istdingv, GV *)
bf49b057 283PERLVAR(Istderrgv, GV *)
cb68f92d
GS
284PERLVAR(Idefgv, GV *)
285PERLVAR(Iargvgv, GV *)
286PERLVAR(Iargvoutgv, GV *)
1d7c1841 287PERLVAR(Iargvout_stack, AV *)
49f531da
NIS
288
289/* shortcuts to regexp stuff */
cb68f92d 290PERLVAR(Ireplgv, GV *)
49f531da
NIS
291
292/* shortcuts to misc objects */
cb68f92d 293PERLVAR(Ierrgv, GV *)
49f531da
NIS
294
295/* shortcuts to debugging objects */
cb68f92d
GS
296PERLVAR(IDBgv, GV *)
297PERLVAR(IDBline, GV *)
954c1994
GS
298
299/*
2eb25c99 300=for apidoc mn|GV *|PL_DBsub
954c1994
GS
301When Perl is run in debugging mode, with the B<-d> switch, this GV contains
302the SV which holds the name of the sub being debugged. This is the C
303variable which corresponds to Perl's $DB::sub variable. See
304C<PL_DBsingle>.
305
2eb25c99 306=for apidoc mn|SV *|PL_DBsingle
954c1994 307When Perl is run in debugging mode, with the B<-d> switch, this SV is a
7889fe52 308boolean which indicates whether subs are being single-stepped.
954c1994
GS
309Single-stepping is automatically turned on after every step. This is the C
310variable which corresponds to Perl's $DB::single variable. See
311C<PL_DBsub>.
312
2eb25c99 313=for apidoc mn|SV *|PL_DBtrace
954c1994
GS
314Trace variable used when Perl is run in debugging mode, with the B<-d>
315switch. This is the C variable which corresponds to Perl's $DB::trace
316variable. See C<PL_DBsingle>.
317
318=cut
319*/
320
cb68f92d
GS
321PERLVAR(IDBsub, GV *)
322PERLVAR(IDBsingle, SV *)
323PERLVAR(IDBtrace, SV *)
324PERLVAR(IDBsignal, SV *)
49f531da
NIS
325PERLVAR(Idbargs, AV *) /* args to call listed by caller function */
326
327/* symbol tables */
49f531da
NIS
328PERLVAR(Idebstash, HV *) /* symbol table for perldb package */
329PERLVAR(Iglobalstash, HV *) /* global keyword overrides imported here */
330PERLVAR(Icurstname, SV *) /* name of current package */
331PERLVAR(Ibeginav, AV *) /* names of BEGIN subroutines */
d4cce5f1 332PERLVAR(Iendav, AV *) /* names of END subroutines */
3c10abe3 333PERLVAR(Iunitcheckav, AV *) /* names of UNITCHECK subroutines */
7d30b5c4 334PERLVAR(Icheckav, AV *) /* names of CHECK subroutines */
49f531da
NIS
335PERLVAR(Iinitav, AV *) /* names of INIT subroutines */
336PERLVAR(Istrtab, HV *) /* shared string table */
005a453c 337PERLVARI(Isub_generation,U32,1) /* incr to invalidate method cache */
49f531da 338
9f7da6d5
NC
339/* funky return mechanisms */
340PERLVAR(Iforkprocess, int) /* so do_open |- can return proc# */
341
49f531da 342/* memory management */
49f531da
NIS
343PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */
344PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */
345PERLVAR(Isv_root, SV*) /* storage for SVs belonging to interp */
346PERLVAR(Isv_arenaroot, SV*) /* list of areas for garbage collection */
347
49f531da 348/* subprocess state */
d4cce5f1 349PERLVAR(Ifdpid, AV *) /* keep fd-to-pid mappings for my_popen */
49f531da
NIS
350
351/* internal state */
49f531da
NIS
352PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
353
49f531da 354/* current interpreter roots */
cb68f92d
GS
355PERLVAR(Imain_cv, CV *)
356PERLVAR(Imain_root, OP *)
357PERLVAR(Imain_start, OP *)
358PERLVAR(Ieval_root, OP *)
359PERLVAR(Ieval_start, OP *)
49f531da
NIS
360
361/* runtime control stuff */
cb68f92d 362PERLVARI(Icurcopdb, COP *, NULL)
49f531da 363
49f531da
NIS
364PERLVAR(Ifilemode, int) /* so nextargv() can preserve mode */
365PERLVAR(Ilastfd, int) /* what to preserve mode on */
366PERLVAR(Ioldname, char *) /* what to preserve mode on */
360ea906 367PERLVAR(IArgv, const char **) /* stuff to free from do_aexec, vfork safe */
d4cce5f1 368PERLVAR(ICmd, char *) /* stuff to free from do_aexec, vfork safe */
00accf8d
NC
369/* Elements in this array have ';' appended and are injected as a single line
370 into the tokeniser. You can't put any (literal) newlines into any program
371 you stuff in into this array, as the point where it's injected is expecting
372 a single physical line. */
cb68f92d 373PERLVAR(Ipreambleav, AV *)
cb68f92d 374PERLVAR(Imess_sv, SV *)
7889fe52 375PERLVAR(Iors_sv, SV *) /* output record separator $\ */
71eebe1e
NC
376/* statics moved here for shared library purposes */
377PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */
a4021b77 378PERLVARI(Icv_has_eval, bool, FALSE) /* PL_compcv includes an entereval or similar */
157b3822 379PERLVAR(Itaint_warn, bool) /* taint warns instead of dying */
d95e864f
NC
380PERLVARI(Ilaststype, U16, OP_STAT)
381PERLVARI(Ilaststatval, int, -1)
d4cce5f1 382
4b556e6c 383/* interpreter atexit processing */
d95e864f 384PERLVARI(Iexitlistlen, I32, 0) /* length of same */
cb68f92d
GS
385PERLVARI(Iexitlist, PerlExitListEntry *, NULL)
386 /* list of exit functions */
954c1994
GS
387
388/*
389=for apidoc Amn|HV*|PL_modglobal
390
7889fe52 391C<PL_modglobal> is a general purpose, interpreter global HV for use by
954c1994 392extensions that need to keep information on a per-interpreter basis.
7889fe52
NIS
393In a pinch, it can also be used as a symbol table for extensions
394to share data among each other. It is a good idea to use keys
954c1994
GS
395prefixed by the package name of the extension that owns the data.
396
397=cut
398*/
399
cb68f92d
GS
400PERLVAR(Imodglobal, HV *) /* per-interp module data */
401
402/* these used to be in global before 5.004_68 */
403PERLVARI(Iprofiledata, U32 *, NULL) /* table of ops, counts */
cb68f92d
GS
404
405PERLVAR(Icompiling, COP) /* compiling/done executing marker */
406
407PERLVAR(Icompcv, CV *) /* currently compiling subroutine */
408PERLVAR(Icomppad, AV *) /* storage for lexically scoped temporaries */
409PERLVAR(Icomppad_name, AV *) /* variable names for "my" variables */
410PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */
411PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */
4b556e6c
JD
412
413#ifdef HAVE_INTERP_INTERN
cb68f92d
GS
414PERLVAR(Isys_intern, struct interp_intern)
415 /* platform internals */
4b556e6c
JD
416#endif
417
7fae4e64 418/* more statics moved here */
7fae4e64 419PERLVAR(IDBcv, CV *) /* from perl.c */
9f7da6d5 420PERLVARI(Igeneration, int, 100) /* from op.c */
56953603 421
cb68f92d
GS
422PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
423PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
9f7da6d5
NC
424PERLVAR(Inomemok, bool) /* let malloc context handle nomem */
425PERLVARI(Isavebegin, bool, FALSE) /* save BEGINs for compiler */
7fae4e64 426
d8eceb89
JH
427PERLVAR(Iuid, Uid_t) /* current real user id */
428PERLVAR(Ieuid, Uid_t) /* current effective user id */
429PERLVAR(Igid, Gid_t) /* current real group id */
430PERLVAR(Iegid, Gid_t) /* current effective group id */
bf9cdc68
RG
431PERLVARI(Ian, U32, 0) /* malloc sequence number */
432PERLVARI(Icop_seqmax, U32, 0) /* statement sequence number */
bf9cdc68 433PERLVARI(Ievalseq, U32, 0) /* eval sequence number */
0672f40e 434PERLVAR(Iorigalen, U32)
9f7da6d5 435PERLVAR(Iorigenviron, char **)
ca0c25f6 436#ifdef PERL_USES_PL_PIDSTATUS
0672f40e 437PERLVAR(Ipidstatus, HV *) /* pid-to-status mappings for waitpid */
ca0c25f6 438#endif
0672f40e 439PERLVAR(Iosname, char *) /* operating system */
5c728af0 440
0672f40e
GS
441PERLVAR(Isighandlerp, Sighandler_t)
442
232d1c15 443PERLVARA(Ibody_roots, PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
93e68bfb 444
0672f40e
GS
445PERLVAR(Inice_chunk, char *) /* a nice chunk of memory to reuse */
446PERLVAR(Inice_chunk_size, U32) /* how nice the chunk of memory is */
447
9f7da6d5
NC
448PERLVARI(Imaxo, int, MAXO) /* maximum number of ops */
449
0b94c7bb 450PERLVARI(Irunops, runops_proc_t, MEMBER_TO_FPTR(RUNOPS_DEFAULT))
0672f40e 451
954c1994
GS
452/*
453=for apidoc Amn|SV|PL_sv_undef
454This is the C<undef> SV. Always refer to this as C<&PL_sv_undef>.
455
456=for apidoc Amn|SV|PL_sv_no
457This is the C<false> SV. See C<PL_sv_yes>. Always refer to this as
458C<&PL_sv_no>.
459
460=for apidoc Amn|SV|PL_sv_yes
461This is the C<true> SV. See C<PL_sv_no>. Always refer to this as
462C<&PL_sv_yes>.
463
464=cut
465*/
466
0672f40e
GS
467PERLVAR(Isv_undef, SV)
468PERLVAR(Isv_no, SV)
469PERLVAR(Isv_yes, SV)
470
0672f40e
GS
471PERLVAR(Isubname, SV *) /* name of current subroutine */
472
d95e864f 473PERLVAR(Isubline, I32) /* line this subroutine began on */
0672f40e 474PERLVAR(Imin_intro_pending, I32) /* start of vars to introduce */
d95e864f 475
0672f40e
GS
476PERLVAR(Imax_intro_pending, I32) /* end of vars to introduce */
477PERLVAR(Ipadix, I32) /* max used index in current "register" pad */
d95e864f 478
0672f40e 479PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix */
0672f40e 480
1d7c1841 481PERLVAR(Ihints, U32) /* pragma-tic compile-time flags */
0672f40e
GS
482
483PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
484
f0cb02e3
NC
485/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen" */
486PERLVARI(Ibreakable_sub_gen, U32, 0)
487
bf9cdc68 488PERLVARI(Iamagic_generation, long, 0)
0672f40e
GS
489
490#ifdef USE_LOCALE_COLLATE
0672f40e 491PERLVAR(Icollation_name,char *) /* Name of current collation */
0672f40e
GS
492PERLVAR(Icollxfrm_base, Size_t) /* Basic overhead in *xfrm() */
493PERLVARI(Icollxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */
9f7da6d5
NC
494PERLVARI(Icollation_ix, U32, 0) /* Collation generation index */
495PERLVARI(Icollation_standard, bool, TRUE)
496 /* Assume simple collation */
0672f40e
GS
497#endif /* USE_LOCALE_COLLATE */
498
9f7da6d5 499
edd11d75 500#if defined (PERL_UTF8_CACHE_ASSERT) || defined (DEBUGGING)
95ca8690 501# define PERL___I -1
9f7da6d5 502#else
7cd91da4 503# define PERL___I 1
9f7da6d5 504#endif
95ca8690
DM
505PERLVARI(Iutf8cache, I8, PERL___I) /* Is the utf8 caching code enabled? */
506#undef PERL___I
507
9f7da6d5 508
0672f40e
GS
509#ifdef USE_LOCALE_NUMERIC
510
0672f40e
GS
511PERLVARI(Inumeric_standard, bool, TRUE)
512 /* Assume simple numerics */
513PERLVARI(Inumeric_local, bool, TRUE)
514 /* Assume local numerics */
9f7da6d5 515PERLVAR(Inumeric_name, char *) /* Name of current numeric locale */
0672f40e
GS
516#endif /* !USE_LOCALE_NUMERIC */
517
518/* utf8 character classes */
519PERLVAR(Iutf8_alnum, SV *)
b8c5462f 520PERLVAR(Iutf8_ascii, SV *)
0672f40e
GS
521PERLVAR(Iutf8_alpha, SV *)
522PERLVAR(Iutf8_space, SV *)
d1eb3177
YO
523PERLVAR(Iutf8_perl_space, SV *)
524PERLVAR(Iutf8_perl_word, SV *)
525PERLVAR(Iutf8_posix_digit, SV *)
b8c5462f
JH
526PERLVAR(Iutf8_cntrl, SV *)
527PERLVAR(Iutf8_graph, SV *)
0672f40e
GS
528PERLVAR(Iutf8_digit, SV *)
529PERLVAR(Iutf8_upper, SV *)
530PERLVAR(Iutf8_lower, SV *)
531PERLVAR(Iutf8_print, SV *)
b8c5462f
JH
532PERLVAR(Iutf8_punct, SV *)
533PERLVAR(Iutf8_xdigit, SV *)
0672f40e 534PERLVAR(Iutf8_mark, SV *)
37e2e78e
KW
535PERLVAR(Iutf8_X_begin, SV *)
536PERLVAR(Iutf8_X_extend, SV *)
537PERLVAR(Iutf8_X_prepend, SV *)
538PERLVAR(Iutf8_X_non_hangul, SV *)
539PERLVAR(Iutf8_X_L, SV *)
540PERLVAR(Iutf8_X_LV, SV *)
541PERLVAR(Iutf8_X_LVT, SV *)
542PERLVAR(Iutf8_X_T, SV *)
543PERLVAR(Iutf8_X_V, SV *)
544PERLVAR(Iutf8_X_LV_LVT_V, SV *)
0672f40e
GS
545PERLVAR(Iutf8_toupper, SV *)
546PERLVAR(Iutf8_totitle, SV *)
547PERLVAR(Iutf8_tolower, SV *)
b4e400f9 548PERLVAR(Iutf8_tofold, SV *)
0672f40e 549PERLVAR(Ilast_swash_hv, HV *)
0672f40e
GS
550PERLVAR(Ilast_swash_tmps, U8 *)
551PERLVAR(Ilast_swash_slen, STRLEN)
9f7da6d5 552PERLVARA(Ilast_swash_key,10, U8)
d95e864f
NC
553PERLVAR(Ilast_swash_klen, U8) /* Only needs to store 0-10 */
554
555#ifdef FCRYPT
556PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
557#endif
558
f0cb02e3 559PERLVAR(Ipad_reset_pending, bool) /* reset pad on next attempted alloc */
49947b44 560
d95e864f
NC
561PERLVARI(Iglob_index, int, 0)
562
0672f40e 563
5912531f 564PERLVAR(Iparser, yy_parser *) /* current parser state */
12fbd33b 565
c4a30c8c
NC
566/* Array of signal handlers, indexed by signal number, through which the C
567 signal handler dispatches. */
1d7c1841 568PERLVAR(Ipsig_ptr, SV**)
c4a30c8c 569/* Array of names of signals, indexed by signal number, for (re)use as the first
d525a7b2
NC
570 argument to a signal handler. Only one block of memory is allocated for
571 both psig_name and psig_ptr. */
c4a30c8c 572PERLVAR(Ipsig_name, SV**)
1d7c1841 573
c5be433b 574#if defined(PERL_IMPLICIT_SYS)
32e30700 575PERLVAR(IMem, struct IPerlMem*)
1d7c1841
GS
576PERLVAR(IMemShared, struct IPerlMem*)
577PERLVAR(IMemParse, struct IPerlMem*)
32e30700
GS
578PERLVAR(IEnv, struct IPerlEnv*)
579PERLVAR(IStdIO, struct IPerlStdIO*)
580PERLVAR(ILIO, struct IPerlLIO*)
581PERLVAR(IDir, struct IPerlDir*)
582PERLVAR(ISock, struct IPerlSock*)
583PERLVAR(IProc, struct IPerlProc*)
76e3520e 584#endif
1d7c1841 585
1d7c1841 586PERLVAR(Iptr_table, PTR_TBL_t*)
7d49f689 587PERLVARI(Ibeginav_save, AV*, NULL) /* save BEGIN{}s when compiling */
f180df80 588
fdda85ca 589PERLVAR(Ibody_arenas, void*) /* pointer to list of body-arenas */
93e68bfb 590
d95e864f 591
a453c169
JH
592#ifdef USE_LOCALE_NUMERIC
593
594PERLVAR(Inumeric_radix_sv, SV *) /* The radix separator if not '.' */
595
596#endif
ce08f86c 597
1fcf4c12 598#if defined(USE_ITHREADS)
e6853197
NC
599PERLVAR(Iregex_pad, SV**) /* Shortcut into the array of
600 regex_padav */
601PERLVAR(Iregex_padav, AV*) /* All regex objects, indexed via the
602 values in op_pmoffset of pmop.
402d2eb1
NC
603 Entry 0 is an SV whose PV is a
604 "packed" list of IVs listing
e6853197 605 the now-free slots in the array */
1fcf4c12
AB
606#endif
607
ea68fd67
NC
608#ifdef USE_REENTRANT_API
609PERLVAR(Ireentrant_buffer, REENTR*) /* here we store the _r buffers */
f5a82810
JH
610#endif
611
53e06cf0
SC
612PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
613PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
19e8ce8e 614
a1ea730d
NIS
615#ifdef PERLIO_LAYERS
616PERLVARI(Iperlio, PerlIO *,NULL)
3a1ee7e8
NIS
617PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
618PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
a1ea730d
NIS
619#endif
620
a0714e2c 621PERLVARI(Iencoding, SV*, NULL) /* character encoding */
0a378802 622
128e8167 623PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re extension */
ce333219 624
82686b01
JH
625PERLVAR(Iutf8_idstart, SV *)
626PERLVAR(Iutf8_idcont, SV *)
627
147f47de
AB
628PERLVAR(Isort_RealCmp, SVCOMPARE_t)
629
7d49f689 630PERLVARI(Icheckav_save, AV*, NULL) /* save CHECK{}s when compiling */
3c10abe3 631PERLVARI(Iunitcheckav_save, AV*, NULL) /* save UNITCHECK{}s when compiling */
ece599bd 632
5311654c
JH
633PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */
634
4fa7c2bf 635/* Space for an int */
edab1aa3 636
a05d7ebb
JH
637PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
638
4ffa73a3
JH
639PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
640
57c6e6d2
JH
641PERLVAR(Ireentrant_retint, int) /* Integer return value from reentrant functions */
642
9f7da6d5
NC
643PERLVAR(Istashcache, HV *) /* Cache to speed up S_method_common */
644
15a5279a
JH
645/* Hooks to shared SVs and locks. */
646PERLVARI(Isharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d5b2b27b 647PERLVARI(Ilockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
d0647d4e
NC
648#ifdef NO_MATHOMS
649# define PERL_UNLOCK_HOOK Perl_sv_nosharing
650#else
651/* This reference ensures that the mathoms are linked with perl */
652# define PERL_UNLOCK_HOOK Perl_sv_nounlocking
653#endif
654PERLVARI(Iunlockhook, share_proc_t, MEMBER_TO_FPTR(PERL_UNLOCK_HOOK))
655
15a5279a
JH
656PERLVARI(Ithreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
657
504f80c1
JH
658PERLVARI(Ihash_seed, UV, 0) /* Hash initializer */
659
008fb0c0 660PERLVARI(Irehash_seed, UV, 0) /* 582 hash initializer */
4b5190b5 661
ba6d381e 662PERLVARI(Iisarev, HV*, NULL) /* Reverse map of @ISA dependencies */
f16dd614 663
ffee3ff6
NC
664/* The last unconditional member of the interpreter structure when 5.10.0 was
665 released. The offset of the end of this is baked into a global variable in
666 any shared perl library which will allow a sanity test in future perl
667 releases. */
668#define PERL_LAST_5_10_0_INTERP_MEMBER Iisarev
669
f16dd614 670#ifdef PERL_IMPLICIT_CONTEXT
4c901e72 671PERLVARI(Imy_cxt_size, int, 0) /* size of PL_my_cxt_list */
f16dd614 672PERLVARI(Imy_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
ba6d381e 673# ifdef PERL_GLOBAL_STRUCT_PRIVATE
53d44271 674PERLVARI(Imy_cxt_keys, const char **, NULL) /* per-module array of pointers to MY_CXT_KEY constants */
ba6d381e 675# endif
f16dd614
DM
676#endif
677
7cb608b5
NC
678#ifdef PERL_TRACK_MEMPOOL
679/* For use with the memory debugging code in util.c */
680PERLVAR(Imemory_debug_header, struct perl_memory_debug_header)
681#endif
682
ba6d381e
NC
683#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
684/* File descriptor to talk to the child which dumps scalars. */
685PERLVARI(Idumper_fd, int, -1)
686#endif
687
688/* Stores the PPID */
689#ifdef THREADS_HAVE_PIDS
690PERLVARI(Ippid, IV, 0)
691#endif
692
693#ifdef PERL_MAD
694PERLVARI(Imadskills, bool, FALSE) /* preserve all syntactic info */
695 /* (MAD = Misc Attribute Decoration) */
696PERLVARI(Ixmlfp, PerlIO *,NULL)
697#endif
698
699#ifdef PL_OP_SLAB_ALLOC
700PERLVAR(IOpPtr,I32 **)
701PERLVARI(IOpSpace,I32,0)
702PERLVAR(IOpSlab,I32 *)
703#endif
704
f1fac472
NC
705#ifdef PERL_DEBUG_READONLY_OPS
706PERLVARI(Islabs, I32**, NULL) /* Array of slabs that have been allocated */
707PERLVARI(Islab_count, U32, 0) /* Size of the array */
708#endif
709
eba16661
JH
710/* Can shared object be destroyed */
711PERLVARI(Idestroyhook, destroyable_proc_t, MEMBER_TO_FPTR(Perl_sv_destroyable))
712
d7a2c63c
MHM
713#ifdef DEBUG_LEAKING_SCALARS
714PERLVARI(Isv_serial, U32, 0) /* SV serial number, used in sv.c */
715#endif
716
a3e6e81e
NC
717/* Register of known Method Resolution Orders.
718 What this actually points to is an implementation detail (it may change to
719 a structure incorporating a reference count - use mro_get_from_name to
720 retrieve a C<struct mro_alg *> */
721PERLVAR(Iregistered_mros, HV *)
722
157b3822
NC
723/* If you are adding a U8 or U16, check to see if there are 'Space' comments
724 * above on where there are gaps which currently will be structure padding. */
d95e864f
NC
725
726/* Within a stable branch, new variables must be added to the very end, before
727 * this comment, for binary compatibility (the offsets of the old members must
728 * not change).
b83cd129 729 * (Don't forget to add your variable also to perl_clone()!)
e3acbfda 730 * XSUB.h provides wrapper functions via perlapi.h that make this
b83cd129
JH
731 * irrelevant, but not all code may be expected to #include XSUB.h.
732 */