perllio.h

   1 #ifndef H_PERLLIO
   2 #define H_PERLLIO 1
   3
   4 #ifdef PERL_OBJECT
   5
   6 #include "iplio.h"
   7
   8 #define PerlLIO_access(file, mode) piLIO->Access((file), (mode), ErrorNo())
   9 #define PerlLIO_chmod(file, mode) piLIO->Chmod((file), (mode), ErrorNo())
  10 #define PerlLIO_chsize(fd, size) piLIO->Chsize((fd), (size), ErrorNo())
  11 #define PerlLIO_close(fd) piLIO->Close((fd), ErrorNo())
  12 #define PerlLIO_dup(fd) piLIO->Dup((fd), ErrorNo())
  13 #define PerlLIO_dup2(fd1, fd2) piLIO->Dup2((fd1), (fd2), ErrorNo())
  14 #define PerlLIO_flock(fd, op) piLIO->Flock((fd), (op), ErrorNo())
  15 #define PerlLIO_fstat(fd, buf) piLIO->FStat((fd), (buf), ErrorNo())
  16 #define PerlLIO_ioctl(fd, u, buf) piLIO->IOCtl((fd), (u), (buf), ErrorNo())
  17 #define PerlLIO_isatty(fd) piLIO->Isatty((fd), ErrorNo())
  18 #define PerlLIO_lseek(fd, offset, mode) piLIO->Lseek((fd), (offset), (mode), ErrorNo())
  19 #define PerlLIO_lstat(name, buf) piLIO->Lstat((name), (buf), ErrorNo())
  20 #define PerlLIO_mktemp(file) piLIO->Mktemp((file), ErrorNo())
  21 #define PerlLIO_open(file, flag) piLIO->Open((file), (flag), ErrorNo())
  22 #define PerlLIO_open3(file, flag, perm) piLIO->Open((file), (flag), (perm), ErrorNo())
  23 #define PerlLIO_read(fd, buf, count) piLIO->Read((fd), (buf), (count), ErrorNo())
  24 #define PerlLIO_rename(oldname, newname) piLIO->Rename((oldname), (newname), ErrorNo())
  25 #define PerlLIO_setmode(fd, mode) piLIO->Setmode((fd), (mode), ErrorNo())
  26 #define PerlLIO_stat(name, buf) piLIO->STat((name), (buf), ErrorNo())
  27 #define PerlLIO_tmpnam(str) piLIO->Tmpnam((str), ErrorNo())
  28 #define PerlLIO_umask(mode) piLIO->Umask((mode), ErrorNo())
  29 #define PerlLIO_unlink(file) piLIO->Unlink((file), ErrorNo())
  30 #define PerlLIO_utime(file, time) piLIO->Utime((file), (time), ErrorNo())
  31 #define PerlLIO_write(fd, buf, count) piLIO->Write((fd), (buf), (count), ErrorNo())
  32 #else
  33 #define PerlLIO_access(file, mode) access((file), (mode))
  34 #define PerlLIO_chmod(file, mode) chmod((file), (mode))
  35 #define PerlLIO_chsize(fd, size) chsize((fd), (size))
  36 #define PerlLIO_close(fd) close((fd))
  37 #define PerlLIO_dup(fd) dup((fd))
  38 #define PerlLIO_dup2(fd1, fd2) dup2((fd1), (fd2))
  39 #define PerlLIO_flock(fd, op) FLOCK((fd), (op))
  40 #define PerlLIO_fstat(fd, buf) Fstat((fd), (buf))
  41 #define PerlLIO_ioctl(fd, u, buf) ioctl((fd), (u), (buf))
  42 #define PerlLIO_isatty(fd) isatty((fd))
  43 #define PerlLIO_lseek(fd, offset, mode) lseek((fd), (offset), (mode))
  44 #define PerlLIO_lstat(name, buf) lstat((name), (buf))
  45 #define PerlLIO_mktemp(file) mktemp((file))
  46 #define PerlLIO_open(file, flag) open((file), (flag))
  47 #define PerlLIO_open3(file, flag, perm) open((file), (flag), (perm))
  48 #define PerlLIO_read(fd, buf, count) read((fd), (buf), (count))
  49 #define PerlLIO_rename(oldname, newname) rename((oldname), (newname))
  50 #define PerlLIO_setmode(fd, mode) setmode((fd), (mode))
  51 #define PerlLIO_stat(name, buf) Stat((name), (buf))
  52 #define PerlLIO_tmpnam(str) tmpnam((str))
  53 #define PerlLIO_umask(mode) umask((mode))
  54 #define PerlLIO_unlink(file) unlink((file))
  55 #define PerlLIO_utime(file, time) utime((file), (time))
  56 #define PerlLIO_write(fd, buf, count) write((fd), (buf), (count))
  57 #endif  /* PERL_OBJECT */
  58
  59 #endif /* Include guard */
  60