/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by embed.pl from global.sym, intrpvar.h, and thrdvar.h. Any changes made here will be lost! */ /* (Doing namespace management portably in C is really gross.) */ /* EMBED has no run-time penalty, but helps keep the Perl namespace from colliding with that used by other libraries pulled in by extensions or by embedding perl. Allow a cc -DNO_EMBED override, however, to keep binary compatability with previous versions of perl. */ /* Put interpreter-specific symbols into a struct? */ #ifdef MULTIPLICITY #ifndef USE_THREADS /* If we do not have threads then per-thread vars are per-interpreter */ #define Sv (curinterp->TSv) #define Xpv (curinterp->TXpv) #define bodytarget (curinterp->Tbodytarget) #define chopset (curinterp->Tchopset) #define curcop (curinterp->Tcurcop) #define curpad (curinterp->Tcurpad) #define curpm (curinterp->Tcurpm) #define curstack (curinterp->Tcurstack) #define curstash (curinterp->Tcurstash) #define cxstack (curinterp->Tcxstack) #define cxstack_ix (curinterp->Tcxstack_ix) #define cxstack_max (curinterp->Tcxstack_max) #define defoutgv (curinterp->Tdefoutgv) #define defstash (curinterp->Tdefstash) #define delaymagic (curinterp->Tdelaymagic) #define dirty (curinterp->Tdirty) #define formtarget (curinterp->Tformtarget) #define in_eval (curinterp->Tin_eval) #define last_in_gv (curinterp->Tlast_in_gv) #define localizing (curinterp->Tlocalizing) #define mainstack (curinterp->Tmainstack) #define markstack (curinterp->Tmarkstack) #define markstack_max (curinterp->Tmarkstack_max) #define markstack_ptr (curinterp->Tmarkstack_ptr) #define nrs (curinterp->Tnrs) #define ofs (curinterp->Tofs) #define ofslen (curinterp->Tofslen) #define op (curinterp->Top) #define opsave (curinterp->Topsave) #define restartop (curinterp->Trestartop) #define retstack (curinterp->Tretstack) #define retstack_ix (curinterp->Tretstack_ix) #define retstack_max (curinterp->Tretstack_max) #define rs (curinterp->Trs) #define savestack (curinterp->Tsavestack) #define savestack_ix (curinterp->Tsavestack_ix) #define savestack_max (curinterp->Tsavestack_max) #define scopestack (curinterp->Tscopestack) #define scopestack_ix (curinterp->Tscopestack_ix) #define scopestack_max (curinterp->Tscopestack_max) #define stack_base (curinterp->Tstack_base) #define stack_max (curinterp->Tstack_max) #define stack_sp (curinterp->Tstack_sp) #define start_env (curinterp->Tstart_env) #define statbuf (curinterp->Tstatbuf) #define tainted (curinterp->Ttainted) #define timesbuf (curinterp->Ttimesbuf) #define tmps_floor (curinterp->Ttmps_floor) #define tmps_ix (curinterp->Ttmps_ix) #define tmps_max (curinterp->Ttmps_max) #define tmps_stack (curinterp->Ttmps_stack) #define top_env (curinterp->Ttop_env) #define toptarget (curinterp->Ttoptarget) #endif /* !USE_THREADS */ /* These are always per-interpreter if there is more than one */ #define Argv (curinterp->IArgv) #define Cmd (curinterp->ICmd) #define DBgv (curinterp->IDBgv) #define DBline (curinterp->IDBline) #define DBsignal (curinterp->IDBsignal) #define DBsingle (curinterp->IDBsingle) #define DBsub (curinterp->IDBsub) #define DBtrace (curinterp->IDBtrace) #define ampergv (curinterp->Iampergv) #define argvgv (curinterp->Iargvgv) #define argvoutgv (curinterp->Iargvoutgv) #define basetime (curinterp->Ibasetime) #define beginav (curinterp->Ibeginav) #define cddir (curinterp->Icddir) #define copline (curinterp->Icopline) #define curcopdb (curinterp->Icurcopdb) #define curstname (curinterp->Icurstname) #define dbargs (curinterp->Idbargs) #define debdelim (curinterp->Idebdelim) #define debname (curinterp->Idebname) #define debstash (curinterp->Idebstash) #define defgv (curinterp->Idefgv) #define diehook (curinterp->Idiehook) #define dlevel (curinterp->Idlevel) #define dlmax (curinterp->Idlmax) #define doextract (curinterp->Idoextract) #define doswitches (curinterp->Idoswitches) #define dowarn (curinterp->Idowarn) #define dumplvl (curinterp->Idumplvl) #define e_fp (curinterp->Ie_fp) #define e_tmpname (curinterp->Ie_tmpname) #define endav (curinterp->Iendav) #define envgv (curinterp->Ienvgv) #define errgv (curinterp->Ierrgv) #define eval_root (curinterp->Ieval_root) #define eval_start (curinterp->Ieval_start) #define fdpid (curinterp->Ifdpid) #define filemode (curinterp->Ifilemode) #define firstgv (curinterp->Ifirstgv) #define forkprocess (curinterp->Iforkprocess) #define formfeed (curinterp->Iformfeed) #define gensym (curinterp->Igensym) #define globalstash (curinterp->Iglobalstash) #define incgv (curinterp->Iincgv) #define initav (curinterp->Iinitav) #define inplace (curinterp->Iinplace) #define lastfd (curinterp->Ilastfd) #define lastscream (curinterp->Ilastscream) #define lastsize (curinterp->Ilastsize) #define lastspbase (curinterp->Ilastspbase) #define laststatval (curinterp->Ilaststatval) #define laststype (curinterp->Ilaststype) #define leftgv (curinterp->Ileftgv) #define lineary (curinterp->Ilineary) #define localpatches (curinterp->Ilocalpatches) #define main_cv (curinterp->Imain_cv) #define main_root (curinterp->Imain_root) #define main_start (curinterp->Imain_start) #define maxscream (curinterp->Imaxscream) #define maxsysfd (curinterp->Imaxsysfd) #define mess_sv (curinterp->Imess_sv) #define minus_F (curinterp->Iminus_F) #define minus_a (curinterp->Iminus_a) #define minus_c (curinterp->Iminus_c) #define minus_l (curinterp->Iminus_l) #define minus_n (curinterp->Iminus_n) #define minus_p (curinterp->Iminus_p) #define multiline (curinterp->Imultiline) #define mystrk (curinterp->Imystrk) #define ofmt (curinterp->Iofmt) #define oldlastpm (curinterp->Ioldlastpm) #define oldname (curinterp->Ioldname) #define op_mask (curinterp->Iop_mask) #define origargc (curinterp->Iorigargc) #define origargv (curinterp->Iorigargv) #define origfilename (curinterp->Iorigfilename) #define ors (curinterp->Iors) #define orslen (curinterp->Iorslen) #define parsehook (curinterp->Iparsehook) #define patchlevel (curinterp->Ipatchlevel) #define perl_destruct_level (curinterp->Iperl_destruct_level) #define perldb (curinterp->Iperldb) #define preambleav (curinterp->Ipreambleav) #define preambled (curinterp->Ipreambled) #define preprocess (curinterp->Ipreprocess) #define rightgv (curinterp->Irightgv) #define sawampersand (curinterp->Isawampersand) #define sawstudy (curinterp->Isawstudy) #define sawvec (curinterp->Isawvec) #define screamfirst (curinterp->Iscreamfirst) #define screamnext (curinterp->Iscreamnext) #define secondgv (curinterp->Isecondgv) #define siggv (curinterp->Isiggv) #define signalstack (curinterp->Isignalstack) #define sortcop (curinterp->Isortcop) #define sortstack (curinterp->Isortstack) #define sortstash (curinterp->Isortstash) #define splitstr (curinterp->Isplitstr) #define statcache (curinterp->Istatcache) #define statgv (curinterp->Istatgv) #define statname (curinterp->Istatname) #define statusvalue (curinterp->Istatusvalue) #define statusvalue_vms (curinterp->Istatusvalue_vms) #define stdingv (curinterp->Istdingv) #define strchop (curinterp->Istrchop) #define strtab (curinterp->Istrtab) #define sv_arenaroot (curinterp->Isv_arenaroot) #define sv_count (curinterp->Isv_count) #define sv_objcount (curinterp->Isv_objcount) #define sv_root (curinterp->Isv_root) #define tainting (curinterp->Itainting) #define thrsv (curinterp->Ithrsv) #define unsafe (curinterp->Iunsafe) #define warnhook (curinterp->Iwarnhook) #else /* !MULTIPLICITY */ #define IArgv Argv #define ICmd Cmd #define IDBgv DBgv #define IDBline DBline #define IDBsignal DBsignal #define IDBsingle DBsingle #define IDBsub DBsub #define IDBtrace DBtrace #define Iampergv ampergv #define Iargvgv argvgv #define Iargvoutgv argvoutgv #define Ibasetime basetime #define Ibeginav beginav #define Icddir cddir #define Icopline copline #define Icurcopdb curcopdb #define Icurstname curstname #define Idbargs dbargs #define Idebdelim debdelim #define Idebname debname #define Idebstash debstash #define Idefgv defgv #define Idiehook diehook #define Idlevel dlevel #define Idlmax dlmax #define Idoextract doextract #define Idoswitches doswitches #define Idowarn dowarn #define Idumplvl dumplvl #define Ie_fp e_fp #define Ie_tmpname e_tmpname #define Iendav endav #define Ienvgv envgv #define Ierrgv errgv #define Ieval_root eval_root #define Ieval_start eval_start #define Ifdpid fdpid #define Ifilemode filemode #define Ifirstgv firstgv #define Iforkprocess forkprocess #define Iformfeed formfeed #define Igensym gensym #define Iglobalstash globalstash #define Iincgv incgv #define Iinitav initav #define Iinplace inplace #define Ilastfd lastfd #define Ilastscream lastscream #define Ilastsize lastsize #define Ilastspbase lastspbase #define Ilaststatval laststatval #define Ilaststype laststype #define Ileftgv leftgv #define Ilineary lineary #define Ilocalpatches localpatches #define Imain_cv main_cv #define Imain_root main_root #define Imain_start main_start #define Imaxscream maxscream #define Imaxsysfd maxsysfd #define Imess_sv mess_sv #define Iminus_F minus_F #define Iminus_a minus_a #define Iminus_c minus_c #define Iminus_l minus_l #define Iminus_n minus_n #define Iminus_p minus_p #define Imultiline multiline #define Imystrk mystrk #define Iofmt ofmt #define Ioldlastpm oldlastpm #define Ioldname oldname #define Iop_mask op_mask #define Iorigargc origargc #define Iorigargv origargv #define Iorigfilename origfilename #define Iors ors #define Iorslen orslen #define Iparsehook parsehook #define Ipatchlevel patchlevel #define Iperl_destruct_level perl_destruct_level #define Iperldb perldb #define Ipreambleav preambleav #define Ipreambled preambled #define Ipreprocess preprocess #define Irightgv rightgv #define Isawampersand sawampersand #define Isawstudy sawstudy #define Isawvec sawvec #define Iscreamfirst screamfirst #define Iscreamnext screamnext #define Isecondgv secondgv #define Isiggv siggv #define Isignalstack signalstack #define Isortcop sortcop #define Isortstack sortstack #define Isortstash sortstash #define Isplitstr splitstr #define Istatcache statcache #define Istatgv statgv #define Istatname statname #define Istatusvalue statusvalue #define Istatusvalue_vms statusvalue_vms #define Istdingv stdingv #define Istrchop strchop #define Istrtab strtab #define Isv_arenaroot sv_arenaroot #define Isv_count sv_count #define Isv_objcount sv_objcount #define Isv_root sv_root #define Itainting tainting #define Ithrsv thrsv #define Iunsafe unsafe #define Iwarnhook warnhook #ifndef USE_THREADS #define TSv Sv #define TXpv Xpv #define Tbodytarget bodytarget #define Tchopset chopset #define Tcurcop curcop #define Tcurpad curpad #define Tcurpm curpm #define Tcurstack curstack #define Tcurstash curstash #define Tcxstack cxstack #define Tcxstack_ix cxstack_ix #define Tcxstack_max cxstack_max #define Tdefoutgv defoutgv #define Tdefstash defstash #define Tdelaymagic delaymagic #define Tdirty dirty #define Tformtarget formtarget #define Tin_eval in_eval #define Tlast_in_gv last_in_gv #define Tlocalizing localizing #define Tmainstack mainstack #define Tmarkstack markstack #define Tmarkstack_max markstack_max #define Tmarkstack_ptr markstack_ptr #define Tnrs nrs #define Tofs ofs #define Tofslen ofslen #define Top op #define Topsave opsave #define Trestartop restartop #define Tretstack retstack #define Tretstack_ix retstack_ix #define Tretstack_max retstack_max #define Trs rs #define Tsavestack savestack #define Tsavestack_ix savestack_ix #define Tsavestack_max savestack_max #define Tscopestack scopestack #define Tscopestack_ix scopestack_ix #define Tscopestack_max scopestack_max #define Tstack_base stack_base #define Tstack_max stack_max #define Tstack_sp stack_sp #define Tstart_env start_env #define Tstatbuf statbuf #define Ttainted tainted #define Ttimesbuf timesbuf #define Ttmps_floor tmps_floor #define Ttmps_ix tmps_ix #define Ttmps_max tmps_max #define Ttmps_stack tmps_stack #define Ttop_env top_env #define Ttoptarget toptarget #endif /* USE_THREADS */ /* Hide what would have been interpreter-specific symbols? */ #ifdef EMBED #define Argv Perl_Argv #define Cmd Perl_Cmd #define DBgv Perl_DBgv #define DBline Perl_DBline #define DBsignal Perl_DBsignal #define DBsingle Perl_DBsingle #define DBsub Perl_DBsub #define DBtrace Perl_DBtrace #define ampergv Perl_ampergv #define argvgv Perl_argvgv #define argvoutgv Perl_argvoutgv #define basetime Perl_basetime #define beginav Perl_beginav #define cddir Perl_cddir #define copline Perl_copline #define curcopdb Perl_curcopdb #define curstname Perl_curstname #define dbargs Perl_dbargs #define debdelim Perl_debdelim #define debname Perl_debname #define debstash Perl_debstash #define defgv Perl_defgv #define diehook Perl_diehook #define dlevel Perl_dlevel #define dlmax Perl_dlmax #define doextract Perl_doextract #define doswitches Perl_doswitches #define dowarn Perl_dowarn #define dumplvl Perl_dumplvl #define e_fp Perl_e_fp #define e_tmpname Perl_e_tmpname #define endav Perl_endav #define envgv Perl_envgv #define errgv Perl_errgv #define eval_root Perl_eval_root #define eval_start Perl_eval_start #define fdpid Perl_fdpid #define filemode Perl_filemode #define firstgv Perl_firstgv #define forkprocess Perl_forkprocess #define formfeed Perl_formfeed #define gensym Perl_gensym #define globalstash Perl_globalstash #define incgv Perl_incgv #define initav Perl_initav #define inplace Perl_inplace #define lastfd Perl_lastfd #define lastscream Perl_lastscream #define lastsize Perl_lastsize #define lastspbase Perl_lastspbase #define laststatval Perl_laststatval #define laststype Perl_laststype #define leftgv Perl_leftgv #define lineary Perl_lineary #define localpatches Perl_localpatches #define main_cv Perl_main_cv #define main_root Perl_main_root #define main_start Perl_main_start #define maxscream Perl_maxscream #define maxsysfd Perl_maxsysfd #define mess_sv Perl_mess_sv #define minus_F Perl_minus_F #define minus_a Perl_minus_a #define minus_c Perl_minus_c #define minus_l Perl_minus_l #define minus_n Perl_minus_n #define minus_p Perl_minus_p #define multiline Perl_multiline #define mystrk Perl_mystrk #define ofmt Perl_ofmt #define oldlastpm Perl_oldlastpm #define oldname Perl_oldname #define op_mask Perl_op_mask #define origargc Perl_origargc #define origargv Perl_origargv #define origfilename Perl_origfilename #define ors Perl_ors #define orslen Perl_orslen #define parsehook Perl_parsehook #define patchlevel Perl_patchlevel #define perl_destruct_level Perl_perl_destruct_level #define perldb Perl_perldb #define preambleav Perl_preambleav #define preambled Perl_preambled #define preprocess Perl_preprocess #define rightgv Perl_rightgv #define sawampersand Perl_sawampersand #define sawstudy Perl_sawstudy #define sawvec Perl_sawvec #define screamfirst Perl_screamfirst #define screamnext Perl_screamnext #define secondgv Perl_secondgv #define siggv Perl_siggv #define signalstack Perl_signalstack #define sortcop Perl_sortcop #define sortstack Perl_sortstack #define sortstash Perl_sortstash #define splitstr Perl_splitstr #define statcache Perl_statcache #define statgv Perl_statgv #define statname Perl_statname #define statusvalue Perl_statusvalue #define statusvalue_vms Perl_statusvalue_vms #define stdingv Perl_stdingv #define strchop Perl_strchop #define strtab Perl_strtab #define sv_arenaroot Perl_sv_arenaroot #define sv_count Perl_sv_count #define sv_objcount Perl_sv_objcount #define sv_root Perl_sv_root #define tainting Perl_tainting #define thrsv Perl_thrsv #define unsafe Perl_unsafe #define warnhook Perl_warnhook #ifndef USE_THREADS #define Sv Perl_Sv #define Xpv Perl_Xpv #define bodytarget Perl_bodytarget #define chopset Perl_chopset #define curcop Perl_curcop #define curpad Perl_curpad #define curpm Perl_curpm #define curstack Perl_curstack #define curstash Perl_curstash #define cxstack Perl_cxstack #define cxstack_ix Perl_cxstack_ix #define cxstack_max Perl_cxstack_max #define defoutgv Perl_defoutgv #define defstash Perl_defstash #define delaymagic Perl_delaymagic #define dirty Perl_dirty #define formtarget Perl_formtarget #define in_eval Perl_in_eval #define last_in_gv Perl_last_in_gv #define localizing Perl_localizing #define mainstack Perl_mainstack #define markstack Perl_markstack #define markstack_max Perl_markstack_max #define markstack_ptr Perl_markstack_ptr #define nrs Perl_nrs #define ofs Perl_ofs #define ofslen Perl_ofslen #define op Perl_op #define opsave Perl_opsave #define restartop Perl_restartop #define retstack Perl_retstack #define retstack_ix Perl_retstack_ix #define retstack_max Perl_retstack_max #define rs Perl_rs #define savestack Perl_savestack #define savestack_ix Perl_savestack_ix #define savestack_max Perl_savestack_max #define scopestack Perl_scopestack #define scopestack_ix Perl_scopestack_ix #define scopestack_max Perl_scopestack_max #define stack_base Perl_stack_base #define stack_max Perl_stack_max #define stack_sp Perl_stack_sp #define start_env Perl_start_env #define statbuf Perl_statbuf #define tainted Perl_tainted #define timesbuf Perl_timesbuf #define tmps_floor Perl_tmps_floor #define tmps_ix Perl_tmps_ix #define tmps_max Perl_tmps_max #define tmps_stack Perl_tmps_stack #define top_env Perl_top_env #define toptarget Perl_toptarget #endif /* USE_THREADS */ #endif /* EMBED */ #endif /* MULTIPLICITY */ /* Now same trickey for per-thread variables */ #ifdef USE_THREADS #define Sv (thr->TSv) #define Xpv (thr->TXpv) #define bodytarget (thr->Tbodytarget) #define chopset (thr->Tchopset) #define curcop (thr->Tcurcop) #define curpad (thr->Tcurpad) #define curpm (thr->Tcurpm) #define curstack (thr->Tcurstack) #define curstash (thr->Tcurstash) #define cxstack (thr->Tcxstack) #define cxstack_ix (thr->Tcxstack_ix) #define cxstack_max (thr->Tcxstack_max) #define defoutgv (thr->Tdefoutgv) #define defstash (thr->Tdefstash) #define delaymagic (thr->Tdelaymagic) #define dirty (thr->Tdirty) #define formtarget (thr->Tformtarget) #define in_eval (thr->Tin_eval) #define last_in_gv (thr->Tlast_in_gv) #define localizing (thr->Tlocalizing) #define mainstack (thr->Tmainstack) #define markstack (thr->Tmarkstack) #define markstack_max (thr->Tmarkstack_max) #define markstack_ptr (thr->Tmarkstack_ptr) #define nrs (thr->Tnrs) #define ofs (thr->Tofs) #define ofslen (thr->Tofslen) #define op (thr->Top) #define opsave (thr->Topsave) #define restartop (thr->Trestartop) #define retstack (thr->Tretstack) #define retstack_ix (thr->Tretstack_ix) #define retstack_max (thr->Tretstack_max) #define rs (thr->Trs) #define savestack (thr->Tsavestack) #define savestack_ix (thr->Tsavestack_ix) #define savestack_max (thr->Tsavestack_max) #define scopestack (thr->Tscopestack) #define scopestack_ix (thr->Tscopestack_ix) #define scopestack_max (thr->Tscopestack_max) #define stack_base (thr->Tstack_base) #define stack_max (thr->Tstack_max) #define stack_sp (thr->Tstack_sp) #define start_env (thr->Tstart_env) #define statbuf (thr->Tstatbuf) #define tainted (thr->Ttainted) #define timesbuf (thr->Ttimesbuf) #define tmps_floor (thr->Ttmps_floor) #define tmps_ix (thr->Ttmps_ix) #define tmps_max (thr->Ttmps_max) #define tmps_stack (thr->Ttmps_stack) #define top_env (thr->Ttop_env) #define toptarget (thr->Ttoptarget) #endif /* USE_THREADS */