ext/Fcntl/Fcntl.xs

   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