summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-07-30 21:46:47 (GMT)
committerhobbs <hobbs>1999-07-30 21:46:47 (GMT)
commit901e9cf34bd3ae9044d9934d2d433263a6795eff (patch)
treee39936b9bafb50054b6d49372def1bf10c6a6d08 /generic/tclIO.c
parenta0e51c52b4d0ca7246d307f421519147330b655c (diff)
downloadtcl-901e9cf34bd3ae9044d9934d2d433263a6795eff.zip
tcl-901e9cf34bd3ae9044d9934d2d433263a6795eff.tar.gz
tcl-901e9cf34bd3ae9044d9934d2d433263a6795eff.tar.bz2
updated trf patch to fix problems created when adapting Kupries'
previous patch to our specs.
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c132
1 files changed, 81 insertions, 51 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index d679f9a..c0a33b0 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.11 1999/07/22 21:50:54 redman Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.12 1999/07/30 21:46:47 hobbs Exp $
*/
#include "tclInt.h"
@@ -1391,6 +1391,7 @@ Tcl_StackChannel(interp, typePtr, instanceData, mask, prevChan)
{
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
Channel *chanPtr, *pt;
+ int interest = 0;
/*
* AK, 06/30/1999
@@ -1449,6 +1450,19 @@ Tcl_StackChannel(interp, typePtr, instanceData, mask, prevChan)
chanPtr = (Channel *) ckalloc((unsigned) sizeof(Channel));
/*
+ * If there is some interest in the channel, remove it, break
+ * down the whole chain. It will be reconstructed later.
+ */
+
+ interest = pt->interestMask;
+
+ pt->interestMask = 0;
+
+ if (interest) {
+ (pt->typePtr->watchProc) (pt->instanceData, 0);
+ }
+
+ /*
* Save some of the current state into the new structure,
* reinitialize the parts which will stay with the transformation.
*
@@ -1496,7 +1510,7 @@ Tcl_StackChannel(interp, typePtr, instanceData, mask, prevChan)
chanPtr->outQueueHead = pt->outQueueHead; /* Save */
chanPtr->outQueueTail = pt->outQueueTail; /* Save */
chanPtr->saveInBufPtr = pt->saveInBufPtr; /* Save */
- chanPtr->inQueueHead = pt->outQueueHead; /* Save */
+ chanPtr->inQueueHead = pt->inQueueHead; /* Save */
chanPtr->inQueueTail = pt->inQueueTail; /* Save */
chanPtr->chPtr = (ChannelHandler *) NULL; /* TTO */
@@ -1527,9 +1541,11 @@ Tcl_StackChannel(interp, typePtr, instanceData, mask, prevChan)
* - The information about encoding and eol-translation is taken
* without change. There is no need to fiddle with
* refCount et. al.
+ *
+ * Don't forget to use the same blocking mode as the old channel.
*/
- pt->flags = mask;
+ pt->flags = mask | (chanPtr->flags & CHANNEL_NONBLOCKING);
/*
* EDITORS NOTE: all the lines with "take it as is" should get
@@ -1598,10 +1614,7 @@ Tcl_StackChannel(interp, typePtr, instanceData, mask, prevChan)
* between them.
*/
- if (pt->interestMask) {
- int interest = pt->interestMask;
-
- pt->interestMask = 0;
+ if (interest) {
(pt->typePtr->watchProc) (pt->instanceData, interest);
}
@@ -1680,10 +1693,10 @@ Tcl_UnstackChannel (interp, chan)
* use correction code to ensure this.
*/
- memcpy ((void*) &top, (void*) chanPtr, sizeof (Channel));
- memcpy ((void*) &chanPtr, (void*) chanDownPtr, sizeof (Channel));
+ memcpy ((void*) &top, (void*) chanPtr, sizeof (Channel));
+ memcpy ((void*) chanPtr, (void*) chanDownPtr, sizeof (Channel));
top.supercedes = (Channel*) NULL;
- memcpy ((void*) &chanDownPtr, (void*) &top, sizeof (Channel));
+ memcpy ((void*) chanDownPtr, (void*) &top, sizeof (Channel));
chanPtr->refCount = chanDownPtr->refCount;
chanPtr->closeCbPtr = chanDownPtr->closeCbPtr;
@@ -6086,61 +6099,77 @@ Tcl_NotifyChannel(channel, mask)
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
NextChannelHandler nh;
- /*
- * Preserve the channel struct in case the script closes it.
+ /* Walk all channels in a stack ! and notify them in order.
*/
+
+ while (chanPtr != (Channel *) NULL) {
+ /*
+ * Preserve the channel struct in case the script closes it.
+ */
- Tcl_Preserve((ClientData) channel);
+ Tcl_Preserve((ClientData) channel);
- /*
- * If we are flushing in the background, be sure to call FlushChannel
- * for writable events. Note that we have to discard the writable
- * event so we don't call any write handlers before the flush is
- * complete.
- */
+ /*
+ * If we are flushing in the background, be sure to call FlushChannel
+ * for writable events. Note that we have to discard the writable
+ * event so we don't call any write handlers before the flush is
+ * complete.
+ */
- if ((chanPtr->flags & BG_FLUSH_SCHEDULED) && (mask & TCL_WRITABLE)) {
- FlushChannel(NULL, chanPtr, 1);
- mask &= ~TCL_WRITABLE;
- }
+ if ((chanPtr->flags & BG_FLUSH_SCHEDULED) && (mask & TCL_WRITABLE)) {
+ FlushChannel(NULL, chanPtr, 1);
+ mask &= ~TCL_WRITABLE;
+ }
- /*
- * Add this invocation to the list of recursive invocations of
- * ChannelHandlerEventProc.
- */
+ /*
+ * Add this invocation to the list of recursive invocations of
+ * ChannelHandlerEventProc.
+ */
- nh.nextHandlerPtr = (ChannelHandler *) NULL;
- nh.nestedHandlerPtr = tsdPtr->nestedHandlerPtr;
- tsdPtr->nestedHandlerPtr = &nh;
+ nh.nextHandlerPtr = (ChannelHandler *) NULL;
+ nh.nestedHandlerPtr = tsdPtr->nestedHandlerPtr;
+ tsdPtr->nestedHandlerPtr = &nh;
- for (chPtr = chanPtr->chPtr; chPtr != (ChannelHandler *) NULL; ) {
+ for (chPtr = chanPtr->chPtr; chPtr != (ChannelHandler *) NULL; ) {
- /*
- * If this channel handler is interested in any of the events that
- * have occurred on the channel, invoke its procedure.
- */
+ /*
+ * If this channel handler is interested in any of the events that
+ * have occurred on the channel, invoke its procedure.
+ */
- if ((chPtr->mask & mask) != 0) {
- nh.nextHandlerPtr = chPtr->nextPtr;
- (*(chPtr->proc))(chPtr->clientData, mask);
- chPtr = nh.nextHandlerPtr;
- } else {
- chPtr = chPtr->nextPtr;
+ if ((chPtr->mask & mask) != 0) {
+ nh.nextHandlerPtr = chPtr->nextPtr;
+ (*(chPtr->proc))(chPtr->clientData, mask);
+ chPtr = nh.nextHandlerPtr;
+ } else {
+ chPtr = chPtr->nextPtr;
+ }
}
- }
- /*
- * Update the notifier interest, since it may have changed after
- * invoking event handlers.
- */
+ /*
+ * Update the notifier interest, since it may have changed after
+ * invoking event handlers. Skip that if the channel was deleted
+ * in the call to the channel handler.
+ */
- if (chanPtr->typePtr != NULL) {
- UpdateInterest(chanPtr);
- }
+ if (chanPtr->typePtr != NULL) {
+ UpdateInterest(chanPtr);
- Tcl_Release((ClientData) channel);
+ /* Walk down the stack.
+ */
+ chanPtr = chanPtr-> supercedes;
+ } else {
+ /* Stop walking the chain, the whole stack was destroyed!
+ */
+ chanPtr = (Channel*) NULL;
+ }
+
+ Tcl_Release((ClientData) channel);
+
+ tsdPtr->nestedHandlerPtr = nh.nestedHandlerPtr;
- tsdPtr->nestedHandlerPtr = nh.nestedHandlerPtr;
+ channel = (Tcl_Channel) chanPtr;
+ }
}
/*
@@ -8130,3 +8159,4 @@ SetBlockMode(interp, chanPtr, mode)
return TCL_OK;
}
+