123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281 |
- /* MI Command Set - environment commands.
- Copyright (C) 2002-2022 Free Software Foundation, Inc.
- Contributed by Red Hat Inc.
- This file is part of GDB.
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>. */
- #include "defs.h"
- #include "inferior.h"
- #include "value.h"
- #include "mi-out.h"
- #include "mi-cmds.h"
- #include "mi-getopt.h"
- #include "symtab.h"
- #include "target.h"
- #include "gdbsupport/environ.h"
- #include "command.h"
- #include "ui-out.h"
- #include "top.h"
- #include <sys/stat.h>
- #include "source.h"
- static const char path_var_name[] = "PATH";
- static char *orig_path = NULL;
- /* The following is copied from mi-main.c so for m1 and below we can
- perform old behavior and use cli commands. If ARGS is non-null,
- append it to the CMD. */
- static void
- env_execute_cli_command (const char *cmd, const char *args)
- {
- if (cmd != 0)
- {
- gdb::unique_xmalloc_ptr<char> run;
- if (args != NULL)
- run = xstrprintf ("%s %s", cmd, args);
- else
- run.reset (xstrdup (cmd));
- execute_command ( /*ui */ run.get (), 0 /*from_tty */ );
- }
- }
- /* Print working directory. */
- void
- mi_cmd_env_pwd (const char *command, char **argv, int argc)
- {
- struct ui_out *uiout = current_uiout;
- if (argc > 0)
- error (_("-environment-pwd: No arguments allowed"));
-
- if (mi_version (uiout) < 2)
- {
- env_execute_cli_command ("pwd", NULL);
- return;
- }
-
- /* Otherwise the mi level is 2 or higher. */
- gdb::unique_xmalloc_ptr<char> cwd (getcwd (NULL, 0));
- if (cwd == NULL)
- error (_("-environment-pwd: error finding name of working directory: %s"),
- safe_strerror (errno));
- uiout->field_string ("cwd", cwd.get ());
- }
- /* Change working directory. */
- void
- mi_cmd_env_cd (const char *command, char **argv, int argc)
- {
- if (argc == 0 || argc > 1)
- error (_("-environment-cd: Usage DIRECTORY"));
-
- env_execute_cli_command ("cd", argv[0]);
- }
- static void
- env_mod_path (const char *dirname, std::string &which_path)
- {
- if (dirname == 0 || dirname[0] == '\0')
- return;
- /* Call add_path with last arg 0 to indicate not to parse for
- separator characters. */
- add_path (dirname, which_path, 0);
- }
- /* Add one or more directories to start of executable search path. */
- void
- mi_cmd_env_path (const char *command, char **argv, int argc)
- {
- struct ui_out *uiout = current_uiout;
- const char *env;
- int reset = 0;
- int oind = 0;
- int i;
- char *oarg;
- enum opt
- {
- RESET_OPT
- };
- static const struct mi_opt opts[] =
- {
- {"r", RESET_OPT, 0},
- { 0, 0, 0 }
- };
- dont_repeat ();
- if (mi_version (uiout) < 2)
- {
- for (i = argc - 1; i >= 0; --i)
- env_execute_cli_command ("path", argv[i]);
- return;
- }
- /* Otherwise the mi level is 2 or higher. */
- while (1)
- {
- int opt = mi_getopt ("-environment-path", argc, argv, opts,
- &oind, &oarg);
- if (opt < 0)
- break;
- switch ((enum opt) opt)
- {
- case RESET_OPT:
- reset = 1;
- break;
- }
- }
- argv += oind;
- argc -= oind;
- std::string exec_path;
- if (reset)
- {
- /* Reset implies resetting to original path first. */
- exec_path = orig_path;
- }
- else
- {
- /* Otherwise, get current path to modify. */
- env = current_inferior ()->environment.get (path_var_name);
- /* Can be null if path is not set. */
- if (!env)
- env = "";
- exec_path = env;
- }
- for (i = argc - 1; i >= 0; --i)
- env_mod_path (argv[i], exec_path);
- current_inferior ()->environment.set (path_var_name, exec_path.c_str ());
- env = current_inferior ()->environment.get (path_var_name);
- uiout->field_string ("path", env);
- }
- /* Add zero or more directories to the front of the source path. */
- void
- mi_cmd_env_dir (const char *command, char **argv, int argc)
- {
- struct ui_out *uiout = current_uiout;
- int i;
- int oind = 0;
- int reset = 0;
- char *oarg;
- enum opt
- {
- RESET_OPT
- };
- static const struct mi_opt opts[] =
- {
- {"r", RESET_OPT, 0},
- { 0, 0, 0 }
- };
- dont_repeat ();
- if (mi_version (uiout) < 2)
- {
- for (i = argc - 1; i >= 0; --i)
- env_execute_cli_command ("dir", argv[i]);
- return;
- }
- /* Otherwise mi level is 2 or higher. */
- while (1)
- {
- int opt = mi_getopt ("-environment-directory", argc, argv, opts,
- &oind, &oarg);
- if (opt < 0)
- break;
- switch ((enum opt) opt)
- {
- case RESET_OPT:
- reset = 1;
- break;
- }
- }
- argv += oind;
- argc -= oind;
- if (reset)
- {
- /* Reset means setting to default path first. */
- init_source_path ();
- }
- for (i = argc - 1; i >= 0; --i)
- env_mod_path (argv[i], source_path);
- uiout->field_string ("source-path", source_path);
- forget_cached_source_info ();
- }
- /* Set the inferior terminal device name. */
- void
- mi_cmd_inferior_tty_set (const char *command, char **argv, int argc)
- {
- if (argc > 0)
- current_inferior ()->set_tty (argv[0]);
- else
- current_inferior ()->set_tty ("");
- }
- /* Print the inferior terminal device name. */
- void
- mi_cmd_inferior_tty_show (const char *command, char **argv, int argc)
- {
- if ( !mi_valid_noargs ("-inferior-tty-show", argc, argv))
- error (_("-inferior-tty-show: Usage: No args"));
- const std::string &inferior_tty = current_inferior ()->tty ();
- if (!inferior_tty.empty ())
- current_uiout->field_string ("inferior_tty_terminal", inferior_tty);
- }
- void _initialize_mi_cmd_env ();
- void
- _initialize_mi_cmd_env ()
- {
- const char *env;
- /* We want original execution path to reset to, if desired later.
- At this point, current inferior is not created, so cannot use
- current_inferior ()->environment. We use getenv here because it
- is not necessary to create a whole new gdb_environ just for one
- variable. */
- env = getenv (path_var_name);
- /* Can be null if path is not set. */
- if (!env)
- env = "";
- orig_path = xstrdup (env);
- }
|