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 av_fetch_sv (curinterp->Tav_fetch_sv)
26 #define bodytarget (curinterp->Tbodytarget)
27 #define chopset (curinterp->Tchopset)
28 #define curcop (curinterp->Tcurcop)
29 #define curpad (curinterp->Tcurpad)
30 #define curpm (curinterp->Tcurpm)
31 #define curstack (curinterp->Tcurstack)
32 #define curstackinfo (curinterp->Tcurstackinfo)
33 #define curstash (curinterp->Tcurstash)
34 #define defoutgv (curinterp->Tdefoutgv)
35 #define defstash (curinterp->Tdefstash)
36 #define delaymagic (curinterp->Tdelaymagic)
37 #define dirty (curinterp->Tdirty)
38 #define formtarget (curinterp->Tformtarget)
39 #define hv_fetch_ent_mh (curinterp->Thv_fetch_ent_mh)
40 #define hv_fetch_sv (curinterp->Thv_fetch_sv)
41 #define in_eval (curinterp->Tin_eval)
42 #define last_in_gv (curinterp->Tlast_in_gv)
43 #define localizing (curinterp->Tlocalizing)
44 #define mainstack (curinterp->Tmainstack)
45 #define markstack (curinterp->Tmarkstack)
46 #define markstack_max (curinterp->Tmarkstack_max)
47 #define markstack_ptr (curinterp->Tmarkstack_ptr)
48 #define modcount (curinterp->Tmodcount)
49 #define nrs (curinterp->Tnrs)
50 #define ofs (curinterp->Tofs)
51 #define ofslen (curinterp->Tofslen)
52 #define op (curinterp->Top)
53 #define opsave (curinterp->Topsave)
54 #define restartop (curinterp->Trestartop)
55 #define retstack (curinterp->Tretstack)
56 #define retstack_ix (curinterp->Tretstack_ix)
57 #define retstack_max (curinterp->Tretstack_max)
58 #define rs (curinterp->Trs)
59 #define savestack (curinterp->Tsavestack)
60 #define savestack_ix (curinterp->Tsavestack_ix)
61 #define savestack_max (curinterp->Tsavestack_max)
62 #define scopestack (curinterp->Tscopestack)
63 #define scopestack_ix (curinterp->Tscopestack_ix)
64 #define scopestack_max (curinterp->Tscopestack_max)
65 #define stack_base (curinterp->Tstack_base)
66 #define stack_max (curinterp->Tstack_max)
67 #define stack_sp (curinterp->Tstack_sp)
68 #define start_env (curinterp->Tstart_env)
69 #define statbuf (curinterp->Tstatbuf)
70 #define tainted (curinterp->Ttainted)
71 #define timesbuf (curinterp->Ttimesbuf)
72 #define tmps_floor (curinterp->Ttmps_floor)
73 #define tmps_ix (curinterp->Ttmps_ix)
74 #define tmps_max (curinterp->Ttmps_max)
75 #define tmps_stack (curinterp->Ttmps_stack)
76 #define top_env (curinterp->Ttop_env)
77 #define toptarget (curinterp->Ttoptarget)
79 #endif /* !USE_THREADS */
81 /* These are always per-interpreter if there is more than one */
83 #define Argv (curinterp->IArgv)
84 #define Cmd (curinterp->ICmd)
85 #define DBcv (curinterp->IDBcv)
86 #define DBgv (curinterp->IDBgv)
87 #define DBline (curinterp->IDBline)
88 #define DBsignal (curinterp->IDBsignal)
89 #define DBsingle (curinterp->IDBsingle)
90 #define DBsub (curinterp->IDBsub)
91 #define DBtrace (curinterp->IDBtrace)
92 #define ampergv (curinterp->Iampergv)
93 #define archpat_auto (curinterp->Iarchpat_auto)
94 #define argvgv (curinterp->Iargvgv)
95 #define argvoutgv (curinterp->Iargvoutgv)
96 #define basetime (curinterp->Ibasetime)
97 #define beginav (curinterp->Ibeginav)
98 #define bostr (curinterp->Ibostr)
99 #define cddir (curinterp->Icddir)
100 #define colors (curinterp->Icolors)
101 #define colorset (curinterp->Icolorset)
102 #define compcv (curinterp->Icompcv)
103 #define compiling (curinterp->Icompiling)
104 #define comppad (curinterp->Icomppad)
105 #define comppad_name (curinterp->Icomppad_name)
106 #define comppad_name_fill (curinterp->Icomppad_name_fill)
107 #define comppad_name_floor (curinterp->Icomppad_name_floor)
108 #define copline (curinterp->Icopline)
109 #define curcopdb (curinterp->Icurcopdb)
110 #define curstname (curinterp->Icurstname)
111 #define dbargs (curinterp->Idbargs)
112 #define debdelim (curinterp->Idebdelim)
113 #define debname (curinterp->Idebname)
114 #define debstash (curinterp->Idebstash)
115 #define defgv (curinterp->Idefgv)
116 #define diehook (curinterp->Idiehook)
117 #define dlevel (curinterp->Idlevel)
118 #define dlmax (curinterp->Idlmax)
119 #define doextract (curinterp->Idoextract)
120 #define doswitches (curinterp->Idoswitches)
121 #define dowarn (curinterp->Idowarn)
122 #define dumplvl (curinterp->Idumplvl)
123 #define e_script (curinterp->Ie_script)
124 #define endav (curinterp->Iendav)
125 #define envgv (curinterp->Ienvgv)
126 #define errgv (curinterp->Ierrgv)
127 #define eval_root (curinterp->Ieval_root)
128 #define eval_start (curinterp->Ieval_start)
129 #define exitlist (curinterp->Iexitlist)
130 #define exitlistlen (curinterp->Iexitlistlen)
131 #define extralen (curinterp->Iextralen)
132 #define fdpid (curinterp->Ifdpid)
133 #define filemode (curinterp->Ifilemode)
134 #define firstgv (curinterp->Ifirstgv)
135 #define forkprocess (curinterp->Iforkprocess)
136 #define formfeed (curinterp->Iformfeed)
137 #define generation (curinterp->Igeneration)
138 #define gensym (curinterp->Igensym)
139 #define globalstash (curinterp->Iglobalstash)
140 #define hintgv (curinterp->Ihintgv)
141 #define in_clean_all (curinterp->Iin_clean_all)
142 #define in_clean_objs (curinterp->Iin_clean_objs)
143 #define incgv (curinterp->Iincgv)
144 #define initav (curinterp->Iinitav)
145 #define inplace (curinterp->Iinplace)
146 #define last_proto (curinterp->Ilast_proto)
147 #define lastfd (curinterp->Ilastfd)
148 #define lastgotoprobe (curinterp->Ilastgotoprobe)
149 #define lastscream (curinterp->Ilastscream)
150 #define lastsize (curinterp->Ilastsize)
151 #define lastspbase (curinterp->Ilastspbase)
152 #define laststatval (curinterp->Ilaststatval)
153 #define laststype (curinterp->Ilaststype)
154 #define leftgv (curinterp->Ileftgv)
155 #define lineary (curinterp->Ilineary)
156 #define linestart (curinterp->Ilinestart)
157 #define localpatches (curinterp->Ilocalpatches)
158 #define main_cv (curinterp->Imain_cv)
159 #define main_root (curinterp->Imain_root)
160 #define main_start (curinterp->Imain_start)
161 #define maxscream (curinterp->Imaxscream)
162 #define maxsysfd (curinterp->Imaxsysfd)
163 #define mess_sv (curinterp->Imess_sv)
164 #define minus_F (curinterp->Iminus_F)
165 #define minus_a (curinterp->Iminus_a)
166 #define minus_c (curinterp->Iminus_c)
167 #define minus_l (curinterp->Iminus_l)
168 #define minus_n (curinterp->Iminus_n)
169 #define minus_p (curinterp->Iminus_p)
170 #define modglobal (curinterp->Imodglobal)
171 #define multiline (curinterp->Imultiline)
172 #define mystrk (curinterp->Imystrk)
173 #define ofmt (curinterp->Iofmt)
174 #define oldlastpm (curinterp->Ioldlastpm)
175 #define oldname (curinterp->Ioldname)
176 #define op_mask (curinterp->Iop_mask)
177 #define origargc (curinterp->Iorigargc)
178 #define origargv (curinterp->Iorigargv)
179 #define origfilename (curinterp->Iorigfilename)
180 #define ors (curinterp->Iors)
181 #define orslen (curinterp->Iorslen)
182 #define parsehook (curinterp->Iparsehook)
183 #define patchlevel (curinterp->Ipatchlevel)
184 #define pending_ident (curinterp->Ipending_ident)
185 #define perl_destruct_level (curinterp->Iperl_destruct_level)
186 #define perldb (curinterp->Iperldb)
187 #define preambleav (curinterp->Ipreambleav)
188 #define preambled (curinterp->Ipreambled)
189 #define preprocess (curinterp->Ipreprocess)
190 #define profiledata (curinterp->Iprofiledata)
191 #define reg_eval_set (curinterp->Ireg_eval_set)
192 #define reg_flags (curinterp->Ireg_flags)
193 #define reg_start_tmp (curinterp->Ireg_start_tmp)
194 #define reg_start_tmpl (curinterp->Ireg_start_tmpl)
195 #define regbol (curinterp->Iregbol)
196 #define regcc (curinterp->Iregcc)
197 #define regcode (curinterp->Iregcode)
198 #define regcomp_parse (curinterp->Iregcomp_parse)
199 #define regcomp_rx (curinterp->Iregcomp_rx)
200 #define regcompp (curinterp->Iregcompp)
201 #define regdata (curinterp->Iregdata)
202 #define regdummy (curinterp->Iregdummy)
203 #define regendp (curinterp->Iregendp)
204 #define regeol (curinterp->Iregeol)
205 #define regexecp (curinterp->Iregexecp)
206 #define regflags (curinterp->Iregflags)
207 #define regindent (curinterp->Iregindent)
208 #define reginput (curinterp->Ireginput)
209 #define reglastparen (curinterp->Ireglastparen)
210 #define regnarrate (curinterp->Iregnarrate)
211 #define regnaughty (curinterp->Iregnaughty)
212 #define regnpar (curinterp->Iregnpar)
213 #define regprecomp (curinterp->Iregprecomp)
214 #define regprev (curinterp->Iregprev)
215 #define regprogram (curinterp->Iregprogram)
216 #define regsawback (curinterp->Iregsawback)
217 #define regseen (curinterp->Iregseen)
218 #define regsize (curinterp->Iregsize)
219 #define regstartp (curinterp->Iregstartp)
220 #define regtill (curinterp->Iregtill)
221 #define regxend (curinterp->Iregxend)
222 #define replgv (curinterp->Ireplgv)
223 #define rightgv (curinterp->Irightgv)
224 #define rsfp (curinterp->Irsfp)
225 #define rsfp_filters (curinterp->Irsfp_filters)
226 #define sawampersand (curinterp->Isawampersand)
227 #define sawstudy (curinterp->Isawstudy)
228 #define sawvec (curinterp->Isawvec)
229 #define screamfirst (curinterp->Iscreamfirst)
230 #define screamnext (curinterp->Iscreamnext)
231 #define secondgv (curinterp->Isecondgv)
232 #define seen_zerolen (curinterp->Iseen_zerolen)
233 #define siggv (curinterp->Isiggv)
234 #define sortcop (curinterp->Isortcop)
235 #define sortcxix (curinterp->Isortcxix)
236 #define sortstash (curinterp->Isortstash)
237 #define splitstr (curinterp->Isplitstr)
238 #define statcache (curinterp->Istatcache)
239 #define statgv (curinterp->Istatgv)
240 #define statname (curinterp->Istatname)
241 #define statusvalue (curinterp->Istatusvalue)
242 #define statusvalue_vms (curinterp->Istatusvalue_vms)
243 #define stdingv (curinterp->Istdingv)
244 #define strchop (curinterp->Istrchop)
245 #define strtab (curinterp->Istrtab)
246 #define sub_generation (curinterp->Isub_generation)
247 #define sublex_info (curinterp->Isublex_info)
248 #define sv_arenaroot (curinterp->Isv_arenaroot)
249 #define sv_count (curinterp->Isv_count)
250 #define sv_objcount (curinterp->Isv_objcount)
251 #define sv_root (curinterp->Isv_root)
252 #define sys_intern (curinterp->Isys_intern)
253 #define tainting (curinterp->Itainting)
254 #define threadnum (curinterp->Ithreadnum)
255 #define thrsv (curinterp->Ithrsv)
256 #define unsafe (curinterp->Iunsafe)
257 #define warnhook (curinterp->Iwarnhook)
259 #else /* !MULTIPLICITY */
265 #define IDBline DBline
266 #define IDBsignal DBsignal
267 #define IDBsingle DBsingle
269 #define IDBtrace DBtrace
270 #define Iampergv ampergv
271 #define Iarchpat_auto archpat_auto
272 #define Iargvgv argvgv
273 #define Iargvoutgv argvoutgv
274 #define Ibasetime basetime
275 #define Ibeginav beginav
278 #define Icolors colors
279 #define Icolorset colorset
280 #define Icompcv compcv
281 #define Icompiling compiling
282 #define Icomppad comppad
283 #define Icomppad_name comppad_name
284 #define Icomppad_name_fill comppad_name_fill
285 #define Icomppad_name_floor comppad_name_floor
286 #define Icopline copline
287 #define Icurcopdb curcopdb
288 #define Icurstname curstname
289 #define Idbargs dbargs
290 #define Idebdelim debdelim
291 #define Idebname debname
292 #define Idebstash debstash
294 #define Idiehook diehook
295 #define Idlevel dlevel
297 #define Idoextract doextract
298 #define Idoswitches doswitches
299 #define Idowarn dowarn
300 #define Idumplvl dumplvl
301 #define Ie_script e_script
305 #define Ieval_root eval_root
306 #define Ieval_start eval_start
307 #define Iexitlist exitlist
308 #define Iexitlistlen exitlistlen
309 #define Iextralen extralen
311 #define Ifilemode filemode
312 #define Ifirstgv firstgv
313 #define Iforkprocess forkprocess
314 #define Iformfeed formfeed
315 #define Igeneration generation
316 #define Igensym gensym
317 #define Iglobalstash globalstash
318 #define Ihintgv hintgv
319 #define Iin_clean_all in_clean_all
320 #define Iin_clean_objs in_clean_objs
322 #define Iinitav initav
323 #define Iinplace inplace
324 #define Ilast_proto last_proto
325 #define Ilastfd lastfd
326 #define Ilastgotoprobe lastgotoprobe
327 #define Ilastscream lastscream
328 #define Ilastsize lastsize
329 #define Ilastspbase lastspbase
330 #define Ilaststatval laststatval
331 #define Ilaststype laststype
332 #define Ileftgv leftgv
333 #define Ilineary lineary
334 #define Ilinestart linestart
335 #define Ilocalpatches localpatches
336 #define Imain_cv main_cv
337 #define Imain_root main_root
338 #define Imain_start main_start
339 #define Imaxscream maxscream
340 #define Imaxsysfd maxsysfd
341 #define Imess_sv mess_sv
342 #define Iminus_F minus_F
343 #define Iminus_a minus_a
344 #define Iminus_c minus_c
345 #define Iminus_l minus_l
346 #define Iminus_n minus_n
347 #define Iminus_p minus_p
348 #define Imodglobal modglobal
349 #define Imultiline multiline
350 #define Imystrk mystrk
352 #define Ioldlastpm oldlastpm
353 #define Ioldname oldname
354 #define Iop_mask op_mask
355 #define Iorigargc origargc
356 #define Iorigargv origargv
357 #define Iorigfilename origfilename
359 #define Iorslen orslen
360 #define Iparsehook parsehook
361 #define Ipatchlevel patchlevel
362 #define Ipending_ident pending_ident
363 #define Iperl_destruct_level perl_destruct_level
364 #define Iperldb perldb
365 #define Ipreambleav preambleav
366 #define Ipreambled preambled
367 #define Ipreprocess preprocess
368 #define Iprofiledata profiledata
369 #define Ireg_eval_set reg_eval_set
370 #define Ireg_flags reg_flags
371 #define Ireg_start_tmp reg_start_tmp
372 #define Ireg_start_tmpl reg_start_tmpl
373 #define Iregbol regbol
375 #define Iregcode regcode
376 #define Iregcomp_parse regcomp_parse
377 #define Iregcomp_rx regcomp_rx
378 #define Iregcompp regcompp
379 #define Iregdata regdata
380 #define Iregdummy regdummy
381 #define Iregendp regendp
382 #define Iregeol regeol
383 #define Iregexecp regexecp
384 #define Iregflags regflags
385 #define Iregindent regindent
386 #define Ireginput reginput
387 #define Ireglastparen reglastparen
388 #define Iregnarrate regnarrate
389 #define Iregnaughty regnaughty
390 #define Iregnpar regnpar
391 #define Iregprecomp regprecomp
392 #define Iregprev regprev
393 #define Iregprogram regprogram
394 #define Iregsawback regsawback
395 #define Iregseen regseen
396 #define Iregsize regsize
397 #define Iregstartp regstartp
398 #define Iregtill regtill
399 #define Iregxend regxend
400 #define Ireplgv replgv
401 #define Irightgv rightgv
403 #define Irsfp_filters rsfp_filters
404 #define Isawampersand sawampersand
405 #define Isawstudy sawstudy
406 #define Isawvec sawvec
407 #define Iscreamfirst screamfirst
408 #define Iscreamnext screamnext
409 #define Isecondgv secondgv
410 #define Iseen_zerolen seen_zerolen
412 #define Isortcop sortcop
413 #define Isortcxix sortcxix
414 #define Isortstash sortstash
415 #define Isplitstr splitstr
416 #define Istatcache statcache
417 #define Istatgv statgv
418 #define Istatname statname
419 #define Istatusvalue statusvalue
420 #define Istatusvalue_vms statusvalue_vms
421 #define Istdingv stdingv
422 #define Istrchop strchop
423 #define Istrtab strtab
424 #define Isub_generation sub_generation
425 #define Isublex_info sublex_info
426 #define Isv_arenaroot sv_arenaroot
427 #define Isv_count sv_count
428 #define Isv_objcount sv_objcount
429 #define Isv_root sv_root
430 #define Isys_intern sys_intern
431 #define Itainting tainting
432 #define Ithreadnum threadnum
434 #define Iunsafe unsafe
435 #define Iwarnhook warnhook
441 #define Tav_fetch_sv av_fetch_sv
442 #define Tbodytarget bodytarget
443 #define Tchopset chopset
444 #define Tcurcop curcop
445 #define Tcurpad curpad
447 #define Tcurstack curstack
448 #define Tcurstackinfo curstackinfo
449 #define Tcurstash curstash
450 #define Tdefoutgv defoutgv
451 #define Tdefstash defstash
452 #define Tdelaymagic delaymagic
454 #define Tformtarget formtarget
455 #define Thv_fetch_ent_mh hv_fetch_ent_mh
456 #define Thv_fetch_sv hv_fetch_sv
457 #define Tin_eval in_eval
458 #define Tlast_in_gv last_in_gv
459 #define Tlocalizing localizing
460 #define Tmainstack mainstack
461 #define Tmarkstack markstack
462 #define Tmarkstack_max markstack_max
463 #define Tmarkstack_ptr markstack_ptr
464 #define Tmodcount modcount
467 #define Tofslen ofslen
469 #define Topsave opsave
470 #define Trestartop restartop
471 #define Tretstack retstack
472 #define Tretstack_ix retstack_ix
473 #define Tretstack_max retstack_max
475 #define Tsavestack savestack
476 #define Tsavestack_ix savestack_ix
477 #define Tsavestack_max savestack_max
478 #define Tscopestack scopestack
479 #define Tscopestack_ix scopestack_ix
480 #define Tscopestack_max scopestack_max
481 #define Tstack_base stack_base
482 #define Tstack_max stack_max
483 #define Tstack_sp stack_sp
484 #define Tstart_env start_env
485 #define Tstatbuf statbuf
486 #define Ttainted tainted
487 #define Ttimesbuf timesbuf
488 #define Ttmps_floor tmps_floor
489 #define Ttmps_ix tmps_ix
490 #define Ttmps_max tmps_max
491 #define Ttmps_stack tmps_stack
492 #define Ttop_env top_env
493 #define Ttoptarget toptarget
495 #endif /* USE_THREADS */
497 /* Hide what would have been interpreter-specific symbols? */
501 #define Argv Perl_Argv
503 #define DBcv Perl_DBcv
504 #define DBgv Perl_DBgv
505 #define DBline Perl_DBline
506 #define DBsignal Perl_DBsignal
507 #define DBsingle Perl_DBsingle
508 #define DBsub Perl_DBsub
509 #define DBtrace Perl_DBtrace
510 #define ampergv Perl_ampergv
511 #define archpat_auto Perl_archpat_auto
512 #define argvgv Perl_argvgv
513 #define argvoutgv Perl_argvoutgv
514 #define basetime Perl_basetime
515 #define beginav Perl_beginav
516 #define bostr Perl_bostr
517 #define cddir Perl_cddir
518 #define colors Perl_colors
519 #define colorset Perl_colorset
520 #define compcv Perl_compcv
521 #define compiling Perl_compiling
522 #define comppad Perl_comppad
523 #define comppad_name Perl_comppad_name
524 #define comppad_name_fill Perl_comppad_name_fill
525 #define comppad_name_floor Perl_comppad_name_floor
526 #define copline Perl_copline
527 #define curcopdb Perl_curcopdb
528 #define curstname Perl_curstname
529 #define dbargs Perl_dbargs
530 #define debdelim Perl_debdelim
531 #define debname Perl_debname
532 #define debstash Perl_debstash
533 #define defgv Perl_defgv
534 #define diehook Perl_diehook
535 #define dlevel Perl_dlevel
536 #define dlmax Perl_dlmax
537 #define doextract Perl_doextract
538 #define doswitches Perl_doswitches
539 #define dowarn Perl_dowarn
540 #define dumplvl Perl_dumplvl
541 #define e_script Perl_e_script
542 #define endav Perl_endav
543 #define envgv Perl_envgv
544 #define errgv Perl_errgv
545 #define eval_root Perl_eval_root
546 #define eval_start Perl_eval_start
547 #define exitlist Perl_exitlist
548 #define exitlistlen Perl_exitlistlen
549 #define extralen Perl_extralen
550 #define fdpid Perl_fdpid
551 #define filemode Perl_filemode
552 #define firstgv Perl_firstgv
553 #define forkprocess Perl_forkprocess
554 #define formfeed Perl_formfeed
555 #define generation Perl_generation
556 #define gensym Perl_gensym
557 #define globalstash Perl_globalstash
558 #define hintgv Perl_hintgv
559 #define in_clean_all Perl_in_clean_all
560 #define in_clean_objs Perl_in_clean_objs
561 #define incgv Perl_incgv
562 #define initav Perl_initav
563 #define inplace Perl_inplace
564 #define last_proto Perl_last_proto
565 #define lastfd Perl_lastfd
566 #define lastgotoprobe Perl_lastgotoprobe
567 #define lastscream Perl_lastscream
568 #define lastsize Perl_lastsize
569 #define lastspbase Perl_lastspbase
570 #define laststatval Perl_laststatval
571 #define laststype Perl_laststype
572 #define leftgv Perl_leftgv
573 #define lineary Perl_lineary
574 #define linestart Perl_linestart
575 #define localpatches Perl_localpatches
576 #define main_cv Perl_main_cv
577 #define main_root Perl_main_root
578 #define main_start Perl_main_start
579 #define maxscream Perl_maxscream
580 #define maxsysfd Perl_maxsysfd
581 #define mess_sv Perl_mess_sv
582 #define minus_F Perl_minus_F
583 #define minus_a Perl_minus_a
584 #define minus_c Perl_minus_c
585 #define minus_l Perl_minus_l
586 #define minus_n Perl_minus_n
587 #define minus_p Perl_minus_p
588 #define modglobal Perl_modglobal
589 #define multiline Perl_multiline
590 #define mystrk Perl_mystrk
591 #define ofmt Perl_ofmt
592 #define oldlastpm Perl_oldlastpm
593 #define oldname Perl_oldname
594 #define op_mask Perl_op_mask
595 #define origargc Perl_origargc
596 #define origargv Perl_origargv
597 #define origfilename Perl_origfilename
599 #define orslen Perl_orslen
600 #define parsehook Perl_parsehook
601 #define patchlevel Perl_patchlevel
602 #define pending_ident Perl_pending_ident
603 #define perl_destruct_level Perl_perl_destruct_level
604 #define perldb Perl_perldb
605 #define preambleav Perl_preambleav
606 #define preambled Perl_preambled
607 #define preprocess Perl_preprocess
608 #define profiledata Perl_profiledata
609 #define reg_eval_set Perl_reg_eval_set
610 #define reg_flags Perl_reg_flags
611 #define reg_start_tmp Perl_reg_start_tmp
612 #define reg_start_tmpl Perl_reg_start_tmpl
613 #define regbol Perl_regbol
614 #define regcc Perl_regcc
615 #define regcode Perl_regcode
616 #define regcomp_parse Perl_regcomp_parse
617 #define regcomp_rx Perl_regcomp_rx
618 #define regcompp Perl_regcompp
619 #define regdata Perl_regdata
620 #define regdummy Perl_regdummy
621 #define regendp Perl_regendp
622 #define regeol Perl_regeol
623 #define regexecp Perl_regexecp
624 #define regflags Perl_regflags
625 #define regindent Perl_regindent
626 #define reginput Perl_reginput
627 #define reglastparen Perl_reglastparen
628 #define regnarrate Perl_regnarrate
629 #define regnaughty Perl_regnaughty
630 #define regnpar Perl_regnpar
631 #define regprecomp Perl_regprecomp
632 #define regprev Perl_regprev
633 #define regprogram Perl_regprogram
634 #define regsawback Perl_regsawback
635 #define regseen Perl_regseen
636 #define regsize Perl_regsize
637 #define regstartp Perl_regstartp
638 #define regtill Perl_regtill
639 #define regxend Perl_regxend
640 #define replgv Perl_replgv
641 #define rightgv Perl_rightgv
642 #define rsfp Perl_rsfp
643 #define rsfp_filters Perl_rsfp_filters
644 #define sawampersand Perl_sawampersand
645 #define sawstudy Perl_sawstudy
646 #define sawvec Perl_sawvec
647 #define screamfirst Perl_screamfirst
648 #define screamnext Perl_screamnext
649 #define secondgv Perl_secondgv
650 #define seen_zerolen Perl_seen_zerolen
651 #define siggv Perl_siggv
652 #define sortcop Perl_sortcop
653 #define sortcxix Perl_sortcxix
654 #define sortstash Perl_sortstash
655 #define splitstr Perl_splitstr
656 #define statcache Perl_statcache
657 #define statgv Perl_statgv
658 #define statname Perl_statname
659 #define statusvalue Perl_statusvalue
660 #define statusvalue_vms Perl_statusvalue_vms
661 #define stdingv Perl_stdingv
662 #define strchop Perl_strchop
663 #define strtab Perl_strtab
664 #define sub_generation Perl_sub_generation
665 #define sublex_info Perl_sublex_info
666 #define sv_arenaroot Perl_sv_arenaroot
667 #define sv_count Perl_sv_count
668 #define sv_objcount Perl_sv_objcount
669 #define sv_root Perl_sv_root
670 #define sys_intern Perl_sys_intern
671 #define tainting Perl_tainting
672 #define threadnum Perl_threadnum
673 #define thrsv Perl_thrsv
674 #define unsafe Perl_unsafe
675 #define warnhook Perl_warnhook
681 #define av_fetch_sv Perl_av_fetch_sv
682 #define bodytarget Perl_bodytarget
683 #define chopset Perl_chopset
684 #define curcop Perl_curcop
685 #define curpad Perl_curpad
686 #define curpm Perl_curpm
687 #define curstack Perl_curstack
688 #define curstackinfo Perl_curstackinfo
689 #define curstash Perl_curstash
690 #define defoutgv Perl_defoutgv
691 #define defstash Perl_defstash
692 #define delaymagic Perl_delaymagic
693 #define dirty Perl_dirty
694 #define formtarget Perl_formtarget
695 #define hv_fetch_ent_mh Perl_hv_fetch_ent_mh
696 #define hv_fetch_sv Perl_hv_fetch_sv
697 #define in_eval Perl_in_eval
698 #define last_in_gv Perl_last_in_gv
699 #define localizing Perl_localizing
700 #define mainstack Perl_mainstack
701 #define markstack Perl_markstack
702 #define markstack_max Perl_markstack_max
703 #define markstack_ptr Perl_markstack_ptr
704 #define modcount Perl_modcount
707 #define ofslen Perl_ofslen
709 #define opsave Perl_opsave
710 #define restartop Perl_restartop
711 #define retstack Perl_retstack
712 #define retstack_ix Perl_retstack_ix
713 #define retstack_max Perl_retstack_max
715 #define savestack Perl_savestack
716 #define savestack_ix Perl_savestack_ix
717 #define savestack_max Perl_savestack_max
718 #define scopestack Perl_scopestack
719 #define scopestack_ix Perl_scopestack_ix
720 #define scopestack_max Perl_scopestack_max
721 #define stack_base Perl_stack_base
722 #define stack_max Perl_stack_max
723 #define stack_sp Perl_stack_sp
724 #define start_env Perl_start_env
725 #define statbuf Perl_statbuf
726 #define tainted Perl_tainted
727 #define timesbuf Perl_timesbuf
728 #define tmps_floor Perl_tmps_floor
729 #define tmps_ix Perl_tmps_ix
730 #define tmps_max Perl_tmps_max
731 #define tmps_stack Perl_tmps_stack
732 #define top_env Perl_top_env
733 #define toptarget Perl_toptarget
735 #endif /* USE_THREADS */
737 #endif /* MULTIPLICITY */
739 /* Now same trickey for per-thread variables */
743 #define Sv (thr->TSv)
744 #define Xpv (thr->TXpv)
745 #define av_fetch_sv (thr->Tav_fetch_sv)
746 #define bodytarget (thr->Tbodytarget)
747 #define chopset (thr->Tchopset)
748 #define curcop (thr->Tcurcop)
749 #define curpad (thr->Tcurpad)
750 #define curpm (thr->Tcurpm)
751 #define curstack (thr->Tcurstack)
752 #define curstackinfo (thr->Tcurstackinfo)
753 #define curstash (thr->Tcurstash)
754 #define defoutgv (thr->Tdefoutgv)
755 #define defstash (thr->Tdefstash)
756 #define delaymagic (thr->Tdelaymagic)
757 #define dirty (thr->Tdirty)
758 #define formtarget (thr->Tformtarget)
759 #define hv_fetch_ent_mh (thr->Thv_fetch_ent_mh)
760 #define hv_fetch_sv (thr->Thv_fetch_sv)
761 #define in_eval (thr->Tin_eval)
762 #define last_in_gv (thr->Tlast_in_gv)
763 #define localizing (thr->Tlocalizing)
764 #define mainstack (thr->Tmainstack)
765 #define markstack (thr->Tmarkstack)
766 #define markstack_max (thr->Tmarkstack_max)
767 #define markstack_ptr (thr->Tmarkstack_ptr)
768 #define modcount (thr->Tmodcount)
769 #define nrs (thr->Tnrs)
770 #define ofs (thr->Tofs)
771 #define ofslen (thr->Tofslen)
772 #define op (thr->Top)
773 #define opsave (thr->Topsave)
774 #define restartop (thr->Trestartop)
775 #define retstack (thr->Tretstack)
776 #define retstack_ix (thr->Tretstack_ix)
777 #define retstack_max (thr->Tretstack_max)
778 #define rs (thr->Trs)
779 #define savestack (thr->Tsavestack)
780 #define savestack_ix (thr->Tsavestack_ix)
781 #define savestack_max (thr->Tsavestack_max)
782 #define scopestack (thr->Tscopestack)
783 #define scopestack_ix (thr->Tscopestack_ix)
784 #define scopestack_max (thr->Tscopestack_max)
785 #define stack_base (thr->Tstack_base)
786 #define stack_max (thr->Tstack_max)
787 #define stack_sp (thr->Tstack_sp)
788 #define start_env (thr->Tstart_env)
789 #define statbuf (thr->Tstatbuf)
790 #define tainted (thr->Ttainted)
791 #define timesbuf (thr->Ttimesbuf)
792 #define tmps_floor (thr->Ttmps_floor)
793 #define tmps_ix (thr->Ttmps_ix)
794 #define tmps_max (thr->Ttmps_max)
795 #define tmps_stack (thr->Ttmps_stack)
796 #define top_env (thr->Ttop_env)
797 #define toptarget (thr->Ttoptarget)
799 #endif /* USE_THREADS */
801 #ifdef PERL_GLOBAL_STRUCT
803 #define No (Perl_Vars.GNo)
804 #define Yes (Perl_Vars.GYes)
805 #define amagic_generation (Perl_Vars.Gamagic_generation)
806 #define an (Perl_Vars.Gan)
807 #define bufend (Perl_Vars.Gbufend)
808 #define bufptr (Perl_Vars.Gbufptr)
809 #define collation_ix (Perl_Vars.Gcollation_ix)
810 #define collation_name (Perl_Vars.Gcollation_name)
811 #define collation_standard (Perl_Vars.Gcollation_standard)
812 #define collxfrm_base (Perl_Vars.Gcollxfrm_base)
813 #define collxfrm_mult (Perl_Vars.Gcollxfrm_mult)
814 #define cop_seqmax (Perl_Vars.Gcop_seqmax)
815 #define cryptseen (Perl_Vars.Gcryptseen)
816 #define cshlen (Perl_Vars.Gcshlen)
817 #define cshname (Perl_Vars.Gcshname)
818 #define curinterp (Perl_Vars.Gcurinterp)
819 #define curthr (Perl_Vars.Gcurthr)
820 #define debug (Perl_Vars.Gdebug)
821 #define do_undump (Perl_Vars.Gdo_undump)
822 #define egid (Perl_Vars.Gegid)
823 #define error_count (Perl_Vars.Gerror_count)
824 #define euid (Perl_Vars.Geuid)
825 #define eval_cond (Perl_Vars.Geval_cond)
826 #define eval_mutex (Perl_Vars.Geval_mutex)
827 #define eval_owner (Perl_Vars.Geval_owner)
828 #define evalseq (Perl_Vars.Gevalseq)
829 #define expect (Perl_Vars.Gexpect)
830 #define gid (Perl_Vars.Ggid)
831 #define he_root (Perl_Vars.Ghe_root)
832 #define hexdigit (Perl_Vars.Ghexdigit)
833 #define hints (Perl_Vars.Ghints)
834 #define in_my (Perl_Vars.Gin_my)
835 #define in_my_stash (Perl_Vars.Gin_my_stash)
836 #define last_lop (Perl_Vars.Glast_lop)
837 #define last_lop_op (Perl_Vars.Glast_lop_op)
838 #define last_uni (Perl_Vars.Glast_uni)
839 #define lex_brackets (Perl_Vars.Glex_brackets)
840 #define lex_brackstack (Perl_Vars.Glex_brackstack)
841 #define lex_casemods (Perl_Vars.Glex_casemods)
842 #define lex_casestack (Perl_Vars.Glex_casestack)
843 #define lex_defer (Perl_Vars.Glex_defer)
844 #define lex_dojoin (Perl_Vars.Glex_dojoin)
845 #define lex_expect (Perl_Vars.Glex_expect)
846 #define lex_fakebrack (Perl_Vars.Glex_fakebrack)
847 #define lex_formbrack (Perl_Vars.Glex_formbrack)
848 #define lex_inpat (Perl_Vars.Glex_inpat)
849 #define lex_inwhat (Perl_Vars.Glex_inwhat)
850 #define lex_op (Perl_Vars.Glex_op)
851 #define lex_repl (Perl_Vars.Glex_repl)
852 #define lex_starts (Perl_Vars.Glex_starts)
853 #define lex_state (Perl_Vars.Glex_state)
854 #define lex_stuff (Perl_Vars.Glex_stuff)
855 #define linestr (Perl_Vars.Glinestr)
856 #define malloc_mutex (Perl_Vars.Gmalloc_mutex)
857 #define max_intro_pending (Perl_Vars.Gmax_intro_pending)
858 #define maxo (Perl_Vars.Gmaxo)
859 #define min_intro_pending (Perl_Vars.Gmin_intro_pending)
860 #define multi_close (Perl_Vars.Gmulti_close)
861 #define multi_end (Perl_Vars.Gmulti_end)
862 #define multi_open (Perl_Vars.Gmulti_open)
863 #define multi_start (Perl_Vars.Gmulti_start)
864 #define na (Perl_Vars.Gna)
865 #define nexttoke (Perl_Vars.Gnexttoke)
866 #define nexttype (Perl_Vars.Gnexttype)
867 #define nextval (Perl_Vars.Gnextval)
868 #define nice_chunk (Perl_Vars.Gnice_chunk)
869 #define nice_chunk_size (Perl_Vars.Gnice_chunk_size)
870 #define ninterps (Perl_Vars.Gninterps)
871 #define nomemok (Perl_Vars.Gnomemok)
872 #define nthreads (Perl_Vars.Gnthreads)
873 #define nthreads_cond (Perl_Vars.Gnthreads_cond)
874 #define numeric_local (Perl_Vars.Gnumeric_local)
875 #define numeric_name (Perl_Vars.Gnumeric_name)
876 #define numeric_standard (Perl_Vars.Gnumeric_standard)
877 #define oldbufptr (Perl_Vars.Goldbufptr)
878 #define oldoldbufptr (Perl_Vars.Goldoldbufptr)
879 #define op_seqmax (Perl_Vars.Gop_seqmax)
880 #define origalen (Perl_Vars.Gorigalen)
881 #define origenviron (Perl_Vars.Gorigenviron)
882 #define osname (Perl_Vars.Gosname)
883 #define pad_reset_pending (Perl_Vars.Gpad_reset_pending)
884 #define padix (Perl_Vars.Gpadix)
885 #define padix_floor (Perl_Vars.Gpadix_floor)
886 #define patleave (Perl_Vars.Gpatleave)
887 #define pidstatus (Perl_Vars.Gpidstatus)
888 #define runops (Perl_Vars.Grunops)
889 #define sh_path (Perl_Vars.Gsh_path)
890 #define sighandlerp (Perl_Vars.Gsighandlerp)
891 #define specialsv_list (Perl_Vars.Gspecialsv_list)
892 #define subline (Perl_Vars.Gsubline)
893 #define subname (Perl_Vars.Gsubname)
894 #define sv_mutex (Perl_Vars.Gsv_mutex)
895 #define sv_no (Perl_Vars.Gsv_no)
896 #define sv_undef (Perl_Vars.Gsv_undef)
897 #define sv_yes (Perl_Vars.Gsv_yes)
898 #define svref_mutex (Perl_Vars.Gsvref_mutex)
899 #define thisexpr (Perl_Vars.Gthisexpr)
900 #define thr_key (Perl_Vars.Gthr_key)
901 #define threads_mutex (Perl_Vars.Gthreads_mutex)
902 #define threadsv_names (Perl_Vars.Gthreadsv_names)
903 #define tokenbuf (Perl_Vars.Gtokenbuf)
904 #define uid (Perl_Vars.Guid)
905 #define xiv_arenaroot (Perl_Vars.Gxiv_arenaroot)
906 #define xiv_root (Perl_Vars.Gxiv_root)
907 #define xnv_root (Perl_Vars.Gxnv_root)
908 #define xpv_root (Perl_Vars.Gxpv_root)
909 #define xrv_root (Perl_Vars.Gxrv_root)
911 #else /* !PERL_GLOBAL_STRUCT */
915 #define Gamagic_generation amagic_generation
917 #define Gbufend bufend
918 #define Gbufptr bufptr
919 #define Gcollation_ix collation_ix
920 #define Gcollation_name collation_name
921 #define Gcollation_standard collation_standard
922 #define Gcollxfrm_base collxfrm_base
923 #define Gcollxfrm_mult collxfrm_mult
924 #define Gcop_seqmax cop_seqmax
925 #define Gcryptseen cryptseen
926 #define Gcshlen cshlen
927 #define Gcshname cshname
928 #define Gcurinterp curinterp
929 #define Gcurthr curthr
931 #define Gdo_undump do_undump
933 #define Gerror_count error_count
935 #define Geval_cond eval_cond
936 #define Geval_mutex eval_mutex
937 #define Geval_owner eval_owner
938 #define Gevalseq evalseq
939 #define Gexpect expect
941 #define Ghe_root he_root
942 #define Ghexdigit hexdigit
945 #define Gin_my_stash in_my_stash
946 #define Glast_lop last_lop
947 #define Glast_lop_op last_lop_op
948 #define Glast_uni last_uni
949 #define Glex_brackets lex_brackets
950 #define Glex_brackstack lex_brackstack
951 #define Glex_casemods lex_casemods
952 #define Glex_casestack lex_casestack
953 #define Glex_defer lex_defer
954 #define Glex_dojoin lex_dojoin
955 #define Glex_expect lex_expect
956 #define Glex_fakebrack lex_fakebrack
957 #define Glex_formbrack lex_formbrack
958 #define Glex_inpat lex_inpat
959 #define Glex_inwhat lex_inwhat
960 #define Glex_op lex_op
961 #define Glex_repl lex_repl
962 #define Glex_starts lex_starts
963 #define Glex_state lex_state
964 #define Glex_stuff lex_stuff
965 #define Glinestr linestr
966 #define Gmalloc_mutex malloc_mutex
967 #define Gmax_intro_pending max_intro_pending
969 #define Gmin_intro_pending min_intro_pending
970 #define Gmulti_close multi_close
971 #define Gmulti_end multi_end
972 #define Gmulti_open multi_open
973 #define Gmulti_start multi_start
975 #define Gnexttoke nexttoke
976 #define Gnexttype nexttype
977 #define Gnextval nextval
978 #define Gnice_chunk nice_chunk
979 #define Gnice_chunk_size nice_chunk_size
980 #define Gninterps ninterps
981 #define Gnomemok nomemok
982 #define Gnthreads nthreads
983 #define Gnthreads_cond nthreads_cond
984 #define Gnumeric_local numeric_local
985 #define Gnumeric_name numeric_name
986 #define Gnumeric_standard numeric_standard
987 #define Goldbufptr oldbufptr
988 #define Goldoldbufptr oldoldbufptr
989 #define Gop_seqmax op_seqmax
990 #define Gorigalen origalen
991 #define Gorigenviron origenviron
992 #define Gosname osname
993 #define Gpad_reset_pending pad_reset_pending
995 #define Gpadix_floor padix_floor
996 #define Gpatleave patleave
997 #define Gpidstatus pidstatus
998 #define Grunops runops
999 #define Gsh_path sh_path
1000 #define Gsighandlerp sighandlerp
1001 #define Gspecialsv_list specialsv_list
1002 #define Gsubline subline
1003 #define Gsubname subname
1004 #define Gsv_mutex sv_mutex
1005 #define Gsv_no sv_no
1006 #define Gsv_undef sv_undef
1007 #define Gsv_yes sv_yes
1008 #define Gsvref_mutex svref_mutex
1009 #define Gthisexpr thisexpr
1010 #define Gthr_key thr_key
1011 #define Gthreads_mutex threads_mutex
1012 #define Gthreadsv_names threadsv_names
1013 #define Gtokenbuf tokenbuf
1015 #define Gxiv_arenaroot xiv_arenaroot
1016 #define Gxiv_root xiv_root
1017 #define Gxnv_root xnv_root
1018 #define Gxpv_root xpv_root
1019 #define Gxrv_root xrv_root
1024 #define Yes Perl_Yes
1025 #define amagic_generation Perl_amagic_generation
1027 #define bufend Perl_bufend
1028 #define bufptr Perl_bufptr
1029 #define collation_ix Perl_collation_ix
1030 #define collation_name Perl_collation_name
1031 #define collation_standard Perl_collation_standard
1032 #define collxfrm_base Perl_collxfrm_base
1033 #define collxfrm_mult Perl_collxfrm_mult
1034 #define cop_seqmax Perl_cop_seqmax
1035 #define cryptseen Perl_cryptseen
1036 #define cshlen Perl_cshlen
1037 #define cshname Perl_cshname
1038 #define curinterp Perl_curinterp
1039 #define curthr Perl_curthr
1040 #define debug Perl_debug
1041 #define do_undump Perl_do_undump
1042 #define egid Perl_egid
1043 #define error_count Perl_error_count
1044 #define euid Perl_euid
1045 #define eval_cond Perl_eval_cond
1046 #define eval_mutex Perl_eval_mutex
1047 #define eval_owner Perl_eval_owner
1048 #define evalseq Perl_evalseq
1049 #define expect Perl_expect
1050 #define gid Perl_gid
1051 #define he_root Perl_he_root
1052 #define hexdigit Perl_hexdigit
1053 #define hints Perl_hints
1054 #define in_my Perl_in_my
1055 #define in_my_stash Perl_in_my_stash
1056 #define last_lop Perl_last_lop
1057 #define last_lop_op Perl_last_lop_op
1058 #define last_uni Perl_last_uni
1059 #define lex_brackets Perl_lex_brackets
1060 #define lex_brackstack Perl_lex_brackstack
1061 #define lex_casemods Perl_lex_casemods
1062 #define lex_casestack Perl_lex_casestack
1063 #define lex_defer Perl_lex_defer
1064 #define lex_dojoin Perl_lex_dojoin
1065 #define lex_expect Perl_lex_expect
1066 #define lex_fakebrack Perl_lex_fakebrack
1067 #define lex_formbrack Perl_lex_formbrack
1068 #define lex_inpat Perl_lex_inpat
1069 #define lex_inwhat Perl_lex_inwhat
1070 #define lex_op Perl_lex_op
1071 #define lex_repl Perl_lex_repl
1072 #define lex_starts Perl_lex_starts
1073 #define lex_state Perl_lex_state
1074 #define lex_stuff Perl_lex_stuff
1075 #define linestr Perl_linestr
1076 #define malloc_mutex Perl_malloc_mutex
1077 #define max_intro_pending Perl_max_intro_pending
1078 #define maxo Perl_maxo
1079 #define min_intro_pending Perl_min_intro_pending
1080 #define multi_close Perl_multi_close
1081 #define multi_end Perl_multi_end
1082 #define multi_open Perl_multi_open
1083 #define multi_start Perl_multi_start
1085 #define nexttoke Perl_nexttoke
1086 #define nexttype Perl_nexttype
1087 #define nextval Perl_nextval
1088 #define nice_chunk Perl_nice_chunk
1089 #define nice_chunk_size Perl_nice_chunk_size
1090 #define ninterps Perl_ninterps
1091 #define nomemok Perl_nomemok
1092 #define nthreads Perl_nthreads
1093 #define nthreads_cond Perl_nthreads_cond
1094 #define numeric_local Perl_numeric_local
1095 #define numeric_name Perl_numeric_name
1096 #define numeric_standard Perl_numeric_standard
1097 #define oldbufptr Perl_oldbufptr
1098 #define oldoldbufptr Perl_oldoldbufptr
1099 #define op_seqmax Perl_op_seqmax
1100 #define origalen Perl_origalen
1101 #define origenviron Perl_origenviron
1102 #define osname Perl_osname
1103 #define pad_reset_pending Perl_pad_reset_pending
1104 #define padix Perl_padix
1105 #define padix_floor Perl_padix_floor
1106 #define patleave Perl_patleave
1107 #define pidstatus Perl_pidstatus
1108 #define runops Perl_runops
1109 #define sh_path Perl_sh_path
1110 #define sighandlerp Perl_sighandlerp
1111 #define specialsv_list Perl_specialsv_list
1112 #define subline Perl_subline
1113 #define subname Perl_subname
1114 #define sv_mutex Perl_sv_mutex
1115 #define sv_no Perl_sv_no
1116 #define sv_undef Perl_sv_undef
1117 #define sv_yes Perl_sv_yes
1118 #define svref_mutex Perl_svref_mutex
1119 #define thisexpr Perl_thisexpr
1120 #define thr_key Perl_thr_key
1121 #define threads_mutex Perl_threads_mutex
1122 #define threadsv_names Perl_threadsv_names
1123 #define tokenbuf Perl_tokenbuf
1124 #define uid Perl_uid
1125 #define xiv_arenaroot Perl_xiv_arenaroot
1126 #define xiv_root Perl_xiv_root
1127 #define xnv_root Perl_xnv_root
1128 #define xpv_root Perl_xpv_root
1129 #define xrv_root Perl_xrv_root
1132 #endif /* PERL_GLOBAL_STRUCT */
projects / p5sagit/p5-mst-13.2.git / blob