summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-06-07 20:37:26 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-06-07 20:37:26 (GMT)
commitfd60ef760f6d2e1800d6ea0b34d2d8e238cee1d2 (patch)
treee639a60fa99d0af99c8c9f30f63cb2a7e3b5e79b /generic/tclIO.c
parent39afde6df737407f9cf37c924c6f7cd43bf6ad32 (diff)
downloadtcl-fd60ef760f6d2e1800d6ea0b34d2d8e238cee1d2.zip
tcl-fd60ef760f6d2e1800d6ea0b34d2d8e238cee1d2.tar.gz
tcl-fd60ef760f6d2e1800d6ea0b34d2d8e238cee1d2.tar.bz2
Stick to TCL_CHANNEL_VERSION_4; it's all in alpha anyway!
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c21
1 files changed, 19 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index cea38a2..0aeb6b8 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIO.c,v 1.88 2005/06/07 02:10:21 dgp Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.89 2005/06/07 20:37:40 dkf Exp $
*/
#include "tclInt.h"
@@ -9438,11 +9438,28 @@ Tcl_ChannelThreadActionProc(chanTypePtr)
}
}
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_ChannelTruncateProc --
+ *
+ * TIP #208 (subsection relating to truncation, based on TIP #206).
+ * Return the Tcl_DriverTruncateProc of the channel type.
+ *
+ * Results:
+ * A pointer to the proc.
+ *
+ * Side effects:
+ * None.
+ *
+ *----------------------------------------------------------------------
+ */
+
Tcl_DriverTruncateProc *
Tcl_ChannelTruncateProc(chanTypePtr)
Tcl_ChannelType *chanTypePtr; /* Pointer to channel type. */
{
- if (HaveVersion(chanTypePtr, TCL_CHANNEL_VERSION_5)) {
+ if (HaveVersion(chanTypePtr, TCL_CHANNEL_VERSION_4)) {
return chanTypePtr->truncateProc;
} else {
return NULL;