Integrate with Sarathy.
[p5sagit/p5-mst-13.2.git] / embed.h
diff --git a/embed.h b/embed.h
index 767b707..22ef66d 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define io_close               Perl_io_close
 #define invert                 Perl_invert
 #define is_uni_alnum           Perl_is_uni_alnum
+#define is_uni_alnumc          Perl_is_uni_alnumc
 #define is_uni_idfirst         Perl_is_uni_idfirst
 #define is_uni_alpha           Perl_is_uni_alpha
+#define is_uni_ascii           Perl_is_uni_ascii
 #define is_uni_space           Perl_is_uni_space
+#define is_uni_cntrl           Perl_is_uni_cntrl
+#define is_uni_graph           Perl_is_uni_graph
 #define is_uni_digit           Perl_is_uni_digit
 #define is_uni_upper           Perl_is_uni_upper
 #define is_uni_lower           Perl_is_uni_lower
 #define is_uni_print           Perl_is_uni_print
+#define is_uni_punct           Perl_is_uni_punct
+#define is_uni_xdigit          Perl_is_uni_xdigit
 #define to_uni_upper           Perl_to_uni_upper
 #define to_uni_title           Perl_to_uni_title
 #define to_uni_lower           Perl_to_uni_lower
 #define is_uni_alnum_lc                Perl_is_uni_alnum_lc
+#define is_uni_alnumc_lc       Perl_is_uni_alnumc_lc
 #define is_uni_idfirst_lc      Perl_is_uni_idfirst_lc
 #define is_uni_alpha_lc                Perl_is_uni_alpha_lc
+#define is_uni_ascii_lc                Perl_is_uni_ascii_lc
 #define is_uni_space_lc                Perl_is_uni_space_lc
+#define is_uni_cntrl_lc                Perl_is_uni_cntrl_lc
+#define is_uni_graph_lc                Perl_is_uni_graph_lc
 #define is_uni_digit_lc                Perl_is_uni_digit_lc
 #define is_uni_upper_lc                Perl_is_uni_upper_lc
 #define is_uni_lower_lc                Perl_is_uni_lower_lc
 #define is_uni_print_lc                Perl_is_uni_print_lc
+#define is_uni_punct_lc                Perl_is_uni_punct_lc
+#define is_uni_xdigit_lc       Perl_is_uni_xdigit_lc
 #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_alnum          Perl_is_utf8_alnum
+#define is_utf8_alnumc         Perl_is_utf8_alnumc
 #define is_utf8_idfirst                Perl_is_utf8_idfirst
 #define is_utf8_alpha          Perl_is_utf8_alpha
+#define is_utf8_ascii          Perl_is_utf8_ascii
 #define is_utf8_space          Perl_is_utf8_space
+#define is_utf8_cntrl          Perl_is_utf8_cntrl
 #define is_utf8_digit          Perl_is_utf8_digit
+#define is_utf8_graph          Perl_is_utf8_graph
 #define is_utf8_upper          Perl_is_utf8_upper
 #define is_utf8_lower          Perl_is_utf8_lower
 #define is_utf8_print          Perl_is_utf8_print
+#define is_utf8_punct          Perl_is_utf8_punct
+#define is_utf8_xdigit         Perl_is_utf8_xdigit
 #define is_utf8_mark           Perl_is_utf8_mark
 #define jmaybe                 Perl_jmaybe
 #define keyword                        Perl_keyword
 #define mod                    Perl_mod
 #define moreswitches           Perl_moreswitches
 #define my                     Perl_my
-#ifdef USE_LOCALE_NUMERIC
 #define my_atof                        Perl_my_atof
-#endif
 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
 #define my_bcopy               Perl_my_bcopy
 #endif
 #define pregexec               Perl_pregexec
 #define pregfree               Perl_pregfree
 #define pregcomp               Perl_pregcomp
+#define re_intuit_start                Perl_re_intuit_start
+#define re_intuit_string       Perl_re_intuit_string
 #define regexec_flags          Perl_regexec_flags
 #define regnext                        Perl_regnext
 #define regprop                        Perl_regprop
 #if defined(PERL_GLOBAL_STRUCT)
 #define GetVars                        Perl_GetVars
 #endif
-#define yydestruct             Perl_yydestruct
 #define runops_standard                Perl_runops_standard
 #define runops_debug           Perl_runops_debug
-#if defined(WIN32)
-#if defined(PERL_OBJECT)
-#define ErrorNo                        Perl_ErrorNo
-#else
-#define ErrorNo                        Perl_ErrorNo
-#endif
-#endif
 #define sv_catpvf_mg           Perl_sv_catpvf_mg
 #define sv_catpv_mg            Perl_sv_catpv_mg
 #define sv_catpvn_mg           Perl_sv_catpvn_mg
 #define save_magic             S_save_magic
 #define magic_methpack         S_magic_methpack
 #define magic_methcall         S_magic_methcall
-#define unwind_handler_stack   S_unwind_handler_stack
-#define restore_magic          S_restore_magic
 #endif
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
 #define list_assignment                S_list_assignment
 #define bad_type               S_bad_type
+#define cop_free               S_cop_free
 #define modkids                        S_modkids
 #define no_bareword_allowed    S_no_bareword_allowed
 #define no_fh_allowed          S_no_fh_allowed
 #define doeval                 S_doeval
 #define doopen_pmc             S_doopen_pmc
 #define qsortsv                        S_qsortsv
-#define sortcv                 S_sortcv
-#define sv_ncmp                        S_sv_ncmp
-#define sv_i_ncmp              S_sv_i_ncmp
-#define amagic_ncmp            S_amagic_ncmp
-#define amagic_i_ncmp          S_amagic_i_ncmp
-#define amagic_cmp             S_amagic_cmp
-#define amagic_cmp_locale      S_amagic_cmp_locale
 #endif
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
 #define get_db_sub             S_get_db_sub
-#  if defined(USE_THREADS)
-#define unset_cvowner          S_unset_cvowner
-#  endif
 #endif
 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
 #define doform                 S_doform
 #define add_data               S_add_data
 #define re_croak2              S_re_croak2
 #define regpposixcc            S_regpposixcc
-#define clear_re               S_clear_re
+#define checkposixcc           S_checkposixcc
 #endif
 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
 #define regmatch               S_regmatch
 #define regcppop               S_regcppop
 #define regcp_set_to           S_regcp_set_to
 #define cache_re               S_cache_re
-#define restore_pos            S_restore_pos
 #define reghop                 S_reghop
 #define reghopmaybe            S_reghopmaybe
 #endif
 #define del_xpv                        S_del_xpv
 #define del_xrv                        S_del_xrv
 #define sv_unglob              S_sv_unglob
-#define do_report_used         S_do_report_used
-#define do_clean_objs          S_do_clean_objs
-#define do_clean_named_objs    S_do_clean_named_objs
-#define do_clean_all           S_do_clean_all
 #define not_a_number           S_not_a_number
 #define visit                  S_visit
 #  if defined(PURIFY)
 #define incl_perldb            S_incl_perldb
 #define utf16_textfilter       S_utf16_textfilter
 #define utf16rev_textfilter    S_utf16rev_textfilter
-#define restore_rsfp           S_restore_rsfp
-#define restore_expect         S_restore_expect
-#define restore_lex_expect     S_restore_lex_expect
 #  if defined(CRIPPLED_CC)
 #define uni                    S_uni
 #  endif
 #define ck_require             Perl_ck_require
 #define ck_rfun                        Perl_ck_rfun
 #define ck_rvconst             Perl_ck_rvconst
+#define ck_sassign             Perl_ck_sassign
 #define ck_scmp                        Perl_ck_scmp
 #define ck_select              Perl_ck_select
 #define ck_shift               Perl_ck_shift
 #define io_close(a)            Perl_io_close(aTHX_ a)
 #define invert(a)              Perl_invert(aTHX_ a)
 #define is_uni_alnum(a)                Perl_is_uni_alnum(aTHX_ a)
+#define is_uni_alnumc(a)       Perl_is_uni_alnumc(aTHX_ a)
 #define is_uni_idfirst(a)      Perl_is_uni_idfirst(aTHX_ a)
 #define is_uni_alpha(a)                Perl_is_uni_alpha(aTHX_ a)
+#define is_uni_ascii(a)                Perl_is_uni_ascii(aTHX_ a)
 #define is_uni_space(a)                Perl_is_uni_space(aTHX_ a)
+#define is_uni_cntrl(a)                Perl_is_uni_cntrl(aTHX_ a)
+#define is_uni_graph(a)                Perl_is_uni_graph(aTHX_ a)
 #define is_uni_digit(a)                Perl_is_uni_digit(aTHX_ a)
 #define is_uni_upper(a)                Perl_is_uni_upper(aTHX_ a)
 #define is_uni_lower(a)                Perl_is_uni_lower(aTHX_ a)
 #define is_uni_print(a)                Perl_is_uni_print(aTHX_ a)
+#define is_uni_punct(a)                Perl_is_uni_punct(aTHX_ a)
+#define is_uni_xdigit(a)       Perl_is_uni_xdigit(aTHX_ a)
 #define to_uni_upper(a)                Perl_to_uni_upper(aTHX_ a)
 #define to_uni_title(a)                Perl_to_uni_title(aTHX_ a)
 #define to_uni_lower(a)                Perl_to_uni_lower(aTHX_ a)
 #define is_uni_alnum_lc(a)     Perl_is_uni_alnum_lc(aTHX_ a)
+#define is_uni_alnumc_lc(a)    Perl_is_uni_alnumc_lc(aTHX_ a)
 #define is_uni_idfirst_lc(a)   Perl_is_uni_idfirst_lc(aTHX_ a)
 #define is_uni_alpha_lc(a)     Perl_is_uni_alpha_lc(aTHX_ a)
+#define is_uni_ascii_lc(a)     Perl_is_uni_ascii_lc(aTHX_ a)
 #define is_uni_space_lc(a)     Perl_is_uni_space_lc(aTHX_ a)
+#define is_uni_cntrl_lc(a)     Perl_is_uni_cntrl_lc(aTHX_ a)
+#define is_uni_graph_lc(a)     Perl_is_uni_graph_lc(aTHX_ a)
 #define is_uni_digit_lc(a)     Perl_is_uni_digit_lc(aTHX_ a)
 #define is_uni_upper_lc(a)     Perl_is_uni_upper_lc(aTHX_ a)
 #define is_uni_lower_lc(a)     Perl_is_uni_lower_lc(aTHX_ a)
 #define is_uni_print_lc(a)     Perl_is_uni_print_lc(aTHX_ a)
+#define is_uni_punct_lc(a)     Perl_is_uni_punct_lc(aTHX_ a)
+#define is_uni_xdigit_lc(a)    Perl_is_uni_xdigit_lc(aTHX_ a)
 #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_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 is_utf8_alpha(a)       Perl_is_utf8_alpha(aTHX_ a)
+#define is_utf8_ascii(a)       Perl_is_utf8_ascii(aTHX_ a)
 #define is_utf8_space(a)       Perl_is_utf8_space(aTHX_ a)
+#define is_utf8_cntrl(a)       Perl_is_utf8_cntrl(aTHX_ a)
 #define is_utf8_digit(a)       Perl_is_utf8_digit(aTHX_ a)
+#define is_utf8_graph(a)       Perl_is_utf8_graph(aTHX_ a)
 #define is_utf8_upper(a)       Perl_is_utf8_upper(aTHX_ a)
 #define is_utf8_lower(a)       Perl_is_utf8_lower(aTHX_ a)
 #define is_utf8_print(a)       Perl_is_utf8_print(aTHX_ a)
+#define is_utf8_punct(a)       Perl_is_utf8_punct(aTHX_ a)
+#define is_utf8_xdigit(a)      Perl_is_utf8_xdigit(aTHX_ a)
 #define is_utf8_mark(a)                Perl_is_utf8_mark(aTHX_ a)
 #define jmaybe(a)              Perl_jmaybe(aTHX_ a)
 #define keyword(a,b)           Perl_keyword(aTHX_ a,b)
 #define mod(a,b)               Perl_mod(aTHX_ a,b)
 #define moreswitches(a)                Perl_moreswitches(aTHX_ a)
 #define my(a)                  Perl_my(aTHX_ a)
-#ifdef USE_LOCALE_NUMERIC
 #define my_atof(a)             Perl_my_atof(aTHX_ a)
-#endif
 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
 #define my_bcopy(a,b,c)                Perl_my_bcopy(aTHX_ a,b,c)
 #endif
 #define pregexec(a,b,c,d,e,f,g)        Perl_pregexec(aTHX_ a,b,c,d,e,f,g)
 #define pregfree(a)            Perl_pregfree(aTHX_ a)
 #define pregcomp(a,b,c)                Perl_pregcomp(aTHX_ a,b,c)
+#define re_intuit_start(a,b,c,d,e,f)   Perl_re_intuit_start(aTHX_ a,b,c,d,e,f)
+#define re_intuit_string(a)    Perl_re_intuit_string(aTHX_ a)
 #define regexec_flags(a,b,c,d,e,f,g,h) Perl_regexec_flags(aTHX_ a,b,c,d,e,f,g,h)
 #define regnext(a)             Perl_regnext(aTHX_ a)
 #define regprop(a,b)           Perl_regprop(aTHX_ a,b)
 #if defined(PERL_GLOBAL_STRUCT)
 #define GetVars()              Perl_GetVars(aTHX)
 #endif
-#define yydestruct(a)          Perl_yydestruct(aTHX_ a)
 #define runops_standard()      Perl_runops_standard(aTHX)
 #define runops_debug()         Perl_runops_debug(aTHX)
-#if defined(WIN32)
-#if defined(PERL_OBJECT)
-#define ErrorNo()              Perl_ErrorNo(aTHX)
-#else
-#define ErrorNo()              Perl_ErrorNo(aTHX)
-#endif
-#endif
 #define sv_catpv_mg(a,b)       Perl_sv_catpv_mg(aTHX_ a,b)
 #define sv_catpvn_mg(a,b,c)    Perl_sv_catpvn_mg(aTHX_ a,b,c)
 #define sv_catsv_mg(a,b)       Perl_sv_catsv_mg(aTHX_ a,b)
 #define save_magic(a,b)                S_save_magic(aTHX_ a,b)
 #define magic_methpack(a,b,c)  S_magic_methpack(aTHX_ a,b,c)
 #define magic_methcall(a,b,c,d,e,f)    S_magic_methcall(aTHX_ a,b,c,d,e,f)
-#define unwind_handler_stack(a)        S_unwind_handler_stack(aTHX_ a)
-#define restore_magic(a)       S_restore_magic(aTHX_ a)
 #endif
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
 #define list_assignment(a)     S_list_assignment(aTHX_ a)
 #define bad_type(a,b,c,d)      S_bad_type(aTHX_ a,b,c,d)
+#define cop_free(a)            S_cop_free(aTHX_ a)
 #define modkids(a,b)           S_modkids(aTHX_ a,b)
 #define no_bareword_allowed(a) S_no_bareword_allowed(aTHX_ a)
 #define no_fh_allowed(a)       S_no_fh_allowed(aTHX_ a)
 #define doeval(a,b)            S_doeval(aTHX_ a,b)
 #define doopen_pmc(a,b)                S_doopen_pmc(aTHX_ a,b)
 #define qsortsv(a,b,c)         S_qsortsv(aTHX_ a,b,c)
-#define sortcv(a,b)            S_sortcv(aTHX_ a,b)
-#define sv_ncmp(a,b)           S_sv_ncmp(aTHX_ a,b)
-#define sv_i_ncmp(a,b)         S_sv_i_ncmp(aTHX_ a,b)
-#define amagic_ncmp(a,b)       S_amagic_ncmp(aTHX_ a,b)
-#define amagic_i_ncmp(a,b)     S_amagic_i_ncmp(aTHX_ a,b)
-#define amagic_cmp(a,b)                S_amagic_cmp(aTHX_ a,b)
-#define amagic_cmp_locale(a,b) S_amagic_cmp_locale(aTHX_ a,b)
 #endif
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
 #define get_db_sub(a,b)                S_get_db_sub(aTHX_ a,b)
-#  if defined(USE_THREADS)
-#define unset_cvowner(a)       S_unset_cvowner(aTHX_ a)
-#  endif
 #endif
 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
 #define doform(a,b,c)          S_doform(aTHX_ a,b,c)
 #define study_chunk(a,b,c,d,e) S_study_chunk(aTHX_ a,b,c,d,e)
 #define add_data(a,b)          S_add_data(aTHX_ a,b)
 #define regpposixcc(a)         S_regpposixcc(aTHX_ a)
-#define clear_re(a)            S_clear_re(aTHX_ a)
+#define checkposixcc()         S_checkposixcc(aTHX)
 #endif
 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
 #define regmatch(a)            S_regmatch(aTHX_ a)
 #define regcppop()             S_regcppop(aTHX)
 #define regcp_set_to(a)                S_regcp_set_to(aTHX_ a)
 #define cache_re(a)            S_cache_re(aTHX_ a)
-#define restore_pos(a)         S_restore_pos(aTHX_ a)
 #define reghop(a,b)            S_reghop(aTHX_ a,b)
 #define reghopmaybe(a,b)       S_reghopmaybe(aTHX_ a,b)
 #endif
 #define del_xpv(a)             S_del_xpv(aTHX_ a)
 #define del_xrv(a)             S_del_xrv(aTHX_ a)
 #define sv_unglob(a)           S_sv_unglob(aTHX_ a)
-#define do_report_used(a)      S_do_report_used(aTHX_ a)
-#define do_clean_objs(a)       S_do_clean_objs(aTHX_ a)
-#define do_clean_named_objs(a) S_do_clean_named_objs(aTHX_ a)
-#define do_clean_all(a)                S_do_clean_all(aTHX_ a)
 #define not_a_number(a)                S_not_a_number(aTHX_ a)
 #define visit(a)               S_visit(aTHX_ a)
 #  if defined(PURIFY)
 #define incl_perldb()          S_incl_perldb(aTHX)
 #define utf16_textfilter(a,b,c)        S_utf16_textfilter(aTHX_ a,b,c)
 #define utf16rev_textfilter(a,b,c)     S_utf16rev_textfilter(aTHX_ a,b,c)
-#define restore_rsfp(a)                S_restore_rsfp(aTHX_ a)
-#define restore_expect(a)      S_restore_expect(aTHX_ a)
-#define restore_lex_expect(a)  S_restore_lex_expect(aTHX_ a)
 #  if defined(CRIPPLED_CC)
 #define uni(a,b)               S_uni(aTHX_ a,b)
 #  endif
 #define ck_require(a)          Perl_ck_require(aTHX_ a)
 #define ck_rfun(a)             Perl_ck_rfun(aTHX_ a)
 #define ck_rvconst(a)          Perl_ck_rvconst(aTHX_ a)
+#define ck_sassign(a)          Perl_ck_sassign(aTHX_ a)
 #define ck_scmp(a)             Perl_ck_scmp(aTHX_ a)
 #define ck_select(a)           Perl_ck_select(aTHX_ a)
 #define ck_shift(a)            Perl_ck_shift(aTHX_ a)
 #define invert                 Perl_invert
 #define Perl_is_uni_alnum      CPerlObj::Perl_is_uni_alnum
 #define is_uni_alnum           Perl_is_uni_alnum
+#define Perl_is_uni_alnumc     CPerlObj::Perl_is_uni_alnumc
+#define is_uni_alnumc          Perl_is_uni_alnumc
 #define Perl_is_uni_idfirst    CPerlObj::Perl_is_uni_idfirst
 #define is_uni_idfirst         Perl_is_uni_idfirst
 #define Perl_is_uni_alpha      CPerlObj::Perl_is_uni_alpha
 #define is_uni_alpha           Perl_is_uni_alpha
+#define Perl_is_uni_ascii      CPerlObj::Perl_is_uni_ascii
+#define is_uni_ascii           Perl_is_uni_ascii
 #define Perl_is_uni_space      CPerlObj::Perl_is_uni_space
 #define is_uni_space           Perl_is_uni_space
+#define Perl_is_uni_cntrl      CPerlObj::Perl_is_uni_cntrl
+#define is_uni_cntrl           Perl_is_uni_cntrl
+#define Perl_is_uni_graph      CPerlObj::Perl_is_uni_graph
+#define is_uni_graph           Perl_is_uni_graph
 #define Perl_is_uni_digit      CPerlObj::Perl_is_uni_digit
 #define is_uni_digit           Perl_is_uni_digit
 #define Perl_is_uni_upper      CPerlObj::Perl_is_uni_upper
 #define is_uni_lower           Perl_is_uni_lower
 #define Perl_is_uni_print      CPerlObj::Perl_is_uni_print
 #define is_uni_print           Perl_is_uni_print
+#define Perl_is_uni_punct      CPerlObj::Perl_is_uni_punct
+#define is_uni_punct           Perl_is_uni_punct
+#define Perl_is_uni_xdigit     CPerlObj::Perl_is_uni_xdigit
+#define is_uni_xdigit          Perl_is_uni_xdigit
 #define Perl_to_uni_upper      CPerlObj::Perl_to_uni_upper
 #define to_uni_upper           Perl_to_uni_upper
 #define Perl_to_uni_title      CPerlObj::Perl_to_uni_title
 #define to_uni_lower           Perl_to_uni_lower
 #define Perl_is_uni_alnum_lc   CPerlObj::Perl_is_uni_alnum_lc
 #define is_uni_alnum_lc                Perl_is_uni_alnum_lc
+#define Perl_is_uni_alnumc_lc  CPerlObj::Perl_is_uni_alnumc_lc
+#define is_uni_alnumc_lc       Perl_is_uni_alnumc_lc
 #define Perl_is_uni_idfirst_lc CPerlObj::Perl_is_uni_idfirst_lc
 #define is_uni_idfirst_lc      Perl_is_uni_idfirst_lc
 #define Perl_is_uni_alpha_lc   CPerlObj::Perl_is_uni_alpha_lc
 #define is_uni_alpha_lc                Perl_is_uni_alpha_lc
+#define Perl_is_uni_ascii_lc   CPerlObj::Perl_is_uni_ascii_lc
+#define is_uni_ascii_lc                Perl_is_uni_ascii_lc
 #define Perl_is_uni_space_lc   CPerlObj::Perl_is_uni_space_lc
 #define is_uni_space_lc                Perl_is_uni_space_lc
+#define Perl_is_uni_cntrl_lc   CPerlObj::Perl_is_uni_cntrl_lc
+#define is_uni_cntrl_lc                Perl_is_uni_cntrl_lc
+#define Perl_is_uni_graph_lc   CPerlObj::Perl_is_uni_graph_lc
+#define is_uni_graph_lc                Perl_is_uni_graph_lc
 #define Perl_is_uni_digit_lc   CPerlObj::Perl_is_uni_digit_lc
 #define is_uni_digit_lc                Perl_is_uni_digit_lc
 #define Perl_is_uni_upper_lc   CPerlObj::Perl_is_uni_upper_lc
 #define is_uni_lower_lc                Perl_is_uni_lower_lc
 #define Perl_is_uni_print_lc   CPerlObj::Perl_is_uni_print_lc
 #define is_uni_print_lc                Perl_is_uni_print_lc
+#define Perl_is_uni_punct_lc   CPerlObj::Perl_is_uni_punct_lc
+#define is_uni_punct_lc                Perl_is_uni_punct_lc
+#define Perl_is_uni_xdigit_lc  CPerlObj::Perl_is_uni_xdigit_lc
+#define is_uni_xdigit_lc       Perl_is_uni_xdigit_lc
 #define Perl_to_uni_upper_lc   CPerlObj::Perl_to_uni_upper_lc
 #define to_uni_upper_lc                Perl_to_uni_upper_lc
 #define Perl_to_uni_title_lc   CPerlObj::Perl_to_uni_title_lc
 #define to_uni_lower_lc                Perl_to_uni_lower_lc
 #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 is_utf8_alnumc         Perl_is_utf8_alnumc
 #define Perl_is_utf8_idfirst   CPerlObj::Perl_is_utf8_idfirst
 #define is_utf8_idfirst                Perl_is_utf8_idfirst
 #define Perl_is_utf8_alpha     CPerlObj::Perl_is_utf8_alpha
 #define is_utf8_alpha          Perl_is_utf8_alpha
+#define Perl_is_utf8_ascii     CPerlObj::Perl_is_utf8_ascii
+#define is_utf8_ascii          Perl_is_utf8_ascii
 #define Perl_is_utf8_space     CPerlObj::Perl_is_utf8_space
 #define is_utf8_space          Perl_is_utf8_space
+#define Perl_is_utf8_cntrl     CPerlObj::Perl_is_utf8_cntrl
+#define is_utf8_cntrl          Perl_is_utf8_cntrl
 #define Perl_is_utf8_digit     CPerlObj::Perl_is_utf8_digit
 #define is_utf8_digit          Perl_is_utf8_digit
+#define Perl_is_utf8_graph     CPerlObj::Perl_is_utf8_graph
+#define is_utf8_graph          Perl_is_utf8_graph
 #define Perl_is_utf8_upper     CPerlObj::Perl_is_utf8_upper
 #define is_utf8_upper          Perl_is_utf8_upper
 #define Perl_is_utf8_lower     CPerlObj::Perl_is_utf8_lower
 #define is_utf8_lower          Perl_is_utf8_lower
 #define Perl_is_utf8_print     CPerlObj::Perl_is_utf8_print
 #define is_utf8_print          Perl_is_utf8_print
+#define Perl_is_utf8_punct     CPerlObj::Perl_is_utf8_punct
+#define is_utf8_punct          Perl_is_utf8_punct
+#define Perl_is_utf8_xdigit    CPerlObj::Perl_is_utf8_xdigit
+#define is_utf8_xdigit         Perl_is_utf8_xdigit
 #define Perl_is_utf8_mark      CPerlObj::Perl_is_utf8_mark
 #define is_utf8_mark           Perl_is_utf8_mark
 #define Perl_jmaybe            CPerlObj::Perl_jmaybe
 #define moreswitches           Perl_moreswitches
 #define Perl_my                        CPerlObj::Perl_my
 #define my                     Perl_my
-#ifdef USE_LOCALE_NUMERIC
 #define Perl_my_atof           CPerlObj::Perl_my_atof
 #define my_atof                        Perl_my_atof
-#endif
 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
 #define Perl_my_bcopy          CPerlObj::Perl_my_bcopy
 #define my_bcopy               Perl_my_bcopy
 #define pregfree               Perl_pregfree
 #define Perl_pregcomp          CPerlObj::Perl_pregcomp
 #define pregcomp               Perl_pregcomp
+#define Perl_re_intuit_start   CPerlObj::Perl_re_intuit_start
+#define re_intuit_start                Perl_re_intuit_start
+#define Perl_re_intuit_string  CPerlObj::Perl_re_intuit_string
+#define re_intuit_string       Perl_re_intuit_string
 #define Perl_regexec_flags     CPerlObj::Perl_regexec_flags
 #define regexec_flags          Perl_regexec_flags
 #define Perl_regnext           CPerlObj::Perl_regnext
 #define Perl_GetVars           CPerlObj::Perl_GetVars
 #define GetVars                        Perl_GetVars
 #endif
-#define Perl_yydestruct                CPerlObj::Perl_yydestruct
-#define yydestruct             Perl_yydestruct
 #define Perl_runops_standard   CPerlObj::Perl_runops_standard
 #define runops_standard                Perl_runops_standard
 #define Perl_runops_debug      CPerlObj::Perl_runops_debug
 #define runops_debug           Perl_runops_debug
-#if defined(WIN32)
-#if defined(PERL_OBJECT)
-#define Perl_ErrorNo           CPerlObj::Perl_ErrorNo
-#define ErrorNo                        Perl_ErrorNo
-#else
-#define Perl_ErrorNo           CPerlObj::Perl_ErrorNo
-#define ErrorNo                        Perl_ErrorNo
-#endif
-#endif
 #define Perl_sv_catpvf_mg      CPerlObj::Perl_sv_catpvf_mg
 #define sv_catpvf_mg           Perl_sv_catpvf_mg
 #define Perl_sv_catpv_mg       CPerlObj::Perl_sv_catpv_mg
 #define magic_methpack         S_magic_methpack
 #define S_magic_methcall       CPerlObj::S_magic_methcall
 #define magic_methcall         S_magic_methcall
-#define S_unwind_handler_stack CPerlObj::S_unwind_handler_stack
-#define unwind_handler_stack   S_unwind_handler_stack
-#define S_restore_magic                CPerlObj::S_restore_magic
-#define restore_magic          S_restore_magic
 #endif
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
 #define S_list_assignment      CPerlObj::S_list_assignment
 #define list_assignment                S_list_assignment
 #define S_bad_type             CPerlObj::S_bad_type
 #define bad_type               S_bad_type
+#define S_cop_free             CPerlObj::S_cop_free
+#define cop_free               S_cop_free
 #define S_modkids              CPerlObj::S_modkids
 #define modkids                        S_modkids
 #define S_no_bareword_allowed  CPerlObj::S_no_bareword_allowed
 #define doopen_pmc             S_doopen_pmc
 #define S_qsortsv              CPerlObj::S_qsortsv
 #define qsortsv                        S_qsortsv
-#define S_sortcv               CPerlObj::S_sortcv
-#define sortcv                 S_sortcv
-#define S_sv_ncmp              CPerlObj::S_sv_ncmp
-#define sv_ncmp                        S_sv_ncmp
-#define S_sv_i_ncmp            CPerlObj::S_sv_i_ncmp
-#define sv_i_ncmp              S_sv_i_ncmp
-#define S_amagic_ncmp          CPerlObj::S_amagic_ncmp
-#define amagic_ncmp            S_amagic_ncmp
-#define S_amagic_i_ncmp                CPerlObj::S_amagic_i_ncmp
-#define amagic_i_ncmp          S_amagic_i_ncmp
-#define S_amagic_cmp           CPerlObj::S_amagic_cmp
-#define amagic_cmp             S_amagic_cmp
-#define S_amagic_cmp_locale    CPerlObj::S_amagic_cmp_locale
-#define amagic_cmp_locale      S_amagic_cmp_locale
 #endif
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
 #define S_get_db_sub           CPerlObj::S_get_db_sub
 #define get_db_sub             S_get_db_sub
-#  if defined(USE_THREADS)
-#define S_unset_cvowner                CPerlObj::S_unset_cvowner
-#define unset_cvowner          S_unset_cvowner
-#  endif
 #endif
 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
 #define S_doform               CPerlObj::S_doform
 #define re_croak2              S_re_croak2
 #define S_regpposixcc          CPerlObj::S_regpposixcc
 #define regpposixcc            S_regpposixcc
-#define S_clear_re             CPerlObj::S_clear_re
-#define clear_re               S_clear_re
+#define S_checkposixcc         CPerlObj::S_checkposixcc
+#define checkposixcc           S_checkposixcc
 #endif
 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
 #define S_regmatch             CPerlObj::S_regmatch
 #define regcp_set_to           S_regcp_set_to
 #define S_cache_re             CPerlObj::S_cache_re
 #define cache_re               S_cache_re
-#define S_restore_pos          CPerlObj::S_restore_pos
-#define restore_pos            S_restore_pos
 #define S_reghop               CPerlObj::S_reghop
 #define reghop                 S_reghop
 #define S_reghopmaybe          CPerlObj::S_reghopmaybe
 #define del_xrv                        S_del_xrv
 #define S_sv_unglob            CPerlObj::S_sv_unglob
 #define sv_unglob              S_sv_unglob
-#define S_do_report_used       CPerlObj::S_do_report_used
-#define do_report_used         S_do_report_used
-#define S_do_clean_objs                CPerlObj::S_do_clean_objs
-#define do_clean_objs          S_do_clean_objs
-#define S_do_clean_named_objs  CPerlObj::S_do_clean_named_objs
-#define do_clean_named_objs    S_do_clean_named_objs
-#define S_do_clean_all         CPerlObj::S_do_clean_all
-#define do_clean_all           S_do_clean_all
 #define S_not_a_number         CPerlObj::S_not_a_number
 #define not_a_number           S_not_a_number
 #define S_visit                        CPerlObj::S_visit
 #define utf16_textfilter       S_utf16_textfilter
 #define S_utf16rev_textfilter  CPerlObj::S_utf16rev_textfilter
 #define utf16rev_textfilter    S_utf16rev_textfilter
-#define S_restore_rsfp         CPerlObj::S_restore_rsfp
-#define restore_rsfp           S_restore_rsfp
-#define S_restore_expect       CPerlObj::S_restore_expect
-#define restore_expect         S_restore_expect
-#define S_restore_lex_expect   CPerlObj::S_restore_lex_expect
-#define restore_lex_expect     S_restore_lex_expect
 #  if defined(CRIPPLED_CC)
 #define S_uni                  CPerlObj::S_uni
 #define uni                    S_uni
 #define ck_rfun                        Perl_ck_rfun
 #define Perl_ck_rvconst                CPerlObj::Perl_ck_rvconst
 #define ck_rvconst             Perl_ck_rvconst
+#define Perl_ck_sassign                CPerlObj::Perl_ck_sassign
+#define ck_sassign             Perl_ck_sassign
 #define Perl_ck_scmp           CPerlObj::Perl_ck_scmp
 #define ck_scmp                        Perl_ck_scmp
 #define Perl_ck_select         CPerlObj::Perl_ck_select