This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/pat.t: Skip tests that don't work on EBCDIC
[perl5.git] / embedvar.h
index 2f96743..04c2d6b 100644 (file)
@@ -40,6 +40,9 @@
 #    define vTHX       PERL_GET_INTERP
 #  endif
 
+#define PL_AboveLatin1         (vTHX->IAboveLatin1)
+#define PL_Assigned_invlist    (vTHX->IAssigned_invlist)
+#define PL_CCC_non0_non230     (vTHX->ICCC_non0_non230)
 #define PL_DBcontrol           (vTHX->IDBcontrol)
 #define PL_DBcv                        (vTHX->IDBcv)
 #define PL_DBgv                        (vTHX->IDBgv)
 #define PL_DBtrace             (vTHX->IDBtrace)
 #define PL_Dir                 (vTHX->IDir)
 #define PL_Env                 (vTHX->IEnv)
+#define PL_GCB_invlist         (vTHX->IGCB_invlist)
+#define PL_HasMultiCharFold    (vTHX->IHasMultiCharFold)
+#define PL_InBitmap            (vTHX->IInBitmap)
+#define PL_InMultiCharFold     (vTHX->IInMultiCharFold)
+#define PL_LB_invlist          (vTHX->ILB_invlist)
 #define PL_LIO                 (vTHX->ILIO)
+#define PL_Latin1              (vTHX->ILatin1)
 #define PL_Mem                 (vTHX->IMem)
 #define PL_MemParse            (vTHX->IMemParse)
 #define PL_MemShared           (vTHX->IMemShared)
+#define PL_Posix_ptrs          (vTHX->IPosix_ptrs)
+#define PL_Private_Use         (vTHX->IPrivate_Use)
 #define PL_Proc                        (vTHX->IProc)
+#define PL_SB_invlist          (vTHX->ISB_invlist)
+#define PL_SCX_invlist         (vTHX->ISCX_invlist)
 #define PL_Sock                        (vTHX->ISock)
 #define PL_StdIO               (vTHX->IStdIO)
 #define PL_Sv                  (vTHX->ISv)
 #define PL_TR_SPECIAL_HANDLING_UTF8    (vTHX->ITR_SPECIAL_HANDLING_UTF8)
+#define PL_UpperLatin1         (vTHX->IUpperLatin1)
+#define PL_WB_invlist          (vTHX->IWB_invlist)
+#define PL_XPosix_ptrs         (vTHX->IXPosix_ptrs)
 #define PL_Xpv                 (vTHX->IXpv)
 #define PL_an                  (vTHX->Ian)
 #define PL_argvgv              (vTHX->Iargvgv)
@@ -72,6 +88,7 @@
 #define PL_body_roots          (vTHX->Ibody_roots)
 #define PL_bodytarget          (vTHX->Ibodytarget)
 #define PL_breakable_sub_gen   (vTHX->Ibreakable_sub_gen)
+#define PL_check               (vTHX->Icheck)
 #define PL_checkav             (vTHX->Icheckav)
 #define PL_checkav_save                (vTHX->Icheckav_save)
 #define PL_chopset             (vTHX->Ichopset)
 #define PL_in_clean_objs       (vTHX->Iin_clean_objs)
 #define PL_in_eval             (vTHX->Iin_eval)
 #define PL_in_load_module      (vTHX->Iin_load_module)
+#define PL_in_some_fold                (vTHX->Iin_some_fold)
 #define PL_in_utf8_COLLATE_locale      (vTHX->Iin_utf8_COLLATE_locale)
 #define PL_in_utf8_CTYPE_locale        (vTHX->Iin_utf8_CTYPE_locale)
 #define PL_in_utf8_turkic_locale       (vTHX->Iin_utf8_turkic_locale)
 #define PL_unitcheckav_save    (vTHX->Iunitcheckav_save)
 #define PL_unlockhook          (vTHX->Iunlockhook)
 #define PL_unsafe              (vTHX->Iunsafe)
+#define PL_utf8_charname_begin (vTHX->Iutf8_charname_begin)
+#define PL_utf8_charname_continue      (vTHX->Iutf8_charname_continue)
+#define PL_utf8_idcont         (vTHX->Iutf8_idcont)
+#define PL_utf8_idstart                (vTHX->Iutf8_idstart)
+#define PL_utf8_mark           (vTHX->Iutf8_mark)
+#define PL_utf8_perl_idcont    (vTHX->Iutf8_perl_idcont)
+#define PL_utf8_perl_idstart   (vTHX->Iutf8_perl_idstart)
+#define PL_utf8_tofold         (vTHX->Iutf8_tofold)
+#define PL_utf8_tolower                (vTHX->Iutf8_tolower)
+#define PL_utf8_tosimplefold   (vTHX->Iutf8_tosimplefold)
+#define PL_utf8_totitle                (vTHX->Iutf8_totitle)
+#define PL_utf8_toupper                (vTHX->Iutf8_toupper)
+#define PL_utf8_xidcont                (vTHX->Iutf8_xidcont)
+#define PL_utf8_xidstart       (vTHX->Iutf8_xidstart)
 #define PL_utf8cache           (vTHX->Iutf8cache)
 #define PL_utf8locale          (vTHX->Iutf8locale)
 #define PL_warn_locale         (vTHX->Iwarn_locale)
 
 #if defined(PERL_GLOBAL_STRUCT)
 
-#define PL_AboveLatin1         (my_vars->GAboveLatin1)
-#define PL_GAboveLatin1                (my_vars->GAboveLatin1)
-#define PL_Assigned_invlist    (my_vars->GAssigned_invlist)
-#define PL_GAssigned_invlist   (my_vars->GAssigned_invlist)
-#define PL_CCC_non0_non230     (my_vars->GCCC_non0_non230)
-#define PL_GCCC_non0_non230    (my_vars->GCCC_non0_non230)
 #define PL_C_locale_obj                (my_vars->GC_locale_obj)
 #define PL_GC_locale_obj       (my_vars->GC_locale_obj)
-#define PL_GCB_invlist         (my_vars->GGCB_invlist)
-#define PL_GGCB_invlist                (my_vars->GGCB_invlist)
-#define PL_HasMultiCharFold    (my_vars->GHasMultiCharFold)
-#define PL_GHasMultiCharFold   (my_vars->GHasMultiCharFold)
-#define PL_InBitmap            (my_vars->GInBitmap)
-#define PL_GInBitmap           (my_vars->GInBitmap)
-#define PL_InMultiCharFold     (my_vars->GInMultiCharFold)
-#define PL_GInMultiCharFold    (my_vars->GInMultiCharFold)
-#define PL_LB_invlist          (my_vars->GLB_invlist)
-#define PL_GLB_invlist         (my_vars->GLB_invlist)
-#define PL_Latin1              (my_vars->GLatin1)
-#define PL_GLatin1             (my_vars->GLatin1)
-#define PL_Posix_ptrs          (my_vars->GPosix_ptrs)
-#define PL_GPosix_ptrs         (my_vars->GPosix_ptrs)
-#define PL_Private_Use         (my_vars->GPrivate_Use)
-#define PL_GPrivate_Use                (my_vars->GPrivate_Use)
-#define PL_SB_invlist          (my_vars->GSB_invlist)
-#define PL_GSB_invlist         (my_vars->GSB_invlist)
-#define PL_SCX_invlist         (my_vars->GSCX_invlist)
-#define PL_GSCX_invlist                (my_vars->GSCX_invlist)
-#define PL_UpperLatin1         (my_vars->GUpperLatin1)
-#define PL_GUpperLatin1                (my_vars->GUpperLatin1)
-#define PL_WB_invlist          (my_vars->GWB_invlist)
-#define PL_GWB_invlist         (my_vars->GWB_invlist)
-#define PL_XPosix_ptrs         (my_vars->GXPosix_ptrs)
-#define PL_GXPosix_ptrs                (my_vars->GXPosix_ptrs)
 #define PL_appctx              (my_vars->Gappctx)
 #define PL_Gappctx             (my_vars->Gappctx)
-#define PL_check               (my_vars->Gcheck)
-#define PL_Gcheck              (my_vars->Gcheck)
 #define PL_check_mutex         (my_vars->Gcheck_mutex)
 #define PL_Gcheck_mutex                (my_vars->Gcheck_mutex)
 #define PL_csighandler1p       (my_vars->Gcsighandler1p)
 #define PL_Ghash_state         (my_vars->Ghash_state)
 #define PL_hints_mutex         (my_vars->Ghints_mutex)
 #define PL_Ghints_mutex                (my_vars->Ghints_mutex)
-#define PL_in_some_fold                (my_vars->Gin_some_fold)
-#define PL_Gin_some_fold       (my_vars->Gin_some_fold)
 #define PL_keyword_plugin      (my_vars->Gkeyword_plugin)
 #define PL_Gkeyword_plugin     (my_vars->Gkeyword_plugin)
 #define PL_keyword_plugin_mutex        (my_vars->Gkeyword_plugin_mutex)
 #define PL_Guser_def_props_aTHX        (my_vars->Guser_def_props_aTHX)
 #define PL_user_prop_mutex     (my_vars->Guser_prop_mutex)
 #define PL_Guser_prop_mutex    (my_vars->Guser_prop_mutex)
-#define PL_utf8_charname_begin (my_vars->Gutf8_charname_begin)
-#define PL_Gutf8_charname_begin        (my_vars->Gutf8_charname_begin)
-#define PL_utf8_charname_continue      (my_vars->Gutf8_charname_continue)
-#define PL_Gutf8_charname_continue     (my_vars->Gutf8_charname_continue)
 #define PL_utf8_foldclosures   (my_vars->Gutf8_foldclosures)
 #define PL_Gutf8_foldclosures  (my_vars->Gutf8_foldclosures)
-#define PL_utf8_idcont         (my_vars->Gutf8_idcont)
-#define PL_Gutf8_idcont                (my_vars->Gutf8_idcont)
-#define PL_utf8_idstart                (my_vars->Gutf8_idstart)
-#define PL_Gutf8_idstart       (my_vars->Gutf8_idstart)
-#define PL_utf8_mark           (my_vars->Gutf8_mark)
-#define PL_Gutf8_mark          (my_vars->Gutf8_mark)
-#define PL_utf8_perl_idcont    (my_vars->Gutf8_perl_idcont)
-#define PL_Gutf8_perl_idcont   (my_vars->Gutf8_perl_idcont)
-#define PL_utf8_perl_idstart   (my_vars->Gutf8_perl_idstart)
-#define PL_Gutf8_perl_idstart  (my_vars->Gutf8_perl_idstart)
-#define PL_utf8_tofold         (my_vars->Gutf8_tofold)
-#define PL_Gutf8_tofold                (my_vars->Gutf8_tofold)
-#define PL_utf8_tolower                (my_vars->Gutf8_tolower)
-#define PL_Gutf8_tolower       (my_vars->Gutf8_tolower)
-#define PL_utf8_tosimplefold   (my_vars->Gutf8_tosimplefold)
-#define PL_Gutf8_tosimplefold  (my_vars->Gutf8_tosimplefold)
-#define PL_utf8_totitle                (my_vars->Gutf8_totitle)
-#define PL_Gutf8_totitle       (my_vars->Gutf8_totitle)
-#define PL_utf8_toupper                (my_vars->Gutf8_toupper)
-#define PL_Gutf8_toupper       (my_vars->Gutf8_toupper)
-#define PL_utf8_xidcont                (my_vars->Gutf8_xidcont)
-#define PL_Gutf8_xidcont       (my_vars->Gutf8_xidcont)
-#define PL_utf8_xidstart       (my_vars->Gutf8_xidstart)
-#define PL_Gutf8_xidstart      (my_vars->Gutf8_xidstart)
 #define PL_veto_cleanup                (my_vars->Gveto_cleanup)
 #define PL_Gveto_cleanup       (my_vars->Gveto_cleanup)
 #define PL_watch_pvx           (my_vars->Gwatch_pvx)