Fcntl.xs revision 7c478bd95313f5f23a4c958a745db2134aa03244
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef VMS
# include <file.h>
#else
#define _NO_OLDNAMES
#endif
# include <fcntl.h>
#endif
#endif
#ifdef I_UNISTD
#include <unistd.h>
#endif
/* This comment is a kludge to get metaconfig to see the symbols
VAL_O_NONBLOCK
VAL_EAGAIN
RD_NODATA
EOF_NONBLOCK
and include the appropriate metaconfig unit
so that Configure will test how to turn on non-blocking I/O
for a file descriptor. See config.h for how to use these
in your extension.
While I'm at it, I'll have metaconfig look for HAS_POLL too.
--AD October 16, 1995
*/
static double
{
errno = 0;
switch (*name) {
case '_':
#ifdef S_IFMT
return S_IFMT;
#else
goto not_there;
#endif
break;
case 'F':
#ifdef F_ALLOCSP
return F_ALLOCSP;
#else
goto not_there;
#endif
#ifdef F_ALLOCSP64
return F_ALLOCSP64;
#else
goto not_there;
#endif
#ifdef F_COMPAT
return F_COMPAT;
#else
goto not_there;
#endif
#ifdef F_DUP2FD
return F_DUP2FD;
#else
goto not_there;
#endif
#ifdef F_DUPFD
return F_DUPFD;
#else
goto not_there;
#endif
#ifdef F_EXLCK
return F_EXLCK;
#else
goto not_there;
#endif
#ifdef F_FREESP
return F_FREESP;
#else
goto not_there;
#endif
#ifdef F_FREESP64
return F_FREESP64;
#else
goto not_there;
#endif
#ifdef F_FSYNC
return F_FSYNC;
#else
goto not_there;
#endif
#ifdef F_FSYNC64
return F_FSYNC64;
#else
goto not_there;
#endif
#ifdef F_GETFD
return F_GETFD;
#else
goto not_there;
#endif
#ifdef F_GETFL
return F_GETFL;
#else
goto not_there;
#endif
#ifdef F_GETLK
return F_GETLK;
#else
goto not_there;
#endif
#ifdef F_GETLK64
return F_GETLK64;
#else
goto not_there;
#endif
#ifdef F_GETOWN
return F_GETOWN;
#else
goto not_there;
#endif
#ifdef F_NODNY
return F_NODNY;
#else
goto not_there;
#endif
#ifdef F_POSIX
return F_POSIX;
#else
goto not_there;
#endif
#ifdef F_RDACC
return F_RDACC;
#else
goto not_there;
#endif
#ifdef F_RDDNY
return F_RDDNY;
#else
goto not_there;
#endif
#ifdef F_RDLCK
return F_RDLCK;
#else
goto not_there;
#endif
#ifdef F_RWACC
return F_RWACC;
#else
goto not_there;
#endif
#ifdef F_RWDNY
return F_RWDNY;
#else
goto not_there;
#endif
#ifdef F_SETFD
return F_SETFD;
#else
goto not_there;
#endif
#ifdef F_SETFL
return F_SETFL;
#else
goto not_there;
#endif
#ifdef F_SETLK
return F_SETLK;
#else
goto not_there;
#endif
#ifdef F_SETLK64
return F_SETLK64;
#else
goto not_there;
#endif
#ifdef F_SETLKW
return F_SETLKW;
#else
goto not_there;
#endif
#ifdef F_SETLKW64
return F_SETLKW64;
#else
goto not_there;
#endif
#ifdef F_SETOWN
return F_SETOWN;
#else
goto not_there;
#endif
#ifdef F_SHARE
return F_SHARE;
#else
goto not_there;
#endif
#ifdef F_SHLCK
return F_SHLCK;
#else
goto not_there;
#endif
#ifdef F_UNLCK
return F_UNLCK;
#else
goto not_there;
#endif
#ifdef F_UNSHARE
return F_UNSHARE;
#else
goto not_there;
#endif
#ifdef F_WRACC
return F_WRACC;
#else
goto not_there;
#endif
#ifdef F_WRDNY
return F_WRDNY;
#else
goto not_there;
#endif
#ifdef F_WRLCK
return F_WRLCK;
#else
goto not_there;
#endif
return 0;
}
#ifdef FAPPEND
return FAPPEND;
#else
goto not_there;
#endif
#ifdef FASYNC
return FASYNC;
#else
goto not_there;
#endif
#ifdef FCREAT
return FCREAT;
#else
goto not_there;
#endif
#ifdef FD_CLOEXEC
return FD_CLOEXEC;
#else
goto not_there;
#endif
#ifdef FDEFER
return FDEFER;
#else
goto not_there;
#endif
#ifdef FDSYNC
return FDSYNC;
#else
goto not_there;
#endif
#ifdef FEXCL
return FEXCL;
#else
goto not_there;
#endif
#ifdef FLARGEFILE
return FLARGEFILE;
#else
goto not_there;
#endif
#ifdef FNDELAY
return FNDELAY;
#else
goto not_there;
#endif
#ifdef FNONBLOCK
return FNONBLOCK;
#else
goto not_there;
#endif
#ifdef FRSYNC
return FRSYNC;
#else
goto not_there;
#endif
#ifdef FSYNC
return FSYNC;
#else
goto not_there;
#endif
#ifdef FTRUNC
return FTRUNC;
#else
goto not_there;
#endif
break;
case 'L':
/* We support flock() on systems which don't have it, so
always supply the constants. */
#ifdef LOCK_SH
return LOCK_SH;
#else
return 1;
#endif
#ifdef LOCK_EX
return LOCK_EX;
#else
return 2;
#endif
#ifdef LOCK_NB
return LOCK_NB;
#else
return 4;
#endif
#ifdef LOCK_UN
return LOCK_UN;
#else
return 8;
#endif
} else
goto not_there;
break;
case 'O':
#ifdef O_ACCMODE
return O_ACCMODE;
#else
goto not_there;
#endif
#ifdef O_APPEND
return O_APPEND;
#else
goto not_there;
#endif
#ifdef O_ASYNC
return O_ASYNC;
#else
goto not_there;
#endif
#ifdef O_BINARY
return O_BINARY;
#else
goto not_there;
#endif
#ifdef O_CREAT
return O_CREAT;
#else
goto not_there;
#endif
#ifdef O_DEFER
return O_DEFER;
#else
goto not_there;
#endif
#ifdef O_DIRECT
return O_DIRECT;
#else
goto not_there;
#endif
#ifdef O_DIRECTORY
return O_DIRECTORY;
#else
goto not_there;
#endif
#ifdef O_DSYNC
return O_DSYNC;
#else
goto not_there;
#endif
#ifdef O_EXCL
return O_EXCL;
#else
goto not_there;
#endif
#ifdef O_EXLOCK
return O_EXLOCK;
#else
goto not_there;
#endif
#ifdef O_LARGEFILE
return O_LARGEFILE;
#else
goto not_there;
#endif
#ifdef O_NDELAY
return O_NDELAY;
#else
goto not_there;
#endif
#ifdef O_NOCTTY
return O_NOCTTY;
#else
goto not_there;
#endif
#ifdef O_NOFOLLOW
return O_NOFOLLOW;
#else
goto not_there;
#endif
#ifdef O_NOINHERIT
return O_NOINHERIT;
#else
goto not_there;
#endif
#ifdef O_NONBLOCK
return O_NONBLOCK;
#else
goto not_there;
#endif
#ifdef O_RANDOM
return O_RANDOM;
#else
goto not_there;
#endif
#ifdef O_RAW
return O_RAW;
#else
goto not_there;
#endif
#ifdef O_RDONLY
return O_RDONLY;
#else
goto not_there;
#endif
#ifdef O_RDWR
return O_RDWR;
#else
goto not_there;
#endif
#ifdef O_RSYNC
return O_RSYNC;
#else
goto not_there;
#endif
#ifdef O_SEQUENTIAL
return O_SEQUENTIAL;
#else
goto not_there;
#endif
#ifdef O_SHLOCK
return O_SHLOCK;
#else
goto not_there;
#endif
#ifdef O_SYNC
return O_SYNC;
#else
goto not_there;
#endif
#ifdef O_TEMPORARY
return O_TEMPORARY;
#else
goto not_there;
#endif
#ifdef O_TEXT
return O_TEXT;
#else
goto not_there;
#endif
#ifdef O_TRUNC
return O_TRUNC;
#else
goto not_there;
#endif
#ifdef O_WRONLY
return O_WRONLY;
#else
goto not_there;
#endif
#ifdef O_ALIAS
return O_ALIAS;
#else
goto not_there;
#endif
#ifdef O_RSRC
return O_RSRC;
#else
goto not_there;
#endif
} else
goto not_there;
break;
case 'S':
switch (name[1]) {
case '_':
#ifdef S_ISUID
return S_ISUID;
#else
goto not_there;
#endif
#ifdef S_ISGID
return S_ISGID;
#else
goto not_there;
#endif
#ifdef S_ISVTX
return S_ISVTX;
#else
goto not_there;
#endif
#ifdef S_ISTXT
return S_ISTXT;
#else
goto not_there;
#endif
#ifdef S_IFREG
return S_IFREG;
#else
goto not_there;
#endif
#ifdef S_IFDIR
return S_IFDIR;
#else
goto not_there;
#endif
#ifdef S_IFLNK
return S_IFLNK;
#else
goto not_there;
#endif
#ifdef S_IFSOCK
return S_IFSOCK;
#else
goto not_there;
#endif
#ifdef S_IFBLK
return S_IFBLK;
#else
goto not_there;
#endif
#ifdef S_IFCHR
return S_IFCHR;
#else
goto not_there;
#endif
#ifdef S_IFIFO
return S_IFIFO;
#else
goto not_there;
#endif
#ifdef S_IFWHT
return S_IFWHT;
#else
goto not_there;
#endif
#ifdef S_ENFMT
return S_ENFMT;
#else
goto not_there;
#endif
#ifdef S_IRUSR
return S_IRUSR;
#else
goto not_there;
#endif
#ifdef S_IWUSR
return S_IWUSR;
#else
goto not_there;
#endif
#ifdef S_IXUSR
return S_IXUSR;
#else
goto not_there;
#endif
#ifdef S_IRWXU
return S_IRWXU;
#else
goto not_there;
#endif
#ifdef S_IRGRP
return S_IRGRP;
#else
goto not_there;
#endif
#ifdef S_IWGRP
return S_IWGRP;
#else
goto not_there;
#endif
#ifdef S_IXGRP
return S_IXGRP;
#else
goto not_there;
#endif
#ifdef S_IRWXG
return S_IRWXG;
#else
goto not_there;
#endif
#ifdef S_IROTH
return S_IROTH;
#else
goto not_there;
#endif
#ifdef S_IWOTH
return S_IWOTH;
#else
goto not_there;
#endif
#ifdef S_IXOTH
return S_IXOTH;
#else
goto not_there;
#endif
#ifdef S_IRWXO
return S_IRWXO;
#else
goto not_there;
#endif
#ifdef S_IREAD
return S_IREAD;
#else
goto not_there;
#endif
#ifdef S_IWRITE
return S_IWRITE;
#else
goto not_there;
#endif
#ifdef S_IEXEC
return S_IEXEC;
#else
goto not_there;
#endif
break;
case 'E':
#ifdef SEEK_CUR
return SEEK_CUR;
#else
return 1;
#endif
#ifdef SEEK_END
return SEEK_END;
#else
return 2;
#endif
#ifdef SEEK_SET
return SEEK_SET;
#else
return 0;
#endif
break;
}
}
return 0;
return 0;
}
double
char * name
int arg