1998-09-09 07:00:04 +00:00
|
|
|
/* EXTERN.h
|
|
|
|
|
*
|
1999-05-02 14:33:17 +00:00
|
|
|
* Copyright (c) 1991-1999, Larry Wall
|
1998-09-09 07:00:04 +00:00
|
|
|
*
|
|
|
|
|
* 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
|
|
|
|
|
#undef EXTCONST
|
|
|
|
|
#undef dEXTCONST
|
|
|
|
|
#if defined(VMS) && !defined(__GNUC__)
|
|
|
|
|
/* Suppress portability warnings from DECC for VMS-specific extensions */
|
|
|
|
|
# ifdef __DECC
|
|
|
|
|
# pragma message disable (GLOBALEXT,NOSHAREEXT,READONLYEXT)
|
|
|
|
|
# endif
|
|
|
|
|
# define EXT globalref
|
|
|
|
|
# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
|
|
|
|
|
# define EXTCONST globalref
|
|
|
|
|
# define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly
|
|
|
|
|
#else
|
|
|
|
|
# if defined(WIN32) && !defined(PERL_STATIC_SYMS) && !defined(__GNUC__) && !defined(PERL_OBJECT)
|
|
|
|
|
# ifdef PERLDLL
|
|
|
|
|
# define EXT extern __declspec(dllexport)
|
|
|
|
|
# define dEXT
|
|
|
|
|
# define EXTCONST extern __declspec(dllexport) const
|
|
|
|
|
# define dEXTCONST const
|
|
|
|
|
# else
|
|
|
|
|
# define EXT extern __declspec(dllimport)
|
|
|
|
|
# define dEXT
|
|
|
|
|
# define EXTCONST extern __declspec(dllimport) const
|
|
|
|
|
# define dEXTCONST const
|
|
|
|
|
# endif
|
|
|
|
|
# else
|
|
|
|
|
# define EXT extern
|
|
|
|
|
# define dEXT
|
|
|
|
|
# define EXTCONST extern const
|
|
|
|
|
# define dEXTCONST const
|
|
|
|
|
# endif
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#undef INIT
|
|
|
|
|
#define INIT(x)
|
|
|
|
|
|
|
|
|
|
#undef DOINIT
|
