Commit | Line | Data |
79072805 |
1 | /* This file is derived from global.var and interp.var */ |
2 | |
3 | /* (Doing namespace management portably in C is really gross.) */ |
4 | |
5 | #ifdef EMBEDDED |
6 | |
7 | /* globals we need to hide from the world */ |
8 | #define No PERLNo |
9 | #define Sv PERLSv |
10 | #define Yes PERLYes |
11 | #define an PERLan |
12 | #define buf PERLbuf |
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 |
22 | #define dc PERLdc |
23 | #define di PERLdi |
24 | #define ds PERLds |
25 | #define egid PERLegid |
26 | #define error_count PERLerror_count |
27 | #define euid PERLeuid |
28 | #define evstr PERLevstr |
29 | #define expectterm PERLexpectterm |
30 | #define fold PERLfold |
31 | #define freq PERLfreq |
32 | #define gid PERLgid |
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 |
79072805 |
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 |
74 | #define rsfp PERLrsfp |
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 |
85 | #define uid PERLuid |
86 | #define vert PERLvert |
87 | |
88 | /* interpreter specific variables */ |
89 | |
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) |
93a17b20 |
104 | #define beginav (curinterp->Ibeginav) |
79072805 |
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) |
93a17b20 |
139 | #define endav (curinterp->Iendav) |
79072805 |
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) |
79072805 |
151 | #define in_eval (curinterp->Iin_eval) |
152 | #define incgv (curinterp->Iincgv) |
153 | #define inplace (curinterp->Iinplace) |
79072805 |
154 | #define last_in_gv (curinterp->Ilast_in_gv) |
79072805 |
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) |
93a17b20 |
194 | #define pad (curinterp->Ipad) |
195 | #define padname (curinterp->Ipadname) |
79072805 |
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) |
235 | |
236 | #else /* not embedded, so translate interpreter variables the other way... */ |
237 | |
238 | #define IArgv Argv |
239 | #define ICmd Cmd |
240 | #define IDBgv DBgv |
241 | #define IDBline DBline |
242 | #define IDBsignal DBsignal |
243 | #define IDBsingle DBsingle |
244 | #define IDBsub DBsub |
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 |
93a17b20 |
252 | #define Ibeginav beginav |
79072805 |
253 | #define Ibodytarget bodytarget |
254 | #define Icddir cddir |
255 | #define Ichopset chopset |
256 | #define Icopline copline |
257 | #define Icurblock curblock |
258 | #define Icurcop curcop |
259 | #define Icurcsv curcsv |
260 | #define Icuroutgv curoutgv |
261 | #define Icurpm curpm |
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 |
272 | #define Idebug debug |
273 | #define Idefgv defgv |
274 | #define Idefoutgv defoutgv |
275 | #define Idefstash defstash |
276 | #define Idelaymagic delaymagic |
277 | #define Idirty dirty |
278 | #define Idlevel dlevel |
279 | #define Idlmax dlmax |
280 | #define Ido_undump do_undump |
281 | #define Idoextract doextract |
282 | #define Idoswitches doswitches |
283 | #define Idowarn dowarn |
284 | #define Idumplvl dumplvl |
285 | #define Ie_fp e_fp |
286 | #define Ie_tmpname e_tmpname |
93a17b20 |
287 | #define Iendav endav |
79072805 |
288 | #define Ienvgv envgv |
289 | #define Ieval_root eval_root |
290 | #define Ieval_start eval_start |
291 | #define Ifdpid fdpid |
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 |
79072805 |
299 | #define Iin_eval in_eval |
300 | #define Iincgv incgv |
301 | #define Iinplace inplace |
79072805 |
302 | #define Ilast_in_gv last_in_gv |
79072805 |
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 |
329 | #define Inrs nrs |
330 | #define Inrschar nrschar |
331 | #define Inrslen nrslen |
332 | #define Iofmt ofmt |
333 | #define Iofs ofs |
334 | #define Iofslen ofslen |
335 | #define Ioldlastpm oldlastpm |
336 | #define Ioldname oldname |
337 | #define Iorigargc origargc |
338 | #define Iorigargv origargv |
339 | #define Iorigfilename origfilename |
340 | #define Iors ors |
341 | #define Iorslen orslen |
93a17b20 |
342 | #define Ipad pad |
343 | #define Ipadname padname |
79072805 |
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 |
351 | #define Irs rs |
352 | #define Irschar rschar |
353 | #define Irslen rslen |
354 | #define Irspara rspara |
355 | #define Isawampersand sawampersand |
356 | #define Isawi sawi |
357 | #define Isawstudy sawstudy |
358 | #define Isawvec sawvec |
359 | #define Iscreamfirst screamfirst |
360 | #define Iscreamnext screamnext |
361 | #define Isecondgv secondgv |
362 | #define Isiggv siggv |
363 | #define Isignalstack signalstack |
364 | #define Isortcop sortcop |
365 | #define Isortstack sortstack |
366 | #define Isortstash sortstash |
367 | #define Istack stack |
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 |
383 | |
384 | #endif |