diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-13 12:59:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-13 12:59:04 (GMT) |
| commit | 81bf158695e5ecff209636d52392ca7f21675f23 (patch) | |
| tree | 6e35a78f3d83e2cb85b57d1401aaf89989c6ff3d /generic/tcl.h | |
| parent | 2aee97bf214b4578d446e48cc0a67321d06cf62b (diff) | |
| download | tcl-81bf158695e5ecff209636d52392ca7f21675f23.zip tcl-81bf158695e5ecff209636d52392ca7f21675f23.tar.gz tcl-81bf158695e5ecff209636d52392ca7f21675f23.tar.bz2 | |
TIP#143 implementation; still needs docs and more tests...
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index c82a22e..1416b66 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.177 2004/04/25 20:15:57 dgp Exp $ + * RCS: @(#) $Id: tcl.h,v 1.178 2004/05/13 12:59:21 dkf Exp $ */ #ifndef _TCL @@ -2220,6 +2220,24 @@ typedef struct Tcl_Config { } Tcl_Config; +/* + * Flags for TIP#143 limits, detailing which limits are active in an + * interpreter. Used for Tcl_{Add,Remove}LimitHandler type argument. + */ + +#define TCL_LIMIT_COMMANDS 0x01 +#define TCL_LIMIT_TIME 0x02 + +/* + * Structure containing information about a limit handler to be called + * when a command- or time-limit is exceeded by an interpreter. + */ + +typedef void (Tcl_LimitHandlerProc) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp)); +typedef void (Tcl_LimitHandlerDeleteProc) _ANSI_ARGS_((ClientData clientData)); + + #ifndef TCL_NO_DEPRECATED /* |