summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-06-12 12:33:57 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-06-12 12:33:57 (GMT)
commita416ef038cf5bc87716558a4dce7b163ebcd6697 (patch)
tree0d74aadaf31ab1b820eea1376209fdbff67e6361 /generic/tclBasic.c
parentbf56a09707e69cf1c2ca8a5cec6617c0dca24d57 (diff)
downloadtcl-a416ef038cf5bc87716558a4dce7b163ebcd6697.zip
tcl-a416ef038cf5bc87716558a4dce7b163ebcd6697.tar.gz
tcl-a416ef038cf5bc87716558a4dce7b163ebcd6697.tar.bz2
Convert [info] into an ensemble command.
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c10
1 files changed, 6 insertions, 4 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 8be21cc..69ddffb 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.249 2007/06/10 23:15:05 msofer Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.250 2007/06/12 12:33:59 dkf Exp $
*/
#include "tclInt.h"
@@ -150,7 +150,6 @@ static const CmdInfo builtInCmds[] = {
{"global", Tcl_GlobalObjCmd, TclCompileGlobalCmd, 1},
{"if", Tcl_IfObjCmd, TclCompileIfCmd, 1},
{"incr", Tcl_IncrObjCmd, TclCompileIncrCmd, 1},
- {"info", Tcl_InfoObjCmd, NULL, 1},
{"join", Tcl_JoinObjCmd, NULL, 1},
{"lappend", Tcl_LappendObjCmd, TclCompileLappendCmd, 1},
{"lassign", Tcl_LassignObjCmd, TclCompileLassignCmd, 1},
@@ -581,8 +580,9 @@ Tcl_CreateInterp(void)
}
/*
- * Register clock and chan subcommands. These *do* go through
- * Tcl_CreateObjCommand, since they aren't in the global namespace.
+ * Register "clock", "chan" and "info" subcommands. These *do* go through
+ * Tcl_CreateObjCommand, since they aren't in the global namespace and
+ * involve ensembles.
*/
TclClockInit(interp);
@@ -594,6 +594,8 @@ Tcl_CreateInterp(void)
NULL, NULL);
}
+ TclInitInfoCmd(interp);
+
/* TIP #208 */
Tcl_CreateObjCommand(interp, "::tcl::chan::Truncate",
TclChanTruncateObjCmd, NULL, NULL);