[perl5.git] / EXTERN.h

/*    EXTERN.h
 *
 *    Copyright (c) 1991-1994, Larry Wall
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

/*
 * EXT  designates a global var which is defined in perl.h
 * dEXT designates a global var which is defined in another
 *      file, so we can't count on finding it in perl.h
 *      (this practice should be avoided).
 */
#undef EXT
#undef dEXT
#if defined(VMS) && !defined(__GNUC__)
#  define EXT globalref
#  define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
#else
#  define EXT extern
#  define dEXT
#endif

#undef INIT
#define INIT(x)

#undef DOINIT
Commit	Line	Data
a0d0e21e	1	/* EXTERN.h
a687059c	2	*
a0d0e21e	3	* Copyright (c) 1991-1994, Larry Wall
a687059c	4	*
132b68a5 LW	5	* You may distribute under the terms of either the GNU General Public
132b68a5 LW	6	* License or the Artistic License, as specified in the README file.
8d063cd8	7	*
8d063cd8 LW	8	*/
8d063cd8 LW	9
4633a7c4 LW	10	/*
	11	* EXT designates a global var which is defined in perl.h
	12	* dEXT designates a global var which is defined in another
	13	* file, so we can't count on finding it in perl.h
	14	* (this practice should be avoided).
	15	*/
8d063cd8	16	#undef EXT
4633a7c4 LW	17	#undef dEXT
	18	#if defined(VMS) && !defined(__GNUC__)
	19	# define EXT globalref
	20	# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
	21	#else
	22	# define EXT extern
	23	# define dEXT
	24	#endif
8d063cd8 LW	25
	26	#undef INIT
	27	#define INIT(x)
	28
	29	#undef DOINIT