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 (strnEQ(name, "F_", 2)) {
50 if (strEQ(name, "F_ALLOCSP"))
56 if (strEQ(name, "F_ALLOCSP64"))
62 if (strEQ(name, "F_COMPAT"))
68 if (strEQ(name, "F_DUP2FD"))
74 if (strEQ(name, "F_DUPFD"))
80 if (strEQ(name, "F_EXLCK"))
86 if (strEQ(name, "F_FREESP"))
92 if (strEQ(name, "F_FREESP64"))
98 if (strEQ(name, "F_FSYNC"))
104 if (strEQ(name, "F_FSYNC64"))
110 if (strEQ(name, "F_GETFD"))
116 if (strEQ(name, "F_GETFL"))
122 if (strEQ(name, "F_GETLK"))
128 if (strEQ(name, "F_GETLK64"))
134 if (strEQ(name, "F_GETOWN"))
140 if (strEQ(name, "F_NODNY"))
146 if (strEQ(name, "F_POSIX"))
152 if (strEQ(name, "F_RDACC"))
158 if (strEQ(name, "F_RDDNY"))
164 if (strEQ(name, "F_RDLCK"))
170 if (strEQ(name, "F_RWACC"))
176 if (strEQ(name, "F_RWDNY"))
182 if (strEQ(name, "F_SETFD"))
188 if (strEQ(name, "F_SETFL"))
194 if (strEQ(name, "F_SETLK"))
200 if (strEQ(name, "F_SETLK64"))
206 if (strEQ(name, "F_SETLKW"))
212 if (strEQ(name, "F_SETLKW64"))
218 if (strEQ(name, "F_SETOWN"))
224 if (strEQ(name, "F_SHARE"))
230 if (strEQ(name, "F_SHLCK"))
236 if (strEQ(name, "F_UNLCK"))
242 if (strEQ(name, "F_UNSHARE"))
248 if (strEQ(name, "F_WRACC"))
254 if (strEQ(name, "F_WRDNY"))
260 if (strEQ(name, "F_WRLCK"))
269 if (strEQ(name, "FAPPEND"))
275 if (strEQ(name, "FASYNC"))
281 if (strEQ(name, "FCREAT"))
287 if (strEQ(name, "FD_CLOEXEC"))
293 if (strEQ(name, "FDEFER"))
299 if (strEQ(name, "FDSYNC"))
305 if (strEQ(name, "FEXCL"))
311 if (strEQ(name, "FLARGEFILE"))
317 if (strEQ(name, "FNDELAY"))
323 if (strEQ(name, "FNONBLOCK"))
329 if (strEQ(name, "FRSYNC"))
335 if (strEQ(name, "FSYNC"))
341 if (strEQ(name, "FTRUNC"))
349 if (strnEQ(name, "LOCK_", 5)) {
350 /* We support flock() on systems which don't have it, so
351 always supply the constants. */
352 if (strEQ(name, "LOCK_SH"))
358 if (strEQ(name, "LOCK_EX"))
364 if (strEQ(name, "LOCK_NB"))
370 if (strEQ(name, "LOCK_UN"))
380 if (strnEQ(name, "O_", 2)) {
381 if (strEQ(name, "O_ACCMODE"))
387 if (strEQ(name, "O_APPEND"))
393 if (strEQ(name, "O_ASYNC"))
399 if (strEQ(name, "O_BINARY"))
405 if (strEQ(name, "O_CREAT"))
411 if (strEQ(name, "O_DEFER"))
417 if (strEQ(name, "O_DSYNC"))
423 if (strEQ(name, "O_EXCL"))
429 if (strEQ(name, "O_EXLOCK"))
435 if (strEQ(name, "O_LARGEFILE"))
441 if (strEQ(name, "O_NDELAY"))
447 if (strEQ(name, "O_NOCTTY"))
453 if (strEQ(name, "O_NONBLOCK"))
459 if (strEQ(name, "O_RDONLY"))
465 if (strEQ(name, "O_RDWR"))
471 if (strEQ(name, "O_RSYNC"))
477 if (strEQ(name, "O_SHLOCK"))
483 if (strEQ(name, "O_SYNC"))
489 if (strEQ(name, "O_TEXT"))
495 if (strEQ(name, "O_TRUNC"))
501 if (strEQ(name, "O_WRONLY"))
507 if (strEQ(name, "O_ALIAS"))
513 if (strEQ(name, "O_RSRC"))
523 if (strEQ(name, "SEEK_CUR"))
529 if (strEQ(name, "SEEK_END"))
535 if (strEQ(name, "SEEK_SET"))
552 MODULE = Fcntl PACKAGE = Fcntl