diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-06-06 23:45:37 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-06-06 23:45:37 (GMT) |
| commit | e9429305435f6edac06ba3dc914e5658705e160a (patch) | |
| tree | 374c84c5df35cf33d6fe30319969eb01c100c078 /generic/tcl.decls | |
| parent | 6580b2352407aa1b0f314552899f301558bc3113 (diff) | |
| download | tcl-e9429305435f6edac06ba3dc914e5658705e160a.zip tcl-e9429305435f6edac06ba3dc914e5658705e160a.tar.gz tcl-e9429305435f6edac06ba3dc914e5658705e160a.tar.bz2 | |
TIP#208 implementation
It's crude (especially in the tests and docs department) and incomplete (no truncation on non-POSIX platforms).
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 82219aa..6dd904e 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -11,7 +11,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.111 2005/05/10 18:34:04 kennykb Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.112 2005/06/06 23:45:42 dkf Exp $ library tcl @@ -2004,6 +2004,15 @@ declare 558 generic { int Tcl_GetBignumFromObj( Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value ) } +# TIP #208: +declare 559 generic { + int Tcl_TruncateChannel(Tcl_Channel chan, Tcl_WideInt length) +} +declare 560 generic { + Tcl_DriverTruncateProc *Tcl_ChannelTruncateProc( + Tcl_ChannelType *chanTypePtr) +} + ############################################################################## # Define the platform specific public Tcl interface. These functions are |