perl 5.003_07: t/lib/io_pipe.t
[perl.git] / EXTERN.h
1 /*    EXTERN.h
2  *
3  *    Copyright (c) 1991-1994, 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 #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
25
26 #undef INIT
27 #define INIT(x)
28
29 #undef DOINIT