X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/dd1a3ba7882ca70c1e85b0fd6c03d07856672075..02cf5fb76fa9ca5db8d1b04f9087dd6d0f81848e:/embedvar.h diff --git a/embedvar.h b/embedvar.h index 259a534..7f87236 100644 --- a/embedvar.h +++ b/embedvar.h @@ -16,30 +16,11 @@ * Edit those files and run 'make regen_headers' to effect changes. */ -/* (Doing namespace management portably in C is really gross.) */ - -/* - The following combinations of MULTIPLICITY and PERL_IMPLICIT_CONTEXT - are supported: - 1) none - 2) MULTIPLICITY # supported for compatibility - 3) MULTIPLICITY && PERL_IMPLICIT_CONTEXT - - All other combinations of these flags are errors. - - only #3 is supported directly, while #2 is a special - case of #3 (supported by redefining vTHX appropriately). -*/ - #if defined(MULTIPLICITY) -/* cases 2 and 3 above */ - -# if defined(PERL_IMPLICIT_CONTEXT) -# define vTHX aTHX -# else -# define vTHX PERL_GET_INTERP -# endif - +# define vTHX aTHX +#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) @@ -50,14 +31,28 @@ #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) @@ -90,7 +85,6 @@ #define PL_comppad_name_floor (vTHX->Icomppad_name_floor) #define PL_constpadix (vTHX->Iconstpadix) #define PL_cop_seqmax (vTHX->Icop_seqmax) -#define PL_cryptseen (vTHX->Icryptseen) #define PL_curcop (vTHX->Icurcop) #define PL_curcopdb (vTHX->Icurcopdb) #define PL_curlocales (vTHX->Icurlocales) @@ -141,6 +135,7 @@ #define PL_fdpid (vTHX->Ifdpid) #define PL_filemode (vTHX->Ifilemode) #define PL_firstgv (vTHX->Ifirstgv) +#define PL_fold_locale (vTHX->Ifold_locale) #define PL_forkprocess (vTHX->Iforkprocess) #define PL_formtarget (vTHX->Iformtarget) #define PL_generation (vTHX->Igeneration) @@ -155,6 +150,7 @@ #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) @@ -167,11 +163,6 @@ #define PL_langinfo_buf (vTHX->Ilanginfo_buf) #define PL_langinfo_bufsize (vTHX->Ilanginfo_bufsize) #define PL_last_in_gv (vTHX->Ilast_in_gv) -#define PL_last_swash_hv (vTHX->Ilast_swash_hv) -#define PL_last_swash_key (vTHX->Ilast_swash_key) -#define PL_last_swash_klen (vTHX->Ilast_swash_klen) -#define PL_last_swash_slen (vTHX->Ilast_swash_slen) -#define PL_last_swash_tmps (vTHX->Ilast_swash_tmps) #define PL_lastfd (vTHX->Ilastfd) #define PL_lastgotoprobe (vTHX->Ilastgotoprobe) #define PL_laststatval (vTHX->Ilaststatval) @@ -190,6 +181,9 @@ #define PL_markstack_ptr (vTHX->Imarkstack_ptr) #define PL_max_intro_pending (vTHX->Imax_intro_pending) #define PL_maxsysfd (vTHX->Imaxsysfd) +#define PL_mbrlen_ps (vTHX->Imbrlen_ps) +#define PL_mbrtowc_ps (vTHX->Imbrtowc_ps) +#define PL_mem_log (vTHX->Imem_log) #define PL_memory_debug_header (vTHX->Imemory_debug_header) #define PL_mess_sv (vTHX->Imess_sv) #define PL_min_intro_pending (vTHX->Imin_intro_pending) @@ -221,7 +215,6 @@ #define PL_origalen (vTHX->Iorigalen) #define PL_origargc (vTHX->Iorigargc) #define PL_origargv (vTHX->Iorigargv) -#define PL_origenviron (vTHX->Iorigenviron) #define PL_origfilename (vTHX->Iorigfilename) #define PL_ors_sv (vTHX->Iors_sv) #define PL_osname (vTHX->Iosname) @@ -240,6 +233,7 @@ #define PL_phase (vTHX->Iphase) #define PL_pidstatus (vTHX->Ipidstatus) #define PL_preambleav (vTHX->Ipreambleav) +#define PL_prevailing_version (vTHX->Iprevailing_version) #define PL_profiledata (vTHX->Iprofiledata) #define PL_psig_name (vTHX->Ipsig_name) #define PL_psig_pend (vTHX->Ipsig_pend) @@ -271,19 +265,23 @@ #define PL_scopestack_ix (vTHX->Iscopestack_ix) #define PL_scopestack_max (vTHX->Iscopestack_max) #define PL_scopestack_name (vTHX->Iscopestack_name) +#define PL_scratch_locale_obj (vTHX->Iscratch_locale_obj) #define PL_secondgv (vTHX->Isecondgv) #define PL_setlocale_buf (vTHX->Isetlocale_buf) #define PL_setlocale_bufsize (vTHX->Isetlocale_bufsize) #define PL_sharehook (vTHX->Isharehook) #define PL_sig_pending (vTHX->Isig_pending) +#define PL_sighandler1p (vTHX->Isighandler1p) +#define PL_sighandler3p (vTHX->Isighandler3p) #define PL_sighandlerp (vTHX->Isighandlerp) #define PL_signalhook (vTHX->Isignalhook) #define PL_signals (vTHX->Isignals) -#define PL_sort_RealCmp (vTHX->Isort_RealCmp) #define PL_sortcop (vTHX->Isortcop) #define PL_sortstash (vTHX->Isortstash) #define PL_splitstr (vTHX->Isplitstr) #define PL_srand_called (vTHX->Isrand_called) +#define PL_srand_override (vTHX->Isrand_override) +#define PL_srand_override_next (vTHX->Isrand_override_next) #define PL_stack_base (vTHX->Istack_base) #define PL_stack_max (vTHX->Istack_max) #define PL_stack_sp (vTHX->Istack_sp) @@ -300,6 +298,8 @@ #define PL_statusvalue_vms (vTHX->Istatusvalue_vms) #define PL_stderrgv (vTHX->Istderrgv) #define PL_stdingv (vTHX->Istdingv) +#define PL_stdize_locale_buf (vTHX->Istdize_locale_buf) +#define PL_stdize_locale_bufsize (vTHX->Istdize_locale_bufsize) #define PL_strtab (vTHX->Istrtab) #define PL_strxfrm_NUL_replacement (vTHX->Istrxfrm_NUL_replacement) #define PL_strxfrm_is_behaved (vTHX->Istrxfrm_is_behaved) @@ -334,203 +334,30 @@ #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_foldclosures (vTHX->Iutf8_foldclosures) +#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) #define PL_warnhook (vTHX->Iwarnhook) #define PL_watchaddr (vTHX->Iwatchaddr) #define PL_watchok (vTHX->Iwatchok) +#define PL_wcrtomb_ps (vTHX->Iwcrtomb_ps) #define PL_xsubfilename (vTHX->Ixsubfilename) #endif /* MULTIPLICITY */ -#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_NonFinalFold (my_vars->GNonFinalFold) -#define PL_GNonFinalFold (my_vars->GNonFinalFold) -#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_csighandlerp (my_vars->Gcsighandlerp) -#define PL_Gcsighandlerp (my_vars->Gcsighandlerp) -#define PL_curinterp (my_vars->Gcurinterp) -#define PL_Gcurinterp (my_vars->Gcurinterp) -#define PL_do_undump (my_vars->Gdo_undump) -#define PL_Gdo_undump (my_vars->Gdo_undump) -#define PL_dollarzero_mutex (my_vars->Gdollarzero_mutex) -#define PL_Gdollarzero_mutex (my_vars->Gdollarzero_mutex) -#define PL_fold_locale (my_vars->Gfold_locale) -#define PL_Gfold_locale (my_vars->Gfold_locale) -#define PL_hash_chars (my_vars->Ghash_chars) -#define PL_Ghash_chars (my_vars->Ghash_chars) -#define PL_hash_seed (my_vars->Ghash_seed) -#define PL_Ghash_seed (my_vars->Ghash_seed) -#define PL_hash_seed_set (my_vars->Ghash_seed_set) -#define PL_Ghash_seed_set (my_vars->Ghash_seed_set) -#define PL_hash_state (my_vars->Ghash_state) -#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_Gkeyword_plugin_mutex (my_vars->Gkeyword_plugin_mutex) -#define PL_lc_numeric_mutex (my_vars->Glc_numeric_mutex) -#define PL_Glc_numeric_mutex (my_vars->Glc_numeric_mutex) -#define PL_locale_mutex (my_vars->Glocale_mutex) -#define PL_Glocale_mutex (my_vars->Glocale_mutex) -#define PL_malloc_mutex (my_vars->Gmalloc_mutex) -#define PL_Gmalloc_mutex (my_vars->Gmalloc_mutex) -#define PL_mmap_page_size (my_vars->Gmmap_page_size) -#define PL_Gmmap_page_size (my_vars->Gmmap_page_size) -#define PL_my_ctx_mutex (my_vars->Gmy_ctx_mutex) -#define PL_Gmy_ctx_mutex (my_vars->Gmy_ctx_mutex) -#define PL_my_cxt_index (my_vars->Gmy_cxt_index) -#define PL_Gmy_cxt_index (my_vars->Gmy_cxt_index) -#define PL_my_cxt_keys (my_vars->Gmy_cxt_keys) -#define PL_Gmy_cxt_keys (my_vars->Gmy_cxt_keys) -#define PL_my_cxt_keys_size (my_vars->Gmy_cxt_keys_size) -#define PL_Gmy_cxt_keys_size (my_vars->Gmy_cxt_keys_size) -#define PL_op_mutex (my_vars->Gop_mutex) -#define PL_Gop_mutex (my_vars->Gop_mutex) -#define PL_op_seq (my_vars->Gop_seq) -#define PL_Gop_seq (my_vars->Gop_seq) -#define PL_op_sequence (my_vars->Gop_sequence) -#define PL_Gop_sequence (my_vars->Gop_sequence) -#define PL_perlio_debug_fd (my_vars->Gperlio_debug_fd) -#define PL_Gperlio_debug_fd (my_vars->Gperlio_debug_fd) -#define PL_perlio_fd_refcnt (my_vars->Gperlio_fd_refcnt) -#define PL_Gperlio_fd_refcnt (my_vars->Gperlio_fd_refcnt) -#define PL_perlio_fd_refcnt_size (my_vars->Gperlio_fd_refcnt_size) -#define PL_Gperlio_fd_refcnt_size (my_vars->Gperlio_fd_refcnt_size) -#define PL_perlio_mutex (my_vars->Gperlio_mutex) -#define PL_Gperlio_mutex (my_vars->Gperlio_mutex) -#ifdef __VMS -#define PL_perllib_sep (my_vars->Gperllib_sep) -#define PL_Gperllib_sep (my_vars->Gperllib_sep) -#endif -#define PL_ppaddr (my_vars->Gppaddr) -#define PL_Gppaddr (my_vars->Gppaddr) -#ifdef OS2 -#define PL_sh_path (my_vars->Gsh_path) -#define PL_Gsh_path (my_vars->Gsh_path) -#endif -#define PL_sig_defaulting (my_vars->Gsig_defaulting) -#define PL_Gsig_defaulting (my_vars->Gsig_defaulting) -#define PL_sig_handlers_initted (my_vars->Gsig_handlers_initted) -#define PL_Gsig_handlers_initted (my_vars->Gsig_handlers_initted) -#define PL_sig_ignoring (my_vars->Gsig_ignoring) -#define PL_Gsig_ignoring (my_vars->Gsig_ignoring) -#define PL_sig_trapped (my_vars->Gsig_trapped) -#define PL_Gsig_trapped (my_vars->Gsig_trapped) -#define PL_sigfpe_saved (my_vars->Gsigfpe_saved) -#define PL_Gsigfpe_saved (my_vars->Gsigfpe_saved) -#define PL_strategy_accept (my_vars->Gstrategy_accept) -#define PL_Gstrategy_accept (my_vars->Gstrategy_accept) -#define PL_strategy_dup (my_vars->Gstrategy_dup) -#define PL_Gstrategy_dup (my_vars->Gstrategy_dup) -#define PL_strategy_dup2 (my_vars->Gstrategy_dup2) -#define PL_Gstrategy_dup2 (my_vars->Gstrategy_dup2) -#define PL_strategy_mkstemp (my_vars->Gstrategy_mkstemp) -#define PL_Gstrategy_mkstemp (my_vars->Gstrategy_mkstemp) -#define PL_strategy_open (my_vars->Gstrategy_open) -#define PL_Gstrategy_open (my_vars->Gstrategy_open) -#define PL_strategy_open3 (my_vars->Gstrategy_open3) -#define PL_Gstrategy_open3 (my_vars->Gstrategy_open3) -#define PL_strategy_pipe (my_vars->Gstrategy_pipe) -#define PL_Gstrategy_pipe (my_vars->Gstrategy_pipe) -#define PL_strategy_socket (my_vars->Gstrategy_socket) -#define PL_Gstrategy_socket (my_vars->Gstrategy_socket) -#define PL_strategy_socketpair (my_vars->Gstrategy_socketpair) -#define PL_Gstrategy_socketpair (my_vars->Gstrategy_socketpair) -#define PL_sv_placeholder (my_vars->Gsv_placeholder) -#define PL_Gsv_placeholder (my_vars->Gsv_placeholder) -#define PL_thr_key (my_vars->Gthr_key) -#define PL_Gthr_key (my_vars->Gthr_key) -#define PL_timesbase (my_vars->Gtimesbase) -#define PL_Gtimesbase (my_vars->Gtimesbase) -#define PL_use_safe_putenv (my_vars->Guse_safe_putenv) -#define PL_Guse_safe_putenv (my_vars->Guse_safe_putenv) -#define PL_user_def_props (my_vars->Guser_def_props) -#define PL_Guser_def_props (my_vars->Guser_def_props) -#define PL_user_def_props_aTHX (my_vars->Guser_def_props_aTHX) -#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) -#define PL_Gwatch_pvx (my_vars->Gwatch_pvx) - -#endif /* PERL_GLOBAL_STRUCT */ - /* ex: set ro: */