summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2005-08-26 22:11:15 (GMT)
committerandreas_kupries <akupries@shaw.ca>2005-08-26 22:11:15 (GMT)
commit6b46682cfeecee8430f13996041c1347b9a20658 (patch)
tree8d4a9010820cf0f60087a28fd22afac8014358a1
parent4530b1f95c292b6cc8f2b1fc2fafd2f01f14b1b0 (diff)
downloadtcl-6b46682cfeecee8430f13996041c1347b9a20658.zip
tcl-6b46682cfeecee8430f13996041c1347b9a20658.tar.gz
tcl-6b46682cfeecee8430f13996041c1347b9a20658.tar.bz2
* generic/tclIO.c: Moved Tcl_{Cut,Splice}Channel to
{Cut,Splice}Channel for internal use, and created new public functions for Tcl_{Cut,Splice}Channel which walk the whole stack of transformations and invoke the necessary thread actions. Added code to Tcl_(Un)StackChannel to properly invoke the thread actions when pushing and popping transformations on/from a channel.
-rw-r--r--ChangeLog10
-rw-r--r--generic/tclIO.c156
-rw-r--r--generic/tclThreadTest.c8
3 files changed, 164 insertions, 10 deletions
diff --git a/ChangeLog b/ChangeLog
index 9c32041..de410c1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2005-08-26 Andreas Kupries <andreask@activestate.com>
+
+ * generic/tclIO.c: Moved Tcl_{Cut,Splice}Channel to
+ {Cut,Splice}Channel for internal use, and created new public
+ functions for Tcl_{Cut,Splice}Channel which walk the whole stack
+ of transformations and invoke the necessary thread actions.
+ Added code to Tcl_(Un)StackChannel to properly invoke the thread
+ actions when pushing and popping transformations on/from a
+ channel.
+
2005-08-26 Donal K. Fellows <donal.k.fellows@man.ac.uk>
* generic/tclNamesp.c (NamespaceEnsembleCmd): Reset the result after
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 8b504a8..b08e358 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.93 2005/08/24 17:56:23 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.94 2005/08/26 22:11:16 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -137,6 +137,11 @@ static int WriteBytes _ANSI_ARGS_((Channel *chanPtr,
static int WriteChars _ANSI_ARGS_((Channel *chanPtr,
CONST char *src, int srcLen));
static Tcl_Obj* FixLevelCode _ANSI_ARGS_ ((Tcl_Obj* msg));
+
+
+static void SpliceChannel _ANSI_ARGS_ ((Tcl_Channel chan));
+static void CutChannel _ANSI_ARGS_ ((Tcl_Channel chan));
+
/*
*---------------------------------------------------------------------------
@@ -1205,7 +1210,7 @@ Tcl_CreateChannel(typePtr, chanName, instanceData, mask)
*/
statePtr->nextCSPtr = (ChannelState *) NULL;
- Tcl_SpliceChannel ((Tcl_Channel) chanPtr);
+ SpliceChannel ((Tcl_Channel) chanPtr);
/*
* Install this channel in the first empty standard channel slot, if the
@@ -1268,9 +1273,10 @@ Tcl_StackChannel(interp, typePtr, instanceData, mask, prevChan)
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
Channel *chanPtr, *prevChanPtr;
ChannelState *statePtr;
+ Tcl_DriverThreadActionProc *threadActionProc;
/*
- * Find the given channel in the list of all channels. If we don't find
+ * Find the given channel (prevChan) in the list of all channels. If we don't find
* it, then it was never registered correctly.
*
* This operation should occur at the top of a channel stack.
@@ -1389,6 +1395,22 @@ Tcl_StackChannel(interp, typePtr, instanceData, mask, prevChan)
prevChanPtr->upChanPtr = chanPtr;
statePtr->topChanPtr = chanPtr;
+ /* TIP #218, Channel Thread Actions.
+ *
+ * We call the thread actions for the new channel directly. We _cannot_
+ * use SpliceChannel, because the (thread-)global list of all channels
+ * always contains the _ChannelState_ for a stack of channels, not the
+ * individual channels. And SpliceChannel would not only call the thread
+ * actions, but also add the shared ChannelState to this list a second
+ * time, mangling it.
+ */
+
+ threadActionProc = Tcl_ChannelThreadActionProc (chanPtr->typePtr);
+ if (threadActionProc != NULL) {
+ (*threadActionProc) (chanPtr->instanceData,
+ TCL_CHANNEL_THREAD_INSERT);
+ }
+
return (Tcl_Channel) chanPtr;
}
@@ -1418,6 +1440,7 @@ Tcl_UnstackChannel(interp, chan)
Channel *chanPtr = (Channel *) chan;
ChannelState *statePtr = chanPtr->state;
int result = 0;
+ Tcl_DriverThreadActionProc *threadActionProc;
/*
* This operation should occur at the top of a channel stack.
@@ -1499,6 +1522,23 @@ Tcl_UnstackChannel(interp, chan)
DiscardInputQueued(statePtr, 0);
}
+ /* TIP #218, Channel Thread Actions.
+ *
+ * We call the thread actions for the new channel directly. We
+ * _cannot_ use CutChannel, because the (thread-)global list of all
+ * channels always contains the _ChannelState_ for a stack of
+ * channels, not the individual channels. And SpliceChannel would not
+ * only call the thread actions, but also remove the shared
+ * ChannelState from this list despite there being more channels for
+ * the state which are still active.
+ */
+
+ threadActionProc = Tcl_ChannelThreadActionProc (chanPtr->typePtr);
+ if (threadActionProc != NULL) {
+ (*threadActionProc) (chanPtr->instanceData,
+ TCL_CHANNEL_THREAD_REMOVE);
+ }
+
statePtr->topChanPtr = downChanPtr;
downChanPtr->upChanPtr = (Channel *) NULL;
@@ -1552,6 +1592,12 @@ Tcl_UnstackChannel(interp, chan)
return TCL_ERROR;
}
}
+
+ /* TIP #218, Channel Thread Actions.
+ * Not required in this branch, this is done by Tcl_Close. If
+ * Tcl_Close is not called then the ChannelState is still active in
+ * the thread and no action has to be taken either.
+ */
}
return TCL_OK;
@@ -2321,7 +2367,7 @@ CloseChannel(interp, chanPtr, errorCode)
* Remove this channel from of the list of all channels.
*/
- Tcl_CutChannel((Tcl_Channel) chanPtr);
+ CutChannel((Tcl_Channel) chanPtr);
/*
* Close and free the channel driver state.
@@ -2422,6 +2468,7 @@ CloseChannel(interp, chanPtr, errorCode)
*----------------------------------------------------------------------
*
* Tcl_CutChannel --
+ * CutChannel --
*
* Removes a channel from the (thread-)global list of all channels (in
* that thread). This is actually the statePtr for the stack of channel.
@@ -2442,8 +2489,8 @@ CloseChannel(interp, chanPtr, errorCode)
*----------------------------------------------------------------------
*/
-void
-Tcl_CutChannel(chan)
+static void
+CutChannel(chan)
Tcl_Channel chan; /* The channel being removed. Must
* not be referenced in any
* interpreter. */
@@ -2484,11 +2531,62 @@ Tcl_CutChannel(chan)
TCL_CHANNEL_THREAD_REMOVE);
}
}
+
+void
+Tcl_CutChannel(chan)
+ Tcl_Channel chan; /* The channel being added. Must not
+ * be referenced in any
+ * interpreter. */
+{
+ Channel* chanPtr = ((Channel*) chan)->state->bottomChanPtr;
+ ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
+ ChannelState *prevCSPtr; /* Preceding channel state in list of
+ * all states - used to splice a
+ * channel out of the list on close. */
+ ChannelState *statePtr = chanPtr->state;
+ /* state of the channel stack. */
+ Tcl_DriverThreadActionProc *threadActionProc;
+
+ /*
+ * Remove this channel from of the list of all channels (in the current
+ * thread).
+ */
+
+ if (tsdPtr->firstCSPtr && (statePtr == tsdPtr->firstCSPtr)) {
+ tsdPtr->firstCSPtr = statePtr->nextCSPtr;
+ } else {
+ for (prevCSPtr = tsdPtr->firstCSPtr;
+ prevCSPtr && (prevCSPtr->nextCSPtr != statePtr);
+ prevCSPtr = prevCSPtr->nextCSPtr) {
+ /* Empty loop body. */
+ }
+ if (prevCSPtr == (ChannelState *) NULL) {
+ Tcl_Panic("FlushChannel: damaged channel list");
+ }
+ prevCSPtr->nextCSPtr = statePtr->nextCSPtr;
+ }
+
+ statePtr->nextCSPtr = (ChannelState *) NULL;
+
+ /* TIP #218, Channel Thread Actions
+ * For all transformations and the base channel.
+ */
+
+ while (chanPtr) {
+ threadActionProc = Tcl_ChannelThreadActionProc(chanPtr->typePtr);
+ if (threadActionProc != NULL) {
+ (*threadActionProc) (chanPtr->instanceData,
+ TCL_CHANNEL_THREAD_REMOVE);
+ }
+ chanPtr= chanPtr->upChanPtr;
+ }
+}
/*
*----------------------------------------------------------------------
*
* Tcl_SpliceChannel --
+ * SpliceChannel --
*
* Adds a channel to the (thread-)global list of all channels (in that
* thread). Expects that the field 'nextChanPtr' in the channel is set to
@@ -2510,8 +2608,8 @@ Tcl_CutChannel(chan)
*----------------------------------------------------------------------
*/
-void
-Tcl_SpliceChannel(chan)
+static void
+SpliceChannel(chan)
Tcl_Channel chan; /* The channel being added. Must not
* be referenced in any
* interpreter. */
@@ -2521,7 +2619,7 @@ Tcl_SpliceChannel(chan)
Tcl_DriverThreadActionProc *threadActionProc;
if (statePtr->nextCSPtr != (ChannelState *) NULL) {
- Tcl_Panic("Tcl_SpliceChannel: trying to add channel used in different list");
+ Tcl_Panic("SpliceChannel: trying to add channel used in different list");
}
statePtr->nextCSPtr = tsdPtr->firstCSPtr;
@@ -2542,6 +2640,46 @@ Tcl_SpliceChannel(chan)
TCL_CHANNEL_THREAD_INSERT);
}
}
+
+void
+Tcl_SpliceChannel(chan)
+ Tcl_Channel chan; /* The channel being added. Must not
+ * be referenced in any
+ * interpreter. */
+{
+ Channel *chanPtr = ((Channel*) chan)->state->bottomChanPtr;
+ ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
+ ChannelState *statePtr = chanPtr->state;
+ Tcl_DriverThreadActionProc *threadActionProc;
+
+ if (statePtr->nextCSPtr != (ChannelState *) NULL) {
+ Tcl_Panic("SpliceChannel: trying to add channel used in different list");
+ }
+
+ statePtr->nextCSPtr = tsdPtr->firstCSPtr;
+ tsdPtr->firstCSPtr = statePtr;
+
+ /*
+ * TIP #10. Mark the current thread as the new one managing this channel.
+ * Note: 'Tcl_GetCurrentThread' returns sensible values even for
+ * a non-threaded core.
+ */
+
+ statePtr->managingThread = Tcl_GetCurrentThread();
+
+ /* TIP #218, Channel Thread Actions
+ * For all transformations and the base channel.
+ */
+
+ while (chanPtr) {
+ threadActionProc = Tcl_ChannelThreadActionProc(chanPtr->typePtr);
+ if (threadActionProc != NULL) {
+ (*threadActionProc) (chanPtr->instanceData,
+ TCL_CHANNEL_THREAD_INSERT);
+ }
+ chanPtr= chanPtr->upChanPtr;
+ }
+}
/*
*----------------------------------------------------------------------
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c
index 21487e7..cca3c5f 100644
--- a/generic/tclThreadTest.c
+++ b/generic/tclThreadTest.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclThreadTest.c,v 1.20 2005/08/24 17:56:23 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclThreadTest.c,v 1.21 2005/08/26 22:11:16 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -136,6 +136,12 @@ static int ThreadDeleteEvent _ANSI_ARGS_((Tcl_Event *eventPtr,
ClientData clientData));
static void ThreadExitProc _ANSI_ARGS_((ClientData clientData));
+
+/* Forward declaration of function import from "tclTest.c".
+ */
+
+int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp));
+
/*
*----------------------------------------------------------------------