diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-09-28 22:17:36 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-09-28 22:17:36 (GMT) |
| commit | d41bad2545ee171add61111b71b9d8c5c3e89173 (patch) | |
| tree | 33b115c93550ac4c16da41b57aba376b6af847bd /generic/tcl.decls | |
| parent | 58acf122398c693f3a99b458711b071301e10670 (diff) | |
| download | tcl-d41bad2545ee171add61111b71b9d8c5c3e89173.zip tcl-d41bad2545ee171add61111b71b9d8c5c3e89173.tar.gz tcl-d41bad2545ee171add61111b71b9d8c5c3e89173.tar.bz2 | |
Implement TIP 314. [Patch 1901783]
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 |