Initial revision

1 files changed, 37 insertions, 0 deletions

diff --git a/win/cat.c b/win/cat.c
new file mode 100644
index 0000000..0ce550f
--- /dev/null
+++ b/win/cat.c
@@ -0,0 +1,37 @@
+/*
+ * 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.
+ *
+ * SCCS: @(#) cat.c 1.3 96/09/18 15:15:32
+ */
+
+#include <stdio.h>
+#include <io.h>
+#include <string.h>
+
+int
+main()
+{   
+    char buf[1024];
+    int n;
+    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;
+}
+