diff options
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index be2f4c2..97170a9 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.87 2006/08/09 14:16:03 dkf Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.88 2006/10/20 14:04:00 dkf Exp $ */ #include "tclInt.h" @@ -357,17 +357,17 @@ Tcl_InfoObjCmd(clientData, interp, objc, objv) Tcl_Obj *CONST objv[]; /* Argument objects. */ { static CONST char *subCmds[] = { - "args", "body", "cmdcount", "commands", + "args", "body", "class", "cmdcount", "commands", "complete", "default", "exists", "functions", "globals", - "hostname", "level", "library", "loaded", - "locals", "nameofexecutable", "patchlevel", "procs", + "hostname", "level", "library", "loaded", "locals", + "nameofexecutable", "object", "patchlevel", "procs", "script", "sharedlibextension", "tclversion", "vars", (char *) NULL}; enum ISubCmdIdx { - IArgsIdx, IBodyIdx, ICmdCountIdx, ICommandsIdx, + IArgsIdx, IBodyIdx, IClassIdx, ICmdCountIdx, ICommandsIdx, ICompleteIdx, IDefaultIdx, IExistsIdx, IFunctionsIdx, IGlobalsIdx, - IHostnameIdx, ILevelIdx, ILibraryIdx, ILoadedIdx, - ILocalsIdx, INameOfExecutableIdx, IPatchLevelIdx, IProcsIdx, + IHostnameIdx, ILevelIdx, ILibraryIdx, ILoadedIdx, ILocalsIdx, + INameOfExecutableIdx, IObjectIdx, IPatchLevelIdx, IProcsIdx, IScriptIdx, ISharedLibExtensionIdx, ITclVersionIdx, IVarsIdx }; int index, result; @@ -390,6 +390,9 @@ Tcl_InfoObjCmd(clientData, interp, objc, objv) case IBodyIdx: result = InfoBodyCmd(clientData, interp, objc, objv); break; + case IClassIdx: + result = TclInfoClassCmd(clientData, interp, objc, objv); + break; case ICmdCountIdx: result = InfoCmdCountCmd(clientData, interp, objc, objv); break; @@ -429,6 +432,9 @@ Tcl_InfoObjCmd(clientData, interp, objc, objv) case INameOfExecutableIdx: result = InfoNameOfExecutableCmd(clientData, interp, objc, objv); break; + case IObjectIdx: + result = TclInfoObjectCmd(clientData, interp, objc, objv); + break; case IPatchLevelIdx: result = InfoPatchLevelCmd(clientData, interp, objc, objv); break; |