Nuked EINTR wrappers

1 files changed, 0 insertions, 100 deletions

diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index b846169..28e62e5 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.c
@@ -2571,103 +2571,3 @@ TclUnixWaitForFile(fd, mask, timeout)
     }
     return result;
 }
-
-/*
- *----------------------------------------------------------------------
- *
- * TclOpen, etc. --
- *
- *	Below are a bunch of procedures that are used by Tcl instead
- *	of system calls.  Each of the procedures executes the
- *	corresponding system call and retries automatically
- *	if the system call was interrupted by a signal.
- *
- * Results:
- *	Whatever the system call would normally return.
- *
- * Side effects:
- *	Whatever the system call would normally do.
- *
- * NOTE:
- *	This should be the last page of this file, since it undefines
- *	the macros that redirect read etc. to the procedures below.
- *
- *----------------------------------------------------------------------
- */
-
-#undef open
-int
-TclOpen(path, oflag, mode)
-    char *path;
-    int oflag;
-    int mode;
-{
-    int result;
-    while (1) {
-	result = open(path, oflag, (mode_t)mode);
-	if ((result != -1) || (errno != EINTR)) {
-	    return result;
-	}
-    }
-}
-
-#undef read
-int
-TclRead(fd, buf, numBytes)
-    int fd;
-    VOID *buf;
-    size_t numBytes;
-{
-    int result;
-    while (1) {
-	result = read(fd, buf, (size_t) numBytes);
-	if ((result != -1) || (errno != EINTR)) {
-	    return result;
-	}
-    }
-}
-
-#undef waitpid
-extern pid_t waitpid _ANSI_ARGS_((pid_t pid, int *stat_loc, int options));
-
-/*
- * Note:  the #ifdef below is needed to avoid compiler errors on systems
- * that have ANSI compilers and also define pid_t to be short.  The
- * problem is a complex one having to do with argument type promotion.
- */
-
-#ifdef _USING_PROTOTYPES_
-int
-TclWaitpid _ANSI_ARGS_((pid_t pid, int *statPtr, int options))
-#else
-int
-TclWaitpid(pid, statPtr, options)
-    pid_t pid;
-    int *statPtr;
-    int options;
-#endif /* _USING_PROTOTYPES_ */
-{
-    int result;
-    while (1) {
-	result = (int) waitpid((pid_t) pid, statPtr, options);
-	if ((result != -1) || (errno != EINTR)) {
-	    return result;
-	}
-    }
-}
-
-#undef write
-int
-TclWrite(fd, buf, numBytes)
-    int fd;
-    VOID *buf;
-    size_t numBytes;
-{
-    int result;
-    while (1) {
-	result = write(fd, buf, (size_t) numBytes);
-	if ((result != -1) || (errno != EINTR)) {
-	    return result;
-	}
-    }
-}