--AD October 16, 1995
*/
-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;
+#define PERL_constant_NOTFOUND 1
+#define PERL_constant_NOTDEF 2
+#define PERL_constant_ISIV 3
+#define PERL_constant_ISNV 4
+#define PERL_constant_ISPV 5
+#define PERL_constant_ISPVN 6
+#define PERL_constant_ISUV 7
+
+#ifndef NVTYPE
+typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */
#endif
- break;
- case 'F':
- if (*name == '_') {
- name++;
- if (strEQ(name, "ALLOCSP"))
-#ifdef F_ALLOCSP
- return F_ALLOCSP;
+
+static int
+constant_5 (const char *name, IV *iv_return) {
+ /* Names all of length 5. */
+ /* When generated this function returned values for the list of names given
+ here. However, subsequent manual editing may have added or removed some.
+ FEXCL FSYNC O_RAW */
+ /* Offset 2 gives the best switch position. */
+ switch (name[2]) {
+ case 'R':
+ if (memEQ(name, "O_RAW", 5)) {
+ /* ^ */
+#ifdef O_RAW
+ *iv_return = O_RAW;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "ALLOCSP64"))
-#ifdef F_ALLOCSP64
- return F_ALLOCSP64;
+ }
+ break;
+ case 'X':
+ if (memEQ(name, "FEXCL", 5)) {
+ /* ^ */
+#ifdef FEXCL
+ *iv_return = FEXCL;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "COMPAT"))
-#ifdef F_COMPAT
- return F_COMPAT;
+ }
+ break;
+ case 'Y':
+ if (memEQ(name, "FSYNC", 5)) {
+ /* ^ */
+#ifdef FSYNC
+ *iv_return = FSYNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "DUP2FD"))
-#ifdef F_DUP2FD
- return F_DUP2FD;
+ }
+ break;
+ }
+ return PERL_constant_NOTFOUND;
+}
+
+static int
+constant_6 (const char *name, IV *iv_return) {
+ /* Names all of length 6. */
+ /* When generated this function returned values for the list of names given
+ here. However, subsequent manual editing may have added or removed some.
+ FASYNC FCREAT FDEFER FDSYNC FRSYNC FTRUNC O_EXCL O_RDWR O_RSRC O_SYNC
+ O_TEXT */
+ /* Offset 3 gives the best switch position. */
+ switch (name[3]) {
+ case 'D':
+ if (memEQ(name, "O_RDWR", 6)) {
+ /* ^ */
+#ifdef O_RDWR
+ *iv_return = O_RDWR;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "DUPFD"))
-#ifdef F_DUPFD
- return F_DUPFD;
+ }
+ break;
+ case 'E':
+ if (memEQ(name, "FCREAT", 6)) {
+ /* ^ */
+#ifdef FCREAT
+ *iv_return = FCREAT;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "EXLCK"))
-#ifdef F_EXLCK
- return F_EXLCK;
+ }
+ if (memEQ(name, "O_TEXT", 6)) {
+ /* ^ */
+#ifdef O_TEXT
+ *iv_return = O_TEXT;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "FREESP"))
-#ifdef F_FREESP
- return F_FREESP;
+ }
+ break;
+ case 'F':
+ if (memEQ(name, "FDEFER", 6)) {
+ /* ^ */
+#ifdef FDEFER
+ *iv_return = FDEFER;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "FREESP64"))
-#ifdef F_FREESP64
- return F_FREESP64;
+ }
+ break;
+ case 'S':
+ if (memEQ(name, "O_RSRC", 6)) {
+ /* ^ */
+#ifdef O_RSRC
+ *iv_return = O_RSRC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "FSYNC"))
-#ifdef F_FSYNC
- return F_FSYNC;
+ }
+ break;
+ case 'U':
+ if (memEQ(name, "FTRUNC", 6)) {
+ /* ^ */
+#ifdef FTRUNC
+ *iv_return = FTRUNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "FSYNC64"))
-#ifdef F_FSYNC64
- return F_FSYNC64;
+ }
+ break;
+ case 'X':
+ if (memEQ(name, "O_EXCL", 6)) {
+ /* ^ */
+#ifdef O_EXCL
+ *iv_return = O_EXCL;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "GETFD"))
-#ifdef F_GETFD
- return F_GETFD;
+ }
+ break;
+ case 'Y':
+ if (memEQ(name, "FASYNC", 6)) {
+ /* ^ */
+#ifdef FASYNC
+ *iv_return = FASYNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "GETFL"))
-#ifdef F_GETFL
- return F_GETFL;
+ }
+ if (memEQ(name, "FDSYNC", 6)) {
+ /* ^ */
+#ifdef FDSYNC
+ *iv_return = FDSYNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "GETLK"))
-#ifdef F_GETLK
- return F_GETLK;
+ }
+ if (memEQ(name, "FRSYNC", 6)) {
+ /* ^ */
+#ifdef FRSYNC
+ *iv_return = FRSYNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "GETLK64"))
-#ifdef F_GETLK64
- return F_GETLK64;
+ }
+ if (memEQ(name, "O_SYNC", 6)) {
+ /* ^ */
+#ifdef O_SYNC
+ *iv_return = O_SYNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "GETOWN"))
-#ifdef F_GETOWN
- return F_GETOWN;
+ }
+ break;
+ }
+ return PERL_constant_NOTFOUND;
+}
+
+static int
+constant_7 (const char *name, IV *iv_return) {
+ /* Names all of length 7. */
+ /* When generated this function returned values for the list of names given
+ here. However, subsequent manual editing may have added or removed some.
+ FAPPEND FNDELAY F_DUPFD F_EXLCK F_FSYNC F_GETFD F_GETFL F_GETLK F_NODNY
+ F_POSIX F_RDACC F_RDDNY F_RDLCK F_RWACC F_RWDNY F_SETFD F_SETFL F_SETLK
+ F_SHARE F_SHLCK F_UNLCK F_WRACC F_WRDNY F_WRLCK LOCK_EX LOCK_NB LOCK_SH
+ LOCK_UN O_ALIAS O_ASYNC O_CREAT O_DEFER O_DSYNC O_RSYNC O_TRUNC S_ENFMT
+ S_IEXEC S_IFBLK S_IFCHR S_IFDIR S_IFIFO S_IFLNK S_IFREG S_IFWHT S_IREAD
+ S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISTXT S_ISUID
+ S_ISVTX S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR _S_IFMT */
+ /* Offset 4 gives the best switch position. */
+ switch (name[4]) {
+ case 'A':
+ if (memEQ(name, "F_RDACC", 7)) {
+ /* ^ */
+#ifdef F_RDACC
+ *iv_return = F_RDACC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "NODNY"))
-#ifdef F_NODNY
- return F_NODNY;
+ }
+ if (memEQ(name, "F_RWACC", 7)) {
+ /* ^ */
+#ifdef F_RWACC
+ *iv_return = F_RWACC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "POSIX"))
-#ifdef F_POSIX
- return F_POSIX;
+ }
+ if (memEQ(name, "F_SHARE", 7)) {
+ /* ^ */
+#ifdef F_SHARE
+ *iv_return = F_SHARE;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RDACC"))
-#ifdef F_RDACC
- return F_RDACC;
+ }
+ if (memEQ(name, "F_WRACC", 7)) {
+ /* ^ */
+#ifdef F_WRACC
+ *iv_return = F_WRACC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RDDNY"))
-#ifdef F_RDDNY
- return F_RDDNY;
+ }
+ break;
+ case 'B':
+ if (memEQ(name, "S_IFBLK", 7)) {
+ /* ^ */
+#ifdef S_IFBLK
+ *iv_return = S_IFBLK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RDLCK"))
-#ifdef F_RDLCK
- return F_RDLCK;
+ }
+ break;
+ case 'C':
+ if (memEQ(name, "S_IFCHR", 7)) {
+ /* ^ */
+#ifdef S_IFCHR
+ *iv_return = S_IFCHR;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RWACC"))
-#ifdef F_RWACC
- return F_RWACC;
+ }
+ break;
+ case 'D':
+ if (memEQ(name, "F_NODNY", 7)) {
+ /* ^ */
+#ifdef F_NODNY
+ *iv_return = F_NODNY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RWDNY"))
-#ifdef F_RWDNY
- return F_RWDNY;
+ }
+ if (memEQ(name, "F_RDDNY", 7)) {
+ /* ^ */
+#ifdef F_RDDNY
+ *iv_return = F_RDDNY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SETFD"))
-#ifdef F_SETFD
- return F_SETFD;
+ }
+ if (memEQ(name, "F_RWDNY", 7)) {
+ /* ^ */
+#ifdef F_RWDNY
+ *iv_return = F_RWDNY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SETFL"))
-#ifdef F_SETFL
- return F_SETFL;
+ }
+ if (memEQ(name, "F_WRDNY", 7)) {
+ /* ^ */
+#ifdef F_WRDNY
+ *iv_return = F_WRDNY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SETLK"))
-#ifdef F_SETLK
- return F_SETLK;
+ }
+ if (memEQ(name, "S_IFDIR", 7)) {
+ /* ^ */
+#ifdef S_IFDIR
+ *iv_return = S_IFDIR;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SETLK64"))
-#ifdef F_SETLK64
- return F_SETLK64;
+ }
+ break;
+ case 'E':
+ if (memEQ(name, "FAPPEND", 7)) {
+ /* ^ */
+#ifdef FAPPEND
+ *iv_return = FAPPEND;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SETLKW"))
-#ifdef F_SETLKW
- return F_SETLKW;
+ }
+ if (memEQ(name, "O_CREAT", 7)) {
+ /* ^ */
+#ifdef O_CREAT
+ *iv_return = O_CREAT;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SETLKW64"))
-#ifdef F_SETLKW64
- return F_SETLKW64;
+ }
+ if (memEQ(name, "S_IREAD", 7)) {
+ /* ^ */
+#ifdef S_IREAD
+ *iv_return = S_IREAD;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SETOWN"))
-#ifdef F_SETOWN
- return F_SETOWN;
+ }
+ break;
+ case 'F':
+ if (memEQ(name, "O_DEFER", 7)) {
+ /* ^ */
+#ifdef O_DEFER
+ *iv_return = O_DEFER;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SHARE"))
-#ifdef F_SHARE
- return F_SHARE;
+ }
+ if (memEQ(name, "S_ENFMT", 7)) {
+ /* ^ */
+#ifdef S_ENFMT
+ *iv_return = S_ENFMT;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SHLCK"))
-#ifdef F_SHLCK
- return F_SHLCK;
+ }
+ if (memEQ(name, "_S_IFMT", 7)) {
+ /* ^ */
+#ifdef S_IFMT
+ *iv_return = S_IFMT;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "UNLCK"))
-#ifdef F_UNLCK
- return F_UNLCK;
+ }
+ break;
+ case 'G':
+ if (memEQ(name, "S_IRGRP", 7)) {
+ /* ^ */
+#ifdef S_IRGRP
+ *iv_return = S_IRGRP;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "UNSHARE"))
-#ifdef F_UNSHARE
- return F_UNSHARE;
+ }
+ if (memEQ(name, "S_ISGID", 7)) {
+ /* ^ */
+#ifdef S_ISGID
+ *iv_return = S_ISGID;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "WRACC"))
-#ifdef F_WRACC
- return F_WRACC;
+ }
+ if (memEQ(name, "S_IWGRP", 7)) {
+ /* ^ */
+#ifdef S_IWGRP
+ *iv_return = S_IWGRP;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "WRDNY"))
-#ifdef F_WRDNY
- return F_WRDNY;
+ }
+ if (memEQ(name, "S_IXGRP", 7)) {
+ /* ^ */
+#ifdef S_IXGRP
+ *iv_return = S_IXGRP;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "WRLCK"))
-#ifdef F_WRLCK
- return F_WRLCK;
+ }
+ break;
+ case 'I':
+ if (memEQ(name, "O_ALIAS", 7)) {
+ /* ^ */
+#ifdef O_ALIAS
+ *iv_return = O_ALIAS;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- errno = EINVAL;
- return 0;
- }
- if (strEQ(name, "APPEND"))
-#ifdef FAPPEND
- return FAPPEND;
+ }
+ if (memEQ(name, "S_IFIFO", 7)) {
+ /* ^ */
+#ifdef S_IFIFO
+ *iv_return = S_IFIFO;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "ASYNC"))
-#ifdef FASYNC
- return FASYNC;
+ }
+ break;
+ case 'L':
+ if (memEQ(name, "FNDELAY", 7)) {
+ /* ^ */
+#ifdef FNDELAY
+ *iv_return = FNDELAY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "CREAT"))
-#ifdef FCREAT
- return FCREAT;
+ }
+ if (memEQ(name, "F_EXLCK", 7)) {
+ /* ^ */
+#ifdef F_EXLCK
+ *iv_return = F_EXLCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "D_CLOEXEC"))
-#ifdef FD_CLOEXEC
- return FD_CLOEXEC;
+ }
+ if (memEQ(name, "F_RDLCK", 7)) {
+ /* ^ */
+#ifdef F_RDLCK
+ *iv_return = F_RDLCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "DEFER"))
-#ifdef FDEFER
- return FDEFER;
+ }
+ if (memEQ(name, "F_SHLCK", 7)) {
+ /* ^ */
+#ifdef F_SHLCK
+ *iv_return = F_SHLCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "DSYNC"))
-#ifdef FDSYNC
- return FDSYNC;
+ }
+ if (memEQ(name, "F_UNLCK", 7)) {
+ /* ^ */
+#ifdef F_UNLCK
+ *iv_return = F_UNLCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "EXCL"))
-#ifdef FEXCL
- return FEXCL;
+ }
+ if (memEQ(name, "F_WRLCK", 7)) {
+ /* ^ */
+#ifdef F_WRLCK
+ *iv_return = F_WRLCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "LARGEFILE"))
-#ifdef FLARGEFILE
- return FLARGEFILE;
+ }
+ if (memEQ(name, "S_IFLNK", 7)) {
+ /* ^ */
+#ifdef S_IFLNK
+ *iv_return = S_IFLNK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "NDELAY"))
-#ifdef FNDELAY
- return FNDELAY;
+ }
+ break;
+ case 'O':
+ if (memEQ(name, "S_IROTH", 7)) {
+ /* ^ */
+#ifdef S_IROTH
+ *iv_return = S_IROTH;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "NONBLOCK"))
-#ifdef FNONBLOCK
- return FNONBLOCK;
+ }
+ if (memEQ(name, "S_IWOTH", 7)) {
+ /* ^ */
+#ifdef S_IWOTH
+ *iv_return = S_IWOTH;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RSYNC"))
-#ifdef FRSYNC
- return FRSYNC;
+ }
+ if (memEQ(name, "S_IXOTH", 7)) {
+ /* ^ */
+#ifdef S_IXOTH
+ *iv_return = S_IXOTH;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SYNC"))
-#ifdef FSYNC
- return FSYNC;
+ }
+ break;
+ case 'P':
+ if (memEQ(name, "F_DUPFD", 7)) {
+ /* ^ */
+#ifdef F_DUPFD
+ *iv_return = F_DUPFD;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "TRUNC"))
-#ifdef FTRUNC
- return FTRUNC;
+ }
+ break;
+ case 'R':
+ if (memEQ(name, "S_IFREG", 7)) {
+ /* ^ */
+#ifdef S_IFREG
+ *iv_return = S_IFREG;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#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;
+ }
+ break;
+ case 'S':
+ if (memEQ(name, "F_POSIX", 7)) {
+ /* ^ */
+#ifdef F_POSIX
+ *iv_return = F_POSIX;
+ return PERL_constant_ISIV;
#else
- return 1;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "EX"))
-#ifdef LOCK_EX
- return LOCK_EX;
+ }
+ break;
+ case 'T':
+ if (memEQ(name, "F_GETFD", 7)) {
+ /* ^ */
+#ifdef F_GETFD
+ *iv_return = F_GETFD;
+ return PERL_constant_ISIV;
#else
- return 2;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "NB"))
-#ifdef LOCK_NB
- return LOCK_NB;
+ }
+ if (memEQ(name, "F_GETFL", 7)) {
+ /* ^ */
+#ifdef F_GETFL
+ *iv_return = F_GETFL;
+ return PERL_constant_ISIV;
#else
- return 4;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "UN"))
-#ifdef LOCK_UN
- return LOCK_UN;
+ }
+ if (memEQ(name, "F_GETLK", 7)) {
+ /* ^ */
+#ifdef F_GETLK
+ *iv_return = F_GETLK;
+ return PERL_constant_ISIV;
#else
- return 8;
+ return PERL_constant_NOTDEF;
#endif
- } else
- goto not_there;
- break;
- case 'O':
- if (name[0] == '_') {
- name++;
- if (strEQ(name, "ACCMODE"))
-#ifdef O_ACCMODE
- return O_ACCMODE;
+ }
+ if (memEQ(name, "F_SETFD", 7)) {
+ /* ^ */
+#ifdef F_SETFD
+ *iv_return = F_SETFD;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "APPEND"))
-#ifdef O_APPEND
- return O_APPEND;
+ }
+ if (memEQ(name, "F_SETFL", 7)) {
+ /* ^ */
+#ifdef F_SETFL
+ *iv_return = F_SETFL;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "ASYNC"))
-#ifdef O_ASYNC
- return O_ASYNC;
+ }
+ if (memEQ(name, "F_SETLK", 7)) {
+ /* ^ */
+#ifdef F_SETLK
+ *iv_return = F_SETLK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "BINARY"))
-#ifdef O_BINARY
- return O_BINARY;
+ }
+ if (memEQ(name, "S_ISTXT", 7)) {
+ /* ^ */
+#ifdef S_ISTXT
+ *iv_return = S_ISTXT;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "CREAT"))
-#ifdef O_CREAT
- return O_CREAT;
+ }
+ break;
+ case 'U':
+ if (memEQ(name, "O_TRUNC", 7)) {
+ /* ^ */
+#ifdef O_TRUNC
+ *iv_return = O_TRUNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "DEFER"))
-#ifdef O_DEFER
- return O_DEFER;
+ }
+ if (memEQ(name, "S_IRUSR", 7)) {
+ /* ^ */
+#ifdef S_IRUSR
+ *iv_return = S_IRUSR;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "DIRECT"))
-#ifdef O_DIRECT
- return O_DIRECT;
+ }
+ if (memEQ(name, "S_ISUID", 7)) {
+ /* ^ */
+#ifdef S_ISUID
+ *iv_return = S_ISUID;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "DIRECTORY"))
-#ifdef O_DIRECTORY
- return O_DIRECTORY;
+ }
+ if (memEQ(name, "S_IWUSR", 7)) {
+ /* ^ */
+#ifdef S_IWUSR
+ *iv_return = S_IWUSR;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "DSYNC"))
-#ifdef O_DSYNC
- return O_DSYNC;
+ }
+ if (memEQ(name, "S_IXUSR", 7)) {
+ /* ^ */
+#ifdef S_IXUSR
+ *iv_return = S_IXUSR;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "EXCL"))
-#ifdef O_EXCL
- return O_EXCL;
+ }
+ break;
+ case 'V':
+ if (memEQ(name, "S_ISVTX", 7)) {
+ /* ^ */
+#ifdef S_ISVTX
+ *iv_return = S_ISVTX;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "EXLOCK"))
-#ifdef O_EXLOCK
- return O_EXLOCK;
+ }
+ break;
+ case 'W':
+ if (memEQ(name, "S_IFWHT", 7)) {
+ /* ^ */
+#ifdef S_IFWHT
+ *iv_return = S_IFWHT;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "LARGEFILE"))
-#ifdef O_LARGEFILE
- return O_LARGEFILE;
+ }
+ if (memEQ(name, "S_IRWXG", 7)) {
+ /* ^ */
+#ifdef S_IRWXG
+ *iv_return = S_IRWXG;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "NDELAY"))
-#ifdef O_NDELAY
- return O_NDELAY;
+ }
+ if (memEQ(name, "S_IRWXO", 7)) {
+ /* ^ */
+#ifdef S_IRWXO
+ *iv_return = S_IRWXO;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "NOCTTY"))
-#ifdef O_NOCTTY
- return O_NOCTTY;
+ }
+ if (memEQ(name, "S_IRWXU", 7)) {
+ /* ^ */
+#ifdef S_IRWXU
+ *iv_return = S_IRWXU;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "NOFOLLOW"))
-#ifdef O_NOFOLLOW
- return O_NOFOLLOW;
+ }
+ break;
+ case 'X':
+ if (memEQ(name, "S_IEXEC", 7)) {
+ /* ^ */
+#ifdef S_IEXEC
+ *iv_return = S_IEXEC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "NOINHERIT"))
-#ifdef O_NOINHERIT
- return O_NOINHERIT;
+ }
+ break;
+ case 'Y':
+ if (memEQ(name, "F_FSYNC", 7)) {
+ /* ^ */
+#ifdef F_FSYNC
+ *iv_return = F_FSYNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "NONBLOCK"))
-#ifdef O_NONBLOCK
- return O_NONBLOCK;
+ }
+ if (memEQ(name, "O_ASYNC", 7)) {
+ /* ^ */
+#ifdef O_ASYNC
+ *iv_return = O_ASYNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RANDOM"))
-#ifdef O_RANDOM
- return O_RANDOM;
+ }
+ if (memEQ(name, "O_DSYNC", 7)) {
+ /* ^ */
+#ifdef O_DSYNC
+ *iv_return = O_DSYNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RAW"))
-#ifdef O_RAW
- return O_RAW;
+ }
+ if (memEQ(name, "O_RSYNC", 7)) {
+ /* ^ */
+#ifdef O_RSYNC
+ *iv_return = O_RSYNC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RDONLY"))
-#ifdef O_RDONLY
- return O_RDONLY;
+ }
+ break;
+ case '_':
+ if (memEQ(name, "LOCK_EX", 7)) {
+ /* ^ */
+#ifdef LOCK_EX
+ *iv_return = LOCK_EX;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ *iv_return = 2;
+ return PERL_constant_ISIV;
#endif
- if (strEQ(name, "RDWR"))
-#ifdef O_RDWR
- return O_RDWR;
+ }
+ if (memEQ(name, "LOCK_NB", 7)) {
+ /* ^ */
+#ifdef LOCK_NB
+ *iv_return = LOCK_NB;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ *iv_return = 4;
+ return PERL_constant_ISIV;
#endif
- if (strEQ(name, "RSYNC"))
-#ifdef O_RSYNC
- return O_RSYNC;
+ }
+ if (memEQ(name, "LOCK_SH", 7)) {
+ /* ^ */
+#ifdef LOCK_SH
+ *iv_return = LOCK_SH;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ *iv_return = 1;
+ return PERL_constant_ISIV;
#endif
- if (strEQ(name, "SEQUENTIAL"))
-#ifdef O_SEQUENTIAL
- return O_SEQUENTIAL;
+ }
+ if (memEQ(name, "LOCK_UN", 7)) {
+ /* ^ */
+#ifdef LOCK_UN
+ *iv_return = LOCK_UN;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ *iv_return = 8;
+ return PERL_constant_ISIV;
#endif
- if (strEQ(name, "SHLOCK"))
-#ifdef O_SHLOCK
- return O_SHLOCK;
+ }
+ break;
+ }
+ return PERL_constant_NOTFOUND;
+}
+
+static int
+constant_8 (const char *name, IV *iv_return) {
+ /* Names all of length 8. */
+ /* When generated this function returned values for the list of names given
+ here. However, subsequent manual editing may have added or removed some.
+ F_COMPAT F_DUP2FD F_FREESP F_GETOWN F_SETLKW F_SETOWN O_APPEND O_BINARY
+ O_DIRECT O_EXLOCK O_NDELAY O_NOCTTY O_RANDOM O_RDONLY O_SHLOCK O_WRONLY
+ SEEK_CUR SEEK_END SEEK_SET S_IFSOCK S_IWRITE */
+ /* Offset 3 gives the best switch position. */
+ switch (name[3]) {
+ case 'A':
+ if (memEQ(name, "O_RANDOM", 8)) {
+ /* ^ */
+#ifdef O_RANDOM
+ *iv_return = O_RANDOM;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "SYNC"))
-#ifdef O_SYNC
- return O_SYNC;
+ }
+ break;
+ case 'D':
+ if (memEQ(name, "O_NDELAY", 8)) {
+ /* ^ */
+#ifdef O_NDELAY
+ *iv_return = O_NDELAY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "TEMPORARY"))
-#ifdef O_TEMPORARY
- return O_TEMPORARY;
+ }
+ if (memEQ(name, "O_RDONLY", 8)) {
+ /* ^ */
+#ifdef O_RDONLY
+ *iv_return = O_RDONLY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "TEXT"))
-#ifdef O_TEXT
- return O_TEXT;
+ }
+ break;
+ case 'E':
+ if (memEQ(name, "F_GETOWN", 8)) {
+ /* ^ */
+#ifdef F_GETOWN
+ *iv_return = F_GETOWN;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "TRUNC"))
-#ifdef O_TRUNC
- return O_TRUNC;
+ }
+ if (memEQ(name, "F_SETLKW", 8)) {
+ /* ^ */
+#ifdef F_SETLKW
+ *iv_return = F_SETLKW;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "WRONLY"))
-#ifdef O_WRONLY
- return O_WRONLY;
+ }
+ if (memEQ(name, "F_SETOWN", 8)) {
+ /* ^ */
+#ifdef F_SETOWN
+ *iv_return = F_SETOWN;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "ALIAS"))
-#ifdef O_ALIAS
- return O_ALIAS;
+ }
+ break;
+ case 'F':
+ if (memEQ(name, "S_IFSOCK", 8)) {
+ /* ^ */
+#ifdef S_IFSOCK
+ *iv_return = S_IFSOCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "RSRC"))
-#ifdef O_RSRC
- return O_RSRC;
+ }
+ break;
+ case 'H':
+ if (memEQ(name, "O_SHLOCK", 8)) {
+ /* ^ */
+#ifdef O_SHLOCK
+ *iv_return = O_SHLOCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- } else
- goto not_there;
- break;
- case 'S':
- switch (*(name++)) {
- case '_':
- if (strEQ(name, "ISUID"))
-#ifdef S_ISUID
- return S_ISUID;
+ }
+ break;
+ case 'I':
+ if (memEQ(name, "O_BINARY", 8)) {
+ /* ^ */
+#ifdef O_BINARY
+ *iv_return = O_BINARY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "ISGID"))
-#ifdef S_ISGID
- return S_ISGID;
+ }
+ if (memEQ(name, "O_DIRECT", 8)) {
+ /* ^ */
+#ifdef O_DIRECT
+ *iv_return = O_DIRECT;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "ISVTX"))
-#ifdef S_ISVTX
- return S_ISVTX;
+ }
+ break;
+ case 'K':
+ if (memEQ(name, "SEEK_CUR", 8)) {
+ /* ^ */
+#ifdef SEEK_CUR
+ *iv_return = SEEK_CUR;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ *iv_return = 1;
+ return PERL_constant_ISIV;
#endif
- if (strEQ(name, "ISTXT"))
-#ifdef S_ISTXT
- return S_ISTXT;
+ }
+ if (memEQ(name, "SEEK_END", 8)) {
+ /* ^ */
+#ifdef SEEK_END
+ *iv_return = SEEK_END;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ *iv_return = 2;
+ return PERL_constant_ISIV;
#endif
- if (strEQ(name, "IFREG"))
-#ifdef S_IFREG
- return S_IFREG;
+ }
+ if (memEQ(name, "SEEK_SET", 8)) {
+ /* ^ */
+#ifdef SEEK_SET
+ *iv_return = SEEK_SET;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ *iv_return = 0;
+ return PERL_constant_ISIV;
#endif
- if (strEQ(name, "IFDIR"))
-#ifdef S_IFDIR
- return S_IFDIR;
+ }
+ break;
+ case 'O':
+ if (memEQ(name, "F_COMPAT", 8)) {
+ /* ^ */
+#ifdef F_COMPAT
+ *iv_return = F_COMPAT;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IFLNK"))
-#ifdef S_IFLNK
- return S_IFLNK;
+ }
+ if (memEQ(name, "O_NOCTTY", 8)) {
+ /* ^ */
+#ifdef O_NOCTTY
+ *iv_return = O_NOCTTY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IFSOCK"))
-#ifdef S_IFSOCK
- return S_IFSOCK;
+ }
+ break;
+ case 'P':
+ if (memEQ(name, "O_APPEND", 8)) {
+ /* ^ */
+#ifdef O_APPEND
+ *iv_return = O_APPEND;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IFBLK"))
-#ifdef S_IFBLK
- return S_IFBLK;
+ }
+ break;
+ case 'R':
+ if (memEQ(name, "F_FREESP", 8)) {
+ /* ^ */
+#ifdef F_FREESP
+ *iv_return = F_FREESP;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IFCHR"))
-#ifdef S_IFCHR
- return S_IFCHR;
+ }
+ if (memEQ(name, "O_WRONLY", 8)) {
+ /* ^ */
+#ifdef O_WRONLY
+ *iv_return = O_WRONLY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IFIFO"))
-#ifdef S_IFIFO
- return S_IFIFO;
+ }
+ break;
+ case 'U':
+ if (memEQ(name, "F_DUP2FD", 8)) {
+ /* ^ */
+#ifdef F_DUP2FD
+ *iv_return = F_DUP2FD;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IFWHT"))
-#ifdef S_IFWHT
- return S_IFWHT;
+ }
+ break;
+ case 'W':
+ if (memEQ(name, "S_IWRITE", 8)) {
+ /* ^ */
+#ifdef S_IWRITE
+ *iv_return = S_IWRITE;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "ENFMT"))
-#ifdef S_ENFMT
- return S_ENFMT;
+ }
+ break;
+ case 'X':
+ if (memEQ(name, "O_EXLOCK", 8)) {
+ /* ^ */
+#ifdef O_EXLOCK
+ *iv_return = O_EXLOCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IRUSR"))
-#ifdef S_IRUSR
- return S_IRUSR;
+ }
+ break;
+ }
+ return PERL_constant_NOTFOUND;
+}
+
+static int
+constant_9 (const char *name, IV *iv_return) {
+ /* Names all of length 9. */
+ /* When generated this function returned values for the list of names given
+ here. However, subsequent manual editing may have added or removed some.
+ FNONBLOCK F_ALLOCSP F_FSYNC64 F_GETLK64 F_SETLK64 F_UNSHARE O_ACCMODE */
+ /* Offset 2 gives the best switch position. */
+ switch (name[2]) {
+ case 'A':
+ if (memEQ(name, "F_ALLOCSP", 9)) {
+ /* ^ */
+#ifdef F_ALLOCSP
+ *iv_return = F_ALLOCSP;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IWUSR"))
-#ifdef S_IWUSR
- return S_IWUSR;
+ }
+ if (memEQ(name, "O_ACCMODE", 9)) {
+ /* ^ */
+#ifdef O_ACCMODE
+ *iv_return = O_ACCMODE;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IXUSR"))
-#ifdef S_IXUSR
- return S_IXUSR;
+ }
+ break;
+ case 'F':
+ if (memEQ(name, "F_FSYNC64", 9)) {
+ /* ^ */
+#ifdef F_FSYNC64
+ *iv_return = F_FSYNC64;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IRWXU"))
-#ifdef S_IRWXU
- return S_IRWXU;
+ }
+ break;
+ case 'G':
+ if (memEQ(name, "F_GETLK64", 9)) {
+ /* ^ */
+#ifdef F_GETLK64
+ *iv_return = F_GETLK64;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IRGRP"))
-#ifdef S_IRGRP
- return S_IRGRP;
+ }
+ break;
+ case 'O':
+ if (memEQ(name, "FNONBLOCK", 9)) {
+ /* ^ */
+#ifdef FNONBLOCK
+ *iv_return = FNONBLOCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IWGRP"))
-#ifdef S_IWGRP
- return S_IWGRP;
+ }
+ break;
+ case 'S':
+ if (memEQ(name, "F_SETLK64", 9)) {
+ /* ^ */
+#ifdef F_SETLK64
+ *iv_return = F_SETLK64;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IXGRP"))
-#ifdef S_IXGRP
- return S_IXGRP;
+ }
+ break;
+ case 'U':
+ if (memEQ(name, "F_UNSHARE", 9)) {
+ /* ^ */
+#ifdef F_UNSHARE
+ *iv_return = F_UNSHARE;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IRWXG"))
-#ifdef S_IRWXG
- return S_IRWXG;
+ }
+ break;
+ }
+ return PERL_constant_NOTFOUND;
+}
+
+static int
+constant_10 (const char *name, IV *iv_return) {
+ /* Names all of length 10. */
+ /* When generated this function returned values for the list of names given
+ here. However, subsequent manual editing may have added or removed some.
+ FD_CLOEXEC FLARGEFILE F_FREESP64 F_SETLKW64 O_NOFOLLOW O_NONBLOCK */
+ /* Offset 4 gives the best switch position. */
+ switch (name[4]) {
+ case 'E':
+ if (memEQ(name, "F_FREESP64", 10)) {
+ /* ^ */
+#ifdef F_FREESP64
+ *iv_return = F_FREESP64;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IROTH"))
-#ifdef S_IROTH
- return S_IROTH;
+ }
+ break;
+ case 'F':
+ if (memEQ(name, "O_NOFOLLOW", 10)) {
+ /* ^ */
+#ifdef O_NOFOLLOW
+ *iv_return = O_NOFOLLOW;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IWOTH"))
-#ifdef S_IWOTH
- return S_IWOTH;
+ }
+ break;
+ case 'G':
+ if (memEQ(name, "FLARGEFILE", 10)) {
+ /* ^ */
+#ifdef FLARGEFILE
+ *iv_return = FLARGEFILE;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IXOTH"))
-#ifdef S_IXOTH
- return S_IXOTH;
+ }
+ break;
+ case 'L':
+ if (memEQ(name, "FD_CLOEXEC", 10)) {
+ /* ^ */
+#ifdef FD_CLOEXEC
+ *iv_return = FD_CLOEXEC;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IRWXO"))
-#ifdef S_IRWXO
- return S_IRWXO;
+ }
+ break;
+ case 'N':
+ if (memEQ(name, "O_NONBLOCK", 10)) {
+ /* ^ */
+#ifdef O_NONBLOCK
+ *iv_return = O_NONBLOCK;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IREAD"))
-#ifdef S_IREAD
- return S_IREAD;
+ }
+ break;
+ case 'T':
+ if (memEQ(name, "F_SETLKW64", 10)) {
+ /* ^ */
+#ifdef F_SETLKW64
+ *iv_return = F_SETLKW64;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IWRITE"))
-#ifdef S_IWRITE
- return S_IWRITE;
+ }
+ break;
+ }
+ return PERL_constant_NOTFOUND;
+}
+
+static int
+constant_11 (const char *name, IV *iv_return) {
+ /* Names all of length 11. */
+ /* When generated this function returned values for the list of names given
+ here. However, subsequent manual editing may have added or removed some.
+ F_ALLOCSP64 O_DIRECTORY O_LARGEFILE O_NOINHERIT O_TEMPORARY */
+ /* Offset 5 gives the best switch position. */
+ switch (name[5]) {
+ case 'E':
+ if (memEQ(name, "O_DIRECTORY", 11)) {
+ /* ^ */
+#ifdef O_DIRECTORY
+ *iv_return = O_DIRECTORY;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "IEXEC"))
-#ifdef S_IEXEC
- return S_IEXEC;
+ }
+ break;
+ case 'G':
+ if (memEQ(name, "O_LARGEFILE", 11)) {
+ /* ^ */
+#ifdef O_LARGEFILE
+ *iv_return = O_LARGEFILE;
+ return PERL_constant_ISIV;
#else
- goto not_there;
+ return PERL_constant_NOTDEF;
#endif
- break;
- case 'E':
- if (strEQ(name, "EK_CUR"))
-#ifdef SEEK_CUR
- return SEEK_CUR;
+ }
+ break;
+ case 'N':
+ if (memEQ(name, "O_NOINHERIT", 11)) {
+ /* ^ */
+#ifdef O_NOINHERIT
+ *iv_return = O_NOINHERIT;
+ return PERL_constant_ISIV;
#else
- return 1;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "EK_END"))
-#ifdef SEEK_END
- return SEEK_END;
+ }
+ break;
+ case 'O':
+ if (memEQ(name, "F_ALLOCSP64", 11)) {
+ /* ^ */
+#ifdef F_ALLOCSP64
+ *iv_return = F_ALLOCSP64;
+ return PERL_constant_ISIV;
#else
- return 2;
+ return PERL_constant_NOTDEF;
#endif
- if (strEQ(name, "EK_SET"))
-#ifdef SEEK_SET
- return SEEK_SET;
+ }
+ break;
+ case 'P':
+ if (memEQ(name, "O_TEMPORARY", 11)) {
+ /* ^ */
+#ifdef O_TEMPORARY
+ *iv_return = O_TEMPORARY;
+ return PERL_constant_ISIV;
#else
- return 0;
+ return PERL_constant_NOTDEF;
#endif
- break;
- }
}
- errno = EINVAL;
- return 0;
+ break;
+ }
+ return PERL_constant_NOTFOUND;
+}
+
+static int
+constant (const char *name, STRLEN len, IV *iv_return) {
+ /* Initially switch on the length of the name. */
+ /* When generated this function returned values for the list of names given
+ in this section of perl code. Rather than manually editing these functions
+ to add or remove constants, which would result in this comment and section
+ of code becoming inaccurate, we recommend that you edit this section of
+ code, and use it to regenerate a new set of constant functions which you
+ then use to replace the originals.
+
+ Regenerate these constant functions by feeding this entire source file to
+ perl -x
-not_there:
- errno = ENOENT;
- return 0;
+#!perl -w
+use ExtUtils::Constant qw (constant_types C_constant XS_constant);
+
+my $types = {IV => 1};
+my @names = (qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FD_CLOEXEC FEXCL FLARGEFILE
+ FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC F_ALLOCSP F_ALLOCSP64
+ F_COMPAT F_DUP2FD F_DUPFD F_EXLCK F_FREESP F_FREESP64 F_FSYNC
+ F_FSYNC64 F_GETFD F_GETFL F_GETLK F_GETLK64 F_GETOWN F_NODNY
+ F_POSIX F_RDACC F_RDDNY F_RDLCK F_RWACC F_RWDNY F_SETFD F_SETFL
+ F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN F_SHARE F_SHLCK
+ F_UNLCK F_UNSHARE F_WRACC F_WRDNY F_WRLCK O_ACCMODE O_ALIAS
+ O_APPEND O_ASYNC O_BINARY O_CREAT O_DEFER O_DIRECT O_DIRECTORY
+ O_DSYNC O_EXCL O_EXLOCK O_LARGEFILE O_NDELAY O_NOCTTY O_NOFOLLOW
+ O_NOINHERIT O_NONBLOCK O_RANDOM O_RAW O_RDONLY O_RDWR O_RSRC
+ O_RSYNC O_SEQUENTIAL O_SHLOCK O_SYNC O_TEMPORARY O_TEXT O_TRUNC
+ O_WRONLY S_ENFMT S_IEXEC S_IFBLK S_IFCHR S_IFDIR S_IFIFO S_IFLNK
+ S_IFREG S_IFSOCK S_IFWHT S_IREAD S_IRGRP S_IROTH S_IRUSR S_IRWXG
+ S_IRWXO S_IRWXU S_ISGID S_ISTXT S_ISUID S_ISVTX S_IWGRP S_IWOTH
+ S_IWRITE S_IWUSR S_IXGRP S_IXOTH S_IXUSR),
+ {name=>"LOCK_EX", type=>"IV", default=>["IV", "2"]},
+ {name=>"LOCK_NB", type=>"IV", default=>["IV", "4"]},
+ {name=>"LOCK_SH", type=>"IV", default=>["IV", "1"]},
+ {name=>"LOCK_UN", type=>"IV", default=>["IV", "8"]},
+ {name=>"SEEK_CUR", type=>"IV", default=>["IV", "1"]},
+ {name=>"SEEK_END", type=>"IV", default=>["IV", "2"]},
+ {name=>"SEEK_SET", type=>"IV", default=>["IV", "0"]},
+ {name=>"_S_IFMT", type=>"IV", macro=>"S_IFMT", value=>"S_IFMT"});
+
+print constant_types(); # macro defs
+foreach (C_constant ("Fcntl", 'constant', 'IV', $types, undef, undef, @names) ) {
+ print $_, "\n"; # C constant subs
}
+print "#### XS Section:\n";
+print XS_constant ("Fcntl", $types);
+__END__
+ */
+ switch (len) {
+ case 5:
+ return constant_5 (name, iv_return);
+ break;
+ case 6:
+ return constant_6 (name, iv_return);
+ break;
+ case 7:
+ return constant_7 (name, iv_return);
+ break;
+ case 8:
+ return constant_8 (name, iv_return);
+ break;
+ case 9:
+ return constant_9 (name, iv_return);
+ break;
+ case 10:
+ return constant_10 (name, iv_return);
+ break;
+ case 11:
+ return constant_11 (name, iv_return);
+ break;
+ case 12:
+ if (memEQ(name, "O_SEQUENTIAL", 12)) {
+#ifdef O_SEQUENTIAL
+ *iv_return = O_SEQUENTIAL;
+ return PERL_constant_ISIV;
+#else
+ return PERL_constant_NOTDEF;
+#endif
+ }
+ break;
+ }
+ return PERL_constant_NOTFOUND;
+}
MODULE = Fcntl PACKAGE = Fcntl
-IV
-constant(name)
- char * name
-
+void
+constant(sv)
+ PREINIT:
+#ifdef dXSTARG
+ dXSTARG; /* Faster if we have it. */
+#else
+ dTARGET;
+#endif
+ STRLEN len;
+ int type;
+ IV iv;
+ /* NV nv; Uncomment this if you need to return NVs */
+ /* const char *pv; Uncomment this if you need to return PVs */
+ INPUT:
+ SV * sv;
+ const char * s = SvPV(sv, len);
+ PPCODE:
+ /* Change this to constant(s, len, &iv, &nv);
+ if you need to return both NVs and IVs */
+ type = constant(s, len, &iv);
+ /* Return 1 or 2 items. First is error message, or undef if no error.
+ Second, if present, is found value */
+ switch (type) {
+ case PERL_constant_NOTFOUND:
+ sv = sv_2mortal(newSVpvf("%s is not a valid Fcntl macro", s));
+ PUSHs(sv);
+ break;
+ case PERL_constant_NOTDEF:
+ sv = sv_2mortal(newSVpvf(
+ "Your vendor has not defined Fcntl macro %s, used", s));
+ PUSHs(sv);
+ break;
+ case PERL_constant_ISIV:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHi(iv);
+ break;
+ /* Uncomment this if you need to return UVs
+ case PERL_constant_ISUV:
+ EXTEND(SP, 1);
+ PUSHs(&PL_sv_undef);
+ PUSHu((UV)iv);
+ break; */
+ default:
+ sv = sv_2mortal(newSVpvf(
+ "Unexpected return type %d while processing Fcntl macro %s used",
+ type, s));
+ PUSHs(sv);
+ }
https://perl5.git.perl.org / perl5.git / blobdiff