diff options
author | dkf <dkf@noemail.net> | 2008-09-28 22:17:36 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2008-09-28 22:17:36 (GMT) |
commit | 67c522f69a744333457b8c3deaa994d65556db1d (patch) | |
tree | 33b115c93550ac4c16da41b57aba376b6af847bd /generic/tcl.decls | |
parent | 181f8b872fa553aea0f792fb2f7fed70a05ba9d7 (diff) | |
download | tcl-67c522f69a744333457b8c3deaa994d65556db1d.zip tcl-67c522f69a744333457b8c3deaa994d65556db1d.tar.gz tcl-67c522f69a744333457b8c3deaa994d65556db1d.tar.bz2 |
Implement TIP 314. [Patch 1901783]
FossilOrigin-Name: 9834451d3acb1d6549f18054b459384588f0718d
Diffstat (limited to 'generic/tcl.decls')
-rw-r--r-- | generic/tcl.decls | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 0d8fea6..8a65b76 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -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: tcl.decls,v 1.144 2008/09/24 09:41:13 dkf Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.145 2008/09/28 22:17:39 dkf Exp $ library tcl @@ -2187,6 +2187,17 @@ declare 601 generic { unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr) } +# TIP#314 (ensembles with parameters) +declare 602 generic { + int Tcl_SetEnsembleParameterList(Tcl_Interp *interp, Tcl_Command token, + Tcl_Obj *paramList) +} +declare 603 generic { + int Tcl_GetEnsembleParameterList(Tcl_Interp *interp, Tcl_Command token, + Tcl_Obj **paramListPtr) +} + + ############################################################################## # Define the platform specific public Tcl interface. These functions are |