diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-09-22 18:51:12 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-09-22 18:51:12 (GMT) |
commit | 3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7 (patch) | |
tree | 69afbb41089c8358615879f7cd3c4cf7997f4c7e /tcl8.6/win/cat.c | |
parent | a0e17db23c0fd7c771c0afce8cce350c98f90b02 (diff) | |
download | blt-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.c | 41 |
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; -} |