(?p{}) has been deprecated for a long time.
[p5sagit/p5-mst-13.2.git] / EXTERN.h
CommitLineData
a0d0e21e 1/* EXTERN.h
a687059c 2 *
4bb101f2 3 * Copyright (C) 1991, 1992, 1993, 1995, 1996, 1997, 1998, 1999,
4 * 2000, 2001, by Larry Wall and others
a687059c 5 *
132b68a5 6 * You may distribute under the terms of either the GNU General Public
7 * License or the Artistic License, as specified in the README file.
8d063cd8 8 *
8d063cd8 9 */
10
4633a7c4 11/*
12 * EXT designates a global var which is defined in perl.h
13 * dEXT designates a global var which is defined in another
14 * file, so we can't count on finding it in perl.h
15 * (this practice should be avoided).
16 */
8d063cd8 17#undef EXT
4633a7c4 18#undef dEXT
36477c24 19#undef EXTCONST
20#undef dEXTCONST
4633a7c4 21#if defined(VMS) && !defined(__GNUC__)
17f28c40 22 /* Suppress portability warnings from DECC for VMS-specific extensions */
23# ifdef __DECC
24# pragma message disable (GLOBALEXT,NOSHAREEXT,READONLYEXT)
25# endif
4633a7c4 26# define EXT globalref
27# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
36477c24 28# define EXTCONST globalref
29# define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly
4633a7c4 30#else
27da23d5 31# if (defined(WIN32) || defined(__SYMBIAN32__)) && !defined(PERL_STATIC_SYMS)
32# if defined(PERLDLL) || defined(__SYMBIAN32__)
3e3baf6d 33# define EXT extern __declspec(dllexport)
54310121 34# define dEXT
3e3baf6d 35# define EXTCONST extern __declspec(dllexport) const
54310121 36# define dEXTCONST const
37# else
3e3baf6d 38# define EXT extern __declspec(dllimport)
39# define dEXT
40# define EXTCONST extern __declspec(dllimport) const
41# define dEXTCONST const
54310121 42# endif
43# else
d308986b 44# if defined(__CYGWIN__) && defined(USEIMPORTLIB)
8736538c 45# define EXT extern __declspec(dllimport)
46# define dEXT
47# define EXTCONST extern __declspec(dllimport) const
48# define dEXTCONST const
49# else
50# define EXT extern
51# define dEXT
52# define EXTCONST extern const
53# define dEXTCONST const
54# endif
54310121 55# endif
4633a7c4 56#endif
8d063cd8 57
58#undef INIT
59#define INIT(x)
60
61#undef DOINIT