-/* Top level for GDB, the GNU debugger.
- Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc.
-
-GDB is distributed in the hope that it will be useful, but WITHOUT ANY
-WARRANTY. No author or distributor accepts responsibility to anyone
-for the consequences of using it or for whether it serves any
-particular purpose or works at all, unless he says so in writing.
-Refer to the GDB General Public License for full details.
-
-Everyone is granted permission to copy, modify and redistribute GDB,
-but only under the conditions described in the GDB General Public
-License. A copy of this license is supposed to have been given to you
-along with GDB so you can know your rights and responsibilities. It
-should be in a file named COPYING. Among other things, the copyright
-notice and this notice must be preserved on all copies.
-
-In other words, go ahead and share GDB, but don't try to stop
-anyone else from sharing it farther. Help stamp out software hoarding!
-*/
-
-#include <sys/file.h>
-#include <stdio.h>
-#include <setjmp.h>
-#include <signal.h>
-#include <sys/param.h>
-#include "defs.h"
-#include "command.h"
-#include "param.h"
-
-#ifdef SET_STACK_LIMIT_HUGE
-#include <sys/time.h>
-#include <sys/resource.h>
-#endif
+/* Top level stuff for GDB, the GNU debugger.
-/* Version number of GDB, as a string. */
+ Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
+ 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
+ Free Software Foundation, Inc.
-extern char *version;
+ This file is part of GDB.
-/* Chain containing all defined commands. */
+ 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.
-struct cmd_list_element *cmdlist;
+ 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.
-/* Chain containing all defined info subcommands. */
+ 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. */
-struct cmd_list_element *infolist;
+#include "defs.h"
+#include "top.h"
+#include "target.h"
+#include "inferior.h"
+#include "symfile.h"
+#include "gdbcore.h"
-/* stdio stream that command input is being read from. */
+#include "exceptions.h"
+#include "getopt.h"
-FILE *instream;
+#include <sys/types.h>
+#include "gdb_stat.h"
+#include <ctype.h>
-/* Current working directory. */
+#include "gdb_string.h"
+#include "event-loop.h"
+#include "ui-out.h"
-char *current_directory;
+#include "interps.h"
+#include "main.h"
-/* The directory name is actually stored here (usually). */
-static char dirbuf[MAXPATHLEN];
+/* If nonzero, display time usage both at startup and for each command. */
-/* Nonzero if we should refrain from using an X window. */
+int display_time;
-int inhibit_windows = 0;
+/* If nonzero, display space usage both at startup and for each command. */
-/* Hook for window manager argument parsing. */
+int display_space;
-int *win_argc;
-char **win_argv;
-char *win_prgm;
+/* The selected interpreter. This will be used as a set command
+ variable, so it should always be malloc'ed - since
+ do_setshow_command will free it. */
+char *interpreter_p;
-/* Function to call before reading a command, if nonzero.
- The function receives two args: an input stream,
- and a prompt string. */
-
-void (*window_hook) ();
+/* Whether xdb commands will be handled */
+int xdb_commands = 0;
-extern int frame_file_full_name;
+/* Whether dbx commands will be handled */
+int dbx_commands = 0;
-void free_command_lines ();
-char *read_line ();
-static void initialize_main ();
-void command_loop ();
-static void source_command ();
-void print_gdb_version ();
+/* System root path, used to find libraries etc. */
+char *gdb_sysroot = 0;
-/* gdb prints this when reading a command interactively */
-static char *prompt;
+struct ui_file *gdb_stdout;
+struct ui_file *gdb_stderr;
+struct ui_file *gdb_stdlog;
+struct ui_file *gdb_stdin;
+/* target IO streams */
+struct ui_file *gdb_stdtargin;
+struct ui_file *gdb_stdtarg;
+struct ui_file *gdb_stdtargerr;
-/* Buffer used for reading command lines, and the size
- allocated for it so far. */
+/* Support for the --batch-silent option. */
+int batch_silent = 0;
-char *line;
-int linesize;
-\f
-/* This is how `error' returns to command level. */
+/* Support for --return-child-result option.
+ Set the default to -1 to return error in the case
+ that the program does not run or does not complete. */
+int return_child_result = 0;
+int return_child_result_value = -1;
-jmp_buf to_top_level;
+/* Whether to enable writing into executable and core files */
+extern int write_files;
-return_to_top_level ()
-{
- quit_flag = 0;
- immediate_quit = 0;
- clear_breakpoint_commands ();
- clear_momentary_breakpoints ();
- delete_current_display ();
- do_cleanups (0);
- longjmp (to_top_level, 1);
-}
+static void print_gdb_help (struct ui_file *);
-/* Call FUNC with arg ARG, catching any errors.
- If there is no error, return the value returned by FUNC.
- If there is an error, return zero after printing ERRSTRING
- (which is in addition to the specific error message already printed). */
+/* These two are used to set the external editor commands when gdb is farming
+ out files to be edited by another program. */
-int
-catch_errors (func, arg, errstring)
- int (*func) ();
- int arg;
- char *errstring;
-{
- jmp_buf saved;
- int val;
+extern char *external_editor_command;
- bcopy (to_top_level, saved, sizeof (jmp_buf));
+/* Call command_loop. If it happens to return, pass that through as a
+ non-zero return status. */
- if (setjmp (to_top_level) == 0)
- val = (*func) (arg);
- else
- {
- fprintf (stderr, "%s\n", errstring);
- val = 0;
- }
-
- bcopy (saved, to_top_level, sizeof (jmp_buf));
- return val;
-}
-
-/* Handler for SIGHUP. */
-
-static void
-disconnect ()
+static int
+captured_command_loop (void *data)
{
- kill_inferior_fast ();
- signal (SIGHUP, SIG_DFL);
- kill (getpid (), SIGHUP);
+ current_interp_command_loop ();
+ /* FIXME: cagney/1999-11-05: A correct command_loop() implementaton
+ would clean things up (restoring the cleanup chain) to the state
+ they were just prior to the call. Technically, this means that
+ the do_cleanups() below is redundant. Unfortunately, many FUNCs
+ are not that well behaved. do_cleanups should either be replaced
+ with a do_cleanups call (to cover the problem) or an assertion
+ check to detect bad FUNCs code. */
+ do_cleanups (ALL_CLEANUPS);
+ /* If the command_loop returned, normally (rather than threw an
+ error) we try to quit. If the quit is aborted, catch_errors()
+ which called this catch the signal and restart the command
+ loop. */
+ quit_command (NULL, instream == stdin);
+ return 1;
}
-\f
-main (argc, argv, envp)
- int argc;
- char **argv;
- char **envp;
+
+static int
+captured_main (void *data)
{
- extern void request_quit ();
+ struct captured_main_args *context = data;
+ int argc = context->argc;
+ char **argv = context->argv;
int count;
- int inhibit_gdbinit = 0;
- int quiet = 0;
- int batch = 0;
- register int i;
+ static int quiet = 0;
+ static int batch = 0;
+ static int set_args = 0;
+
+ /* Pointers to various arguments from command line. */
+ char *symarg = NULL;
+ char *execarg = NULL;
+ char *corearg = NULL;
+ char *cdarg = NULL;
+ char *ttyarg = NULL;
+
+ /* These are static so that we can take their address in an initializer. */
+ static int print_help;
+ static int print_version;
+
+ /* Pointers to all arguments of --command option. */
+ struct cmdarg {
+ enum {
+ CMDARG_FILE,
+ CMDARG_COMMAND
+ } type;
+ char *string;
+ } *cmdarg;
+ /* Allocated size of cmdarg. */
+ int cmdsize;
+ /* Number of elements of cmdarg used. */
+ int ncmd;
+
+ /* Indices of all arguments of --directory option. */
+ char **dirarg;
+ /* Allocated size. */
+ int dirsize;
+ /* Number of elements used. */
+ int ndir;
+
+ struct stat homebuf, cwdbuf;
+ char *homedir;
+
+ int i;
+
+ long time_at_startup = get_run_time ();
+
+#if defined (HAVE_SETLOCALE) && defined (HAVE_LC_MESSAGES)
+ setlocale (LC_MESSAGES, "");
+#endif
+#if defined (HAVE_SETLOCALE)
+ setlocale (LC_CTYPE, "");
+#endif
+ bindtextdomain (PACKAGE, LOCALEDIR);
+ textdomain (PACKAGE);
- quit_flag = 0;
- linesize = 100;
- line = (char *) xmalloc (linesize);
- instream = stdin;
+#ifdef HAVE_SBRK
+ lim_at_start = (char *) sbrk (0);
+#endif
- getwd (dirbuf);
- current_directory = dirbuf;
+#if defined (ALIGN_STACK_ON_STARTUP)
+ i = (int) &count & 0x3;
+ if (i != 0)
+ alloca (4 - i);
+#endif
- win_argc = &argc;
- win_argv = argv;
- win_prgm = argv[0];
+ cmdsize = 1;
+ cmdarg = (struct cmdarg *) xmalloc (cmdsize * sizeof (*cmdarg));
+ ncmd = 0;
+ dirsize = 1;
+ dirarg = (char **) xmalloc (dirsize * sizeof (*dirarg));
+ ndir = 0;
-#ifdef SET_STACK_LIMIT_HUGE
- {
- struct rlimit rlim;
+ quit_flag = 0;
+ line = (char *) xmalloc (linesize);
+ line[0] = '\0'; /* Terminate saved (now empty) cmd line */
+ instream = stdin;
- /* Set the stack limit huge so that alloca (particularly stringtab
- * in dbxread.c) does not fail. */
- getrlimit (RLIMIT_STACK, &rlim);
- rlim.rlim_cur = rlim.rlim_max;
- setrlimit (RLIMIT_STACK, &rlim);
- }
-#endif /* SET_STACK_LIMIT_HUGE */
+ getcwd (gdb_dirbuf, sizeof (gdb_dirbuf));
+ current_directory = gdb_dirbuf;
+
+ gdb_stdout = stdio_fileopen (stdout);
+ gdb_stderr = stdio_fileopen (stderr);
+ gdb_stdlog = gdb_stderr; /* for moment */
+ gdb_stdtarg = gdb_stderr; /* for moment */
+ gdb_stdin = stdio_fileopen (stdin);
+ gdb_stdtargerr = gdb_stderr; /* for moment */
+ gdb_stdtargin = gdb_stdin; /* for moment */
+
+ /* Set the sysroot path. */
+#ifdef TARGET_SYSTEM_ROOT_RELOCATABLE
+ gdb_sysroot = make_relative_prefix (argv[0], BINDIR, TARGET_SYSTEM_ROOT);
+ if (gdb_sysroot)
+ {
+ struct stat s;
+ int res = 0;
- /* Look for flag arguments. */
+ if (stat (gdb_sysroot, &s) == 0)
+ if (S_ISDIR (s.st_mode))
+ res = 1;
- for (i = 1; i < argc; i++)
- {
- if (!strcmp (argv[i], "-q") || !strcmp (argv[i], "-quiet"))
- quiet = 1;
- else if (!strcmp (argv[i], "-nx"))
- inhibit_gdbinit = 1;
- else if (!strcmp (argv[i], "-nw"))
- inhibit_windows = 1;
- else if (!strcmp (argv[i], "-batch"))
- batch = 1, quiet = 1;
- else if (!strcmp (argv[i], "-fullname"))
- frame_file_full_name = 1;
- else if (argv[i][0] == '-')
- i++;
+ if (res == 0)
+ {
+ xfree (gdb_sysroot);
+ gdb_sysroot = TARGET_SYSTEM_ROOT;
+ }
}
+ else
+ gdb_sysroot = TARGET_SYSTEM_ROOT;
+#else
+#if defined (TARGET_SYSTEM_ROOT)
+ gdb_sysroot = TARGET_SYSTEM_ROOT;
+#else
+ gdb_sysroot = "";
+#endif
+#endif
- /* Run the init function of each source file */
-
- initialize_all_files ();
- initialize_main (); /* But that omits this file! Do it now */
+ /* There will always be an interpreter. Either the one passed into
+ this captured main, or one specified by the user at start up, or
+ the console. Initialize the interpreter to the one requested by
+ the application. */
+ interpreter_p = xstrdup (context->interpreter_p);
- signal (SIGINT, request_quit);
- signal (SIGQUIT, SIG_IGN);
- if (signal (SIGHUP, SIG_IGN) != SIG_IGN)
- signal (SIGHUP, disconnect);
+ /* Parse arguments and options. */
+ {
+ int c;
+ /* When var field is 0, use flag field to record the equivalent
+ short option (or arbitrary numbers starting at 10 for those
+ with no equivalent). */
+ enum {
+ OPT_SE = 10,
+ OPT_CD,
+ OPT_ANNOTATE,
+ OPT_STATISTICS,
+ OPT_TUI,
+ OPT_NOWINDOWS,
+ OPT_WINDOWS
+ };
+ static struct option long_options[] =
+ {
+#if defined(TUI)
+ {"tui", no_argument, 0, OPT_TUI},
+#endif
+ {"xdb", no_argument, &xdb_commands, 1},
+ {"dbx", no_argument, &dbx_commands, 1},
+ {"readnow", no_argument, &readnow_symbol_files, 1},
+ {"r", no_argument, &readnow_symbol_files, 1},
+ {"quiet", no_argument, &quiet, 1},
+ {"q", no_argument, &quiet, 1},
+ {"silent", no_argument, &quiet, 1},
+ {"nx", no_argument, &inhibit_gdbinit, 1},
+ {"n", no_argument, &inhibit_gdbinit, 1},
+ {"batch-silent", no_argument, 0, 'B'},
+ {"batch", no_argument, &batch, 1},
+ {"epoch", no_argument, &epoch_interface, 1},
+
+ /* This is a synonym for "--annotate=1". --annotate is now preferred,
+ but keep this here for a long time because people will be running
+ emacses which use --fullname. */
+ {"fullname", no_argument, 0, 'f'},
+ {"f", no_argument, 0, 'f'},
+
+ {"annotate", required_argument, 0, OPT_ANNOTATE},
+ {"help", no_argument, &print_help, 1},
+ {"se", required_argument, 0, OPT_SE},
+ {"symbols", required_argument, 0, 's'},
+ {"s", required_argument, 0, 's'},
+ {"exec", required_argument, 0, 'e'},
+ {"e", required_argument, 0, 'e'},
+ {"core", required_argument, 0, 'c'},
+ {"c", required_argument, 0, 'c'},
+ {"pid", required_argument, 0, 'p'},
+ {"p", required_argument, 0, 'p'},
+ {"command", required_argument, 0, 'x'},
+ {"eval-command", required_argument, 0, 'X'},
+ {"version", no_argument, &print_version, 1},
+ {"x", required_argument, 0, 'x'},
+ {"ex", required_argument, 0, 'X'},
+#ifdef GDBTK
+ {"tclcommand", required_argument, 0, 'z'},
+ {"enable-external-editor", no_argument, 0, 'y'},
+ {"editor-command", required_argument, 0, 'w'},
+#endif
+ {"ui", required_argument, 0, 'i'},
+ {"interpreter", required_argument, 0, 'i'},
+ {"i", required_argument, 0, 'i'},
+ {"directory", required_argument, 0, 'd'},
+ {"d", required_argument, 0, 'd'},
+ {"cd", required_argument, 0, OPT_CD},
+ {"tty", required_argument, 0, 't'},
+ {"baud", required_argument, 0, 'b'},
+ {"b", required_argument, 0, 'b'},
+ {"nw", no_argument, NULL, OPT_NOWINDOWS},
+ {"nowindows", no_argument, NULL, OPT_NOWINDOWS},
+ {"w", no_argument, NULL, OPT_WINDOWS},
+ {"windows", no_argument, NULL, OPT_WINDOWS},
+ {"statistics", no_argument, 0, OPT_STATISTICS},
+ {"write", no_argument, &write_files, 1},
+ {"args", no_argument, &set_args, 1},
+ {"l", required_argument, 0, 'l'},
+ {"return-child-result", no_argument, &return_child_result, 1},
+ {0, no_argument, 0, 0}
+ };
+
+ while (1)
+ {
+ int option_index;
- if (!quiet)
- print_gdb_version ();
+ c = getopt_long_only (argc, argv, "",
+ long_options, &option_index);
+ if (c == EOF || set_args)
+ break;
- /* Process the command line arguments. */
+ /* Long option that takes an argument. */
+ if (c == 0 && long_options[option_index].flag == 0)
+ c = long_options[option_index].val;
- count = 0;
- for (i = 1; i < argc; i++)
- {
- register char *arg = argv[i];
- /* Args starting with - say what to do with the following arg
- as a filename. */
- if (arg[0] == '-')
- {
- extern void exec_file_command (), symbol_file_command ();
- extern void core_file_command (), directory_command ();
- extern void tty_command ();
-
- if (!strcmp (arg, "-q") || !strcmp (arg, "-nx")
- || !strcmp (arg, "-quiet") || !strcmp (arg, "-batch")
- || !strcmp (arg, "-fullname"))
- /* Already processed above */
- continue;
-
- if (++i == argc)
- fprintf (stderr, "No argument follows \"%s\".\n", arg);
- if (!setjmp (to_top_level))
+ switch (c)
+ {
+ case 0:
+ /* Long option that just sets a flag. */
+ break;
+ case OPT_SE:
+ symarg = optarg;
+ execarg = optarg;
+ break;
+ case OPT_CD:
+ cdarg = optarg;
+ break;
+ case OPT_ANNOTATE:
+ /* FIXME: what if the syntax is wrong (e.g. not digits)? */
+ annotation_level = atoi (optarg);
+ break;
+ case OPT_STATISTICS:
+ /* Enable the display of both time and space usage. */
+ display_time = 1;
+ display_space = 1;
+ break;
+ case OPT_TUI:
+ /* --tui is equivalent to -i=tui. */
+ xfree (interpreter_p);
+ interpreter_p = xstrdup (INTERP_TUI);
+ break;
+ case OPT_WINDOWS:
+ /* FIXME: cagney/2003-03-01: Not sure if this option is
+ actually useful, and if it is, what it should do. */
+#ifdef GDBTK
+ /* --windows is equivalent to -i=insight. */
+ xfree (interpreter_p);
+ interpreter_p = xstrdup (INTERP_INSIGHT);
+#endif
+ use_windows = 1;
+ break;
+ case OPT_NOWINDOWS:
+ /* -nw is equivalent to -i=console. */
+ xfree (interpreter_p);
+ interpreter_p = xstrdup (INTERP_CONSOLE);
+ use_windows = 0;
+ break;
+ case 'f':
+ annotation_level = 1;
+/* We have probably been invoked from emacs. Disable window interface. */
+ use_windows = 0;
+ break;
+ case 's':
+ symarg = optarg;
+ break;
+ case 'e':
+ execarg = optarg;
+ break;
+ case 'c':
+ corearg = optarg;
+ break;
+ case 'p':
+ /* "corearg" is shared by "--core" and "--pid" */
+ corearg = optarg;
+ break;
+ case 'x':
+ cmdarg[ncmd].type = CMDARG_FILE;
+ cmdarg[ncmd++].string = optarg;
+ if (ncmd >= cmdsize)
+ {
+ cmdsize *= 2;
+ cmdarg = xrealloc ((char *) cmdarg,
+ cmdsize * sizeof (*cmdarg));
+ }
+ break;
+ case 'X':
+ cmdarg[ncmd].type = CMDARG_COMMAND;
+ cmdarg[ncmd++].string = optarg;
+ if (ncmd >= cmdsize)
+ {
+ cmdsize *= 2;
+ cmdarg = xrealloc ((char *) cmdarg,
+ cmdsize * sizeof (*cmdarg));
+ }
+ break;
+ case 'B':
+ batch = batch_silent = 1;
+ gdb_stdout = ui_file_new();
+ break;
+#ifdef GDBTK
+ case 'z':
{
- /* -s foo: get syms from foo. -e foo: execute foo.
- -se foo: do both with foo. -c foo: use foo as core dump. */
- if (!strcmp (arg, "-se"))
- {
- exec_file_command (argv[i], !batch);
- symbol_file_command (argv[i], !batch);
- }
- else if (!strcmp (arg, "-s") || !strcmp (arg, "-symbols"))
- symbol_file_command (argv[i], !batch);
- else if (!strcmp (arg, "-e") || !strcmp (arg, "-exec"))
- exec_file_command (argv[i], !batch);
- else if (!strcmp (arg, "-c") || !strcmp (arg, "-core"))
- core_file_command (argv[i], !batch);
- /* -x foo: execute commands from foo. */
- else if (!strcmp (arg, "-x") || !strcmp (arg, "-command")
- || !strcmp (arg, "-commands"))
- source_command (argv[i]);
- /* -d foo: add directory `foo' to source-file directory
- search-list */
- else if (!strcmp (arg, "-d") || !strcmp (arg, "-dir")
- || !strcmp (arg, "-directory"))
- directory_command (argv[i], 0);
- /* -cd FOO: specify current directory as FOO.
- GDB remembers the precise string FOO as the dirname. */
- else if (!strcmp (arg, "-cd"))
+extern int gdbtk_test (char *);
+ if (!gdbtk_test (optarg))
{
- int len = strlen (argv[i]);
- current_directory = argv[i];
- if (len > 1 && current_directory[len - 1] == '/')
- current_directory = savestring (current_directory, len-1);
- chdir (current_directory);
- init_source_path ();
+ fprintf_unfiltered (gdb_stderr, _("%s: unable to load tclcommand file \"%s\""),
+ argv[0], optarg);
+ exit (1);
}
- /* -t /def/ttyp1: use /dev/ttyp1 for inferior I/O. */
- else if (!strcmp (arg, "-t") || !strcmp (arg, "-tty"))
- tty_command (argv[i], 0);
- else
- error ("Unknown command-line switch: \"%s\"\n", arg);
+ break;
}
- }
- else
- {
- /* Args not thus accounted for
- are treated as, first, the symbol/executable file
- and, second, the core dump file. */
- count++;
- if (!setjmp (to_top_level))
- switch (count)
+ case 'y':
+ /* Backwards compatibility only. */
+ break;
+ case 'w':
+ {
+ external_editor_command = xstrdup (optarg);
+ break;
+ }
+#endif /* GDBTK */
+ case 'i':
+ xfree (interpreter_p);
+ interpreter_p = xstrdup (optarg);
+ break;
+ case 'd':
+ dirarg[ndir++] = optarg;
+ if (ndir >= dirsize)
{
- case 1:
- exec_file_command (arg, !batch);
- symbol_file_command (arg, !batch);
- break;
-
- case 2:
- core_file_command (arg, !batch);
- break;
-
- case 3:
- fprintf (stderr, "Excess command line args ignored. (%s%s)\n",
- arg, (i == argc - 1) ? "" : " ...");
+ dirsize *= 2;
+ dirarg = (char **) xrealloc ((char *) dirarg,
+ dirsize * sizeof (*dirarg));
}
- }
- }
+ break;
+ case 't':
+ ttyarg = optarg;
+ break;
+ case 'q':
+ quiet = 1;
+ break;
+ case 'b':
+ {
+ int i;
+ char *p;
- /* Read init file, if it exists in home directory */
- if (getenv ("HOME"))
- {
- char *s;
- s = (char *) xmalloc (strlen (getenv ("HOME")) + 10);
- strcpy (s, getenv ("HOME"));
- strcat (s, "/.gdbinit");
- if (!inhibit_gdbinit && access (s, R_OK) == 0)
- if (!setjmp (to_top_level))
- source_command (s);
- }
+ i = strtol (optarg, &p, 0);
+ if (i == 0 && p == optarg)
- /* Read init file, if it exists in current directory. */
- if (!inhibit_gdbinit && access (".gdbinit", R_OK) == 0)
- if (!setjmp (to_top_level))
- source_command (".gdbinit");
+ /* Don't use *_filtered or warning() (which relies on
+ current_target) until after initialize_all_files(). */
- if (batch)
- fatal ("Attempt to read commands from stdin in batch mode.");
+ fprintf_unfiltered
+ (gdb_stderr,
+ _("warning: could not set baud rate to `%s'.\n"), optarg);
+ else
+ baud_rate = i;
+ }
+ break;
+ case 'l':
+ {
+ int i;
+ char *p;
- if (!quiet)
- printf ("Type \"help\" for a list of commands.\n");
+ i = strtol (optarg, &p, 0);
+ if (i == 0 && p == optarg)
- /* The command loop. */
+ /* Don't use *_filtered or warning() (which relies on
+ current_target) until after initialize_all_files(). */
- while (1)
- {
- if (!setjmp (to_top_level))
- command_loop ();
- clearerr (stdin); /* Don't get hung if C-d is typed. */
- }
-}
+ fprintf_unfiltered
+ (gdb_stderr,
+ _("warning: could not set timeout limit to `%s'.\n"), optarg);
+ else
+ remote_timeout = i;
+ }
+ break;
-/* Execute the line P as a command.
- Pass FROM_TTY as second argument to the defining function. */
+ case '?':
+ fprintf_unfiltered (gdb_stderr,
+ _("Use `%s --help' for a complete list of options.\n"),
+ argv[0]);
+ exit (1);
+ }
+ }
-void
-execute_command (p, from_tty)
- char *p;
- int from_tty;
-{
- register struct cmd_list_element *c;
- register struct command_line *cmdlines;
+ /* If --help or --version, disable window interface. */
+ if (print_help || print_version)
+ {
+ use_windows = 0;
+ }
- free_all_values ();
- while (*p == ' ' || *p == '\t') p++;
- if (*p)
- {
- c = lookup_cmd (&p, cmdlist, "", 0);
- if (c->function == 0)
- error ("That is not a command, just a help topic.");
- else if (c->class == (int) class_user)
- {
- if (*p)
- error ("User-defined commands cannot take arguments.");
- cmdlines = (struct command_line *) c->function;
- if (cmdlines == (struct command_line *) 0)
- /* Null command */
- return;
- while (cmdlines)
+ if (set_args)
+ {
+ /* The remaining options are the command-line options for the
+ inferior. The first one is the sym/exec file, and the rest
+ are arguments. */
+ if (optind >= argc)
+ {
+ fprintf_unfiltered (gdb_stderr,
+ _("%s: `--args' specified but no program specified\n"),
+ argv[0]);
+ exit (1);
+ }
+ symarg = argv[optind];
+ execarg = argv[optind];
+ ++optind;
+ set_inferior_args_vector (argc - optind, &argv[optind]);
+ }
+ else
+ {
+ /* OK, that's all the options. The other arguments are filenames. */
+ count = 0;
+ for (; optind < argc; optind++)
+ switch (++count)
{
- execute_command (cmdlines->line, 0);
- cmdlines = cmdlines->next;
+ case 1:
+ symarg = argv[optind];
+ execarg = argv[optind];
+ break;
+ case 2:
+ /* The documentation says this can be a "ProcID" as well.
+ We will try it as both a corefile and a pid. */
+ corearg = argv[optind];
+ break;
+ case 3:
+ fprintf_unfiltered (gdb_stderr,
+ _("Excess command line arguments ignored. (%s%s)\n"),
+ argv[optind], (optind == argc - 1) ? "" : " ...");
+ break;
}
- }
- else
- /* Pass null arg rather than an empty one. */
- (*c->function) (*p ? p : 0, from_tty);
- }
-}
+ }
+ if (batch)
+ quiet = 1;
+ }
-static void
-do_nothing ()
-{
-}
+ /* Initialize all files. Give the interpreter a chance to take
+ control of the console via the deprecated_init_ui_hook (). */
+ gdb_init (argv[0]);
-/* Read commands from `instream' and execute them
- until end of file. */
-void
-command_loop ()
-{
- struct cleanup *old_chain;
- while (!feof (instream))
+ /* Do these (and anything which might call wrap_here or *_filtered)
+ after initialize_all_files() but before the interpreter has been
+ installed. Otherwize the help/version messages will be eaten by
+ the interpreter's output handler. */
+
+ if (print_version)
{
- if (instream == stdin)
- printf ("%s", prompt);
- fflush (stdout);
-
- if (window_hook && instream == stdin)
- (*window_hook) (instream, prompt);
-
- quit_flag = 0;
- old_chain = make_cleanup (do_nothing, 0);
- execute_command (read_line (instream == stdin), instream == stdin);
- /* Do any commands attached to breakpoint we stopped at. */
- do_breakpoint_commands ();
- do_cleanups (old_chain);
+ print_gdb_version (gdb_stdout);
+ wrap_here ("");
+ printf_filtered ("\n");
+ exit (0);
}
-}
-\f
-#ifdef SIGTSTP
-static void
-stop_sig ()
-{
- signal (SIGTSTP, SIG_DFL);
- sigsetmask (0);
- kill (getpid (), SIGTSTP);
- signal (SIGTSTP, stop_sig);
- printf ("%s", prompt);
- fflush (stdout);
-
- /* Forget about any previous command -- null line now will do nothing. */
- *line = 0;
-}
-#endif /* SIGTSTP */
-
-/* Commands call this if they do not want to be repeated by null lines. */
-void
-dont_repeat ()
-{
- *line = 0;
-}
-
-/* Read one line from the command input stream `instream'
- into the buffer `line' (whose current length is `linesize').
- The buffer is made bigger as necessary.
- Returns the address of the start of the line. */
-
-char *
-read_line (repeat)
- int repeat;
-{
- register char *p = line;
- register char *p1;
- register int c;
- char *nline;
-
- /* Control-C quits instantly if typed while in this loop
- since it should not wait until the user types a newline. */
- immediate_quit++;
-#ifdef SIGTSTP
- signal (SIGTSTP, stop_sig);
-#endif
-
- while (1)
+ if (print_help)
{
- c = fgetc (instream);
- if (c == -1 || c == '\n')
- break;
- /* Ignore backslash-newline; keep adding to the same line. */
- else if (c == '\\')
- {
- int c1 = fgetc (instream);
- if (c1 == '\n')
- continue;
- else
- ungetc (c1, instream);
- }
-
- if (p - line == linesize - 1)
- {
- linesize *= 2;
- nline = (char *) xrealloc (line, linesize);
- p += nline - line;
- line = nline;
- }
- *p++ = c;
+ print_gdb_help (gdb_stdout);
+ fputs_unfiltered ("\n", gdb_stdout);
+ exit (0);
}
-#ifdef SIGTSTP
- signal (SIGTSTP, SIG_DFL);
-#endif
- immediate_quit--;
-
- /* If we just got an empty line, and that is supposed
- to repeat the previous command, leave the last input unchanged. */
- if (p == line && repeat)
- return line;
-
- /* If line is a comment, clear it out. */
- p1 = line;
- while ((c = *p1) == ' ' || c == '\t') p1++;
- if (c == '#')
- p = line;
-
- *p = 0;
-
- return line;
-}
-\f
-/* Read lines from the input stream
- and accumulate them in a chain of struct command_line's
- which is then returned. */
-
-struct command_line *
-read_command_lines ()
-{
- struct command_line *first = 0;
- register struct command_line *next, *tail = 0;
- register char *p, *p1;
- struct cleanup *old_chain = 0;
-
- while (1)
+ /* FIXME: cagney/2003-02-03: The big hack (part 1 of 2) that lets
+ GDB retain the old MI1 interpreter startup behavior. Output the
+ copyright message before the interpreter is installed. That way
+ it isn't encapsulated in MI output. */
+ if (!quiet && strcmp (interpreter_p, INTERP_MI1) == 0)
{
- dont_repeat ();
- p = read_line (1);
- /* Remove leading and trailing blanks. */
- while (*p == ' ' || *p == '\t') p++;
- p1 = p + strlen (p);
- while (p1 != p && (p1[-1] == ' ' || p1[-1] == '\t')) p1--;
-
- /* Is this "end"? */
- if (p1 - p == 3 && !strncmp (p, "end", 3))
- break;
-
- /* No => add this line to the chain of command lines. */
- next = (struct command_line *) xmalloc (sizeof (struct command_line));
- next->line = savestring (p, p1 - p);
- next->next = 0;
- if (tail)
- {
- tail->next = next;
- }
- else
- {
- /* We just read the first line.
- From now on, arrange to throw away the lines we have
- if we quit or get an error while inside this function. */
- first = next;
- old_chain = make_cleanup (free_command_lines, &first);
- }
- tail = next;
+ /* Print all the junk at the top, with trailing "..." if we are about
+ to read a symbol file (possibly slowly). */
+ print_gdb_version (gdb_stdout);
+ if (symarg)
+ printf_filtered ("..");
+ wrap_here ("");
+ gdb_flush (gdb_stdout); /* Force to screen during slow operations */
}
- dont_repeat ();
- /* Now we are about to return the chain to our caller,
- so freeing it becomes his responsibility. */
- if (first)
- discard_cleanups (old_chain);
- return first;
-}
-
-/* Free a chain of struct command_line's. */
+ /* Install the default UI. All the interpreters should have had a
+ look at things by now. Initialize the default interpreter. */
-void
-free_command_lines (lptr)
- struct command_line **lptr;
-{
- register struct command_line *l = *lptr;
- register struct command_line *next;
+ {
+ /* Find it. */
+ struct interp *interp = interp_lookup (interpreter_p);
+ if (interp == NULL)
+ error (_("Interpreter `%s' unrecognized"), interpreter_p);
+ /* Install it. */
+ if (!interp_set (interp))
+ {
+ fprintf_unfiltered (gdb_stderr,
+ "Interpreter `%s' failed to initialize.\n",
+ interpreter_p);
+ exit (1);
+ }
+ }
- while (l)
+ /* FIXME: cagney/2003-02-03: The big hack (part 2 of 2) that lets
+ GDB retain the old MI1 interpreter startup behavior. Output the
+ copyright message after the interpreter is installed when it is
+ any sane interpreter. */
+ if (!quiet && !current_interp_named_p (INTERP_MI1))
{
- next = l->next;
- free (l->line);
- free (l);
- l = next;
+ /* Print all the junk at the top, with trailing "..." if we are about
+ to read a symbol file (possibly slowly). */
+ print_gdb_version (gdb_stdout);
+ if (symarg)
+ printf_filtered ("..");
+ wrap_here ("");
+ gdb_flush (gdb_stdout); /* Force to screen during slow operations */
}
-}
-\f
-/* Add an element to the list of info subcommands. */
-
-void
-add_info (name, fun, doc)
- char *name;
- void (*fun) ();
- char *doc;
-{
- add_cmd (name, 0, fun, doc, &infolist);
-}
-/* Add an alias to the list of info subcommands. */
+ error_pre_print = "\n\n";
+ quit_pre_print = error_pre_print;
-void
-add_info_alias (name, oldname, abbrev_flag)
- char *name;
- char *oldname;
- int abbrev_flag;
-{
- add_alias_cmd (name, oldname, 0, abbrev_flag, &infolist);
-}
-
-/* The "info" command is defined as a prefix, with allow_unknown = 0.
- Therefore, its own definition is called only for "info" with no args. */
-
-static void
-info_command ()
-{
- printf ("\"info\" must be followed by the name of an info command.\n");
- help_cmd (0, infolist, "info ", -1, stdout);
-}
-\f
-/* Add an element to the list of commands. */
-
-void
-add_com (name, class, fun, doc)
- char *name;
- int class;
- void (*fun) ();
- char *doc;
-{
- add_cmd (name, class, fun, doc, &cmdlist);
-}
+ /* We may get more than one warning, don't double space all of them... */
+ warning_pre_print = _("\nwarning: ");
-/* Add an alias or abbreviation command to the list of commands. */
+ /* Read and execute $HOME/.gdbinit file, if it exists. This is done
+ *before* all the command line arguments are processed; it sets
+ global parameters, which are independent of what file you are
+ debugging or what directory you are in. */
+ homedir = getenv ("HOME");
+ if (homedir)
+ {
+ char *homeinit = xstrprintf ("%s/%s", homedir, gdbinit);
-void
-add_com_alias (name, oldname, class, abbrev_flag)
- char *name;
- char *oldname;
- int class;
- int abbrev_flag;
-{
- add_alias_cmd (name, oldname, class, abbrev_flag, &cmdlist);
-}
+ if (!inhibit_gdbinit)
+ {
+ catch_command_errors (source_command, homeinit, 0, RETURN_MASK_ALL);
+ }
-void
-error_no_arg (why)
- char *why;
-{
- error ("Argument required (%s).", why);
-}
+ /* Do stats; no need to do them elsewhere since we'll only
+ need them if homedir is set. Make sure that they are
+ zero in case one of them fails (this guarantees that they
+ won't match if either exists). */
-static void
-help_command (command, from_tty)
- char *command;
- int from_tty; /* Ignored */
-{
- help_cmd (command, cmdlist, "", -2, stdout);
-}
-\f
-static void
-validate_comname (comname)
- char *comname;
-{
- register char *p;
+ memset (&homebuf, 0, sizeof (struct stat));
+ memset (&cwdbuf, 0, sizeof (struct stat));
- if (comname == 0)
- error_no_arg ("name of command to define");
+ stat (homeinit, &homebuf);
+ stat (gdbinit, &cwdbuf); /* We'll only need this if
+ homedir was set. */
+ xfree (homeinit);
+ }
- p = comname;
- while (*p)
+ /* Now perform all the actions indicated by the arguments. */
+ if (cdarg != NULL)
{
- if (!(*p >= 'A' && *p <= 'Z')
- && !(*p >= 'a' && *p <= 'z')
- && !(*p >= '0' && *p <= '9')
- && *p != '-')
- error ("Junk in argument list: \"%s\"", p);
- p++;
+ catch_command_errors (cd_command, cdarg, 0, RETURN_MASK_ALL);
}
-}
-static void
-define_command (comname, from_tty)
- char *comname;
- int from_tty;
-{
- register struct command_line *cmds;
- register struct cmd_list_element *c;
- char *tem = comname;
-
- validate_comname (comname);
+ for (i = 0; i < ndir; i++)
+ catch_command_errors (directory_command, dirarg[i], 0, RETURN_MASK_ALL);
+ xfree (dirarg);
- c = lookup_cmd (&tem, cmdlist, "", -1);
- if (c)
+ if (execarg != NULL
+ && symarg != NULL
+ && strcmp (execarg, symarg) == 0)
{
- if (c->class == (int) class_user || c->class == (int) class_alias)
- tem = "Redefine command \"%s\"? ";
- else
- tem = "Really redefine built-in command \"%s\"? ";
- if (!query (tem, comname))
- error ("Command \"%s\" not redefined.", comname);
+ /* The exec file and the symbol-file are the same. If we can't
+ open it, better only print one error message.
+ catch_command_errors returns non-zero on success! */
+ if (catch_command_errors (exec_file_attach, execarg, !batch, RETURN_MASK_ALL))
+ catch_command_errors (symbol_file_add_main, symarg, 0, RETURN_MASK_ALL);
+ }
+ else
+ {
+ if (execarg != NULL)
+ catch_command_errors (exec_file_attach, execarg, !batch, RETURN_MASK_ALL);
+ if (symarg != NULL)
+ catch_command_errors (symbol_file_add_main, symarg, 0, RETURN_MASK_ALL);
}
- if (from_tty)
- printf ("Type commands for definition of \"%s\".\n\
-End with a line saying just \"end\".\n", comname);
-
- comname = savestring (comname, strlen (comname));
-
- cmds = read_command_lines ();
-
- if (c && c->class == (int) class_user)
- free_command_lines (&c->function);
-
- add_com (comname, class_user, cmds,
- (c && c->class == (int) class_user)
- ? c->doc : savestring ("User-defined.", 13));
-}
-
-static void
-document_command (comname, from_tty)
- char *comname;
- int from_tty;
-{
- struct command_line *doclines;
- register struct cmd_list_element *c;
- char *tem = comname;
-
- validate_comname (comname);
-
- c = lookup_cmd (&tem, cmdlist, "", 0);
-
- if (c->class != (int) class_user)
- error ("Command \"%s\" is built-in.", comname);
-
- if (from_tty)
- printf ("Type documentation for \"%s\".\n\
-End with a line saying just \"end\".\n", comname);
+ /* After the symbol file has been read, print a newline to get us
+ beyond the copyright line... But errors should still set off
+ the error message with a (single) blank line. */
+ if (!quiet)
+ printf_filtered ("\n");
+ error_pre_print = "\n";
+ quit_pre_print = error_pre_print;
+ warning_pre_print = _("\nwarning: ");
- doclines = read_command_lines ();
+ if (corearg != NULL)
+ {
+ /* corearg may be either a corefile or a pid.
+ If its first character is a digit, try attach first
+ and then corefile. Otherwise try corefile first. */
- if (c->doc) free (c->doc);
+ if (isdigit (corearg[0]))
+ {
+ if (catch_command_errors (attach_command, corearg,
+ !batch, RETURN_MASK_ALL) == 0)
+ catch_command_errors (core_file_command, corearg,
+ !batch, RETURN_MASK_ALL);
+ }
+ else /* Can't be a pid, better be a corefile. */
+ catch_command_errors (core_file_command, corearg,
+ !batch, RETURN_MASK_ALL);
+ }
- {
- register struct command_line *cl1;
- register int len = 0;
+ if (ttyarg != NULL)
+ catch_command_errors (tty_command, ttyarg, !batch, RETURN_MASK_ALL);
- for (cl1 = doclines; cl1; cl1 = cl1->next)
- len += strlen (cl1->line) + 1;
+ /* Error messages should no longer be distinguished with extra output. */
+ error_pre_print = NULL;
+ quit_pre_print = NULL;
+ warning_pre_print = _("warning: ");
- c->doc = (char *) xmalloc (len + 1);
- *c->doc = 0;
+ /* Read the .gdbinit file in the current directory, *if* it isn't
+ the same as the $HOME/.gdbinit file (it should exist, also). */
- for (cl1 = doclines; cl1; cl1 = cl1->next)
+ if (!homedir
+ || memcmp ((char *) &homebuf, (char *) &cwdbuf, sizeof (struct stat)))
+ if (!inhibit_gdbinit)
{
- strcat (c->doc, cl1->line);
- if (cl1->next)
- strcat (c->doc, "\n");
+ catch_command_errors (source_command, gdbinit, 0, RETURN_MASK_ALL);
}
- }
-
- free_command_lines (&doclines);
-}
-\f
-static void
-copying_info ()
-{
- immediate_quit++;
- printf (" GDB GENERAL PUBLIC LICENSE\n\
- (Clarified 11 Feb 1988)\n\
-\n\
- Copyright (C) 1988 Richard M. Stallman\n\
- Everyone is permitted to copy and distribute verbatim copies\n\
- of this license, but changing it is not allowed.\n\
- You can also use this wording to make the terms for other programs.\n\
-\n\
- The license agreements of most software companies keep you at the\n\
-mercy of those companies. By contrast, our general public license is\n\
-intended to give everyone the right to share GDB. To make sure that\n\
-you get the rights we want you to have, we need to make restrictions\n\
-that forbid anyone to deny you these rights or to ask you to surrender\n\
-the rights. Hence this license agreement.\n\
-\n\
- Specifically, we want to make sure that you have the right to give\n\
-away copies of GDB, that you receive source code or else can get it\n\
-if you want it, that you can change GDB or use pieces of it in new\n\
-free programs, and that you know you can do these things.\n\
---Type Return to print more--");
- fflush (stdout);
- read_line ();
-
- printf ("\
- To make sure that everyone has such rights, we have to forbid you to\n\
-deprive anyone else of these rights. For example, if you distribute\n\
-copies of GDB, you must give the recipients all the rights that you\n\
-have. You must make sure that they, too, receive or can get the\n\
-source code. And you must tell them their rights.\n\
-\n\
- Also, for our own protection, we must make certain that everyone\n\
-finds out that there is no warranty for GDB. If GDB is modified by\n\
-someone else and passed on, we want its recipients to know that what\n\
-they have is not what we distributed, so that any problems introduced\n\
-by others will not reflect on our reputation.\n\
-\n\
- Therefore we (Richard Stallman and the Free Software Foundation,\n\
-Inc.) make the following terms which say what you must do to be\n\
-allowed to distribute or change GDB.\n\
---Type Return to print more--");
- fflush (stdout);
- read_line ();
-
- printf ("\
- COPYING POLICIES\n\
-\n\
- 1. You may copy and distribute verbatim copies of GDB source code as\n\
-you receive it, in any medium, provided that you conspicuously and\n\
-appropriately publish on each copy a valid copyright notice \"Copyright\n\
-\(C) 1988 Free Software Foundation, Inc.\" (or with whatever year is\n\
-appropriate); keep intact the notices on all files that refer\n\
-to this License Agreement and to the absence of any warranty; and give\n\
-any other recipients of the GDB program a copy of this License\n\
-Agreement along with the program. You may charge a distribution fee\n\
-for the physical act of transferring a copy.\n\
-\n\
- 2. You may modify your copy or copies of GDB or any portion of it,\n\
-and copy and distribute such modifications under the terms of\n\
-Paragraph 1 above, provided that you also do the following:\n\
-\n\
- a) cause the modified files to carry prominent notices stating\n\
- that you changed the files and the date of any change; and\n\
---Type Return to print more--");
- fflush (stdout);
- read_line ();
-
- printf ("\
- b) cause the whole of any work that you distribute or publish,\n\
- that in whole or in part contains or is a derivative of GDB\n\
- or any part thereof, to be licensed to all third parties on terms\n\
- identical to those contained in this License Agreement (except that\n\
- you may choose to grant more extensive warranty protection to some\n\
- or all third parties, at your option).\n\
-\n");
- printf ("\
- c) if the modified program serves as a debugger, cause it\n\
- when started running in the simplest and usual way, to print\n\
- an announcement including a valid copyright notice\n\
- \"Copyright (C) 1988 Free Software Foundation, Inc.\" (or with\n\
- the year that is appropriate), saying that there is no warranty\n\
- (or else, saying that you provide a warranty) and that users may\n\
- redistribute the program under these conditions, and telling the user\n\
- how to view a copy of this License Agreement.\n\
-\n\
- d) You may charge a distribution fee for the physical act of\n\
- transferring a copy, and you may at your option offer warranty\n\
- protection in exchange for a fee.\n\
-\n\
-Mere aggregation of another unrelated program with this program (or its\n\
-derivative) on a volume of a storage or distribution medium does not bring\n\
-the other program under the scope of these terms.\n\
---Type Return to print more--");
- fflush (stdout);
- read_line ();
-
- printf ("\
- 3. You may copy and distribute GDB (or a portion or derivative of it,\n\
-under Paragraph 2) in object code or executable form under the terms of\n\
-Paragraphs 1 and 2 above provided that you also do one of the following:\n\
-\n\
- a) accompany it with the complete corresponding machine-readable\n\
- source code, which must be distributed under the terms of\n\
- Paragraphs 1 and 2 above; or,\n\
-\n\
- b) accompany it with a written offer, valid for at least three\n\
- years, to give any third party free (except for a nominal\n\
- shipping charge) a complete machine-readable copy of the\n\
- corresponding source code, to be distributed under the terms of\n\
- Paragraphs 1 and 2 above; or,\n\n");
-
- printf ("\
- c) accompany it with the information you received as to where the\n\
- corresponding source code may be obtained. (This alternative is\n\
- allowed only for noncommercial distribution and only if you\n\
- received the program in object code or executable form alone.)\n\
-\n\
-For an executable file, complete source code means all the source code for\n\
-all modules it contains; but, as a special exception, it need not include\n\
-source code for modules which are standard libraries that accompany the\n\
-operating system on which the executable file runs.\n\
---Type Return to print more--");
- fflush (stdout);
- read_line ();
-
- printf ("\
- 4. You may not copy, sublicense, distribute or transfer GDB\n\
-except as expressly provided under this License Agreement. Any attempt\n\
-otherwise to copy, sublicense, distribute or transfer GDB is void and\n\
-your rights to use the program under this License agreement shall be\n\
-automatically terminated. However, parties who have received computer\n\
-software programs from you with this License Agreement will not have\n\
-their licenses terminated so long as such parties remain in full compliance.\n\
-\n\
- 5. If you wish to incorporate parts of GDB into other free\n\
-programs whose distribution conditions are different, write to the Free\n\
-Software Foundation at 675 Mass Ave, Cambridge, MA 02139. We have not yet\n\
-worked out a simple rule that can be stated here, but we will often permit\n\
-this. We will be guided by the two goals of preserving the free status of\n\
-all derivatives of our free software and of promoting the sharing and reuse\n\
-of software.\n\
-\n\
-In other words, go ahead and share GDB, but don't try to stop\n\
-anyone else from sharing it farther. Help stamp out software hoarding!\n\
-");
- immediate_quit--;
-}
-static void
-warranty_info ()
-{
- immediate_quit++;
- printf (" NO WARRANTY\n\
-\n\
- BECAUSE GDB IS LICENSED FREE OF CHARGE, WE PROVIDE ABSOLUTELY NO\n\
-WARRANTY, TO THE EXTENT PERMITTED BY APPLICABLE STATE LAW. EXCEPT\n\
-WHEN OTHERWISE STATED IN WRITING, FREE SOFTWARE FOUNDATION, INC,\n\
-RICHARD M. STALLMAN AND/OR OTHER PARTIES PROVIDE GDB \"AS IS\" WITHOUT\n\
-WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT\n\
-LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR\n\
-A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND\n\
-PERFORMANCE OF GDB IS WITH YOU. SHOULD GDB PROVE DEFECTIVE, YOU\n\
-ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.\n\n");
-
- printf ("\
- IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW WILL RICHARD M.\n\
-STALLMAN, THE FREE SOFTWARE FOUNDATION, INC., AND/OR ANY OTHER PARTY\n\
-WHO MAY MODIFY AND REDISTRIBUTE GDB, BE LIABLE TO\n\
-YOU FOR DAMAGES, INCLUDING ANY LOST PROFITS, LOST MONIES, OR OTHER\n\
-SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR\n\
-INABILITY TO USE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA\n\
-BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY THIRD PARTIES OR A\n\
-FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS) GDB, EVEN\n\
-IF YOU HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES, OR FOR\n\
-ANY CLAIM BY ANY OTHER PARTY.\n");
- immediate_quit--;
-}
-\f
-static void
-print_gdb_version ()
-{
- printf ("GDB %s, Copyright (C) 1988 Free Software Foundation, Inc.\n\
-There is ABSOLUTELY NO WARRANTY for GDB; type \"info warranty\" for details.\n\
-GDB is free software and you are welcome to distribute copies of it\n\
- under certain conditions; type \"info copying\" to see the conditions.\n",
- version);
-}
-
-static void
-version_info ()
-{
- immediate_quit++;
- print_gdb_version ();
- immediate_quit--;
-}
-\f
-/* xgdb calls this to reprint the usual GDB prompt. */
-
-void
-print_prompt ()
-{
- printf ("%s", prompt);
- fflush (stdout);
-}
-
-/* Command to specify a prompt string instead of "(gdb) ". */
-
-static void
-set_prompt_command (text)
- char *text;
-{
- char *p, *q;
- register int c;
- char *new;
-
- if (text == 0)
- error_no_arg ("string to which to set prompt");
-
- new = (char *) xmalloc (strlen (text) + 2);
- p = text; q = new;
- while (c = *p++)
+ for (i = 0; i < ncmd; i++)
{
- if (c == '\\')
+#if 0
+ /* NOTE: cagney/1999-11-03: SET_TOP_LEVEL() was a macro that
+ expanded into a call to setjmp(). */
+ if (!SET_TOP_LEVEL ()) /* NB: This is #if 0'd out */
{
- /* \ at end of argument is used after spaces
- so they won't be lost. */
- if (*p == 0)
- break;
- c = parse_escape (&p);
- if (c == 0)
- break; /* C loses */
- else if (c > 0)
- *q++ = c;
+ /* NOTE: I am commenting this out, because it is not clear
+ where this feature is used. It is very old and
+ undocumented. ezannoni: 1999-05-04 */
+#if 0
+ if (cmdarg[i][0] == '-' && cmdarg[i][1] == '\0')
+ read_command_file (stdin);
+ else
+#endif
+ source_command (cmdarg[i], !batch);
+ do_cleanups (ALL_CLEANUPS);
}
- else
- *q++ = c;
+#endif
+ if (cmdarg[i].type == CMDARG_FILE)
+ catch_command_errors (source_command, cmdarg[i].string,
+ !batch, RETURN_MASK_ALL);
+ else /* cmdarg[i].type == CMDARG_COMMAND */
+ catch_command_errors (execute_command, cmdarg[i].string,
+ !batch, RETURN_MASK_ALL);
}
- if (*(p - 1) != '\\')
- *q++ = ' ';
- *q++ = '\0';
- new = (char *) xrealloc (new, q - new);
- free (prompt);
- prompt = new;
-}
-\f
-static void
-quit_command ()
-{
- if (have_inferior_p ())
+ xfree (cmdarg);
+
+ /* Read in the old history after all the command files have been read. */
+ init_history ();
+
+ if (batch)
{
- if (query ("The program is running. Quit anyway? "))
- {
- /* Prevent any warning message from reopen_exec_file, in case
- we have a core file that's inconsistent with the exec file. */
- exec_file_command (0, 0);
- kill_inferior ();
- }
- else
- error ("Not confirmed.");
+ /* We have hit the end of the batch file. */
+ quit_force (NULL, 0);
}
- exit (0);
-}
-int
-input_from_terminal_p ()
-{
- return instream == stdin;
-}
-\f
-static void
-pwd_command (arg, from_tty)
- char *arg;
- int from_tty;
-{
- if (arg) error ("The \"pwd\" command does not take an argument: %s", arg);
- getwd (dirbuf);
+ /* Do any host- or target-specific hacks. This is used for i960 targets
+ to force the user to set a nindy target and spec its parameters. */
- if (strcmp (dirbuf, current_directory))
- printf ("Working directory %s\n (canonically %s).\n",
- current_directory, dirbuf);
- else
- printf ("Working directory %s.\n", current_directory);
-}
-
-static void
-cd_command (dir, from_tty)
- char *dir;
- int from_tty;
-{
- int len;
- int change;
+#ifdef BEFORE_MAIN_LOOP_HOOK
+ BEFORE_MAIN_LOOP_HOOK;
+#endif
- if (dir == 0)
- error_no_arg ("new working directory");
+ /* Show time and/or space usage. */
- len = strlen (dir);
- dir = savestring (dir, len - (len > 1 && dir[len-1] == '/'));
- if (dir[0] == '/')
- current_directory = dir;
- else
+ if (display_time)
{
- current_directory = concat (current_directory, "/", dir);
- free (dir);
- }
+ long init_time = get_run_time () - time_at_startup;
- /* Now simplify any occurrences of `.' and `..' in the pathname. */
+ printf_unfiltered (_("Startup time: %ld.%06ld\n"),
+ init_time / 1000000, init_time % 1000000);
+ }
- change = 1;
- while (change)
+ if (display_space)
{
- char *p;
- change = 0;
+#ifdef HAVE_SBRK
+ extern char **environ;
+ char *lim = (char *) sbrk (0);
- for (p = current_directory; *p;)
+ printf_unfiltered (_("Startup size: data size %ld\n"),
+ (long) (lim - (char *) &environ));
+#endif
+ }
+
+#if 0
+ /* FIXME: cagney/1999-11-06: The original main loop was like: */
+ while (1)
+ {
+ if (!SET_TOP_LEVEL ())
{
- if (!strncmp (p, "/./", 2)
- && (p[2] == 0 || p[2] == '/'))
- strcpy (p, p + 2);
- else if (!strncmp (p, "/..", 3)
- && (p[3] == 0 || p[3] == '/')
- && p != current_directory)
- {
- char *q = p;
- while (q != current_directory && q[-1] != '/') q--;
- if (q != current_directory)
- {
- strcpy (q-1, p+3);
- p = q-1;
- }
- }
- else p++;
+ do_cleanups (ALL_CLEANUPS); /* Do complete cleanup */
+ /* GUIs generally have their own command loop, mainloop, or
+ whatever. This is a good place to gain control because
+ many error conditions will end up here via longjmp(). */
+ if (deprecated_command_loop_hook)
+ deprecated_command_loop_hook ();
+ else
+ deprecated_command_loop ();
+ quit_command ((char *) 0, instream == stdin);
}
}
-
- if (chdir (dir) < 0)
- perror_with_name (dir);
-
- if (from_tty)
- pwd_command ((char *) 0, 1);
+ /* NOTE: If the command_loop() returned normally, the loop would
+ attempt to exit by calling the function quit_command(). That
+ function would either call exit() or throw an error returning
+ control to SET_TOP_LEVEL. */
+ /* NOTE: The function do_cleanups() was called once each time round
+ the loop. The usefulness of the call isn't clear. If an error
+ was thrown, everything would have already been cleaned up. If
+ command_loop() returned normally and quit_command() was called,
+ either exit() or error() (again cleaning up) would be called. */
+#endif
+ /* NOTE: cagney/1999-11-07: There is probably no reason for not
+ moving this loop and the code found in captured_command_loop()
+ into the command_loop() proper. The main thing holding back that
+ change - SET_TOP_LEVEL() - has been eliminated. */
+ while (1)
+ {
+ catch_errors (captured_command_loop, 0, "", RETURN_MASK_ALL);
+ }
+ /* No exit -- exit is through quit_command. */
}
-\f
-/* Clean up on error during a "source" command.
- Close the file opened by the command
- and restore the previous input stream. */
-static void
-source_cleanup (stream)
- FILE *stream;
+int
+gdb_main (struct captured_main_args *args)
{
- fclose (instream);
- instream = stream;
+ use_windows = args->use_windows;
+ catch_errors (captured_main, args, "", RETURN_MASK_ALL);
+ /* The only way to end up here is by an error (normal exit is
+ handled by quit_force()), hence always return an error status. */
+ return 1;
}
-static void
-source_command (file)
- char *file;
-{
- FILE *stream;
- struct cleanup *cleanups;
-
- if (file == 0)
- error_no_arg ("file to read commands from");
-
- stream = fopen (file, "r");
- if (stream == 0)
- perror_with_name (file);
-
- cleanups = make_cleanup (source_cleanup, instream);
-
- instream = stream;
- command_loop ();
-
- do_cleanups (cleanups);
-}
-
-static void
-echo_command (text)
- char *text;
-{
- char *p = text;
- register int c;
-
- if (text)
- while (c = *p++)
- {
- if (c == '\\')
- {
- /* \ at end of argument is used after spaces
- so they won't be lost. */
- if (*p == 0)
- return;
-
- c = parse_escape (&p);
- if (c >= 0)
- fputc (c, stdout);
- }
- else
- fputc (c, stdout);
- }
-}
+/* Don't use *_filtered for printing help. We don't want to prompt
+ for continue no matter how small the screen or how much we're going
+ to print. */
static void
-dump_me_command ()
-{
- if (query ("Should GDB dump core? "))
- {
- signal (SIGQUIT, SIG_DFL);
- kill (getpid (), SIGQUIT);
- }
-}
-\f
-static void
-initialize_main ()
-{
- prompt = savestring ("(gdb) ", 6);
-
- /* Define the classes of commands.
- They will appear in the help list in the reverse of this order. */
-
- add_cmd ("obscure", class_obscure, 0, "Obscure features.", &cmdlist);
- add_cmd ("alias", class_alias, 0, "Aliases of other commands.", &cmdlist);
- add_cmd ("user", class_user, 0, "User-defined commands.\n\
-The commands in this class are those defined by the user.\n\
-Use the \"define\" command to define a command.", &cmdlist);
- add_cmd ("support", class_support, 0, "Support facilities.", &cmdlist);
- add_cmd ("status", class_info, 0, "Status inquiries.", &cmdlist);
- add_cmd ("files", class_files, 0, "Specifying and examining files.", &cmdlist);
- add_cmd ("breakpoints", class_breakpoint, 0, "Making program stop at certain points.", &cmdlist);
- add_cmd ("data", class_vars, 0, "Examining data.", &cmdlist);
- add_cmd ("stack", class_stack, 0, "Examining the stack.\n\
-The stack is made up of stack frames. Gdb assigns numbers to stack frames\n\
-counting from zero for the innermost (currently executing) frame.\n\n\
-At any time gdb identifies one frame as the \"selected\" frame.\n\
-Variable lookups are done with respect to the selected frame.\n\
-When the program being debugged stops, gdb selects the innermost frame.\n\
-The commands below can be used to select other frames by number or address.",
- &cmdlist);
- add_cmd ("running", class_run, 0, "Running the program.", &cmdlist);
-
- add_com ("pwd", class_files, pwd_command,
- "Print working directory. This is used for your program as well.");
- add_com ("cd", class_files, cd_command,
- "Set working directory to DIR for debugger and program being debugged.\n\
-The change does not take effect for the program being debugged\n\
-until the next time it is started.");
-
- add_com ("set-prompt", class_support, set_prompt_command,
- "Change gdb's prompt from the default of \"(gdb)\"");
- add_com ("echo", class_support, echo_command,
- "Print a constant string. Give string as argument.\n\
-C escape sequences may be used in the argument.\n\
-No newline is added at the end of the argument;\n\
-use \"\\n\" if you want a newline to be printed.\n\
-Since leading and trailing whitespace are ignored in command arguments,\n\
-if you want to print some you must use \"\\\" before leading whitespace\n\
-to be printed or after trailing whitespace.");
- add_com ("document", class_support, document_command,
- "Document a user-defined command.\n\
-Give command name as argument. Give documentation on following lines.\n\
-End with a line of just \"end\".");
- add_com ("define", class_support, define_command,
- "Define a new command name. Command name is argument.\n\
-Definition appears on following lines, one command per line.\n\
-End with a line of just \"end\".\n\
-Use the \"document\" command to give documentation for the new command.\n\
-Commands defined in this way do not take arguments.");
-
- add_com ("source", class_support, source_command,
- "Read commands from a file named FILE.\n\
-Note that the file \".gdbinit\" is read automatically in this way\n\
-when gdb is started.");
- add_com ("quit", class_support, quit_command, "Exit gdb.");
- add_com ("help", class_support, help_command, "Print list of commands.");
- add_com_alias ("q", "quit", class_support, 1);
- add_com_alias ("h", "help", class_support, 1);
-
- add_com ("dump-me", class_obscure, dump_me_command,
- "Get fatal error; make debugger dump its core.");
-
- add_prefix_cmd ("info", class_info, info_command,
- "Generic command for printing status.",
- &infolist, "info ", 0, &cmdlist);
- add_com_alias ("i", "info", class_info, 1);
-
- add_info ("copying", copying_info, "Conditions for redistributing copies of GDB.");
- add_info ("warranty", warranty_info, "Various kinds of warranty you do not have.");
- add_info ("version", version_info, "Report what version of GDB this is.");
+print_gdb_help (struct ui_file *stream)
+{
+ fputs_unfiltered (_("\
+This is the GNU debugger. Usage:\n\n\
+ gdb [options] [executable-file [core-file or process-id]]\n\
+ gdb [options] --args executable-file [inferior-arguments ...]\n\n\
+Options:\n\n\
+"), stream);
+ fputs_unfiltered (_("\
+ --args Arguments after executable-file are passed to inferior\n\
+"), stream);
+ fputs_unfiltered (_("\
+ -b BAUDRATE Set serial port baud rate used for remote debugging.\n\
+ --batch Exit after processing options.\n\
+ --batch-silent As for --batch, but suppress all gdb stdout output.\n\
+ --return-child-result\n\
+ GDB exit code will be the child's exit code.\n\
+ --cd=DIR Change current directory to DIR.\n\
+ --command=FILE, -x Execute GDB commands from FILE.\n\
+ --eval-command=COMMAND, -ex\n\
+ Execute a single GDB command.\n\
+ May be used multiple times and in conjunction\n\
+ with --command.\n\
+ --core=COREFILE Analyze the core dump COREFILE.\n\
+ --pid=PID Attach to running process PID.\n\
+"), stream);
+ fputs_unfiltered (_("\
+ --dbx DBX compatibility mode.\n\
+ --directory=DIR Search for source files in DIR.\n\
+ --epoch Output information used by epoch emacs-GDB interface.\n\
+ --exec=EXECFILE Use EXECFILE as the executable.\n\
+ --fullname Output information used by emacs-GDB interface.\n\
+ --help Print this message.\n\
+"), stream);
+ fputs_unfiltered (_("\
+ --interpreter=INTERP\n\
+ Select a specific interpreter / user interface\n\
+"), stream);
+ fputs_unfiltered (_("\
+ -l TIMEOUT Set timeout in seconds for remote debugging.\n\
+ --nw Do not use a window interface.\n\
+ --nx Do not read "), stream);
+ fputs_unfiltered (gdbinit, stream);
+ fputs_unfiltered (_(" file.\n\
+ --quiet Do not print version number on startup.\n\
+ --readnow Fully read symbol files on first access.\n\
+"), stream);
+ fputs_unfiltered (_("\
+ --se=FILE Use FILE as symbol file and executable file.\n\
+ --symbols=SYMFILE Read symbols from SYMFILE.\n\
+ --tty=TTY Use TTY for input/output by the program being debugged.\n\
+"), stream);
+#if defined(TUI)
+ fputs_unfiltered (_("\
+ --tui Use a terminal user interface.\n\
+"), stream);
+#endif
+ fputs_unfiltered (_("\
+ --version Print version information and then exit.\n\
+ -w Use a window interface.\n\
+ --write Set writing into executable and core files.\n\
+ --xdb XDB compatibility mode.\n\
+"), stream);
+ fputs_unfiltered (_("\n\
+For more information, type \"help\" from within GDB, or consult the\n\
+GDB manual (available as on-line info or a printed manual).\n\
+Report bugs to \"bug-gdb@gnu.org\".\
+"), stream);
}
projects / deliverable / binutils-gdb.git / blobdiff