1 /* MI Command Set - environment commands.
2 Copyright (C) 2002-2017 Free Software Foundation, Inc.
4 Contributed by Red Hat Inc.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 #include "mi-getopt.h"
35 static void env_mod_path (char *dirname, char **which_path);
37 static const char path_var_name[] = "PATH";
38 static char *orig_path = NULL;
40 /* The following is copied from mi-main.c so for m1 and below we can
41 perform old behavior and use cli commands. If ARGS is non-null,
42 append it to the CMD. */
45 env_execute_cli_command (const char *cmd, const char *args)
49 gdb::unique_xmalloc_ptr<char> run;
52 run.reset (xstrprintf ("%s %s", cmd, args));
54 run.reset (xstrdup (cmd));
55 execute_command ( /*ui */ run.get (), 0 /*from_tty */ );
59 /* Print working directory. */
62 mi_cmd_env_pwd (const char *command, char **argv, int argc)
64 struct ui_out *uiout = current_uiout;
67 error (_("-environment-pwd: No arguments allowed"));
69 if (mi_version (uiout) < 2)
71 env_execute_cli_command ("pwd", NULL);
75 /* Otherwise the mi level is 2 or higher. */
77 if (! getcwd (gdb_dirbuf, sizeof (gdb_dirbuf)))
78 error (_("-environment-pwd: error finding name of working directory: %s"),
79 safe_strerror (errno));
81 uiout->field_string ("cwd", gdb_dirbuf);
84 /* Change working directory. */
87 mi_cmd_env_cd (const char *command, char **argv, int argc)
89 if (argc == 0 || argc > 1)
90 error (_("-environment-cd: Usage DIRECTORY"));
92 env_execute_cli_command ("cd", argv[0]);
96 env_mod_path (char *dirname, char **which_path)
98 if (dirname == 0 || dirname[0] == '\0')
101 /* Call add_path with last arg 0 to indicate not to parse for
102 separator characters. */
103 add_path (dirname, which_path, 0);
106 /* Add one or more directories to start of executable search path. */
109 mi_cmd_env_path (const char *command, char **argv, int argc)
111 struct ui_out *uiout = current_uiout;
122 static const struct mi_opt opts[] =
130 if (mi_version (uiout) < 2)
132 for (i = argc - 1; i >= 0; --i)
133 env_execute_cli_command ("path", argv[i]);
137 /* Otherwise the mi level is 2 or higher. */
140 int opt = mi_getopt ("-environment-path", argc, argv, opts,
145 switch ((enum opt) opt)
158 /* Reset implies resetting to original path first. */
159 exec_path = xstrdup (orig_path);
163 /* Otherwise, get current path to modify. */
164 env = current_inferior ()->environment.get (path_var_name);
166 /* Can be null if path is not set. */
169 exec_path = xstrdup (env);
172 for (i = argc - 1; i >= 0; --i)
173 env_mod_path (argv[i], &exec_path);
175 current_inferior ()->environment.set (path_var_name, exec_path);
177 env = current_inferior ()->environment.get (path_var_name);
178 uiout->field_string ("path", env);
181 /* Add zero or more directories to the front of the source path. */
184 mi_cmd_env_dir (const char *command, char **argv, int argc)
186 struct ui_out *uiout = current_uiout;
195 static const struct mi_opt opts[] =
203 if (mi_version (uiout) < 2)
205 for (i = argc - 1; i >= 0; --i)
206 env_execute_cli_command ("dir", argv[i]);
210 /* Otherwise mi level is 2 or higher. */
213 int opt = mi_getopt ("-environment-directory", argc, argv, opts,
218 switch ((enum opt) opt)
230 /* Reset means setting to default path first. */
235 for (i = argc - 1; i >= 0; --i)
236 env_mod_path (argv[i], &source_path);
238 uiout->field_string ("source-path", source_path);
239 forget_cached_source_info ();
242 /* Set the inferior terminal device name. */
245 mi_cmd_inferior_tty_set (const char *command, char **argv, int argc)
247 set_inferior_io_terminal (argv[0]);
250 /* Print the inferior terminal device name. */
253 mi_cmd_inferior_tty_show (const char *command, char **argv, int argc)
255 const char *inferior_io_terminal = get_inferior_io_terminal ();
257 if ( !mi_valid_noargs ("-inferior-tty-show", argc, argv))
258 error (_("-inferior-tty-show: Usage: No args"));
260 if (inferior_io_terminal)
261 current_uiout->field_string ("inferior_tty_terminal", inferior_io_terminal);
265 _initialize_mi_cmd_env (void)
269 /* We want original execution path to reset to, if desired later.
270 At this point, current inferior is not created, so cannot use
271 current_inferior ()->environment. We use getenv here because it
272 is not necessary to create a whole new gdb_environ just for one
274 env = getenv (path_var_name);
276 /* Can be null if path is not set. */
279 orig_path = xstrdup (env);