diff options
| author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-04 07:22:11 +0000 |
|---|---|---|
| committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-04 07:22:11 +0000 |
| commit | 71471b07fd91655acd7c36618f7ac6ef34f5b66f (patch) | |
| tree | 3fc433e1ee415edbb75630830dfa0d9ab476454d /src/helper/options.c | |
| parent | 269c6d8385c1183819dfef18c811aad76699e6fc (diff) | |
| download | openocd+libswd-71471b07fd91655acd7c36618f7ac6ef34f5b66f.tar.gz openocd+libswd-71471b07fd91655acd7c36618f7ac6ef34f5b66f.tar.bz2 openocd+libswd-71471b07fd91655acd7c36618f7ac6ef34f5b66f.tar.xz openocd+libswd-71471b07fd91655acd7c36618f7ac6ef34f5b66f.zip | |
added support for Tcl config scripts on the command line(use .tcl extension).
git-svn-id: svn://svn.berlios.de/openocd/trunk@743 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src/helper/options.c')
| -rw-r--r-- | src/helper/options.c | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/src/helper/options.c b/src/helper/options.c index 5ad09fbd..ab36a286 100644 --- a/src/helper/options.c +++ b/src/helper/options.c @@ -79,9 +79,19 @@ int parse_cmdline_args(struct command_context_s *cmd_ctx, int argc, char *argv[] version_flag = 1; break; case 'f': /* --file | -f */ - snprintf(command_buffer, 128, "script %s", optarg); - add_config_file_name(command_buffer); + { + 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); + } + add_config_command(command_buffer); break; + } case 's': /* --search | -s */ add_script_search_dir(optarg); break; @@ -102,7 +112,7 @@ int parse_cmdline_args(struct command_context_s *cmd_ctx, int argc, char *argv[] case 'c': /* --command | -c */ if (optarg) { - add_config_file_name(optarg); + add_config_command(optarg); } break; |