diff options
| author | redman <redman> | 1999-08-10 17:35:14 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-08-10 17:35:14 (GMT) |
| commit | 324d20b570be85ce259bea58a1d37768b7a01634 (patch) | |
| tree | 17312f8cada055139e9649674bdf4d701fdf2f13 /generic/tclIO.c | |
| parent | 7cd43815d0b5a7b4c81e4fd496673bc241e83eb1 (diff) | |
| download | tcl-324d20b570be85ce259bea58a1d37768b7a01634.zip tcl-324d20b570be85ce259bea58a1d37768b7a01634.tar.gz tcl-324d20b570be85ce259bea58a1d37768b7a01634.tar.bz2 | |
* generic/tclListObj.c:core_8_2_b3_base
* generic/tcl.decls:
* generic/tclDecls.h: Applied patch from Jim Ingham to change the
prototype of Tcl_ListObjGetElements to have the last argument have
a CONST so that you can feed it the objv that you get from the
standard TclObj command proc.
* generic/tclAlloc.c:
* generic/tclCmdIL.c:
* generic/tclIO.c:
* generic/tclThread.c:
* win/tclWinThrd.c:
* unix/tclUnixThrd.c: Fixed Brent's changes so that they work on
Windows (and he fixed the bug in the Unix thread implementation).
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 36 |
1 files changed, 1 insertions, 35 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 245c7f7..c35147d 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIO.c,v 1.13 1999/08/10 02:42:13 welch Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.14 1999/08/10 17:35:18 redman Exp $ */ #include "tclInt.h" @@ -597,40 +597,6 @@ TclFinalizeIOSubsystem() /* *---------------------------------------------------------------------- * - * Tcl_CloseChannels -- - * - * Close all open channels in this interp, except for the - * standard input/output channels. This is useful for cleanup. - * - * Results: - * None - * - * Side effects: - * May closes one or more channels. - * - *---------------------------------------------------------------------- - */ - -void -Tcl_CloseChannels(Tcl_Interp *interp) -{ - ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey); - Channel *chanPtr, *nextChanPtr; - - for (chanPtr = tsdPtr->firstChanPtr; chanPtr != NULL; chanPtr = nextChanPtr) { - nextChanPtr = chanPtr->nextChanPtr; - if (chanPtr != (Channel *) tsdPtr->stdinChannel - && chanPtr != (Channel *) tsdPtr->stdoutChannel - && chanPtr != (Channel *) tsdPtr->stderrChannel) { - (void) Tcl_UnregisterChannel(interp, (Tcl_Channel) chanPtr); - } - } -} - - -/* - *---------------------------------------------------------------------- - * * Tcl_SetStdChannel -- * * This function is used to change the channels that are used |