auracaster/openocd
3
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.cfg files are now executed as Jim Tcl. Commands that terminate script w/error message.

Browse Source 
git-svn-id: svn://svn.berlios.de/openocd/trunk@790 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
oharboe
2008-07-11 09:06:36 +00:00
parent 0f2dfabd3b
commit 381f9a2e8a
5 changed files with 25 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
src/helper/command.c
View File

@@ -474,59 +474,6 @@ int command_run_line(command_context_t *context, char *line)
return jim_command(context, line);
}
int command_run_file(command_context_t *context, FILE *file, enum command_mode mode)
{
int retval = ERROR_OK;
int old_command_mode;
char *buffer=malloc(4096);
if (buffer==NULL)
{
return ERROR_INVALID_ARGUMENTS;
}
old_command_mode = context->mode;
context->mode = mode;
while (fgets(buffer, 4096, file))
{
char *p;
char *cmd, *end;
/* stop processing line after a comment (#, !) or a LF, CR were encountered */
if ((p = strpbrk(buffer, "#!\r\n")))
*p = 0;
/* skip over leading whitespace */
cmd = buffer;
while (isspace(*cmd))
cmd++;
/* empty (all whitespace) line? */
if (!*cmd)
continue;
/* search the end of the current line, ignore trailing whitespace */
for (p = end = cmd; *p; p++)
if (!isspace(*p))
end = p;
/* terminate end */
*++end = 0;
if (strcasecmp(cmd, "quit") == 0)
break;
/* run line */
if ((retval = command_run_line(context, cmd)) == ERROR_COMMAND_CLOSE_CONNECTION)
break;
}
context->mode = old_command_mode;
free(buffer);
return retval;
}
int command_run_linef(command_context_t *context, char *format, ...)
{

1
src/helper/command.h
View File

@@ -76,7 +76,6 @@ extern void command_print_sameline(command_context_t *context, char *format, ...
extern int command_run_line(command_context_t *context, char *line);
extern int command_run_linef(command_context_t *context, char *format, ...);
extern int command_run_line_internal(command_context_t *context, char *line);
extern int command_run_file(command_context_t *context, FILE *file, enum command_mode mode);
extern void command_output_text(command_context_t *context, const char *data);
#define ERROR_COMMAND_CLOSE_CONNECTION (-600)

14
src/helper/interpreter.c
View File

@@ -221,17 +221,7 @@ int handle_script_command(struct command_context_s *cmd_ctx, char *cmd, char **a
if (argc != 1)
return ERROR_COMMAND_SYNTAX_ERROR;
script_file = open_file_from_path (args[0], "r");
if (!script_file)
{
command_print(cmd_ctx, "couldn't open script file %s", args[0]);
return ERROR_OK;
}
command_run_file(cmd_ctx, script_file, cmd_ctx->mode);
fclose(script_file);
return ERROR_OK;
/* Run a tcl script file */
return command_run_linef(cmd_ctx, "source [find {%s}]", args[0]);
}

10
src/helper/options.c
View File

@@ -110,15 +110,7 @@ int parse_cmdline_args(struct command_context_s *cmd_ctx, int argc, char *argv[]
break;
case 'f': /* --file | -f */
{
char *t=strrchr(optarg, '.');
if (strcmp(t, ".tcl")==0)
{
/* Files ending in .tcl are executed as Tcl files */
snprintf(command_buffer, 128, "source [find {%s}]", optarg);
} else
{
snprintf(command_buffer, 128, "script %s", optarg);
}
snprintf(command_buffer, 128, "script %s", optarg);
add_config_command(command_buffer);
break;
}