Commit | Line | Data |
8990e307 |
1 | /* This file is derived from global.sym and interp.sym */ |
79072805 |
2 | |
3 | /* (Doing namespace management portably in C is really gross.) */ |
4 | |
463ee0b2 |
5 | #ifdef EMBED |
79072805 |
6 | |
7 | /* globals we need to hide from the world */ |
8990e307 |
8 | #define No perl_No |
9 | #define Sv perl_Sv |
10 | #define Xpv perl_Xpv |
11 | #define Yes perl_Yes |
12 | #define additem perl_additem |
13 | #define an perl_an |
14 | #define buf perl_buf |
15 | #define bufend perl_bufend |
16 | #define bufptr perl_bufptr |
17 | #define check perl_check |
18 | #define coeff perl_coeff |
19 | #define compiling perl_compiling |
20 | #define comppad perl_comppad |
21 | #define comppad_name perl_comppad_name |
22 | #define comppad_name_fill perl_comppad_name_fill |
23 | #define cop_seqmax perl_cop_seqmax |
24 | #define cryptseen perl_cryptseen |
25 | #define cshlen perl_cshlen |
26 | #define cshname perl_cshname |
27 | #define curinterp perl_curinterp |
28 | #define curpad perl_curpad |
29 | #define dc perl_dc |
30 | #define di perl_di |
31 | #define ds perl_ds |
32 | #define egid perl_egid |
33 | #define error_count perl_error_count |
34 | #define euid perl_euid |
35 | #define evalseq perl_evalseq |
36 | #define evstr perl_evstr |
37 | #define expect perl_expect |
38 | #define expectterm perl_expectterm |
39 | #define fold perl_fold |
40 | #define freq perl_freq |
41 | #define gid perl_gid |
42 | #define hexdigit perl_hexdigit |
43 | #define in_format perl_in_format |
44 | #define in_my perl_in_my |
45 | #define know_next perl_know_next |
46 | #define last_lop perl_last_lop |
47 | #define last_lop_op perl_last_lop_op |
48 | #define last_uni perl_last_uni |
49 | #define linestr perl_linestr |
50 | #define markstack perl_markstack |
51 | #define markstack_max perl_markstack_max |
52 | #define markstack_ptr perl_markstack_ptr |
53 | #define max_intro_pending perl_max_intro_pending |
54 | #define min_intro_pending perl_min_intro_pending |
55 | #define multi_close perl_multi_close |
56 | #define multi_end perl_multi_end |
57 | #define multi_open perl_multi_open |
58 | #define multi_start perl_multi_start |
59 | #define na perl_na |
60 | #define needblockscope perl_needblockscope |
61 | #define nexttype perl_nexttype |
62 | #define nextval perl_nextval |
63 | #define no_aelem perl_no_aelem |
64 | #define no_dir_func perl_no_dir_func |
65 | #define no_func perl_no_func |
66 | #define no_helem perl_no_helem |
67 | #define no_mem perl_no_mem |
68 | #define no_modify perl_no_modify |
69 | #define no_security perl_no_security |
70 | #define no_sock_func perl_no_sock_func |
71 | #define no_usym perl_no_usym |
72 | #define nointrp perl_nointrp |
73 | #define nomem perl_nomem |
74 | #define nomemok perl_nomemok |
75 | #define oldbufptr perl_oldbufptr |
76 | #define oldoldbufptr perl_oldoldbufptr |
77 | #define op perl_op |
78 | #define op_name perl_op_name |
79 | #define op_seqmax perl_op_seqmax |
80 | #define opargs perl_opargs |
81 | #define origalen perl_origalen |
82 | #define origenviron perl_origenviron |
83 | #define padix perl_padix |
84 | #define patleave perl_patleave |
85 | #define ppaddr perl_ppaddr |
86 | #define rcsid perl_rcsid |
87 | #define reall_srchlen perl_reall_srchlen |
88 | #define regarglen perl_regarglen |
89 | #define regbol perl_regbol |
90 | #define regcode perl_regcode |
91 | #define regdummy perl_regdummy |
92 | #define regendp perl_regendp |
93 | #define regeol perl_regeol |
94 | #define regfold perl_regfold |
95 | #define reginput perl_reginput |
96 | #define reglastparen perl_reglastparen |
97 | #define regmyendp perl_regmyendp |
98 | #define regmyp_size perl_regmyp_size |
99 | #define regmystartp perl_regmystartp |
100 | #define regnarrate perl_regnarrate |
101 | #define regnpar perl_regnpar |
102 | #define regparse perl_regparse |
103 | #define regprecomp perl_regprecomp |
104 | #define regprev perl_regprev |
105 | #define regsawback perl_regsawback |
106 | #define regsawbracket perl_regsawbracket |
107 | #define regsize perl_regsize |
108 | #define regstartp perl_regstartp |
109 | #define regtill perl_regtill |
110 | #define regxend perl_regxend |
111 | #define retstack perl_retstack |
112 | #define retstack_ix perl_retstack_ix |
113 | #define retstack_max perl_retstack_max |
114 | #define rsfp perl_rsfp |
115 | #define savestack perl_savestack |
116 | #define savestack_ix perl_savestack_ix |
117 | #define savestack_max perl_savestack_max |
118 | #define saw_return perl_saw_return |
119 | #define scopestack perl_scopestack |
120 | #define scopestack_ix perl_scopestack_ix |
121 | #define scopestack_max perl_scopestack_max |
122 | #define scrgv perl_scrgv |
123 | #define sig_name perl_sig_name |
124 | #define simple perl_simple |
125 | #define stack_base perl_stack_base |
126 | #define stack_max perl_stack_max |
127 | #define stack_sp perl_stack_sp |
128 | #define statbuf perl_statbuf |
129 | #define sub_generation perl_sub_generation |
130 | #define subline perl_subline |
131 | #define subname perl_subname |
132 | #define sv_no perl_sv_no |
133 | #define sv_undef perl_sv_undef |
134 | #define sv_yes perl_sv_yes |
135 | #define thisexpr perl_thisexpr |
136 | #define timesbuf perl_timesbuf |
137 | #define tokenbuf perl_tokenbuf |
138 | #define uid perl_uid |
139 | #define varies perl_varies |
140 | #define vert perl_vert |
141 | #define vtbl_arylen perl_vtbl_arylen |
142 | #define vtbl_bm perl_vtbl_bm |
143 | #define vtbl_dbline perl_vtbl_dbline |
144 | #define vtbl_env perl_vtbl_env |
145 | #define vtbl_envelem perl_vtbl_envelem |
146 | #define vtbl_glob perl_vtbl_glob |
147 | #define vtbl_isa perl_vtbl_isa |
148 | #define vtbl_isaelem perl_vtbl_isaelem |
149 | #define vtbl_mglob perl_vtbl_mglob |
150 | #define vtbl_pack perl_vtbl_pack |
151 | #define vtbl_packelem perl_vtbl_packelem |
152 | #define vtbl_sig perl_vtbl_sig |
153 | #define vtbl_sigelem perl_vtbl_sigelem |
154 | #define vtbl_substr perl_vtbl_substr |
155 | #define vtbl_sv perl_vtbl_sv |
156 | #define vtbl_taint perl_vtbl_taint |
157 | #define vtbl_uvar perl_vtbl_uvar |
158 | #define vtbl_vec perl_vtbl_vec |
159 | #define warn_nl perl_warn_nl |
160 | #define warn_nosemi perl_warn_nosemi |
161 | #define warn_reserved perl_warn_reserved |
162 | #define watchaddr perl_watchaddr |
163 | #define watchok perl_watchok |
164 | #define yychar perl_yychar |
165 | #define yycheck perl_yycheck |
166 | #define yydebug perl_yydebug |
167 | #define yydefred perl_yydefred |
168 | #define yydgoto perl_yydgoto |
169 | #define yyerrflag perl_yyerrflag |
170 | #define yygindex perl_yygindex |
171 | #define yylen perl_yylen |
172 | #define yylhs perl_yylhs |
173 | #define yylval perl_yylval |
174 | #define yyname perl_yyname |
175 | #define yynerrs perl_yynerrs |
176 | #define yyrindex perl_yyrindex |
177 | #define yyrule perl_yyrule |
178 | #define yysindex perl_yysindex |
179 | #define yytable perl_yytable |
180 | #define yyval perl_yyval |
181 | #define append_elem perl_append_elem |
182 | #define append_list perl_append_list |
183 | #define apply perl_apply |
184 | #define av_clear perl_av_clear |
185 | #define av_fake perl_av_fake |
186 | #define av_fetch perl_av_fetch |
187 | #define av_fill perl_av_fill |
188 | #define av_free perl_av_free |
189 | #define av_len perl_av_len |
190 | #define av_make perl_av_make |
191 | #define av_pop perl_av_pop |
192 | #define av_popnulls perl_av_popnulls |
193 | #define av_push perl_av_push |
194 | #define av_shift perl_av_shift |
195 | #define av_store perl_av_store |
196 | #define av_undef perl_av_undef |
197 | #define av_unshift perl_av_unshift |
198 | #define bind_match perl_bind_match |
199 | #define block_head perl_block_head |
200 | #define calllist perl_calllist |
201 | #define cando perl_cando |
202 | #define check_uni perl_check_uni |
203 | #define checkcomma perl_checkcomma |
204 | #define ck_aelem perl_ck_aelem |
205 | #define ck_chop perl_ck_chop |
206 | #define ck_concat perl_ck_concat |
207 | #define ck_eof perl_ck_eof |
208 | #define ck_eval perl_ck_eval |
209 | #define ck_exec perl_ck_exec |
210 | #define ck_formline perl_ck_formline |
211 | #define ck_ftst perl_ck_ftst |
212 | #define ck_fun perl_ck_fun |
213 | #define ck_glob perl_ck_glob |
214 | #define ck_grep perl_ck_grep |
215 | #define ck_gvconst perl_ck_gvconst |
216 | #define ck_index perl_ck_index |
217 | #define ck_lengthconst perl_ck_lengthconst |
218 | #define ck_lfun perl_ck_lfun |
219 | #define ck_listiob perl_ck_listiob |
220 | #define ck_match perl_ck_match |
221 | #define ck_null perl_ck_null |
222 | #define ck_repeat perl_ck_repeat |
223 | #define ck_retarget perl_ck_retarget |
224 | #define ck_rvconst perl_ck_rvconst |
225 | #define ck_select perl_ck_select |
226 | #define ck_shift perl_ck_shift |
227 | #define ck_sort perl_ck_sort |
228 | #define ck_split perl_ck_split |
229 | #define ck_subr perl_ck_subr |
230 | #define ck_trunc perl_ck_trunc |
231 | #define convert perl_convert |
232 | #define cpy7bit perl_cpy7bit |
233 | #define cpytill perl_cpytill |
234 | #define croak perl_croak |
235 | #define cv_clear perl_cv_clear |
236 | #define cxinc perl_cxinc |
237 | #define deb perl_deb |
238 | #define deb_growlevel perl_deb_growlevel |
239 | #define debop perl_debop |
240 | #define debstack perl_debstack |
241 | #define debstackptrs perl_debstackptrs |
242 | #define die perl_die |
243 | #define die_where perl_die_where |
244 | #define do_aexec perl_do_aexec |
245 | #define do_chop perl_do_chop |
246 | #define do_close perl_do_close |
247 | #define do_ctl perl_do_ctl |
248 | #define do_eof perl_do_eof |
249 | #define do_exec perl_do_exec |
250 | #define do_execfree perl_do_execfree |
251 | #define do_ipcctl perl_do_ipcctl |
252 | #define do_ipcget perl_do_ipcget |
253 | #define do_join perl_do_join |
254 | #define do_kv perl_do_kv |
255 | #define do_msgrcv perl_do_msgrcv |
256 | #define do_msgsnd perl_do_msgsnd |
257 | #define do_open perl_do_open |
258 | #define do_pipe perl_do_pipe |
259 | #define do_print perl_do_print |
260 | #define do_readline perl_do_readline |
261 | #define do_seek perl_do_seek |
262 | #define do_semop perl_do_semop |
263 | #define do_shmio perl_do_shmio |
264 | #define do_sprintf perl_do_sprintf |
265 | #define do_tell perl_do_tell |
266 | #define do_trans perl_do_trans |
267 | #define do_vecset perl_do_vecset |
268 | #define do_vop perl_do_vop |
269 | #define doeval perl_doeval |
270 | #define dofindlabel perl_dofindlabel |
271 | #define dopoptoeval perl_dopoptoeval |
272 | #define dump_all perl_dump_all |
273 | #define dump_eval perl_dump_eval |
274 | #define dump_gv perl_dump_gv |
275 | #define dump_op perl_dump_op |
276 | #define dump_packsubs perl_dump_packsubs |
277 | #define dump_pm perl_dump_pm |
278 | #define dump_sub perl_dump_sub |
279 | #define fbm_compile perl_fbm_compile |
280 | #define fbm_instr perl_fbm_instr |
281 | #define fetch_gv perl_fetch_gv |
282 | #define fetch_io perl_fetch_io |
283 | #define fetch_stash perl_fetch_stash |
284 | #define fold_constants perl_fold_constants |
285 | #define force_ident perl_force_ident |
286 | #define force_next perl_force_next |
287 | #define force_word perl_force_word |
288 | #define free_tmps perl_free_tmps |
289 | #define gen_constant_list perl_gen_constant_list |
290 | #define getgimme perl_getgimme |
291 | #define gp_free perl_gp_free |
292 | #define gp_ref perl_gp_ref |
293 | #define gv_AVadd perl_gv_AVadd |
294 | #define gv_HVadd perl_gv_HVadd |
295 | #define gv_check perl_gv_check |
296 | #define gv_efullname perl_gv_efullname |
297 | #define gv_fetchfile perl_gv_fetchfile |
298 | #define gv_fetchmeth perl_gv_fetchmeth |
299 | #define gv_fetchmethod perl_gv_fetchmethod |
300 | #define gv_fetchpv perl_gv_fetchpv |
301 | #define gv_fullname perl_gv_fullname |
302 | #define gv_init perl_gv_init |
303 | #define he_delayfree perl_he_delayfree |
304 | #define he_free perl_he_free |
305 | #define hoistmust perl_hoistmust |
306 | #define hv_clear perl_hv_clear |
307 | #define hv_delete perl_hv_delete |
308 | #define hv_fetch perl_hv_fetch |
309 | #define hv_free perl_hv_free |
310 | #define hv_iterinit perl_hv_iterinit |
311 | #define hv_iterkey perl_hv_iterkey |
312 | #define hv_iternext perl_hv_iternext |
313 | #define hv_iterval perl_hv_iterval |
314 | #define hv_magic perl_hv_magic |
315 | #define hv_store perl_hv_store |
316 | #define hv_undef perl_hv_undef |
317 | #define ibcmp perl_ibcmp |
318 | #define ingroup perl_ingroup |
319 | #define instr perl_instr |
320 | #define intuit_more perl_intuit_more |
321 | #define invert perl_invert |
322 | #define jmaybe perl_jmaybe |
323 | #define keyword perl_keyword |
324 | #define leave_scope perl_leave_scope |
325 | #define lex_end perl_lex_end |
326 | #define lex_start perl_lex_start |
327 | #define linklist perl_linklist |
328 | #define list perl_list |
329 | #define listkids perl_listkids |
330 | #define localize perl_localize |
331 | #define looks_like_number perl_looks_like_number |
332 | #define magic_clearpack perl_magic_clearpack |
333 | #define magic_get perl_magic_get |
334 | #define magic_getarylen perl_magic_getarylen |
335 | #define magic_getglob perl_magic_getglob |
336 | #define magic_getpack perl_magic_getpack |
337 | #define magic_gettaint perl_magic_gettaint |
338 | #define magic_getuvar perl_magic_getuvar |
339 | #define magic_len perl_magic_len |
340 | #define magic_nextpack perl_magic_nextpack |
341 | #define magic_set perl_magic_set |
342 | #define magic_setarylen perl_magic_setarylen |
343 | #define magic_setbm perl_magic_setbm |
344 | #define magic_setdbline perl_magic_setdbline |
345 | #define magic_setenv perl_magic_setenv |
346 | #define magic_setglob perl_magic_setglob |
347 | #define magic_setisa perl_magic_setisa |
348 | #define magic_setmglob perl_magic_setmglob |
349 | #define magic_setpack perl_magic_setpack |
350 | #define magic_setsig perl_magic_setsig |
351 | #define magic_setsubstr perl_magic_setsubstr |
352 | #define magic_settaint perl_magic_settaint |
353 | #define magic_setuvar perl_magic_setuvar |
354 | #define magic_setvec perl_magic_setvec |
355 | #define magicname perl_magicname |
356 | #define mess perl_mess |
357 | #define mg_clear perl_mg_clear |
358 | #define mg_copy perl_mg_copy |
359 | #define mg_find perl_mg_find |
360 | #define mg_free perl_mg_free |
361 | #define mg_get perl_mg_get |
362 | #define mg_len perl_mg_len |
363 | #define mg_magical perl_mg_magical |
364 | #define mg_set perl_mg_set |
365 | #define mod perl_mod |
366 | #define modkids perl_modkids |
367 | #define moreswitches perl_moreswitches |
368 | #define my perl_my |
369 | #define my_exit perl_my_exit |
370 | #define my_lstat perl_my_lstat |
371 | #define my_pclose perl_my_pclose |
372 | #define my_popen perl_my_popen |
373 | #define my_setenv perl_my_setenv |
374 | #define my_stat perl_my_stat |
375 | #define my_unexec perl_my_unexec |
376 | #define newANONHASH perl_newANONHASH |
377 | #define newANONLIST perl_newANONLIST |
378 | #define newASSIGNOP perl_newASSIGNOP |
379 | #define newAV perl_newAV |
380 | #define newAVREF perl_newAVREF |
381 | #define newBINOP perl_newBINOP |
382 | #define newCONDOP perl_newCONDOP |
383 | #define newCVOP perl_newCVOP |
384 | #define newCVREF perl_newCVREF |
385 | #define newFORM perl_newFORM |
386 | #define newFOROP perl_newFOROP |
387 | #define newGVOP perl_newGVOP |
388 | #define newGVREF perl_newGVREF |
389 | #define newGVgen perl_newGVgen |
390 | #define newHV perl_newHV |
391 | #define newHVREF perl_newHVREF |
392 | #define newIO perl_newIO |
393 | #define newLISTOP perl_newLISTOP |
394 | #define newLOGOP perl_newLOGOP |
395 | #define newLOOPEX perl_newLOOPEX |
396 | #define newLOOPOP perl_newLOOPOP |
397 | #define newMETHOD perl_newMETHOD |
398 | #define newNULLLIST perl_newNULLLIST |
399 | #define newOP perl_newOP |
400 | #define newPMOP perl_newPMOP |
401 | #define newPVOP perl_newPVOP |
402 | #define newRANGE perl_newRANGE |
403 | #define newSLICEOP perl_newSLICEOP |
404 | #define newSTATEOP perl_newSTATEOP |
405 | #define newSUB perl_newSUB |
406 | #define newSV perl_newSV |
407 | #define newSVOP perl_newSVOP |
408 | #define newSVREF perl_newSVREF |
409 | #define newSViv perl_newSViv |
410 | #define newSVnv perl_newSVnv |
411 | #define newSVpv perl_newSVpv |
412 | #define newSVsv perl_newSVsv |
413 | #define newUNOP perl_newUNOP |
414 | #define newWHILEOP perl_newWHILEOP |
415 | #define newXSUB perl_newXSUB |
416 | #define nextargv perl_nextargv |
417 | #define ninstr perl_ninstr |
418 | #define no_fh_allowed perl_no_fh_allowed |
419 | #define no_op perl_no_op |
420 | #define nsavestr perl_nsavestr |
421 | #define oopsAV perl_oopsAV |
422 | #define oopsCV perl_oopsCV |
423 | #define oopsHV perl_oopsHV |
424 | #define op_free perl_op_free |
425 | #define package perl_package |
426 | #define pad_alloc perl_pad_alloc |
427 | #define pad_allocmy perl_pad_allocmy |
428 | #define pad_findmy perl_pad_findmy |
429 | #define pad_free perl_pad_free |
430 | #define pad_leavemy perl_pad_leavemy |
431 | #define pad_reset perl_pad_reset |
432 | #define pad_sv perl_pad_sv |
433 | #define pad_swipe perl_pad_swipe |
434 | #define peep perl_peep |
435 | #define pidgone perl_pidgone |
436 | #define pmruntime perl_pmruntime |
437 | #define pmtrans perl_pmtrans |
438 | #define pop_return perl_pop_return |
439 | #define pop_scope perl_pop_scope |
440 | #define pp_aassign perl_pp_aassign |
441 | #define pp_accept perl_pp_accept |
442 | #define pp_add perl_pp_add |
443 | #define pp_aelem perl_pp_aelem |
444 | #define pp_aelemfast perl_pp_aelemfast |
445 | #define pp_alarm perl_pp_alarm |
446 | #define pp_and perl_pp_and |
447 | #define pp_andassign perl_pp_andassign |
448 | #define pp_anonhash perl_pp_anonhash |
449 | #define pp_anonlist perl_pp_anonlist |
450 | #define pp_aslice perl_pp_aslice |
451 | #define pp_atan2 perl_pp_atan2 |
452 | #define pp_av2arylen perl_pp_av2arylen |
453 | #define pp_backtick perl_pp_backtick |
454 | #define pp_bind perl_pp_bind |
455 | #define pp_binmode perl_pp_binmode |
456 | #define pp_bit_and perl_pp_bit_and |
457 | #define pp_bit_or perl_pp_bit_or |
458 | #define pp_bless perl_pp_bless |
459 | #define pp_caller perl_pp_caller |
460 | #define pp_chdir perl_pp_chdir |
461 | #define pp_chmod perl_pp_chmod |
462 | #define pp_chop perl_pp_chop |
463 | #define pp_chown perl_pp_chown |
464 | #define pp_chroot perl_pp_chroot |
465 | #define pp_close perl_pp_close |
466 | #define pp_closedir perl_pp_closedir |
467 | #define pp_complement perl_pp_complement |
468 | #define pp_concat perl_pp_concat |
469 | #define pp_cond_expr perl_pp_cond_expr |
470 | #define pp_connect perl_pp_connect |
471 | #define pp_const perl_pp_const |
472 | #define pp_cos perl_pp_cos |
473 | #define pp_crypt perl_pp_crypt |
474 | #define pp_cswitch perl_pp_cswitch |
475 | #define pp_dbmclose perl_pp_dbmclose |
476 | #define pp_dbmopen perl_pp_dbmopen |
477 | #define pp_dbstate perl_pp_dbstate |
478 | #define pp_defined perl_pp_defined |
479 | #define pp_delete perl_pp_delete |
480 | #define pp_die perl_pp_die |
481 | #define pp_divide perl_pp_divide |
482 | #define pp_dofile perl_pp_dofile |
483 | #define pp_done perl_pp_done |
484 | #define pp_dump perl_pp_dump |
485 | #define pp_each perl_pp_each |
486 | #define pp_egrent perl_pp_egrent |
487 | #define pp_ehostent perl_pp_ehostent |
488 | #define pp_enetent perl_pp_enetent |
489 | #define pp_enter perl_pp_enter |
490 | #define pp_entereval perl_pp_entereval |
491 | #define pp_enteriter perl_pp_enteriter |
492 | #define pp_enterloop perl_pp_enterloop |
493 | #define pp_entersubr perl_pp_entersubr |
494 | #define pp_entertry perl_pp_entertry |
495 | #define pp_enterwrite perl_pp_enterwrite |
496 | #define pp_eof perl_pp_eof |
497 | #define pp_eprotoent perl_pp_eprotoent |
498 | #define pp_epwent perl_pp_epwent |
499 | #define pp_eq perl_pp_eq |
500 | #define pp_eservent perl_pp_eservent |
501 | #define pp_evalonce perl_pp_evalonce |
502 | #define pp_exec perl_pp_exec |
503 | #define pp_exit perl_pp_exit |
504 | #define pp_exp perl_pp_exp |
505 | #define pp_fcntl perl_pp_fcntl |
506 | #define pp_fileno perl_pp_fileno |
507 | #define pp_flip perl_pp_flip |
508 | #define pp_flock perl_pp_flock |
509 | #define pp_flop perl_pp_flop |
510 | #define pp_fork perl_pp_fork |
511 | #define pp_formline perl_pp_formline |
512 | #define pp_ftatime perl_pp_ftatime |
513 | #define pp_ftbinary perl_pp_ftbinary |
514 | #define pp_ftblk perl_pp_ftblk |
515 | #define pp_ftchr perl_pp_ftchr |
516 | #define pp_ftctime perl_pp_ftctime |
517 | #define pp_ftdir perl_pp_ftdir |
518 | #define pp_fteexec perl_pp_fteexec |
519 | #define pp_fteowned perl_pp_fteowned |
520 | #define pp_fteread perl_pp_fteread |
521 | #define pp_ftewrite perl_pp_ftewrite |
522 | #define pp_ftfile perl_pp_ftfile |
523 | #define pp_ftis perl_pp_ftis |
524 | #define pp_ftlink perl_pp_ftlink |
525 | #define pp_ftmtime perl_pp_ftmtime |
526 | #define pp_ftpipe perl_pp_ftpipe |
527 | #define pp_ftrexec perl_pp_ftrexec |
528 | #define pp_ftrowned perl_pp_ftrowned |
529 | #define pp_ftrread perl_pp_ftrread |
530 | #define pp_ftrwrite perl_pp_ftrwrite |
531 | #define pp_ftsgid perl_pp_ftsgid |
532 | #define pp_ftsize perl_pp_ftsize |
533 | #define pp_ftsock perl_pp_ftsock |
534 | #define pp_ftsuid perl_pp_ftsuid |
535 | #define pp_ftsvtx perl_pp_ftsvtx |
536 | #define pp_fttext perl_pp_fttext |
537 | #define pp_fttty perl_pp_fttty |
538 | #define pp_ftzero perl_pp_ftzero |
539 | #define pp_ge perl_pp_ge |
540 | #define pp_getc perl_pp_getc |
541 | #define pp_getlogin perl_pp_getlogin |
542 | #define pp_getpeername perl_pp_getpeername |
543 | #define pp_getpgrp perl_pp_getpgrp |
544 | #define pp_getppid perl_pp_getppid |
545 | #define pp_getpriority perl_pp_getpriority |
546 | #define pp_getsockname perl_pp_getsockname |
547 | #define pp_ggrent perl_pp_ggrent |
548 | #define pp_ggrgid perl_pp_ggrgid |
549 | #define pp_ggrnam perl_pp_ggrnam |
550 | #define pp_ghbyaddr perl_pp_ghbyaddr |
551 | #define pp_ghbyname perl_pp_ghbyname |
552 | #define pp_ghostent perl_pp_ghostent |
553 | #define pp_glob perl_pp_glob |
554 | #define pp_gmtime perl_pp_gmtime |
555 | #define pp_gnbyaddr perl_pp_gnbyaddr |
556 | #define pp_gnbyname perl_pp_gnbyname |
557 | #define pp_gnetent perl_pp_gnetent |
558 | #define pp_goto perl_pp_goto |
559 | #define pp_gpbyname perl_pp_gpbyname |
560 | #define pp_gpbynumber perl_pp_gpbynumber |
561 | #define pp_gprotoent perl_pp_gprotoent |
562 | #define pp_gpwent perl_pp_gpwent |
563 | #define pp_gpwnam perl_pp_gpwnam |
564 | #define pp_gpwuid perl_pp_gpwuid |
565 | #define pp_grepstart perl_pp_grepstart |
566 | #define pp_grepwhile perl_pp_grepwhile |
567 | #define pp_gsbyname perl_pp_gsbyname |
568 | #define pp_gsbyport perl_pp_gsbyport |
569 | #define pp_gservent perl_pp_gservent |
570 | #define pp_gsockopt perl_pp_gsockopt |
571 | #define pp_gt perl_pp_gt |
572 | #define pp_gv perl_pp_gv |
573 | #define pp_gvsv perl_pp_gvsv |
574 | #define pp_helem perl_pp_helem |
575 | #define pp_hex perl_pp_hex |
576 | #define pp_hslice perl_pp_hslice |
577 | #define pp_index perl_pp_index |
578 | #define pp_indread perl_pp_indread |
579 | #define pp_int perl_pp_int |
580 | #define pp_intadd perl_pp_intadd |
581 | #define pp_interp perl_pp_interp |
582 | #define pp_ioctl perl_pp_ioctl |
583 | #define pp_iter perl_pp_iter |
584 | #define pp_join perl_pp_join |
585 | #define pp_keys perl_pp_keys |
586 | #define pp_kill perl_pp_kill |
587 | #define pp_last perl_pp_last |
588 | #define pp_lc perl_pp_lc |
589 | #define pp_lcfirst perl_pp_lcfirst |
590 | #define pp_le perl_pp_le |
591 | #define pp_leave perl_pp_leave |
592 | #define pp_leaveeval perl_pp_leaveeval |
593 | #define pp_leaveloop perl_pp_leaveloop |
594 | #define pp_leavesubr perl_pp_leavesubr |
595 | #define pp_leavetry perl_pp_leavetry |
596 | #define pp_leavewrite perl_pp_leavewrite |
597 | #define pp_left_shift perl_pp_left_shift |
598 | #define pp_length perl_pp_length |
599 | #define pp_lineseq perl_pp_lineseq |
600 | #define pp_link perl_pp_link |
601 | #define pp_list perl_pp_list |
602 | #define pp_listen perl_pp_listen |
603 | #define pp_localtime perl_pp_localtime |
604 | #define pp_log perl_pp_log |
605 | #define pp_lslice perl_pp_lslice |
606 | #define pp_lstat perl_pp_lstat |
607 | #define pp_lt perl_pp_lt |
608 | #define pp_match perl_pp_match |
609 | #define pp_method perl_pp_method |
610 | #define pp_mkdir perl_pp_mkdir |
611 | #define pp_modulo perl_pp_modulo |
612 | #define pp_msgctl perl_pp_msgctl |
613 | #define pp_msgget perl_pp_msgget |
614 | #define pp_msgrcv perl_pp_msgrcv |
615 | #define pp_msgsnd perl_pp_msgsnd |
616 | #define pp_multiply perl_pp_multiply |
617 | #define pp_ncmp perl_pp_ncmp |
618 | #define pp_ne perl_pp_ne |
619 | #define pp_negate perl_pp_negate |
620 | #define pp_next perl_pp_next |
621 | #define pp_nextstate perl_pp_nextstate |
622 | #define pp_not perl_pp_not |
623 | #define pp_nswitch perl_pp_nswitch |
624 | #define pp_null perl_pp_null |
625 | #define pp_oct perl_pp_oct |
626 | #define pp_open perl_pp_open |
627 | #define pp_open_dir perl_pp_open_dir |
628 | #define pp_or perl_pp_or |
629 | #define pp_orassign perl_pp_orassign |
630 | #define pp_ord perl_pp_ord |
631 | #define pp_pack perl_pp_pack |
632 | #define pp_padav perl_pp_padav |
633 | #define pp_padhv perl_pp_padhv |
634 | #define pp_padsv perl_pp_padsv |
635 | #define pp_pipe_op perl_pp_pipe_op |
636 | #define pp_pop perl_pp_pop |
637 | #define pp_postdec perl_pp_postdec |
638 | #define pp_postinc perl_pp_postinc |
639 | #define pp_pow perl_pp_pow |
640 | #define pp_predec perl_pp_predec |
641 | #define pp_preinc perl_pp_preinc |
642 | #define pp_print perl_pp_print |
643 | #define pp_prtf perl_pp_prtf |
644 | #define pp_push perl_pp_push |
645 | #define pp_pushmark perl_pp_pushmark |
646 | #define pp_pushre perl_pp_pushre |
647 | #define pp_rand perl_pp_rand |
648 | #define pp_range perl_pp_range |
649 | #define pp_rcatline perl_pp_rcatline |
650 | #define pp_read perl_pp_read |
651 | #define pp_readdir perl_pp_readdir |
652 | #define pp_readline perl_pp_readline |
653 | #define pp_readlink perl_pp_readlink |
654 | #define pp_recv perl_pp_recv |
655 | #define pp_redo perl_pp_redo |
656 | #define pp_ref perl_pp_ref |
657 | #define pp_refgen perl_pp_refgen |
658 | #define pp_regcmaybe perl_pp_regcmaybe |
659 | #define pp_regcomp perl_pp_regcomp |
660 | #define pp_rename perl_pp_rename |
661 | #define pp_repeat perl_pp_repeat |
662 | #define pp_require perl_pp_require |
663 | #define pp_reset perl_pp_reset |
664 | #define pp_return perl_pp_return |
665 | #define pp_reverse perl_pp_reverse |
666 | #define pp_rewinddir perl_pp_rewinddir |
667 | #define pp_right_shift perl_pp_right_shift |
668 | #define pp_rindex perl_pp_rindex |
669 | #define pp_rmdir perl_pp_rmdir |
670 | #define pp_rv2av perl_pp_rv2av |
671 | #define pp_rv2cv perl_pp_rv2cv |
672 | #define pp_rv2gv perl_pp_rv2gv |
673 | #define pp_rv2hv perl_pp_rv2hv |
674 | #define pp_rv2sv perl_pp_rv2sv |
675 | #define pp_sassign perl_pp_sassign |
676 | #define pp_scalar perl_pp_scalar |
677 | #define pp_schop perl_pp_schop |
678 | #define pp_scmp perl_pp_scmp |
679 | #define pp_scope perl_pp_scope |
680 | #define pp_seek perl_pp_seek |
681 | #define pp_seekdir perl_pp_seekdir |
682 | #define pp_select perl_pp_select |
683 | #define pp_semctl perl_pp_semctl |
684 | #define pp_semget perl_pp_semget |
685 | #define pp_semop perl_pp_semop |
686 | #define pp_send perl_pp_send |
687 | #define pp_seq perl_pp_seq |
688 | #define pp_setpgrp perl_pp_setpgrp |
689 | #define pp_setpriority perl_pp_setpriority |
690 | #define pp_sge perl_pp_sge |
691 | #define pp_sgrent perl_pp_sgrent |
692 | #define pp_sgt perl_pp_sgt |
693 | #define pp_shift perl_pp_shift |
694 | #define pp_shmctl perl_pp_shmctl |
695 | #define pp_shmget perl_pp_shmget |
696 | #define pp_shmread perl_pp_shmread |
697 | #define pp_shmwrite perl_pp_shmwrite |
698 | #define pp_shostent perl_pp_shostent |
699 | #define pp_shutdown perl_pp_shutdown |
700 | #define pp_sin perl_pp_sin |
701 | #define pp_sle perl_pp_sle |
702 | #define pp_sleep perl_pp_sleep |
703 | #define pp_slt perl_pp_slt |
704 | #define pp_sne perl_pp_sne |
705 | #define pp_snetent perl_pp_snetent |
706 | #define pp_socket perl_pp_socket |
707 | #define pp_sockpair perl_pp_sockpair |
708 | #define pp_sort perl_pp_sort |
709 | #define pp_splice perl_pp_splice |
710 | #define pp_split perl_pp_split |
711 | #define pp_sprintf perl_pp_sprintf |
712 | #define pp_sprotoent perl_pp_sprotoent |
713 | #define pp_spwent perl_pp_spwent |
714 | #define pp_sqrt perl_pp_sqrt |
715 | #define pp_srand perl_pp_srand |
716 | #define pp_sselect perl_pp_sselect |
717 | #define pp_sservent perl_pp_sservent |
718 | #define pp_ssockopt perl_pp_ssockopt |
719 | #define pp_stat perl_pp_stat |
720 | #define pp_stub perl_pp_stub |
721 | #define pp_study perl_pp_study |
722 | #define pp_subst perl_pp_subst |
723 | #define pp_substcont perl_pp_substcont |
724 | #define pp_substr perl_pp_substr |
725 | #define pp_subtract perl_pp_subtract |
726 | #define pp_sv2len perl_pp_sv2len |
727 | #define pp_symlink perl_pp_symlink |
728 | #define pp_syscall perl_pp_syscall |
729 | #define pp_sysread perl_pp_sysread |
730 | #define pp_system perl_pp_system |
731 | #define pp_syswrite perl_pp_syswrite |
732 | #define pp_tell perl_pp_tell |
733 | #define pp_telldir perl_pp_telldir |
734 | #define pp_tie perl_pp_tie |
735 | #define pp_time perl_pp_time |
736 | #define pp_tms perl_pp_tms |
737 | #define pp_trans perl_pp_trans |
738 | #define pp_truncate perl_pp_truncate |
739 | #define pp_uc perl_pp_uc |
740 | #define pp_ucfirst perl_pp_ucfirst |
741 | #define pp_umask perl_pp_umask |
742 | #define pp_undef perl_pp_undef |
743 | #define pp_unlink perl_pp_unlink |
744 | #define pp_unpack perl_pp_unpack |
745 | #define pp_unshift perl_pp_unshift |
746 | #define pp_unstack perl_pp_unstack |
747 | #define pp_untie perl_pp_untie |
748 | #define pp_utime perl_pp_utime |
749 | #define pp_values perl_pp_values |
750 | #define pp_vec perl_pp_vec |
751 | #define pp_wait perl_pp_wait |
752 | #define pp_waitpid perl_pp_waitpid |
753 | #define pp_wantarray perl_pp_wantarray |
754 | #define pp_warn perl_pp_warn |
755 | #define pp_xor perl_pp_xor |
756 | #define prepend_elem perl_prepend_elem |
757 | #define push_return perl_push_return |
758 | #define push_scope perl_push_scope |
759 | #define q perl_q |
760 | #define ref perl_ref |
761 | #define refkids perl_refkids |
762 | #define regcomp perl_regcomp |
763 | #define regdump perl_regdump |
764 | #define regexec perl_regexec |
765 | #define regfree perl_regfree |
766 | #define regnext perl_regnext |
767 | #define regprop perl_regprop |
768 | #define repeatcpy perl_repeatcpy |
769 | #define rninstr perl_rninstr |
770 | #define run perl_run |
771 | #define save_I32 perl_save_I32 |
772 | #define save_aptr perl_save_aptr |
773 | #define save_ary perl_save_ary |
774 | #define save_clearsv perl_save_clearsv |
775 | #define save_delete perl_save_delete |
776 | #define save_freeop perl_save_freeop |
777 | #define save_freepv perl_save_freepv |
778 | #define save_freesv perl_save_freesv |
779 | #define save_hash perl_save_hash |
780 | #define save_hptr perl_save_hptr |
781 | #define save_int perl_save_int |
782 | #define save_item perl_save_item |
783 | #define save_list perl_save_list |
784 | #define save_nogv perl_save_nogv |
785 | #define save_scalar perl_save_scalar |
786 | #define save_sptr perl_save_sptr |
787 | #define save_svref perl_save_svref |
788 | #define savestack_grow perl_savestack_grow |
789 | #define savestr perl_savestr |
790 | #define sawparens perl_sawparens |
791 | #define scalar perl_scalar |
792 | #define scalarkids perl_scalarkids |
793 | #define scalarseq perl_scalarseq |
794 | #define scalarvoid perl_scalarvoid |
795 | #define scan_const perl_scan_const |
796 | #define scan_formline perl_scan_formline |
797 | #define scan_heredoc perl_scan_heredoc |
798 | #define scan_hex perl_scan_hex |
799 | #define scan_ident perl_scan_ident |
800 | #define scan_inputsymbol perl_scan_inputsymbol |
801 | #define scan_num perl_scan_num |
802 | #define scan_oct perl_scan_oct |
803 | #define scan_pat perl_scan_pat |
804 | #define scan_prefix perl_scan_prefix |
805 | #define scan_str perl_scan_str |
806 | #define scan_subst perl_scan_subst |
807 | #define scan_trans perl_scan_trans |
808 | #define scan_word perl_scan_word |
809 | #define scope perl_scope |
810 | #define screaminstr perl_screaminstr |
811 | #define setenv_getix perl_setenv_getix |
812 | #define skipspace perl_skipspace |
813 | #define start_subparse perl_start_subparse |
814 | #define sublex_done perl_sublex_done |
815 | #define sublex_start perl_sublex_start |
816 | #define sv_2bool perl_sv_2bool |
817 | #define sv_2cv perl_sv_2cv |
818 | #define sv_2iv perl_sv_2iv |
819 | #define sv_2mortal perl_sv_2mortal |
820 | #define sv_2nv perl_sv_2nv |
821 | #define sv_2pv perl_sv_2pv |
822 | #define sv_backoff perl_sv_backoff |
823 | #define sv_catpv perl_sv_catpv |
824 | #define sv_catpvn perl_sv_catpvn |
825 | #define sv_catsv perl_sv_catsv |
826 | #define sv_chop perl_sv_chop |
827 | #define sv_clean_all perl_sv_clean_all |
828 | #define sv_clean_magic perl_sv_clean_magic |
829 | #define sv_clean_refs perl_sv_clean_refs |
830 | #define sv_clear perl_sv_clear |
831 | #define sv_cmp perl_sv_cmp |
832 | #define sv_dec perl_sv_dec |
833 | #define sv_dump perl_sv_dump |
834 | #define sv_eq perl_sv_eq |
835 | #define sv_free perl_sv_free |
836 | #define sv_gets perl_sv_gets |
837 | #define sv_grow perl_sv_grow |
838 | #define sv_inc perl_sv_inc |
839 | #define sv_insert perl_sv_insert |
840 | #define sv_isa perl_sv_isa |
841 | #define sv_len perl_sv_len |
842 | #define sv_magic perl_sv_magic |
843 | #define sv_mortalcopy perl_sv_mortalcopy |
844 | #define sv_newmortal perl_sv_newmortal |
845 | #define sv_peek perl_sv_peek |
846 | #define sv_ref perl_sv_ref |
847 | #define sv_replace perl_sv_replace |
848 | #define sv_report_used perl_sv_report_used |
849 | #define sv_reset perl_sv_reset |
850 | #define sv_setiv perl_sv_setiv |
851 | #define sv_setnv perl_sv_setnv |
852 | #define sv_setptrobj perl_sv_setptrobj |
853 | #define sv_setpv perl_sv_setpv |
854 | #define sv_setpvn perl_sv_setpvn |
855 | #define sv_setsv perl_sv_setsv |
856 | #define sv_unmagic perl_sv_unmagic |
857 | #define sv_upgrade perl_sv_upgrade |
858 | #define sv_usepvn perl_sv_usepvn |
859 | #define taint_env perl_taint_env |
860 | #define taint_not perl_taint_not |
861 | #define taint_proper perl_taint_proper |
862 | #define too_few_arguments perl_too_few_arguments |
863 | #define too_many_arguments perl_too_many_arguments |
864 | #define wait4pid perl_wait4pid |
865 | #define warn perl_warn |
866 | #define watch perl_watch |
867 | #define whichsig perl_whichsig |
868 | #define xiv_root perl_xiv_root |
869 | #define xnv_root perl_xnv_root |
870 | #define xpv_root perl_xpv_root |
871 | #define xrv_root perl_xrv_root |
872 | #define yyerror perl_yyerror |
873 | #define yyerror perl_yyerror |
874 | #define yylex perl_yylex |
875 | #define yyparse perl_yyparse |
876 | #define yywarn perl_yywarn |
79072805 |
877 | |
8990e307 |
878 | #endif /* EMBED */ |
463ee0b2 |
879 | |
8990e307 |
880 | /* Put interpreter specific symbols into a struct? */ |
463ee0b2 |
881 | |
882 | #ifdef MULTIPLICITY |
79072805 |
883 | |
884 | #define Argv (curinterp->IArgv) |
885 | #define Cmd (curinterp->ICmd) |
886 | #define DBgv (curinterp->IDBgv) |
887 | #define DBline (curinterp->IDBline) |
888 | #define DBsignal (curinterp->IDBsignal) |
889 | #define DBsingle (curinterp->IDBsingle) |
890 | #define DBsub (curinterp->IDBsub) |
891 | #define DBtrace (curinterp->IDBtrace) |
892 | #define allgvs (curinterp->Iallgvs) |
893 | #define ampergv (curinterp->Iampergv) |
894 | #define argvgv (curinterp->Iargvgv) |
895 | #define argvoutgv (curinterp->Iargvoutgv) |
896 | #define arybase (curinterp->Iarybase) |
897 | #define basetime (curinterp->Ibasetime) |
93a17b20 |
898 | #define beginav (curinterp->Ibeginav) |
79072805 |
899 | #define bodytarget (curinterp->Ibodytarget) |
900 | #define cddir (curinterp->Icddir) |
901 | #define chopset (curinterp->Ichopset) |
902 | #define copline (curinterp->Icopline) |
903 | #define curblock (curinterp->Icurblock) |
904 | #define curcop (curinterp->Icurcop) |
905 | #define curcsv (curinterp->Icurcsv) |
906 | #define curoutgv (curinterp->Icuroutgv) |
907 | #define curpm (curinterp->Icurpm) |
908 | #define curstash (curinterp->Icurstash) |
909 | #define curstname (curinterp->Icurstname) |
910 | #define cxstack (curinterp->Icxstack) |
911 | #define cxstack_ix (curinterp->Icxstack_ix) |
912 | #define cxstack_max (curinterp->Icxstack_max) |
913 | #define dbargs (curinterp->Idbargs) |
79072805 |
914 | #define debdelim (curinterp->Idebdelim) |
915 | #define debname (curinterp->Idebname) |
916 | #define debstash (curinterp->Idebstash) |
917 | #define debug (curinterp->Idebug) |
918 | #define defgv (curinterp->Idefgv) |
919 | #define defoutgv (curinterp->Idefoutgv) |
920 | #define defstash (curinterp->Idefstash) |
921 | #define delaymagic (curinterp->Idelaymagic) |
922 | #define dirty (curinterp->Idirty) |
923 | #define dlevel (curinterp->Idlevel) |
924 | #define dlmax (curinterp->Idlmax) |
925 | #define do_undump (curinterp->Ido_undump) |
926 | #define doextract (curinterp->Idoextract) |
927 | #define doswitches (curinterp->Idoswitches) |
928 | #define dowarn (curinterp->Idowarn) |
929 | #define dumplvl (curinterp->Idumplvl) |
930 | #define e_fp (curinterp->Ie_fp) |
931 | #define e_tmpname (curinterp->Ie_tmpname) |
93a17b20 |
932 | #define endav (curinterp->Iendav) |
79072805 |
933 | #define envgv (curinterp->Ienvgv) |
934 | #define eval_root (curinterp->Ieval_root) |
935 | #define eval_start (curinterp->Ieval_start) |
936 | #define fdpid (curinterp->Ifdpid) |
937 | #define filemode (curinterp->Ifilemode) |
938 | #define firstgv (curinterp->Ifirstgv) |
939 | #define forkprocess (curinterp->Iforkprocess) |
940 | #define formfeed (curinterp->Iformfeed) |
941 | #define formtarget (curinterp->Iformtarget) |
79072805 |
942 | #define gensym (curinterp->Igensym) |
79072805 |
943 | #define in_eval (curinterp->Iin_eval) |
944 | #define incgv (curinterp->Iincgv) |
945 | #define inplace (curinterp->Iinplace) |
79072805 |
946 | #define last_in_gv (curinterp->Ilast_in_gv) |
79072805 |
947 | #define lastfd (curinterp->Ilastfd) |
948 | #define lastretstr (curinterp->Ilastretstr) |
949 | #define lastscream (curinterp->Ilastscream) |
950 | #define lastsize (curinterp->Ilastsize) |
951 | #define lastspbase (curinterp->Ilastspbase) |
952 | #define laststatval (curinterp->Ilaststatval) |
953 | #define laststype (curinterp->Ilaststype) |
954 | #define leftgv (curinterp->Ileftgv) |
955 | #define lineary (curinterp->Ilineary) |
956 | #define localizing (curinterp->Ilocalizing) |
957 | #define main_root (curinterp->Imain_root) |
958 | #define main_start (curinterp->Imain_start) |
959 | #define mainstack (curinterp->Imainstack) |
960 | #define maxscream (curinterp->Imaxscream) |
961 | #define maxsysfd (curinterp->Imaxsysfd) |
962 | #define minus_a (curinterp->Iminus_a) |
963 | #define minus_c (curinterp->Iminus_c) |
964 | #define minus_l (curinterp->Iminus_l) |
965 | #define minus_n (curinterp->Iminus_n) |
966 | #define minus_p (curinterp->Iminus_p) |
967 | #define multiline (curinterp->Imultiline) |
968 | #define mystack_base (curinterp->Imystack_base) |
969 | #define mystack_mark (curinterp->Imystack_mark) |
970 | #define mystack_max (curinterp->Imystack_max) |
971 | #define mystack_sp (curinterp->Imystack_sp) |
972 | #define mystrk (curinterp->Imystrk) |
973 | #define nrs (curinterp->Inrs) |
974 | #define nrschar (curinterp->Inrschar) |
975 | #define nrslen (curinterp->Inrslen) |
976 | #define ofmt (curinterp->Iofmt) |
977 | #define ofs (curinterp->Iofs) |
978 | #define ofslen (curinterp->Iofslen) |
979 | #define oldlastpm (curinterp->Ioldlastpm) |
980 | #define oldname (curinterp->Ioldname) |
981 | #define origargc (curinterp->Iorigargc) |
982 | #define origargv (curinterp->Iorigargv) |
983 | #define origfilename (curinterp->Iorigfilename) |
984 | #define ors (curinterp->Iors) |
985 | #define orslen (curinterp->Iorslen) |
93a17b20 |
986 | #define pad (curinterp->Ipad) |
987 | #define padname (curinterp->Ipadname) |
79072805 |
988 | #define patchlevel (curinterp->Ipatchlevel) |
989 | #define perldb (curinterp->Iperldb) |
990 | #define pidstatus (curinterp->Ipidstatus) |
991 | #define preambled (curinterp->Ipreambled) |
992 | #define preprocess (curinterp->Ipreprocess) |
993 | #define restartop (curinterp->Irestartop) |
994 | #define rightgv (curinterp->Irightgv) |
995 | #define rs (curinterp->Irs) |
996 | #define rschar (curinterp->Irschar) |
997 | #define rslen (curinterp->Irslen) |
998 | #define rspara (curinterp->Irspara) |
999 | #define sawampersand (curinterp->Isawampersand) |
1000 | #define sawi (curinterp->Isawi) |
1001 | #define sawstudy (curinterp->Isawstudy) |
1002 | #define sawvec (curinterp->Isawvec) |
1003 | #define screamfirst (curinterp->Iscreamfirst) |
1004 | #define screamnext (curinterp->Iscreamnext) |
1005 | #define secondgv (curinterp->Isecondgv) |
1006 | #define siggv (curinterp->Isiggv) |
1007 | #define signalstack (curinterp->Isignalstack) |
1008 | #define sortcop (curinterp->Isortcop) |
1009 | #define sortstack (curinterp->Isortstack) |
1010 | #define sortstash (curinterp->Isortstash) |
1011 | #define stack (curinterp->Istack) |
1012 | #define statcache (curinterp->Istatcache) |
1013 | #define statgv (curinterp->Istatgv) |
1014 | #define statname (curinterp->Istatname) |
1015 | #define statusvalue (curinterp->Istatusvalue) |
1016 | #define stdingv (curinterp->Istdingv) |
1017 | #define strchop (curinterp->Istrchop) |
8990e307 |
1018 | #define sv_count (curinterp->Isv_count) |
1019 | #define sv_rvcount (curinterp->Isv_rvcount) |
1020 | #define sv_root (curinterp->Isv_root) |
1021 | #define sv_arenaroot (curinterp->Isv_arenaroot) |
79072805 |
1022 | #define tainted (curinterp->Itainted) |
463ee0b2 |
1023 | #define tainting (curinterp->Itainting) |
79072805 |
1024 | #define tmps_floor (curinterp->Itmps_floor) |
1025 | #define tmps_ix (curinterp->Itmps_ix) |
1026 | #define tmps_max (curinterp->Itmps_max) |
1027 | #define tmps_stack (curinterp->Itmps_stack) |
1028 | #define top_env (curinterp->Itop_env) |
1029 | #define toptarget (curinterp->Itoptarget) |
1030 | #define unsafe (curinterp->Iunsafe) |
1031 | |
8990e307 |
1032 | #else /* not multiple, so translate interpreter symbols the other way... */ |
79072805 |
1033 | |
1034 | #define IArgv Argv |
1035 | #define ICmd Cmd |
1036 | #define IDBgv DBgv |
1037 | #define IDBline DBline |
1038 | #define IDBsignal DBsignal |
1039 | #define IDBsingle DBsingle |
1040 | #define IDBsub DBsub |
1041 | #define IDBtrace DBtrace |
1042 | #define Iallgvs allgvs |
1043 | #define Iampergv ampergv |
1044 | #define Iargvgv argvgv |
1045 | #define Iargvoutgv argvoutgv |
1046 | #define Iarybase arybase |
1047 | #define Ibasetime basetime |
93a17b20 |
1048 | #define Ibeginav beginav |
79072805 |
1049 | #define Ibodytarget bodytarget |
1050 | #define Icddir cddir |
1051 | #define Ichopset chopset |
1052 | #define Icopline copline |
1053 | #define Icurblock curblock |
1054 | #define Icurcop curcop |
1055 | #define Icurcsv curcsv |
1056 | #define Icuroutgv curoutgv |
1057 | #define Icurpm curpm |
1058 | #define Icurstash curstash |
1059 | #define Icurstname curstname |
1060 | #define Icxstack cxstack |
1061 | #define Icxstack_ix cxstack_ix |
1062 | #define Icxstack_max cxstack_max |
1063 | #define Idbargs dbargs |
79072805 |
1064 | #define Idebdelim debdelim |
1065 | #define Idebname debname |
1066 | #define Idebstash debstash |
1067 | #define Idebug debug |
1068 | #define Idefgv defgv |
1069 | #define Idefoutgv defoutgv |
1070 | #define Idefstash defstash |
1071 | #define Idelaymagic delaymagic |
1072 | #define Idirty dirty |
1073 | #define Idlevel dlevel |
1074 | #define Idlmax dlmax |
1075 | #define Ido_undump do_undump |
1076 | #define Idoextract doextract |
1077 | #define Idoswitches doswitches |
1078 | #define Idowarn dowarn |
1079 | #define Idumplvl dumplvl |
1080 | #define Ie_fp e_fp |
1081 | #define Ie_tmpname e_tmpname |
93a17b20 |
1082 | #define Iendav endav |
79072805 |
1083 | #define Ienvgv envgv |
1084 | #define Ieval_root eval_root |
1085 | #define Ieval_start eval_start |
1086 | #define Ifdpid fdpid |
1087 | #define Ifilemode filemode |
1088 | #define Ifirstgv firstgv |
1089 | #define Iforkprocess forkprocess |
1090 | #define Iformfeed formfeed |
1091 | #define Iformtarget formtarget |
79072805 |
1092 | #define Igensym gensym |
79072805 |
1093 | #define Iin_eval in_eval |
1094 | #define Iincgv incgv |
1095 | #define Iinplace inplace |
79072805 |
1096 | #define Ilast_in_gv last_in_gv |
79072805 |
1097 | #define Ilastfd lastfd |
1098 | #define Ilastretstr lastretstr |
1099 | #define Ilastscream lastscream |
1100 | #define Ilastsize lastsize |
1101 | #define Ilastspbase lastspbase |
1102 | #define Ilaststatval laststatval |
1103 | #define Ilaststype laststype |
1104 | #define Ileftgv leftgv |
1105 | #define Ilineary lineary |
1106 | #define Ilocalizing localizing |
1107 | #define Imain_root main_root |
1108 | #define Imain_start main_start |
1109 | #define Imainstack mainstack |
1110 | #define Imaxscream maxscream |
1111 | #define Imaxsysfd maxsysfd |
1112 | #define Iminus_a minus_a |
1113 | #define Iminus_c minus_c |
1114 | #define Iminus_l minus_l |
1115 | #define Iminus_n minus_n |
1116 | #define Iminus_p minus_p |
1117 | #define Imultiline multiline |
1118 | #define Imystack_base mystack_base |
1119 | #define Imystack_mark mystack_mark |
1120 | #define Imystack_max mystack_max |
1121 | #define Imystack_sp mystack_sp |
1122 | #define Imystrk mystrk |
1123 | #define Inrs nrs |
1124 | #define Inrschar nrschar |
1125 | #define Inrslen nrslen |
1126 | #define Iofmt ofmt |
1127 | #define Iofs ofs |
1128 | #define Iofslen ofslen |
1129 | #define Ioldlastpm oldlastpm |
1130 | #define Ioldname oldname |
1131 | #define Iorigargc origargc |
1132 | #define Iorigargv origargv |
1133 | #define Iorigfilename origfilename |
1134 | #define Iors ors |
1135 | #define Iorslen orslen |
93a17b20 |
1136 | #define Ipad pad |
1137 | #define Ipadname padname |
79072805 |
1138 | #define Ipatchlevel patchlevel |
1139 | #define Iperldb perldb |
1140 | #define Ipidstatus pidstatus |
1141 | #define Ipreambled preambled |
1142 | #define Ipreprocess preprocess |
1143 | #define Irestartop restartop |
1144 | #define Irightgv rightgv |
1145 | #define Irs rs |
1146 | #define Irschar rschar |
1147 | #define Irslen rslen |
1148 | #define Irspara rspara |
1149 | #define Isawampersand sawampersand |
1150 | #define Isawi sawi |
1151 | #define Isawstudy sawstudy |
1152 | #define Isawvec sawvec |
1153 | #define Iscreamfirst screamfirst |
1154 | #define Iscreamnext screamnext |
1155 | #define Isecondgv secondgv |
1156 | #define Isiggv siggv |
1157 | #define Isignalstack signalstack |
1158 | #define Isortcop sortcop |
1159 | #define Isortstack sortstack |
1160 | #define Isortstash sortstash |
1161 | #define Istack stack |
1162 | #define Istatcache statcache |
1163 | #define Istatgv statgv |
1164 | #define Istatname statname |
1165 | #define Istatusvalue statusvalue |
1166 | #define Istdingv stdingv |
1167 | #define Istrchop strchop |
8990e307 |
1168 | #define Isv_count sv_count |
1169 | #define Isv_rvcount sv_rvcount |
1170 | #define Isv_root sv_root |
1171 | #define Isv_arenaroot sv_arenaroot |
79072805 |
1172 | #define Itainted tainted |
463ee0b2 |
1173 | #define Itainting tainting |
79072805 |
1174 | #define Itmps_floor tmps_floor |
1175 | #define Itmps_ix tmps_ix |
1176 | #define Itmps_max tmps_max |
1177 | #define Itmps_stack tmps_stack |
1178 | #define Itop_env top_env |
1179 | #define Itoptarget toptarget |
1180 | #define Iunsafe unsafe |
1181 | |
8990e307 |
1182 | #endif /* MULTIPLICITY */ |