diff options
author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-11 09:06:36 +0000 |
---|---|---|
committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-11 09:06:36 +0000 |
commit | 381f9a2e8aa1697e2af3c2bcad962dfcfe7348d7 (patch) | |
tree | 86e18dbf7d8f8d004971e40ef8666379160f10dc /src/helper/options.c | |
parent | 0f2dfabd3b6123eb0cf9620e557e95ad76eaef91 (diff) |
.cfg files are now executed as Jim Tcl. Commands that terminate script w/error message.
git-svn-id: svn://svn.berlios.de/openocd/trunk@790 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src/helper/options.c')
-rw-r--r-- | src/helper/options.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/helper/options.c b/src/helper/options.c index f62ab16b..5ec558cf 100644 --- a/src/helper/options.c +++ b/src/helper/options.c @@ -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; } |