summaryrefslogtreecommitdiffstats
path: root/generic/tclIndexObj.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclIndexObj.c')
-rw-r--r--generic/tclIndexObj.c146
1 files changed, 73 insertions, 73 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c
index 4810933..ce5ba81 100644
--- a/generic/tclIndexObj.c
+++ b/generic/tclIndexObj.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIndexObj.c,v 1.41 2008/10/03 00:07:55 dkf Exp $
+ * RCS: @(#) $Id: tclIndexObj.c,v 1.42 2008/10/03 08:13:14 dkf Exp $
*/
#include "tclInt.h"
@@ -435,7 +435,7 @@ UpdateStringOfIndex(
register char *buf;
register unsigned len;
register const char *indexStr = EXPAND_OF(indexRep);
-
+
len = strlen(indexStr);
buf = (char *) ckalloc(len + 1);
memcpy(buf, indexStr, len+1);
@@ -531,10 +531,10 @@ TclInitPrefixCmd(
/*----------------------------------------------------------------------
*
- * PrefixMatchObjCmd -
+ * PrefixMatchObjCmd --
*
- * This function implements the 'prefix match' Tcl command. Refer
- * to the user documentation for details on what it does.
+ * This function implements the 'prefix match' Tcl command. Refer to the
+ * user documentation for details on what it does.
*
* Results:
* Returns a standard Tcl result.
@@ -547,10 +547,10 @@ TclInitPrefixCmd(
static int
PrefixMatchObjCmd(
- ClientData clientData, /* Not used. */
- Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
- Tcl_Obj *const objv[]) /* Argument objects. */
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int objc, /* Number of arguments. */
+ Tcl_Obj *const objv[]) /* Argument objects. */
{
int flags = 0, result, index;
int dummyLength, i, errorLength;
@@ -558,11 +558,11 @@ PrefixMatchObjCmd(
char *message = "option";
Tcl_Obj *tablePtr, *objPtr, *resultPtr;
static const char *matchOptions[] = {
- "-error", "-exact", "-message", (char *) NULL
+ "-error", "-exact", "-message", NULL
};
enum matchOptions {
PRFMATCH_ERROR, PRFMATCH_EXACT, PRFMATCH_MESSAGE
- };
+ };
if (objc < 3) {
Tcl_WrongNumArgs(interp, 1, objv, "?options? table string");
@@ -571,46 +571,47 @@ PrefixMatchObjCmd(
for (i = 1; i < (objc - 2); i++) {
if (Tcl_GetIndexFromObj(interp, objv[i], matchOptions, "option", 0,
- &index) != TCL_OK) {
+ &index) != TCL_OK) {
return TCL_ERROR;
}
switch ((enum matchOptions) index) {
- case PRFMATCH_EXACT:
- flags |= TCL_EXACT;
- break;
- case PRFMATCH_MESSAGE:
- if (i > (objc - 4)) {
- Tcl_AppendResult(interp, "missing message", NULL);
- return TCL_ERROR;
- }
- i++;
- message = Tcl_GetString(objv[i]);
- break;
- case PRFMATCH_ERROR:
- if (i > (objc - 4)) {
- Tcl_AppendResult(interp, "missing error options", NULL);
- return TCL_ERROR;
- }
- i++;
- result = Tcl_ListObjLength(interp, objv[i], &errorLength);
- if (result != TCL_OK) {
- return TCL_ERROR;
- }
- if ((errorLength % 2) != 0) {
- Tcl_AppendResult(interp, "error options must have an even number of elements", NULL);
- return TCL_ERROR;
- }
- errorPtr = objv[i];
- break;
+ case PRFMATCH_EXACT:
+ flags |= TCL_EXACT;
+ break;
+ case PRFMATCH_MESSAGE:
+ if (i > (objc - 4)) {
+ Tcl_AppendResult(interp, "missing message", NULL);
+ return TCL_ERROR;
+ }
+ i++;
+ message = Tcl_GetString(objv[i]);
+ break;
+ case PRFMATCH_ERROR:
+ if (i > (objc - 4)) {
+ Tcl_AppendResult(interp, "missing error options", NULL);
+ return TCL_ERROR;
+ }
+ i++;
+ result = Tcl_ListObjLength(interp, objv[i], &errorLength);
+ if (result != TCL_OK) {
+ return TCL_ERROR;
+ }
+ if ((errorLength % 2) != 0) {
+ Tcl_AppendResult(interp, "error options must have an even"
+ " number of elements", NULL);
+ return TCL_ERROR;
+ }
+ errorPtr = objv[i];
+ break;
}
}
- tablePtr = objv[objc-2];
- objPtr = objv[objc-1];
+ tablePtr = objv[objc - 2];
+ objPtr = objv[objc - 1];
/*
- * Check that table is a valid list first, since we want to handle
- * that error case regardless of level.
+ * Check that table is a valid list first, since we want to handle that
+ * error case regardless of level.
*/
result = Tcl_ListObjLength(interp, tablePtr, &dummyLength);
@@ -626,16 +627,16 @@ PrefixMatchObjCmd(
return TCL_OK;
} else if (errorPtr == NULL) {
return TCL_ERROR;
- } else {
- if (Tcl_IsShared(errorPtr)) {
- errorPtr = Tcl_DuplicateObj(errorPtr);
- }
- Tcl_ListObjAppendElement(interp, errorPtr,
- Tcl_NewStringObj("-code", 5));
- Tcl_ListObjAppendElement(interp, errorPtr, Tcl_NewIntObj(result));
+ }
- return Tcl_SetReturnOptions(interp, errorPtr);
+ if (Tcl_IsShared(errorPtr)) {
+ errorPtr = Tcl_DuplicateObj(errorPtr);
}
+ Tcl_ListObjAppendElement(interp, errorPtr,
+ Tcl_NewStringObj("-code", 5));
+ Tcl_ListObjAppendElement(interp, errorPtr, Tcl_NewIntObj(result));
+
+ return Tcl_SetReturnOptions(interp, errorPtr);
}
result = Tcl_ListObjIndex(interp, tablePtr, index, &resultPtr);
@@ -648,10 +649,10 @@ PrefixMatchObjCmd(
/*----------------------------------------------------------------------
*
- * PrefixAllObjCmd -
+ * PrefixAllObjCmd --
*
- * This function implements the 'prefix all' Tcl command. Refer
- * to the user documentation for details on what it does.
+ * This function implements the 'prefix all' Tcl command. Refer to the
+ * user documentation for details on what it does.
*
* Results:
* Returns a standard Tcl result.
@@ -664,15 +665,14 @@ PrefixMatchObjCmd(
static int
PrefixAllObjCmd(
- ClientData clientData, /* Not used. */
- Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
- Tcl_Obj *const objv[]) /* Argument objects. */
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int objc, /* Number of arguments. */
+ Tcl_Obj *const objv[]) /* Argument objects. */
{
int tableObjc, result, t, length, elemLength;
char *string, *elemString;
- Tcl_Obj **tableObjv;
- Tcl_Obj *resultPtr;
+ Tcl_Obj **tableObjv, *resultPtr;
if (objc != 3) {
Tcl_WrongNumArgs(interp, 1, objv, "table string");
@@ -706,10 +706,10 @@ PrefixAllObjCmd(
/*----------------------------------------------------------------------
*
- * PrefixLongestObjCmd -
+ * PrefixLongestObjCmd --
*
- * This function implements the 'prefix longest' Tcl command. Refer
- * to the user documentation for details on what it does.
+ * This function implements the 'prefix longest' Tcl command. Refer to
+ * the user documentation for details on what it does.
*
* Results:
* Returns a standard Tcl result.
@@ -722,10 +722,10 @@ PrefixAllObjCmd(
static int
PrefixLongestObjCmd(
- ClientData clientData, /* Not used. */
- Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
- Tcl_Obj *const objv[]) /* Argument objects. */
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int objc, /* Number of arguments. */
+ Tcl_Obj *const objv[]) /* Argument objects. */
{
int tableObjc, result, i, t, length, elemLength, resultLength;
char *string, *elemString, *resultString;
@@ -749,8 +749,8 @@ PrefixLongestObjCmd(
elemString = Tcl_GetStringFromObj(tableObjv[t], &elemLength);
/*
- * First check if the prefix string matches the element.
- * A prefix cannot match if it is longest.
+ * First check if the prefix string matches the element. A prefix
+ * cannot match if it is longest.
*/
if ((length > elemLength) ||
@@ -761,7 +761,7 @@ PrefixLongestObjCmd(
if (resultString == NULL) {
/*
* If this is the first match, the longest common substring this
- * far is the complete string. The result is part of this string
+ * far is the complete string. The result is part of this string
* so we only need to adjust the length later.
*/
@@ -769,8 +769,7 @@ PrefixLongestObjCmd(
resultLength = elemLength;
} else {
/*
- * Longest common substring cannot be longer than shortest
- * string.
+ * Longest common substring cannot be longer than shortest string.
*/
if (elemLength < resultLength) {
@@ -795,7 +794,8 @@ PrefixLongestObjCmd(
}
}
if (resultLength > 0) {
- Tcl_SetObjResult(interp, Tcl_NewStringObj(resultString, resultLength));
+ Tcl_SetObjResult(interp,
+ Tcl_NewStringObj(resultString, resultLength));
}
return TCL_OK;
}