1 /* MI Command Set - environment commands.
2 Copyright (C) 2002-2014 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"
37 static void env_mod_path (char *dirname
, char **which_path
);
39 extern void _initialize_mi_cmd_env (void);
41 static const char path_var_name
[] = "PATH";
42 static char *orig_path
= NULL
;
44 /* The following is copied from mi-main.c so for m1 and below we can
45 perform old behavior and use cli commands. If ARGS is non-null,
46 append it to the CMD. */
49 env_execute_cli_command (const char *cmd
, const char *args
)
53 struct cleanup
*old_cleanups
;
57 run
= xstrprintf ("%s %s", cmd
, args
);
60 old_cleanups
= make_cleanup (xfree
, run
);
61 execute_command ( /*ui */ run
, 0 /*from_tty */ );
62 do_cleanups (old_cleanups
);
67 /* Print working directory. */
70 mi_cmd_env_pwd (char *command
, char **argv
, int argc
)
72 struct ui_out
*uiout
= current_uiout
;
75 error (_("-environment-pwd: No arguments allowed"));
77 if (mi_version (uiout
) < 2)
79 env_execute_cli_command ("pwd", NULL
);
83 /* Otherwise the mi level is 2 or higher. */
85 if (! getcwd (gdb_dirbuf
, sizeof (gdb_dirbuf
)))
86 error (_("-environment-pwd: error finding name of working directory: %s"),
87 safe_strerror (errno
));
89 ui_out_field_string (uiout
, "cwd", gdb_dirbuf
);
92 /* Change working directory. */
95 mi_cmd_env_cd (char *command
, char **argv
, int argc
)
97 if (argc
== 0 || argc
> 1)
98 error (_("-environment-cd: Usage DIRECTORY"));
100 env_execute_cli_command ("cd", argv
[0]);
104 env_mod_path (char *dirname
, char **which_path
)
106 if (dirname
== 0 || dirname
[0] == '\0')
109 /* Call add_path with last arg 0 to indicate not to parse for
110 separator characters. */
111 add_path (dirname
, which_path
, 0);
114 /* Add one or more directories to start of executable search path. */
117 mi_cmd_env_path (char *command
, char **argv
, int argc
)
119 struct ui_out
*uiout
= current_uiout
;
130 static const struct mi_opt opts
[] =
138 if (mi_version (uiout
) < 2)
140 for (i
= argc
- 1; i
>= 0; --i
)
141 env_execute_cli_command ("path", argv
[i
]);
145 /* Otherwise the mi level is 2 or higher. */
148 int opt
= mi_getopt ("-environment-path", argc
, argv
, opts
,
153 switch ((enum opt
) opt
)
166 /* Reset implies resetting to original path first. */
167 exec_path
= xstrdup (orig_path
);
171 /* Otherwise, get current path to modify. */
172 env
= get_in_environ (current_inferior ()->environment
, path_var_name
);
174 /* Can be null if path is not set. */
177 exec_path
= xstrdup (env
);
180 for (i
= argc
- 1; i
>= 0; --i
)
181 env_mod_path (argv
[i
], &exec_path
);
183 set_in_environ (current_inferior ()->environment
, path_var_name
, exec_path
);
185 env
= get_in_environ (current_inferior ()->environment
, path_var_name
);
186 ui_out_field_string (uiout
, "path", env
);
189 /* Add zero or more directories to the front of the source path. */
192 mi_cmd_env_dir (char *command
, char **argv
, int argc
)
194 struct ui_out
*uiout
= current_uiout
;
203 static const struct mi_opt opts
[] =
211 if (mi_version (uiout
) < 2)
213 for (i
= argc
- 1; i
>= 0; --i
)
214 env_execute_cli_command ("dir", argv
[i
]);
218 /* Otherwise mi level is 2 or higher. */
221 int opt
= mi_getopt ("-environment-directory", argc
, argv
, opts
,
226 switch ((enum opt
) opt
)
238 /* Reset means setting to default path first. */
243 for (i
= argc
- 1; i
>= 0; --i
)
244 env_mod_path (argv
[i
], &source_path
);
246 ui_out_field_string (uiout
, "source-path", source_path
);
247 forget_cached_source_info ();
250 /* Set the inferior terminal device name. */
253 mi_cmd_inferior_tty_set (char *command
, char **argv
, int argc
)
255 set_inferior_io_terminal (argv
[0]);
258 /* Print the inferior terminal device name. */
261 mi_cmd_inferior_tty_show (char *command
, char **argv
, int argc
)
263 const char *inferior_io_terminal
= get_inferior_io_terminal ();
265 if ( !mi_valid_noargs ("-inferior-tty-show", argc
, argv
))
266 error (_("-inferior-tty-show: Usage: No args"));
268 if (inferior_io_terminal
)
269 ui_out_field_string (current_uiout
,
270 "inferior_tty_terminal", inferior_io_terminal
);
274 _initialize_mi_cmd_env (void)
276 struct gdb_environ
*environment
;
279 /* We want original execution path to reset to, if desired later.
280 At this point, current inferior is not created, so cannot use
281 current_inferior ()->environment. Also, there's no obvious
282 place where this code can be moved such that it surely run
283 before any code possibly mangles original PATH. */
284 environment
= make_environ ();
285 init_environ (environment
);
286 env
= get_in_environ (environment
, path_var_name
);
288 /* Can be null if path is not set. */
291 orig_path
= xstrdup (env
);
292 free_environ (environment
);
This page took 0.0362 seconds and 4 git commands to generate.