1 /* INTERN.h 2 * 3 * Copyright (c) 1991-1997, Larry Wall 4 * 5 * You may distribute under the terms of either the GNU General Public 6 * License or the Artistic License, as specified in the README file. 7 * 8 */ 9 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 */ 16 #undef EXT 17 #undef dEXT 18 #undef EXTCONST 19 #undef dEXTCONST 20 #if defined(VMS) && !defined(__GNUC__) 21 # define EXT globaldef {"$GLOBAL_RW_VARS"} noshare 22 # define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare 23 # define EXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly 24 # define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly 25 #else 26 # define EXT 27 # define dEXT 28 # define EXTCONST const 29 # define dEXTCONST const 30 #endif 31 32 #undef INIT 33 #define INIT(x) = x 34 35 #define DOINIT 36