[perl5.git] / perlvars.h

/****************/
/* Truly global */
/****************/

/* 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.
 *
 * Avoid build-specific #ifdefs here, like DEBUGGING.  That way,
 * we can keep binary compatibility of the curinterp structure */


/* global state */
PERLVAR(Gcurinterp,	PerlInterpreter *)
					/* currently running interpreter
					 * XXX this needs to be in TLS */

/* 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? */
Commit	Line	Data
49f531da NIS	1	/****************/
	2	/* Truly global */
	3	/****************/
	4
cb68f92d GS	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
22c35a8c	13	* generated in embed*.h. Such symbols are also used to generate
cb68f92d GS	14	* the appropriate export list for win32.
	15	*
	16	* Avoid build-specific #ifdefs here, like DEBUGGING. That way,
	17	* we can keep binary compatibility of the curinterp structure */
	18
	19
49f531da	20	/* global state */
cb68f92d	21	PERLVAR(Gcurinterp, PerlInterpreter *)
43165c05 GS	22	/* currently running interpreter
43165c05 GS	23	* XXX this needs to be in TLS */
a0ed51b3	24
3fe35a81	25	/* constants (these are not literals to facilitate pointer comparisons) */
3fe6f2dc MB	26	PERLVARIC(GYes, char *, "1")
3fe6f2dc MB	27	PERLVARIC(GNo, char *, "")
e3fdf988	28	PERLVARIC(Ghexdigit, char *, "0123456789abcdef0123456789ABCDEF")
3fe6f2dc	29	PERLVARIC(Gpatleave, char , "\\.^$@dDwWsSbB+?\|()-nrtfeaxc0123456789[{]}")
43165c05 GS	30
	31	/* XXX does anyone even use this? */
	32	PERLVARI(Gdo_undump, bool, FALSE) /* -u or dump seen? */