summaryrefslogtreecommitdiffstats
path: root/generic/tclIOCmd.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclIOCmd.c')
-rw-r--r--generic/tclIOCmd.c40
1 files changed, 20 insertions, 20 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c
index 13a6853..36ac04b 100644
--- a/generic/tclIOCmd.c
+++ b/generic/tclIOCmd.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIOCmd.c,v 1.64 2009/04/27 09:41:49 nijtmans Exp $
+ * RCS: @(#) $Id: tclIOCmd.c,v 1.65 2009/11/18 21:59:50 nijtmans Exp $
*/
#include "tclInt.h"
@@ -1922,25 +1922,25 @@ TclInitChanCmd(
* function at the moment.
*/
static const EnsembleImplMap initMap[] = {
- {"blocked", Tcl_FblockedObjCmd},
- {"close", Tcl_CloseObjCmd},
- {"copy", Tcl_FcopyObjCmd},
- {"create", TclChanCreateObjCmd}, /* TIP #219 */
- {"eof", Tcl_EofObjCmd},
- {"event", Tcl_FileEventObjCmd},
- {"flush", Tcl_FlushObjCmd},
- {"gets", Tcl_GetsObjCmd},
- {"pending", ChanPendingObjCmd}, /* TIP #287 */
- {"pop", TclChanPopObjCmd}, /* TIP #230 */
- {"postevent", TclChanPostEventObjCmd}, /* TIP #219 */
- {"push", TclChanPushObjCmd}, /* TIP #230 */
- {"puts", Tcl_PutsObjCmd},
- {"read", Tcl_ReadObjCmd},
- {"seek", Tcl_SeekObjCmd},
- {"pipe", ChanPipeObjCmd}, /* TIP #304 */
- {"tell", Tcl_TellObjCmd},
- {"truncate", ChanTruncateObjCmd}, /* TIP #208 */
- {NULL}
+ {"blocked", Tcl_FblockedObjCmd, NULL, NULL, NULL},
+ {"close", Tcl_CloseObjCmd, NULL, NULL, NULL},
+ {"copy", Tcl_FcopyObjCmd, NULL, NULL, NULL},
+ {"create", TclChanCreateObjCmd, NULL, NULL, NULL}, /* TIP #219 */
+ {"eof", Tcl_EofObjCmd, NULL, NULL, NULL},
+ {"event", Tcl_FileEventObjCmd, NULL, NULL, NULL},
+ {"flush", Tcl_FlushObjCmd, NULL, NULL, NULL},
+ {"gets", Tcl_GetsObjCmd, NULL, NULL, NULL},
+ {"pending", ChanPendingObjCmd, NULL, NULL, NULL}, /* TIP #287 */
+ {"pop", TclChanPopObjCmd, NULL, NULL, NULL}, /* TIP #230 */
+ {"postevent", TclChanPostEventObjCmd, NULL, NULL, NULL}, /* TIP #219 */
+ {"push", TclChanPushObjCmd, NULL, NULL, NULL}, /* TIP #230 */
+ {"puts", Tcl_PutsObjCmd, NULL, NULL, NULL},
+ {"read", Tcl_ReadObjCmd, NULL, NULL, NULL},
+ {"seek", Tcl_SeekObjCmd, NULL, NULL, NULL},
+ {"pipe", ChanPipeObjCmd, NULL, NULL, NULL}, /* TIP #304 */
+ {"tell", Tcl_TellObjCmd, NULL, NULL, NULL},
+ {"truncate", ChanTruncateObjCmd, NULL, NULL, NULL}, /* TIP #208 */
+ {NULL, NULL, NULL, NULL, NULL}
};
static const char *const extras[] = {
"configure", "::fconfigure",