diff options
author | surles <surles@noemail.net> | 1998-08-03 18:25:11 (GMT) |
---|---|---|
committer | surles <surles@noemail.net> | 1998-08-03 18:25:11 (GMT) |
commit | 93066d1ab1c21f0ffbc9ddbe86416951bf3e1681 (patch) | |
tree | 6aa83048c513563ae1468a32cea5ce181d5d442d /unix/tclUnixPort.h | |
parent | 24ce3a99dde1485fbcaf12bd039049779bde86c1 (diff) | |
download | tcl-93066d1ab1c21f0ffbc9ddbe86416951bf3e1681.zip tcl-93066d1ab1c21f0ffbc9ddbe86416951bf3e1681.tar.gz tcl-93066d1ab1c21f0ffbc9ddbe86416951bf3e1681.tar.bz2 |
Fixed EINTR bug
FossilOrigin-Name: 78adaaa9a3ae373b76c1264d14e3052f235c6a72
Diffstat (limited to 'unix/tclUnixPort.h')
-rw-r--r-- | unix/tclUnixPort.h | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h index f99910f..3b0eb62 100644 --- a/unix/tclUnixPort.h +++ b/unix/tclUnixPort.h @@ -492,4 +492,20 @@ extern double strtod(); EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, int timeout)); +/* + * Substitute Tcl's own versions for several system calls. The + * Tcl versions retry automatically if interrupted by signals. + * (see tclUnixUtil.c). + */ + +#define open(a,b,c) TclOpen(a,b,c) +#define read(a,b,c) TclRead(a,b,c) +#define waitpid(a,b,c) TclWaitpid(a,b,c) +#define write(a,b,c) TclWrite(a,b,c) +EXTERN int TclOpen _ANSI_ARGS_((char *path, int oflag, int mode)); +EXTERN int TclRead _ANSI_ARGS_((int fd, VOID *buf, size_t numBytes)); +EXTERN int TclWaitpid _ANSI_ARGS_((pid_t pid, int *statPtr, int options)); +EXTERN int TclWrite _ANSI_ARGS_((int fd, VOID *buf, size_t numBytes)); + + #endif /* _TCLUNIXPORT */ |