forked from Imagelibrary/binutils-gdb
2002-12-13 Jeff Johnston <jjohnstn@redhat.com>
* mi-cmds.c (-environment-directory) Change to use mi_cmd_env_dir,
(-environment-cd): Change to use mi_cmd_env_cd,.
(-environment-pwd): Change to use mi_cmd_env_pwd.
(-environment-path): Change to use mi_cmd_env_path.
* mi-cmds.h (mi_cmd_env_cd, mi_cmd_env_dir): New prototypes.
(mi_cmd_env_path, mi_cmd_env_pwd): Ditto.
* mi-cmd-env.c: New file. Part of fix for PR gdb/741.
* gdbmi.texinfo (environment-cd): Update output and example.
(environment-pwd): Ditto.
(environment-dir): Update output, description, and examples.
(environment-path): Ditto.
This commit is contained in:
Jeff Johnston
254
gdb/mi/mi-cmd-env.c
Normal file
254
gdb/mi/mi-cmd-env.c
Normal file
@@ -0,0 +1,254 @@
|
||||
/* MI Command Set - environment commands.
|
||||
Copyright 2002 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 2 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, write to the Free Software
|
||||
Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
Boston, MA 02111-1307, USA. */
|
||||
|
||||
#include <string.h>
|
||||
#include <sys/stat.h>
|
||||
|
||||
#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 "environ.h"
|
||||
#include "command.h"
|
||||
#include "ui-out.h"
|
||||
#include "top.h"
|
||||
|
||||
static void env_cli_command (const char *cli, char *args);
|
||||
static void env_mod_path (char *dirname, char **which_path);
|
||||
extern void _initialize_mi_cmd_env (void);
|
||||
|
||||
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. */
|
||||
static void
|
||||
env_execute_cli_command (const char *cli, char *args)
|
||||
{
|
||||
if (cli != 0)
|
||||
{
|
||||
struct cleanup *old_cleanups;
|
||||
char *run;
|
||||
xasprintf (&run, cli, args);
|
||||
old_cleanups = make_cleanup (xfree, run);
|
||||
execute_command ( /*ui */ run, 0 /*from_tty */ );
|
||||
do_cleanups (old_cleanups);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/* Print working directory. */
|
||||
enum mi_cmd_result
|
||||
mi_cmd_env_pwd (char *command, char **argv, int argc)
|
||||
{
|
||||
if (argc > 0)
|
||||
error ("mi_cmd_env_pwd: No arguments required");
|
||||
|
||||
if (mi_version (uiout) < 2)
|
||||
{
|
||||
env_execute_cli_command ("pwd", NULL);
|
||||
return MI_CMD_DONE;
|
||||
}
|
||||
|
||||
/* Otherwise the mi level is 2 or higher. */
|
||||
|
||||
getcwd (gdb_dirbuf, sizeof (gdb_dirbuf));
|
||||
ui_out_field_string (uiout, "cwd", gdb_dirbuf);
|
||||
|
||||
return MI_CMD_DONE;
|
||||
}
|
||||
|
||||
/* Change working directory. */
|
||||
enum mi_cmd_result
|
||||
mi_cmd_env_cd (char *command, char **argv, int argc)
|
||||
{
|
||||
if (argc == 0 || argc > 1)
|
||||
error ("mi_cmd_env_cd: Usage DIRECTORY");
|
||||
|
||||
env_execute_cli_command ("cd %s", argv[0]);
|
||||
|
||||
return MI_CMD_DONE;
|
||||
}
|
||||
|
||||
static void
|
||||
env_mod_path (char *dirname, char **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. */
|
||||
enum mi_cmd_result
|
||||
mi_cmd_env_path (char *command, char **argv, int argc)
|
||||
{
|
||||
char *exec_path;
|
||||
char *env;
|
||||
int reset = 0;
|
||||
int optind = 0;
|
||||
int i;
|
||||
char *optarg;
|
||||
enum opt
|
||||
{
|
||||
RESET_OPT
|
||||
};
|
||||
static struct mi_opt opts[] =
|
||||
{
|
||||
{"r", RESET_OPT, 0},
|
||||
0
|
||||
};
|
||||
|
||||
dont_repeat ();
|
||||
|
||||
if (mi_version (uiout) < 2)
|
||||
{
|
||||
for (i = argc - 1; i >= 0; --i)
|
||||
env_execute_cli_command ("path %s", argv[i]);
|
||||
return MI_CMD_DONE;
|
||||
}
|
||||
|
||||
/* Otherwise the mi level is 2 or higher. */
|
||||
while (1)
|
||||
{
|
||||
int opt = mi_getopt ("mi_cmd_env_path", argc, argv, opts,
|
||||
&optind, &optarg);
|
||||
if (opt < 0)
|
||||
break;
|
||||
switch ((enum opt) opt)
|
||||
{
|
||||
case RESET_OPT:
|
||||
reset = 1;
|
||||
break;
|
||||
}
|
||||
}
|
||||
argv += optind;
|
||||
argc -= optind;
|
||||
|
||||
|
||||
if (reset)
|
||||
{
|
||||
/* Reset implies resetting to original path first. */
|
||||
exec_path = xstrdup (orig_path);
|
||||
}
|
||||
else
|
||||
{
|
||||
/* Otherwise, get current path to modify. */
|
||||
env = get_in_environ (inferior_environ, path_var_name);
|
||||
|
||||
/* Can be null if path is not set. */
|
||||
if (!env)
|
||||
env = "";
|
||||
exec_path = xstrdup (env);
|
||||
}
|
||||
|
||||
for (i = argc - 1; i >= 0; --i)
|
||||
env_mod_path (argv[i], &exec_path);
|
||||
|
||||
set_in_environ (inferior_environ, path_var_name, exec_path);
|
||||
xfree (exec_path);
|
||||
env = get_in_environ (inferior_environ, path_var_name);
|
||||
ui_out_field_string (uiout, "path", env);
|
||||
|
||||
return MI_CMD_DONE;
|
||||
}
|
||||
|
||||
/* Add zero or more directories to the front of the source path. */
|
||||
enum mi_cmd_result
|
||||
mi_cmd_env_dir (char *command, char **argv, int argc)
|
||||
{
|
||||
int i;
|
||||
int optind = 0;
|
||||
int reset = 0;
|
||||
char *optarg;
|
||||
enum opt
|
||||
{
|
||||
RESET_OPT
|
||||
};
|
||||
static struct mi_opt opts[] =
|
||||
{
|
||||
{"r", RESET_OPT, 0},
|
||||
0
|
||||
};
|
||||
|
||||
dont_repeat ();
|
||||
|
||||
if (mi_version (uiout) < 2)
|
||||
{
|
||||
for (i = argc - 1; i >= 0; --i)
|
||||
env_execute_cli_command ("dir %s", argv[i]);
|
||||
return MI_CMD_DONE;
|
||||
}
|
||||
|
||||
/* Otherwise mi level is 2 or higher. */
|
||||
while (1)
|
||||
{
|
||||
int opt = mi_getopt ("mi_cmd_env_dir", argc, argv, opts,
|
||||
&optind, &optarg);
|
||||
if (opt < 0)
|
||||
break;
|
||||
switch ((enum opt) opt)
|
||||
{
|
||||
case RESET_OPT:
|
||||
reset = 1;
|
||||
break;
|
||||
}
|
||||
}
|
||||
argv += optind;
|
||||
argc -= optind;
|
||||
|
||||
if (reset)
|
||||
{
|
||||
/* Reset means setting to default path first. */
|
||||
xfree (source_path);
|
||||
init_source_path ();
|
||||
}
|
||||
|
||||
for (i = argc - 1; i >= 0; --i)
|
||||
env_mod_path (argv[i], &source_path);
|
||||
init_last_source_visited ();
|
||||
|
||||
ui_out_field_string (uiout, "source-path", source_path);
|
||||
forget_cached_source_info ();
|
||||
|
||||
return MI_CMD_DONE;
|
||||
}
|
||||
|
||||
void
|
||||
_initialize_mi_cmd_env (void)
|
||||
{
|
||||
char *env;
|
||||
|
||||
/* We want original execution path to reset to, if desired later. */
|
||||
env = get_in_environ (inferior_environ, path_var_name);
|
||||
|
||||
/* Can be null if path is not set. */
|
||||
if (!env)
|
||||
env = "";
|
||||
orig_path = xstrdup (env);
|
||||
}
|
||||
Reference in New Issue
Block a user