Test both the scalar and list contexts.
[p5sagit/p5-mst-13.2.git] / embed.h
diff --git a/embed.h b/embed.h
index 3b3a836..d372b20 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -9,6 +9,9 @@
 
 /* provide binary compatible (but inconsistent) names */
 #if defined(PERL_BINCOMPAT_5005)
+#  define  Perl_call_atexit            perl_atexit
+#  define  Perl_eval_sv                        perl_eval_sv
+#  define  Perl_eval_pv                        perl_eval_pv
 #  define  Perl_call_argv              perl_call_argv
 #  define  Perl_call_method            perl_call_method
 #  define  Perl_call_pv                        perl_call_pv
 #define die_nocontext          Perl_die_nocontext
 #define deb_nocontext          Perl_deb_nocontext
 #define form_nocontext         Perl_form_nocontext
+#define load_module_nocontext  Perl_load_module_nocontext
 #define mess_nocontext         Perl_mess_nocontext
 #define warn_nocontext         Perl_warn_nocontext
 #define warner_nocontext       Perl_warner_nocontext
 #define to_uni_upper_lc                Perl_to_uni_upper_lc
 #define to_uni_title_lc                Perl_to_uni_title_lc
 #define to_uni_lower_lc                Perl_to_uni_lower_lc
+#define is_utf8_char           Perl_is_utf8_char
 #define is_utf8_alnum          Perl_is_utf8_alnum
 #define is_utf8_alnumc         Perl_is_utf8_alnumc
 #define is_utf8_idfirst                Perl_is_utf8_idfirst
 #define linklist               Perl_linklist
 #define list                   Perl_list
 #define listkids               Perl_listkids
+#define load_module            Perl_load_module
+#define vload_module           Perl_vload_module
 #define localize               Perl_localize
 #define looks_like_number      Perl_looks_like_number
 #define magic_clearenv         Perl_magic_clearenv
 #define mg_set                 Perl_mg_set
 #define mg_size                        Perl_mg_size
 #define mod                    Perl_mod
+#define mode_from_discipline   Perl_mode_from_discipline
 #define moreswitches           Perl_moreswitches
 #define my                     Perl_my
 #define my_atof                        Perl_my_atof
 #define newSVREF               Perl_newSVREF
 #define newSVOP                        Perl_newSVOP
 #define newSViv                        Perl_newSViv
+#define newSVuv                        Perl_newSVuv
 #define newSVnv                        Perl_newSVnv
 #define newSVpv                        Perl_newSVpv
 #define newSVpvn               Perl_newSVpvn
 #define ck_eval                        Perl_ck_eval
 #define ck_exec                        Perl_ck_exec
 #define ck_exists              Perl_ck_exists
+#define ck_exit                        Perl_ck_exit
 #define ck_ftst                        Perl_ck_ftst
 #define ck_fun                 Perl_ck_fun
 #define ck_fun_locale          Perl_ck_fun_locale
 #define ck_match               Perl_ck_match
 #define ck_method              Perl_ck_method
 #define ck_null                        Perl_ck_null
+#define ck_open                        Perl_ck_open
 #define ck_repeat              Perl_ck_repeat
 #define ck_require             Perl_ck_require
 #define ck_rfun                        Perl_ck_rfun
 #define to_uni_upper_lc(a)     Perl_to_uni_upper_lc(aTHX_ a)
 #define to_uni_title_lc(a)     Perl_to_uni_title_lc(aTHX_ a)
 #define to_uni_lower_lc(a)     Perl_to_uni_lower_lc(aTHX_ a)
+#define is_utf8_char(a)                Perl_is_utf8_char(aTHX_ a)
 #define is_utf8_alnum(a)       Perl_is_utf8_alnum(aTHX_ a)
 #define is_utf8_alnumc(a)      Perl_is_utf8_alnumc(aTHX_ a)
 #define is_utf8_idfirst(a)     Perl_is_utf8_idfirst(aTHX_ a)
 #define linklist(a)            Perl_linklist(aTHX_ a)
 #define list(a)                        Perl_list(aTHX_ a)
 #define listkids(a)            Perl_listkids(aTHX_ a)
+#define vload_module(a,b,c,d)  Perl_vload_module(aTHX_ a,b,c,d)
 #define localize(a,b)          Perl_localize(aTHX_ a,b)
 #define looks_like_number(a)   Perl_looks_like_number(aTHX_ a)
 #define magic_clearenv(a,b)    Perl_magic_clearenv(aTHX_ a,b)
 #define mg_set(a)              Perl_mg_set(aTHX_ a)
 #define mg_size(a)             Perl_mg_size(aTHX_ a)
 #define mod(a,b)               Perl_mod(aTHX_ a,b)
+#define mode_from_discipline(a)        Perl_mode_from_discipline(aTHX_ a)
 #define moreswitches(a)                Perl_moreswitches(aTHX_ a)
 #define my(a)                  Perl_my(aTHX_ a)
 #define my_atof(a)             Perl_my_atof(aTHX_ a)
 #define newSVREF(a)            Perl_newSVREF(aTHX_ a)
 #define newSVOP(a,b,c)         Perl_newSVOP(aTHX_ a,b,c)
 #define newSViv(a)             Perl_newSViv(aTHX_ a)
+#define newSVuv(a)             Perl_newSVuv(aTHX_ a)
 #define newSVnv(a)             Perl_newSVnv(aTHX_ a)
 #define newSVpv(a,b)           Perl_newSVpv(aTHX_ a,b)
 #define newSVpvn(a,b)          Perl_newSVpvn(aTHX_ a,b)
 #define ck_eval(a)             Perl_ck_eval(aTHX_ a)
 #define ck_exec(a)             Perl_ck_exec(aTHX_ a)
 #define ck_exists(a)           Perl_ck_exists(aTHX_ a)
+#define ck_exit(a)             Perl_ck_exit(aTHX_ a)
 #define ck_ftst(a)             Perl_ck_ftst(aTHX_ a)
 #define ck_fun(a)              Perl_ck_fun(aTHX_ a)
 #define ck_fun_locale(a)       Perl_ck_fun_locale(aTHX_ a)
 #define ck_match(a)            Perl_ck_match(aTHX_ a)
 #define ck_method(a)           Perl_ck_method(aTHX_ a)
 #define ck_null(a)             Perl_ck_null(aTHX_ a)
+#define ck_open(a)             Perl_ck_open(aTHX_ a)
 #define ck_repeat(a)           Perl_ck_repeat(aTHX_ a)
 #define ck_require(a)          Perl_ck_require(aTHX_ a)
 #define ck_rfun(a)             Perl_ck_rfun(aTHX_ a)
 #define deb_nocontext          Perl_deb_nocontext
 #define Perl_form_nocontext    CPerlObj::Perl_form_nocontext
 #define form_nocontext         Perl_form_nocontext
+#define Perl_load_module_nocontext     CPerlObj::Perl_load_module_nocontext
+#define load_module_nocontext  Perl_load_module_nocontext
 #define Perl_mess_nocontext    CPerlObj::Perl_mess_nocontext
 #define mess_nocontext         Perl_mess_nocontext
 #define Perl_warn_nocontext    CPerlObj::Perl_warn_nocontext
 #define to_uni_title_lc                Perl_to_uni_title_lc
 #define Perl_to_uni_lower_lc   CPerlObj::Perl_to_uni_lower_lc
 #define to_uni_lower_lc                Perl_to_uni_lower_lc
+#define Perl_is_utf8_char      CPerlObj::Perl_is_utf8_char
+#define is_utf8_char           Perl_is_utf8_char
 #define Perl_is_utf8_alnum     CPerlObj::Perl_is_utf8_alnum
 #define is_utf8_alnum          Perl_is_utf8_alnum
 #define Perl_is_utf8_alnumc    CPerlObj::Perl_is_utf8_alnumc
 #define list                   Perl_list
 #define Perl_listkids          CPerlObj::Perl_listkids
 #define listkids               Perl_listkids
+#define Perl_load_module       CPerlObj::Perl_load_module
+#define load_module            Perl_load_module
+#define Perl_vload_module      CPerlObj::Perl_vload_module
+#define vload_module           Perl_vload_module
 #define Perl_localize          CPerlObj::Perl_localize
 #define localize               Perl_localize
 #define Perl_looks_like_number CPerlObj::Perl_looks_like_number
 #define mg_size                        Perl_mg_size
 #define Perl_mod               CPerlObj::Perl_mod
 #define mod                    Perl_mod
+#define Perl_mode_from_discipline      CPerlObj::Perl_mode_from_discipline
+#define mode_from_discipline   Perl_mode_from_discipline
 #define Perl_moreswitches      CPerlObj::Perl_moreswitches
 #define moreswitches           Perl_moreswitches
 #define Perl_my                        CPerlObj::Perl_my
 #define newSVOP                        Perl_newSVOP
 #define Perl_newSViv           CPerlObj::Perl_newSViv
 #define newSViv                        Perl_newSViv
+#define Perl_newSVuv           CPerlObj::Perl_newSVuv
+#define newSVuv                        Perl_newSVuv
 #define Perl_newSVnv           CPerlObj::Perl_newSVnv
 #define newSVnv                        Perl_newSVnv
 #define Perl_newSVpv           CPerlObj::Perl_newSVpv
 #define ck_exec                        Perl_ck_exec
 #define Perl_ck_exists         CPerlObj::Perl_ck_exists
 #define ck_exists              Perl_ck_exists
+#define Perl_ck_exit           CPerlObj::Perl_ck_exit
+#define ck_exit                        Perl_ck_exit
 #define Perl_ck_ftst           CPerlObj::Perl_ck_ftst
 #define ck_ftst                        Perl_ck_ftst
 #define Perl_ck_fun            CPerlObj::Perl_ck_fun
 #define ck_method              Perl_ck_method
 #define Perl_ck_null           CPerlObj::Perl_ck_null
 #define ck_null                        Perl_ck_null
+#define Perl_ck_open           CPerlObj::Perl_ck_open
+#define ck_open                        Perl_ck_open
 #define Perl_ck_repeat         CPerlObj::Perl_ck_repeat
 #define ck_repeat              Perl_ck_repeat
 #define Perl_ck_require                CPerlObj::Perl_ck_require
 #  define deb                          Perl_deb_nocontext
 #  define die                          Perl_die_nocontext
 #  define form                         Perl_form_nocontext
+#  define load_module                  Perl_load_module_nocontext
 #  define mess                         Perl_mess_nocontext
 #  define newSVpvf                     Perl_newSVpvf_nocontext
 #  define sv_catpvf                    Perl_sv_catpvf_nocontext
 #  define Perl_die_nocontext           Perl_die
 #  define Perl_deb_nocontext           Perl_deb
 #  define Perl_form_nocontext          Perl_form
+#  define Perl_load_module_nocontext   Perl_load_module
 #  define Perl_mess_nocontext          Perl_mess
 #  define Perl_newSVpvf_nocontext      Perl_newSVpvf
 #  define Perl_sv_catpvf_nocontext     Perl_sv_catpvf