diff options
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index c17195f..9e6e3b4 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -7,10 +7,11 @@ # # # Copyright (c) 1998-1999 by Scriptics Corporation. +# Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved. # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.81 2002/02/08 02:52:54 dgp Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.82 2002/02/10 20:36:33 kennykb Exp $ library tcl @@ -801,7 +802,7 @@ declare 225 generic { } declare 226 generic { int Tcl_SetCommandInfo(Tcl_Interp *interp, CONST char *cmdName, \ - Tcl_CmdInfo *infoPtr) + CONST Tcl_CmdInfo *infoPtr) } declare 227 generic { void Tcl_SetErrno(int err) @@ -1700,6 +1701,25 @@ declare 482 generic { void Tcl_GetTime( Tcl_Time* timeBuf ) } +# New exports due to TIP#32 + +declare 483 generic { + Tcl_Trace Tcl_CreateObjTrace( Tcl_Interp* interp, + int level, + int flags, + Tcl_CmdObjTraceProc* objProc, + ClientData clientData, + Tcl_CmdObjTraceDeleteProc* delProc ) +} +declare 484 generic { + int Tcl_GetCommandInfoFromToken( Tcl_Command token, + Tcl_CmdInfo* infoPtr ) +} +declare 485 generic { + int Tcl_SetCommandInfoFromToken( Tcl_Command token, + CONST Tcl_CmdInfo* infoPtr ) +} + ############################################################################## # Define the platform specific public Tcl interface. These functions are |