Re: Exceptions in IPC::Open2
[p5sagit/p5-mst-13.2.git] / perllio.h
CommitLineData
3028581b 1#ifndef H_PERLLIO
2#define H_PERLLIO 1
3
4#ifdef PERL_OBJECT
0824fdcb 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())
01f988be 10#define PerlLIO_chown(file, owner, group) piLIO->Chown((file), (owner), (group), ErrorNo())
0824fdcb 11#define PerlLIO_chsize(fd, size) piLIO->Chsize((fd), (size), ErrorNo())
12#define PerlLIO_close(fd) piLIO->Close((fd), ErrorNo())
13#define PerlLIO_dup(fd) piLIO->Dup((fd), ErrorNo())
14#define PerlLIO_dup2(fd1, fd2) piLIO->Dup2((fd1), (fd2), ErrorNo())
15#define PerlLIO_flock(fd, op) piLIO->Flock((fd), (op), ErrorNo())
f7a92b15 16#define PerlLIO_fstat(fd, buf) piLIO->FileStat((fd), (buf), ErrorNo())
0824fdcb 17#define PerlLIO_ioctl(fd, u, buf) piLIO->IOCtl((fd), (u), (buf), ErrorNo())
18#define PerlLIO_isatty(fd) piLIO->Isatty((fd), ErrorNo())
19#define PerlLIO_lseek(fd, offset, mode) piLIO->Lseek((fd), (offset), (mode), ErrorNo())
20#define PerlLIO_lstat(name, buf) piLIO->Lstat((name), (buf), ErrorNo())
21#define PerlLIO_mktemp(file) piLIO->Mktemp((file), ErrorNo())
22#define PerlLIO_open(file, flag) piLIO->Open((file), (flag), ErrorNo())
23#define PerlLIO_open3(file, flag, perm) piLIO->Open((file), (flag), (perm), ErrorNo())
24#define PerlLIO_read(fd, buf, count) piLIO->Read((fd), (buf), (count), ErrorNo())
25#define PerlLIO_rename(oldname, newname) piLIO->Rename((oldname), (newname), ErrorNo())
26#define PerlLIO_setmode(fd, mode) piLIO->Setmode((fd), (mode), ErrorNo())
f7a92b15 27#define PerlLIO_stat(name, buf) piLIO->NameStat((name), (buf), ErrorNo())
0824fdcb 28#define PerlLIO_tmpnam(str) piLIO->Tmpnam((str), ErrorNo())
29#define PerlLIO_umask(mode) piLIO->Umask((mode), ErrorNo())
30#define PerlLIO_unlink(file) piLIO->Unlink((file), ErrorNo())
31#define PerlLIO_utime(file, time) piLIO->Utime((file), (time), ErrorNo())
32#define PerlLIO_write(fd, buf, count) piLIO->Write((fd), (buf), (count), ErrorNo())
3028581b 33#else
34#define PerlLIO_access(file, mode) access((file), (mode))
35#define PerlLIO_chmod(file, mode) chmod((file), (mode))
01f988be 36#define PerlLIO_chown(file, owner, group) chown((file), (owner), (group))
3028581b 37#define PerlLIO_chsize(fd, size) chsize((fd), (size))
38#define PerlLIO_close(fd) close((fd))
39#define PerlLIO_dup(fd) dup((fd))
40#define PerlLIO_dup2(fd1, fd2) dup2((fd1), (fd2))
0824fdcb 41#define PerlLIO_flock(fd, op) FLOCK((fd), (op))
3028581b 42#define PerlLIO_fstat(fd, buf) Fstat((fd), (buf))
0824fdcb 43#define PerlLIO_ioctl(fd, u, buf) ioctl((fd), (u), (buf))
3028581b 44#define PerlLIO_isatty(fd) isatty((fd))
45#define PerlLIO_lseek(fd, offset, mode) lseek((fd), (offset), (mode))
46#define PerlLIO_lstat(name, buf) lstat((name), (buf))
47#define PerlLIO_mktemp(file) mktemp((file))
e5c9fcd0 48#define PerlLIO_mkstemp(file) mkstemp((file))
3028581b 49#define PerlLIO_open(file, flag) open((file), (flag))
50#define PerlLIO_open3(file, flag, perm) open((file), (flag), (perm))
51#define PerlLIO_read(fd, buf, count) read((fd), (buf), (count))
52#define PerlLIO_rename(oldname, newname) rename((oldname), (newname))
53#define PerlLIO_setmode(fd, mode) setmode((fd), (mode))
54#define PerlLIO_stat(name, buf) Stat((name), (buf))
55#define PerlLIO_tmpnam(str) tmpnam((str))
56#define PerlLIO_umask(mode) umask((mode))
57#define PerlLIO_unlink(file) unlink((file))
58#define PerlLIO_utime(file, time) utime((file), (time))
59#define PerlLIO_write(fd, buf, count) write((fd), (buf), (count))
60#endif /* PERL_OBJECT */
61
62#endif /* Include guard */
63