--AD October 16, 1995
*/
-static IV
-constant(char *name)
+static void
+XS_Fcntl_S_ISREG(pTHX_ CV* cv)
{
- 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;
+ dVAR;
+ dXSARGS;
+ dXSI32;
+ /* Preserve the semantics of the perl code, which was:
+ sub S_ISREG { ( $_[0] & _S_IFMT() ) == S_IFREG() }
+ */
+ SV *mode;
+
+ PERL_UNUSED_VAR(cv); /* -W */
+ SP -= items;
+
+ if (items > 0)
+ mode = ST(0);
+ else {
+ mode = &PL_sv_undef;
+ EXTEND(SP, 1);
+ }
+ PUSHs(((SvUV(mode) & S_IFMT) == (UV)ix) ? &PL_sv_yes : &PL_sv_no);
+ PUTBACK;
+}
+
+#include "const-c.inc"
+
+MODULE = Fcntl PACKAGE = Fcntl
+
+INCLUDE: const-xs.inc
+
+void
+S_IMODE(...)
+ PREINIT:
+ dXSTARG;
+ SV *mode;
+ PPCODE:
+ if (items > 0)
+ mode = ST(0);
+ else {
+ mode = &PL_sv_undef;
+ EXTEND(SP, 1);
}
- 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"))
+ PUSHu(SvUV(mode) & 07777);
+
+void
+S_IFMT(...)
+ PREINIT:
+ dXSTARG;
+ PPCODE:
+ PUSHu(items ? (SvUV(ST(0)) & S_IFMT) : S_IFMT);
+
+BOOT:
+ {
+ CV *cv;
#ifdef S_IFREG
- return S_IFREG;
-#else
- goto not_there;
+ cv = newXS("Fcntl::S_ISREG", XS_Fcntl_S_ISREG, file);
+ XSANY.any_i32 = S_IFREG;
#endif
- if (strEQ(name, "IFDIR"))
#ifdef S_IFDIR
- return S_IFDIR;
-#else
- goto not_there;
+ cv = newXS("Fcntl::S_ISDIR", XS_Fcntl_S_ISREG, file);
+ XSANY.any_i32 = S_IFDIR;
#endif
- if (strEQ(name, "IFLNK"))
#ifdef S_IFLNK
- return S_IFLNK;
-#else
- goto not_there;
+ cv = newXS("Fcntl::S_ISLNK", XS_Fcntl_S_ISREG, file);
+ XSANY.any_i32 = S_IFLNK;
#endif
- if (strEQ(name, "IFSOCK"))
#ifdef S_IFSOCK
- return S_IFSOCK;
-#else
- goto not_there;
+ cv = newXS("Fcntl::S_ISSOCK", XS_Fcntl_S_ISREG, file);
+ XSANY.any_i32 = S_IFSOCK;
#endif
- if (strEQ(name, "IFBLK"))
#ifdef S_IFBLK
- return S_IFBLK;
-#else
- goto not_there;
+ cv = newXS("Fcntl::S_ISBLK", XS_Fcntl_S_ISREG, file);
+ XSANY.any_i32 = S_IFBLK;
#endif
- if (strEQ(name, "IFCHR"))
#ifdef S_IFCHR
- return S_IFCHR;
-#else
- goto not_there;
+ cv = newXS("Fcntl::S_ISCHR", XS_Fcntl_S_ISREG, file);
+ XSANY.any_i32 = S_IFCHR;
#endif
- if (strEQ(name, "IFIFO"))
#ifdef S_IFIFO
- return S_IFIFO;
-#else
- goto not_there;
+ cv = newXS("Fcntl::S_ISFIFO", XS_Fcntl_S_ISREG, file);
+ XSANY.any_i32 = S_IFIFO;
#endif
- if (strEQ(name, "IFWHT"))
#ifdef S_IFWHT
- return S_IFWHT;
-#else
- goto not_there;
+ cv = newXS("Fcntl::S_ISWHT", XS_Fcntl_S_ISREG, file);
+ XSANY.any_i32 = S_IFWHT;
#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;
+ cv = newXS("Fcntl::S_ISENFMT", XS_Fcntl_S_ISREG, file);
+ XSANY.any_i32 = S_ENFMT;
#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;
-}
-
-
-MODULE = Fcntl PACKAGE = Fcntl
-
-IV
-constant(name)
- char * name
-
https://perl5.git.perl.org / perl5.git / blobdiff