Please enter the commit message for your changes. Lines starting

[eos/base.git] / util / src / TclTk / tcl8.6.12 / win / cat.c

diff --git a/util/src/TclTk/tcl8.6.12/win/cat.c b/util/src/TclTk/tcl8.6.12/win/cat.c
new file mode 100644 (file)
index 0000000..bd84dd4
--- /dev/null
+++ b/util/src/TclTk/tcl8.6.12/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, (unsigned int)strlen(err));
+
+    return 0;
+}