1 /* This file is derived from global.var and interp.var */
3 /* (Doing namespace management portably in C is really gross.) */
7 /* globals we need to hide from the world */
13 #define bufend PERLbufend
14 #define bufptr PERLbufptr
15 #define compiling PERLcompiling
16 #define comppad PERLcomppad
17 #define cryptseen PERLcryptseen
18 #define cshlen PERLcshlen
19 #define cshname PERLcshname
20 #define curinterp PERLcurinterp
21 #define curpad PERLcurpad
26 #define error_count PERLerror_count
28 #define evstr PERLevstr
29 #define expectterm PERLexpectterm
33 #define hexdigit PERLhexdigit
34 #define in_format PERLin_format
35 #define know_next PERLknow_next
36 #define last_lop PERLlast_lop
37 #define last_uni PERLlast_uni
38 #define linestr PERLlinestr
39 #define multi_close PERLmulti_close
40 #define multi_end PERLmulti_end
41 #define multi_open PERLmulti_open
42 #define multi_start PERLmulti_start
43 #define nexttype PERLnexttype
44 #define nextval PERLnextval
45 #define nointrp PERLnointrp
46 #define nomem PERLnomem
47 #define nomemok PERLnomemok
48 #define oldbufptr PERLoldbufptr
49 #define oldoldbufptr PERLoldoldbufptr
50 #define origalen PERLorigalen
51 #define origenviron PERLorigenviron
52 #define padix PERLpadix
53 #define patleave PERLpatleave
54 #define regbol PERLregbol
55 #define regcode PERLregcode
56 #define regendp PERLregendp
57 #define regeol PERLregeol
58 #define regfold PERLregfold
59 #define reginput PERLreginput
60 #define reglastparen PERLreglastparen
61 #define regmyendp PERLregmyendp
62 #define regmyp_size PERLregmyp_size
63 #define regmystartp PERLregmystartp
64 #define regnpar PERLregnpar
65 #define regparse PERLregparse
66 #define regprecomp PERLregprecomp
67 #define regprev PERLregprev
68 #define regsawback PERLregsawback
69 #define regsawbracket PERLregsawbracket
70 #define regsize PERLregsize
71 #define regstartp PERLregstartp
72 #define regtill PERLregtill
73 #define regxend PERLregxend
75 #define saw_return PERLsaw_return
76 #define statbuf PERLstatbuf
77 #define subline PERLsubline
78 #define subname PERLsubname
79 #define sv_no PERLsv_no
80 #define sv_undef PERLsv_undef
81 #define sv_yes PERLsv_yes
82 #define thisexpr PERLthisexpr
83 #define timesbuf PERLtimesbuf
84 #define tokenbuf PERLtokenbuf
88 /* interpreter specific variables */
90 #define Argv (curinterp->IArgv)
91 #define Cmd (curinterp->ICmd)
92 #define DBgv (curinterp->IDBgv)
93 #define DBline (curinterp->IDBline)
94 #define DBsignal (curinterp->IDBsignal)
95 #define DBsingle (curinterp->IDBsingle)
96 #define DBsub (curinterp->IDBsub)
97 #define DBtrace (curinterp->IDBtrace)
98 #define allgvs (curinterp->Iallgvs)
99 #define ampergv (curinterp->Iampergv)
100 #define argvgv (curinterp->Iargvgv)
101 #define argvoutgv (curinterp->Iargvoutgv)
102 #define arybase (curinterp->Iarybase)
103 #define basetime (curinterp->Ibasetime)
104 #define beginav (curinterp->Ibeginav)
105 #define bodytarget (curinterp->Ibodytarget)
106 #define cddir (curinterp->Icddir)
107 #define chopset (curinterp->Ichopset)
108 #define copline (curinterp->Icopline)
109 #define curblock (curinterp->Icurblock)
110 #define curcop (curinterp->Icurcop)
111 #define curcsv (curinterp->Icurcsv)
112 #define curoutgv (curinterp->Icuroutgv)
113 #define curpm (curinterp->Icurpm)
114 #define curstash (curinterp->Icurstash)
115 #define curstname (curinterp->Icurstname)
116 #define cxstack (curinterp->Icxstack)
117 #define cxstack_ix (curinterp->Icxstack_ix)
118 #define cxstack_max (curinterp->Icxstack_max)
119 #define dbargs (curinterp->Idbargs)
120 #define dbmrefcnt (curinterp->Idbmrefcnt)
121 #define debdelim (curinterp->Idebdelim)
122 #define debname (curinterp->Idebname)
123 #define debstash (curinterp->Idebstash)
124 #define debug (curinterp->Idebug)
125 #define defgv (curinterp->Idefgv)
126 #define defoutgv (curinterp->Idefoutgv)
127 #define defstash (curinterp->Idefstash)
128 #define delaymagic (curinterp->Idelaymagic)
129 #define dirty (curinterp->Idirty)
130 #define dlevel (curinterp->Idlevel)
131 #define dlmax (curinterp->Idlmax)
132 #define do_undump (curinterp->Ido_undump)
133 #define doextract (curinterp->Idoextract)
134 #define doswitches (curinterp->Idoswitches)
135 #define dowarn (curinterp->Idowarn)
136 #define dumplvl (curinterp->Idumplvl)
137 #define e_fp (curinterp->Ie_fp)
138 #define e_tmpname (curinterp->Ie_tmpname)
139 #define endav (curinterp->Iendav)
140 #define envgv (curinterp->Ienvgv)
141 #define eval_root (curinterp->Ieval_root)
142 #define eval_start (curinterp->Ieval_start)
143 #define fdpid (curinterp->Ifdpid)
144 #define filemode (curinterp->Ifilemode)
145 #define firstgv (curinterp->Ifirstgv)
146 #define forkprocess (curinterp->Iforkprocess)
147 #define formfeed (curinterp->Iformfeed)
148 #define formtarget (curinterp->Iformtarget)
149 #define freestrroot (curinterp->Ifreestrroot)
150 #define gensym (curinterp->Igensym)
151 #define in_eval (curinterp->Iin_eval)
152 #define incgv (curinterp->Iincgv)
153 #define inplace (curinterp->Iinplace)
154 #define last_in_gv (curinterp->Ilast_in_gv)
155 #define lastfd (curinterp->Ilastfd)
156 #define lastretstr (curinterp->Ilastretstr)
157 #define lastscream (curinterp->Ilastscream)
158 #define lastsize (curinterp->Ilastsize)
159 #define lastspbase (curinterp->Ilastspbase)
160 #define laststatval (curinterp->Ilaststatval)
161 #define laststype (curinterp->Ilaststype)
162 #define leftgv (curinterp->Ileftgv)
163 #define lineary (curinterp->Ilineary)
164 #define localizing (curinterp->Ilocalizing)
165 #define main_root (curinterp->Imain_root)
166 #define main_start (curinterp->Imain_start)
167 #define mainstack (curinterp->Imainstack)
168 #define maxscream (curinterp->Imaxscream)
169 #define maxsysfd (curinterp->Imaxsysfd)
170 #define minus_a (curinterp->Iminus_a)
171 #define minus_c (curinterp->Iminus_c)
172 #define minus_l (curinterp->Iminus_l)
173 #define minus_n (curinterp->Iminus_n)
174 #define minus_p (curinterp->Iminus_p)
175 #define multiline (curinterp->Imultiline)
176 #define mystack_base (curinterp->Imystack_base)
177 #define mystack_mark (curinterp->Imystack_mark)
178 #define mystack_max (curinterp->Imystack_max)
179 #define mystack_sp (curinterp->Imystack_sp)
180 #define mystrk (curinterp->Imystrk)
181 #define nrs (curinterp->Inrs)
182 #define nrschar (curinterp->Inrschar)
183 #define nrslen (curinterp->Inrslen)
184 #define ofmt (curinterp->Iofmt)
185 #define ofs (curinterp->Iofs)
186 #define ofslen (curinterp->Iofslen)
187 #define oldlastpm (curinterp->Ioldlastpm)
188 #define oldname (curinterp->Ioldname)
189 #define origargc (curinterp->Iorigargc)
190 #define origargv (curinterp->Iorigargv)
191 #define origfilename (curinterp->Iorigfilename)
192 #define ors (curinterp->Iors)
193 #define orslen (curinterp->Iorslen)
194 #define pad (curinterp->Ipad)
195 #define padname (curinterp->Ipadname)
196 #define patchlevel (curinterp->Ipatchlevel)
197 #define perldb (curinterp->Iperldb)
198 #define pidstatus (curinterp->Ipidstatus)
199 #define preambled (curinterp->Ipreambled)
200 #define preprocess (curinterp->Ipreprocess)
201 #define restartop (curinterp->Irestartop)
202 #define rightgv (curinterp->Irightgv)
203 #define rs (curinterp->Irs)
204 #define rschar (curinterp->Irschar)
205 #define rslen (curinterp->Irslen)
206 #define rspara (curinterp->Irspara)
207 #define sawampersand (curinterp->Isawampersand)
208 #define sawi (curinterp->Isawi)
209 #define sawstudy (curinterp->Isawstudy)
210 #define sawvec (curinterp->Isawvec)
211 #define screamfirst (curinterp->Iscreamfirst)
212 #define screamnext (curinterp->Iscreamnext)
213 #define secondgv (curinterp->Isecondgv)
214 #define siggv (curinterp->Isiggv)
215 #define signalstack (curinterp->Isignalstack)
216 #define sortcop (curinterp->Isortcop)
217 #define sortstack (curinterp->Isortstack)
218 #define sortstash (curinterp->Isortstash)
219 #define stack (curinterp->Istack)
220 #define statcache (curinterp->Istatcache)
221 #define statgv (curinterp->Istatgv)
222 #define statname (curinterp->Istatname)
223 #define statusvalue (curinterp->Istatusvalue)
224 #define stdingv (curinterp->Istdingv)
225 #define strchop (curinterp->Istrchop)
226 #define taintanyway (curinterp->Itaintanyway)
227 #define tainted (curinterp->Itainted)
228 #define tmps_floor (curinterp->Itmps_floor)
229 #define tmps_ix (curinterp->Itmps_ix)
230 #define tmps_max (curinterp->Itmps_max)
231 #define tmps_stack (curinterp->Itmps_stack)
232 #define top_env (curinterp->Itop_env)
233 #define toptarget (curinterp->Itoptarget)
234 #define unsafe (curinterp->Iunsafe)
236 #else /* not embedded, so translate interpreter variables the other way... */
241 #define IDBline DBline
242 #define IDBsignal DBsignal
243 #define IDBsingle DBsingle
245 #define IDBtrace DBtrace
246 #define Iallgvs allgvs
247 #define Iampergv ampergv
248 #define Iargvgv argvgv
249 #define Iargvoutgv argvoutgv
250 #define Iarybase arybase
251 #define Ibasetime basetime
252 #define Ibeginav beginav
253 #define Ibodytarget bodytarget
255 #define Ichopset chopset
256 #define Icopline copline
257 #define Icurblock curblock
258 #define Icurcop curcop
259 #define Icurcsv curcsv
260 #define Icuroutgv curoutgv
262 #define Icurstash curstash
263 #define Icurstname curstname
264 #define Icxstack cxstack
265 #define Icxstack_ix cxstack_ix
266 #define Icxstack_max cxstack_max
267 #define Idbargs dbargs
268 #define Idbmrefcnt dbmrefcnt
269 #define Idebdelim debdelim
270 #define Idebname debname
271 #define Idebstash debstash
274 #define Idefoutgv defoutgv
275 #define Idefstash defstash
276 #define Idelaymagic delaymagic
278 #define Idlevel dlevel
280 #define Ido_undump do_undump
281 #define Idoextract doextract
282 #define Idoswitches doswitches
283 #define Idowarn dowarn
284 #define Idumplvl dumplvl
286 #define Ie_tmpname e_tmpname
289 #define Ieval_root eval_root
290 #define Ieval_start eval_start
292 #define Ifilemode filemode
293 #define Ifirstgv firstgv
294 #define Iforkprocess forkprocess
295 #define Iformfeed formfeed
296 #define Iformtarget formtarget
297 #define Ifreestrroot freestrroot
298 #define Igensym gensym
299 #define Iin_eval in_eval
301 #define Iinplace inplace
302 #define Ilast_in_gv last_in_gv
303 #define Ilastfd lastfd
304 #define Ilastretstr lastretstr
305 #define Ilastscream lastscream
306 #define Ilastsize lastsize
307 #define Ilastspbase lastspbase
308 #define Ilaststatval laststatval
309 #define Ilaststype laststype
310 #define Ileftgv leftgv
311 #define Ilineary lineary
312 #define Ilocalizing localizing
313 #define Imain_root main_root
314 #define Imain_start main_start
315 #define Imainstack mainstack
316 #define Imaxscream maxscream
317 #define Imaxsysfd maxsysfd
318 #define Iminus_a minus_a
319 #define Iminus_c minus_c
320 #define Iminus_l minus_l
321 #define Iminus_n minus_n
322 #define Iminus_p minus_p
323 #define Imultiline multiline
324 #define Imystack_base mystack_base
325 #define Imystack_mark mystack_mark
326 #define Imystack_max mystack_max
327 #define Imystack_sp mystack_sp
328 #define Imystrk mystrk
330 #define Inrschar nrschar
331 #define Inrslen nrslen
334 #define Iofslen ofslen
335 #define Ioldlastpm oldlastpm
336 #define Ioldname oldname
337 #define Iorigargc origargc
338 #define Iorigargv origargv
339 #define Iorigfilename origfilename
341 #define Iorslen orslen
343 #define Ipadname padname
344 #define Ipatchlevel patchlevel
345 #define Iperldb perldb
346 #define Ipidstatus pidstatus
347 #define Ipreambled preambled
348 #define Ipreprocess preprocess
349 #define Irestartop restartop
350 #define Irightgv rightgv
352 #define Irschar rschar
354 #define Irspara rspara
355 #define Isawampersand sawampersand
357 #define Isawstudy sawstudy
358 #define Isawvec sawvec
359 #define Iscreamfirst screamfirst
360 #define Iscreamnext screamnext
361 #define Isecondgv secondgv
363 #define Isignalstack signalstack
364 #define Isortcop sortcop
365 #define Isortstack sortstack
366 #define Isortstash sortstash
368 #define Istatcache statcache
369 #define Istatgv statgv
370 #define Istatname statname
371 #define Istatusvalue statusvalue
372 #define Istdingv stdingv
373 #define Istrchop strchop
374 #define Itaintanyway taintanyway
375 #define Itainted tainted
376 #define Itmps_floor tmps_floor
377 #define Itmps_ix tmps_ix
378 #define Itmps_max tmps_max
379 #define Itmps_stack tmps_stack
380 #define Itop_env top_env
381 #define Itoptarget toptarget
382 #define Iunsafe unsafe