diff options
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; |