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