1 #define PERL_NO_GET_CONTEXT
9 #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
13 #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
22 /* This comment is a kludge to get metaconfig to see the symbols
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
32 While I'm at it, I'll have metaconfig look for HAS_POLL too.
39 croak("%s not implemented on this architecture", s);
44 constant(char *name, int arg)
49 if (strEQ(name, "_S_IFMT")) /* Yes, on name _S_IFMT return S_IFMT. */
57 if (strnEQ(name, "F_", 2)) {
58 if (strEQ(name, "F_ALLOCSP"))
64 if (strEQ(name, "F_ALLOCSP64"))
70 if (strEQ(name, "F_COMPAT"))
76 if (strEQ(name, "F_DUP2FD"))
82 if (strEQ(name, "F_DUPFD"))
88 if (strEQ(name, "F_EXLCK"))
94 if (strEQ(name, "F_FREESP"))
100 if (strEQ(name, "F_FREESP64"))
106 if (strEQ(name, "F_FSYNC"))
112 if (strEQ(name, "F_FSYNC64"))
118 if (strEQ(name, "F_GETFD"))
124 if (strEQ(name, "F_GETFL"))
130 if (strEQ(name, "F_GETLK"))
136 if (strEQ(name, "F_GETLK64"))
142 if (strEQ(name, "F_GETOWN"))
148 if (strEQ(name, "F_NODNY"))
154 if (strEQ(name, "F_POSIX"))
160 if (strEQ(name, "F_RDACC"))
166 if (strEQ(name, "F_RDDNY"))
172 if (strEQ(name, "F_RDLCK"))
178 if (strEQ(name, "F_RWACC"))
184 if (strEQ(name, "F_RWDNY"))
190 if (strEQ(name, "F_SETFD"))
196 if (strEQ(name, "F_SETFL"))
202 if (strEQ(name, "F_SETLK"))
208 if (strEQ(name, "F_SETLK64"))
214 if (strEQ(name, "F_SETLKW"))
220 if (strEQ(name, "F_SETLKW64"))
226 if (strEQ(name, "F_SETOWN"))
232 if (strEQ(name, "F_SHARE"))
238 if (strEQ(name, "F_SHLCK"))
244 if (strEQ(name, "F_UNLCK"))
250 if (strEQ(name, "F_UNSHARE"))
256 if (strEQ(name, "F_WRACC"))
262 if (strEQ(name, "F_WRDNY"))
268 if (strEQ(name, "F_WRLCK"))
277 if (strEQ(name, "FAPPEND"))
283 if (strEQ(name, "FASYNC"))
289 if (strEQ(name, "FCREAT"))
295 if (strEQ(name, "FD_CLOEXEC"))
301 if (strEQ(name, "FDEFER"))
307 if (strEQ(name, "FDSYNC"))
313 if (strEQ(name, "FEXCL"))
319 if (strEQ(name, "FLARGEFILE"))
325 if (strEQ(name, "FNDELAY"))
331 if (strEQ(name, "FNONBLOCK"))
337 if (strEQ(name, "FRSYNC"))
343 if (strEQ(name, "FSYNC"))
349 if (strEQ(name, "FTRUNC"))
357 if (strnEQ(name, "LOCK_", 5)) {
358 /* We support flock() on systems which don't have it, so
359 always supply the constants. */
360 if (strEQ(name, "LOCK_SH"))
366 if (strEQ(name, "LOCK_EX"))
372 if (strEQ(name, "LOCK_NB"))
378 if (strEQ(name, "LOCK_UN"))
388 if (strnEQ(name, "O_", 2)) {
389 if (strEQ(name, "O_ACCMODE"))
395 if (strEQ(name, "O_APPEND"))
401 if (strEQ(name, "O_ASYNC"))
407 if (strEQ(name, "O_BINARY"))
413 if (strEQ(name, "O_CREAT"))
419 if (strEQ(name, "O_DEFER"))
425 if (strEQ(name, "O_DIRECT"))
431 if (strEQ(name, "O_DIRECTORY"))
437 if (strEQ(name, "O_DSYNC"))
443 if (strEQ(name, "O_EXCL"))
449 if (strEQ(name, "O_EXLOCK"))
455 if (strEQ(name, "O_LARGEFILE"))
461 if (strEQ(name, "O_NDELAY"))
467 if (strEQ(name, "O_NOCTTY"))
473 if (strEQ(name, "O_NOFOLLOW"))
479 if (strEQ(name, "O_NOINHERIT"))
485 if (strEQ(name, "O_NONBLOCK"))
491 if (strEQ(name, "O_RANDOM"))
497 if (strEQ(name, "O_RAW"))
503 if (strEQ(name, "O_RDONLY"))
509 if (strEQ(name, "O_RDWR"))
515 if (strEQ(name, "O_RSYNC"))
521 if (strEQ(name, "O_SEQUENTIAL"))
527 if (strEQ(name, "O_SHLOCK"))
533 if (strEQ(name, "O_SYNC"))
539 if (strEQ(name, "O_TEMPORARY"))
545 if (strEQ(name, "O_TEXT"))
551 if (strEQ(name, "O_TRUNC"))
557 if (strEQ(name, "O_WRONLY"))
563 if (strEQ(name, "O_ALIAS"))
569 if (strEQ(name, "O_RSRC"))
581 if (strEQ(name, "S_ISUID"))
587 if (strEQ(name, "S_ISGID"))
593 if (strEQ(name, "S_ISVTX"))
599 if (strEQ(name, "S_ISTXT"))
605 if (strEQ(name, "S_IFREG"))
611 if (strEQ(name, "S_IFDIR"))
617 if (strEQ(name, "S_IFLNK"))
623 if (strEQ(name, "S_IFSOCK"))
629 if (strEQ(name, "S_IFBLK"))
635 if (strEQ(name, "S_IFCHR"))
641 if (strEQ(name, "S_IFIFO"))
647 if (strEQ(name, "S_IFWHT"))
653 if (strEQ(name, "S_ENFMT"))
659 if (strEQ(name, "S_IRUSR"))
665 if (strEQ(name, "S_IWUSR"))
671 if (strEQ(name, "S_IXUSR"))
677 if (strEQ(name, "S_IRWXU"))
683 if (strEQ(name, "S_IRGRP"))
689 if (strEQ(name, "S_IWGRP"))
695 if (strEQ(name, "S_IXGRP"))
701 if (strEQ(name, "S_IRWXG"))
707 if (strEQ(name, "S_IROTH"))
713 if (strEQ(name, "S_IWOTH"))
719 if (strEQ(name, "S_IXOTH"))
725 if (strEQ(name, "S_IRWXO"))
731 if (strEQ(name, "S_IREAD"))
737 if (strEQ(name, "S_IWRITE"))
743 if (strEQ(name, "S_IEXEC"))
751 if (strEQ(name, "SEEK_CUR"))
757 if (strEQ(name, "SEEK_END"))
763 if (strEQ(name, "SEEK_SET"))
781 MODULE = Fcntl PACKAGE = Fcntl