1 #define PERL_NO_GET_CONTEXT 2 #include "EXTERN.h" 3 #include "perl.h" 4 #include "XSUB.h" 5 6 #ifdef VMS 7 # include <file.h> 8 #else 9 #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32) 10 #define _NO_OLDNAMES 11 #endif 12 # include <fcntl.h> 13 #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32) 14 #undef _NO_OLDNAMES 15 #endif 16 #endif 17 18 #ifdef I_UNISTD 19 #include <unistd.h> 20 #endif 21 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 36 #include "const-c.inc" 37 38 MODULE = Fcntl PACKAGE = Fcntl 39 40 INCLUDE: const-xs.inc 41