From 71471b07fd91655acd7c36618f7ac6ef34f5b66f Mon Sep 17 00:00:00 2001 From: oharboe Date: Fri, 4 Jul 2008 07:22:11 +0000 Subject: 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 --- src/helper/options.c | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'src/helper/options.c') 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; -- cgit v1.2.3