1 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
2 This file is built by embed.pl from global.sym, intrpvar.h,
3 and thrdvar.h. Any changes made here will be lost!
6 /* (Doing namespace management portably in C is really gross.) */
8 /* EMBED has no run-time penalty, but helps keep the Perl namespace
9 from colliding with that used by other libraries pulled in
10 by extensions or by embedding perl. Allow a cc -DNO_EMBED
11 override, however, to keep binary compatability with previous
16 /* Put interpreter-specific symbols into a struct? */
21 /* If we do not have threads then per-thread vars are per-interpreter */
23 #define Sv (curinterp->TSv)
24 #define Xpv (curinterp->TXpv)
25 #define bodytarget (curinterp->Tbodytarget)
26 #define chopset (curinterp->Tchopset)
27 #define curcop (curinterp->Tcurcop)
28 #define curpad (curinterp->Tcurpad)
29 #define curpm (curinterp->Tcurpm)
30 #define curstack (curinterp->Tcurstack)
31 #define curstash (curinterp->Tcurstash)
32 #define cxstack (curinterp->Tcxstack)
33 #define cxstack_ix (curinterp->Tcxstack_ix)
34 #define cxstack_max (curinterp->Tcxstack_max)
35 #define defoutgv (curinterp->Tdefoutgv)
36 #define defstash (curinterp->Tdefstash)
37 #define delaymagic (curinterp->Tdelaymagic)
38 #define dirty (curinterp->Tdirty)
39 #define formtarget (curinterp->Tformtarget)
40 #define in_eval (curinterp->Tin_eval)
41 #define last_in_gv (curinterp->Tlast_in_gv)
42 #define localizing (curinterp->Tlocalizing)
43 #define mainstack (curinterp->Tmainstack)
44 #define markstack (curinterp->Tmarkstack)
45 #define markstack_max (curinterp->Tmarkstack_max)
46 #define markstack_ptr (curinterp->Tmarkstack_ptr)
47 #define nrs (curinterp->Tnrs)
48 #define ofs (curinterp->Tofs)
49 #define ofslen (curinterp->Tofslen)
50 #define op (curinterp->Top)
51 #define opsave (curinterp->Topsave)
52 #define restartop (curinterp->Trestartop)
53 #define retstack (curinterp->Tretstack)
54 #define retstack_ix (curinterp->Tretstack_ix)
55 #define retstack_max (curinterp->Tretstack_max)
56 #define rs (curinterp->Trs)
57 #define savestack (curinterp->Tsavestack)
58 #define savestack_ix (curinterp->Tsavestack_ix)
59 #define savestack_max (curinterp->Tsavestack_max)
60 #define scopestack (curinterp->Tscopestack)
61 #define scopestack_ix (curinterp->Tscopestack_ix)
62 #define scopestack_max (curinterp->Tscopestack_max)
63 #define stack_base (curinterp->Tstack_base)
64 #define stack_max (curinterp->Tstack_max)
65 #define stack_sp (curinterp->Tstack_sp)
66 #define start_env (curinterp->Tstart_env)
67 #define statbuf (curinterp->Tstatbuf)
68 #define tainted (curinterp->Ttainted)
69 #define timesbuf (curinterp->Ttimesbuf)
70 #define tmps_floor (curinterp->Ttmps_floor)
71 #define tmps_ix (curinterp->Ttmps_ix)
72 #define tmps_max (curinterp->Ttmps_max)
73 #define tmps_stack (curinterp->Ttmps_stack)
74 #define top_env (curinterp->Ttop_env)
75 #define toptarget (curinterp->Ttoptarget)
77 #endif /* !USE_THREADS */
79 /* These are always per-interpreter if there is more than one */
81 #define Argv (curinterp->IArgv)
82 #define Cmd (curinterp->ICmd)
83 #define DBgv (curinterp->IDBgv)
84 #define DBline (curinterp->IDBline)
85 #define DBsignal (curinterp->IDBsignal)
86 #define DBsingle (curinterp->IDBsingle)
87 #define DBsub (curinterp->IDBsub)
88 #define DBtrace (curinterp->IDBtrace)
89 #define ampergv (curinterp->Iampergv)
90 #define argvgv (curinterp->Iargvgv)
91 #define argvoutgv (curinterp->Iargvoutgv)
92 #define basetime (curinterp->Ibasetime)
93 #define beginav (curinterp->Ibeginav)
94 #define cddir (curinterp->Icddir)
95 #define copline (curinterp->Icopline)
96 #define curcopdb (curinterp->Icurcopdb)
97 #define curstname (curinterp->Icurstname)
98 #define dbargs (curinterp->Idbargs)
99 #define debdelim (curinterp->Idebdelim)
100 #define debname (curinterp->Idebname)
101 #define debstash (curinterp->Idebstash)
102 #define defgv (curinterp->Idefgv)
103 #define diehook (curinterp->Idiehook)
104 #define dlevel (curinterp->Idlevel)
105 #define dlmax (curinterp->Idlmax)
106 #define doextract (curinterp->Idoextract)
107 #define doswitches (curinterp->Idoswitches)
108 #define dowarn (curinterp->Idowarn)
109 #define dumplvl (curinterp->Idumplvl)
110 #define e_fp (curinterp->Ie_fp)
111 #define e_tmpname (curinterp->Ie_tmpname)
112 #define endav (curinterp->Iendav)
113 #define envgv (curinterp->Ienvgv)
114 #define errgv (curinterp->Ierrgv)
115 #define eval_root (curinterp->Ieval_root)
116 #define eval_start (curinterp->Ieval_start)
117 #define fdpid (curinterp->Ifdpid)
118 #define filemode (curinterp->Ifilemode)
119 #define firstgv (curinterp->Ifirstgv)
120 #define forkprocess (curinterp->Iforkprocess)
121 #define formfeed (curinterp->Iformfeed)
122 #define gensym (curinterp->Igensym)
123 #define globalstash (curinterp->Iglobalstash)
124 #define incgv (curinterp->Iincgv)
125 #define initav (curinterp->Iinitav)
126 #define inplace (curinterp->Iinplace)
127 #define lastfd (curinterp->Ilastfd)
128 #define lastscream (curinterp->Ilastscream)
129 #define lastsize (curinterp->Ilastsize)
130 #define lastspbase (curinterp->Ilastspbase)
131 #define laststatval (curinterp->Ilaststatval)
132 #define laststype (curinterp->Ilaststype)
133 #define leftgv (curinterp->Ileftgv)
134 #define lineary (curinterp->Ilineary)
135 #define localpatches (curinterp->Ilocalpatches)
136 #define main_cv (curinterp->Imain_cv)
137 #define main_root (curinterp->Imain_root)
138 #define main_start (curinterp->Imain_start)
139 #define maxscream (curinterp->Imaxscream)
140 #define maxsysfd (curinterp->Imaxsysfd)
141 #define mess_sv (curinterp->Imess_sv)
142 #define minus_F (curinterp->Iminus_F)
143 #define minus_a (curinterp->Iminus_a)
144 #define minus_c (curinterp->Iminus_c)
145 #define minus_l (curinterp->Iminus_l)
146 #define minus_n (curinterp->Iminus_n)
147 #define minus_p (curinterp->Iminus_p)
148 #define multiline (curinterp->Imultiline)
149 #define mystrk (curinterp->Imystrk)
150 #define ofmt (curinterp->Iofmt)
151 #define oldlastpm (curinterp->Ioldlastpm)
152 #define oldname (curinterp->Ioldname)
153 #define op_mask (curinterp->Iop_mask)
154 #define origargc (curinterp->Iorigargc)
155 #define origargv (curinterp->Iorigargv)
156 #define origfilename (curinterp->Iorigfilename)
157 #define ors (curinterp->Iors)
158 #define orslen (curinterp->Iorslen)
159 #define parsehook (curinterp->Iparsehook)
160 #define patchlevel (curinterp->Ipatchlevel)
161 #define perl_destruct_level (curinterp->Iperl_destruct_level)
162 #define perldb (curinterp->Iperldb)
163 #define preambleav (curinterp->Ipreambleav)
164 #define preambled (curinterp->Ipreambled)
165 #define preprocess (curinterp->Ipreprocess)
166 #define rightgv (curinterp->Irightgv)
167 #define sawampersand (curinterp->Isawampersand)
168 #define sawstudy (curinterp->Isawstudy)
169 #define sawvec (curinterp->Isawvec)
170 #define screamfirst (curinterp->Iscreamfirst)
171 #define screamnext (curinterp->Iscreamnext)
172 #define secondgv (curinterp->Isecondgv)
173 #define siggv (curinterp->Isiggv)
174 #define signalstack (curinterp->Isignalstack)
175 #define sortcop (curinterp->Isortcop)
176 #define sortstack (curinterp->Isortstack)
177 #define sortstash (curinterp->Isortstash)
178 #define splitstr (curinterp->Isplitstr)
179 #define statcache (curinterp->Istatcache)
180 #define statgv (curinterp->Istatgv)
181 #define statname (curinterp->Istatname)
182 #define statusvalue (curinterp->Istatusvalue)
183 #define statusvalue_vms (curinterp->Istatusvalue_vms)
184 #define stdingv (curinterp->Istdingv)
185 #define strchop (curinterp->Istrchop)
186 #define strtab (curinterp->Istrtab)
187 #define sv_arenaroot (curinterp->Isv_arenaroot)
188 #define sv_count (curinterp->Isv_count)
189 #define sv_objcount (curinterp->Isv_objcount)
190 #define sv_root (curinterp->Isv_root)
191 #define tainting (curinterp->Itainting)
192 #define threadnum (curinterp->Ithreadnum)
193 #define thrsv (curinterp->Ithrsv)
194 #define unsafe (curinterp->Iunsafe)
195 #define warnhook (curinterp->Iwarnhook)
197 #else /* !MULTIPLICITY */
202 #define IDBline DBline
203 #define IDBsignal DBsignal
204 #define IDBsingle DBsingle
206 #define IDBtrace DBtrace
207 #define Iampergv ampergv
208 #define Iargvgv argvgv
209 #define Iargvoutgv argvoutgv
210 #define Ibasetime basetime
211 #define Ibeginav beginav
213 #define Icopline copline
214 #define Icurcopdb curcopdb
215 #define Icurstname curstname
216 #define Idbargs dbargs
217 #define Idebdelim debdelim
218 #define Idebname debname
219 #define Idebstash debstash
221 #define Idiehook diehook
222 #define Idlevel dlevel
224 #define Idoextract doextract
225 #define Idoswitches doswitches
226 #define Idowarn dowarn
227 #define Idumplvl dumplvl
229 #define Ie_tmpname e_tmpname
233 #define Ieval_root eval_root
234 #define Ieval_start eval_start
236 #define Ifilemode filemode
237 #define Ifirstgv firstgv
238 #define Iforkprocess forkprocess
239 #define Iformfeed formfeed
240 #define Igensym gensym
241 #define Iglobalstash globalstash
243 #define Iinitav initav
244 #define Iinplace inplace
245 #define Ilastfd lastfd
246 #define Ilastscream lastscream
247 #define Ilastsize lastsize
248 #define Ilastspbase lastspbase
249 #define Ilaststatval laststatval
250 #define Ilaststype laststype
251 #define Ileftgv leftgv
252 #define Ilineary lineary
253 #define Ilocalpatches localpatches
254 #define Imain_cv main_cv
255 #define Imain_root main_root
256 #define Imain_start main_start
257 #define Imaxscream maxscream
258 #define Imaxsysfd maxsysfd
259 #define Imess_sv mess_sv
260 #define Iminus_F minus_F
261 #define Iminus_a minus_a
262 #define Iminus_c minus_c
263 #define Iminus_l minus_l
264 #define Iminus_n minus_n
265 #define Iminus_p minus_p
266 #define Imultiline multiline
267 #define Imystrk mystrk
269 #define Ioldlastpm oldlastpm
270 #define Ioldname oldname
271 #define Iop_mask op_mask
272 #define Iorigargc origargc
273 #define Iorigargv origargv
274 #define Iorigfilename origfilename
276 #define Iorslen orslen
277 #define Iparsehook parsehook
278 #define Ipatchlevel patchlevel
279 #define Iperl_destruct_level perl_destruct_level
280 #define Iperldb perldb
281 #define Ipreambleav preambleav
282 #define Ipreambled preambled
283 #define Ipreprocess preprocess
284 #define Irightgv rightgv
285 #define Isawampersand sawampersand
286 #define Isawstudy sawstudy
287 #define Isawvec sawvec
288 #define Iscreamfirst screamfirst
289 #define Iscreamnext screamnext
290 #define Isecondgv secondgv
292 #define Isignalstack signalstack
293 #define Isortcop sortcop
294 #define Isortstack sortstack
295 #define Isortstash sortstash
296 #define Isplitstr splitstr
297 #define Istatcache statcache
298 #define Istatgv statgv
299 #define Istatname statname
300 #define Istatusvalue statusvalue
301 #define Istatusvalue_vms statusvalue_vms
302 #define Istdingv stdingv
303 #define Istrchop strchop
304 #define Istrtab strtab
305 #define Isv_arenaroot sv_arenaroot
306 #define Isv_count sv_count
307 #define Isv_objcount sv_objcount
308 #define Isv_root sv_root
309 #define Itainting tainting
310 #define Ithreadnum threadnum
312 #define Iunsafe unsafe
313 #define Iwarnhook warnhook
319 #define Tbodytarget bodytarget
320 #define Tchopset chopset
321 #define Tcurcop curcop
322 #define Tcurpad curpad
324 #define Tcurstack curstack
325 #define Tcurstash curstash
326 #define Tcxstack cxstack
327 #define Tcxstack_ix cxstack_ix
328 #define Tcxstack_max cxstack_max
329 #define Tdefoutgv defoutgv
330 #define Tdefstash defstash
331 #define Tdelaymagic delaymagic
333 #define Tformtarget formtarget
334 #define Tin_eval in_eval
335 #define Tlast_in_gv last_in_gv
336 #define Tlocalizing localizing
337 #define Tmainstack mainstack
338 #define Tmarkstack markstack
339 #define Tmarkstack_max markstack_max
340 #define Tmarkstack_ptr markstack_ptr
343 #define Tofslen ofslen
345 #define Topsave opsave
346 #define Trestartop restartop
347 #define Tretstack retstack
348 #define Tretstack_ix retstack_ix
349 #define Tretstack_max retstack_max
351 #define Tsavestack savestack
352 #define Tsavestack_ix savestack_ix
353 #define Tsavestack_max savestack_max
354 #define Tscopestack scopestack
355 #define Tscopestack_ix scopestack_ix
356 #define Tscopestack_max scopestack_max
357 #define Tstack_base stack_base
358 #define Tstack_max stack_max
359 #define Tstack_sp stack_sp
360 #define Tstart_env start_env
361 #define Tstatbuf statbuf
362 #define Ttainted tainted
363 #define Ttimesbuf timesbuf
364 #define Ttmps_floor tmps_floor
365 #define Ttmps_ix tmps_ix
366 #define Ttmps_max tmps_max
367 #define Ttmps_stack tmps_stack
368 #define Ttop_env top_env
369 #define Ttoptarget toptarget
371 #endif /* USE_THREADS */
373 /* Hide what would have been interpreter-specific symbols? */
377 #define Argv Perl_Argv
379 #define DBgv Perl_DBgv
380 #define DBline Perl_DBline
381 #define DBsignal Perl_DBsignal
382 #define DBsingle Perl_DBsingle
383 #define DBsub Perl_DBsub
384 #define DBtrace Perl_DBtrace
385 #define ampergv Perl_ampergv
386 #define argvgv Perl_argvgv
387 #define argvoutgv Perl_argvoutgv
388 #define basetime Perl_basetime
389 #define beginav Perl_beginav
390 #define cddir Perl_cddir
391 #define copline Perl_copline
392 #define curcopdb Perl_curcopdb
393 #define curstname Perl_curstname
394 #define dbargs Perl_dbargs
395 #define debdelim Perl_debdelim
396 #define debname Perl_debname
397 #define debstash Perl_debstash
398 #define defgv Perl_defgv
399 #define diehook Perl_diehook
400 #define dlevel Perl_dlevel
401 #define dlmax Perl_dlmax
402 #define doextract Perl_doextract
403 #define doswitches Perl_doswitches
404 #define dowarn Perl_dowarn
405 #define dumplvl Perl_dumplvl
406 #define e_fp Perl_e_fp
407 #define e_tmpname Perl_e_tmpname
408 #define endav Perl_endav
409 #define envgv Perl_envgv
410 #define errgv Perl_errgv
411 #define eval_root Perl_eval_root
412 #define eval_start Perl_eval_start
413 #define fdpid Perl_fdpid
414 #define filemode Perl_filemode
415 #define firstgv Perl_firstgv
416 #define forkprocess Perl_forkprocess
417 #define formfeed Perl_formfeed
418 #define gensym Perl_gensym
419 #define globalstash Perl_globalstash
420 #define incgv Perl_incgv
421 #define initav Perl_initav
422 #define inplace Perl_inplace
423 #define lastfd Perl_lastfd
424 #define lastscream Perl_lastscream
425 #define lastsize Perl_lastsize
426 #define lastspbase Perl_lastspbase
427 #define laststatval Perl_laststatval
428 #define laststype Perl_laststype
429 #define leftgv Perl_leftgv
430 #define lineary Perl_lineary
431 #define localpatches Perl_localpatches
432 #define main_cv Perl_main_cv
433 #define main_root Perl_main_root
434 #define main_start Perl_main_start
435 #define maxscream Perl_maxscream
436 #define maxsysfd Perl_maxsysfd
437 #define mess_sv Perl_mess_sv
438 #define minus_F Perl_minus_F
439 #define minus_a Perl_minus_a
440 #define minus_c Perl_minus_c
441 #define minus_l Perl_minus_l
442 #define minus_n Perl_minus_n
443 #define minus_p Perl_minus_p
444 #define multiline Perl_multiline
445 #define mystrk Perl_mystrk
446 #define ofmt Perl_ofmt
447 #define oldlastpm Perl_oldlastpm
448 #define oldname Perl_oldname
449 #define op_mask Perl_op_mask
450 #define origargc Perl_origargc
451 #define origargv Perl_origargv
452 #define origfilename Perl_origfilename
454 #define orslen Perl_orslen
455 #define parsehook Perl_parsehook
456 #define patchlevel Perl_patchlevel
457 #define perl_destruct_level Perl_perl_destruct_level
458 #define perldb Perl_perldb
459 #define preambleav Perl_preambleav
460 #define preambled Perl_preambled
461 #define preprocess Perl_preprocess
462 #define rightgv Perl_rightgv
463 #define sawampersand Perl_sawampersand
464 #define sawstudy Perl_sawstudy
465 #define sawvec Perl_sawvec
466 #define screamfirst Perl_screamfirst
467 #define screamnext Perl_screamnext
468 #define secondgv Perl_secondgv
469 #define siggv Perl_siggv
470 #define signalstack Perl_signalstack
471 #define sortcop Perl_sortcop
472 #define sortstack Perl_sortstack
473 #define sortstash Perl_sortstash
474 #define splitstr Perl_splitstr
475 #define statcache Perl_statcache
476 #define statgv Perl_statgv
477 #define statname Perl_statname
478 #define statusvalue Perl_statusvalue
479 #define statusvalue_vms Perl_statusvalue_vms
480 #define stdingv Perl_stdingv
481 #define strchop Perl_strchop
482 #define strtab Perl_strtab
483 #define sv_arenaroot Perl_sv_arenaroot
484 #define sv_count Perl_sv_count
485 #define sv_objcount Perl_sv_objcount
486 #define sv_root Perl_sv_root
487 #define tainting Perl_tainting
488 #define threadnum Perl_threadnum
489 #define thrsv Perl_thrsv
490 #define unsafe Perl_unsafe
491 #define warnhook Perl_warnhook
497 #define bodytarget Perl_bodytarget
498 #define chopset Perl_chopset
499 #define curcop Perl_curcop
500 #define curpad Perl_curpad
501 #define curpm Perl_curpm
502 #define curstack Perl_curstack
503 #define curstash Perl_curstash
504 #define cxstack Perl_cxstack
505 #define cxstack_ix Perl_cxstack_ix
506 #define cxstack_max Perl_cxstack_max
507 #define defoutgv Perl_defoutgv
508 #define defstash Perl_defstash
509 #define delaymagic Perl_delaymagic
510 #define dirty Perl_dirty
511 #define formtarget Perl_formtarget
512 #define in_eval Perl_in_eval
513 #define last_in_gv Perl_last_in_gv
514 #define localizing Perl_localizing
515 #define mainstack Perl_mainstack
516 #define markstack Perl_markstack
517 #define markstack_max Perl_markstack_max
518 #define markstack_ptr Perl_markstack_ptr
521 #define ofslen Perl_ofslen
523 #define opsave Perl_opsave
524 #define restartop Perl_restartop
525 #define retstack Perl_retstack
526 #define retstack_ix Perl_retstack_ix
527 #define retstack_max Perl_retstack_max
529 #define savestack Perl_savestack
530 #define savestack_ix Perl_savestack_ix
531 #define savestack_max Perl_savestack_max
532 #define scopestack Perl_scopestack
533 #define scopestack_ix Perl_scopestack_ix
534 #define scopestack_max Perl_scopestack_max
535 #define stack_base Perl_stack_base
536 #define stack_max Perl_stack_max
537 #define stack_sp Perl_stack_sp
538 #define start_env Perl_start_env
539 #define statbuf Perl_statbuf
540 #define tainted Perl_tainted
541 #define timesbuf Perl_timesbuf
542 #define tmps_floor Perl_tmps_floor
543 #define tmps_ix Perl_tmps_ix
544 #define tmps_max Perl_tmps_max
545 #define tmps_stack Perl_tmps_stack
546 #define top_env Perl_top_env
547 #define toptarget Perl_toptarget
549 #endif /* USE_THREADS */
551 #endif /* MULTIPLICITY */
553 /* Now same trickey for per-thread variables */
557 #define Sv (thr->TSv)
558 #define Xpv (thr->TXpv)
559 #define bodytarget (thr->Tbodytarget)
560 #define chopset (thr->Tchopset)
561 #define curcop (thr->Tcurcop)
562 #define curpad (thr->Tcurpad)
563 #define curpm (thr->Tcurpm)
564 #define curstack (thr->Tcurstack)
565 #define curstash (thr->Tcurstash)
566 #define cxstack (thr->Tcxstack)
567 #define cxstack_ix (thr->Tcxstack_ix)
568 #define cxstack_max (thr->Tcxstack_max)
569 #define defoutgv (thr->Tdefoutgv)
570 #define defstash (thr->Tdefstash)
571 #define delaymagic (thr->Tdelaymagic)
572 #define dirty (thr->Tdirty)
573 #define formtarget (thr->Tformtarget)
574 #define in_eval (thr->Tin_eval)
575 #define last_in_gv (thr->Tlast_in_gv)
576 #define localizing (thr->Tlocalizing)
577 #define mainstack (thr->Tmainstack)
578 #define markstack (thr->Tmarkstack)
579 #define markstack_max (thr->Tmarkstack_max)
580 #define markstack_ptr (thr->Tmarkstack_ptr)
581 #define nrs (thr->Tnrs)
582 #define ofs (thr->Tofs)
583 #define ofslen (thr->Tofslen)
584 #define op (thr->Top)
585 #define opsave (thr->Topsave)
586 #define restartop (thr->Trestartop)
587 #define retstack (thr->Tretstack)
588 #define retstack_ix (thr->Tretstack_ix)
589 #define retstack_max (thr->Tretstack_max)
590 #define rs (thr->Trs)
591 #define savestack (thr->Tsavestack)
592 #define savestack_ix (thr->Tsavestack_ix)
593 #define savestack_max (thr->Tsavestack_max)
594 #define scopestack (thr->Tscopestack)
595 #define scopestack_ix (thr->Tscopestack_ix)
596 #define scopestack_max (thr->Tscopestack_max)
597 #define stack_base (thr->Tstack_base)
598 #define stack_max (thr->Tstack_max)
599 #define stack_sp (thr->Tstack_sp)
600 #define start_env (thr->Tstart_env)
601 #define statbuf (thr->Tstatbuf)
602 #define tainted (thr->Ttainted)
603 #define timesbuf (thr->Ttimesbuf)
604 #define tmps_floor (thr->Ttmps_floor)
605 #define tmps_ix (thr->Ttmps_ix)
606 #define tmps_max (thr->Ttmps_max)
607 #define tmps_stack (thr->Ttmps_stack)
608 #define top_env (thr->Ttop_env)
609 #define toptarget (thr->Ttoptarget)
611 #endif /* USE_THREADS */
613 #ifdef PERL_GLOBAL_STRUCT
615 #define No (Perl_Vars.GNo)
616 #define Yes (Perl_Vars.GYes)
617 #define amagic_generation (Perl_Vars.Gamagic_generation)
618 #define an (Perl_Vars.Gan)
619 #define bufend (Perl_Vars.Gbufend)
620 #define bufptr (Perl_Vars.Gbufptr)
621 #define collation_ix (Perl_Vars.Gcollation_ix)
622 #define collation_name (Perl_Vars.Gcollation_name)
623 #define collation_standard (Perl_Vars.Gcollation_standard)
624 #define collxfrm_base (Perl_Vars.Gcollxfrm_base)
625 #define collxfrm_mult (Perl_Vars.Gcollxfrm_mult)
626 #define compcv (Perl_Vars.Gcompcv)
627 #define compiling (Perl_Vars.Gcompiling)
628 #define comppad (Perl_Vars.Gcomppad)
629 #define comppad_name (Perl_Vars.Gcomppad_name)
630 #define comppad_name_fill (Perl_Vars.Gcomppad_name_fill)
631 #define comppad_name_floor (Perl_Vars.Gcomppad_name_floor)
632 #define cop_seqmax (Perl_Vars.Gcop_seqmax)
633 #define cryptseen (Perl_Vars.Gcryptseen)
634 #define cshlen (Perl_Vars.Gcshlen)
635 #define cshname (Perl_Vars.Gcshname)
636 #define curinterp (Perl_Vars.Gcurinterp)
637 #define curthr (Perl_Vars.Gcurthr)
638 #define debug (Perl_Vars.Gdebug)
639 #define do_undump (Perl_Vars.Gdo_undump)
640 #define egid (Perl_Vars.Gegid)
641 #define error_count (Perl_Vars.Gerror_count)
642 #define euid (Perl_Vars.Geuid)
643 #define eval_cond (Perl_Vars.Geval_cond)
644 #define eval_mutex (Perl_Vars.Geval_mutex)
645 #define eval_owner (Perl_Vars.Geval_owner)
646 #define evalseq (Perl_Vars.Gevalseq)
647 #define expect (Perl_Vars.Gexpect)
648 #define gid (Perl_Vars.Ggid)
649 #define he_root (Perl_Vars.Ghe_root)
650 #define hexdigit (Perl_Vars.Ghexdigit)
651 #define hints (Perl_Vars.Ghints)
652 #define in_my (Perl_Vars.Gin_my)
653 #define in_my_stash (Perl_Vars.Gin_my_stash)
654 #define last_lop (Perl_Vars.Glast_lop)
655 #define last_lop_op (Perl_Vars.Glast_lop_op)
656 #define last_uni (Perl_Vars.Glast_uni)
657 #define lex_brackets (Perl_Vars.Glex_brackets)
658 #define lex_brackstack (Perl_Vars.Glex_brackstack)
659 #define lex_casemods (Perl_Vars.Glex_casemods)
660 #define lex_casestack (Perl_Vars.Glex_casestack)
661 #define lex_defer (Perl_Vars.Glex_defer)
662 #define lex_dojoin (Perl_Vars.Glex_dojoin)
663 #define lex_expect (Perl_Vars.Glex_expect)
664 #define lex_fakebrack (Perl_Vars.Glex_fakebrack)
665 #define lex_formbrack (Perl_Vars.Glex_formbrack)
666 #define lex_inpat (Perl_Vars.Glex_inpat)
667 #define lex_inwhat (Perl_Vars.Glex_inwhat)
668 #define lex_op (Perl_Vars.Glex_op)
669 #define lex_repl (Perl_Vars.Glex_repl)
670 #define lex_starts (Perl_Vars.Glex_starts)
671 #define lex_state (Perl_Vars.Glex_state)
672 #define lex_stuff (Perl_Vars.Glex_stuff)
673 #define linestr (Perl_Vars.Glinestr)
674 #define malloc_mutex (Perl_Vars.Gmalloc_mutex)
675 #define max_intro_pending (Perl_Vars.Gmax_intro_pending)
676 #define maxo (Perl_Vars.Gmaxo)
677 #define min_intro_pending (Perl_Vars.Gmin_intro_pending)
678 #define multi_close (Perl_Vars.Gmulti_close)
679 #define multi_end (Perl_Vars.Gmulti_end)
680 #define multi_open (Perl_Vars.Gmulti_open)
681 #define multi_start (Perl_Vars.Gmulti_start)
682 #define na (Perl_Vars.Gna)
683 #define nexttoke (Perl_Vars.Gnexttoke)
684 #define nexttype (Perl_Vars.Gnexttype)
685 #define nextval (Perl_Vars.Gnextval)
686 #define nice_chunk (Perl_Vars.Gnice_chunk)
687 #define nice_chunk_size (Perl_Vars.Gnice_chunk_size)
688 #define nomemok (Perl_Vars.Gnomemok)
689 #define nthreads (Perl_Vars.Gnthreads)
690 #define nthreads_cond (Perl_Vars.Gnthreads_cond)
691 #define numeric_local (Perl_Vars.Gnumeric_local)
692 #define numeric_name (Perl_Vars.Gnumeric_name)
693 #define numeric_standard (Perl_Vars.Gnumeric_standard)
694 #define oldbufptr (Perl_Vars.Goldbufptr)
695 #define oldoldbufptr (Perl_Vars.Goldoldbufptr)
696 #define op_seqmax (Perl_Vars.Gop_seqmax)
697 #define origalen (Perl_Vars.Gorigalen)
698 #define origenviron (Perl_Vars.Gorigenviron)
699 #define osname (Perl_Vars.Gosname)
700 #define pad_reset_pending (Perl_Vars.Gpad_reset_pending)
701 #define padix (Perl_Vars.Gpadix)
702 #define padix_floor (Perl_Vars.Gpadix_floor)
703 #define patleave (Perl_Vars.Gpatleave)
704 #define pidstatus (Perl_Vars.Gpidstatus)
705 #define profiledata (Perl_Vars.Gprofiledata)
706 #define rsfp (Perl_Vars.Grsfp)
707 #define rsfp_filters (Perl_Vars.Grsfp_filters)
708 #define runops (Perl_Vars.Grunops)
709 #define scrgv (Perl_Vars.Gscrgv)
710 #define sh_path (Perl_Vars.Gsh_path)
711 #define sighandlerp (Perl_Vars.Gsighandlerp)
712 #define sub_generation (Perl_Vars.Gsub_generation)
713 #define subline (Perl_Vars.Gsubline)
714 #define subname (Perl_Vars.Gsubname)
715 #define sv_mutex (Perl_Vars.Gsv_mutex)
716 #define sv_no (Perl_Vars.Gsv_no)
717 #define sv_undef (Perl_Vars.Gsv_undef)
718 #define sv_yes (Perl_Vars.Gsv_yes)
719 #define thisexpr (Perl_Vars.Gthisexpr)
720 #define thr_key (Perl_Vars.Gthr_key)
721 #define threads_mutex (Perl_Vars.Gthreads_mutex)
722 #define threadsv_names (Perl_Vars.Gthreadsv_names)
723 #define tokenbuf (Perl_Vars.Gtokenbuf)
724 #define uid (Perl_Vars.Guid)
725 #define xiv_arenaroot (Perl_Vars.Gxiv_arenaroot)
726 #define xiv_root (Perl_Vars.Gxiv_root)
727 #define xnv_root (Perl_Vars.Gxnv_root)
728 #define xpv_root (Perl_Vars.Gxpv_root)
729 #define xrv_root (Perl_Vars.Gxrv_root)
731 #else /* !PERL_GLOBAL_STRUCT */
735 #define Gamagic_generation amagic_generation
737 #define Gbufend bufend
738 #define Gbufptr bufptr
739 #define Gcollation_ix collation_ix
740 #define Gcollation_name collation_name
741 #define Gcollation_standard collation_standard
742 #define Gcollxfrm_base collxfrm_base
743 #define Gcollxfrm_mult collxfrm_mult
744 #define Gcompcv compcv
745 #define Gcompiling compiling
746 #define Gcomppad comppad
747 #define Gcomppad_name comppad_name
748 #define Gcomppad_name_fill comppad_name_fill
749 #define Gcomppad_name_floor comppad_name_floor
750 #define Gcop_seqmax cop_seqmax
751 #define Gcryptseen cryptseen
752 #define Gcshlen cshlen
753 #define Gcshname cshname
754 #define Gcurinterp curinterp
755 #define Gcurthr curthr
757 #define Gdo_undump do_undump
759 #define Gerror_count error_count
761 #define Geval_cond eval_cond
762 #define Geval_mutex eval_mutex
763 #define Geval_owner eval_owner
764 #define Gevalseq evalseq
765 #define Gexpect expect
767 #define Ghe_root he_root
768 #define Ghexdigit hexdigit
771 #define Gin_my_stash in_my_stash
772 #define Glast_lop last_lop
773 #define Glast_lop_op last_lop_op
774 #define Glast_uni last_uni
775 #define Glex_brackets lex_brackets
776 #define Glex_brackstack lex_brackstack
777 #define Glex_casemods lex_casemods
778 #define Glex_casestack lex_casestack
779 #define Glex_defer lex_defer
780 #define Glex_dojoin lex_dojoin
781 #define Glex_expect lex_expect
782 #define Glex_fakebrack lex_fakebrack
783 #define Glex_formbrack lex_formbrack
784 #define Glex_inpat lex_inpat
785 #define Glex_inwhat lex_inwhat
786 #define Glex_op lex_op
787 #define Glex_repl lex_repl
788 #define Glex_starts lex_starts
789 #define Glex_state lex_state
790 #define Glex_stuff lex_stuff
791 #define Glinestr linestr
792 #define Gmalloc_mutex malloc_mutex
793 #define Gmax_intro_pending max_intro_pending
795 #define Gmin_intro_pending min_intro_pending
796 #define Gmulti_close multi_close
797 #define Gmulti_end multi_end
798 #define Gmulti_open multi_open
799 #define Gmulti_start multi_start
801 #define Gnexttoke nexttoke
802 #define Gnexttype nexttype
803 #define Gnextval nextval
804 #define Gnice_chunk nice_chunk
805 #define Gnice_chunk_size nice_chunk_size
806 #define Gnomemok nomemok
807 #define Gnthreads nthreads
808 #define Gnthreads_cond nthreads_cond
809 #define Gnumeric_local numeric_local
810 #define Gnumeric_name numeric_name
811 #define Gnumeric_standard numeric_standard
812 #define Goldbufptr oldbufptr
813 #define Goldoldbufptr oldoldbufptr
814 #define Gop_seqmax op_seqmax
815 #define Gorigalen origalen
816 #define Gorigenviron origenviron
817 #define Gosname osname
818 #define Gpad_reset_pending pad_reset_pending
820 #define Gpadix_floor padix_floor
821 #define Gpatleave patleave
822 #define Gpidstatus pidstatus
823 #define Gprofiledata profiledata
825 #define Grsfp_filters rsfp_filters
826 #define Grunops runops
828 #define Gsh_path sh_path
829 #define Gsighandlerp sighandlerp
830 #define Gsub_generation sub_generation
831 #define Gsubline subline
832 #define Gsubname subname
833 #define Gsv_mutex sv_mutex
835 #define Gsv_undef sv_undef
836 #define Gsv_yes sv_yes
837 #define Gthisexpr thisexpr
838 #define Gthr_key thr_key
839 #define Gthreads_mutex threads_mutex
840 #define Gthreadsv_names threadsv_names
841 #define Gtokenbuf tokenbuf
843 #define Gxiv_arenaroot xiv_arenaroot
844 #define Gxiv_root xiv_root
845 #define Gxnv_root xnv_root
846 #define Gxpv_root xpv_root
847 #define Gxrv_root xrv_root
853 #define amagic_generation Perl_amagic_generation
855 #define bufend Perl_bufend
856 #define bufptr Perl_bufptr
857 #define collation_ix Perl_collation_ix
858 #define collation_name Perl_collation_name
859 #define collation_standard Perl_collation_standard
860 #define collxfrm_base Perl_collxfrm_base
861 #define collxfrm_mult Perl_collxfrm_mult
862 #define compcv Perl_compcv
863 #define compiling Perl_compiling
864 #define comppad Perl_comppad
865 #define comppad_name Perl_comppad_name
866 #define comppad_name_fill Perl_comppad_name_fill
867 #define comppad_name_floor Perl_comppad_name_floor
868 #define cop_seqmax Perl_cop_seqmax
869 #define cryptseen Perl_cryptseen
870 #define cshlen Perl_cshlen
871 #define cshname Perl_cshname
872 #define curinterp Perl_curinterp
873 #define curthr Perl_curthr
874 #define debug Perl_debug
875 #define do_undump Perl_do_undump
876 #define egid Perl_egid
877 #define error_count Perl_error_count
878 #define euid Perl_euid
879 #define eval_cond Perl_eval_cond
880 #define eval_mutex Perl_eval_mutex
881 #define eval_owner Perl_eval_owner
882 #define evalseq Perl_evalseq
883 #define expect Perl_expect
885 #define he_root Perl_he_root
886 #define hexdigit Perl_hexdigit
887 #define hints Perl_hints
888 #define in_my Perl_in_my
889 #define in_my_stash Perl_in_my_stash
890 #define last_lop Perl_last_lop
891 #define last_lop_op Perl_last_lop_op
892 #define last_uni Perl_last_uni
893 #define lex_brackets Perl_lex_brackets
894 #define lex_brackstack Perl_lex_brackstack
895 #define lex_casemods Perl_lex_casemods
896 #define lex_casestack Perl_lex_casestack
897 #define lex_defer Perl_lex_defer
898 #define lex_dojoin Perl_lex_dojoin
899 #define lex_expect Perl_lex_expect
900 #define lex_fakebrack Perl_lex_fakebrack
901 #define lex_formbrack Perl_lex_formbrack
902 #define lex_inpat Perl_lex_inpat
903 #define lex_inwhat Perl_lex_inwhat
904 #define lex_op Perl_lex_op
905 #define lex_repl Perl_lex_repl
906 #define lex_starts Perl_lex_starts
907 #define lex_state Perl_lex_state
908 #define lex_stuff Perl_lex_stuff
909 #define linestr Perl_linestr
910 #define malloc_mutex Perl_malloc_mutex
911 #define max_intro_pending Perl_max_intro_pending
912 #define maxo Perl_maxo
913 #define min_intro_pending Perl_min_intro_pending
914 #define multi_close Perl_multi_close
915 #define multi_end Perl_multi_end
916 #define multi_open Perl_multi_open
917 #define multi_start Perl_multi_start
919 #define nexttoke Perl_nexttoke
920 #define nexttype Perl_nexttype
921 #define nextval Perl_nextval
922 #define nice_chunk Perl_nice_chunk
923 #define nice_chunk_size Perl_nice_chunk_size
924 #define nomemok Perl_nomemok
925 #define nthreads Perl_nthreads
926 #define nthreads_cond Perl_nthreads_cond
927 #define numeric_local Perl_numeric_local
928 #define numeric_name Perl_numeric_name
929 #define numeric_standard Perl_numeric_standard
930 #define oldbufptr Perl_oldbufptr
931 #define oldoldbufptr Perl_oldoldbufptr
932 #define op_seqmax Perl_op_seqmax
933 #define origalen Perl_origalen
934 #define origenviron Perl_origenviron
935 #define osname Perl_osname
936 #define pad_reset_pending Perl_pad_reset_pending
937 #define padix Perl_padix
938 #define padix_floor Perl_padix_floor
939 #define patleave Perl_patleave
940 #define pidstatus Perl_pidstatus
941 #define profiledata Perl_profiledata
942 #define rsfp Perl_rsfp
943 #define rsfp_filters Perl_rsfp_filters
944 #define runops Perl_runops
945 #define scrgv Perl_scrgv
946 #define sh_path Perl_sh_path
947 #define sighandlerp Perl_sighandlerp
948 #define sub_generation Perl_sub_generation
949 #define subline Perl_subline
950 #define subname Perl_subname
951 #define sv_mutex Perl_sv_mutex
952 #define sv_no Perl_sv_no
953 #define sv_undef Perl_sv_undef
954 #define sv_yes Perl_sv_yes
955 #define thisexpr Perl_thisexpr
956 #define thr_key Perl_thr_key
957 #define threads_mutex Perl_threads_mutex
958 #define threadsv_names Perl_threadsv_names
959 #define tokenbuf Perl_tokenbuf
961 #define xiv_arenaroot Perl_xiv_arenaroot
962 #define xiv_root Perl_xiv_root
963 #define xnv_root Perl_xnv_root
964 #define xpv_root Perl_xpv_root
965 #define xrv_root Perl_xrv_root
968 #endif /* PERL_GLOBAL_STRUCT */
https://perl5.git.perl.org / perl5.git / blob