e40b4106a602429b360ff8e2e1fb9fe03bf5dd96
* Copyright (C) 1999, 2000, 2001, 2002, by Larry Wall and others
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
/* Don't forget to re-run embed.pl to propagate changes! */
/* This file describes the "global" variables used by perl
* This used to be in perl.h directly but we want to abstract out into
* distinct files which are per-thread, per-interpreter or really global,
* and how they're initialized.
* The 'G' prefix is only needed for vars that need appropriate #defines
* generated in embed*.h. Such symbols are also used to generate
* the appropriate export list for win32. */
PERLVAR(Gcurinterp
, PerlInterpreter
*)
/* currently running interpreter
* (initial parent interpreter under
#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
PERLVAR(Gthr_key
, perl_key
) /* key to retrieve per-thread struct */
/* constants (these are not literals to facilitate pointer comparisons) */
PERLVARIC(GYes
, char *, "1")
PERLVARIC(GNo
, char *, "")
PERLVARIC(Ghexdigit
, char *, "0123456789abcdef0123456789ABCDEF")
PERLVARIC(Gpatleave
, char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")
/* XXX does anyone even use this? */
PERLVARI(Gdo_undump
, bool, FALSE
) /* -u or dump seen? */
#if defined(MYMALLOC) && (defined(USE_5005THREADS) || defined(USE_ITHREADS))
PERLVAR(Gmalloc_mutex
, perl_mutex
) /* Mutex for malloc */
#if defined(USE_ITHREADS)
PERLVAR(Gop_mutex
, perl_mutex
) /* Mutex for op refcounting */
#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
PERLVAR(Gdollarzero_mutex
, perl_mutex
) /* Modifying $0 */
/* This is constant on most architectures, a global on OS/2 */
PERLVARI(Gsh_path
, const char *, SH_PATH
)/* full path of shell */
/* If Perl has to ignore SIGPFE, this is its saved state.
* See perl.h macros PERL_FPU_INIT and PERL_FPU_{PRE,POST}_EXEC. */
PERLVAR(Gsigfpe_saved
, Sighandler_t
)
/* Restricted hashes placeholder value.
* The contents are never used, only the address. */
PERLVAR(Gsv_placeholder
, SV
)
PERLVARI(Gcsighandlerp
, Sighandler_t
, Perl_csighandler
) /* Pointer to C-level sighandler */
#ifndef PERL_USE_SAFE_PUTENV
PERLVARI(Guse_safe_putenv
, int, 1)