diff options
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 40 |
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", |