Import of Perl 5.003 into the tree. Makefile.bsd-wrapper and

config.sh.OpenBSD are the only local changes.

1 files changed, 1389 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/embed.h b/gnu/usr.bin/perl/embed.h
new file mode 100644
index 00000000000..bfd73bd7f6d
--- /dev/null
+++ b/gnu/usr.bin/perl/embed.h
@@ -0,0 +1,1389 @@
+/* This file is derived from global.sym and interp.sym */
+
+/* (Doing namespace management portably in C is really gross.) */
+
+/*  EMBED has no run-time penalty, but helps keep the Perl namespace
+    from colliding with that used by other libraries pulled in
+    by extensions or by embedding perl.  Allow a cc -DNO_EMBED
+    override, however, to keep binary compatability with previous
+    versions of perl.
+*/
+#ifndef NO_EMBED
+#  define EMBED 1 
+#endif
+
+#ifdef EMBED
+
+/* globals we need to hide from the world */
+#define AMG_names	Perl_AMG_names
+#define No		Perl_No
+#define Sv		Perl_Sv
+#define Xpv		Perl_Xpv
+#define Yes		Perl_Yes
+#define abs_amg		Perl_abs_amg
+#define add_amg		Perl_add_amg
+#define add_ass_amg	Perl_add_ass_amg
+#define additem		Perl_additem
+#define amagic_generation	Perl_amagic_generation
+#define an		Perl_an
+#define atan2_amg	Perl_atan2_amg
+#define band_amg	Perl_band_amg
+#define bool__amg	Perl_bool__amg
+#define bor_amg		Perl_bor_amg
+#define buf		Perl_buf
+#define bufend		Perl_bufend
+#define bufptr		Perl_bufptr
+#define bxor_amg	Perl_bxor_amg
+#define check		Perl_check
+#define compiling	Perl_compiling
+#define compl_amg	Perl_compl_amg
+#define compcv		Perl_compcv
+#define comppad		Perl_comppad
+#define comppad_name	Perl_comppad_name
+#define comppad_name_fill	Perl_comppad_name_fill
+#define concat_amg	Perl_concat_amg
+#define concat_ass_amg	Perl_concat_ass_amg
+#define cop_seqmax	Perl_cop_seqmax
+#define cos_amg		Perl_cos_amg
+#define cryptseen	Perl_cryptseen
+#define cshlen		Perl_cshlen
+#define cshname		Perl_cshname
+#define curcop		Perl_curcop
+#define curinterp	Perl_curinterp
+#define curpad		Perl_curpad
+#define dc		Perl_dc
+#define dec_amg		Perl_dec_amg
+#define di		Perl_di
+#define div_amg		Perl_div_amg
+#define div_ass_amg	Perl_div_ass_amg
+#define ds		Perl_ds
+#define egid		Perl_egid
+#define envgv		Perl_envgv
+#define eq_amg		Perl_eq_amg
+#define error_count	Perl_error_count
+#define euid		Perl_euid
+#define evalseq		Perl_evalseq
+#define exp_amg		Perl_exp_amg
+#define expect		Perl_expect
+#define expectterm	Perl_expectterm
+#define fallback_amg	Perl_fallback_amg
+#define filter_add	Perl_filter_add
+#define filter_del	Perl_filter_del
+#define filter_read	Perl_filter_read
+#define fold		Perl_fold
+#define freq		Perl_freq
+#define ge_amg		Perl_ge_amg
+#define gid		Perl_gid
+#define gt_amg		Perl_gt_amg
+#define hexdigit	Perl_hexdigit
+#define hints		Perl_hints
+#define in_my		Perl_in_my
+#define inc_amg		Perl_inc_amg
+#define io_close	Perl_io_close
+#define know_next	Perl_know_next
+#define last_lop	Perl_last_lop
+#define last_lop_op	Perl_last_lop_op
+#define last_uni	Perl_last_uni
+#define le_amg		Perl_le_amg
+#define lex_state	Perl_lex_state
+#define lex_defer	Perl_lex_defer
+#define lex_expect	Perl_lex_expect
+#define lex_brackets	Perl_lex_brackets
+#define lex_formbrack	Perl_lex_formbrack
+#define lex_fakebrack	Perl_lex_fakebrack
+#define lex_casemods	Perl_lex_casemods
+#define lex_dojoin	Perl_lex_dojoin
+#define lex_starts	Perl_lex_starts
+#define lex_stuff	Perl_lex_stuff
+#define lex_repl	Perl_lex_repl
+#define lex_op		Perl_lex_op
+#define lex_inpat	Perl_lex_inpat
+#define lex_inwhat	Perl_lex_inwhat
+#define lex_brackstack	Perl_lex_brackstack
+#define lex_casestack	Perl_lex_casestack
+#define linestr		Perl_linestr
+#define log_amg		Perl_log_amg
+#define lshift_amg	Perl_lshift_amg
+#define lshift_ass_amg	Perl_lshift_ass_amg
+#define lt_amg		Perl_lt_amg
+#define markstack	Perl_markstack
+#define markstack_max	Perl_markstack_max
+#define markstack_ptr	Perl_markstack_ptr
+#define maxo		Perl_maxo
+#define max_intro_pending	Perl_max_intro_pending
+#define min_intro_pending	Perl_min_intro_pending
+#define mod_amg		Perl_mod_amg
+#define mod_ass_amg	Perl_mod_ass_amg
+#define mult_amg	Perl_mult_amg
+#define mult_ass_amg	Perl_mult_ass_amg
+#define multi_close	Perl_multi_close
+#define multi_end	Perl_multi_end
+#define multi_open	Perl_multi_open
+#define multi_start	Perl_multi_start
+#define na		Perl_na
+#define ncmp_amg	Perl_ncmp_amg
+#define nextval		Perl_nextval
+#define nexttype	Perl_nexttype
+#define nexttoke	Perl_nexttoke
+#define ne_amg		Perl_ne_amg
+#define neg_amg		Perl_neg_amg
+#define nexttype	Perl_nexttype
+#define nextval		Perl_nextval
+#define no_aelem	Perl_no_aelem
+#define no_dir_func	Perl_no_dir_func
+#define no_func		Perl_no_func
+#define no_helem	Perl_no_helem
+#define no_mem		Perl_no_mem
+#define no_modify	Perl_no_modify
+#define no_security	Perl_no_security
+#define no_sock_func	Perl_no_sock_func
+#define no_usym		Perl_no_usym
+#define nointrp		Perl_nointrp
+#define nomem		Perl_nomem
+#define nomemok		Perl_nomemok
+#define nomethod_amg	Perl_nomethod_amg
+#define not_amg		Perl_not_amg
+#define numer_amg	Perl_numer_amg
+#define oldbufptr	Perl_oldbufptr
+#define oldoldbufptr	Perl_oldoldbufptr
+#define op		Perl_op
+#define op_desc		Perl_op_desc
+#define op_name		Perl_op_name
+#define op_seqmax	Perl_op_seqmax
+#define opargs		Perl_opargs
+#define origalen	Perl_origalen
+#define origenviron	Perl_origenviron
+#define osname		Perl_osname
+#define padix		Perl_padix
+#define patleave	Perl_patleave
+#define pow_amg		Perl_pow_amg
+#define pow_ass_amg	Perl_pow_ass_amg
+#define ppaddr		Perl_ppaddr
+#define profiledata	Perl_profiledata
+#define provide_ref	Perl_provide_ref
+#define qrt_amg		Perl_qrt_amg
+#define rcsid		Perl_rcsid
+#define reall_srchlen	Perl_reall_srchlen
+#define regarglen	Perl_regarglen
+#define regbol		Perl_regbol
+#define regcode		Perl_regcode
+#define regdummy	Perl_regdummy
+#define regendp		Perl_regendp
+#define regeol		Perl_regeol
+#define regfold		Perl_regfold
+#define reginput	Perl_reginput
+#define regkind	Perl_regkind
+#define reglastparen	Perl_reglastparen
+#define regmyendp	Perl_regmyendp
+#define regmyp_size	Perl_regmyp_size
+#define regmystartp	Perl_regmystartp
+#define regnarrate	Perl_regnarrate
+#define regnaughty	Perl_regnaughty
+#define regnpar		Perl_regnpar
+#define regparse	Perl_regparse
+#define regprecomp	Perl_regprecomp
+#define regprev		Perl_regprev
+#define regsawback	Perl_regsawback
+#define regsize		Perl_regsize
+#define regstartp	Perl_regstartp
+#define regtill		Perl_regtill
+#define regxend		Perl_regxend
+#define repeat_amg	Perl_repeat_amg
+#define repeat_ass_amg	Perl_repeat_ass_amg
+#define retstack	Perl_retstack
+#define retstack_ix	Perl_retstack_ix
+#define retstack_max	Perl_retstack_max
+#define rsfp		Perl_rsfp
+#define rsfp_filters	Perl_rsfp_filters
+#define rshift_amg	Perl_rshift_amg
+#define rshift_ass_amg	Perl_rshift_ass_amg
+#define save_pptr	Perl_save_pptr
+#define savestack	Perl_savestack
+#define savestack_ix	Perl_savestack_ix
+#define savestack_max	Perl_savestack_max
+#define saw_return	Perl_saw_return
+#define scmp_amg	Perl_scmp_amg
+#define scopestack	Perl_scopestack
+#define scopestack_ix	Perl_scopestack_ix
+#define scopestack_max	Perl_scopestack_max
+#define scrgv		Perl_scrgv
+#define seq_amg		Perl_seq_amg
+#define sge_amg		Perl_sge_amg
+#define sgt_amg		Perl_sgt_amg
+#define sig_name	Perl_sig_name
+#define sig_num		Perl_sig_num
+#define siggv		Perl_siggv
+#define sighandler	Perl_sighandler
+#define simple		Perl_simple
+#define sin_amg		Perl_sin_amg
+#define sle_amg		Perl_sle_amg
+#define slt_amg		Perl_slt_amg
+#define sne_amg		Perl_sne_amg
+#define stack		Perl_stack
+#define stack_base	Perl_stack_base
+#define stack_max	Perl_stack_max
+#define stack_sp	Perl_stack_sp
+#define statbuf		Perl_statbuf
+#define string_amg	Perl_string_amg
+#define sub_generation	Perl_sub_generation
+#define subline		Perl_subline
+#define subname		Perl_subname
+#define subtr_amg	Perl_subtr_amg
+#define subtr_ass_amg	Perl_subtr_ass_amg
+#define sv_no		Perl_sv_no
+#define sv_undef	Perl_sv_undef
+#define sv_yes		Perl_sv_yes
+#define tainting	Perl_tainting
+#define thisexpr	Perl_thisexpr
+#define timesbuf	Perl_timesbuf
+#define tokenbuf	Perl_tokenbuf
+#define uid		Perl_uid
+#define varies		Perl_varies
+#define vert		Perl_vert
+#define vtbl_amagic	Perl_vtbl_amagic
+#define vtbl_amagicelem	Perl_vtbl_amagicelem
+#define vtbl_arylen	Perl_vtbl_arylen
+#define vtbl_bm		Perl_vtbl_bm
+#define vtbl_dbline	Perl_vtbl_dbline
+#define vtbl_env	Perl_vtbl_env
+#define vtbl_envelem	Perl_vtbl_envelem
+#define vtbl_glob	Perl_vtbl_glob
+#define vtbl_isa	Perl_vtbl_isa
+#define vtbl_isaelem	Perl_vtbl_isaelem
+#define vtbl_mglob	Perl_vtbl_mglob
+#define vtbl_pack	Perl_vtbl_pack
+#define vtbl_packelem	Perl_vtbl_packelem
+#define vtbl_pos	Perl_vtbl_pos
+#define vtbl_sig	Perl_vtbl_sig
+#define vtbl_sigelem	Perl_vtbl_sigelem
+#define vtbl_substr	Perl_vtbl_substr
+#define vtbl_sv		Perl_vtbl_sv
+#define vtbl_taint	Perl_vtbl_taint
+#define vtbl_uvar	Perl_vtbl_uvar
+#define vtbl_vec	Perl_vtbl_vec
+#define warn_nl		Perl_warn_nl
+#define warn_nosemi	Perl_warn_nosemi
+#define warn_reserved	Perl_warn_reserved
+#define watchaddr	Perl_watchaddr
+#define watchok		Perl_watchok
+#define yychar		Perl_yychar
+#define yycheck		Perl_yycheck
+#define yydebug		Perl_yydebug
+#define yydefred	Perl_yydefred
+#define yydgoto		Perl_yydgoto
+#define yyerrflag	Perl_yyerrflag
+#define yygindex	Perl_yygindex
+#define yylen		Perl_yylen
+#define yylhs		Perl_yylhs
+#define yylval		Perl_yylval
+#define yyname		Perl_yyname
+#define yynerrs		Perl_yynerrs
+#define yyrindex	Perl_yyrindex
+#define yyrule		Perl_yyrule
+#define yysindex	Perl_yysindex
+#define yytable		Perl_yytable
+#define yyval		Perl_yyval
+#define Gv_AMupdate	Perl_Gv_AMupdate
+#define amagic_call	Perl_amagic_call
+#define append_elem	Perl_append_elem
+#define append_list	Perl_append_list
+#define apply		Perl_apply
+#define assertref	Perl_assertref
+#define av_clear	Perl_av_clear
+#define av_extend	Perl_av_extend
+#define av_fake		Perl_av_fake
+#define av_fetch	Perl_av_fetch
+#define av_fill		Perl_av_fill
+#define av_len		Perl_av_len
+#define av_make		Perl_av_make
+#define av_pop		Perl_av_pop
+#define av_push		Perl_av_push
+#define av_shift	Perl_av_shift
+#define av_store	Perl_av_store
+#define av_undef	Perl_av_undef
+#define av_unshift	Perl_av_unshift
+#define bind_match	Perl_bind_match
+#define block_end	Perl_block_end
+#define block_start	Perl_block_start
+#define calllist	Perl_calllist
+#define cando		Perl_cando
+#define cast_ulong	Perl_cast_ulong
+#define check_uni	Perl_check_uni
+#define checkcomma	Perl_checkcomma
+#define chsize		Perl_chsize
+#define ck_aelem	Perl_ck_aelem
+#define ck_concat	Perl_ck_concat
+#define ck_delete	Perl_ck_delete
+#define ck_eof		Perl_ck_eof
+#define ck_eval		Perl_ck_eval
+#define ck_exec		Perl_ck_exec
+#define ck_formline	Perl_ck_formline
+#define ck_ftst		Perl_ck_ftst
+#define ck_fun		Perl_ck_fun
+#define ck_glob		Perl_ck_glob
+#define ck_grep		Perl_ck_grep
+#define ck_gvconst	Perl_ck_gvconst
+#define ck_index	Perl_ck_index
+#define ck_lengthconst	Perl_ck_lengthconst
+#define ck_lfun		Perl_ck_lfun
+#define ck_listiob	Perl_ck_listiob
+#define ck_match	Perl_ck_match
+#define ck_null		Perl_ck_null
+#define ck_repeat	Perl_ck_repeat
+#define ck_require	Perl_ck_require
+#define ck_retarget	Perl_ck_retarget
+#define ck_rfun		Perl_ck_rfun
+#define ck_rvconst	Perl_ck_rvconst
+#define ck_select	Perl_ck_select
+#define ck_shift	Perl_ck_shift
+#define ck_sort		Perl_ck_sort
+#define ck_spair	Perl_ck_spair
+#define ck_split	Perl_ck_split
+#define ck_subr		Perl_ck_subr
+#define ck_svconst	Perl_ck_svconst
+#define ck_trunc	Perl_ck_trunc
+#define convert		Perl_convert
+#define cpytill		Perl_cpytill
+#define croak		Perl_croak
+#define cv_clone	Perl_cv_clone
+#define cv_undef	Perl_cv_undef
+#define cx_dump		Perl_cx_dump
+#define cxinc		Perl_cxinc
+#define deb		Perl_deb
+#define deb_growlevel	Perl_deb_growlevel
+#define debop		Perl_debop
+#define debprofdump	Perl_debprofdump
+#define debstack	Perl_debstack
+#define debstackptrs	Perl_debstackptrs
+#define deprecate	Perl_deprecate
+#define die		Perl_die
+#define die_where	Perl_die_where
+#define do_aexec	Perl_do_aexec
+#define do_chomp	Perl_do_chomp
+#define do_chop		Perl_do_chop
+#define do_close	Perl_do_close
+#define do_eof		Perl_do_eof
+#define do_exec		Perl_do_exec
+#define do_execfree	Perl_do_execfree
+#define do_ipcctl	Perl_do_ipcctl
+#define do_ipcget	Perl_do_ipcget
+#define do_join		Perl_do_join
+#define do_kv		Perl_do_kv
+#define do_msgrcv	Perl_do_msgrcv
+#define do_msgsnd	Perl_do_msgsnd
+#define do_open		Perl_do_open
+#define do_pipe		Perl_do_pipe
+#define do_print	Perl_do_print
+#define do_readline	Perl_do_readline
+#define do_seek		Perl_do_seek
+#define do_semop	Perl_do_semop
+#define do_shmio	Perl_do_shmio
+#define do_sprintf	Perl_do_sprintf
+#define do_tell		Perl_do_tell
+#define do_trans	Perl_do_trans
+#define do_vecset	Perl_do_vecset
+#define do_vop		Perl_do_vop
+#define doeval		Perl_doeval
+#define dofindlabel	Perl_dofindlabel
+#define dopoptoeval	Perl_dopoptoeval
+#define dounwind	Perl_dounwind
+#define dowantarray	Perl_dowantarray
+#define dump_all	Perl_dump_all
+#define dump_eval	Perl_dump_eval
+#define dump_fds	Perl_dump_fds
+#define dump_form	Perl_dump_form
+#define dump_gv		Perl_dump_gv
+#define dump_mstats	Perl_dump_mstats
+#define dump_op		Perl_dump_op
+#define dump_packsubs	Perl_dump_packsubs
+#define dump_pm		Perl_dump_pm
+#define dump_sub	Perl_dump_sub
+#define fbm_compile	Perl_fbm_compile
+#define fbm_instr	Perl_fbm_instr
+#define fetch_gv	Perl_fetch_gv
+#define fetch_io	Perl_fetch_io
+#define filter_add	Perl_filter_add
+#define filter_del	Perl_filter_del
+#define filter_read	Perl_filter_read
+#define fold_constants	Perl_fold_constants
+#define force_ident	Perl_force_ident
+#define force_list	Perl_force_list
+#define force_next	Perl_force_next
+#define force_word	Perl_force_word
+#define free_tmps	Perl_free_tmps
+#define gen_constant_list	Perl_gen_constant_list
+#define gp_free		Perl_gp_free
+#define gp_ref		Perl_gp_ref
+#define gv_AVadd	Perl_gv_AVadd
+#define gv_HVadd	Perl_gv_HVadd
+#define gv_IOadd	Perl_gv_IOadd
+#define gv_check	Perl_gv_check
+#define gv_efullname	Perl_gv_efullname
+#define gv_fetchfile	Perl_gv_fetchfile
+#define gv_fetchmeth	Perl_gv_fetchmeth
+#define gv_fetchmethod	Perl_gv_fetchmethod
+#define gv_fetchpv	Perl_gv_fetchpv
+#define gv_fullname	Perl_gv_fullname
+#define gv_init		Perl_gv_init
+#define gv_stashpv	Perl_gv_stashpv
+#define gv_stashsv	Perl_gv_stashsv
+#define he_delayfree	Perl_he_delayfree
+#define he_free		Perl_he_free
+#define he_root		Perl_he_root
+#define hoistmust	Perl_hoistmust
+#define hv_clear	Perl_hv_clear
+#define hv_delete	Perl_hv_delete
+#define hv_exists	Perl_hv_exists
+#define hv_fetch	Perl_hv_fetch
+#define hv_iterinit	Perl_hv_iterinit
+#define hv_iterkey	Perl_hv_iterkey
+#define hv_iternext	Perl_hv_iternext
+#define hv_iternextsv	Perl_hv_iternextsv
+#define hv_iterval	Perl_hv_iterval
+#define hv_magic	Perl_hv_magic
+#define hv_stashpv	Perl_hv_stashpv
+#define hv_store	Perl_hv_store
+#define hv_undef	Perl_hv_undef
+#define ibcmp		Perl_ibcmp
+#define ingroup		Perl_ingroup
+#define instr		Perl_instr
+#define intuit_more	Perl_intuit_more
+#define invert		Perl_invert
+#define jmaybe		Perl_jmaybe
+#define keyword		Perl_keyword
+#define leave_scope	Perl_leave_scope
+#define lex_end		Perl_lex_end
+#define lex_start	Perl_lex_start
+#define linklist	Perl_linklist
+#define list		Perl_list
+#define listkids	Perl_listkids
+#define localize	Perl_localize
+#define looks_like_number	Perl_looks_like_number
+#define magic_clearenv	Perl_magic_clearenv
+#define magic_clearpack	Perl_magic_clearpack
+#define magic_existspack	Perl_magic_existspack
+#define magic_get	Perl_magic_get
+#define magic_getarylen	Perl_magic_getarylen
+#define magic_getglob	Perl_magic_getglob
+#define magic_getpack	Perl_magic_getpack
+#define magic_getpos	Perl_magic_getpos
+#define magic_gettaint	Perl_magic_gettaint
+#define magic_getuvar	Perl_magic_getuvar
+#define magic_len	Perl_magic_len
+#define magic_nextpack	Perl_magic_nextpack
+#define magic_set	Perl_magic_set
+#define magic_setamagic	Perl_magic_setamagic
+#define magic_setarylen	Perl_magic_setarylen
+#define magic_setbm	Perl_magic_setbm
+#define magic_setdbline	Perl_magic_setdbline
+#define magic_setenv	Perl_magic_setenv
+#define magic_setglob	Perl_magic_setglob
+#define magic_setisa	Perl_magic_setisa
+#define magic_setmglob	Perl_magic_setmglob
+#define magic_setpack	Perl_magic_setpack
+#define magic_setpos	Perl_magic_setpos
+#define magic_setsig	Perl_magic_setsig
+#define magic_setsubstr	Perl_magic_setsubstr
+#define magic_settaint	Perl_magic_settaint
+#define magic_setuvar	Perl_magic_setuvar
+#define magic_setvec	Perl_magic_setvec
+#define magic_wipepack	Perl_magic_wipepack
+#define magicname	Perl_magicname
+#define markstack_grow	Perl_markstack_grow
+#define mess		Perl_mess
+#define mg_clear	Perl_mg_clear
+#define mg_copy		Perl_mg_copy
+#define mg_find		Perl_mg_find
+#define mg_free		Perl_mg_free
+#define mg_get		Perl_mg_get
+#define mg_len		Perl_mg_len
+#define mg_magical	Perl_mg_magical
+#define mg_set		Perl_mg_set
+#define mod		Perl_mod
+#define modkids		Perl_modkids
+#define moreswitches	Perl_moreswitches
+#define mstats		Perl_mstats
+#define my		Perl_my
+#define my_bcopy	Perl_my_bcopy
+#define my_bzero	Perl_my_bzero
+#define my_exit		Perl_my_exit
+#define my_htonl	Perl_my_htonl
+#define my_lstat	Perl_my_lstat
+#define my_memcmp	Perl_my_memcmp
+#define my_ntohl	Perl_my_ntohl
+#define my_pclose	Perl_my_pclose
+#define my_popen	Perl_my_popen
+#define my_setenv	Perl_my_setenv
+#define my_stat		Perl_my_stat
+#define my_swap		Perl_my_swap
+#define my_unexec	Perl_my_unexec
+#define newANONHASH	Perl_newANONHASH
+#define newANONLIST	Perl_newANONLIST
+#define newANONSUB	Perl_newANONSUB
+#define newASSIGNOP	Perl_newASSIGNOP
+#define newAV		Perl_newAV
+#define newAVREF	Perl_newAVREF
+#define newBINOP	Perl_newBINOP
+#define newCONDOP	Perl_newCONDOP
+#define newCVREF	Perl_newCVREF
+#define newFORM		Perl_newFORM
+#define newFOROP	Perl_newFOROP
+#define newGVOP		Perl_newGVOP
+#define newGVREF	Perl_newGVREF
+#define newGVgen	Perl_newGVgen
+#define newHV		Perl_newHV
+#define newHVREF	Perl_newHVREF
+#define newIO		Perl_newIO
+#define newLISTOP	Perl_newLISTOP
+#define newLOGOP	Perl_newLOGOP
+#define newLOOPEX	Perl_newLOOPEX
+#define newLOOPOP	Perl_newLOOPOP
+#define newNULLLIST	Perl_newNULLLIST
+#define newOP		Perl_newOP
+#define newPMOP		Perl_newPMOP
+#define newPROG		Perl_newPROG
+#define newPVOP		Perl_newPVOP
+#define newRANGE	Perl_newRANGE
+#define newRV		Perl_newRV
+#define newSLICEOP	Perl_newSLICEOP
+#define newSTATEOP	Perl_newSTATEOP
+#define newSUB		Perl_newSUB
+#define newSV		Perl_newSV
+#define newSVOP		Perl_newSVOP
+#define newSVREF	Perl_newSVREF
+#define newSViv		Perl_newSViv
+#define newSVnv		Perl_newSVnv
+#define newSVpv		Perl_newSVpv
+#define newSVrv		Perl_newSVrv
+#define newSVsv		Perl_newSVsv
+#define newUNOP		Perl_newUNOP
+#define newWHILEOP	Perl_newWHILEOP
+#define newXS		Perl_newXS
+#define newXSUB		Perl_newXSUB
+#define nextargv	Perl_nextargv
+#define ninstr		Perl_ninstr
+#define no_fh_allowed	Perl_no_fh_allowed
+#define no_op		Perl_no_op
+#define oopsAV		Perl_oopsAV
+#define oopsCV		Perl_oopsCV
+#define oopsHV		Perl_oopsHV
+#define op_free		Perl_op_free
+#define package		Perl_package
+#define pad_alloc	Perl_pad_alloc
+#define pad_allocmy	Perl_pad_allocmy
+#define pad_findmy	Perl_pad_findmy
+#define pad_free	Perl_pad_free
+#define pad_leavemy	Perl_pad_leavemy
+#define pad_reset	Perl_pad_reset
+#define pad_sv		Perl_pad_sv
+#define pad_swipe	Perl_pad_swipe
+#define peep		Perl_peep
+#define pidgone		Perl_pidgone
+#define pmflag		Perl_pmflag
+#define pmruntime	Perl_pmruntime
+#define pmtrans		Perl_pmtrans
+#define pop_return	Perl_pop_return
+#define pop_scope	Perl_pop_scope
+#define pp_aassign	Perl_pp_aassign
+#define pp_abs		Perl_pp_abs
+#define pp_accept	Perl_pp_accept
+#define pp_add		Perl_pp_add
+#define pp_aelem	Perl_pp_aelem
+#define pp_aelemfast	Perl_pp_aelemfast
+#define pp_alarm	Perl_pp_alarm
+#define pp_and		Perl_pp_and
+#define pp_andassign	Perl_pp_andassign
+#define pp_anoncode	Perl_pp_anoncode
+#define pp_anonhash	Perl_pp_anonhash
+#define pp_anonlist	Perl_pp_anonlist
+#define pp_aslice	Perl_pp_aslice
+#define pp_atan2	Perl_pp_atan2
+#define pp_av2arylen	Perl_pp_av2arylen
+#define pp_backtick	Perl_pp_backtick
+#define pp_bind		Perl_pp_bind
+#define pp_binmode	Perl_pp_binmode
+#define pp_bit_and	Perl_pp_bit_and
+#define pp_bit_or	Perl_pp_bit_or
+#define pp_bit_xor	Perl_pp_bit_xor
+#define pp_bless	Perl_pp_bless
+#define pp_caller	Perl_pp_caller
+#define pp_chdir	Perl_pp_chdir
+#define pp_chmod	Perl_pp_chmod
+#define pp_chomp	Perl_pp_chomp
+#define pp_chop		Perl_pp_chop
+#define pp_chown	Perl_pp_chown
+#define pp_chr		Perl_pp_chr
+#define pp_chroot	Perl_pp_chroot
+#define pp_close	Perl_pp_close
+#define pp_closedir	Perl_pp_closedir
+#define pp_complement	Perl_pp_complement
+#define pp_concat	Perl_pp_concat
+#define pp_cond_expr	Perl_pp_cond_expr
+#define pp_connect	Perl_pp_connect
+#define pp_const	Perl_pp_const
+#define pp_cos		Perl_pp_cos
+#define pp_crypt	Perl_pp_crypt
+#define pp_cswitch	Perl_pp_cswitch
+#define pp_dbmclose	Perl_pp_dbmclose
+#define pp_dbmopen	Perl_pp_dbmopen
+#define pp_dbstate	Perl_pp_dbstate
+#define pp_defined	Perl_pp_defined
+#define pp_delete	Perl_pp_delete
+#define pp_die		Perl_pp_die
+#define pp_divide	Perl_pp_divide
+#define pp_dofile	Perl_pp_dofile
+#define pp_dump		Perl_pp_dump
+#define pp_each		Perl_pp_each
+#define pp_egrent	Perl_pp_egrent
+#define pp_ehostent	Perl_pp_ehostent
+#define pp_enetent	Perl_pp_enetent
+#define pp_enter	Perl_pp_enter
+#define pp_entereval	Perl_pp_entereval
+#define pp_enteriter	Perl_pp_enteriter
+#define pp_enterloop	Perl_pp_enterloop
+#define pp_entersub	Perl_pp_entersub
+#define pp_entersubr	Perl_pp_entersubr
+#define pp_entertry	Perl_pp_entertry
+#define pp_enterwrite	Perl_pp_enterwrite
+#define pp_eof		Perl_pp_eof
+#define pp_eprotoent	Perl_pp_eprotoent
+#define pp_epwent	Perl_pp_epwent
+#define pp_eq		Perl_pp_eq
+#define pp_eservent	Perl_pp_eservent
+#define pp_evalonce	Perl_pp_evalonce
+#define pp_exec		Perl_pp_exec
+#define pp_exists	Perl_pp_exists
+#define pp_exit		Perl_pp_exit
+#define pp_exp		Perl_pp_exp
+#define pp_fcntl	Perl_pp_fcntl
+#define pp_fileno	Perl_pp_fileno
+#define pp_flip		Perl_pp_flip
+#define pp_flock	Perl_pp_flock
+#define pp_flop		Perl_pp_flop
+#define pp_fork		Perl_pp_fork
+#define pp_formline	Perl_pp_formline
+#define pp_ftatime	Perl_pp_ftatime
+#define pp_ftbinary	Perl_pp_ftbinary
+#define pp_ftblk	Perl_pp_ftblk
+#define pp_ftchr	Perl_pp_ftchr
+#define pp_ftctime	Perl_pp_ftctime
+#define pp_ftdir	Perl_pp_ftdir
+#define pp_fteexec	Perl_pp_fteexec
+#define pp_fteowned	Perl_pp_fteowned
+#define pp_fteread	Perl_pp_fteread
+#define pp_ftewrite	Perl_pp_ftewrite
+#define pp_ftfile	Perl_pp_ftfile
+#define pp_ftis		Perl_pp_ftis
+#define pp_ftlink	Perl_pp_ftlink
+#define pp_ftmtime	Perl_pp_ftmtime
+#define pp_ftpipe	Perl_pp_ftpipe
+#define pp_ftrexec	Perl_pp_ftrexec
+#define pp_ftrowned	Perl_pp_ftrowned
+#define pp_ftrread	Perl_pp_ftrread
+#define pp_ftrwrite	Perl_pp_ftrwrite
+#define pp_ftsgid	Perl_pp_ftsgid
+#define pp_ftsize	Perl_pp_ftsize
+#define pp_ftsock	Perl_pp_ftsock
+#define pp_ftsuid	Perl_pp_ftsuid
+#define pp_ftsvtx	Perl_pp_ftsvtx
+#define pp_fttext	Perl_pp_fttext
+#define pp_fttty	Perl_pp_fttty
+#define pp_ftzero	Perl_pp_ftzero
+#define pp_ge		Perl_pp_ge
+#define pp_gelem	Perl_pp_gelem
+#define pp_getc		Perl_pp_getc
+#define pp_getlogin	Perl_pp_getlogin
+#define pp_getpeername	Perl_pp_getpeername
+#define pp_getpgrp	Perl_pp_getpgrp
+#define pp_getppid	Perl_pp_getppid
+#define pp_getpriority	Perl_pp_getpriority
+#define pp_getsockname	Perl_pp_getsockname
+#define pp_ggrent	Perl_pp_ggrent
+#define pp_ggrgid	Perl_pp_ggrgid
+#define pp_ggrnam	Perl_pp_ggrnam
+#define pp_ghbyaddr	Perl_pp_ghbyaddr
+#define pp_ghbyname	Perl_pp_ghbyname
+#define pp_ghostent	Perl_pp_ghostent
+#define pp_glob		Perl_pp_glob
+#define pp_gmtime	Perl_pp_gmtime
+#define pp_gnbyaddr	Perl_pp_gnbyaddr
+#define pp_gnbyname	Perl_pp_gnbyname
+#define pp_gnetent	Perl_pp_gnetent
+#define pp_goto		Perl_pp_goto
+#define pp_gpbyname	Perl_pp_gpbyname
+#define pp_gpbynumber	Perl_pp_gpbynumber
+#define pp_gprotoent	Perl_pp_gprotoent
+#define pp_gpwent	Perl_pp_gpwent
+#define pp_gpwnam	Perl_pp_gpwnam
+#define pp_gpwuid	Perl_pp_gpwuid
+#define pp_grepstart	Perl_pp_grepstart
+#define pp_grepwhile	Perl_pp_grepwhile
+#define pp_gsbyname	Perl_pp_gsbyname
+#define pp_gsbyport	Perl_pp_gsbyport
+#define pp_gservent	Perl_pp_gservent
+#define pp_gsockopt	Perl_pp_gsockopt
+#define pp_gt		Perl_pp_gt
+#define pp_gv		Perl_pp_gv
+#define pp_gvsv		Perl_pp_gvsv
+#define pp_helem	Perl_pp_helem
+#define pp_hex		Perl_pp_hex
+#define pp_hslice	Perl_pp_hslice
+#define pp_i_add	Perl_pp_i_add
+#define pp_i_divide	Perl_pp_i_divide
+#define pp_i_eq		Perl_pp_i_eq
+#define pp_i_ge		Perl_pp_i_ge
+#define pp_i_gt		Perl_pp_i_gt
+#define pp_i_le		Perl_pp_i_le
+#define pp_i_lt		Perl_pp_i_lt
+#define pp_i_modulo	Perl_pp_i_modulo
+#define pp_i_multiply	Perl_pp_i_multiply
+#define pp_i_ncmp	Perl_pp_i_ncmp
+#define pp_i_ne		Perl_pp_i_ne
+#define pp_i_negate	Perl_pp_i_negate
+#define pp_i_subtract	Perl_pp_i_subtract
+#define pp_index	Perl_pp_index
+#define pp_indread	Perl_pp_indread
+#define pp_int		Perl_pp_int
+#define pp_interp	Perl_pp_interp
+#define pp_ioctl	Perl_pp_ioctl
+#define pp_iter		Perl_pp_iter
+#define pp_join		Perl_pp_join
+#define pp_keys		Perl_pp_keys
+#define pp_kill		Perl_pp_kill
+#define pp_last		Perl_pp_last
+#define pp_lc		Perl_pp_lc
+#define pp_lcfirst	Perl_pp_lcfirst
+#define pp_le		Perl_pp_le
+#define pp_leave	Perl_pp_leave
+#define pp_leaveeval	Perl_pp_leaveeval
+#define pp_leaveloop	Perl_pp_leaveloop
+#define pp_leavesub	Perl_pp_leavesub
+#define pp_leavetry	Perl_pp_leavetry
+#define pp_leavewrite	Perl_pp_leavewrite
+#define pp_left_shift	Perl_pp_left_shift
+#define pp_length	Perl_pp_length
+#define pp_lineseq	Perl_pp_lineseq
+#define pp_link		Perl_pp_link
+#define pp_list		Perl_pp_list
+#define pp_listen	Perl_pp_listen
+#define pp_localtime	Perl_pp_localtime
+#define pp_log		Perl_pp_log
+#define pp_lslice	Perl_pp_lslice
+#define pp_lstat	Perl_pp_lstat
+#define pp_lt		Perl_pp_lt
+#define pp_map		Perl_pp_map
+#define pp_mapstart	Perl_pp_mapstart
+#define pp_mapwhile	Perl_pp_mapwhile
+#define pp_match	Perl_pp_match
+#define pp_method	Perl_pp_method
+#define pp_mkdir	Perl_pp_mkdir
+#define pp_modulo	Perl_pp_modulo
+#define pp_msgctl	Perl_pp_msgctl
+#define pp_msgget	Perl_pp_msgget
+#define pp_msgrcv	Perl_pp_msgrcv
+#define pp_msgsnd	Perl_pp_msgsnd
+#define pp_multiply	Perl_pp_multiply
+#define pp_ncmp		Perl_pp_ncmp
+#define pp_ne		Perl_pp_ne
+#define pp_negate	Perl_pp_negate
+#define pp_next		Perl_pp_next
+#define pp_nextstate	Perl_pp_nextstate
+#define pp_not		Perl_pp_not
+#define pp_nswitch	Perl_pp_nswitch
+#define pp_null		Perl_pp_null
+#define pp_oct		Perl_pp_oct
+#define pp_open		Perl_pp_open
+#define pp_open_dir	Perl_pp_open_dir
+#define pp_or		Perl_pp_or
+#define pp_orassign	Perl_pp_orassign
+#define pp_ord		Perl_pp_ord
+#define pp_pack		Perl_pp_pack
+#define pp_padany	Perl_pp_padany
+#define pp_padav	Perl_pp_padav
+#define pp_padhv	Perl_pp_padhv
+#define pp_padsv	Perl_pp_padsv
+#define pp_pipe_op	Perl_pp_pipe_op
+#define pp_pop		Perl_pp_pop
+#define pp_pos		Perl_pp_pos
+#define pp_postdec	Perl_pp_postdec
+#define pp_postinc	Perl_pp_postinc
+#define pp_pow		Perl_pp_pow
+#define pp_predec	Perl_pp_predec
+#define pp_preinc	Perl_pp_preinc
+#define pp_print	Perl_pp_print
+#define pp_prototype	Perl_pp_prototype
+#define pp_prtf		Perl_pp_prtf
+#define pp_push		Perl_pp_push
+#define pp_pushmark	Perl_pp_pushmark
+#define pp_pushre	Perl_pp_pushre
+#define pp_quotemeta	Perl_pp_quotemeta
+#define pp_rand		Perl_pp_rand
+#define pp_range	Perl_pp_range
+#define pp_rcatline	Perl_pp_rcatline
+#define pp_read		Perl_pp_read
+#define pp_readdir	Perl_pp_readdir
+#define pp_readline	Perl_pp_readline
+#define pp_readlink	Perl_pp_readlink
+#define pp_recv		Perl_pp_recv
+#define pp_redo		Perl_pp_redo
+#define pp_ref		Perl_pp_ref
+#define pp_refgen	Perl_pp_refgen
+#define pp_regcmaybe	Perl_pp_regcmaybe
+#define pp_regcomp	Perl_pp_regcomp
+#define pp_rename	Perl_pp_rename
+#define pp_repeat	Perl_pp_repeat
+#define pp_require	Perl_pp_require
+#define pp_reset	Perl_pp_reset
+#define pp_return	Perl_pp_return
+#define pp_reverse	Perl_pp_reverse
+#define pp_rewinddir	Perl_pp_rewinddir
+#define pp_right_shift	Perl_pp_right_shift
+#define pp_rindex	Perl_pp_rindex
+#define pp_rmdir	Perl_pp_rmdir
+#define pp_rv2av	Perl_pp_rv2av
+#define pp_rv2cv	Perl_pp_rv2cv
+#define pp_rv2gv	Perl_pp_rv2gv
+#define pp_rv2hv	Perl_pp_rv2hv
+#define pp_rv2sv	Perl_pp_rv2sv
+#define pp_sassign	Perl_pp_sassign
+#define pp_scalar	Perl_pp_scalar
+#define pp_schomp	Perl_pp_schomp
+#define pp_schop	Perl_pp_schop
+#define pp_scmp		Perl_pp_scmp
+#define pp_scope	Perl_pp_scope
+#define pp_seek		Perl_pp_seek
+#define pp_seekdir	Perl_pp_seekdir
+#define pp_select	Perl_pp_select
+#define pp_semctl	Perl_pp_semctl
+#define pp_semget	Perl_pp_semget
+#define pp_semop	Perl_pp_semop
+#define pp_send		Perl_pp_send
+#define pp_seq		Perl_pp_seq
+#define pp_setpgrp	Perl_pp_setpgrp
+#define pp_setpriority	Perl_pp_setpriority
+#define pp_sge		Perl_pp_sge
+#define pp_sgrent	Perl_pp_sgrent
+#define pp_sgt		Perl_pp_sgt
+#define pp_shift	Perl_pp_shift
+#define pp_shmctl	Perl_pp_shmctl
+#define pp_shmget	Perl_pp_shmget
+#define pp_shmread	Perl_pp_shmread
+#define pp_shmwrite	Perl_pp_shmwrite
+#define pp_shostent	Perl_pp_shostent
+#define pp_shutdown	Perl_pp_shutdown
+#define pp_sin		Perl_pp_sin
+#define pp_sle		Perl_pp_sle
+#define pp_sleep	Perl_pp_sleep
+#define pp_slt		Perl_pp_slt
+#define pp_sne		Perl_pp_sne
+#define pp_snetent	Perl_pp_snetent
+#define pp_socket	Perl_pp_socket
+#define pp_sockpair	Perl_pp_sockpair
+#define pp_sort		Perl_pp_sort
+#define pp_splice	Perl_pp_splice
+#define pp_split	Perl_pp_split
+#define pp_sprintf	Perl_pp_sprintf
+#define pp_sprotoent	Perl_pp_sprotoent
+#define pp_spwent	Perl_pp_spwent
+#define pp_sqrt		Perl_pp_sqrt
+#define pp_srand	Perl_pp_srand
+#define pp_srefgen	Perl_pp_srefgen
+#define pp_sselect	Perl_pp_sselect
+#define pp_sservent	Perl_pp_sservent
+#define pp_ssockopt	Perl_pp_ssockopt
+#define pp_stat		Perl_pp_stat
+#define pp_stringify	Perl_pp_stringify
+#define pp_stub		Perl_pp_stub
+#define pp_study	Perl_pp_study
+#define pp_subst	Perl_pp_subst
+#define pp_substcont	Perl_pp_substcont
+#define pp_substr	Perl_pp_substr
+#define pp_subtract	Perl_pp_subtract
+#define pp_symlink	Perl_pp_symlink
+#define pp_syscall	Perl_pp_syscall
+#define pp_sysopen	Perl_pp_sysopen
+#define pp_sysread	Perl_pp_sysread
+#define pp_system	Perl_pp_system
+#define pp_syswrite	Perl_pp_syswrite
+#define pp_tell		Perl_pp_tell
+#define pp_telldir	Perl_pp_telldir
+#define pp_tie		Perl_pp_tie
+#define pp_tied		Perl_pp_tied
+#define pp_time		Perl_pp_time
+#define pp_tms		Perl_pp_tms
+#define pp_trans	Perl_pp_trans
+#define pp_truncate	Perl_pp_truncate
+#define pp_uc		Perl_pp_uc
+#define pp_ucfirst	Perl_pp_ucfirst
+#define pp_umask	Perl_pp_umask
+#define pp_undef	Perl_pp_undef
+#define pp_unlink	Perl_pp_unlink
+#define pp_unpack	Perl_pp_unpack
+#define pp_unshift	Perl_pp_unshift
+#define pp_unstack	Perl_pp_unstack
+#define pp_untie	Perl_pp_untie
+#define pp_utime	Perl_pp_utime
+#define pp_values	Perl_pp_values
+#define pp_vec		Perl_pp_vec
+#define pp_wait		Perl_pp_wait
+#define pp_waitpid	Perl_pp_waitpid
+#define pp_wantarray	Perl_pp_wantarray
+#define pp_warn		Perl_pp_warn
+#define pp_xor		Perl_pp_xor
+#define pregcomp	Perl_pregcomp
+#define pregexec	Perl_pregexec
+#define pregfree	Perl_pregfree
+#define prepend_elem	Perl_prepend_elem
+#define push_return	Perl_push_return
+#define push_scope	Perl_push_scope
+#define q		Perl_q
+#define ref		Perl_ref
+#define refkids		Perl_refkids
+#define regdump		Perl_regdump
+#define regnext		Perl_regnext
+#define regprop		Perl_regprop
+#define repeatcpy	Perl_repeatcpy
+#define rninstr		Perl_rninstr
+#define runops		Perl_runops
+#define same_dirent	Perl_same_dirent
+#define save_I32	Perl_save_I32
+#define save_aptr	Perl_save_aptr
+#define save_ary	Perl_save_ary
+#define save_clearsv	Perl_save_clearsv
+#define save_delete	Perl_save_delete
+#define save_destructor	Perl_save_destructor
+#define save_freeop	Perl_save_freeop
+#define save_freepv	Perl_save_freepv
+#define save_freesv	Perl_save_freesv
+#define save_hash	Perl_save_hash
+#define save_hptr	Perl_save_hptr
+#define save_int	Perl_save_int
+#define save_item	Perl_save_item
+#define save_list	Perl_save_list
+#define save_long	Perl_save_long
+#define save_nogv	Perl_save_nogv
+#define save_pptr	Perl_save_pptr
+#define save_scalar	Perl_save_scalar
+#define save_sptr	Perl_save_sptr
+#define save_svref	Perl_save_svref
+#define savepv		Perl_savepv
+#define savepvn		Perl_savepvn
+#define savestack_grow	Perl_savestack_grow
+#define sawparens	Perl_sawparens
+#define scalar		Perl_scalar
+#define scalarkids	Perl_scalarkids
+#define scalarseq	Perl_scalarseq
+#define scalarvoid	Perl_scalarvoid
+#define scan_const	Perl_scan_const
+#define scan_formline	Perl_scan_formline
+#define scan_heredoc	Perl_scan_heredoc
+#define scan_hex	Perl_scan_hex
+#define scan_ident	Perl_scan_ident
+#define scan_inputsymbol	Perl_scan_inputsymbol
+#define scan_num	Perl_scan_num
+#define scan_oct	Perl_scan_oct
+#define scan_pat	Perl_scan_pat
+#define scan_prefix	Perl_scan_prefix
+#define scan_str	Perl_scan_str
+#define scan_subst	Perl_scan_subst
+#define scan_trans	Perl_scan_trans
+#define scan_word	Perl_scan_word
+#define scope		Perl_scope
+#define screaminstr	Perl_screaminstr
+#define setdefout	Perl_setdefout
+#define setenv_getix	Perl_setenv_getix
+#define sighandler	Perl_sighandler
+#define skipspace	Perl_skipspace
+#define stack_grow	Perl_stack_grow
+#define start_subparse	Perl_start_subparse
+#define sublex_done	Perl_sublex_done
+#define sublex_start	Perl_sublex_start
+#define sv_2bool	Perl_sv_2bool
+#define sv_2cv		Perl_sv_2cv
+#define sv_2io		Perl_sv_2io
+#define sv_2iv		Perl_sv_2iv
+#define sv_2mortal	Perl_sv_2mortal
+#define sv_2nv		Perl_sv_2nv
+#define sv_2pv		Perl_sv_2pv
+#define sv_add_arena	Perl_sv_add_arena
+#define sv_backoff	Perl_sv_backoff
+#define sv_bless	Perl_sv_bless
+#define sv_catpv	Perl_sv_catpv
+#define sv_catpvn	Perl_sv_catpvn
+#define sv_catsv	Perl_sv_catsv
+#define sv_chop		Perl_sv_chop
+#define sv_clean_all	Perl_sv_clean_all
+#define sv_clean_objs	Perl_sv_clean_objs
+#define sv_clear	Perl_sv_clear
+#define sv_cmp		Perl_sv_cmp
+#define sv_dec		Perl_sv_dec
+#define sv_dump		Perl_sv_dump
+#define sv_eq		Perl_sv_eq
+#define sv_free		Perl_sv_free
+#define sv_free_arenas	Perl_sv_free_arenas
+#define sv_gets		Perl_sv_gets
+#define sv_grow		Perl_sv_grow
+#define sv_inc		Perl_sv_inc
+#define sv_insert	Perl_sv_insert
+#define sv_isa		Perl_sv_isa
+#define sv_isobject	Perl_sv_isobject
+#define sv_len		Perl_sv_len
+#define sv_magic	Perl_sv_magic
+#define sv_mortalcopy	Perl_sv_mortalcopy
+#define sv_newmortal	Perl_sv_newmortal
+#define sv_newref	Perl_sv_newref
+#define sv_peek		Perl_sv_peek
+#define sv_pvn_force	Perl_sv_pvn_force
+#define sv_ref		Perl_sv_ref
+#define sv_reftype	Perl_sv_reftype
+#define sv_replace	Perl_sv_replace
+#define sv_report_used	Perl_sv_report_used
+#define sv_reset	Perl_sv_reset
+#define sv_setiv	Perl_sv_setiv
+#define sv_setnv	Perl_sv_setnv
+#define sv_setptrobj	Perl_sv_setptrobj
+#define sv_setpv	Perl_sv_setpv
+#define sv_setpvn	Perl_sv_setpvn
+#define sv_setref_iv	Perl_sv_setref_iv
+#define sv_setref_nv	Perl_sv_setref_nv
+#define sv_setref_pv	Perl_sv_setref_pv
+#define sv_setref_pvn	Perl_sv_setref_pvn
+#define sv_setsv	Perl_sv_setsv
+#define sv_unmagic	Perl_sv_unmagic
+#define sv_unref	Perl_sv_unref
+#define sv_upgrade	Perl_sv_upgrade
+#define sv_usepvn	Perl_sv_usepvn
+#define taint_env	Perl_taint_env
+#define taint_not	Perl_taint_not
+#define taint_proper	Perl_taint_proper
+#define too_few_arguments	Perl_too_few_arguments
+#define too_many_arguments	Perl_too_many_arguments
+#define unlnk		Perl_unlnk
+#define utilize		Perl_utilize
+#define wait4pid	Perl_wait4pid
+#define warn		Perl_warn
+#define watch		Perl_watch
+#define whichsig	Perl_whichsig
+#define xiv_arenaroot	Perl_xiv_arenaroot
+#define xiv_root	Perl_xiv_root
+#define xnv_root	Perl_xnv_root
+#define xpv_root	Perl_xpv_root
+#define xrv_root	Perl_xrv_root
+#define yyerror		Perl_yyerror
+#define yylex		Perl_yylex
+#define yyparse		Perl_yyparse
+#define yywarn		Perl_yywarn
+
+#endif /* EMBED */
+
+/* Put interpreter specific symbols into a struct? */
+
+#ifdef MULTIPLICITY
+
+#define Argv		(curinterp->IArgv)
+#define Cmd		(curinterp->ICmd)
+#define DBgv		(curinterp->IDBgv)
+#define DBline		(curinterp->IDBline)
+#define DBsignal	(curinterp->IDBsignal)
+#define DBsingle	(curinterp->IDBsingle)
+#define DBsub		(curinterp->IDBsub)
+#define DBtrace		(curinterp->IDBtrace)
+#define allgvs		(curinterp->Iallgvs)
+#define ampergv		(curinterp->Iampergv)
+#define argvgv		(curinterp->Iargvgv)
+#define argvoutgv	(curinterp->Iargvoutgv)
+#define basetime	(curinterp->Ibasetime)
+#define beginav		(curinterp->Ibeginav)
+#define bodytarget	(curinterp->Ibodytarget)
+#define cddir		(curinterp->Icddir)
+#define chopset		(curinterp->Ichopset)
+#define copline		(curinterp->Icopline)
+#define curblock	(curinterp->Icurblock)
+#define curcop		(curinterp->Icurcop)
+#define curcsv		(curinterp->Icurcsv)
+#define curpm		(curinterp->Icurpm)
+#define curstash	(curinterp->Icurstash)
+#define curstname	(curinterp->Icurstname)
+#define cxstack		(curinterp->Icxstack)
+#define cxstack_ix	(curinterp->Icxstack_ix)
+#define cxstack_max	(curinterp->Icxstack_max)
+#define dbargs		(curinterp->Idbargs)
+#define debdelim	(curinterp->Idebdelim)
+#define debname		(curinterp->Idebname)
+#define debstash	(curinterp->Idebstash)
+#define debug		(curinterp->Idebug)
+#define defgv		(curinterp->Idefgv)
+#define defoutgv	(curinterp->Idefoutgv)
+#define defstash	(curinterp->Idefstash)
+#define delaymagic	(curinterp->Idelaymagic)
+#define diehook		(curinterp->Idiehook)
+#define dirty		(curinterp->Idirty)
+#define dlevel		(curinterp->Idlevel)
+#define dlmax		(curinterp->Idlmax)
+#define do_undump	(curinterp->Ido_undump)
+#define doextract	(curinterp->Idoextract)
+#define doswitches	(curinterp->Idoswitches)
+#define dowarn		(curinterp->Idowarn)
+#define dumplvl		(curinterp->Idumplvl)
+#define e_fp		(curinterp->Ie_fp)
+#define e_tmpname	(curinterp->Ie_tmpname)
+#define endav		(curinterp->Iendav)
+#define envgv		(curinterp->Ienvgv)
+#define errgv		(curinterp->Ierrgv)
+#define eval_root	(curinterp->Ieval_root)
+#define eval_start	(curinterp->Ieval_start)
+#define fdpid		(curinterp->Ifdpid)
+#define filemode	(curinterp->Ifilemode)
+#define firstgv		(curinterp->Ifirstgv)
+#define forkprocess	(curinterp->Iforkprocess)
+#define formfeed	(curinterp->Iformfeed)
+#define formtarget	(curinterp->Iformtarget)
+#define gensym		(curinterp->Igensym)
+#define in_eval		(curinterp->Iin_eval)
+#define incgv		(curinterp->Iincgv)
+#define inplace		(curinterp->Iinplace)
+#define last_in_gv	(curinterp->Ilast_in_gv)
+#define lastfd		(curinterp->Ilastfd)
+#define lastretstr	(curinterp->Ilastretstr)
+#define lastscream	(curinterp->Ilastscream)
+#define lastsize	(curinterp->Ilastsize)
+#define lastspbase	(curinterp->Ilastspbase)
+#define laststatval	(curinterp->Ilaststatval)
+#define laststype	(curinterp->Ilaststype)
+#define leftgv		(curinterp->Ileftgv)
+#define lineary		(curinterp->Ilineary)
+#define localizing	(curinterp->Ilocalizing)
+#define main_cv		(curinterp->Imain_cv)
+#define main_root	(curinterp->Imain_root)
+#define main_start	(curinterp->Imain_start)
+#define mainstack	(curinterp->Imainstack)
+#define maxscream	(curinterp->Imaxscream)
+#define maxsysfd	(curinterp->Imaxsysfd)
+#define minus_F		(curinterp->Iminus_F)
+#define minus_a		(curinterp->Iminus_a)
+#define minus_c		(curinterp->Iminus_c)
+#define minus_l		(curinterp->Iminus_l)
+#define minus_n		(curinterp->Iminus_n)
+#define minus_p		(curinterp->Iminus_p)
+#define multiline	(curinterp->Imultiline)
+#define mystack_base	(curinterp->Imystack_base)
+#define mystack_mark	(curinterp->Imystack_mark)
+#define mystack_max	(curinterp->Imystack_max)
+#define mystack_sp	(curinterp->Imystack_sp)
+#define mystrk		(curinterp->Imystrk)
+#define nrs		(curinterp->Inrs)
+#define ofmt		(curinterp->Iofmt)
+#define ofs		(curinterp->Iofs)
+#define ofslen		(curinterp->Iofslen)
+#define oldlastpm	(curinterp->Ioldlastpm)
+#define oldname		(curinterp->Ioldname)
+#define op_mask		(curinterp->Iop_mask)
+#define origargc	(curinterp->Iorigargc)
+#define origargv	(curinterp->Iorigargv)
+#define origfilename	(curinterp->Iorigfilename)
+#define ors		(curinterp->Iors)
+#define orslen		(curinterp->Iorslen)
+#define pad		(curinterp->Ipad)
+#define padname		(curinterp->Ipadname)
+#define parsehook	(curinterp->Iparsehook)
+#define patchlevel	(curinterp->Ipatchlevel)
+#define perldb		(curinterp->Iperldb)
+#define perl_destruct_level	(curinterp->Iperl_destruct_level)
+#define pidstatus	(curinterp->Ipidstatus)
+#define preambled	(curinterp->Ipreambled)
+#define preambleav	(curinterp->Ipreambleav)
+#define preprocess	(curinterp->Ipreprocess)
+#define restartop	(curinterp->Irestartop)
+#define rightgv		(curinterp->Irightgv)
+#define rs		(curinterp->Irs)
+#define runlevel	(curinterp->Irunlevel)
+#define sawampersand	(curinterp->Isawampersand)
+#define sawi		(curinterp->Isawi)
+#define sawstudy	(curinterp->Isawstudy)
+#define sawvec		(curinterp->Isawvec)
+#define screamfirst	(curinterp->Iscreamfirst)
+#define screamnext	(curinterp->Iscreamnext)
+#define secondgv	(curinterp->Isecondgv)
+#define siggv		(curinterp->Isiggv)
+#define signalstack	(curinterp->Isignalstack)
+#define sortcop		(curinterp->Isortcop)
+#define sortstack	(curinterp->Isortstack)
+#define sortstash	(curinterp->Isortstash)
+#define splitstr	(curinterp->Isplitstr)
+#define stack		(curinterp->Istack)
+#define statcache	(curinterp->Istatcache)
+#define statgv		(curinterp->Istatgv)
+#define statname	(curinterp->Istatname)
+#define statusvalue	(curinterp->Istatusvalue)
+#define stdingv		(curinterp->Istdingv)
+#define strchop		(curinterp->Istrchop)
+#define sv_count	(curinterp->Isv_count)
+#define sv_objcount	(curinterp->Isv_objcount)
+#define sv_root		(curinterp->Isv_root)
+#define sv_arenaroot	(curinterp->Isv_arenaroot)
+#define tainted		(curinterp->Itainted)
+#define tainting	(curinterp->Itainting)
+#define tmps_floor	(curinterp->Itmps_floor)
+#define tmps_ix		(curinterp->Itmps_ix)
+#define tmps_max	(curinterp->Itmps_max)
+#define tmps_stack	(curinterp->Itmps_stack)
+#define top_env		(curinterp->Itop_env)
+#define toptarget	(curinterp->Itoptarget)
+#define unsafe		(curinterp->Iunsafe)
+#define warnhook	(curinterp->Iwarnhook)
+
+#else	/* not multiple, so translate interpreter symbols the other way... */
+
+#define IArgv		Argv
+#define ICmd		Cmd
+#define IDBgv		DBgv
+#define IDBline		DBline
+#define IDBsignal	DBsignal
+#define IDBsingle	DBsingle
+#define IDBsub		DBsub
+#define IDBtrace	DBtrace
+#define Iallgvs		allgvs
+#define Iampergv	ampergv
+#define Iargvgv		argvgv
+#define Iargvoutgv	argvoutgv
+#define Ibasetime	basetime
+#define Ibeginav	beginav
+#define Ibodytarget	bodytarget
+#define Icddir		cddir
+#define Ichopset	chopset
+#define Icopline	copline
+#define Icurblock	curblock
+#define Icurcop		curcop
+#define Icurcsv		curcsv
+#define Icurpm		curpm
+#define Icurstash	curstash
+#define Icurstname	curstname
+#define Icxstack	cxstack
+#define Icxstack_ix	cxstack_ix
+#define Icxstack_max	cxstack_max
+#define Idbargs		dbargs
+#define Idebdelim	debdelim
+#define Idebname	debname
+#define Idebstash	debstash
+#define Idebug		debug
+#define Idefgv		defgv
+#define Idefoutgv	defoutgv
+#define Idefstash	defstash
+#define Idelaymagic	delaymagic
+#define Idiehook	diehook
+#define Idirty		dirty
+#define Idlevel		dlevel
+#define Idlmax		dlmax
+#define Ido_undump	do_undump
+#define Idoextract	doextract
+#define Idoswitches	doswitches
+#define Idowarn		dowarn
+#define Idumplvl	dumplvl
+#define Ie_fp		e_fp
+#define Ie_tmpname	e_tmpname
+#define Iendav		endav
+#define Ienvgv		envgv
+#define Ierrgv		errgv
+#define Ieval_root	eval_root
+#define Ieval_start	eval_start
+#define Ifdpid		fdpid
+#define Ifilemode	filemode
+#define Ifirstgv	firstgv
+#define Iforkprocess	forkprocess
+#define Iformfeed	formfeed
+#define Iformtarget	formtarget
+#define Igensym		gensym
+#define Iin_eval	in_eval
+#define Iincgv		incgv
+#define Iinplace	inplace
+#define Ilast_in_gv	last_in_gv
+#define Ilastfd		lastfd
+#define Ilastretstr	lastretstr
+#define Ilastscream	lastscream
+#define Ilastsize	lastsize
+#define Ilastspbase	lastspbase
+#define Ilaststatval	laststatval
+#define Ilaststype	laststype
+#define Ileftgv		leftgv
+#define Ilineary	lineary
+#define Ilocalizing	localizing
+#define Imain_cv	main_cv
+#define Imain_root	main_root
+#define Imain_start	main_start
+#define Imainstack	mainstack
+#define Imaxscream	maxscream
+#define Imaxsysfd	maxsysfd
+#define Iminus_F	minus_F
+#define Iminus_a	minus_a
+#define Iminus_c	minus_c
+#define Iminus_l	minus_l
+#define Iminus_n	minus_n
+#define Iminus_p	minus_p
+#define Imultiline	multiline
+#define Imystack_base	mystack_base
+#define Imystack_mark	mystack_mark
+#define Imystack_max	mystack_max
+#define Imystack_sp	mystack_sp
+#define Imystrk		mystrk
+#define Inrs		nrs
+#define Iofmt		ofmt
+#define Iofs		ofs
+#define Iofslen		ofslen
+#define Ioldlastpm	oldlastpm
+#define Ioldname	oldname
+#define Iop_mask	op_mask
+#define Iorigargc	origargc
+#define Iorigargv	origargv
+#define Iorigfilename	origfilename
+#define Iors		ors
+#define Iorslen		orslen
+#define Ipad		pad
+#define Ipadname	padname
+#define Iparsehook	parsehook
+#define Ipatchlevel	patchlevel
+#define Iperldb		perldb
+#define Iperl_destruct_level	perl_destruct_level
+#define Ipidstatus	pidstatus
+#define Ipreambled	preambled
+#define Ipreambleav	preambleav
+#define Ipreprocess	preprocess
+#define Irestartop	restartop
+#define Irightgv	rightgv
+#define Irs		rs
+#define Irunlevel	runlevel
+#define Isawampersand	sawampersand
+#define Isawi		sawi
+#define Isawstudy	sawstudy
+#define Isawvec		sawvec
+#define Iscreamfirst	screamfirst
+#define Iscreamnext	screamnext
+#define Isecondgv	secondgv
+#define Isiggv		siggv
+#define Isignalstack	signalstack
+#define Isortcop	sortcop
+#define Isortstack	sortstack
+#define Isortstash	sortstash
+#define Isplitstr	splitstr
+#define Istack		stack
+#define Istatcache	statcache
+#define Istatgv		statgv
+#define Istatname	statname
+#define Istatusvalue	statusvalue
+#define Istdingv	stdingv
+#define Istrchop	strchop
+#define Isv_count	sv_count
+#define Isv_objcount	sv_objcount
+#define Isv_root	sv_root
+#define Isv_arenaroot	sv_arenaroot
+#define Itainted	tainted
+#define Itainting	tainting
+#define Itmps_floor	tmps_floor
+#define Itmps_ix	tmps_ix
+#define Itmps_max	tmps_max
+#define Itmps_stack	tmps_stack
+#define Itop_env	top_env
+#define Itoptarget	toptarget
+#define Iunsafe		unsafe
+#define Iwarnhook	warnhook
+
+#endif /* MULTIPLICITY */