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);
49 if (strEQ(name, "S_IFMT")) /* Yes, on name _S_IFMT return S_IFMT. */
59 if (strEQ(name, "ALLOCSP"))
65 if (strEQ(name, "ALLOCSP64"))
71 if (strEQ(name, "COMPAT"))
77 if (strEQ(name, "DUP2FD"))
83 if (strEQ(name, "DUPFD"))
89 if (strEQ(name, "EXLCK"))
95 if (strEQ(name, "FREESP"))
101 if (strEQ(name, "FREESP64"))
107 if (strEQ(name, "FSYNC"))
113 if (strEQ(name, "FSYNC64"))
119 if (strEQ(name, "GETFD"))
125 if (strEQ(name, "GETFL"))
131 if (strEQ(name, "GETLK"))
137 if (strEQ(name, "GETLK64"))
143 if (strEQ(name, "GETOWN"))
149 if (strEQ(name, "NODNY"))
155 if (strEQ(name, "POSIX"))
161 if (strEQ(name, "RDACC"))
167 if (strEQ(name, "RDDNY"))
173 if (strEQ(name, "RDLCK"))
179 if (strEQ(name, "RWACC"))
185 if (strEQ(name, "RWDNY"))
191 if (strEQ(name, "SETFD"))
197 if (strEQ(name, "SETFL"))
203 if (strEQ(name, "SETLK"))
209 if (strEQ(name, "SETLK64"))
215 if (strEQ(name, "SETLKW"))
221 if (strEQ(name, "SETLKW64"))
227 if (strEQ(name, "SETOWN"))
233 if (strEQ(name, "SHARE"))
239 if (strEQ(name, "SHLCK"))
245 if (strEQ(name, "UNLCK"))
251 if (strEQ(name, "UNSHARE"))
257 if (strEQ(name, "WRACC"))
263 if (strEQ(name, "WRDNY"))
269 if (strEQ(name, "WRLCK"))
278 if (strEQ(name, "APPEND"))
284 if (strEQ(name, "ASYNC"))
290 if (strEQ(name, "CREAT"))
296 if (strEQ(name, "D_CLOEXEC"))
302 if (strEQ(name, "DEFER"))
308 if (strEQ(name, "DSYNC"))
314 if (strEQ(name, "EXCL"))
320 if (strEQ(name, "LARGEFILE"))
326 if (strEQ(name, "NDELAY"))
332 if (strEQ(name, "NONBLOCK"))
338 if (strEQ(name, "RSYNC"))
344 if (strEQ(name, "SYNC"))
350 if (strEQ(name, "TRUNC"))
358 if (strnEQ(name, "OCK_", 4)) {
359 /* We support flock() on systems which don't have it, so
360 always supply the constants. */
362 if (strEQ(name, "SH"))
368 if (strEQ(name, "EX"))
374 if (strEQ(name, "NB"))
380 if (strEQ(name, "UN"))
390 if (name[0] == '_') {
392 if (strEQ(name, "ACCMODE"))
398 if (strEQ(name, "APPEND"))
404 if (strEQ(name, "ASYNC"))
410 if (strEQ(name, "BINARY"))
416 if (strEQ(name, "CREAT"))
422 if (strEQ(name, "DEFER"))
428 if (strEQ(name, "DIRECT"))
434 if (strEQ(name, "DIRECTORY"))
440 if (strEQ(name, "DSYNC"))
446 if (strEQ(name, "EXCL"))
452 if (strEQ(name, "EXLOCK"))
458 if (strEQ(name, "LARGEFILE"))
464 if (strEQ(name, "NDELAY"))
470 if (strEQ(name, "NOCTTY"))
476 if (strEQ(name, "NOFOLLOW"))
482 if (strEQ(name, "NOINHERIT"))
488 if (strEQ(name, "NONBLOCK"))
494 if (strEQ(name, "RANDOM"))
500 if (strEQ(name, "RAW"))
506 if (strEQ(name, "RDONLY"))
512 if (strEQ(name, "RDWR"))
518 if (strEQ(name, "RSYNC"))
524 if (strEQ(name, "SEQUENTIAL"))
530 if (strEQ(name, "SHLOCK"))
536 if (strEQ(name, "SYNC"))
542 if (strEQ(name, "TEMPORARY"))
548 if (strEQ(name, "TEXT"))
554 if (strEQ(name, "TRUNC"))
560 if (strEQ(name, "WRONLY"))
566 if (strEQ(name, "ALIAS"))
572 if (strEQ(name, "RSRC"))
584 if (strEQ(name, "ISUID"))
590 if (strEQ(name, "ISGID"))
596 if (strEQ(name, "ISVTX"))
602 if (strEQ(name, "ISTXT"))
608 if (strEQ(name, "IFREG"))
614 if (strEQ(name, "IFDIR"))
620 if (strEQ(name, "IFLNK"))
626 if (strEQ(name, "IFSOCK"))
632 if (strEQ(name, "IFBLK"))
638 if (strEQ(name, "IFCHR"))
644 if (strEQ(name, "IFIFO"))
650 if (strEQ(name, "IFWHT"))
656 if (strEQ(name, "ENFMT"))
662 if (strEQ(name, "IRUSR"))
668 if (strEQ(name, "IWUSR"))
674 if (strEQ(name, "IXUSR"))
680 if (strEQ(name, "IRWXU"))
686 if (strEQ(name, "IRGRP"))
692 if (strEQ(name, "IWGRP"))
698 if (strEQ(name, "IXGRP"))
704 if (strEQ(name, "IRWXG"))
710 if (strEQ(name, "IROTH"))
716 if (strEQ(name, "IWOTH"))
722 if (strEQ(name, "IXOTH"))
728 if (strEQ(name, "IRWXO"))
734 if (strEQ(name, "IREAD"))
740 if (strEQ(name, "IWRITE"))
746 if (strEQ(name, "IEXEC"))
754 if (strEQ(name, "EK_CUR"))
760 if (strEQ(name, "EK_END"))
766 if (strEQ(name, "EK_SET"))
784 MODULE = Fcntl PACKAGE = Fcntl