Merge commit 'c8bc058c566bbcbcd23e732197d64fecc739008f' as 'tcl8.6'

1 files changed, 41 insertions, 0 deletions

diff --git a/tcl8.6/win/cat.c b/tcl8.6/win/cat.c
new file mode 100644
index 0000000..d49e37c
--- /dev/null
+++ b/tcl8.6/win/cat.c
@@ -0,0 +1,41 @@
+/*
+ * 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;
+}