This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Nearly-working threads re-structuring. Do not integrate,
[perl5.git] / perlvars.h
1 /****************/
2 /* Truly global */
3 /****************/
4
5 /* Don't forget to re-run embed.pl to propagate changes! */
6
7 /* This file describes the "global" variables used by perl
8  * This used to be in perl.h directly but we want to abstract out into
9  * distinct files which are per-thread, per-interpreter or really global,
10  * and how they're initialized.
11  *
12  * The 'G' prefix is only needed for vars that need appropriate #defines
13  * generated in embed*.h.  Such symbols are also used to generate
14  * the appropriate export list for win32. */
15
16 /* global state */
17 PERLVAR(Gcurinterp,     PerlInterpreter *)
18                                         /* currently running interpreter
19                                          * (initial parent interpreter under
20                                          * useithreads) */
21 #if defined(USE_5005THREADS) || defined(USE_ITHREADS)
22 PERLVAR(Gthr_key,       perl_key)       /* key to retrieve per-thread struct */
23 #endif
24
25 /* constants (these are not literals to facilitate pointer comparisons) */
26 PERLVARIC(GYes,         char *, "1")
27 PERLVARIC(GNo,          char *, "")
28 PERLVARIC(Ghexdigit,    char *, "0123456789abcdef0123456789ABCDEF")
29 PERLVARIC(Gpatleave,    char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")
30
31 /* XXX does anyone even use this? */
32 PERLVARI(Gdo_undump,    bool,   FALSE)  /* -u or dump seen? */
33
34 #if defined(MYMALLOC) && (defined(USE_5005THREADS) || defined(USE_ITHREADS))
35 PERLVAR(Gmalloc_mutex,  perl_mutex)     /* Mutex for malloc */
36 #endif
37
38 #if defined(USE_ITHREADS)
39 PERLVAR(Gop_mutex,      perl_mutex)     /* Mutex for op refcounting */
40 #endif
41
42 /* Force inclusion of both runops options */
43 PERLVARI(Grunops_std,   runops_proc_t,  MEMBER_TO_FPTR(Perl_runops_standard))
44 PERLVARI(Grunops_dbg,   runops_proc_t,  MEMBER_TO_FPTR(Perl_runops_debug))
45
46 /* Hooks to shared SVs and locks. */
47 PERLVARI(Gsharehook,    share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nosharing))
48 PERLVARI(Glockhook,     share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nolocking))
49 PERLVARI(Gunlockhook,   share_proc_t,   MEMBER_TO_FPTR(Perl_sv_nounlocking))
50