summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tkText.c161
-rw-r--r--generic/tkTextImage.c46
-rw-r--r--generic/tkTextMark.c7
3 files changed, 128 insertions, 86 deletions
diff --git a/generic/tkText.c b/generic/tkText.c
index fbc7083..377217f 100644
--- a/generic/tkText.c
+++ b/generic/tkText.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkText.c,v 1.34 2003/05/19 13:04:23 vincentdarley Exp $
+ * RCS: @(#) $Id: tkText.c,v 1.35 2003/05/19 14:37:20 dkf Exp $
*/
#include "default.h"
@@ -177,6 +177,8 @@ static Tk_OptionSpec optionSpecs[] = {
* keep Tk as modular as possible.
*/
+struct SearchSpec; /* Forward declaration. */
+
typedef ClientData SearchAddLineProc _ANSI_ARGS_((int lineNum,
struct SearchSpec *searchSpecPtr,
Tcl_Obj *theLine, int *lenPtr));
@@ -2103,7 +2105,17 @@ TextSearchCmd(textPtr, interp, objc, objv)
{
int i, argsLeft, code;
SearchSpec searchSpec;
-
+
+ static CONST char *switchStrings[] = {
+ "--", "-all", "-backward", "-count", "-elide", "-exact",
+ "-forward", "-hidden", "-nocase", "-nolinestop", "-regexp", NULL
+ };
+ enum SearchSwitches {
+ SEARCH_END, SEARCH_ALL, SEARCH_BACK, SEARCH_COUNT, SEARCH_ELIDE,
+ SEARCH_EXACT, SEARCH_FWD, SEARCH_HIDDEN, SEARCH_NOCASE,
+ SEARCH_NOLINE, SEARCH_REGEXP
+ };
+
/*
* Set up the search specification, including
* the last 4 fields which are text widget specific
@@ -2128,29 +2140,36 @@ TextSearchCmd(textPtr, interp, objc, objv)
*/
for (i = 2; i < objc; i++) {
- int length;
- char c;
-
- CONST char *arg = Tcl_GetStringFromObj(objv[i],&length);
-
- if (arg[0] != '-') {
+ int index;
+ if (Tcl_GetString(objv[i])[0] != '-') {
break;
}
- if (length < 2) {
- badSwitch:
- Tcl_AppendResult(interp, "bad switch \"", arg,
+
+ if (Tcl_GetIndexFromObj(interp, objv[i], switchStrings, "switch", 0,
+ &index) != TCL_OK) {
+ /*
+ * Hide the -hidden option
+ */
+ Tcl_ResetResult(interp);
+ Tcl_AppendResult(interp, "bad switch \"", objv[i],
"\": must be --, -all, -backward, -count, ",
"-elide, -exact, -forward, -nocase, ",
"-nolinestop, or -regexp", (char *) NULL);
return TCL_ERROR;
}
- c = arg[1];
- if ((c == 'a') && (strncmp(arg, "-all", length) == 0)) {
+
+ switch ((enum SearchSwitches) index) {
+ case SEARCH_END:
+ i++;
+ goto endOfSwitchProcessing;
+ case SEARCH_ALL:
searchSpec.all = 1;
- } else if ((c == 'b') && (strncmp(arg, "-backwards", length) == 0)) {
+ break;
+ case SEARCH_BACK:
searchSpec.backwards = 1;
- } else if ((c == 'c') && (strncmp(arg, "-count", length) == 0)) {
- if (i >= (objc-1)) {
+ break;
+ case SEARCH_COUNT:
+ if (i >= objc-1) {
Tcl_SetResult(interp, "no value given for \"-count\" option",
TCL_STATIC);
return TCL_ERROR;
@@ -2161,35 +2180,32 @@ TextSearchCmd(textPtr, interp, objc, objv)
* this procedure, which is fair.
*/
searchSpec.varPtr = objv[i];
- } else if ((c == 'e') && (length > 2)
- && (strncmp(arg, "-exact", length) == 0)) {
- searchSpec.exact = 1;
- } else if ((c == 'e') && (length > 2)
- && (strncmp(arg, "-elide", length) == 0)) {
- searchSpec.searchElide = 1;
- } else if ((c == 'h') && (strncmp(arg, "-hidden", length) == 0)) {
- /*
- * -hidden is kept around for backwards compatibility with
- * the dash patch, but -elide is the official option
- */
+ break;
+ case SEARCH_ELIDE:
+ case SEARCH_HIDDEN:
searchSpec.searchElide = 1;
- } else if ((c == 'f') && (strncmp(arg, "-forwards", length) == 0)) {
- searchSpec.backwards = 0;
- } else if ((c == 'n') && (length > 3)
- && (strncmp(arg, "-nocase", length) == 0)) {
+ break;
+ case SEARCH_EXACT:
+ searchSpec.exact = 1;
+ break;
+ case SEARCH_FWD:
+ searchSpec.backwards = 1;
+ break;
+ case SEARCH_NOCASE:
searchSpec.noCase = 1;
- } else if ((c == 'n') && (length > 3)
- && (strncmp(arg, "-nolinestop", length) == 0)) {
+ break;
+ case SEARCH_NOLINE:
searchSpec.noLineStop = 1;
- } else if ((c == 'r') && (strncmp(arg, "-regexp", length) == 0)) {
+ break;
+ case SEARCH_REGEXP:
searchSpec.exact = 0;
- } else if ((c == '-') && (strncmp(arg, "--", length) == 0)) {
- i++;
break;
- } else {
- goto badSwitch;
+ default:
+ panic("unexpected switch fallthrough");
}
}
+ endOfSwitchProcessing:
+
argsLeft = objc - (i+2);
if ((argsLeft != 0) && (argsLeft != 1)) {
Tcl_WrongNumArgs(interp, 2, objv,
@@ -2750,42 +2766,60 @@ TextDumpCmd(textPtr, interp, objc, objv)
#define TK_DUMP_IMG 0x10
#define TK_DUMP_ALL (TK_DUMP_TEXT|TK_DUMP_MARK|TK_DUMP_TAG| \
TK_DUMP_WIN|TK_DUMP_IMG)
+ static CONST char *optStrings[] = {
+ "-all", "-command", "-image", "-mark", "-tag", "-text", "-window",
+ NULL
+ };
+ enum opts {
+ DUMP_ALL, DUMP_CMD, DUMP_IMG, DUMP_MARK, DUMP_TAG, DUMP_TXT, DUMP_WIN
+ };
for (arg=2 ; arg < objc ; arg++) {
- int len;
- char *str = Tcl_GetStringFromObj(objv[arg],&len);
- if (str[0] != '-') {
+ int index;
+ if (Tcl_GetString(objv[arg])[0] != '-') {
break;
}
- if (strncmp("-all", str, len) == 0) {
+ if (Tcl_GetIndexFromObj(interp, objv[arg], optStrings, "option", 0,
+ &index) != TCL_OK) {
+ return TCL_ERROR;
+ }
+ switch ((enum opts) index) {
+ case DUMP_ALL:
what = TK_DUMP_ALL;
- } else if (strncmp("-text", str, len) == 0) {
+ break;
+ case DUMP_TXT:
what |= TK_DUMP_TEXT;
- } else if (strncmp("-tag", str, len) == 0) {
+ break;
+ case DUMP_TAG:
what |= TK_DUMP_TAG;
- } else if (strncmp("-mark", str, len) == 0) {
+ break;
+ case DUMP_MARK:
what |= TK_DUMP_MARK;
- } else if (strncmp("-image", str, len) == 0) {
+ break;
+ case DUMP_IMG:
what |= TK_DUMP_IMG;
- } else if (strncmp("-window", str, len) == 0) {
+ break;
+ case DUMP_WIN:
what |= TK_DUMP_WIN;
- } else if (strncmp("-command", str, len) == 0) {
+ break;
+ case DUMP_CMD:
arg++;
if (arg >= objc) {
Tcl_AppendResult(interp, "Usage: ", Tcl_GetString(objv[0]),
- " dump ?-all -image -text -mark -tag -window? ?-command script? index ?index2?", NULL);
+ " dump ?-all -image -text -mark -tag -window? ",
+ "?-command script? index ?index2?", NULL);
return TCL_ERROR;
}
command = Tcl_GetString(objv[arg]);
- } else {
- Tcl_AppendResult(interp, "Usage: ", Tcl_GetString(objv[0]),
- " dump ?-all -image -text -mark -tag -window? ?-command script? index ?index2?", NULL);
- return TCL_ERROR;
+ break;
+ default:
+ panic("unexpected switch fallthrough");
}
}
- if (arg >= objc) {
+ if (arg >= objc || arg+2 < objc) {
Tcl_AppendResult(interp, "Usage: ", Tcl_GetString(objv[0]),
- " dump ?-all -image -text -mark -tag -window? ?-command script? index ?index2?", NULL);
+ " dump ?-all -image -text -mark -tag -window? ",
+ "?-command script? index ?index2?", NULL);
return TCL_ERROR;
}
if (what == 0) {
@@ -2800,11 +2834,13 @@ TextDumpCmd(textPtr, interp, objc, objv)
if (objc == arg) {
TkTextIndexForwChars(&index1, 1, &index2);
} else {
+ int length;
+ char *str;
if (TkTextGetObjIndex(interp, textPtr, objv[arg], &index2) != TCL_OK) {
return TCL_ERROR;
}
- if (strncmp(Tcl_GetString(objv[arg]), "end",
- strlen(Tcl_GetString(objv[arg]))) == 0) {
+ str = Tcl_GetStringFromObj(objv[arg], &length);
+ if (strncmp(str, "end", (unsigned)length) == 0) {
atEnd = 1;
}
}
@@ -2813,7 +2849,7 @@ TextDumpCmd(textPtr, interp, objc, objv)
}
if (index1.linePtr == index2.linePtr) {
DumpLine(interp, textPtr, what, index1.linePtr,
- index1.byteIndex, index2.byteIndex, lineno, command);
+ index1.byteIndex, index2.byteIndex, lineno, command);
} else {
DumpLine(interp, textPtr, what, index1.linePtr,
index1.byteIndex, 32000000, lineno, command);
@@ -2835,7 +2871,6 @@ TextDumpCmd(textPtr, interp, objc, objv)
if (atEnd) {
DumpLine(interp, textPtr, what & ~TK_DUMP_TEXT, index2.linePtr,
0, 1, lineno, command);
-
}
return TCL_OK;
}
@@ -3583,7 +3618,7 @@ SearchCore(interp, searchSpecPtr, patObj)
if (firstNewLine == -1) break;
if (firstNewLine >= (lastOffset - firstOffset)) break;
p = startOfLine + lastOffset - firstNewLine - 1;
- if (strncmp(p, pattern, firstNewLine + 1)) {
+ if (strncmp(p, pattern, ((unsigned)firstNewLine) + 1)) {
break;
} else {
int extraLines = 1;
@@ -3628,13 +3663,15 @@ SearchCore(interp, searchSpecPtr, patObj)
* we make a final test and break
* whatever the result
*/
- if (strncmp(p, pattern, matchLength)) {
+ if (strncmp(p, pattern,
+ (unsigned)matchLength)) {
p = NULL;
}
break;
} else {
/* Not enough text yet, but check the prefix */
- if (strncmp(p, pattern, (len - skipFirst))) {
+ if (strncmp(p, pattern,
+ (unsigned)(len - skipFirst))) {
p = NULL;
break;
}
diff --git a/generic/tkTextImage.c b/generic/tkTextImage.c
index 7c69f48..a7ae581 100644
--- a/generic/tkTextImage.c
+++ b/generic/tkTextImage.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkTextImage.c,v 1.6 2003/05/19 13:04:23 vincentdarley Exp $
+ * RCS: @(#) $Id: tkTextImage.c,v 1.7 2003/05/19 14:37:20 dkf Exp $
*/
#include "tk.h"
@@ -136,19 +136,26 @@ TkTextImageCmd(textPtr, interp, objc, objv)
* parsed this command enough to know that
* objv[1] is "image". */
{
- int length;
+ int idx;
register TkTextSegment *eiPtr;
- CONST char *str;
+ TkTextIndex index;
+ static CONST char *optionStrings[] = {
+ "cget", "configure", "create", "names", NULL
+ };
+ enum opts {
+ CMD_CGET, CMD_CONF, CMD_CREATE, CMD_NAMES
+ };
if (objc < 3) {
Tcl_WrongNumArgs(interp, 2, objv, "option ?arg arg ...?");
return TCL_ERROR;
}
- str = Tcl_GetStringFromObj(objv[2],&length);
- if ((strncmp(str, "cget", length) == 0) && (length >= 2)) {
- TkTextIndex index;
- TkTextSegment *eiPtr;
-
+ if (Tcl_GetIndexFromObj(interp, objv[2], optionStrings, "option", 0,
+ &idx) != TCL_OK) {
+ return TCL_ERROR;
+ }
+ switch ((enum opts) idx) {
+ case CMD_CGET:
if (objc != 5) {
Tcl_WrongNumArgs(interp, 3, objv, "index option");
return TCL_ERROR;
@@ -164,10 +171,7 @@ TkTextImageCmd(textPtr, interp, objc, objv)
}
return Tk_ConfigureValue(interp, textPtr->tkwin, configSpecs,
(char *) &eiPtr->body.ei, Tcl_GetString(objv[4]), 0);
- } else if ((strncmp(str, "configure", length) == 0) && (length >= 2)) {
- TkTextIndex index;
- TkTextSegment *eiPtr;
-
+ case CMD_CONF:
if (objc < 4) {
Tcl_WrongNumArgs(interp, 3, objv, "index ?option value ...?");
return TCL_ERROR;
@@ -191,8 +195,7 @@ TkTextImageCmd(textPtr, interp, objc, objv)
TkTextChanged(textPtr, &index, &index);
return EmbImageConfigure(textPtr, eiPtr, objc-4, objv+4);
}
- } else if ((strncmp(str, "create", length) == 0) && (length >= 2)) {
- TkTextIndex index;
+ case CMD_CREATE: {
int lineIndex;
/*
@@ -249,7 +252,9 @@ TkTextImageCmd(textPtr, interp, objc, objv)
TkBTreeDeleteChars(&index, &index2);
return TCL_ERROR;
}
- } else if (strncmp(str, "names", length) == 0) {
+ return TCL_OK;
+ }
+ case CMD_NAMES: {
Tcl_HashSearch search;
Tcl_HashEntry *hPtr;
@@ -262,13 +267,12 @@ TkTextImageCmd(textPtr, interp, objc, objv)
Tcl_AppendElement(interp,
Tcl_GetHashKey(&textPtr->markTable, hPtr));
}
- } else {
- Tcl_AppendResult(interp, "bad image option \"", str,
- "\": must be cget, configure, create, or names",
- (char *) NULL);
- return TCL_ERROR;
+ return TCL_OK;
}
- return TCL_OK;
+ default:
+ panic("unexpected switch fallthrough");
+ }
+ return TCL_ERROR;
}
/*
diff --git a/generic/tkTextMark.c b/generic/tkTextMark.c
index 8c17e4c..d48e10a 100644
--- a/generic/tkTextMark.c
+++ b/generic/tkTextMark.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkTextMark.c,v 1.7 2003/05/19 13:04:23 vincentdarley Exp $
+ * RCS: @(#) $Id: tkTextMark.c,v 1.8 2003/05/19 14:37:20 dkf Exp $
*/
#include "tkInt.h"
@@ -156,9 +156,10 @@ TkTextMarkCmd(textPtr, interp, objc, objv)
}
str = Tcl_GetStringFromObj(objv[4],&length);
c = str[0];
- if ((c == 'l') && (strncmp(str, "left", length) == 0)) {
+ if ((c == 'l') && (strncmp(str, "left", (unsigned)length) == 0)) {
newTypePtr = &tkTextLeftMarkType;
- } else if ((c == 'r') && (strncmp(str, "right", length) == 0)) {
+ } else if ((c == 'r') &&
+ (strncmp(str, "right", (unsigned)length) == 0)) {
newTypePtr = &tkTextRightMarkType;
} else {
Tcl_AppendResult(interp, "bad mark gravity \"", str,