- case TG_CMD_CURRENT:
- if (goi.argc != 0) {
- Jim_WrongNumArgs(goi.interp, 1, goi.argv, "Too many parameters");
- return JIM_ERR;
- }
- Jim_SetResultString(goi.interp,
- target_name(get_current_target(cmd_ctx)),
- -1);
- return JIM_OK;
- case TG_CMD_TYPES:
- if (goi.argc != 0) {
- Jim_WrongNumArgs(goi.interp, 1, goi.argv, "Too many parameters");
- return JIM_ERR;
- }
- Jim_SetResult(goi.interp, Jim_NewListObj(goi.interp, NULL, 0));
- for (x = 0 ; target_types[x] ; x++) {
- Jim_ListAppendElement(goi.interp,
- Jim_GetResult(goi.interp),
- Jim_NewStringObj(goi.interp, target_types[x]->name, -1));
- }
- return JIM_OK;
- case TG_CMD_NAMES:
- if (goi.argc != 0) {
- Jim_WrongNumArgs(goi.interp, 1, goi.argv, "Too many parameters");
- return JIM_ERR;
- }
- Jim_SetResult(goi.interp, Jim_NewListObj(goi.interp, NULL, 0));
- target = all_targets;
- while (target) {
- Jim_ListAppendElement(goi.interp,
- Jim_GetResult(goi.interp),
- Jim_NewStringObj(goi.interp,
- target_name(target), -1));
- target = target->next;
- }
- return JIM_OK;
- case TG_CMD_CREATE:
- if (goi.argc < 3) {
- Jim_WrongNumArgs(goi.interp, goi.argc, goi.argv, "?name ... config options ...");
- return JIM_ERR;
- }
- return target_create(&goi);
- break;
- case TG_CMD_NUMBER:
- /* It's OK to remove this mechanism sometime after August 2010 or so */
- LOG_WARNING("don't use numbers as target identifiers; use names");
- if (goi.argc != 1) {
- Jim_SetResult_sprintf(goi.interp, "expected: target number ?NUMBER?");
- return JIM_ERR;
- }
- e = Jim_GetOpt_Wide(&goi, &w);
- if (e != JIM_OK) {
- return JIM_ERR;
- }
- for (x = 0, target = all_targets; target; target = target->next, x++) {
- if (target->target_number == w)
- break;
- }
- if (target == NULL) {
- Jim_SetResult_sprintf(goi.interp,
- "Target: number %d does not exist", (int)(w));
- return JIM_ERR;
- }
- Jim_SetResultString(goi.interp, target_name(target), -1);
- return JIM_OK;
- case TG_CMD_COUNT:
- if (goi.argc != 0) {
- Jim_WrongNumArgs(goi.interp, 0, goi.argv, "<no parameters>");
- return JIM_ERR;
- }
- for (x = 0, target = all_targets; target; target = target->next, x++)