Commit | Line | Data |
---|---|---|
c5be433b | 1 | #define PERL_NO_GET_CONTEXT |
a0d0e21e LW |
2 | #include "EXTERN.h" |
3 | #include "perl.h" | |
4 | #include "XSUB.h" | |
5 | ||
75ced34b | 6 | #ifdef VMS |
7 | # include <file.h> | |
8 | #else | |
cd661bb6 NIS |
9 | #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32) |
10 | #define _NO_OLDNAMES | |
11 | #endif | |
75ced34b | 12 | # include <fcntl.h> |
cd661bb6 NIS |
13 | #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32) |
14 | #undef _NO_OLDNAMES | |
15 | #endif | |
75ced34b | 16 | #endif |
a0d0e21e | 17 | |
ac88732c JH |
18 | #ifdef I_UNISTD |
19 | #include <unistd.h> | |
20 | #endif | |
21 | ||
8e07c86e AD |
22 | /* This comment is a kludge to get metaconfig to see the symbols |
23 | VAL_O_NONBLOCK | |
24 | VAL_EAGAIN | |
25 | RD_NODATA | |
26 | EOF_NONBLOCK | |
27 | and include the appropriate metaconfig unit | |
28 | so that Configure will test how to turn on non-blocking I/O | |
29 | for a file descriptor. See config.h for how to use these | |
30 | in your extension. | |
31 | ||
32 | While I'm at it, I'll have metaconfig look for HAS_POLL too. | |
33 | --AD October 16, 1995 | |
34 | */ | |
35 | ||
1cb0fb50 | 36 | #include "const-c.inc" |
a0d0e21e LW |
37 | |
38 | MODULE = Fcntl PACKAGE = Fcntl | |
39 | ||
1cb0fb50 | 40 | INCLUDE: const-xs.inc |