summaryrefslogtreecommitdiffstats
path: root/tcl8.6/win/cat.c
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2017-09-22 18:51:12 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2017-09-22 18:51:12 (GMT)
commit3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7 (patch)
tree69afbb41089c8358615879f7cd3c4cf7997f4c7e /tcl8.6/win/cat.c
parenta0e17db23c0fd7c771c0afce8cce350c98f90b02 (diff)
downloadblt-3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7.zip
blt-3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7.tar.gz
blt-3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7.tar.bz2
update to tcl/tk 8.6.7
Diffstat (limited to 'tcl8.6/win/cat.c')
-rw-r--r--tcl8.6/win/cat.c41
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;
-}