debuggers: import openocd-0.7.0
Initial check-in of openocd-0.7.0 as it can be downloaded from http://sourceforge.net/projects/openocd/files/openocd/0.7.0/ Any modifications will follow. Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55
This commit is contained in:
Lars Rademacher
198
debuggers/openocd/jimtcl/jim-tclprefix.c
Normal file
198
debuggers/openocd/jimtcl/jim-tclprefix.c
Normal file
@ -0,0 +1,198 @@
|
||||
/*
|
||||
* Implements the tcl::prefix command for Jim Tcl
|
||||
*
|
||||
* (c) 2011 Steve Bennett <steveb@workware.net.au>
|
||||
*
|
||||
* See LICENSE for license details.
|
||||
*/
|
||||
|
||||
#include <jim.h>
|
||||
#include "utf8.h"
|
||||
|
||||
/**
|
||||
* Returns the common initial length of the two strings.
|
||||
*/
|
||||
static int JimStringCommonLength(const char *str1, int charlen1, const char *str2, int charlen2)
|
||||
{
|
||||
int maxlen = 0;
|
||||
while (charlen1-- && charlen2--) {
|
||||
int c1;
|
||||
int c2;
|
||||
str1 += utf8_tounicode(str1, &c1);
|
||||
str2 += utf8_tounicode(str2, &c2);
|
||||
if (c1 != c2) {
|
||||
break;
|
||||
}
|
||||
maxlen++;
|
||||
}
|
||||
return maxlen;
|
||||
}
|
||||
|
||||
/* [tcl::prefix]
|
||||
*/
|
||||
static int Jim_TclPrefixCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
|
||||
{
|
||||
Jim_Obj *objPtr;
|
||||
Jim_Obj *stringObj;
|
||||
int option;
|
||||
static const char * const options[] = { "match", "all", "longest", NULL };
|
||||
enum { OPT_MATCH, OPT_ALL, OPT_LONGEST };
|
||||
|
||||
if (argc < 2) {
|
||||
Jim_WrongNumArgs(interp, 1, argv, "subcommand ?arg ...?");
|
||||
return JIM_ERR;
|
||||
}
|
||||
if (Jim_GetEnum(interp, argv[1], options, &option, NULL, JIM_ERRMSG | JIM_ENUM_ABBREV) != JIM_OK)
|
||||
return JIM_ERR;
|
||||
|
||||
switch (option) {
|
||||
case OPT_MATCH:{
|
||||
int i;
|
||||
int ret;
|
||||
int tablesize;
|
||||
const char **table;
|
||||
Jim_Obj *tableObj;
|
||||
Jim_Obj *errorObj = NULL;
|
||||
Jim_Obj *messageObj = NULL;
|
||||
static const char * const matchoptions[] = { "-error", "-exact", "-message", NULL };
|
||||
enum { OPT_MATCH_ERROR, OPT_MATCH_EXACT, OPT_MATCH_MESSAGE };
|
||||
int flags = JIM_ERRMSG | JIM_ENUM_ABBREV;
|
||||
|
||||
if (argc < 4) {
|
||||
Jim_WrongNumArgs(interp, 2, argv, "?options? table string");
|
||||
return JIM_ERR;
|
||||
}
|
||||
tableObj = argv[argc - 2];
|
||||
stringObj = argv[argc - 1];
|
||||
argc -= 2;
|
||||
for (i = 2; i < argc; i++) {
|
||||
int matchoption;
|
||||
if (Jim_GetEnum(interp, argv[i], matchoptions, &matchoption, "option", JIM_ERRMSG | JIM_ENUM_ABBREV) != JIM_OK)
|
||||
return JIM_ERR;
|
||||
switch (matchoption) {
|
||||
case OPT_MATCH_EXACT:
|
||||
flags &= ~JIM_ENUM_ABBREV;
|
||||
break;
|
||||
|
||||
case OPT_MATCH_ERROR:
|
||||
if (++i == argc) {
|
||||
Jim_SetResultString(interp, "missing error options", -1);
|
||||
return JIM_ERR;
|
||||
}
|
||||
errorObj = argv[i];
|
||||
if (Jim_Length(errorObj) % 2) {
|
||||
Jim_SetResultString(interp, "error options must have an even number of elements", -1);
|
||||
return JIM_ERR;
|
||||
}
|
||||
break;
|
||||
|
||||
case OPT_MATCH_MESSAGE:
|
||||
if (++i == argc) {
|
||||
Jim_SetResultString(interp, "missing message", -1);
|
||||
return JIM_ERR;
|
||||
}
|
||||
messageObj = argv[i];
|
||||
break;
|
||||
}
|
||||
}
|
||||
/* Do the match */
|
||||
tablesize = Jim_ListLength(interp, tableObj);
|
||||
table = Jim_Alloc((tablesize + 1) * sizeof(*table));
|
||||
for (i = 0; i < tablesize; i++) {
|
||||
Jim_ListIndex(interp, tableObj, i, &objPtr, JIM_NONE);
|
||||
table[i] = Jim_String(objPtr);
|
||||
}
|
||||
table[i] = NULL;
|
||||
|
||||
ret = Jim_GetEnum(interp, stringObj, table, &i, messageObj ? Jim_String(messageObj) : NULL, flags);
|
||||
Jim_Free(table);
|
||||
if (ret == JIM_OK) {
|
||||
Jim_ListIndex(interp, tableObj, i, &objPtr, JIM_NONE);
|
||||
Jim_SetResult(interp, objPtr);
|
||||
return JIM_OK;
|
||||
}
|
||||
if (tablesize == 0) {
|
||||
Jim_SetResultFormatted(interp, "bad option \"%#s\": no valid options", stringObj);
|
||||
return JIM_ERR;
|
||||
}
|
||||
if (errorObj) {
|
||||
if (Jim_Length(errorObj) == 0) {
|
||||
Jim_SetEmptyResult(interp);
|
||||
return JIM_OK;
|
||||
}
|
||||
/* Do this the easy way. Build a list to evaluate */
|
||||
objPtr = Jim_NewStringObj(interp, "return -level 0 -code error", -1);
|
||||
Jim_ListAppendList(interp, objPtr, errorObj);
|
||||
Jim_ListAppendElement(interp, objPtr, Jim_GetResult(interp));
|
||||
return Jim_EvalObjList(interp, objPtr);
|
||||
}
|
||||
return JIM_ERR;
|
||||
}
|
||||
break;
|
||||
|
||||
case OPT_ALL:
|
||||
if (argc != 4) {
|
||||
Jim_WrongNumArgs(interp, 2, argv, "table string");
|
||||
return JIM_ERR;
|
||||
}
|
||||
else {
|
||||
int i;
|
||||
int listlen = Jim_ListLength(interp, argv[2]);
|
||||
objPtr = Jim_NewListObj(interp, NULL, 0);
|
||||
for (i = 0; i < listlen; i++) {
|
||||
Jim_Obj *valObj = Jim_ListGetIndex(interp, argv[2], i);
|
||||
if (Jim_StringCompareLenObj(interp, argv[3], valObj, 0) == 0) {
|
||||
Jim_ListAppendElement(interp, objPtr, valObj);
|
||||
}
|
||||
}
|
||||
Jim_SetResult(interp, objPtr);
|
||||
return JIM_OK;
|
||||
}
|
||||
|
||||
case OPT_LONGEST:
|
||||
if (argc != 4) {
|
||||
Jim_WrongNumArgs(interp, 2, argv, "table string");
|
||||
return JIM_ERR;
|
||||
}
|
||||
else if (Jim_ListLength(interp, argv[2])) {
|
||||
const char *longeststr = NULL;
|
||||
int longestlen = 0;
|
||||
|
||||
stringObj = argv[3];
|
||||
|
||||
int i;
|
||||
int listlen = Jim_ListLength(interp, argv[2]);
|
||||
for (i = 0; i < listlen; i++) {
|
||||
Jim_Obj *valObj = Jim_ListGetIndex(interp, argv[2], i);
|
||||
|
||||
if (Jim_StringCompareLenObj(interp, stringObj, valObj, 0)) {
|
||||
/* Does not begin with 'string' */
|
||||
continue;
|
||||
}
|
||||
|
||||
if (longeststr == NULL) {
|
||||
longestlen = Jim_Utf8Length(interp, valObj);
|
||||
longeststr = Jim_String(valObj);
|
||||
}
|
||||
else {
|
||||
longestlen = JimStringCommonLength(longeststr, longestlen, Jim_String(valObj), Jim_Utf8Length(interp, valObj));
|
||||
}
|
||||
}
|
||||
if (longeststr) {
|
||||
Jim_SetResultString(interp, longeststr, longestlen);
|
||||
}
|
||||
return JIM_OK;
|
||||
}
|
||||
}
|
||||
return JIM_ERR;
|
||||
}
|
||||
|
||||
int Jim_tclprefixInit(Jim_Interp *interp)
|
||||
{
|
||||
if (Jim_PackageProvide(interp, "tclprefix", "1.0", JIM_ERRMSG)) {
|
||||
return JIM_ERR;
|
||||
}
|
||||
|
||||
Jim_CreateCommand(interp, "tcl::prefix", Jim_TclPrefixCoreCommand, NULL, NULL);
|
||||
return JIM_OK;
|
||||
}
|
||||
Reference in New Issue
Block a user