X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FFcntl%2FFcntl.xs;h=c907c9ac8d0b2ab7d1f2be01fc069757317b5f1d;hb=2dc92170b2dd9e41c48e775084065721dadbc042;hp=21029b212cc5cfd61bde83df9e80978f2397dd8f;hpb=0e06870bf080a38cda51c06c6612359afc2334e1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index 21029b2..c907c9a 100644
--- a/ext/Fcntl/Fcntl.xs
+++ b/ext/Fcntl/Fcntl.xs
@@ -33,757 +33,8 @@
    --AD  October 16, 1995
 */
 
-static int
-not_here(char *s)
-{
-    croak("%s not implemented on this architecture", s);
-    return -1;
-}
-
-static IV
-constant(char *name)
-{
-    errno = 0;
-    switch (*(name++)) {
-    case '_':
-	if (strEQ(name, "S_IFMT")) /* Yes, on name _S_IFMT return S_IFMT. */
-#ifdef S_IFMT
-	  return S_IFMT;
-#else
-	  goto not_there;
-#endif
-	break;
-    case 'F':
-	if (*name == '_') {
-	    name++;
-	    if (strEQ(name, "ALLOCSP"))
-#ifdef F_ALLOCSP
-	        return F_ALLOCSP;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "ALLOCSP64"))
-#ifdef F_ALLOCSP64
-	        return F_ALLOCSP64;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "COMPAT"))
-#ifdef F_COMPAT
-	        return F_COMPAT;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "DUP2FD"))
-#ifdef F_DUP2FD
-	        return F_DUP2FD;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "DUPFD"))
-#ifdef F_DUPFD
-	        return F_DUPFD;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "EXLCK"))
-#ifdef F_EXLCK
-	        return F_EXLCK;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "FREESP"))
-#ifdef F_FREESP
-	        return F_FREESP;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "FREESP64"))
-#ifdef F_FREESP64
-	        return F_FREESP64;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "FSYNC"))
-#ifdef F_FSYNC
-	        return F_FSYNC;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "FSYNC64"))
-#ifdef F_FSYNC64
-	        return F_FSYNC64;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "GETFD"))
-#ifdef F_GETFD
-	        return F_GETFD;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "GETFL"))
-#ifdef F_GETFL
-	        return F_GETFL;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "GETLK"))
-#ifdef F_GETLK
-	        return F_GETLK;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "GETLK64"))
-#ifdef F_GETLK64
-	        return F_GETLK64;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "GETOWN"))
-#ifdef F_GETOWN
-	        return F_GETOWN;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "NODNY"))
-#ifdef F_NODNY
-	        return F_NODNY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "POSIX"))
-#ifdef F_POSIX
-	        return F_POSIX;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RDACC"))
-#ifdef F_RDACC
-	        return F_RDACC;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RDDNY"))
-#ifdef F_RDDNY
-	        return F_RDDNY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RDLCK"))
-#ifdef F_RDLCK
-	        return F_RDLCK;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RWACC"))
-#ifdef F_RWACC
-	        return F_RWACC;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RWDNY"))
-#ifdef F_RWDNY
-	        return F_RWDNY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SETFD"))
-#ifdef F_SETFD
-	        return F_SETFD;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SETFL"))
-#ifdef F_SETFL
-	        return F_SETFL;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SETLK"))
-#ifdef F_SETLK
-	        return F_SETLK;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SETLK64"))
-#ifdef F_SETLK64
-	        return F_SETLK64;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SETLKW"))
-#ifdef F_SETLKW
-	        return F_SETLKW;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SETLKW64"))
-#ifdef F_SETLKW64
-	        return F_SETLKW64;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SETOWN"))
-#ifdef F_SETOWN
-	        return F_SETOWN;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SHARE"))
-#ifdef F_SHARE
-	        return F_SHARE;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SHLCK"))
-#ifdef F_SHLCK
-	        return F_SHLCK;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "UNLCK"))
-#ifdef F_UNLCK
-	        return F_UNLCK;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "UNSHARE"))
-#ifdef F_UNSHARE
-	        return F_UNSHARE;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "WRACC"))
-#ifdef F_WRACC
-	        return F_WRACC;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "WRDNY"))
-#ifdef F_WRDNY
-	        return F_WRDNY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "WRLCK"))
-#ifdef F_WRLCK
-	        return F_WRLCK;
-#else
-	        goto not_there;
-#endif
-	    errno = EINVAL;
-	    return 0;
-	}
-        if (strEQ(name, "APPEND"))
-#ifdef FAPPEND
-            return FAPPEND;
-#else
-            goto not_there;
-#endif
-        if (strEQ(name, "ASYNC"))
-#ifdef FASYNC
-            return FASYNC;
-#else
-            goto not_there;
-#endif
-        if (strEQ(name, "CREAT"))
-#ifdef FCREAT
-            return FCREAT;
-#else
-            goto not_there;
-#endif
-	if (strEQ(name, "D_CLOEXEC"))
-#ifdef FD_CLOEXEC
-	    return FD_CLOEXEC;
-#else
-	    goto not_there;
-#endif
-	if (strEQ(name, "DEFER"))
-#ifdef FDEFER
-	    return FDEFER;
-#else
-	    goto not_there;
-#endif
-        if (strEQ(name, "DSYNC"))
-#ifdef FDSYNC
-            return FDSYNC;
-#else
-            goto not_there;
-#endif
-        if (strEQ(name, "EXCL"))
-#ifdef FEXCL
-            return FEXCL;
-#else
-            goto not_there;
-#endif
-        if (strEQ(name, "LARGEFILE"))
-#ifdef FLARGEFILE
-            return FLARGEFILE;
-#else
-            goto not_there;
-#endif
-        if (strEQ(name, "NDELAY"))
-#ifdef FNDELAY
-            return FNDELAY;
-#else
-            goto not_there;
-#endif
-        if (strEQ(name, "NONBLOCK"))
-#ifdef FNONBLOCK
-            return FNONBLOCK;
-#else
-            goto not_there;
-#endif
-        if (strEQ(name, "RSYNC"))
-#ifdef FRSYNC
-            return FRSYNC;
-#else
-            goto not_there;
-#endif
-        if (strEQ(name, "SYNC"))
-#ifdef FSYNC
-            return FSYNC;
-#else
-            goto not_there;
-#endif
-        if (strEQ(name, "TRUNC"))
-#ifdef FTRUNC
-            return FTRUNC;
-#else
-            goto not_there;
-#endif
-	break;
-    case 'L':
-    	if (strnEQ(name, "OCK_", 4)) {
-	    /* We support flock() on systems which don't have it, so
-	       always supply the constants. */
-	    name += 4;
-	    if (strEQ(name, "SH"))
-#ifdef LOCK_SH
-		return LOCK_SH;
-#else
-		return 1;
-#endif
-	    if (strEQ(name, "EX"))
-#ifdef LOCK_EX
-		return LOCK_EX;
-#else
-		return 2;
-#endif
-    	    if (strEQ(name, "NB"))
-#ifdef LOCK_NB
-		return LOCK_NB;
-#else
-		return 4;
-#endif
-    	    if (strEQ(name, "UN"))
-#ifdef LOCK_UN
-    	    	return LOCK_UN;
-#else
-    	    	return 8;
-#endif
-	} else
-	  goto not_there;
-    	break;
-    case 'O':
-	if (name[0] == '_') {
-	    name++;
-	    if (strEQ(name, "ACCMODE"))
-#ifdef O_ACCMODE
-	        return O_ACCMODE;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "APPEND"))
-#ifdef O_APPEND
-	        return O_APPEND;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "ASYNC"))
-#ifdef O_ASYNC
-	        return O_ASYNC;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "BINARY"))
-#ifdef O_BINARY
-	        return O_BINARY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "CREAT"))
-#ifdef O_CREAT
-	        return O_CREAT;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "DEFER"))
-#ifdef O_DEFER
-	        return O_DEFER;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "DIRECT"))
-#ifdef O_DIRECT
-	        return O_DIRECT;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "DIRECTORY"))
-#ifdef O_DIRECTORY
-	        return O_DIRECTORY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "DSYNC"))
-#ifdef O_DSYNC
-	        return O_DSYNC;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "EXCL"))
-#ifdef O_EXCL
-	        return O_EXCL;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "EXLOCK"))
-#ifdef O_EXLOCK
-	        return O_EXLOCK;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "LARGEFILE"))
-#ifdef O_LARGEFILE
-	        return O_LARGEFILE;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "NDELAY"))
-#ifdef O_NDELAY
-	        return O_NDELAY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "NOCTTY"))
-#ifdef O_NOCTTY
-	        return O_NOCTTY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "NOFOLLOW"))
-#ifdef O_NOFOLLOW
-	        return O_NOFOLLOW;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "NOINHERIT"))
-#ifdef O_NOINHERIT
-	        return O_NOINHERIT;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "NONBLOCK"))
-#ifdef O_NONBLOCK
-	        return O_NONBLOCK;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RANDOM"))
-#ifdef O_RANDOM
-	        return O_RANDOM;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RAW"))
-#ifdef O_RAW
-	        return O_RAW;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RDONLY"))
-#ifdef O_RDONLY
-	        return O_RDONLY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RDWR"))
-#ifdef O_RDWR
-	        return O_RDWR;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RSYNC"))
-#ifdef O_RSYNC
-	        return O_RSYNC;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SEQUENTIAL"))
-#ifdef O_SEQUENTIAL
-	        return O_SEQUENTIAL;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SHLOCK"))
-#ifdef O_SHLOCK
-	        return O_SHLOCK;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "SYNC"))
-#ifdef O_SYNC
-	        return O_SYNC;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "TEMPORARY"))
-#ifdef O_TEMPORARY
-	        return O_TEMPORARY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "TEXT"))
-#ifdef O_TEXT
-	        return O_TEXT;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "TRUNC"))
-#ifdef O_TRUNC
-	        return O_TRUNC;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "WRONLY"))
-#ifdef O_WRONLY
-	        return O_WRONLY;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "ALIAS"))
-#ifdef O_ALIAS
-	        return O_ALIAS;
-#else
-	        goto not_there;
-#endif
-	    if (strEQ(name, "RSRC"))
-#ifdef O_RSRC
-	        return O_RSRC;
-#else
-	        goto not_there;
-#endif
-	} else
-	  goto not_there;
-	break;
-    case 'S':
-      switch (*(name++)) {
-      case '_':
-	if (strEQ(name, "ISUID"))
-#ifdef S_ISUID
-	  return S_ISUID;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "ISGID"))
-#ifdef S_ISGID
-	  return S_ISGID;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "ISVTX"))
-#ifdef S_ISVTX
-	  return S_ISVTX;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "ISTXT"))
-#ifdef S_ISTXT
-	  return S_ISTXT;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IFREG"))
-#ifdef S_IFREG
-	  return S_IFREG;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IFDIR"))
-#ifdef S_IFDIR
-	  return S_IFDIR;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IFLNK"))
-#ifdef S_IFLNK
-	  return S_IFLNK;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IFSOCK"))
-#ifdef S_IFSOCK
-	  return S_IFSOCK;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IFBLK"))
-#ifdef S_IFBLK
-	  return S_IFBLK;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IFCHR"))
-#ifdef S_IFCHR
-	  return S_IFCHR;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IFIFO"))
-#ifdef S_IFIFO
-	  return S_IFIFO;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IFWHT"))
-#ifdef S_IFWHT
-	  return S_IFWHT;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "ENFMT"))
-#ifdef S_ENFMT
-	  return S_ENFMT;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IRUSR"))
-#ifdef S_IRUSR
-	  return S_IRUSR;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IWUSR"))
-#ifdef S_IWUSR
-	  return S_IWUSR;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IXUSR"))
-#ifdef S_IXUSR
-	  return S_IXUSR;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IRWXU"))
-#ifdef S_IRWXU
-	  return S_IRWXU;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IRGRP"))
-#ifdef S_IRGRP
-	  return S_IRGRP;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IWGRP"))
-#ifdef S_IWGRP
-	  return S_IWGRP;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IXGRP"))
-#ifdef S_IXGRP
-	  return S_IXGRP;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IRWXG"))
-#ifdef S_IRWXG
-	  return S_IRWXG;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IROTH"))
-#ifdef S_IROTH
-	  return S_IROTH;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IWOTH"))
-#ifdef S_IWOTH
-	  return S_IWOTH;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IXOTH"))
-#ifdef S_IXOTH
-	  return S_IXOTH;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IRWXO"))
-#ifdef S_IRWXO
-	  return S_IRWXO;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IREAD"))
-#ifdef S_IREAD
-	  return S_IREAD;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IWRITE"))
-#ifdef S_IWRITE
-	  return S_IWRITE;
-#else
-	  goto not_there;
-#endif
-	if (strEQ(name, "IEXEC"))
-#ifdef S_IEXEC
-	  return S_IEXEC;
-#else
-	  goto not_there;
-#endif
-	break;
-      case 'E':
-	  if (strEQ(name, "EK_CUR"))
-#ifdef SEEK_CUR
-	    return SEEK_CUR;
-#else
-	    return 1;
-#endif
-	if (strEQ(name, "EK_END"))
-#ifdef SEEK_END
-	    return SEEK_END;
-#else
-	    return 2;
-#endif
-	if (strEQ(name, "EK_SET"))
-#ifdef SEEK_SET
-	    return SEEK_SET;
-#else
-	    return 0;
-#endif
-	break;
-      }    
-    }
-    errno = EINVAL;
-    return 0;
-
-not_there:
-    errno = ENOENT;
-    return 0;
-}
-
+#include "const-c.inc"
 
 MODULE = Fcntl		PACKAGE = Fcntl
 
-IV
-constant(name)
-	char *		name
-
+INCLUDE: const-xs.inc