.cfg files are now executed as Jim Tcl. Commands that terminate script w/error message.
[fw/openocd] / src / helper / options.c
1 /***************************************************************************
2  *   Copyright (C) 2004, 2005 by Dominic Rath                              *
3  *   Dominic.Rath@gmx.de                                                   *
4  *                                                                         *
5  *   This program is free software; you can redistribute it and/or modify  *
6  *   it under the terms of the GNU General Public License as published by  *
7  *   the Free Software Foundation; either version 2 of the License, or     *
8  *   (at your option) any later version.                                   *
9  *                                                                         *
10  *   This program is distributed in the hope that it will be useful,       *
11  *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
12  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
13  *   GNU General Public License for more details.                          *
14  *                                                                         *
15  *   You should have received a copy of the GNU General Public License     *
16  *   along with this program; if not, write to the                         *
17  *   Free Software Foundation, Inc.,                                       *
18  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
19  ***************************************************************************/
20 #ifdef HAVE_CONFIG_H
21 #include "config.h"
22 #endif
23
24 #include "types.h"
25 #include "command.h"
26 #include "configuration.h"
27 #include "log.h"
28
29 #include <stdio.h>
30 #include <stdlib.h>
31 #include <getopt.h>
32 #include <string.h>
33
34 static int help_flag, version_flag;
35
36 static struct option long_options[] =
37 {
38         {"help",        no_argument,            &help_flag,     1},
39         {"version",     no_argument,            &version_flag,  1},
40         {"debug",       optional_argument,      0,              'd'},
41         {"file",        required_argument,      0,              'f'},
42         {"search",      required_argument,      0,              's'},
43         {"log_output",  required_argument,      0,              'l'},
44         {"command",     required_argument,      0,              'c'},
45         {0, 0, 0, 0}
46 };
47
48 int configuration_output_handler(struct command_context_s *context, const char* line)
49 {
50         LOG_INFO_N(line);
51
52         return ERROR_OK;
53 }
54
55 int add_default_dirs(void)
56 {
57 #ifdef _WIN32
58         /* Add the parent of the directory where openocd.exe resides to the
59          * config script search path.
60          * Directory layout: 
61          * bin\openocd.exe
62          * lib\openocd
63          * event\at91eb40a_reset.cfg
64          * target\at91eb40a.cfg
65          */
66         {
67                 char strExePath [MAX_PATH];
68                 GetModuleFileName (NULL, strExePath, MAX_PATH);
69                 /* Either this code will *always* work or it will SEGFAULT giving
70                  * excellent information on the culprit. 
71                  */
72                 *strrchr(strExePath, '\\')=0;
73                 strcat(strExePath, "\\..");
74                 add_script_search_dir(strExePath);
75         }
76 #else
77         /* Add dir for openocd supplied scripts last so that user can over
78            ride those scripts if desired. */
79         add_script_search_dir(PKGDATADIR);
80         add_script_search_dir(PKGLIBDIR);
81 #endif
82         return ERROR_OK;
83 }
84
85 int parse_cmdline_args(struct command_context_s *cmd_ctx, int argc, char *argv[])
86 {
87         int c;
88         char command_buffer[128];
89
90         while (1)
91         {       
92                 /* getopt_long stores the option index here. */
93                 int option_index = 0;
94                 
95                 c = getopt_long(argc, argv, "hvd::l:f:s:c:", long_options, &option_index);
96                 
97                 /* Detect the end of the options. */
98                 if (c == -1)
99                         break;
100                 
101                 switch (c)
102                 {
103                         case 0:
104                                 break;
105                         case 'h':       /* --help | -h */
106                                 help_flag = 1;
107                                 break;
108                         case 'v':       /* --version | -v */
109                                 version_flag = 1;
110                                 break;
111                         case 'f':       /* --file | -f */
112                         {
113                                 snprintf(command_buffer, 128, "script %s", optarg);
114                                 add_config_command(command_buffer);
115                                 break;
116                         }
117                         case 's':       /* --search | -s */
118                                 add_script_search_dir(optarg);
119                                 break;
120                         case 'd':       /* --debug | -d */
121                                 if (optarg)
122                                         snprintf(command_buffer, 128, "debug_level %s", optarg);
123                                 else
124                                         snprintf(command_buffer, 128, "debug_level 3");
125                                 command_run_line(cmd_ctx, command_buffer);
126                                 break;
127                         case 'l':       /* --log_output | -l */
128                                 if (optarg)
129                                 {
130                                         snprintf(command_buffer, 128, "log_output %s", optarg);
131                                         command_run_line(cmd_ctx, command_buffer);
132                                 }       
133                                 break;
134                         case 'c':       /* --command | -c */
135                                 if (optarg)
136                                 {
137                                         add_config_command(optarg);
138                                 }       
139                                 break;
140                                 
141                 }
142         }
143
144         if (help_flag)
145         {
146                 LOG_OUTPUT("Open On-Chip Debugger\n(c) 2005-2008 by Dominic Rath\n\n");
147                 LOG_OUTPUT("--help       | -h\tdisplay this help\n");
148                 LOG_OUTPUT("--version    | -v\tdisplay OpenOCD version\n");
149                 LOG_OUTPUT("--file       | -f\tuse configuration file <name>\n");
150                 LOG_OUTPUT("--search     | -s\tdir to search for config files and scripts\n");
151                 LOG_OUTPUT("--debug      | -d\tset debug level <0-3>\n");
152                 LOG_OUTPUT("--log_output | -l\tredirect log output to file <name>\n");
153                 LOG_OUTPUT("--command    | -c\trun <command>\n");
154                 exit(-1);
155         }       
156
157         if (version_flag)
158         {
159                 /* Nothing to do, version gets printed automatically. */
160                 exit(-1);
161         }       
162
163
164         return ERROR_OK;
165 }