summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-03-02 14:54:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-03-02 14:54:51 (GMT)
commit4467285fb08946a5d7d87acf3466e92200e15e07 (patch)
tree1e524cce3bffcd895788621704c6f5c8d566d1df /generic/tclCmdIL.c
parentb0615f167d0f06e66c3020b41c37a7962b9dcfc4 (diff)
downloadtcl-4467285fb08946a5d7d87acf3466e92200e15e07.zip
tcl-4467285fb08946a5d7d87acf3466e92200e15e07.tar.gz
tcl-4467285fb08946a5d7d87acf3466e92200e15e07.tar.bz2
* generic/tclCmdIL.c (Info*Cmd): Code simplifications and
optimizations.
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c48
1 files changed, 20 insertions, 28 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index b3c2c2f..9464151 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.102 2007/03/01 22:45:46 dgp Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.103 2007/03/02 14:54:52 dgp Exp $
*/
#include "tclInt.h"
@@ -946,12 +946,8 @@ InfoCompleteCmd(
return TCL_ERROR;
}
- if (TclObjCommandComplete(objv[2])) {
- Tcl_SetObjResult(interp, Tcl_NewIntObj(1));
- } else {
- Tcl_SetObjResult(interp, Tcl_NewIntObj(0));
- }
-
+ Tcl_SetObjResult(interp, Tcl_NewBooleanObj(
+ TclObjCommandComplete(objv[2])));
return TCL_OK;
}
@@ -1074,11 +1070,9 @@ InfoExistsCmd(
varName = TclGetString(objv[2]);
varPtr = TclVarTraceExists(interp, varName);
- if ((varPtr != NULL) && !TclIsVarUndefined(varPtr)) {
- Tcl_SetObjResult(interp, Tcl_NewIntObj(1));
- } else {
- Tcl_SetObjResult(interp, Tcl_NewIntObj(0));
- }
+
+ Tcl_SetObjResult(interp, Tcl_NewBooleanObj(
+ ((varPtr != NULL) && !TclIsVarUndefined(varPtr))));
return TCL_OK;
}
@@ -1383,7 +1377,6 @@ InfoFunctionsCmd(
Tcl_Obj *CONST objv[]) /* Argument objects. */
{
char *pattern;
- Tcl_Obj *listPtr;
if (objc == 2) {
pattern = NULL;
@@ -1394,11 +1387,7 @@ InfoFunctionsCmd(
return TCL_ERROR;
}
- listPtr = Tcl_ListMathFuncs(interp, pattern);
- if (listPtr == NULL) {
- return TCL_ERROR;
- }
- Tcl_SetObjResult(interp, listPtr);
+ Tcl_SetObjResult(interp, Tcl_ListMathFuncs(interp, pattern));
return TCL_OK;
}
@@ -1561,14 +1550,15 @@ InfoLevelCmd(
Tcl_Obj *CONST objv[]) /* Argument objects. */
{
Interp *iPtr = (Interp *) interp;
- int level;
- CallFrame *framePtr, *rootFramePtr = iPtr->rootFramePtr;
- Tcl_Obj *listPtr;
if (objc == 2) { /* just "info level" */
Tcl_SetObjResult(interp, Tcl_NewIntObj(iPtr->varFramePtr->level));
return TCL_OK;
- } else if (objc == 3) {
+ }
+ if (objc == 3) {
+ int level;
+ CallFrame *framePtr, *rootFramePtr = iPtr->rootFramePtr;
+
if (Tcl_GetIntFromObj(interp, objv[2], &level) != TCL_OK) {
return TCL_ERROR;
}
@@ -1591,8 +1581,8 @@ InfoLevelCmd(
goto levelError;
}
- listPtr = Tcl_NewListObj(framePtr->objc, framePtr->objv);
- Tcl_SetObjResult(interp, listPtr);
+ Tcl_SetObjResult(interp,
+ Tcl_NewListObj(framePtr->objc, framePtr->objv));
return TCL_OK;
}
@@ -3118,7 +3108,8 @@ Tcl_LrangeObjCmd(
}
Tcl_ListObjGetElements(NULL, listPtr, &listLen, &elemPtrs);
- result = TclGetIntForIndex(interp, objv[2], /*endValue*/ listLen - 1, &first);
+ result = TclGetIntForIndex(interp, objv[2], /*endValue*/ listLen - 1,
+ &first);
if (result == TCL_OK) {
int last;
@@ -3126,7 +3117,8 @@ Tcl_LrangeObjCmd(
first = 0;
}
- result = TclGetIntForIndex(interp, objv[3], /*endValue*/ listLen - 1, &last);
+ result = TclGetIntForIndex(interp, objv[3], /*endValue*/ listLen - 1,
+ &last);
if (result == TCL_OK) {
if (last >= listLen) {
last = (listLen - 1);
@@ -3339,9 +3331,9 @@ Tcl_LreplaceObjCmd(
/*
*----------------------------------------------------------------------
*
- * Tcl_LsearchObjCmd --
+ * Tcl_LreverseObjCmd --
*
- * This procedure is invoked to process the "lsearch" Tcl command. See
+ * This procedure is invoked to process the "lreverse" Tcl command. See
* the user documentation for details on what it does.
*
* Results: