This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix bug #18573 : in a double-quoted string, a \c not followed
[perl5.git] / perlvars.h
... / ...
CommitLineData
1/* perlvars.h
2 *
3 * Copyright (c) 1997-2002, Larry Wall
4 *
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
7 *
8 */
9
10/****************/
11/* Truly global */
12/****************/
13
14/* Don't forget to re-run embed.pl to propagate changes! */
15
16/* This file describes the "global" variables used by perl
17 * This used to be in perl.h directly but we want to abstract out into
18 * distinct files which are per-thread, per-interpreter or really global,
19 * and how they're initialized.
20 *
21 * The 'G' prefix is only needed for vars that need appropriate #defines
22 * generated in embed*.h. Such symbols are also used to generate
23 * the appropriate export list for win32. */
24
25/* global state */
26PERLVAR(Gcurinterp, PerlInterpreter *)
27 /* currently running interpreter
28 * (initial parent interpreter under
29 * useithreads) */
30#if defined(USE_ITHREADS)
31PERLVAR(Gthr_key, perl_key) /* key to retrieve per-thread struct */
32#endif
33
34/* constants (these are not literals to facilitate pointer comparisons) */
35PERLVARIC(GYes, char *, "1")
36PERLVARIC(GNo, char *, "")
37PERLVARIC(Ghexdigit, char *, "0123456789abcdef0123456789ABCDEF")
38PERLVARIC(Gpatleave, char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")
39
40/* XXX does anyone even use this? */
41PERLVARI(Gdo_undump, bool, FALSE) /* -u or dump seen? */
42
43#if defined(MYMALLOC) && defined(USE_ITHREADS)
44PERLVAR(Gmalloc_mutex, perl_mutex) /* Mutex for malloc */
45#endif
46
47#if defined(USE_ITHREADS)
48PERLVAR(Gop_mutex, perl_mutex) /* Mutex for op refcounting */
49#endif
50
51/* Force inclusion of both runops options */
52PERLVARI(Grunops_std, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_standard))
53PERLVARI(Grunops_dbg, runops_proc_t, MEMBER_TO_FPTR(Perl_runops_debug))
54
55/* Hooks to shared SVs and locks. */
56PERLVARI(Gsharehook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nosharing))
57PERLVARI(Glockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nolocking))
58PERLVARI(Gunlockhook, share_proc_t, MEMBER_TO_FPTR(Perl_sv_nounlocking))
59PERLVARI(Gthreadhook, thrhook_proc_t, MEMBER_TO_FPTR(Perl_nothreadhook))
60
61/* Stores the PPID */
62#ifdef THREADS_HAVE_PIDS
63PERLVARI(Gppid, IV, 0)
64#endif