1 /* MI Command Set - environment commands.
2 Copyright (C) 2002-2018 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"
36 static const char path_var_name
[] = "PATH";
37 static char *orig_path
= NULL
;
39 /* The following is copied from mi-main.c so for m1 and below we can
40 perform old behavior and use cli commands. If ARGS is non-null,
41 append it to the CMD. */
44 env_execute_cli_command (const char *cmd
, const char *args
)
48 gdb::unique_xmalloc_ptr
<char> run
;
51 run
.reset (xstrprintf ("%s %s", cmd
, args
));
53 run
.reset (xstrdup (cmd
));
54 execute_command ( /*ui */ run
.get (), 0 /*from_tty */ );
58 /* Print working directory. */
61 mi_cmd_env_pwd (const char *command
, char **argv
, int argc
)
63 struct ui_out
*uiout
= current_uiout
;
66 error (_("-environment-pwd: No arguments allowed"));
68 if (mi_version (uiout
) < 2)
70 env_execute_cli_command ("pwd", NULL
);
74 /* Otherwise the mi level is 2 or higher. */
76 gdb::unique_xmalloc_ptr
<char> cwd (getcwd (NULL
, 0));
78 error (_("-environment-pwd: error finding name of working directory: %s"),
79 safe_strerror (errno
));
81 uiout
->field_string ("cwd", cwd
.get ());
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 (const 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
);
This page took 0.040885 seconds and 4 git commands to generate.