diff options
author | hobbs <hobbs@noemail.net> | 1999-12-09 14:44:09 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 1999-12-09 14:44:09 (GMT) |
commit | 15145e7864c6b32c532f94f61d9a36b0016bc43d (patch) | |
tree | d04f841fb433c9c7df6658ec08903cf37d61291a /win/tclWinChan.c | |
parent | 216c3d901c60c691718ff224308c398d0b696e2b (diff) | |
download | tcl-15145e7864c6b32c532f94f61d9a36b0016bc43d.zip tcl-15145e7864c6b32c532f94f61d9a36b0016bc43d.tar.gz tcl-15145e7864c6b32c532f94f61d9a36b0016bc43d.tar.bz2 |
* win/tclWin32Dll.c:
* win/tclWinChan.c:
* win/tclWinFCmd.c:
* win/tclWinInit.c:
* win/tclWinPipe.c:
* win/tclWinSock.c: removed all code that supported Win32s. It
was no longer officially supported, and likely didn't work anyway.
* win/makefile.vc: removed 16 bit stuff, cleaned up.
* win/tcl16.rc:
* win/tclWin16.c:
* win/winDumpExts.c: these files have been removed from the
source tree (no longer necessary to build)
* win/aclocal.m4: made it just include tcl.m4
FossilOrigin-Name: 28cb1be105858fd6a29f6bed329d046c9819b0aa
Diffstat (limited to 'win/tclWinChan.c')
-rw-r--r-- | win/tclWinChan.c | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/win/tclWinChan.c b/win/tclWinChan.c index 1bca83d..28d7b51 100644 --- a/win/tclWinChan.c +++ b/win/tclWinChan.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinChan.c,v 1.8 1999/07/30 02:02:35 redman Exp $ + * RCS: @(#) $Id: tclWinChan.c,v 1.9 1999/12/09 14:44:10 hobbs Exp $ */ #include "tclWinInt.h" @@ -791,8 +791,7 @@ TclpOpenFileChannel(interp, fileName, modeString, permissions) channel = NULL; - switch (type) - { + switch (type) { case FILE_TYPE_SERIAL: channel = TclWinOpenSerialChannel(handle, channelName, channelPermissions); @@ -802,12 +801,10 @@ TclpOpenFileChannel(interp, fileName, modeString, permissions) channelPermissions); break; case FILE_TYPE_PIPE: - if (channelPermissions & TCL_READABLE) - { + if (channelPermissions & TCL_READABLE) { readFile = TclWinMakeFile(handle); } - if (channelPermissions & TCL_WRITABLE) - { + if (channelPermissions & TCL_WRITABLE) { writeFile = TclWinMakeFile(handle); } channel = TclpCreateCommandChannel(readFile, writeFile, NULL, 0, NULL); @@ -835,8 +832,7 @@ TclpOpenFileChannel(interp, fileName, modeString, permissions) Tcl_DStringFree(&buffer); Tcl_DStringFree(&ds); - if (channel != NULL) - { + if (channel != NULL) { if (seekFlag) { if (Tcl_Seek(channel, 0, SEEK_END) < 0) { if (interp != (Tcl_Interp *) NULL) { |