diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2004-12-16 19:36:14 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2004-12-16 19:36:14 (GMT) |
| commit | 1c014c178698e5d7f80b400549ffd6f880b7f1fd (patch) | |
| tree | de437c399d4304e768cda1abe7dada3b80e3c57f /generic/tclInt.h | |
| parent | 7cc2e79cf4a710fb1ed9a4540afca77935691d93 (diff) | |
| download | tcl-1c014c178698e5d7f80b400549ffd6f880b7f1fd.zip tcl-1c014c178698e5d7f80b400549ffd6f880b7f1fd.tar.gz tcl-1c014c178698e5d7f80b400549ffd6f880b7f1fd.tar.bz2 | |
Upgrade the capabilities of time limits by allowing them to fire in the midst
of the processing of the event loop or during a blocking [after]. [Bug 1085023]
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 38be9d5..5f10b46 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.207 2004/12/14 21:11:46 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.208 2004/12/16 19:36:34 dkf Exp $ */ #ifndef _TCLINT @@ -1408,6 +1408,8 @@ typedef struct Interp { * is reached. */ int timeGranularity; /* Mod factor used to determine how often * to evaluate the limit check. */ + Tcl_TimerToken timeEvent; /* Handle for a timer callback that will + * occur when the time-limit is exceeded. */ Tcl_HashTable callbacks; /* Mapping from (interp,type) pair to data * used to install a limit handler callback @@ -2114,6 +2116,9 @@ MODULE_SCOPE int Tcl_ConcatObjCmd _ANSI_ARGS_((ClientData clientData, MODULE_SCOPE int Tcl_ContinueObjCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); +MODULE_SCOPE Tcl_TimerToken TclCreateAbsoluteTimerHandler _ANSI_ARGS_(( + Tcl_Time *timePtr, Tcl_TimerProc *proc, + ClientData clientData)); MODULE_SCOPE int TclDefaultBgErrorHandlerObjCmd _ANSI_ARGS_(( ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); |