undo subtree

1 files changed, 0 insertions, 41 deletions

diff --git a/tcl8.6/win/cat.c b/tcl8.6/win/cat.c
deleted file mode 100644
index d49e37c..0000000
--- a/tcl8.6/win/cat.c
+++ /dev/null
@@ -1,41 +0,0 @@
-/*
- * cat.c --
- *
- *	Program used when testing tclWinPipe.c
- *
- * Copyright (c) 1996 by Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- */
-
-#ifdef TCL_BROKEN_MAINARGS
-/* On mingw32 and cygwin this doesn't work */
-#   undef UNICODE
-#   undef _UNICODE
-#endif
-
-#include <stdio.h>
-#include <io.h>
-#include <string.h>
-#include <tchar.h>
-
-int
-_tmain(void)
-{
-    char buf[1024];
-    int n;
-    const char *err;
-
-    while (1) {
-	n = read(0, buf, sizeof(buf));
-	if (n <= 0) {
-	    break;
-	}
-        write(1, buf, n);
-    }
-    err = (sizeof(int) == 2) ? "stderr16" : "stderr32";
-    write(2, err, strlen(err));
-
-    return 0;
-}