ext/Fcntl/Fcntl.xs

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3 #include "XSUB.h"
   4
   5 #ifdef VMS
   6 #  include <file.h>
   7 #else
   8 #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
   9 #define _NO_OLDNAMES
  10 #endif
  11 #  include <fcntl.h>
  12 #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
  13 #undef _NO_OLDNAMES
  14 #endif
  15 #endif
  16
  17 /* This comment is a kludge to get metaconfig to see the symbols
  18     VAL_O_NONBLOCK
  19     VAL_EAGAIN
  20     RD_NODATA
  21     EOF_NONBLOCK
  22    and include the appropriate metaconfig unit
  23    so that Configure will test how to turn on non-blocking I/O
  24    for a file descriptor.  See config.h for how to use these
  25    in your extension.
  26
  27    While I'm at it, I'll have metaconfig look for HAS_POLL too.
  28    --AD  October 16, 1995
  29 */
  30
  31 static int
  32 not_here(char *s)
  33 {
  34     croak("%s not implemented on this architecture", s);
  35     return -1;
  36 }
  37
  38 static double
  39 constant(char *name, int arg)
  40 {
  41     errno = 0;
  42     switch (*name) {
  43     case 'F':
  44         if (strnEQ(name, "F_", 2)) {
  45             if (strEQ(name, "F_DUPFD"))
  46 #ifdef F_DUPFD
  47                 return F_DUPFD;
  48 #else
  49                 goto not_there;
  50 #endif
  51             if (strEQ(name, "F_EXLCK"))
  52 #ifdef F_EXLCK
  53                 return F_EXLCK;
  54 #else
  55                 goto not_there;
  56 #endif
  57             if (strEQ(name, "F_GETFD"))
  58 #ifdef F_GETFD
  59                 return F_GETFD;
  60 #else
  61                 goto not_there;
  62 #endif
  63             if (strEQ(name, "F_GETFL"))
  64 #ifdef F_GETFL
  65                 return F_GETFL;
  66 #else
  67                 goto not_there;
  68 #endif
  69             if (strEQ(name, "F_GETLK"))
  70 #ifdef F_GETLK
  71                 return F_GETLK;
  72 #else
  73                 goto not_there;
  74 #endif
  75             if (strEQ(name, "F_GETLK64"))
  76 #ifdef F_GETLK64
  77                 return F_GETLK64;
  78 #else
  79                 goto not_there;
  80 #endif
  81             if (strEQ(name, "F_GETOWN"))
  82 #ifdef F_GETOWN
  83                 return F_GETOWN;
  84 #else
  85                 goto not_there;
  86 #endif
  87             if (strEQ(name, "F_POSIX"))
  88 #ifdef F_POSIX
  89                 return F_POSIX;
  90 #else
  91                 goto not_there;
  92 #endif
  93             if (strEQ(name, "F_RDLCK"))
  94 #ifdef F_RDLCK
  95                 return F_RDLCK;
  96 #else
  97                 goto not_there;
  98 #endif
  99             if (strEQ(name, "F_SETFD"))
 100 #ifdef F_SETFD
 101                 return F_SETFD;
 102 #else
 103                 goto not_there;
 104 #endif
 105             if (strEQ(name, "F_SETFL"))
 106 #ifdef F_SETFL
 107                 return F_SETFL;
 108 #else
 109                 goto not_there;
 110 #endif
 111             if (strEQ(name, "F_SETLK64"))
 112 #ifdef F_SETLK64
 113                 return F_SETLK64;
 114 #else
 115                 goto not_there;
 116 #endif
 117             if (strEQ(name, "F_SETLKW"))
 118 #ifdef F_SETLKW
 119                 return F_SETLKW;
 120 #else
 121                 goto not_there;
 122 #endif
 123             if (strEQ(name, "F_SETLKW64"))
 124 #ifdef F_SETLKW64
 125                 return F_SETLKW64;
 126 #else
 127                 goto not_there;
 128 #endif
 129             if (strEQ(name, "F_SETOWN"))
 130 #ifdef F_SETOWN
 131                 return F_SETOWN;
 132 #else
 133                 goto not_there;
 134 #endif
 135             if (strEQ(name, "F_SHLCK"))
 136 #ifdef F_SHLCK
 137                 return F_SHLCK;
 138 #else
 139                 goto not_there;
 140 #endif
 141             if (strEQ(name, "F_UNLCK"))
 142 #ifdef F_UNLCK
 143                 return F_UNLCK;
 144 #else
 145                 goto not_there;
 146 #endif
 147             if (strEQ(name, "F_WRLCK"))
 148 #ifdef F_WRLCK
 149                 return F_WRLCK;
 150 #else
 151                 goto not_there;
 152 #endif
 153             errno = EINVAL;
 154             return 0;
 155         }
 156         if (strEQ(name, "FAPPEND"))
 157 #ifdef FAPPEND
 158             return FAPPEND;
 159 #else
 160             goto not_there;
 161 #endif
 162         if (strEQ(name, "FASYNC"))
 163 #ifdef FASYNC
 164             return FASYNC;
 165 #else
 166             goto not_there;
 167 #endif
 168         if (strEQ(name, "FCREAT"))
 169 #ifdef FCREAT
 170             return FCREAT;
 171 #else
 172             goto not_there;
 173 #endif
 174         if (strEQ(name, "FD_CLOEXEC"))
 175 #ifdef FD_CLOEXEC
 176             return FD_CLOEXEC;
 177 #else
 178             goto not_there;
 179 #endif
 180         if (strEQ(name, "FDEFER"))
 181 #ifdef FDEFER
 182             return FDEFER;
 183 #else
 184             goto not_there;
 185 #endif
 186         if (strEQ(name, "FEXCL"))
 187 #ifdef FEXCL
 188             return FEXCL;
 189 #else
 190             goto not_there;
 191 #endif
 192         if (strEQ(name, "FNDELAY"))
 193 #ifdef FNDELAY
 194             return FNDELAY;
 195 #else
 196             goto not_there;
 197 #endif
 198         if (strEQ(name, "FNONBLOCK"))
 199 #ifdef FNONBLOCK
 200             return FNONBLOCK;
 201 #else
 202             goto not_there;
 203 #endif
 204         if (strEQ(name, "FSYNC"))
 205 #ifdef FSYNC
 206             return FSYNC;
 207 #else
 208             goto not_there;
 209 #endif
 210         if (strEQ(name, "FTRUNC"))
 211 #ifdef FTRUNC
 212             return FTRUNC;
 213 #else
 214             goto not_there;
 215 #endif
 216         break;
 217     case 'L':
 218         if (strnEQ(name, "LOCK_", 5)) {
 219             /* We support flock() on systems which don't have it, so
 220                always supply the constants. */
 221             if (strEQ(name, "LOCK_SH"))
 222 #ifdef LOCK_SH
 223                 return LOCK_SH;
 224 #else
 225                 return 1;
 226 #endif
 227             if (strEQ(name, "LOCK_EX"))
 228 #ifdef LOCK_EX
 229                 return LOCK_EX;
 230 #else
 231                 return 2;
 232 #endif
 233             if (strEQ(name, "LOCK_NB"))
 234 #ifdef LOCK_NB
 235                 return LOCK_NB;
 236 #else
 237                 return 4;
 238 #endif
 239             if (strEQ(name, "LOCK_UN"))
 240 #ifdef LOCK_UN
 241                 return LOCK_UN;
 242 #else
 243                 return 8;
 244 #endif
 245         } else
 246           goto not_there;
 247         break;
 248     case 'O':
 249         if (strnEQ(name, "O_", 2)) {
 250             if (strEQ(name, "O_ACCMODE"))
 251 #ifdef O_ACCMODE
 252                 return O_ACCMODE;
 253 #else
 254                 goto not_there;
 255 #endif
 256             if (strEQ(name, "O_APPEND"))
 257 #ifdef O_APPEND
 258                 return O_APPEND;
 259 #else
 260                 goto not_there;
 261 #endif
 262             if (strEQ(name, "O_ASYNC"))
 263 #ifdef O_ASYNC
 264                 return O_ASYNC;
 265 #else
 266                 goto not_there;
 267 #endif
 268             if (strEQ(name, "O_BINARY"))
 269 #ifdef O_BINARY
 270                 return O_BINARY;
 271 #else
 272                 goto not_there;
 273 #endif
 274             if (strEQ(name, "O_CREAT"))
 275 #ifdef O_CREAT
 276                 return O_CREAT;
 277 #else
 278                 goto not_there;
 279 #endif
 280             if (strEQ(name, "O_DEFER"))
 281 #ifdef O_DEFER
 282                 return O_DEFER;
 283 #else
 284                 goto not_there;
 285 #endif
 286             if (strEQ(name, "O_DSYNC"))
 287 #ifdef O_DSYNC
 288                 return O_DSYNC;
 289 #else
 290                 goto not_there;
 291 #endif
 292             if (strEQ(name, "O_EXCL"))
 293 #ifdef O_EXCL
 294                 return O_EXCL;
 295 #else
 296                 goto not_there;
 297 #endif
 298             if (strEQ(name, "O_EXLOCK"))
 299 #ifdef O_EXLOCK
 300                 return O_EXLOCK;
 301 #else
 302                 goto not_there;
 303 #endif
 304             if (strEQ(name, "O_LARGEFILE"))
 305 #ifdef O_LARGEFILE
 306                 return O_LARGEFILE;
 307 #else
 308                 goto not_there;
 309 #endif
 310             if (strEQ(name, "O_NDELAY"))
 311 #ifdef O_NDELAY
 312                 return O_NDELAY;
 313 #else
 314                 goto not_there;
 315 #endif
 316             if (strEQ(name, "O_NOCTTY"))
 317 #ifdef O_NOCTTY
 318                 return O_NOCTTY;
 319 #else
 320                 goto not_there;
 321 #endif
 322             if (strEQ(name, "O_NONBLOCK"))
 323 #ifdef O_NONBLOCK
 324                 return O_NONBLOCK;
 325 #else
 326                 goto not_there;
 327 #endif
 328             if (strEQ(name, "O_RDONLY"))
 329 #ifdef O_RDONLY
 330                 return O_RDONLY;
 331 #else
 332                 goto not_there;
 333 #endif
 334             if (strEQ(name, "O_RDWR"))
 335 #ifdef O_RDWR
 336                 return O_RDWR;
 337 #else
 338                 goto not_there;
 339 #endif
 340             if (strEQ(name, "O_RSYNC"))
 341 #ifdef O_RSYNC
 342                 return O_RSYNC;
 343 #else
 344                 goto not_there;
 345 #endif
 346             if (strEQ(name, "O_SHLOCK"))
 347 #ifdef O_SHLOCK
 348                 return O_SHLOCK;
 349 #else
 350                 goto not_there;
 351 #endif
 352             if (strEQ(name, "O_SYNC"))
 353 #ifdef O_SYNC
 354                 return O_SYNC;
 355 #else
 356                 goto not_there;
 357 #endif
 358             if (strEQ(name, "O_TEXT"))
 359 #ifdef O_TEXT
 360                 return O_TEXT;
 361 #else
 362                 goto not_there;
 363 #endif
 364             if (strEQ(name, "O_TRUNC"))
 365 #ifdef O_TRUNC
 366                 return O_TRUNC;
 367 #else
 368                 goto not_there;
 369 #endif
 370             if (strEQ(name, "O_WRONLY"))
 371 #ifdef O_WRONLY
 372                 return O_WRONLY;
 373 #else
 374                 goto not_there;
 375 #endif
 376         } else
 377           goto not_there;
 378         break;
 379     }
 380     errno = EINVAL;
 381     return 0;
 382
 383 not_there:
 384     errno = ENOENT;
 385     return 0;
 386 }
 387
 388
 389 MODULE = Fcntl          PACKAGE = Fcntl
 390
 391 double
 392 constant(name,arg)
 393         char *          name
 394         int             arg
 395