Skip to content
Browse files

phase 1 of somewhat major rearrangement of PERL_OBJECT stuff

(objpp.h is gone, embed.pl now does some of that); objXSUB.h
should soon be automated also; the global variables that
escaped the PL_foo conversion are now reined in; renamed
MAGIC in regcomp.h to REG_MAGIC to avoid collision with the
type of same name; duplicated lists of pp_things in various
places is now gone; result has only been tested on win32

p4raw-id: //depot/perl@2133
  • Loading branch information...
1 parent 854e644 commit 22c35a8c2392967a5ba6b5370695be464bd7012c Gurusamy Sarathy committed Oct 30, 1998
Showing with 3,039 additions and 5,269 deletions.
  1. +2 −2 MANIFEST
  2. +6 −3 Makefile.SH
  3. +6 −6 av.c
  4. +1 −1 bytecode.h
  5. +2 −0 byterun.h
  6. +2 −2 cop.h
  7. +4 −4 doio.c
  8. +1 −1 doop.c
  9. +2 −2 dump.c
  10. +1,186 −160 embed.h
  11. +256 −35 embed.pl
  12. +7 −15 embedvar.h
  13. +11 −11 ext/B/B.xs
  14. +0 −2 ext/POSIX/POSIX.xs
  15. +1 −1 ext/Thread/Thread.xs
  16. +15 −506 global.sym
  17. +8 −1,406 globals.c
  18. +68 −0 globvar.sym
  19. +14 −14 gv.c
  20. +1 −1 malloc.c
  21. +26 −26 mg.c
  22. +11 −1 objXSUB.h
  23. +0 −1,611 objpp.h
  24. +102 −98 op.c
  25. +16 −394 opcode.h
  26. +39 −24 opcode.pl
  27. +7 −10 perl.c
  28. +127 −134 perl.h
  29. +3 −5 perl_exp.SH
  30. +1 −5 perlvars.h
  31. +11 −11 perly.c
  32. +1 −1 pod/perlguts.pod
  33. +17 −14 pp.c
  34. +1 −4 pp.h
  35. +344 −0 pp.sym
  36. +11 −11 pp_ctl.c
  37. +14 −14 pp_hot.c
  38. +378 −344 pp_proto.h
  39. +86 −86 pp_sys.c
  40. +10 −43 proto.h
  41. +32 −32 regcomp.c
  42. +6 −6 regcomp.h
  43. +2 −2 regcomp.pl
  44. +4 −4 regcomp.sym
  45. +20 −21 regexec.c
  46. +10 −10 regnodes.h
  47. +8 −11 run.c
  48. +3 −3 scope.c
  49. +54 −58 sv.c
  50. +9 −2 t/op/filetest.t
  51. +2 −0 taint.c
  52. +4 −1 thrdvar.h
  53. +0 −1 thread.sym
  54. +7 −9 toke.c
  55. +23 −40 util.c
  56. +2 −2 win32/Makefile
  57. +2 −1 win32/config.bc
  58. +2 −1 win32/config.gc
  59. +2 −1 win32/config.vc
  60. +5 −5 win32/config_H.bc
  61. +6 −6 win32/config_H.gc
  62. +5 −5 win32/config_H.vc
  63. +21 −30 win32/makedef.pl
  64. +6 −4 win32/makefile.mk
  65. +6 −6 win32/perlhost.h
View
4 MANIFEST
@@ -346,6 +346,7 @@ fakethr.h Fake threads header
form.h Public declarations for the above
global.sym Symbols that need hiding when embedded
globals.c File to declare global symbols (for shared library)
+globvar.sym Global variables that need hiding when embedded
gv.c Glob value code
gv.h Glob value header
h2pl/README How to turn .ph files into .pl files
@@ -777,7 +778,6 @@ mpeix/relink MPE/iX port
mv-if-diff Script to mv a file if it changed
myconfig Prints summary of the current configuration
nostdio.h Cause compile error on stdio calls
-objpp.h Scoping macros for Perl Object
op.c Opcode syntax tree code
op.h Opcode syntax tree header
opcode.h Automatically generated opcode header
@@ -920,6 +920,7 @@ pod/splitman Splits perlfunc into multiple man pages
pod/splitpod Splits perlfunc into multiple pod pages
pp.c Push/Pop code
pp.h Push/Pop code defs
+pp.sym Push/Pop code symbols
pp_ctl.c Push/Pop code for control flow
pp_hot.c Push/Pop code for heavily used opcodes
pp_proto.h C++ definitions for Push/Pop code
@@ -1165,7 +1166,6 @@ t/pragma/warning.t See if warning controls work
taint.c Tainting code
thrdvar.h Per-thread variables
thread.h Threading header
-thread.sym Symbols for threads
toke.c The tokener
universal.c The default UNIVERSAL package methods
unixish.h Defines that are assumed on Unix
View
9 Makefile.SH
@@ -451,14 +451,17 @@ perly.h: perly.y
# No compat3.sym here since and including the 5.004_50.
# No interp.sym since 5.005_03.
-SYM = global.sym perlio.sym thread.sym
+SYM = global.sym globvar.sym perlio.sym pp.sym
-SYMH = perlvars.h thrdvar.h
+SYMH = perlvars.h intrpvar.h thrdvar.h
# The following files are generated automatically
# keywords.h: keywords.pl
# opcode.h: opcode.pl
-# embed.h: embed.pl global.sym interp.sym
+# pp_proto.h: opcode.pl
+# pp.sym: opcode.pl
+# embed.h: embed.pl [* needs pp.sym generated by opcode.pl! *]
+# embedvar.h: embed.pl [* needs pp.sym generated by opcode.pl! *]
# byterun.h: bytecode.pl
# byterun.c: bytecode.pl
# lib/B/Asmdata.pm: bytecode.pl
View
12 av.c
@@ -217,7 +217,7 @@ av_store(register AV *av, I32 key, SV *val)
}
if (SvREADONLY(av) && key >= AvFILL(av))
- croak(no_modify);
+ croak(PL_no_modify);
if (SvRMAGICAL(av)) {
if (mg_find((SV*)av,'P')) {
@@ -336,7 +336,7 @@ av_clear(register AV *av)
/*SUPPRESS 560*/
if (SvREADONLY(av))
- croak(no_modify);
+ croak(PL_no_modify);
/* Give any tie a chance to cleanup first */
if (SvRMAGICAL(av))
@@ -396,7 +396,7 @@ av_push(register AV *av, SV *val)
if (!av)
return;
if (SvREADONLY(av))
- croak(no_modify);
+ croak(PL_no_modify);
if (mg = SvTIED_mg((SV*)av, 'P')) {
dSP;
@@ -424,7 +424,7 @@ av_pop(register AV *av)
if (!av || AvFILL(av) < 0)
return &PL_sv_undef;
if (SvREADONLY(av))
- croak(no_modify);
+ croak(PL_no_modify);
if (mg = SvTIED_mg((SV*)av, 'P')) {
dSP;
PUSHSTACKi(PERLSI_MAGIC);
@@ -458,7 +458,7 @@ av_unshift(register AV *av, register I32 num)
if (!av || num <= 0)
return;
if (SvREADONLY(av))
- croak(no_modify);
+ croak(PL_no_modify);
if (mg = SvTIED_mg((SV*)av, 'P')) {
dSP;
@@ -510,7 +510,7 @@ av_shift(register AV *av)
if (!av || AvFILL(av) < 0)
return &PL_sv_undef;
if (SvREADONLY(av))
- croak(no_modify);
+ croak(PL_no_modify);
if (mg = SvTIED_mg((SV*)av, 'P')) {
dSP;
PUSHSTACKi(PERLSI_MAGIC);
View
2 bytecode.h
@@ -151,7 +151,7 @@ typedef IV IV64;
o->op_type = arg; \
if (arg == OP_MAPSTART) \
arg = OP_GREPSTART; \
- o->op_ppaddr = ppaddr[arg]; \
+ o->op_ppaddr = PL_ppaddr[arg]; \
} STMT_END
#define BSET_op_ppaddr(o, arg) croak("op_ppaddr not yet implemented")
#define BSET_curpad(pad, arg) pad = AvARRAY(arg)
View
2 byterun.h
@@ -17,7 +17,9 @@ struct bytestream {
};
#endif /* INDIRECT_BGET_MACROS */
+#ifndef PERL_OBJECT
void *bset_obj_store _((void *, I32));
+#endif
enum {
INSN_RET, /* 0 */
View
4 cop.h
@@ -187,7 +187,7 @@ struct block {
cx->blk_oldpm = PL_curpm, \
cx->blk_gimme = gimme; \
DEBUG_l( PerlIO_printf(PerlIO_stderr(), "Entering block %ld, type %s\n", \
- (long)cxstack_ix, block_type[t]); )
+ (long)cxstack_ix, PL_block_type[t]); )
/* Exit a block (RETURN and LAST). */
#define POPBLOCK(cx,pm) cx = &cxstack[cxstack_ix--], \
@@ -199,7 +199,7 @@ struct block {
pm = cx->blk_oldpm, \
gimme = cx->blk_gimme; \
DEBUG_l( PerlIO_printf(PerlIO_stderr(), "Leaving block %ld, type %s\n", \
- (long)cxstack_ix+1,block_type[CxTYPE(cx)]); )
+ (long)cxstack_ix+1,PL_block_type[CxTYPE(cx)]); )
/* Continue a block elsewhere (NEXT and REDO). */
#define TOPBLOCK(cx) cx = &cxstack[cxstack_ix], \
View
8 doio.c
@@ -306,7 +306,7 @@ do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawpe
if (!fp) {
dTHR;
if (ckWARN(WARN_NEWLINE) && IoTYPE(io) == '<' && strchr(name, '\n'))
- warner(WARN_NEWLINE, warn_nl, "open");
+ warner(WARN_NEWLINE, PL_warn_nl, "open");
goto say_false;
}
if (IoTYPE(io) &&
@@ -889,7 +889,7 @@ do_print(register SV *sv, PerlIO *fp)
{
dTHR;
if (ckWARN(WARN_UNINITIALIZED))
- warner(WARN_UNINITIALIZED, warn_uninit);
+ warner(WARN_UNINITIALIZED, PL_warn_uninit);
}
return TRUE;
case SVt_IV:
@@ -957,7 +957,7 @@ my_stat(ARGSproto)
PL_laststype = OP_STAT;
PL_laststatval = PerlLIO_stat(s, &PL_statcache);
if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(s, '\n'))
- warner(WARN_NEWLINE, warn_nl, "stat");
+ warner(WARN_NEWLINE, PL_warn_nl, "stat");
return PL_laststatval;
}
}
@@ -988,7 +988,7 @@ my_lstat(ARGSproto)
PL_laststatval = PerlLIO_stat(SvPV(sv, PL_na),&PL_statcache);
#endif
if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(SvPV(sv, PL_na), '\n'))
- warner(WARN_NEWLINE, warn_nl, "lstat");
+ warner(WARN_NEWLINE, PL_warn_nl, "lstat");
return PL_laststatval;
}
View
2 doop.c
@@ -597,7 +597,7 @@ do_trans(SV *sv)
STRLEN len;
if (SvREADONLY(sv) && !(PL_op->op_private & OPpTRANS_IDENTICAL))
- croak(no_modify);
+ croak(PL_no_modify);
(void)SvPV(sv, len);
if (!len)
View
4 dump.c
@@ -110,7 +110,7 @@ dump_op(OP *o)
PerlIO_printf(Perl_debug_log, "%-4d", o->op_seq);
else
PerlIO_printf(Perl_debug_log, " ");
- dump("TYPE = %s ===> ", op_name[o->op_type]);
+ dump("TYPE = %s ===> ", PL_op_name[o->op_type]);
if (o->op_next) {
if (o->op_seq)
PerlIO_printf(Perl_debug_log, "%d\n", o->op_next->op_seq);
@@ -122,7 +122,7 @@ dump_op(OP *o)
PL_dumplvl++;
if (o->op_targ) {
if (o->op_type == OP_NULL)
- dump(" (was %s)\n", op_name[o->op_targ]);
+ dump(" (was %s)\n", PL_op_name[o->op_targ]);
else
dump("TARG = %d\n", o->op_targ);
}
View
1,346 embed.h
@@ -1,37 +1,22 @@
/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
- This file is built by embed.pl from global.sym, intrpvar.h,
+ This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
and thrdvar.h. Any changes made here will be lost!
*/
/* (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
+/* NO_EMBED is no longer supported. i.e. EMBED is always active. */
-/* Hide global symbols? */
+/* Hide global symbols */
-#ifdef EMBED
+#if !defined(PERL_OBJECT)
-#define AMG_names Perl_AMG_names
-#define Error Perl_Error
#define Gv_AMupdate Perl_Gv_AMupdate
-#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_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 atan2_amg Perl_atan2_amg
#define av_clear Perl_av_clear
#define av_extend Perl_av_extend
#define av_fake Perl_av_fake
@@ -51,22 +36,19 @@
#define avhv_iternext Perl_avhv_iternext
#define avhv_iterval Perl_avhv_iterval
#define avhv_keys Perl_avhv_keys
-#define band_amg Perl_band_amg
#define bind_match Perl_bind_match
#define block_end Perl_block_end
#define block_gimme Perl_block_gimme
#define block_start Perl_block_start
-#define block_type Perl_block_type
-#define bool__amg Perl_bool__amg
#define boot_core_UNIVERSAL Perl_boot_core_UNIVERSAL
-#define bor_amg Perl_bor_amg
#define bset_obj_store Perl_bset_obj_store
-#define bxor_amg Perl_bxor_amg
#define byterun Perl_byterun
#define call_list Perl_call_list
#define cando Perl_cando
+#define cast_i32 Perl_cast_i32
+#define cast_iv Perl_cast_iv
#define cast_ulong Perl_cast_ulong
-#define check Perl_check
+#define cast_uv Perl_cast_uv
#define check_uni Perl_check_uni
#define checkcomma Perl_checkcomma
#define ck_aelem Perl_ck_aelem
@@ -83,7 +65,6 @@
#define ck_fun_locale Perl_ck_fun_locale
#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
@@ -92,7 +73,6 @@
#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_scmp Perl_ck_scmp
@@ -104,34 +84,25 @@
#define ck_subr Perl_ck_subr
#define ck_svconst Perl_ck_svconst
#define ck_trunc Perl_ck_trunc
-#define compl_amg Perl_compl_amg
-#define concat_amg Perl_concat_amg
-#define concat_ass_amg Perl_concat_ass_amg
#define condpair_magic Perl_condpair_magic
#define convert Perl_convert
-#define cos_amg Perl_cos_amg
#define croak Perl_croak
#define cv_ckproto Perl_cv_ckproto
#define cv_clone Perl_cv_clone
#define cv_const_sv Perl_cv_const_sv
#define cv_undef Perl_cv_undef
#define cx_dump Perl_cx_dump
#define cxinc Perl_cxinc
-#define dc Perl_dc
#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 dec_amg Perl_dec_amg
#define delimcpy Perl_delimcpy
#define deprecate Perl_deprecate
-#define di Perl_di
#define die Perl_die
#define die_where Perl_die_where
-#define div_amg Perl_div_amg
-#define div_ass_amg Perl_div_ass_amg
#define do_aexec Perl_do_aexec
#define do_binmode Perl_do_binmode
#define do_chomp Perl_do_chomp
@@ -164,7 +135,6 @@
#define dopoptoeval Perl_dopoptoeval
#define dounwind Perl_dounwind
#define dowantarray Perl_dowantarray
-#define ds Perl_ds
#define dump_all Perl_dump_all
#define dump_eval Perl_dump_eval
#define dump_fds Perl_dump_fds
@@ -175,10 +145,6 @@
#define dump_packsubs Perl_dump_packsubs
#define dump_pm Perl_dump_pm
#define dump_sub Perl_dump_sub
-#define eq_amg Perl_eq_amg
-#define exp_amg Perl_exp_amg
-#define expectterm Perl_expectterm
-#define fallback_amg Perl_fallback_amg
#define fbm_compile Perl_fbm_compile
#define fbm_instr Perl_fbm_instr
#define fetch_gv Perl_fetch_gv
@@ -188,17 +154,13 @@
#define filter_read Perl_filter_read
#define find_script Perl_find_script
#define find_threadsv Perl_find_threadsv
-#define fold Perl_fold
#define fold_constants Perl_fold_constants
-#define fold_locale Perl_fold_locale
#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 form Perl_form
#define free_tmps Perl_free_tmps
-#define freq Perl_freq
-#define ge_amg Perl_ge_amg
#define gen_constant_list Perl_gen_constant_list
#define get_no_modify Perl_get_no_modify
#define get_op_descs Perl_get_op_descs
@@ -207,7 +169,6 @@
#define get_specialsv_list Perl_get_specialsv_list
#define gp_free Perl_gp_free
#define gp_ref Perl_gp_ref
-#define gt_amg Perl_gt_amg
#define gv_AVadd Perl_gv_AVadd
#define gv_HVadd Perl_gv_HVadd
#define gv_IOadd Perl_gv_IOadd
@@ -249,7 +210,6 @@
#define hv_undef Perl_hv_undef
#define ibcmp Perl_ibcmp
#define ibcmp_locale Perl_ibcmp_locale
-#define inc_amg Perl_inc_amg
#define ingroup Perl_ingroup
#define init_stacks Perl_init_stacks
#define init_thread_intern Perl_init_thread_intern
@@ -285,20 +245,14 @@
#define is_utf8_upper Perl_is_utf8_upper
#define jmaybe Perl_jmaybe
#define keyword Perl_keyword
-#define know_next Perl_know_next
-#define le_amg Perl_le_amg
#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 log_amg Perl_log_amg
#define looks_like_number Perl_looks_like_number
-#define lshift_amg Perl_lshift_amg
-#define lshift_ass_amg Perl_lshift_ass_amg
-#define lt_amg Perl_lt_amg
#define magic_clear_all_env Perl_magic_clear_all_env
#define magic_clearenv Perl_magic_clearenv
#define magic_clearpack Perl_magic_clearpack
@@ -360,13 +314,9 @@
#define mg_set Perl_mg_set
#define mg_size Perl_mg_size
#define mod Perl_mod
-#define mod_amg Perl_mod_amg
-#define mod_ass_amg Perl_mod_ass_amg
#define modkids Perl_modkids
#define moreswitches Perl_moreswitches
#define mstats Perl_mstats
-#define mult_amg Perl_mult_amg
-#define mult_ass_amg Perl_mult_ass_amg
#define my Perl_my
#define my_bcopy Perl_my_bcopy
#define my_bzero Perl_my_bzero
@@ -384,9 +334,6 @@
#define my_stat Perl_my_stat
#define my_swap Perl_my_swap
#define my_unexec Perl_my_unexec
-#define ncmp_amg Perl_ncmp_amg
-#define ne_amg Perl_ne_amg
-#define neg_amg Perl_neg_amg
#define newANONHASH Perl_newANONHASH
#define newANONLIST Perl_newANONLIST
#define newANONSUB Perl_newANONSUB
@@ -439,33 +386,13 @@
#define new_struct_thread Perl_new_struct_thread
#define nextargv Perl_nextargv
#define ninstr Perl_ninstr
-#define no_aelem Perl_no_aelem
-#define no_dir_func Perl_no_dir_func
#define no_fh_allowed Perl_no_fh_allowed
-#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_myglob Perl_no_myglob
#define no_op Perl_no_op
-#define no_security Perl_no_security
-#define no_sock_func Perl_no_sock_func
-#define no_symref Perl_no_symref
-#define no_usym Perl_no_usym
-#define no_wrongref Perl_no_wrongref
-#define nointrp Perl_nointrp
-#define nomem Perl_nomem
-#define nomethod_amg Perl_nomethod_amg
-#define not_amg Perl_not_amg
-#define numer_amg Perl_numer_amg
#define oopsAV Perl_oopsAV
#define oopsCV Perl_oopsCV
#define oopsHV Perl_oopsHV
#define op_const_sv Perl_op_const_sv
-#define op_desc Perl_op_desc
#define op_free Perl_op_free
-#define op_name Perl_op_name
-#define opargs Perl_opargs
#define package Perl_package
#define pad_alloc Perl_pad_alloc
#define pad_allocmy Perl_pad_allocmy
@@ -482,8 +409,6 @@
#define pmtrans Perl_pmtrans
#define pop_return Perl_pop_return
#define pop_scope Perl_pop_scope
-#define pow_amg Perl_pow_amg
-#define pow_ass_amg Perl_pow_ass_amg
#define pp_aassign Perl_pp_aassign
#define pp_abs Perl_pp_abs
#define pp_accept Perl_pp_accept
@@ -523,7 +448,6 @@
#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
@@ -542,15 +466,13 @@
#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
@@ -643,7 +565,6 @@
#define pp_i_subtract Perl_pp_i_subtract
#define pp_index Perl_pp_index
#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
@@ -671,7 +592,6 @@
#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
@@ -689,7 +609,6 @@
#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
@@ -834,30 +753,20 @@
#define pp_wantarray Perl_pp_wantarray
#define pp_warn Perl_pp_warn
#define pp_xor Perl_pp_xor
-#define ppaddr Perl_ppaddr
#define pregcomp Perl_pregcomp
#define pregexec Perl_pregexec
#define pregfree Perl_pregfree
#define prepend_elem Perl_prepend_elem
-#define psig_name Perl_psig_name
-#define psig_ptr Perl_psig_ptr
#define push_return Perl_push_return
#define push_scope Perl_push_scope
-#define q Perl_q
-#define reall_srchlen Perl_reall_srchlen
#define ref Perl_ref
#define refkids Perl_refkids
#define regdump Perl_regdump
#define regexec_flags Perl_regexec_flags
-#define regkind Perl_regkind
#define regnext Perl_regnext
#define regprop Perl_regprop
-#define repeat_amg Perl_repeat_amg
-#define repeat_ass_amg Perl_repeat_ass_amg
#define repeatcpy Perl_repeatcpy
#define rninstr Perl_rninstr
-#define rshift_amg Perl_rshift_amg
-#define rshift_ass_amg Perl_rshift_ass_amg
#define rsignal Perl_rsignal
#define rsignal_restore Perl_rsignal_restore
#define rsignal_save Perl_rsignal_save
@@ -910,7 +819,6 @@
#define savepv Perl_savepv
#define savepvn Perl_savepvn
#define savestack_grow Perl_savestack_grow
-#define saw_return Perl_saw_return
#define sawparens Perl_sawparens
#define scalar Perl_scalar
#define scalarkids Perl_scalarkids
@@ -930,32 +838,17 @@
#define scan_subst Perl_scan_subst
#define scan_trans Perl_scan_trans
#define scan_word Perl_scan_word
-#define scmp_amg Perl_scmp_amg
#define scope Perl_scope
#define screaminstr Perl_screaminstr
-#define seq_amg Perl_seq_amg
#define setdefout Perl_setdefout
#define setenv_getix Perl_setenv_getix
-#define sge_amg Perl_sge_amg
-#define sgt_amg Perl_sgt_amg
#define share_hek Perl_share_hek
#define sharepvn Perl_sharepvn
-#define sig_name Perl_sig_name
-#define sig_num Perl_sig_num
#define sighandler Perl_sighandler
-#define simple Perl_simple
-#define sin_amg Perl_sin_amg
#define skipspace Perl_skipspace
-#define sle_amg Perl_sle_amg
-#define slt_amg Perl_slt_amg
-#define sne_amg Perl_sne_amg
-#define sqrt_amg Perl_sqrt_amg
#define stack_grow Perl_stack_grow
#define start_subparse Perl_start_subparse
-#define string_amg Perl_string_amg
#define sub_crush_depth Perl_sub_crush_depth
-#define subtr_amg Perl_subtr_amg
-#define subtr_ass_amg Perl_subtr_ass_amg
#define sv_2bool Perl_sv_2bool
#define sv_2cv Perl_sv_2cv
#define sv_2io Perl_sv_2io
@@ -1073,63 +966,1196 @@
#define utf8skip Perl_utf8skip
#define utilize Perl_utilize
#define uv_to_utf8 Perl_uv_to_utf8
-#define varies Perl_varies
#define vivify_defelem Perl_vivify_defelem
#define vivify_ref Perl_vivify_ref
-#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_collxfrm Perl_vtbl_collxfrm
-#define vtbl_dbline Perl_vtbl_dbline
-#define vtbl_defelem Perl_vtbl_defelem
-#define vtbl_env Perl_vtbl_env
-#define vtbl_envelem Perl_vtbl_envelem
-#define vtbl_fm Perl_vtbl_fm
-#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_mutex Perl_vtbl_mutex
-#define vtbl_nkeys Perl_vtbl_nkeys
-#define vtbl_pack Perl_vtbl_pack
-#define vtbl_packelem Perl_vtbl_packelem
-#define vtbl_pos Perl_vtbl_pos
-#define vtbl_regexp Perl_vtbl_regexp
-#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 wait4pid Perl_wait4pid
#define warn Perl_warn
-#define warn_nl Perl_warn_nl
-#define warn_nosemi Perl_warn_nosemi
-#define warn_reserved Perl_warn_reserved
-#define warn_uninit Perl_warn_uninit
#define warner Perl_warner
#define watch Perl_watch
-#define watchaddr Perl_watchaddr
-#define watchok Perl_watchok
#define whichsig Perl_whichsig
-#define yycheck Perl_yycheck
-#define yydefred Perl_yydefred
#define yydestruct Perl_yydestruct
-#define yydgoto Perl_yydgoto
#define yyerror Perl_yyerror
-#define yygindex Perl_yygindex
-#define yylen Perl_yylen
#define yylex Perl_yylex
-#define yylhs Perl_yylhs
-#define yyname Perl_yyname
#define yyparse Perl_yyparse
-#define yyrindex Perl_yyrindex
-#define yyrule Perl_yyrule
-#define yysindex Perl_yysindex
-#define yytable Perl_yytable
#define yywarn Perl_yywarn
-#endif /* EMBED */
+#else /* PERL_OBJECT */
+
+#define Gv_AMupdate CPerlObj::Perl_Gv_AMupdate
+#define add_data CPerlObj::Perl_add_data
+#define amagic_call CPerlObj::Perl_amagic_call
+#define amagic_cmp CPerlObj::Perl_amagic_cmp
+#define amagic_cmp_locale CPerlObj::Perl_amagic_cmp_locale
+#define ao CPerlObj::Perl_ao
+#define append_elem CPerlObj::Perl_append_elem
+#define append_list CPerlObj::Perl_append_list
+#define apply CPerlObj::Perl_apply
+#define asIV CPerlObj::Perl_asIV
+#define asUV CPerlObj::Perl_asUV
+#define assertref CPerlObj::Perl_assertref
+#define av_clear CPerlObj::Perl_av_clear
+#define av_extend CPerlObj::Perl_av_extend
+#define av_fake CPerlObj::Perl_av_fake
+#define av_fetch CPerlObj::Perl_av_fetch
+#define av_fill CPerlObj::Perl_av_fill
+#define av_len CPerlObj::Perl_av_len
+#define av_make CPerlObj::Perl_av_make
+#define av_pop CPerlObj::Perl_av_pop
+#define av_push CPerlObj::Perl_av_push
+#define av_reify CPerlObj::Perl_av_reify
+#define av_shift CPerlObj::Perl_av_shift
+#define av_store CPerlObj::Perl_av_store
+#define av_undef CPerlObj::Perl_av_undef
+#define av_unshift CPerlObj::Perl_av_unshift
+#define avhv_exists_ent CPerlObj::Perl_avhv_exists_ent
+#define avhv_fetch_ent CPerlObj::Perl_avhv_fetch_ent
+#define avhv_index_sv CPerlObj::Perl_avhv_index_sv
+#define avhv_iternext CPerlObj::Perl_avhv_iternext
+#define avhv_iterval CPerlObj::Perl_avhv_iterval
+#define avhv_keys CPerlObj::Perl_avhv_keys
+#define bad_type CPerlObj::Perl_bad_type
+#define bind_match CPerlObj::Perl_bind_match
+#define block_end CPerlObj::Perl_block_end
+#define block_gimme CPerlObj::Perl_block_gimme
+#define block_start CPerlObj::Perl_block_start
+#define boot_core_UNIVERSAL CPerlObj::Perl_boot_core_UNIVERSAL
+#define bset_obj_store CPerlObj::Perl_bset_obj_store
+#define bset_obj_store CPerlObj::Perl_bset_obj_store
+#define byterun CPerlObj::Perl_byterun
+#define cache_re CPerlObj::Perl_cache_re
+#define call_list CPerlObj::Perl_call_list
+#define cando CPerlObj::Perl_cando
+#define cast_i32 CPerlObj::Perl_cast_i32
+#define cast_iv CPerlObj::Perl_cast_iv
+#define cast_ulong CPerlObj::Perl_cast_ulong
+#define cast_uv CPerlObj::Perl_cast_uv
+#define check_uni CPerlObj::Perl_check_uni
+#define check_uni CPerlObj::Perl_check_uni
+#define checkcomma CPerlObj::Perl_checkcomma
+#define checkcomma CPerlObj::Perl_checkcomma
+#define ck_aelem CPerlObj::Perl_ck_aelem
+#define ck_anoncode CPerlObj::Perl_ck_anoncode
+#define ck_bitop CPerlObj::Perl_ck_bitop
+#define ck_concat CPerlObj::Perl_ck_concat
+#define ck_delete CPerlObj::Perl_ck_delete
+#define ck_eof CPerlObj::Perl_ck_eof
+#define ck_eval CPerlObj::Perl_ck_eval
+#define ck_exec CPerlObj::Perl_ck_exec
+#define ck_exists CPerlObj::Perl_ck_exists
+#define ck_ftst CPerlObj::Perl_ck_ftst
+#define ck_fun CPerlObj::Perl_ck_fun
+#define ck_fun_locale CPerlObj::Perl_ck_fun_locale
+#define ck_glob CPerlObj::Perl_ck_glob
+#define ck_grep CPerlObj::Perl_ck_grep
+#define ck_index CPerlObj::Perl_ck_index
+#define ck_lengthconst CPerlObj::Perl_ck_lengthconst
+#define ck_lfun CPerlObj::Perl_ck_lfun
+#define ck_listiob CPerlObj::Perl_ck_listiob
+#define ck_match CPerlObj::Perl_ck_match
+#define ck_null CPerlObj::Perl_ck_null
+#define ck_repeat CPerlObj::Perl_ck_repeat
+#define ck_require CPerlObj::Perl_ck_require
+#define ck_rfun CPerlObj::Perl_ck_rfun
+#define ck_rvconst CPerlObj::Perl_ck_rvconst
+#define ck_scmp CPerlObj::Perl_ck_scmp
+#define ck_select CPerlObj::Perl_ck_select
+#define ck_shift CPerlObj::Perl_ck_shift
+#define ck_sort CPerlObj::Perl_ck_sort
+#define ck_spair CPerlObj::Perl_ck_spair
+#define ck_split CPerlObj::Perl_ck_split
+#define ck_subr CPerlObj::Perl_ck_subr
+#define ck_svconst CPerlObj::Perl_ck_svconst
+#define ck_trunc CPerlObj::Perl_ck_trunc
+#define condpair_magic CPerlObj::Perl_condpair_magic
+#define convert CPerlObj::Perl_convert
+#define croak CPerlObj::Perl_croak
+#define cv_ckproto CPerlObj::Perl_cv_ckproto
+#define cv_clone CPerlObj::Perl_cv_clone
+#define cv_clone2 CPerlObj::Perl_cv_clone2
+#define cv_const_sv CPerlObj::Perl_cv_const_sv
+#define cv_undef CPerlObj::Perl_cv_undef
+#define cx_dump CPerlObj::Perl_cx_dump
+#define cxinc CPerlObj::Perl_cxinc
+#define deb CPerlObj::Perl_deb
+#define deb_growlevel CPerlObj::Perl_deb_growlevel
+#define debop CPerlObj::Perl_debop
+#define debprof CPerlObj::Perl_debprof
+#define debprofdump CPerlObj::Perl_debprofdump
+#define debstack CPerlObj::Perl_debstack
+#define debstackptrs CPerlObj::Perl_debstackptrs
+#define del_he CPerlObj::Perl_del_he
+#define del_sv CPerlObj::Perl_del_sv
+#define del_xiv CPerlObj::Perl_del_xiv
+#define del_xnv CPerlObj::Perl_del_xnv
+#define del_xpv CPerlObj::Perl_del_xpv
+#define del_xrv CPerlObj::Perl_del_xrv
+#define delimcpy CPerlObj::Perl_delimcpy
+#define depcom CPerlObj::Perl_depcom
+#define deprecate CPerlObj::Perl_deprecate
+#define die CPerlObj::Perl_die
+#define die_where CPerlObj::Perl_die_where
+#define div128 CPerlObj::Perl_div128
+#define do_aexec CPerlObj::Perl_do_aexec
+#define do_aspawn CPerlObj::Perl_do_aspawn
+#define do_binmode CPerlObj::Perl_do_binmode
+#define do_chomp CPerlObj::Perl_do_chomp
+#define do_chop CPerlObj::Perl_do_chop
+#define do_clean_all CPerlObj::Perl_do_clean_all
+#define do_clean_named_objs CPerlObj::Perl_do_clean_named_objs
+#define do_clean_objs CPerlObj::Perl_do_clean_objs
+#define do_close CPerlObj::Perl_do_close
+#define do_eof CPerlObj::Perl_do_eof
+#define do_exec CPerlObj::Perl_do_exec
+#define do_execfree CPerlObj::Perl_do_execfree
+#define do_ipcctl CPerlObj::Perl_do_ipcctl
+#define do_ipcget CPerlObj::Perl_do_ipcget
+#define do_join CPerlObj::Perl_do_join
+#define do_kv CPerlObj::Perl_do_kv
+#define do_msgrcv CPerlObj::Perl_do_msgrcv
+#define do_msgsnd CPerlObj::Perl_do_msgsnd
+#define do_open CPerlObj::Perl_do_open
+#define do_pipe CPerlObj::Perl_do_pipe
+#define do_print CPerlObj::Perl_do_print
+#define do_readline CPerlObj::Perl_do_readline
+#define do_report_used CPerlObj::Perl_do_report_used
+#define do_seek CPerlObj::Perl_do_seek
+#define do_semop CPerlObj::Perl_do_semop
+#define do_shmio CPerlObj::Perl_do_shmio
+#define do_sprintf CPerlObj::Perl_do_sprintf
+#define do_sysseek CPerlObj::Perl_do_sysseek
+#define do_tell CPerlObj::Perl_do_tell
+#define do_trans CPerlObj::Perl_do_trans
+#define do_trans_CC_complex CPerlObj::Perl_do_trans_CC_complex
+#define do_trans_CC_count CPerlObj::Perl_do_trans_CC_count
+#define do_trans_CC_simple CPerlObj::Perl_do_trans_CC_simple
+#define do_trans_CU_simple CPerlObj::Perl_do_trans_CU_simple
+#define do_trans_CU_trivial CPerlObj::Perl_do_trans_CU_trivial
+#define do_trans_UC_simple CPerlObj::Perl_do_trans_UC_simple
+#define do_trans_UC_trivial CPerlObj::Perl_do_trans_UC_trivial
+#define do_trans_UU_complex CPerlObj::Perl_do_trans_UU_complex
+#define do_trans_UU_count CPerlObj::Perl_do_trans_UU_count
+#define do_trans_UU_simple CPerlObj::Perl_do_trans_UU_simple
+#define do_vecset CPerlObj::Perl_do_vecset
+#define do_vop CPerlObj::Perl_do_vop
+#define docatch CPerlObj::Perl_docatch
+#define doencodes CPerlObj::Perl_doencodes
+#define doeval CPerlObj::Perl_doeval
+#define dofile CPerlObj::Perl_dofile
+#define dofindlabel CPerlObj::Perl_dofindlabel
+#define dofindlabel CPerlObj::Perl_dofindlabel
+#define doform CPerlObj::Perl_doform
+#define doparseform CPerlObj::Perl_doparseform
+#define dopoptoeval CPerlObj::Perl_dopoptoeval
+#define dopoptoeval CPerlObj::Perl_dopoptoeval
+#define dopoptolabel CPerlObj::Perl_dopoptolabel
+#define dopoptoloop CPerlObj::Perl_dopoptoloop
+#define dopoptosub CPerlObj::Perl_dopoptosub
+#define dopoptosub_at CPerlObj::Perl_dopoptosub_at
+#define dounwind CPerlObj::Perl_dounwind
+#define dowantarray CPerlObj::Perl_dowantarray
+#define dump CPerlObj::Perl_dump
+#define dump_all CPerlObj::Perl_dump_all
+#define dump_eval CPerlObj::Perl_dump_eval
+#define dump_fds CPerlObj::Perl_dump_fds
+#define dump_form CPerlObj::Perl_dump_form
+#define dump_gv CPerlObj::Perl_dump_gv
+#define dump_mstats CPerlObj::Perl_dump_mstats
+#define dump_op CPerlObj::Perl_dump_op
+#define dump_packsubs CPerlObj::Perl_dump_packsubs
+#define dump_pm CPerlObj::Perl_dump_pm
+#define dump_sub CPerlObj::Perl_dump_sub
+#define dumpuntil CPerlObj::Perl_dumpuntil
+#define emulate_eaccess CPerlObj::Perl_emulate_eaccess
+#define fbm_compile CPerlObj::Perl_fbm_compile
+#define fbm_instr CPerlObj::Perl_fbm_instr
+#define fetch_gv CPerlObj::Perl_fetch_gv
+#define fetch_io CPerlObj::Perl_fetch_io
+#define filter_add CPerlObj::Perl_filter_add
+#define filter_del CPerlObj::Perl_filter_del
+#define filter_gets CPerlObj::Perl_filter_gets
+#define filter_read CPerlObj::Perl_filter_read
+#define find_beginning CPerlObj::Perl_find_beginning
+#define find_script CPerlObj::Perl_find_script
+#define find_threadsv CPerlObj::Perl_find_threadsv
+#define fold_constants CPerlObj::Perl_fold_constants
+#define forbid_setid CPerlObj::Perl_forbid_setid
+#define force_ident CPerlObj::Perl_force_ident
+#define force_ident CPerlObj::Perl_force_ident
+#define force_list CPerlObj::Perl_force_list
+#define force_next CPerlObj::Perl_force_next
+#define force_next CPerlObj::Perl_force_next
+#define force_version CPerlObj::Perl_force_version
+#define force_word CPerlObj::Perl_force_word
+#define force_word CPerlObj::Perl_force_word
+#define form CPerlObj::Perl_form
+#define fprintf CPerlObj::Perl_fprintf
+#define free_tmps CPerlObj::Perl_free_tmps
+#define gen_constant_list CPerlObj::Perl_gen_constant_list
+#define get_db_sub CPerlObj::Perl_get_db_sub
+#define get_no_modify CPerlObj::Perl_get_no_modify
+#define get_op_descs CPerlObj::Perl_get_op_descs
+#define get_op_names CPerlObj::Perl_get_op_names
+#define get_opargs CPerlObj::Perl_get_opargs
+#define get_specialsv_list CPerlObj::Perl_get_specialsv_list
+#define gp_free CPerlObj::Perl_gp_free
+#define gp_ref CPerlObj::Perl_gp_ref
+#define gv_AVadd CPerlObj::Perl_gv_AVadd
+#define gv_HVadd CPerlObj::Perl_gv_HVadd
+#define gv_IOadd CPerlObj::Perl_gv_IOadd
+#define gv_autoload4 CPerlObj::Perl_gv_autoload4
+#define gv_check CPerlObj::Perl_gv_check
+#define gv_efullname CPerlObj::Perl_gv_efullname
+#define gv_efullname3 CPerlObj::Perl_gv_efullname3
+#define gv_ename CPerlObj::Perl_gv_ename
+#define gv_fetchfile CPerlObj::Perl_gv_fetchfile
+#define gv_fetchmeth CPerlObj::Perl_gv_fetchmeth
+#define gv_fetchmethod CPerlObj::Perl_gv_fetchmethod
+#define gv_fetchmethod_autoload CPerlObj::Perl_gv_fetchmethod_autoload
+#define gv_fetchpv CPerlObj::Perl_gv_fetchpv
+#define gv_fullname CPerlObj::Perl_gv_fullname
+#define gv_fullname3 CPerlObj::Perl_gv_fullname3
+#define gv_init CPerlObj::Perl_gv_init
+#define gv_init_sv CPerlObj::Perl_gv_init_sv
+#define gv_stashpv CPerlObj::Perl_gv_stashpv
+#define gv_stashpvn CPerlObj::Perl_gv_stashpvn
+#define gv_stashsv CPerlObj::Perl_gv_stashsv
+#define hfreeentries CPerlObj::Perl_hfreeentries
+#define hsplit CPerlObj::Perl_hsplit
+#define hv_clear CPerlObj::Perl_hv_clear
+#define hv_delayfree_ent CPerlObj::Perl_hv_delayfree_ent
+#define hv_delete CPerlObj::Perl_hv_delete
+#define hv_delete_ent CPerlObj::Perl_hv_delete_ent
+#define hv_exists CPerlObj::Perl_hv_exists
+#define hv_exists_ent CPerlObj::Perl_hv_exists_ent
+#define hv_fetch CPerlObj::Perl_hv_fetch
+#define hv_fetch_ent CPerlObj::Perl_hv_fetch_ent
+#define hv_free_ent CPerlObj::Perl_hv_free_ent
+#define hv_iterinit CPerlObj::Perl_hv_iterinit
+#define hv_iterkey CPerlObj::Perl_hv_iterkey
+#define hv_iterkeysv CPerlObj::Perl_hv_iterkeysv
+#define hv_iternext CPerlObj::Perl_hv_iternext
+#define hv_iternextsv CPerlObj::Perl_hv_iternextsv
+#define hv_iterval CPerlObj::Perl_hv_iterval
+#define hv_ksplit CPerlObj::Perl_hv_ksplit
+#define hv_magic CPerlObj::Perl_hv_magic
+#define hv_stashpv CPerlObj::Perl_hv_stashpv
+#define hv_store CPerlObj::Perl_hv_store
+#define hv_store_ent CPerlObj::Perl_hv_store_ent
+#define hv_undef CPerlObj::Perl_hv_undef
+#define ibcmp CPerlObj::Perl_ibcmp
+#define ibcmp_locale CPerlObj::Perl_ibcmp_locale
+#define incl_perldb CPerlObj::Perl_incl_perldb
+#define incline CPerlObj::Perl_incline
+#define incpush CPerlObj::Perl_incpush
+#define ingroup CPerlObj::Perl_ingroup
+#define init_debugger CPerlObj::Perl_init_debugger
+#define init_ids CPerlObj::Perl_init_ids
+#define init_interp CPerlObj::Perl_init_interp
+#define init_lexer CPerlObj::Perl_init_lexer
+#define init_main_stash CPerlObj::Perl_init_main_stash
+#define init_perllib CPerlObj::Perl_init_perllib
+#define init_postdump_symbols CPerlObj::Perl_init_postdump_symbols
+#define init_predump_symbols CPerlObj::Perl_init_predump_symbols
+#define init_stacks CPerlObj::Perl_init_stacks
+#define init_thread_intern CPerlObj::Perl_init_thread_intern
+#define instr CPerlObj::Perl_instr
+#define intro_my CPerlObj::Perl_intro_my
+#define intuit_method CPerlObj::Perl_intuit_method
+#define intuit_more CPerlObj::Perl_intuit_more
+#define intuit_more CPerlObj::Perl_intuit_more
+#define invert CPerlObj::Perl_invert
+#define io_close CPerlObj::Perl_io_close
+#define is_an_int CPerlObj::Perl_is_an_int
+#define is_uni_alnum CPerlObj::Perl_is_uni_alnum
+#define is_uni_alnum_lc CPerlObj::Perl_is_uni_alnum_lc
+#define is_uni_alpha CPerlObj::Perl_is_uni_alpha
+#define is_uni_alpha_lc CPerlObj::Perl_is_uni_alpha_lc
+#define is_uni_digit CPerlObj::Perl_is_uni_digit
+#define is_uni_digit_lc CPerlObj::Perl_is_uni_digit_lc
+#define is_uni_idfirst CPerlObj::Perl_is_uni_idfirst
+#define is_uni_idfirst_lc CPerlObj::Perl_is_uni_idfirst_lc
+#define is_uni_lower CPerlObj::Perl_is_uni_lower
+#define is_uni_lower_lc CPerlObj::Perl_is_uni_lower_lc
+#define is_uni_print CPerlObj::Perl_is_uni_print
+#define is_uni_print_lc CPerlObj::Perl_is_uni_print_lc
+#define is_uni_space CPerlObj::Perl_is_uni_space
+#define is_uni_space_lc CPerlObj::Perl_is_uni_space_lc
+#define is_uni_upper CPerlObj::Perl_is_uni_upper
+#define is_uni_upper_lc CPerlObj::Perl_is_uni_upper_lc
+#define is_utf8_alnum CPerlObj::Perl_is_utf8_alnum
+#define is_utf8_alpha CPerlObj::Perl_is_utf8_alpha
+#define is_utf8_digit CPerlObj::Perl_is_utf8_digit
+#define is_utf8_idfirst CPerlObj::Perl_is_utf8_idfirst
+#define is_utf8_lower CPerlObj::Perl_is_utf8_lower
+#define is_utf8_mark CPerlObj::Perl_is_utf8_mark
+#define is_utf8_print CPerlObj::Perl_is_utf8_print
+#define is_utf8_space CPerlObj::Perl_is_utf8_space
+#define is_utf8_upper CPerlObj::Perl_is_utf8_upper
+#define isa_lookup CPerlObj::Perl_isa_lookup
+#define jmaybe CPerlObj::Perl_jmaybe
+#define keyword CPerlObj::Perl_keyword
+#define leave_scope CPerlObj::Perl_leave_scope
+#define lex_end CPerlObj::Perl_lex_end
+#define lex_start CPerlObj::Perl_lex_start
+#define linklist CPerlObj::Perl_linklist
+#define list CPerlObj::Perl_list
+#define list_assignment CPerlObj::Perl_list_assignment
+#define listkids CPerlObj::Perl_listkids
+#define localize CPerlObj::Perl_localize
+#define looks_like_number CPerlObj::Perl_looks_like_number
+#define lop CPerlObj::Perl_lop
+#define magic_clear_all_env CPerlObj::Perl_magic_clear_all_env
+#define magic_clearenv CPerlObj::Perl_magic_clearenv
+#define magic_clearpack CPerlObj::Perl_magic_clearpack
+#define magic_clearsig CPerlObj::Perl_magic_clearsig
+#define magic_existspack CPerlObj::Perl_magic_existspack
+#define magic_freeregexp CPerlObj::Perl_magic_freeregexp
+#define magic_get CPerlObj::Perl_magic_get
+#define magic_getarylen CPerlObj::Perl_magic_getarylen
+#define magic_getdefelem CPerlObj::Perl_magic_getdefelem
+#define magic_getglob CPerlObj::Perl_magic_getglob
+#define magic_getnkeys CPerlObj::Perl_magic_getnkeys
+#define magic_getpack CPerlObj::Perl_magic_getpack
+#define magic_getpos CPerlObj::Perl_magic_getpos
+#define magic_getsig CPerlObj::Perl_magic_getsig
+#define magic_getsubstr CPerlObj::Perl_magic_getsubstr
+#define magic_gettaint CPerlObj::Perl_magic_gettaint
+#define magic_getuvar CPerlObj::Perl_magic_getuvar
+#define magic_getvec CPerlObj::Perl_magic_getvec
+#define magic_len CPerlObj::Perl_magic_len
+#define magic_methcall CPerlObj::Perl_magic_methcall
+#define magic_methcall CPerlObj::Perl_magic_methcall
+#define magic_methpack CPerlObj::Perl_magic_methpack
+#define magic_mutexfree CPerlObj::Perl_magic_mutexfree
+#define magic_nextpack CPerlObj::Perl_magic_nextpack
+#define magic_regdata_cnt CPerlObj::Perl_magic_regdata_cnt
+#define magic_regdatum_get CPerlObj::Perl_magic_regdatum_get
+#define magic_set CPerlObj::Perl_magic_set
+#define magic_set_all_env CPerlObj::Perl_magic_set_all_env
+#define magic_setamagic CPerlObj::Perl_magic_setamagic
+#define magic_setarylen CPerlObj::Perl_magic_setarylen
+#define magic_setbm CPerlObj::Perl_magic_setbm
+#define magic_setcollxfrm CPerlObj::Perl_magic_setcollxfrm
+#define magic_setdbline CPerlObj::Perl_magic_setdbline
+#define magic_setdefelem CPerlObj::Perl_magic_setdefelem
+#define magic_setenv CPerlObj::Perl_magic_setenv
+#define magic_setfm CPerlObj::Perl_magic_setfm
+#define magic_setglob CPerlObj::Perl_magic_setglob
+#define magic_setisa CPerlObj::Perl_magic_setisa
+#define magic_setmglob CPerlObj::Perl_magic_setmglob
+#define magic_setnkeys CPerlObj::Perl_magic_setnkeys
+#define magic_setpack CPerlObj::Perl_magic_setpack
+#define magic_setpos CPerlObj::Perl_magic_setpos
+#define magic_setsig CPerlObj::Perl_magic_setsig
+#define magic_setsubstr CPerlObj::Perl_magic_setsubstr
+#define magic_settaint CPerlObj::Perl_magic_settaint
+#define magic_setuvar CPerlObj::Perl_magic_setuvar
+#define magic_setvec CPerlObj::Perl_magic_setvec
+#define magic_sizepack CPerlObj::Perl_magic_sizepack
+#define magic_wipepack CPerlObj::Perl_magic_wipepack
+#define magicname CPerlObj::Perl_magicname
+#define malloced_size CPerlObj::Perl_malloced_size
+#define markstack_grow CPerlObj::Perl_markstack_grow
+#define mem_collxfrm CPerlObj::Perl_mem_collxfrm
+#define mess CPerlObj::Perl_mess
+#define mess_alloc CPerlObj::Perl_mess_alloc
+#define mg_clear CPerlObj::Perl_mg_clear
+#define mg_copy CPerlObj::Perl_mg_copy
+#define mg_find CPerlObj::Perl_mg_find
+#define mg_free CPerlObj::Perl_mg_free
+#define mg_get CPerlObj::Perl_mg_get
+#define mg_length CPerlObj::Perl_mg_length
+#define mg_magical CPerlObj::Perl_mg_magical
+#define mg_set CPerlObj::Perl_mg_set
+#define mg_size CPerlObj::Perl_mg_size
+#define missingterm CPerlObj::Perl_missingterm
+#define mod CPerlObj::Perl_mod
+#define modkids CPerlObj::Perl_modkids
+#define modkids CPerlObj::Perl_modkids
+#define more_he CPerlObj::Perl_more_he
+#define more_sv CPerlObj::Perl_more_sv
+#define more_xiv CPerlObj::Perl_more_xiv
+#define more_xnv CPerlObj::Perl_more_xnv
+#define more_xpv CPerlObj::Perl_more_xpv
+#define more_xrv CPerlObj::Perl_more_xrv
+#define moreswitches CPerlObj::Perl_moreswitches
+#define mstats CPerlObj::Perl_mstats
+#define mul128 CPerlObj::Perl_mul128
+#define my CPerlObj::Perl_my
+#define my_bcopy CPerlObj::Perl_my_bcopy
+#define my_bzero CPerlObj::Perl_my_bzero
+#define my_chsize CPerlObj::Perl_my_chsize
+#define my_exit CPerlObj::Perl_my_exit
+#define my_exit_jump CPerlObj::Perl_my_exit_jump
+#define my_failure_exit CPerlObj::Perl_my_failure_exit
+#define my_htonl CPerlObj::Perl_my_htonl
+#define my_lstat CPerlObj::Perl_my_lstat
+#define my_memcmp CPerlObj::Perl_my_memcmp
+#define my_memset CPerlObj::Perl_my_memset
+#define my_ntohl CPerlObj::Perl_my_ntohl
+#define my_pclose CPerlObj::Perl_my_pclose
+#define my_popen CPerlObj::Perl_my_popen
+#define my_safemalloc CPerlObj::Perl_my_safemalloc
+#define my_setenv CPerlObj::Perl_my_setenv
+#define my_stat CPerlObj::Perl_my_stat
+#define my_swap CPerlObj::Perl_my_swap
+#define my_unexec CPerlObj::Perl_my_unexec
+#define newANONHASH CPerlObj::Perl_newANONHASH
+#define newANONLIST CPerlObj::Perl_newANONLIST
+#define newANONSUB CPerlObj::Perl_newANONSUB
+#define newASSIGNOP CPerlObj::Perl_newASSIGNOP
+#define newAV CPerlObj::Perl_newAV
+#define newAVREF CPerlObj::Perl_newAVREF
+#define newBINOP CPerlObj::Perl_newBINOP
+#define newCONDOP CPerlObj::Perl_newCONDOP
+#define newCONSTSUB CPerlObj::Perl_newCONSTSUB
+#define newCVREF CPerlObj::Perl_newCVREF
+#define newDEFSVOP CPerlObj::Perl_newDEFSVOP
+#define newFORM CPerlObj::Perl_newFORM
+#define newFOROP CPerlObj::Perl_newFOROP
+#define newGVOP CPerlObj::Perl_newGVOP
+#define newGVREF CPerlObj::Perl_newGVREF
+#define newGVgen CPerlObj::Perl_newGVgen
+#define newHV CPerlObj::Perl_newHV
+#define newHVREF CPerlObj::Perl_newHVREF
+#define newHVhv CPerlObj::Perl_newHVhv
+#define newIO CPerlObj::Perl_newIO
+#define newLISTOP CPerlObj::Perl_newLISTOP
+#define newLOGOP CPerlObj::Perl_newLOGOP
+#define newLOOPEX CPerlObj::Perl_newLOOPEX
+#define newLOOPOP CPerlObj::Perl_newLOOPOP
+#define newNULLLIST CPerlObj::Perl_newNULLLIST
+#define newOP CPerlObj::Perl_newOP
+#define newPMOP CPerlObj::Perl_newPMOP
+#define newPROG CPerlObj::Perl_newPROG
+#define newPVOP CPerlObj::Perl_newPVOP
+#define newRANGE CPerlObj::Perl_newRANGE
+#define newRV CPerlObj::Perl_newRV
+#define newRV_noinc CPerlObj::Perl_newRV_noinc
+#define newSLICEOP CPerlObj::Perl_newSLICEOP
+#define newSTATEOP CPerlObj::Perl_newSTATEOP
+#define newSUB CPerlObj::Perl_newSUB
+#define newSV CPerlObj::Perl_newSV
+#define newSVOP CPerlObj::Perl_newSVOP
+#define newSVREF CPerlObj::Perl_newSVREF
+#define newSViv CPerlObj::Perl_newSViv
+#define newSVnv CPerlObj::Perl_newSVnv
+#define newSVpv CPerlObj::Perl_newSVpv
+#define newSVpvf CPerlObj::Perl_newSVpvf
+#define newSVpvn CPerlObj::Perl_newSVpvn
+#define newSVrv CPerlObj::Perl_newSVrv
+#define newSVsv CPerlObj::Perl_newSVsv
+#define newUNOP CPerlObj::Perl_newUNOP
+#define newWHILEOP CPerlObj::Perl_newWHILEOP
+#define newXS CPerlObj::Perl_newXS
+#define newXSUB CPerlObj::Perl_newXSUB
+#define new_constant CPerlObj::Perl_new_constant
+#define new_he CPerlObj::Perl_new_he
+#define new_logop CPerlObj::Perl_new_logop
+#define new_stackinfo CPerlObj::Perl_new_stackinfo
+#define new_struct_thread CPerlObj::Perl_new_struct_thread
+#define new_xiv CPerlObj::Perl_new_xiv
+#define new_xnv CPerlObj::Perl_new_xnv
+#define new_xpv CPerlObj::Perl_new_xpv
+#define new_xrv CPerlObj::Perl_new_xrv
+#define nextargv CPerlObj::Perl_nextargv
+#define nextchar CPerlObj::Perl_nextchar
+#define ninstr CPerlObj::Perl_ninstr
+#define no_fh_allowed CPerlObj::Perl_no_fh_allowed
+#define no_fh_allowed CPerlObj::Perl_no_fh_allowed
+#define no_op CPerlObj::Perl_no_op
+#define no_op CPerlObj::Perl_no_op
+#define not_a_number CPerlObj::Perl_not_a_number
+#define nuke_stacks CPerlObj::Perl_nuke_stacks
+#define null CPerlObj::Perl_null
+#define oopsAV CPerlObj::Perl_oopsAV
+#define oopsCV CPerlObj::Perl_oopsCV
+#define oopsHV CPerlObj::Perl_oopsHV
+#define op_const_sv CPerlObj::Perl_op_const_sv
+#define op_free CPerlObj::Perl_op_free
+#define open_script CPerlObj::Perl_open_script
+#define package CPerlObj::Perl_package
+#define pad_alloc CPerlObj::Perl_pad_alloc
+#define pad_allocmy CPerlObj::Perl_pad_allocmy
+#define pad_findlex CPerlObj::Perl_pad_findlex
+#define pad_findmy CPerlObj::Perl_pad_findmy
+#define pad_free CPerlObj::Perl_pad_free
+#define pad_leavemy CPerlObj::Perl_pad_leavemy
+#define pad_reset CPerlObj::Perl_pad_reset
+#define pad_sv CPerlObj::Perl_pad_sv
+#define pad_swipe CPerlObj::Perl_pad_swipe
+#define peep CPerlObj::Perl_peep
+#define perl_atexit CPerlObj::perl_atexit
+#define perl_call_argv CPerlObj::perl_call_argv
+#define perl_call_method CPerlObj::perl_call_method
+#define perl_call_pv CPerlObj::perl_call_pv
+#define perl_call_sv CPerlObj::perl_call_sv
+#define perl_construct CPerlObj::perl_construct
+#define perl_destruct CPerlObj::perl_destruct
+#define perl_eval_pv CPerlObj::perl_eval_pv
+#define perl_eval_sv CPerlObj::perl_eval_sv
+#define perl_free CPerlObj::perl_free
+#define perl_get_av CPerlObj::perl_get_av
+#define perl_get_cv CPerlObj::perl_get_cv
+#define perl_get_hv CPerlObj::perl_get_hv
+#define perl_get_sv CPerlObj::perl_get_sv
+#define perl_init_i18nl10n CPerlObj::perl_init_i18nl10n
+#define perl_init_i18nl14n CPerlObj::perl_init_i18nl14n
+#define perl_new_collate CPerlObj::perl_new_collate
+#define perl_new_ctype CPerlObj::perl_new_ctype
+#define perl_new_numeric CPerlObj::perl_new_numeric
+#define perl_parse CPerlObj::perl_parse
+#define perl_require_pv CPerlObj::perl_require_pv
+#define perl_run CPerlObj::perl_run
+#define perl_set_numeric_local CPerlObj::perl_set_numeric_local
+#define perl_set_numeric_standard CPerlObj::perl_set_numeric_standard
+#define pidgone CPerlObj::Perl_pidgone
+#define pmflag CPerlObj::Perl_pmflag
+#define pmruntime CPerlObj::Perl_pmruntime
+#define pmtrans CPerlObj::Perl_pmtrans
+#define pop_return CPerlObj::Perl_pop_return
+#define pop_scope CPerlObj::Perl_pop_scope
+#define pp_aassign CPerlObj::Perl_pp_aassign
+#define pp_abs CPerlObj::Perl_pp_abs
+#define pp_accept CPerlObj::Perl_pp_accept
+#define pp_add CPerlObj::Perl_pp_add
+#define pp_aelem CPerlObj::Perl_pp_aelem
+#define pp_aelemfast CPerlObj::Perl_pp_aelemfast
+#define pp_alarm CPerlObj::Perl_pp_alarm
+#define pp_and CPerlObj::Perl_pp_and
+#define pp_andassign CPerlObj::Perl_pp_andassign
+#define pp_anoncode CPerlObj::Perl_pp_anoncode
+#define pp_anonhash CPerlObj::Perl_pp_anonhash
+#define pp_anonlist CPerlObj::Perl_pp_anonlist
+#define pp_aslice CPerlObj::Perl_pp_aslice
+#define pp_atan2 CPerlObj::Perl_pp_atan2
+#define pp_av2arylen CPerlObj::Perl_pp_av2arylen
+#define pp_backtick CPerlObj::Perl_pp_backtick
+#define pp_bind CPerlObj::Perl_pp_bind
+#define pp_binmode CPerlObj::Perl_pp_binmode
+#define pp_bit_and CPerlObj::Perl_pp_bit_and
+#define pp_bit_or CPerlObj::Perl_pp_bit_or
+#define pp_bit_xor CPerlObj::Perl_pp_bit_xor
+#define pp_bless CPerlObj::Perl_pp_bless
+#define pp_caller CPerlObj::Perl_pp_caller
+#define pp_chdir CPerlObj::Perl_pp_chdir
+#define pp_chmod CPerlObj::Perl_pp_chmod
+#define pp_chomp CPerlObj::Perl_pp_chomp
+#define pp_chop CPerlObj::Perl_pp_chop
+#define pp_chown CPerlObj::Perl_pp_chown
+#define pp_chr CPerlObj::Perl_pp_chr
+#define pp_chroot CPerlObj::Perl_pp_chroot
+#define pp_close CPerlObj::Perl_pp_close
+#define pp_closedir CPerlObj::Perl_pp_closedir
+#define pp_complement CPerlObj::Perl_pp_complement
+#define pp_concat CPerlObj::Perl_pp_concat
+#define pp_cond_expr CPerlObj::Perl_pp_cond_expr
+#define pp_connect CPerlObj::Perl_pp_connect
+#define pp_const CPerlObj::Perl_pp_const
+#define pp_cos CPerlObj::Perl_pp_cos
+#define pp_crypt CPerlObj::Perl_pp_crypt
+#define pp_dbmclose CPerlObj::Perl_pp_dbmclose
+#define pp_dbmopen CPerlObj::Perl_pp_dbmopen
+#define pp_dbstate CPerlObj::Perl_pp_dbstate
+#define pp_defined CPerlObj::Perl_pp_defined
+#define pp_delete CPerlObj::Perl_pp_delete
+#define pp_die CPerlObj::Perl_pp_die
+#define pp_divide CPerlObj::Perl_pp_divide
+#define pp_dofile CPerlObj::Perl_pp_dofile
+#define pp_dump CPerlObj::Perl_pp_dump
+#define pp_each CPerlObj::Perl_pp_each
+#define pp_egrent CPerlObj::Perl_pp_egrent
+#define pp_ehostent CPerlObj::Perl_pp_ehostent
+#define pp_enetent CPerlObj::Perl_pp_enetent
+#define pp_enter CPerlObj::Perl_pp_enter
+#define pp_entereval CPerlObj::Perl_pp_entereval
+#define pp_enteriter CPerlObj::Perl_pp_enteriter
+#define pp_enterloop CPerlObj::Perl_pp_enterloop
+#define pp_entersub CPerlObj::Perl_pp_entersub
+#define pp_entertry CPerlObj::Perl_pp_entertry
+#define pp_enterwrite CPerlObj::Perl_pp_enterwrite
+#define pp_eof CPerlObj::Perl_pp_eof
+#define pp_eprotoent CPerlObj::Perl_pp_eprotoent
+#define pp_epwent CPerlObj::Perl_pp_epwent
+#define pp_eq CPerlObj::Perl_pp_eq
+#define pp_eservent CPerlObj::Perl_pp_eservent
+#define pp_exec CPerlObj::Perl_pp_exec
+#define pp_exists CPerlObj::Perl_pp_exists
+#define pp_exit CPerlObj::Perl_pp_exit
+#define pp_exp CPerlObj::Perl_pp_exp
+#define pp_fcntl CPerlObj::Perl_pp_fcntl
+#define pp_fileno CPerlObj::Perl_pp_fileno
+#define pp_flip CPerlObj::Perl_pp_flip
+#define pp_flock CPerlObj::Perl_pp_flock
+#define pp_flop CPerlObj::Perl_pp_flop
+#define pp_fork CPerlObj::Perl_pp_fork
+#define pp_formline CPerlObj::Perl_pp_formline
+#define pp_ftatime CPerlObj::Perl_pp_ftatime
+#define pp_ftbinary CPerlObj::Perl_pp_ftbinary
+#define pp_ftblk CPerlObj::Perl_pp_ftblk
+#define pp_ftchr CPerlObj::Perl_pp_ftchr
+#define pp_ftctime CPerlObj::Perl_pp_ftctime
+#define pp_ftdir CPerlObj::Perl_pp_ftdir
+#define pp_fteexec CPerlObj::Perl_pp_fteexec
+#define pp_fteowned CPerlObj::Perl_pp_fteowned
+#define pp_fteread CPerlObj::Perl_pp_fteread
+#define pp_ftewrite CPerlObj::Perl_pp_ftewrite
+#define pp_ftfile CPerlObj::Perl_pp_ftfile
+#define pp_ftis CPerlObj::Perl_pp_ftis
+#define pp_ftlink CPerlObj::Perl_pp_ftlink
+#define pp_ftmtime CPerlObj::Perl_pp_ftmtime
+#define pp_ftpipe CPerlObj::Perl_pp_ftpipe
+#define pp_ftrexec CPerlObj::Perl_pp_ftrexec
+#define pp_ftrowned CPerlObj::Perl_pp_ftrowned
+#define pp_ftrread CPerlObj::Perl_pp_ftrread
+#define pp_ftrwrite CPerlObj::Perl_pp_ftrwrite
+#define pp_ftsgid CPerlObj::Perl_pp_ftsgid
+#define pp_ftsize CPerlObj::Perl_pp_ftsize
+#define pp_ftsock CPerlObj::Perl_pp_ftsock
+#define pp_ftsuid CPerlObj::Perl_pp_ftsuid
+#define pp_ftsvtx CPerlObj::Perl_pp_ftsvtx
+#define pp_fttext CPerlObj::Perl_pp_fttext
+#define pp_fttty CPerlObj::Perl_pp_fttty
+#define pp_ftzero CPerlObj::Perl_pp_ftzero
+#define pp_ge CPerlObj::Perl_pp_ge
+#define pp_gelem CPerlObj::Perl_pp_gelem
+#define pp_getc CPerlObj::Perl_pp_getc
+#define pp_getlogin CPerlObj::Perl_pp_getlogin
+#define pp_getpeername CPerlObj::Perl_pp_getpeername
+#define pp_getpgrp CPerlObj::Perl_pp_getpgrp
+#define pp_getppid CPerlObj::Perl_pp_getppid
+#define pp_getpriority CPerlObj::Perl_pp_getpriority
+#define pp_getsockname CPerlObj::Perl_pp_getsockname
+#define pp_ggrent CPerlObj::Perl_pp_ggrent
+#define pp_ggrgid CPerlObj::Perl_pp_ggrgid
+#define pp_ggrnam CPerlObj::Perl_pp_ggrnam
+#define pp_ghbyaddr CPerlObj::Perl_pp_ghbyaddr
+#define pp_ghbyname CPerlObj::Perl_pp_ghbyname
+#define pp_ghostent CPerlObj::Perl_pp_ghostent
+#define pp_glob CPerlObj::Perl_pp_glob
+#define pp_gmtime CPerlObj::Perl_pp_gmtime
+#define pp_gnbyaddr CPerlObj::Perl_pp_gnbyaddr
+#define pp_gnbyname CPerlObj::Perl_pp_gnbyname
+#define pp_gnetent CPerlObj::Perl_pp_gnetent
+#define pp_goto CPerlObj::Perl_pp_goto
+#define pp_gpbyname CPerlObj::Perl_pp_gpbyname
+#define pp_gpbynumber CPerlObj::Perl_pp_gpbynumber
+#define pp_gprotoent CPerlObj::Perl_pp_gprotoent
+#define pp_gpwent CPerlObj::Perl_pp_gpwent
+#define pp_gpwnam CPerlObj::Perl_pp_gpwnam
+#define pp_gpwuid CPerlObj::Perl_pp_gpwuid
+#define pp_grepstart CPerlObj::Perl_pp_grepstart
+#define pp_grepwhile CPerlObj::Perl_pp_grepwhile
+#define pp_gsbyname CPerlObj::Perl_pp_gsbyname
+#define pp_gsbyport CPerlObj::Perl_pp_gsbyport
+#define pp_gservent CPerlObj::Perl_pp_gservent
+#define pp_gsockopt CPerlObj::Perl_pp_gsockopt
+#define pp_gt CPerlObj::Perl_pp_gt
+#define pp_gv CPerlObj::Perl_pp_gv
+#define pp_gvsv CPerlObj::Perl_pp_gvsv
+#define pp_helem CPerlObj::Perl_pp_helem
+#define pp_hex CPerlObj::Perl_pp_hex
+#define pp_hslice CPerlObj::Perl_pp_hslice
+#define pp_i_add CPerlObj::Perl_pp_i_add
+#define pp_i_divide CPerlObj::Perl_pp_i_divide
+#define pp_i_eq CPerlObj::Perl_pp_i_eq
+#define pp_i_ge CPerlObj::Perl_pp_i_ge
+#define pp_i_gt CPerlObj::Perl_pp_i_gt
+#define pp_i_le CPerlObj::Perl_pp_i_le
+#define pp_i_lt CPerlObj::Perl_pp_i_lt
+#define pp_i_modulo CPerlObj::Perl_pp_i_modulo
+#define pp_i_multiply CPerlObj::Perl_pp_i_multiply
+#define pp_i_ncmp CPerlObj::Perl_pp_i_ncmp
+#define pp_i_ne CPerlObj::Perl_pp_i_ne
+#define pp_i_negate CPerlObj::Perl_pp_i_negate
+#define pp_i_subtract CPerlObj::Perl_pp_i_subtract
+#define pp_index CPerlObj::Perl_pp_index
+#define pp_int CPerlObj::Perl_pp_int
+#define pp_ioctl CPerlObj::Perl_pp_ioctl
+#define pp_iter CPerlObj::Perl_pp_iter
+#define pp_join CPerlObj::Perl_pp_join
+#define pp_keys CPerlObj::Perl_pp_keys
+#define pp_kill CPerlObj::Perl_pp_kill
+#define pp_last CPerlObj::Perl_pp_last
+#define pp_lc CPerlObj::Perl_pp_lc
+#define pp_lcfirst CPerlObj::Perl_pp_lcfirst
+#define pp_le CPerlObj::Perl_pp_le
+#define pp_leave CPerlObj::Perl_pp_leave
+#define pp_leaveeval CPerlObj::Perl_pp_leaveeval
+#define pp_leaveloop CPerlObj::Perl_pp_leaveloop
+#define pp_leavesub CPerlObj::Perl_pp_leavesub
+#define pp_leavetry CPerlObj::Perl_pp_leavetry
+#define pp_leavewrite CPerlObj::Perl_pp_leavewrite
+#define pp_left_shift CPerlObj::Perl_pp_left_shift
+#define pp_length CPerlObj::Perl_pp_length
+#define pp_lineseq CPerlObj::Perl_pp_lineseq
+#define pp_link CPerlObj::Perl_pp_link
+#define pp_list CPerlObj::Perl_pp_list
+#define pp_listen CPerlObj::Perl_pp_listen
+#define pp_localtime CPerlObj::Perl_pp_localtime
+#define pp_lock CPerlObj::Perl_pp_lock
+#define pp_log CPerlObj::Perl_pp_log
+#define pp_lslice CPerlObj::Perl_pp_lslice
+#define pp_lstat CPerlObj::Perl_pp_lstat
+#define pp_lt CPerlObj::Perl_pp_lt
+#define pp_mapstart CPerlObj::Perl_pp_mapstart
+#define pp_mapwhile CPerlObj::Perl_pp_mapwhile
+#define pp_match CPerlObj::Perl_pp_match
+#define pp_method CPerlObj::Perl_pp_method
+#define pp_mkdir CPerlObj::Perl_pp_mkdir
+#define pp_modulo CPerlObj::Perl_pp_modulo
+#define pp_msgctl CPerlObj::Perl_pp_msgctl
+#define pp_msgget CPerlObj::Perl_pp_msgget
+#define pp_msgrcv CPerlObj::Perl_pp_msgrcv
+#define pp_msgsnd CPerlObj::Perl_pp_msgsnd
+#define pp_multiply CPerlObj::Perl_pp_multiply
+#define pp_ncmp CPerlObj::Perl_pp_ncmp
+#define pp_ne CPerlObj::Perl_pp_ne
+#define pp_negate CPerlObj::Perl_pp_negate
+#define pp_next CPerlObj::Perl_pp_next
+#define pp_nextstate CPerlObj::Perl_pp_nextstate
+#define pp_not CPerlObj::Perl_pp_not
+#define pp_null CPerlObj::Perl_pp_null
+#define pp_oct CPerlObj::Perl_pp_oct
+#define pp_open CPerlObj::Perl_pp_open
+#define pp_open_dir CPerlObj::Perl_pp_open_dir
+#define pp_or CPerlObj::Perl_pp_or
+#define pp_orassign CPerlObj::Perl_pp_orassign
+#define pp_ord CPerlObj::Perl_pp_ord
+#define pp_pack CPerlObj::Perl_pp_pack
+#define pp_padany CPerlObj::Perl_pp_padany
+#define pp_padav CPerlObj::Perl_pp_padav
+#define pp_padhv CPerlObj::Perl_pp_padhv
+#define pp_padsv CPerlObj::Perl_pp_padsv
+#define pp_pipe_op CPerlObj::Perl_pp_pipe_op
+#define pp_pop CPerlObj::Perl_pp_pop
+#define pp_pos CPerlObj::Perl_pp_pos
+#define pp_postdec CPerlObj::Perl_pp_postdec
+#define pp_postinc CPerlObj::Perl_pp_postinc
+#define pp_pow CPerlObj::Perl_pp_pow
+#define pp_predec CPerlObj::Perl_pp_predec
+#define pp_preinc CPerlObj::Perl_pp_preinc
+#define pp_print CPerlObj::Perl_pp_print
+#define pp_prototype CPerlObj::Perl_pp_prototype
+#define pp_prtf CPerlObj::Perl_pp_prtf
+#define pp_push CPerlObj::Perl_pp_push
+#define pp_pushmark CPerlObj::Perl_pp_pushmark
+#define pp_pushre CPerlObj::Perl_pp_pushre
+#define pp_qr CPerlObj::Perl_pp_qr
+#define pp_quotemeta CPerlObj::Perl_pp_quotemeta
+#define pp_rand CPerlObj::Perl_pp_rand
+#define pp_range CPerlObj::Perl_pp_range
+#define pp_rcatline CPerlObj::Perl_pp_rcatline
+#define pp_read CPerlObj::Perl_pp_read
+#define pp_readdir CPerlObj::Perl_pp_readdir
+#define pp_readline CPerlObj::Perl_pp_readline
+#define pp_readlink CPerlObj::Perl_pp_readlink
+#define pp_recv CPerlObj::Perl_pp_recv
+#define pp_redo CPerlObj::Perl_pp_redo
+#define pp_ref CPerlObj::Perl_pp_ref
+#define pp_refgen CPerlObj::Perl_pp_refgen
+#define pp_regcmaybe CPerlObj::Perl_pp_regcmaybe
+#define pp_regcomp CPerlObj::Perl_pp_regcomp
+#define pp_regcreset CPerlObj::Perl_pp_regcreset
+#define pp_rename CPerlObj::Perl_pp_rename
+#define pp_repeat CPerlObj::Perl_pp_repeat
+#define pp_require CPerlObj::Perl_pp_require
+#define pp_reset CPerlObj::Perl_pp_reset
+#define pp_return CPerlObj::Perl_pp_return
+#define pp_reverse CPerlObj::Perl_pp_reverse
+#define pp_rewinddir CPerlObj::Perl_pp_rewinddir
+#define pp_right_shift CPerlObj::Perl_pp_right_shift
+#define pp_rindex CPerlObj::Perl_pp_rindex
+#define pp_rmdir CPerlObj::Perl_pp_rmdir
+#define pp_rv2av CPerlObj::Perl_pp_rv2av
+#define pp_rv2cv CPerlObj::Perl_pp_rv2cv
+#define pp_rv2gv CPerlObj::Perl_pp_rv2gv
+#define pp_rv2hv CPerlObj::Perl_pp_rv2hv
+#define pp_rv2sv CPerlObj::Perl_pp_rv2sv
+#define pp_sassign CPerlObj::Perl_pp_sassign
+#define pp_scalar CPerlObj::Perl_pp_scalar
+#define pp_schomp CPerlObj::Perl_pp_schomp
+#define pp_schop CPerlObj::Perl_pp_schop
+#define pp_scmp CPerlObj::Perl_pp_scmp
+#define pp_scope CPerlObj::Perl_pp_scope
+#define pp_seek CPerlObj::Perl_pp_seek
+#define pp_seekdir CPerlObj::Perl_pp_seekdir
+#define pp_select CPerlObj::Perl_pp_select
+#define pp_semctl CPerlObj::Perl_pp_semctl
+#define pp_semget CPerlObj::Perl_pp_semget
+#define pp_semop CPerlObj::Perl_pp_semop
+#define pp_send CPerlObj::Perl_pp_send
+#define pp_seq CPerlObj::Perl_pp_seq
+#define pp_setpgrp CPerlObj::Perl_pp_setpgrp
+#define pp_setpriority CPerlObj::Perl_pp_setpriority
+#define pp_sge CPerlObj::Perl_pp_sge
+#define pp_sgrent CPerlObj::Perl_pp_sgrent
+#define pp_sgt CPerlObj::Perl_pp_sgt
+#define pp_shift CPerlObj::Perl_pp_shift
+#define pp_shmctl CPerlObj::Perl_pp_shmctl
+#define pp_shmget CPerlObj::Perl_pp_shmget
+#define pp_shmread CPerlObj::Perl_pp_shmread
+#define pp_shmwrite CPerlObj::Perl_pp_shmwrite
+#define pp_shostent CPerlObj::Perl_pp_shostent
+#define pp_shutdown CPerlObj::Perl_pp_shutdown
+#define pp_sin CPerlObj::Perl_pp_sin
+#define pp_sle CPerlObj::Perl_pp_sle
+#define pp_sleep CPerlObj::Perl_pp_sleep
+#define pp_slt CPerlObj::Perl_pp_slt
+#define pp_sne CPerlObj::Perl_pp_sne
+#define pp_snetent CPerlObj::Perl_pp_snetent
+#define pp_socket CPerlObj::Perl_pp_socket
+#define pp_sockpair CPerlObj::Perl_pp_sockpair
+#define pp_sort CPerlObj::Perl_pp_sort
+#define pp_splice CPerlObj::Perl_pp_splice
+#define pp_split CPerlObj::Perl_pp_split
+#define pp_sprintf CPerlObj::Perl_pp_sprintf
+#define pp_sprotoent CPerlObj::Perl_pp_sprotoent
+#define pp_spwent CPerlObj::Perl_pp_spwent
+#define pp_sqrt CPerlObj::Perl_pp_sqrt
+#define pp_srand CPerlObj::Perl_pp_srand
+#define pp_srefgen CPerlObj::Perl_pp_srefgen
+#define pp_sselect CPerlObj::Perl_pp_sselect
+#define pp_sservent CPerlObj::Perl_pp_sservent
+#define pp_ssockopt CPerlObj::Perl_pp_ssockopt
+#define pp_stat CPerlObj::Perl_pp_stat
+#define pp_stringify CPerlObj::Perl_pp_stringify
+#define pp_stub CPerlObj::Perl_pp_stub
+#define pp_study CPerlObj::Perl_pp_study
+#define pp_subst CPerlObj::Perl_pp_subst
+#define pp_substcont CPerlObj::Perl_pp_substcont
+#define pp_substr CPerlObj::Perl_pp_substr
+#define pp_subtract CPerlObj::Perl_pp_subtract
+#define pp_symlink CPerlObj::Perl_pp_symlink
+#define pp_syscall CPerlObj::Perl_pp_syscall
+#define pp_sysopen CPerlObj::Perl_pp_sysopen
+#define pp_sysread CPerlObj::Perl_pp_sysread
+#define pp_sysseek CPerlObj::Perl_pp_sysseek
+#define pp_system CPerlObj::Perl_pp_system
+#define pp_syswrite CPerlObj::Perl_pp_syswrite
+#define pp_tell CPerlObj::Perl_pp_tell
+#define pp_telldir CPerlObj::Perl_pp_telldir
+#define pp_threadsv CPerlObj::Perl_pp_threadsv
+#define pp_tie CPerlObj::Perl_pp_tie
+#define pp_tied CPerlObj::Perl_pp_tied
+#define pp_time CPerlObj::Perl_pp_time
+#define pp_tms CPerlObj::Perl_pp_tms
+#define pp_trans CPerlObj::Perl_pp_trans
+#define pp_truncate CPerlObj::Perl_pp_truncate
+#define pp_uc CPerlObj::Perl_pp_uc
+#define pp_ucfirst CPerlObj::Perl_pp_ucfirst
+#define pp_umask CPerlObj::Perl_pp_umask
+#define pp_undef CPerlObj::Perl_pp_undef
+#define pp_unlink CPerlObj::Perl_pp_unlink
+#define pp_unpack CPerlObj::Perl_pp_unpack
+#define pp_unshift CPerlObj::Perl_pp_unshift
+#define pp_unstack CPerlObj::Perl_pp_unstack
+#define pp_untie CPerlObj::Perl_pp_untie
+#define pp_utime CPerlObj::Perl_pp_utime
+#define pp_values CPerlObj::Perl_pp_values
+#define pp_vec CPerlObj::Perl_pp_vec
+#define pp_wait CPerlObj::Perl_pp_wait
+#define pp_waitpid CPerlObj::Perl_pp_waitpid
+#define pp_wantarray CPerlObj::Perl_pp_wantarray
+#define pp_warn CPerlObj::Perl_pp_warn
+#define pp_xor CPerlObj::Perl_pp_xor
+#define pregcomp CPerlObj::Perl_pregcomp
+#define pregexec CPerlObj::Perl_pregexec
+#define pregfree CPerlObj::Perl_pregfree
+#define prepend_elem CPerlObj::Perl_prepend_elem
+#define push_return CPerlObj::Perl_push_return
+#define push_scope CPerlObj::Perl_push_scope
+#define qsortsv CPerlObj::Perl_qsortsv
+#define re_croak2 CPerlObj::Perl_re_croak2
+#define ref CPerlObj::Perl_ref
+#define refkids CPerlObj::Perl_refkids
+#define refto CPerlObj::Perl_refto
+#define reg CPerlObj::Perl_reg
+#define reg_node CPerlObj::Perl_reg_node
+#define reganode CPerlObj::Perl_reganode
+#define regatom CPerlObj::Perl_regatom
+#define regbranch CPerlObj::Perl_regbranch
+#define regc CPerlObj::Perl_regc
+#define regclass CPerlObj::Perl_regclass
+#define regclassutf8 CPerlObj::Perl_regclassutf8
+#define regcp_set_to CPerlObj::Perl_regcp_set_to
+#define regcppop CPerlObj::Perl_regcppop
+#define regcppush CPerlObj::Perl_regcppush
+#define regcurly CPerlObj::Perl_regcurly
+#define regdump CPerlObj::Perl_regdump
+#define regexec_flags CPerlObj::Perl_regexec_flags
+#define reghop CPerlObj::Perl_reghop
+#define reghopmaybe CPerlObj::Perl_reghopmaybe
+#define reginclass CPerlObj::Perl_reginclass
+#define reginclassutf8 CPerlObj::Perl_reginclassutf8
+#define reginsert CPerlObj::Perl_reginsert
+#define regmatch CPerlObj::Perl_regmatch
+#define regnext CPerlObj::Perl_regnext
+#define regoptail CPerlObj::Perl_regoptail
+#define regpiece CPerlObj::Perl_regpiece
+#define regprop CPerlObj::Perl_regprop
+#define regrepeat CPerlObj::Perl_regrepeat
+#define regrepeat_hard CPerlObj::Perl_regrepeat_hard
+#define regset CPerlObj::Perl_regset
+#define regtail CPerlObj::Perl_regtail
+#define regtry CPerlObj::Perl_regtry
+#define reguni CPerlObj::Perl_reguni
+#define regwhite CPerlObj::Perl_regwhite
+#define repeatcpy CPerlObj::Perl_repeatcpy
+#define restore_expect CPerlObj::Perl_restore_expect
+#define restore_lex_expect CPerlObj::Perl_restore_lex_expect
+#define restore_magic CPerlObj::Perl_restore_magic
+#define restore_rsfp CPerlObj::Perl_restore_rsfp
+#define rninstr CPerlObj::Perl_rninstr
+#define rsignal CPerlObj::Perl_rsignal
+#define rsignal_restore CPerlObj::Perl_rsignal_restore
+#define rsignal_save CPerlObj::Perl_rsignal_save
+#define rsignal_state CPerlObj::Perl_rsignal_state
+#define runops_debug CPerlObj::Perl_runops_debug
+#define runops_debug CPerlObj::Perl_runops_debug
+#define runops_standard CPerlObj::Perl_runops_standard
+#define runops_standard CPerlObj::Perl_runops_standard
+#define rxres_free CPerlObj::Perl_rxres_free
+#define rxres_restore CPerlObj::Perl_rxres_restore
+#define rxres_save CPerlObj::Perl_rxres_save
+#define safecalloc CPerlObj::Perl_safecalloc
+#define safefree CPerlObj::Perl_safefree
+#define safemalloc CPerlObj::Perl_safemalloc
+#define saferealloc CPerlObj::Perl_saferealloc
+#define safexcalloc CPerlObj::Perl_safexcalloc
+#define safexfree CPerlObj::Perl_safexfree
+#define safexmalloc CPerlObj::Perl_safexmalloc
+#define safexrealloc CPerlObj::Perl_safexrealloc
+#define same_dirent CPerlObj::Perl_same_dirent
+#define save_I16 CPerlObj::Perl_save_I16
+#define save_I32 CPerlObj::Perl_save_I32
+#define save_aelem CPerlObj::Perl_save_aelem
+#define save_alloc CPerlObj::Perl_save_alloc
+#define save_aptr CPerlObj::Perl_save_aptr
+#define save_ary CPerlObj::Perl_save_ary
+#define save_clearsv CPerlObj::Perl_save_clearsv
+#define save_delete CPerlObj::Perl_save_delete
+#define save_destructor CPerlObj::Perl_save_destructor
+#define save_freeop CPerlObj::Perl_save_freeop
+#define save_freepv CPerlObj::Perl_save_freepv
+#define save_freesv CPerlObj::Perl_save_freesv
+#define save_generic_svref CPerlObj::Perl_save_generic_svref
+#define save_gp CPerlObj::Perl_save_gp
+#define save_hash CPerlObj::Perl_save_hash
+#define save_hek CPerlObj::Perl_save_hek
+#define save_helem CPerlObj::Perl_save_helem
+#define save_hints CPerlObj::Perl_save_hints
+#define save_hptr CPerlObj::Perl_save_hptr
+#define save_int CPerlObj::Perl_save_int
+#define save_item CPerlObj::Perl_save_item
+#define save_iv CPerlObj::Perl_save_iv
+#define save_lines CPerlObj::Perl_save_lines
+#define save_list CPerlObj::Perl_save_list
+#define save_long CPerlObj::Perl_save_long
+#define save_magic CPerlObj::Perl_save_magic
+#define save_nogv CPerlObj::Perl_save_nogv
+#define save_op CPerlObj::Perl_save_op
+#define save_pptr CPerlObj::Perl_save_pptr
+#define save_re_context CPerlObj::Perl_save_re_context
+#define save_scalar CPerlObj::Perl_save_scalar
+#define save_scalar_at CPerlObj::Perl_save_scalar_at
+#define save_sptr CPerlObj::Perl_save_sptr
+#define save_svref CPerlObj::Perl_save_svref
+#define save_threadsv CPerlObj::Perl_save_threadsv
+#define savepv CPerlObj::Perl_savepv
+#define savepvn CPerlObj::Perl_savepvn
+#define savestack_grow CPerlObj::Perl_savestack_grow
+#define sawparens CPerlObj::Perl_sawparens
+#define scalar CPerlObj::Perl_scalar
+#define scalarboolean CPerlObj::Perl_scalarboolean
+#define scalarkids CPerlObj::Perl_scalarkids
+#define scalarseq CPerlObj::Perl_scalarseq
+#define scalarvoid CPerlObj::Perl_scalarvoid
+#define scan_commit CPerlObj::Perl_scan_commit
+#define scan_const CPerlObj::Perl_scan_const
+#define scan_const CPerlObj::Perl_scan_const
+#define scan_formline CPerlObj::Perl_scan_formline
+#define scan_formline CPerlObj::Perl_scan_formline
+#define scan_heredoc CPerlObj::Perl_scan_heredoc
+#define scan_heredoc CPerlObj::Perl_scan_heredoc
+#define scan_hex CPerlObj::Perl_scan_hex
+#define scan_ident CPerlObj::Perl_scan_ident
+#define scan_ident CPerlObj::Perl_scan_ident
+#define scan_inputsymbol CPerlObj::Perl_scan_inputsymbol
+#define scan_inputsymbol CPerlObj::Perl_scan_inputsymbol
+#define scan_num CPerlObj::Perl_scan_num
+#define scan_oct CPerlObj::Perl_scan_oct
+#define scan_pat CPerlObj::Perl_scan_pat
+#define scan_pat CPerlObj::Perl_scan_pat
+#define scan_prefix CPerlObj::Perl_scan_prefix
+#define scan_str CPerlObj::Perl_scan_str
+#define scan_str CPerlObj::Perl_scan_str
+#define scan_subst CPerlObj::Perl_scan_subst
+#define scan_subst CPerlObj::Perl_scan_subst
+#define scan_trans CPerlObj::Perl_scan_trans
+#define scan_trans CPerlObj::Perl_scan_trans
+#define scan_word CPerlObj::Perl_scan_word
+#define scan_word CPerlObj::Perl_scan_word
+#define scope CPerlObj::Perl_scope
+#define screaminstr CPerlObj::Perl_screaminstr
+#define seed CPerlObj::Perl_seed
+#define set_csh CPerlObj::Perl_set_csh
+#define setdefout CPerlObj::Perl_setdefout
+#define setenv_getix CPerlObj::Perl_setenv_getix
+#define share_hek CPerlObj::Perl_share_hek
+#define sharepvn CPerlObj::Perl_sharepvn
+#define sighandler CPerlObj::Perl_sighandler
+#define skipspace CPerlObj::Perl_skipspace
+#define skipspace CPerlObj::Perl_skipspace
+#define sortcv CPerlObj::Perl_sortcv
+#define stack_grow CPerlObj::Perl_stack_grow
+#define start_subparse CPerlObj::Perl_start_subparse
+#define study_chunk CPerlObj::Perl_study_chunk
+#define sub_crush_depth CPerlObj::Perl_sub_crush_depth
+#define sublex_done CPerlObj::Perl_sublex_done
+#define sublex_push CPerlObj::Perl_sublex_push
+#define sublex_start CPerlObj::Perl_sublex_start
+#define sv_2bool CPerlObj::Perl_sv_2bool
+#define sv_2cv CPerlObj::Perl_sv_2cv
+#define sv_2io CPerlObj::Perl_sv_2io
+#define sv_2iv CPerlObj::Perl_sv_2iv
+#define sv_2mortal CPerlObj::Perl_sv_2mortal
+#define sv_2nv CPerlObj::Perl_sv_2nv
+#define sv_2pv CPerlObj::Perl_sv_2pv
+#define sv_2uv CPerlObj::Perl_sv_2uv
+#define sv_add_arena CPerlObj::Perl_sv_add_arena
+#define sv_backoff CPerlObj::Perl_sv_backoff
+#define sv_bless CPerlObj::Perl_sv_bless
+#define sv_catpv CPerlObj::Perl_sv_catpv
+#define sv_catpv_mg CPerlObj::Perl_sv_catpv_mg
+#define sv_catpvf CPerlObj::Perl_sv_catpvf
+#define sv_catpvf_mg CPerlObj::Perl_sv_catpvf_mg
+#define sv_catpvn CPerlObj::Perl_sv_catpvn
+#define sv_catpvn_mg CPerlObj::Perl_sv_catpvn_mg
+#define sv_catsv CPerlObj::Perl_sv_catsv
+#define sv_catsv_mg CPerlObj::Perl_sv_catsv_mg
+#define sv_check_thinkfirst CPerlObj::Perl_sv_check_thinkfirst
+#define sv_chop CPerlObj::Perl_sv_chop
+#define sv_clean_all CPerlObj::Perl_sv_clean_all
+#define sv_clean_objs CPerlObj::Perl_sv_clean_objs
+#define sv_clear CPerlObj::Perl_sv_clear
+#define sv_cmp CPerlObj::Perl_sv_cmp
+#define sv_cmp_locale CPerlObj::Perl_sv_cmp_locale
+#define sv_collxfrm CPerlObj::Perl_sv_collxfrm
+#define sv_compile_2op CPerlObj::Perl_sv_compile_2op
+#define sv_dec CPerlObj::Perl_sv_dec
+#define sv_derived_from CPerlObj::Perl_sv_derived_from
+#define sv_dump CPerlObj::Perl_sv_dump
+#define sv_eq CPerlObj::Perl_sv_eq
+#define sv_free CPerlObj::Perl_sv_free
+#define sv_free_arenas CPerlObj::Perl_sv_free_arenas
+#define sv_gets CPerlObj::Perl_sv_gets
+#define sv_grow CPerlObj::Perl_sv_grow
+#define sv_inc CPerlObj::Perl_sv_inc
+#define sv_insert CPerlObj::Perl_sv_insert
+#define sv_isa CPerlObj::Perl_sv_isa
+#define sv_isobject CPerlObj::Perl_sv_isobject
+#define sv_iv CPerlObj::Perl_sv_iv
+#define sv_len CPerlObj::Perl_sv_len
+#define sv_len_utf8 CPerlObj::Perl_sv_len_utf8
+#define sv_magic CPerlObj::Perl_sv_magic
+#define sv_mortalcopy CPerlObj::Perl_sv_mortalcopy
+#define sv_mortalgrow CPerlObj::Perl_sv_mortalgrow
+#define sv_newmortal CPerlObj::Perl_sv_newmortal
+#define sv_newref CPerlObj::Perl_sv_newref
+#define sv_nv CPerlObj::Perl_sv_nv
+#define sv_peek CPerlObj::Perl_sv_peek
+#define sv_pos_b2u CPerlObj::Perl_sv_pos_b2u
+#define sv_pos_u2b CPerlObj::Perl_sv_pos_u2b
+#define sv_pvn CPerlObj::Perl_sv_pvn
+#define sv_pvn_force CPerlObj::Perl_sv_pvn_force
+#define sv_ref CPerlObj::Perl_sv_ref
+#define sv_reftype CPerlObj::Perl_sv_reftype
+#define sv_replace CPerlObj::Perl_sv_replace
+#define sv_report_used CPerlObj::Perl_sv_report_used
+#define sv_reset CPerlObj::Perl_sv_reset
+#define sv_setiv CPerlObj::Perl_sv_setiv
+#define sv_setiv_mg CPerlObj::Perl_sv_setiv_mg
+#define sv_setnv CPerlObj::Perl_sv_setnv
+#define sv_setnv_mg CPerlObj::Perl_sv_setnv_mg
+#define sv_setptrobj CPerlObj::Perl_sv_setptrobj
+#define sv_setpv CPerlObj::Perl_sv_setpv
+#define sv_setpv_mg CPerlObj::Perl_sv_setpv_mg
+#define sv_setpvf CPerlObj::Perl_sv_setpvf
+#define sv_setpvf_mg CPerlObj::Perl_sv_setpvf_mg
+#define sv_setpviv CPerlObj::Perl_sv_setpviv
+#define sv_setpviv_mg CPerlObj::Perl_sv_setpviv_mg
+#define sv_setpvn CPerlObj::Perl_sv_setpvn
+#define sv_setpvn_mg CPerlObj::Perl_sv_setpvn_mg
+#define sv_setref_iv CPerlObj::Perl_sv_setref_iv
+#define sv_setref_nv CPerlObj::Perl_sv_setref_nv
+#define sv_setref_pv CPerlObj::Perl_sv_setref_pv
+#define sv_setref_pvn CPerlObj::Perl_sv_setref_pvn
+#define sv_setsv CPerlObj::Perl_sv_setsv
+#define sv_setsv_mg CPerlObj::Perl_sv_setsv_mg
+#define sv_setuv CPerlObj::Perl_sv_setuv
+#define sv_setuv_mg CPerlObj::Perl_sv_setuv_mg
+#define sv_taint CPerlObj::Perl_sv_taint
+#define sv_tainted CPerlObj::Perl_sv_tainted
+#define sv_true CPerlObj::Perl_sv_true
+#define sv_unglob CPerlObj::Perl_sv_unglob
+#define sv_unmagic CPerlObj::Perl_sv_unmagic
+#define sv_unref CPerlObj::Perl_sv_unref
+#define sv_untaint CPerlObj::Perl_sv_untaint
+#define sv_upgrade CPerlObj::Perl_sv_upgrade
+#define sv_usepvn CPerlObj::Perl_sv_usepvn
+#define sv_usepvn_mg CPerlObj::Perl_sv_usepvn_mg
+#define sv_uv CPerlObj::Perl_sv_uv
+#define sv_vcatpvfn CPerlObj::Perl_sv_vcatpvfn
+#define sv_vsetpvfn CPerlObj::Perl_sv_vsetpvfn
+#define swash_fetch CPerlObj::Perl_swash_fetch
+#define swash_init CPerlObj::Perl_swash_init
+#define taint_env CPerlObj::Perl_taint_env
+#define taint_proper CPerlObj::Perl_taint_proper
+#define to_uni_lower CPerlObj::Perl_to_uni_lower
+#define to_uni_lower_lc CPerlObj::Perl_to_uni_lower_lc
+#define to_uni_title CPerlObj::Perl_to_uni_title
+#define to_uni_title_lc CPerlObj::Perl_to_uni_title_lc
+#define to_uni_upper CPerlObj::Perl_to_uni_upper
+#define to_uni_upper_lc CPerlObj::Perl_to_uni_upper_lc
+#define to_utf8_lower CPerlObj::Perl_to_utf8_lower
+#define to_utf8_title CPerlObj::Perl_to_utf8_title
+#define to_utf8_upper CPerlObj::Perl_to_utf8_upper
+#define tokeq CPerlObj::Perl_tokeq
+#define too_few_arguments CPerlObj::Perl_too_few_arguments
+#define too_few_arguments CPerlObj::Perl_too_few_arguments
+#define too_many_arguments CPerlObj::Perl_too_many_arguments
+#define too_many_arguments CPerlObj::Perl_too_many_arguments
+#define uni CPerlObj::Perl_uni
+#define unlnk CPerlObj::Perl_unlnk
+#define unlock_condpair CPerlObj::Perl_unlock_condpair
+#define unshare_hek CPerlObj::Perl_unshare_hek
+#define unsharepvn CPerlObj::Perl_unsharepvn
+#define unwind_handler_stack CPerlObj::Perl_unwind_handler_stack
+#define usage CPerlObj::Perl_usage
+#define utf16_to_utf8 CPerlObj::Perl_utf16_to_utf8
+#define utf16_to_utf8_reversed CPerlObj::Perl_utf16_to_utf8_reversed
+#define utf8_distance CPerlObj::Perl_utf8_distance
+#define utf8_hop CPerlObj::Perl_utf8_hop
+#define utf8_to_uv CPerlObj::Perl_utf8_to_uv
+#define utilize CPerlObj::Perl_utilize
+#define uv_to_utf8 CPerlObj::Perl_uv_to_utf8
+#define validate_suid CPerlObj::Perl_validate_suid
+#define visit CPerlObj::Perl_visit
+#define vivify_defelem CPerlObj::Perl_vivify_defelem
+#define vivify_ref CPerlObj::Perl_vivify_ref
+#define wait4pid CPerlObj::Perl_wait4pid
+#define warn CPerlObj::Perl_warn
+#define warner CPerlObj::Perl_warner
+#define watch CPerlObj::Perl_watch
+#define whichsig CPerlObj::Perl_whichsig
+#define win32_textfilter CPerlObj::Perl_win32_textfilter
+#define yydestruct CPerlObj::Perl_yydestruct
+#define yydestruct CPerlObj::Perl_yydestruct
+#define yyerror CPerlObj::Perl_yyerror
+#define yylex CPerlObj::Perl_yylex
+#define yyparse CPerlObj::Perl_yyparse
+#define yywarn CPerlObj::Perl_yywarn
+
+#endif /* PERL_OBJECT */
View
291 embed.pl
@@ -23,31 +23,36 @@
sub readsyms (\%$) {
my ($syms, $file) = @_;
- %$syms = ();
local (*FILE, $_);
open(FILE, "< $file")
or die "embed.pl: Can't open $file: $!\n";
while (<FILE>) {
s/[ \t]*#.*//; # Delete comments.
if (/^\s*(\S+)\s*$/) {
- $$syms{$1} = 1;
+ my $sym = $1;
+ warn "duplicate symbol $sym while processing $file\n"
+ if exists $$syms{$sym};
+ $$syms{$sym} = 1;
}
}
close(FILE);
}
readsyms %global, 'global.sym';
+readsyms %global, 'pp.sym';
sub readvars(\%$$) {
my ($syms, $file,$pre) = @_;
- %$syms = ();
local (*FILE, $_);
open(FILE, "< $file")
or die "embed.pl: Can't open $file: $!\n";
while (<FILE>) {
s/[ \t]*#.*//; # Delete comments.
if (/PERLVARI?C?\($pre(\w+)/) {
- $$syms{$1} = 1;
+ my $sym = $1;
+ warn "duplicate symbol $sym while processing $file\n"
+ if exists $$syms{$sym};
+ $$syms{$sym} = 1;
}
}
close(FILE);
@@ -65,7 +70,7 @@ (\%$$)
if (exists $global{$sym})
{
delete $global{$sym};
- warn "$sym in global.sym as well as intrpvar.h\n";
+ warn "$sym in {global,pp}.sym as well as intrpvar.h\n";
}
}
@@ -74,7 +79,7 @@ (\%$$)
if (exists $global{$sym})
{
delete $global{$sym};
- warn "$sym in global.sym as well as perlvars.h\n";
+ warn "$sym in {global,pp}.sym as well as perlvars.h\n";
}
}
@@ -84,7 +89,7 @@ (\%$$)
if (exists $global{$sym})
{
delete $global{$sym};
- warn "$sym in global.sym as well as thrdvar.h\n";
+ warn "$sym in {global,pp}.sym as well as thrdvar.h\n";
}
}
@@ -97,6 +102,10 @@ ($)
my ($sym) = @_;
hide($sym, "Perl_$sym");
}
+sub embedobj ($) {
+ my ($sym) = @_;
+ hide($sym, $sym =~ /^perl_/i ? "CPerlObj::$sym" : "CPerlObj::Perl_$sym");
+}
sub embedvar ($) {
my ($sym) = @_;
# hide($sym, "Perl_$sym");
@@ -118,25 +127,17 @@ ($$)
print EM <<'END';
/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
- This file is built by embed.pl from global.sym, intrpvar.h,
+ This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
and thrdvar.h. Any changes made here will be lost!
*/
/* (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
+/* NO_EMBED is no longer supported. i.e. EMBED is always active. */
-/* Hide global symbols? */
+/* Hide global symbols */
-#ifdef EMBED
+#if !defined(PERL_OBJECT)
END
@@ -146,7 +147,241 @@ END
print EM <<'END';
-#endif /* EMBED */
+#else /* PERL_OBJECT */
+
+END
+
+# XXX these should be in a *.sym file
+my @extras = qw(
+ perl_init_i18nl10n
+ perl_init_i18nl14n
+ perl_new_collate
+ perl_new_ctype
+ perl_new_numeric
+ perl_set_numeric_local
+ perl_set_numeric_standard
+ perl_construct
+ perl_destruct
+ perl_atexit
+ perl_free
+ perl_parse
+ perl_run
+ perl_get_sv
+ perl_get_av
+ perl_get_hv
+ perl_get_cv
+ perl_call_argv
+ perl_call_pv
+ perl_call_method
+ perl_call_sv
+ perl_eval_pv
+ perl_eval_sv
+ perl_require_pv
+
+ hsplit
+ hfreeentries
+ more_he
+ new_he
+ del_he
+ save_hek
+ mess_alloc
+ gv_init_sv
+ save_scalar_at
+ asIV
+ asUV
+ more_sv
+ more_xiv
+ more_xnv
+ more_xpv
+ more_xrv
+ new_xiv
+ new_xnv
+ new_xpv
+ new_xrv
+ del_xiv
+ del_xnv
+ del_xpv
+ del_xrv
+ sv_mortalgrow
+ sv_unglob
+ sv_check_thinkfirst
+ avhv_index_sv
+ do_report_used
+ do_clean_objs
+ do_clean_named_objs
+ do_clean_all
+ not_a_number
+ my_safemalloc
+ visit
+ qsortsv
+ sortcv
+ save_magic
+ magic_methpack
+ magic_methcall
+ magic_methcall
+ doform
+ doencodes
+ refto
+ seed
+ docatch
+ dofindlabel
+ doparseform
+ dopoptoeval
+ dopoptolabel
+ dopoptoloop
+ dopoptosub
+ dopoptosub_at
+ save_lines
+ doeval
+ amagic_cmp
+ amagic_cmp_locale
+ mul128
+ is_an_int
+ div128
+ runops_standard
+ runops_debug
+ check_uni
+ force_next
+ force_version
+ force_word
+ tokeq
+ scan_const
+ scan_formline
+ scan_heredoc
+ scan_ident
+ scan_inputsymbol
+ scan_pat
+ scan_str
+ scan_subst
+ scan_trans
+ scan_word
+ skipspace
+ checkcomma
+ force_ident
+ incline
+ intuit_method
+ intuit_more
+ lop
+ missingterm
+ no_op
+ set_csh
+ sublex_done
+ sublex_push
+ sublex_start
+ uni
+ filter_gets
+ new_constant
+ ao
+ depcom
+ win32_textfilter
+ incl_perldb
+ isa_lookup
+ get_db_sub
+ list_assignment
+ bad_type
<