diff options
| author | welch <welch> | 1999-06-30 17:47:27 (GMT) |
|---|---|---|
| committer | welch <welch> | 1999-06-30 17:47:27 (GMT) |
| commit | 31463576a06dda5ee5f81f24cb119b3dd469dc71 (patch) | |
| tree | cad9dceb9c65e0526946c63abbc976527f5d47ce /generic/tclStubs.c | |
| parent | cf9b05a0bbf76349c46744b72706db558588a9e7 (diff) | |
| download | tcl-31463576a06dda5ee5f81f24cb119b3dd469dc71.zip tcl-31463576a06dda5ee5f81f24cb119b3dd469dc71.tar.gz tcl-31463576a06dda5ee5f81f24cb119b3dd469dc71.tar.bz2 | |
Initial version of the Tcl_ReplaceChannel and Tcl_UndoReplaceChannel
functions.
Diffstat (limited to 'generic/tclStubs.c')
| -rw-r--r-- | generic/tclStubs.c | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/generic/tclStubs.c b/generic/tclStubs.c index 21ebe06..0194243 100644 --- a/generic/tclStubs.c +++ b/generic/tclStubs.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: tclStubs.c,v 1.7 1999/04/16 00:46:53 stanton Exp $ + * RCS: @(#) $Id: tclStubs.c,v 1.8 1999/06/30 17:47:29 welch Exp $ */ #include "tcl.h" @@ -3263,5 +3263,26 @@ Tcl_ServiceModeHook(mode) (tclStubsPtr->tcl_ServiceModeHook)(mode); } +/* Slot 345 */ +Tcl_Channel +Tcl_ReplaceChannel(interp, typePtr, instanceData, mask, prevChan) + Tcl_Interp * interp; + Tcl_ChannelType * typePtr; + ClientData instanceData; + int mask; + Tcl_Channel prevChan; +{ + return (tclStubsPtr->tcl_ReplaceChannel)(interp, typePtr, instanceData, mask, prevChan); +} + +/* Slot 346 */ +void +Tcl_UndoReplaceChannel(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + (tclStubsPtr->tcl_UndoReplaceChannel)(interp, chan); +} + /* !END!: Do not edit above this line. */ |