diff options
| author | hobbs <hobbs> | 1999-12-09 14:44:09 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-12-09 14:44:09 (GMT) |
| commit | 2f64bc5e83126cf7aafe7ae267cf0b0f07386165 (patch) | |
| tree | d04f841fb433c9c7df6658ec08903cf37d61291a /win/tclWinChan.c | |
| parent | a5996b195198a34b211bf95fef59ae668c3e6d8e (diff) | |
| download | tcl-2f64bc5e83126cf7aafe7ae267cf0b0f07386165.zip tcl-2f64bc5e83126cf7aafe7ae267cf0b0f07386165.tar.gz tcl-2f64bc5e83126cf7aafe7ae267cf0b0f07386165.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
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) { |