* defs.h: Incorporate param.h. All users changed.
* param-no-tm.h: Change users to define TM_FILE_OVERRIDE instead.
* param.h, param-no-tm.h: Removed.
* Update copyrights in all changed files.
* dbxread.c, dwarfread.c, inflow.c, infrun.c, m2-exp.y, putenv.c,
solib.c, symtab.h, tm-umax.h, valprint.c: Lint.
* tm-convex.h, tm-hp300hpux.h, tm-merlin.h, tm-sparc.h,
xm-merlin.h: Avoid host include files in target descriptions.
* getpagesize.h: Removed, libiberty copes now.
1991-11-21 18:42:05 +00:00
|
|
|
|
/* Handle lists of commands, their decoding and documentation, for GDB.
|
|
|
|
|
Copyright 1986, 1989, 1990, 1991 Free Software Foundation, Inc.
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
1991-06-04 07:31:55 +00:00
|
|
|
|
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.
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
1991-06-04 07:31:55 +00:00
|
|
|
|
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.
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
1991-06-04 07:31:55 +00:00
|
|
|
|
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., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
1991-12-04 08:36:17 +00:00
|
|
|
|
#include "gdbcmd.h"
|
1991-03-28 16:28:29 +00:00
|
|
|
|
#include "symtab.h"
|
|
|
|
|
#include "value.h"
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
|
1992-02-22 01:46:16 +00:00
|
|
|
|
/* Prototypes for local functions */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
undef_cmd_error PARAMS ((char *, char *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
show_user PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
show_user_1 PARAMS ((struct cmd_list_element *, FILE *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
make_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
shell_escape PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
parse_binary_operation PARAMS ((char *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
print_doc_line PARAMS ((FILE *, char *));
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
|
|
|
|
/* Add element named NAME to command list *LIST.
|
|
|
|
|
FUN should be the function to execute the command;
|
|
|
|
|
it will get a character string as argument, with leading
|
|
|
|
|
and trailing blanks already eliminated.
|
|
|
|
|
|
|
|
|
|
DOC is a documentation string for the command.
|
|
|
|
|
Its first line should be a complete sentence.
|
|
|
|
|
It should start with ? for a command that is an abbreviation
|
|
|
|
|
or with * for a command that most users don't need to know about. */
|
|
|
|
|
|
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
add_cmd (name, class, fun, doc, list)
|
|
|
|
|
char *name;
|
|
|
|
|
enum command_class class;
|
1992-02-22 01:46:16 +00:00
|
|
|
|
void (*fun) PARAMS ((char *, int));
|
1991-03-28 16:28:29 +00:00
|
|
|
|
char *doc;
|
|
|
|
|
struct cmd_list_element **list;
|
|
|
|
|
{
|
|
|
|
|
register struct cmd_list_element *c
|
|
|
|
|
= (struct cmd_list_element *) xmalloc (sizeof (struct cmd_list_element));
|
|
|
|
|
|
|
|
|
|
delete_cmd (name, list);
|
|
|
|
|
c->next = *list;
|
|
|
|
|
c->name = name;
|
|
|
|
|
c->class = class;
|
1992-02-22 01:46:16 +00:00
|
|
|
|
c->function.cfunc = fun;
|
1991-03-28 16:28:29 +00:00
|
|
|
|
c->doc = doc;
|
|
|
|
|
c->prefixlist = 0;
|
|
|
|
|
c->prefixname = (char *)NULL;
|
|
|
|
|
c->allow_unknown = 0;
|
1992-10-01 09:57:36 +00:00
|
|
|
|
c->hook = 0;
|
|
|
|
|
c->hookee = 0;
|
|
|
|
|
c->cmd_pointer = 0;
|
1991-03-28 16:28:29 +00:00
|
|
|
|
c->abbrev_flag = 0;
|
|
|
|
|
c->type = not_set_cmd;
|
|
|
|
|
c->completer = make_symbol_completion_list;
|
|
|
|
|
c->var = 0;
|
|
|
|
|
c->var_type = var_boolean;
|
|
|
|
|
c->user_commands = 0;
|
|
|
|
|
*list = c;
|
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Same as above, except that the abbrev_flag is set. */
|
|
|
|
|
|
1992-02-22 01:46:16 +00:00
|
|
|
|
#if 0 /* Currently unused */
|
|
|
|
|
|
1991-03-28 16:28:29 +00:00
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
add_abbrev_cmd (name, class, fun, doc, list)
|
|
|
|
|
char *name;
|
|
|
|
|
enum command_class class;
|
1992-02-22 01:46:16 +00:00
|
|
|
|
void (*fun) PARAMS ((char *, int));
|
1991-03-28 16:28:29 +00:00
|
|
|
|
char *doc;
|
|
|
|
|
struct cmd_list_element **list;
|
|
|
|
|
{
|
|
|
|
|
register struct cmd_list_element *c
|
|
|
|
|
= add_cmd (name, class, fun, doc, list);
|
|
|
|
|
|
|
|
|
|
c->abbrev_flag = 1;
|
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
|
1992-02-22 01:46:16 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1991-03-28 16:28:29 +00:00
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
add_alias_cmd (name, oldname, class, abbrev_flag, list)
|
|
|
|
|
char *name;
|
|
|
|
|
char *oldname;
|
|
|
|
|
enum command_class class;
|
|
|
|
|
int abbrev_flag;
|
|
|
|
|
struct cmd_list_element **list;
|
|
|
|
|
{
|
|
|
|
|
/* Must do this since lookup_cmd tries to side-effect its first arg */
|
|
|
|
|
char *copied_name;
|
|
|
|
|
register struct cmd_list_element *old;
|
|
|
|
|
register struct cmd_list_element *c;
|
|
|
|
|
copied_name = (char *) alloca (strlen (oldname) + 1);
|
|
|
|
|
strcpy (copied_name, oldname);
|
|
|
|
|
old = lookup_cmd (&copied_name, *list, "", 1, 1);
|
|
|
|
|
|
|
|
|
|
if (old == 0)
|
|
|
|
|
{
|
|
|
|
|
delete_cmd (name, list);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
1992-02-22 01:46:16 +00:00
|
|
|
|
c = add_cmd (name, class, old->function.cfunc, old->doc, list);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
c->prefixlist = old->prefixlist;
|
|
|
|
|
c->prefixname = old->prefixname;
|
|
|
|
|
c->allow_unknown = old->allow_unknown;
|
|
|
|
|
c->abbrev_flag = abbrev_flag;
|
1992-10-01 09:57:36 +00:00
|
|
|
|
c->cmd_pointer = old;
|
1991-03-28 16:28:29 +00:00
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Like add_cmd but adds an element for a command prefix:
|
|
|
|
|
a name that should be followed by a subcommand to be looked up
|
|
|
|
|
in another command list. PREFIXLIST should be the address
|
|
|
|
|
of the variable containing that list. */
|
|
|
|
|
|
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
add_prefix_cmd (name, class, fun, doc, prefixlist, prefixname,
|
|
|
|
|
allow_unknown, list)
|
|
|
|
|
char *name;
|
|
|
|
|
enum command_class class;
|
1992-02-22 01:46:16 +00:00
|
|
|
|
void (*fun) PARAMS ((char *, int));
|
1991-03-28 16:28:29 +00:00
|
|
|
|
char *doc;
|
|
|
|
|
struct cmd_list_element **prefixlist;
|
|
|
|
|
char *prefixname;
|
|
|
|
|
int allow_unknown;
|
|
|
|
|
struct cmd_list_element **list;
|
|
|
|
|
{
|
|
|
|
|
register struct cmd_list_element *c = add_cmd (name, class, fun, doc, list);
|
|
|
|
|
c->prefixlist = prefixlist;
|
|
|
|
|
c->prefixname = prefixname;
|
|
|
|
|
c->allow_unknown = allow_unknown;
|
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
|
1992-06-23 03:33:47 +00:00
|
|
|
|
/* Like add_prefix_cmd but sets the abbrev_flag on the new command. */
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
add_abbrev_prefix_cmd (name, class, fun, doc, prefixlist, prefixname,
|
1992-02-22 01:46:16 +00:00
|
|
|
|
allow_unknown, list)
|
1991-03-28 16:28:29 +00:00
|
|
|
|
char *name;
|
|
|
|
|
enum command_class class;
|
1992-02-22 01:46:16 +00:00
|
|
|
|
void (*fun) PARAMS ((char *, int));
|
1991-03-28 16:28:29 +00:00
|
|
|
|
char *doc;
|
|
|
|
|
struct cmd_list_element **prefixlist;
|
|
|
|
|
char *prefixname;
|
|
|
|
|
int allow_unknown;
|
|
|
|
|
struct cmd_list_element **list;
|
|
|
|
|
{
|
|
|
|
|
register struct cmd_list_element *c = add_cmd (name, class, fun, doc, list);
|
|
|
|
|
c->prefixlist = prefixlist;
|
|
|
|
|
c->prefixname = prefixname;
|
|
|
|
|
c->allow_unknown = allow_unknown;
|
|
|
|
|
c->abbrev_flag = 1;
|
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:28:29 +00:00
|
|
|
|
void
|
1992-04-02 10:35:19 +00:00
|
|
|
|
not_just_help_class_command (args, from_tty)
|
1991-03-28 16:28:29 +00:00
|
|
|
|
char *args;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add element named NAME to command list LIST (the list for set
|
|
|
|
|
or some sublist thereof).
|
|
|
|
|
CLASS is as in add_cmd.
|
|
|
|
|
VAR_TYPE is the kind of thing we are setting.
|
|
|
|
|
VAR is address of the variable being controlled by this command.
|
|
|
|
|
DOC is the documentation string. */
|
1992-02-22 01:46:16 +00:00
|
|
|
|
|
1991-03-28 16:28:29 +00:00
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
add_set_cmd (name, class, var_type, var, doc, list)
|
|
|
|
|
char *name;
|
|
|
|
|
enum command_class class;
|
|
|
|
|
var_types var_type;
|
|
|
|
|
char *var;
|
|
|
|
|
char *doc;
|
|
|
|
|
struct cmd_list_element **list;
|
|
|
|
|
{
|
|
|
|
|
/* For set/show, we have to call do_setshow_command
|
|
|
|
|
differently than an ordinary function (take commandlist as
|
|
|
|
|
well as arg), so the function field isn't helpful. However,
|
|
|
|
|
function == NULL means that it's a help class, so set the function
|
|
|
|
|
to not_just_help_class_command. */
|
|
|
|
|
struct cmd_list_element *c
|
|
|
|
|
= add_cmd (name, class, not_just_help_class_command, doc, list);
|
|
|
|
|
|
|
|
|
|
c->type = set_cmd;
|
|
|
|
|
c->var_type = var_type;
|
|
|
|
|
c->var = var;
|
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Where SETCMD has already been added, add the corresponding show
|
|
|
|
|
command to LIST and return a pointer to it. */
|
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
add_show_from_set (setcmd, list)
|
|
|
|
|
struct cmd_list_element *setcmd;
|
|
|
|
|
struct cmd_list_element **list;
|
|
|
|
|
{
|
|
|
|
|
struct cmd_list_element *showcmd =
|
|
|
|
|
(struct cmd_list_element *) xmalloc (sizeof (struct cmd_list_element));
|
|
|
|
|
|
* breakpoint.c, buildsym.c, c-exp.y, coffread.c, command.c,
core.c, cplus-dem.c, dbxread.c, dwarfread.c, elfread.c, environ.c,
eval.c, findvar.c, gdbtypes.c, hppabsd-tdep.c, hppahpux-tdep.c,
i386-tdep.c, ieee-float.c, infcmd.c, inflow.c, infptrace.c,
infrun.c, m2-exp.y, mipsread.c, objfiles.c, parse.c, procfs.c,
putenv.c, remote-mm.c, remote-vx.c, solib.c, sparc-tdep.c,
sparc-xdep.c, stack.c, symfile.c, symtab.c, symtab.h, target.c,
tm-i386v.h, tm-sparc.h, utils.c, valarith.c, valops.c, valprint.c,
values.c, xcoffread.c:
Remove "(void)" casts from function calls where the return value
is ignored, in accordance with GNU coding standards.
1992-07-04 03:22:08 +00:00
|
|
|
|
memcpy (showcmd, setcmd, sizeof (struct cmd_list_element));
|
1991-03-28 16:28:29 +00:00
|
|
|
|
delete_cmd (showcmd->name, list);
|
|
|
|
|
showcmd->type = show_cmd;
|
|
|
|
|
|
|
|
|
|
/* Replace "set " at start of docstring with "show ". */
|
|
|
|
|
if (setcmd->doc[0] == 'S' && setcmd->doc[1] == 'e'
|
|
|
|
|
&& setcmd->doc[2] == 't' && setcmd->doc[3] == ' ')
|
1991-11-12 17:50:14 +00:00
|
|
|
|
showcmd->doc = concat ("Show ", setcmd->doc + 4, NULL);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
else
|
|
|
|
|
fprintf (stderr, "GDB internal error: Bad docstring for set command\n");
|
|
|
|
|
|
|
|
|
|
showcmd->next = *list;
|
|
|
|
|
*list = showcmd;
|
|
|
|
|
return showcmd;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Remove the command named NAME from the command list. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
delete_cmd (name, list)
|
|
|
|
|
char *name;
|
|
|
|
|
struct cmd_list_element **list;
|
|
|
|
|
{
|
|
|
|
|
register struct cmd_list_element *c;
|
|
|
|
|
struct cmd_list_element *p;
|
|
|
|
|
|
* defs.h (STRCMP, STREQ, STREQN): New macros.
* defs.h (demangle_and_match): Remove prototype.
* dwarfread.c (STREQ, STREQN): Remove macros, replaced with STREQ
and STREQN defined in defs.h.
* dwarfread.c (set_cu_language): For completely unknown languages,
try to deduce the language from the filename. Retain behavior
that for known languages we don't know how to handle, we use
language_unknown.
* dwarfread.c (enum_type, symthesize_typedef): Initialize language
and demangled name fields in symbol.
* dwarfread.c, mipsread.c, partial-stab.h: For all usages of
ADD_PSYMBOL_TO_LIST, add language and objfile parameters.
* dwarfread.c (new_symbol): Attempt to demangle C++ symbol names
and cache the results in SYMBOL_DEMANGLED_NAME for the symbol.
* elfread.c (STREQ): Remove macro, use STREQ defined in defs.h.
Replace usages throughout.
* elfread.c (demangle.h): Include.
* elfread.c (record_minimal_symbol): Remove prototype and function.
* gdbtypes.h, symtab.h (B_SET, B_CLR, B_TST, B_TYPE, B_BYTES,
B_CLRALL): Moved from symtab.h to gdbtypes.h.
* infcmd.c (jump_command): Remove code to demangle name and add
it to a cleanup list. Now just use SYMBOL_DEMANGLED_NAME.
* minsyms.c (demangle.h): Include.
* minsyms.c (lookup_minimal_symbol): Indent comment to match code.
* minsyms.c (install_minimal_symbols): Attempt to demangle symbol
names as C++ names, and cache them in SYMBOL_DEMANGLED_NAME.
* mipsread.c (psymtab_language): Add static variable.
* stabsread.c (demangle.h): Include.
* stabsread.c (define_symbol): Attempt to demangle C++ symbol
names and cache them in the SYMBOL_DEMANGLED_NAME field.
* stack.c (return_command): Remove explicit demangling of name
and use of cleanups. Just use SYMBOL_DEMANGLED_NAME.
* symfile.c (demangle.h): Include.
* symfile.c (add_psymbol_to_list, add_psymbol_addr_to_list): Fix
to match macros in symfile.h and allow them to be compiled
if INLINE_ADD_PSYMBOL is not true.
* symfile.h (INLINE_ADD_PSYMBOL): Default to true if not set.
* symfile.h (ADD_PSYMBOL_*): Add language and objfile parameters.
Add code to demangle and cache C++ symbol names. Use macro form
if INLINE_ADD_PSYMBOL is true, otherwise use C function form.
* symmisc.c (add_psymbol_to_list, add_psymbol_addr_to_list):
Remove, also defined in symfile.c, which we already fixed.
* symtab.c (expensive_mangler): Remove prototype and function.
* symtab.c (find_methods): Remove physnames parameter and fix
prototype to match.
* symtab.c (completion_list_add_symbol): Name changed to
completion_list_add_name.
* symtab.c (COMPLETION_LIST_ADD_SYMBOL): New macro, adds both
the normal symbol name and the cached C++ demangled name.
* symtab.c (lookup_demangled_partial_symbol,
lookup_demangled_block_symbol): Remove prototypes and functions.
* symtab.c (lookup_symbol): Remove use of expensive_mangler,
use lookup_block_symbol instead of lookup_demangled_block_symbol.
Remove code to try demangling names and matching them.
* symtab.c (lookup_partial_symbol, lookup_block_symbol):
Fix to try matching the cached demangled name if no match is
found using the regular symbol name.
* symtab.c (find_methods): Remove unused physnames array.
* symtab.c (name_match, NAME_MATCH): Remove function and macro,
replaced with SYMBOL_MATCHES_REGEXP from symtab.h.
* symtab.c (completion_list_add_symbol): Rewrite to use cached
C++ demangled symbol names.
* symtab.h: Much reformatting of structures and such to add
whitespace to make them more readable, and make them more
consistent with other gdb structure definitions.
* symtab.h (general_symbol_info): New struct containing fields
common to all symbols.
* symtab.h (SYMBOL_LANGUAGE, SYMBOL_DEMANGLED_NAME,
SYMBOL_SOURCE_NAME, SYMBOL_LINKAGE_NAME, SYMBOL_MATCHES_NAME,
SYMBOL_MATCHES_REGEXP, MSYMBOL_INFO, MSYMBOL_TYPE): New macros.
* symtab. (struct minimal_symbol, struct partial_symbol, struct
symbol): Use general_symbol_info struct.
* utils.c (demangle_and_match): Remove, no longer used.
* valops.c (demangle.h): Include.
* xcoffexec.c (eq): Remove macro, replace usages with STREQ.
* blockframe.c, breakpoint.c, c-exp.y, c-valprint.c, dbxread.c,
infcmd.c, m2-exp.y, minsyms.c, objfiles.h, solib.c, stack.c,
symmisc.c, symtab.c, valops.c: Replace references to minimal
symbol fields with appropriate macros.
* breakpoint.c, buildsym.c, c-exp.y, c-typeprint.c, c-valprint.c,
coffread.c, command.c, convex-tdep.c, cp-valprint.c, dbxread.c,
demangle.c, elfread.c, energize.c, environ.c, exec.c,
gdbtypes.c, i960-tdep.c, infrun.c, infrun-hacked.c, language.c,
main.c, minsyms.c, mipsread.c, partial-stab.h, remote-es1800.c,
remote-nindy.c, remote-udi.c, rs6000-tdep.c, solib.c, source.c,
sparc-pinsn.c, stabsread.c, standalone.c, state.c, stuff.c,
symfile.c, symmisc.c, symtab.c, symtab.h, tm-sysv4.h,
tm-ultra3.h, values.c, xcoffexec.c, xcoffread.c: Replace strcmp
and strncmp usages with STREQ, STREQN, or STRCMP as appropriate.
* breakpoint.c, buildsym.c, c-typeprint.c, expprint.c, findvar.c,
mipsread.c, printcmd.c, source.c, stabsread.c, stack.c,
symmisc.c, tm-29k.h, valops.c, values.c: Replace SYMBOL_NAME
references with SYMBOL_SOURCE_NAME or SYMBOL_LINKAGE_NAME as
appropriate.
* buildsym.c (start_subfile, patch_subfile_names): Default the
source language to what can be deduced from the filename.
* buildsym.c (end_symtab): Update the source language in the
allocated symtab to match what we have been using.
* buildsym.h (struct subfile): Add a language field.
* c-typeprint.c (c_print_type): Remove code to do explicit
demangling.
* dbxread.c (psymtab_language): Add static variable.
* dbxread.c (start_psymtab): Initialize psymtab_language using
deduce_language_from_filename.
1992-12-23 06:34:57 +00:00
|
|
|
|
while (*list && STREQ ((*list)->name, name))
|
1991-03-28 16:28:29 +00:00
|
|
|
|
{
|
1992-10-01 09:57:36 +00:00
|
|
|
|
if ((*list)->hookee)
|
|
|
|
|
(*list)->hookee->hook = 0; /* Hook slips out of its mouth */
|
1991-03-28 16:28:29 +00:00
|
|
|
|
p = (*list)->next;
|
1992-03-29 23:26:47 +00:00
|
|
|
|
free ((PTR)*list);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
*list = p;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (*list)
|
|
|
|
|
for (c = *list; c->next;)
|
|
|
|
|
{
|
* defs.h (STRCMP, STREQ, STREQN): New macros.
* defs.h (demangle_and_match): Remove prototype.
* dwarfread.c (STREQ, STREQN): Remove macros, replaced with STREQ
and STREQN defined in defs.h.
* dwarfread.c (set_cu_language): For completely unknown languages,
try to deduce the language from the filename. Retain behavior
that for known languages we don't know how to handle, we use
language_unknown.
* dwarfread.c (enum_type, symthesize_typedef): Initialize language
and demangled name fields in symbol.
* dwarfread.c, mipsread.c, partial-stab.h: For all usages of
ADD_PSYMBOL_TO_LIST, add language and objfile parameters.
* dwarfread.c (new_symbol): Attempt to demangle C++ symbol names
and cache the results in SYMBOL_DEMANGLED_NAME for the symbol.
* elfread.c (STREQ): Remove macro, use STREQ defined in defs.h.
Replace usages throughout.
* elfread.c (demangle.h): Include.
* elfread.c (record_minimal_symbol): Remove prototype and function.
* gdbtypes.h, symtab.h (B_SET, B_CLR, B_TST, B_TYPE, B_BYTES,
B_CLRALL): Moved from symtab.h to gdbtypes.h.
* infcmd.c (jump_command): Remove code to demangle name and add
it to a cleanup list. Now just use SYMBOL_DEMANGLED_NAME.
* minsyms.c (demangle.h): Include.
* minsyms.c (lookup_minimal_symbol): Indent comment to match code.
* minsyms.c (install_minimal_symbols): Attempt to demangle symbol
names as C++ names, and cache them in SYMBOL_DEMANGLED_NAME.
* mipsread.c (psymtab_language): Add static variable.
* stabsread.c (demangle.h): Include.
* stabsread.c (define_symbol): Attempt to demangle C++ symbol
names and cache them in the SYMBOL_DEMANGLED_NAME field.
* stack.c (return_command): Remove explicit demangling of name
and use of cleanups. Just use SYMBOL_DEMANGLED_NAME.
* symfile.c (demangle.h): Include.
* symfile.c (add_psymbol_to_list, add_psymbol_addr_to_list): Fix
to match macros in symfile.h and allow them to be compiled
if INLINE_ADD_PSYMBOL is not true.
* symfile.h (INLINE_ADD_PSYMBOL): Default to true if not set.
* symfile.h (ADD_PSYMBOL_*): Add language and objfile parameters.
Add code to demangle and cache C++ symbol names. Use macro form
if INLINE_ADD_PSYMBOL is true, otherwise use C function form.
* symmisc.c (add_psymbol_to_list, add_psymbol_addr_to_list):
Remove, also defined in symfile.c, which we already fixed.
* symtab.c (expensive_mangler): Remove prototype and function.
* symtab.c (find_methods): Remove physnames parameter and fix
prototype to match.
* symtab.c (completion_list_add_symbol): Name changed to
completion_list_add_name.
* symtab.c (COMPLETION_LIST_ADD_SYMBOL): New macro, adds both
the normal symbol name and the cached C++ demangled name.
* symtab.c (lookup_demangled_partial_symbol,
lookup_demangled_block_symbol): Remove prototypes and functions.
* symtab.c (lookup_symbol): Remove use of expensive_mangler,
use lookup_block_symbol instead of lookup_demangled_block_symbol.
Remove code to try demangling names and matching them.
* symtab.c (lookup_partial_symbol, lookup_block_symbol):
Fix to try matching the cached demangled name if no match is
found using the regular symbol name.
* symtab.c (find_methods): Remove unused physnames array.
* symtab.c (name_match, NAME_MATCH): Remove function and macro,
replaced with SYMBOL_MATCHES_REGEXP from symtab.h.
* symtab.c (completion_list_add_symbol): Rewrite to use cached
C++ demangled symbol names.
* symtab.h: Much reformatting of structures and such to add
whitespace to make them more readable, and make them more
consistent with other gdb structure definitions.
* symtab.h (general_symbol_info): New struct containing fields
common to all symbols.
* symtab.h (SYMBOL_LANGUAGE, SYMBOL_DEMANGLED_NAME,
SYMBOL_SOURCE_NAME, SYMBOL_LINKAGE_NAME, SYMBOL_MATCHES_NAME,
SYMBOL_MATCHES_REGEXP, MSYMBOL_INFO, MSYMBOL_TYPE): New macros.
* symtab. (struct minimal_symbol, struct partial_symbol, struct
symbol): Use general_symbol_info struct.
* utils.c (demangle_and_match): Remove, no longer used.
* valops.c (demangle.h): Include.
* xcoffexec.c (eq): Remove macro, replace usages with STREQ.
* blockframe.c, breakpoint.c, c-exp.y, c-valprint.c, dbxread.c,
infcmd.c, m2-exp.y, minsyms.c, objfiles.h, solib.c, stack.c,
symmisc.c, symtab.c, valops.c: Replace references to minimal
symbol fields with appropriate macros.
* breakpoint.c, buildsym.c, c-exp.y, c-typeprint.c, c-valprint.c,
coffread.c, command.c, convex-tdep.c, cp-valprint.c, dbxread.c,
demangle.c, elfread.c, energize.c, environ.c, exec.c,
gdbtypes.c, i960-tdep.c, infrun.c, infrun-hacked.c, language.c,
main.c, minsyms.c, mipsread.c, partial-stab.h, remote-es1800.c,
remote-nindy.c, remote-udi.c, rs6000-tdep.c, solib.c, source.c,
sparc-pinsn.c, stabsread.c, standalone.c, state.c, stuff.c,
symfile.c, symmisc.c, symtab.c, symtab.h, tm-sysv4.h,
tm-ultra3.h, values.c, xcoffexec.c, xcoffread.c: Replace strcmp
and strncmp usages with STREQ, STREQN, or STRCMP as appropriate.
* breakpoint.c, buildsym.c, c-typeprint.c, expprint.c, findvar.c,
mipsread.c, printcmd.c, source.c, stabsread.c, stack.c,
symmisc.c, tm-29k.h, valops.c, values.c: Replace SYMBOL_NAME
references with SYMBOL_SOURCE_NAME or SYMBOL_LINKAGE_NAME as
appropriate.
* buildsym.c (start_subfile, patch_subfile_names): Default the
source language to what can be deduced from the filename.
* buildsym.c (end_symtab): Update the source language in the
allocated symtab to match what we have been using.
* buildsym.h (struct subfile): Add a language field.
* c-typeprint.c (c_print_type): Remove code to do explicit
demangling.
* dbxread.c (psymtab_language): Add static variable.
* dbxread.c (start_psymtab): Initialize psymtab_language using
deduce_language_from_filename.
1992-12-23 06:34:57 +00:00
|
|
|
|
if (STREQ (c->next->name, name))
|
1991-03-28 16:28:29 +00:00
|
|
|
|
{
|
1992-10-01 09:57:36 +00:00
|
|
|
|
if (c->next->hookee)
|
|
|
|
|
c->next->hookee->hook = 0; /* hooked cmd gets away. */
|
1991-03-28 16:28:29 +00:00
|
|
|
|
p = c->next->next;
|
1992-03-29 23:26:47 +00:00
|
|
|
|
free ((PTR)c->next);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
c->next = p;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
c = c->next;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This command really has to deal with two things:
|
|
|
|
|
* 1) I want documentation on *this string* (usually called by
|
|
|
|
|
* "help commandname").
|
|
|
|
|
* 2) I want documentation on *this list* (usually called by
|
|
|
|
|
* giving a command that requires subcommands. Also called by saying
|
|
|
|
|
* just "help".)
|
|
|
|
|
*
|
|
|
|
|
* I am going to split this into two seperate comamnds, help_cmd and
|
|
|
|
|
* help_list.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
help_cmd (command, stream)
|
|
|
|
|
char *command;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
struct cmd_list_element *c;
|
|
|
|
|
extern struct cmd_list_element *cmdlist;
|
|
|
|
|
|
|
|
|
|
if (!command)
|
|
|
|
|
{
|
|
|
|
|
help_list (cmdlist, "", all_classes, stream);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
c = lookup_cmd (&command, cmdlist, "", 0, 0);
|
|
|
|
|
|
|
|
|
|
if (c == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
/* There are three cases here.
|
|
|
|
|
If c->prefixlist is nonzero, we have a prefix command.
|
|
|
|
|
Print its documentation, then list its subcommands.
|
|
|
|
|
|
|
|
|
|
If c->function is nonzero, we really have a command.
|
|
|
|
|
Print its documentation and return.
|
|
|
|
|
|
|
|
|
|
If c->function is zero, we have a class name.
|
|
|
|
|
Print its documentation (as if it were a command)
|
|
|
|
|
and then set class to the number of this class
|
|
|
|
|
so that the commands in the class will be listed. */
|
|
|
|
|
|
|
|
|
|
fputs_filtered (c->doc, stream);
|
|
|
|
|
fputs_filtered ("\n", stream);
|
|
|
|
|
|
1992-02-22 01:46:16 +00:00
|
|
|
|
if (c->prefixlist == 0 && c->function.cfunc != NULL)
|
1991-03-28 16:28:29 +00:00
|
|
|
|
return;
|
|
|
|
|
fprintf_filtered (stream, "\n");
|
|
|
|
|
|
|
|
|
|
/* If this is a prefix command, print it's subcommands */
|
|
|
|
|
if (c->prefixlist)
|
|
|
|
|
help_list (*c->prefixlist, c->prefixname, all_commands, stream);
|
|
|
|
|
|
|
|
|
|
/* If this is a class name, print all of the commands in the class */
|
1992-02-22 01:46:16 +00:00
|
|
|
|
if (c->function.cfunc == NULL)
|
1991-03-28 16:28:29 +00:00
|
|
|
|
help_list (cmdlist, "", c->class, stream);
|
1992-10-01 09:57:36 +00:00
|
|
|
|
|
|
|
|
|
if (c->hook)
|
|
|
|
|
fprintf_filtered (stream, "\nThis command has a hook defined: %s\n",
|
|
|
|
|
c->hook->name);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Get a specific kind of help on a command list.
|
|
|
|
|
*
|
|
|
|
|
* LIST is the list.
|
|
|
|
|
* CMDTYPE is the prefix to use in the title string.
|
|
|
|
|
* CLASS is the class with which to list the nodes of this list (see
|
|
|
|
|
* documentation for help_cmd_list below), As usual, ALL_COMMANDS for
|
|
|
|
|
* everything, ALL_CLASSES for just classes, and non-negative for only things
|
|
|
|
|
* in a specific class.
|
|
|
|
|
* and STREAM is the output stream on which to print things.
|
|
|
|
|
* If you call this routine with a class >= 0, it recurses.
|
|
|
|
|
*/
|
|
|
|
|
void
|
|
|
|
|
help_list (list, cmdtype, class, stream)
|
|
|
|
|
struct cmd_list_element *list;
|
|
|
|
|
char *cmdtype;
|
|
|
|
|
enum command_class class;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
int len;
|
|
|
|
|
char *cmdtype1, *cmdtype2;
|
|
|
|
|
|
|
|
|
|
/* If CMDTYPE is "foo ", CMDTYPE1 gets " foo" and CMDTYPE2 gets "foo sub" */
|
|
|
|
|
len = strlen (cmdtype);
|
|
|
|
|
cmdtype1 = (char *) alloca (len + 1);
|
|
|
|
|
cmdtype1[0] = 0;
|
|
|
|
|
cmdtype2 = (char *) alloca (len + 4);
|
|
|
|
|
cmdtype2[0] = 0;
|
|
|
|
|
if (len)
|
|
|
|
|
{
|
|
|
|
|
cmdtype1[0] = ' ';
|
|
|
|
|
strncpy (cmdtype1 + 1, cmdtype, len - 1);
|
|
|
|
|
cmdtype1[len] = 0;
|
|
|
|
|
strncpy (cmdtype2, cmdtype, len - 1);
|
|
|
|
|
strcpy (cmdtype2 + len - 1, " sub");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (class == all_classes)
|
|
|
|
|
fprintf_filtered (stream, "List of classes of %scommands:\n\n", cmdtype2);
|
|
|
|
|
else
|
|
|
|
|
fprintf_filtered (stream, "List of %scommands:\n\n", cmdtype2);
|
|
|
|
|
|
|
|
|
|
help_cmd_list (list, class, cmdtype, (int)class >= 0, stream);
|
|
|
|
|
|
|
|
|
|
if (class == all_classes)
|
|
|
|
|
fprintf_filtered (stream, "\n\
|
|
|
|
|
Type \"help%s\" followed by a class name for a list of commands in that class.",
|
|
|
|
|
cmdtype1);
|
|
|
|
|
|
|
|
|
|
fprintf_filtered (stream, "\n\
|
|
|
|
|
Type \"help%s\" followed by %scommand name for full documentation.\n\
|
|
|
|
|
Command name abbreviations are allowed if unambiguous.\n",
|
|
|
|
|
cmdtype1, cmdtype2);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print only the first line of STR on STREAM. */
|
|
|
|
|
static void
|
|
|
|
|
print_doc_line (stream, str)
|
|
|
|
|
FILE *stream;
|
|
|
|
|
char *str;
|
|
|
|
|
{
|
|
|
|
|
static char *line_buffer = 0;
|
|
|
|
|
static int line_size;
|
|
|
|
|
register char *p;
|
|
|
|
|
|
|
|
|
|
if (!line_buffer)
|
|
|
|
|
{
|
|
|
|
|
line_size = 80;
|
|
|
|
|
line_buffer = (char *) xmalloc (line_size);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
p = str;
|
|
|
|
|
while (*p && *p != '\n' && *p != '.' && *p != ',')
|
|
|
|
|
p++;
|
|
|
|
|
if (p - str > line_size - 1)
|
|
|
|
|
{
|
|
|
|
|
line_size = p - str + 1;
|
1992-03-29 23:26:47 +00:00
|
|
|
|
free ((PTR)line_buffer);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
line_buffer = (char *) xmalloc (line_size);
|
|
|
|
|
}
|
|
|
|
|
strncpy (line_buffer, str, p - str);
|
|
|
|
|
line_buffer[p - str] = '\0';
|
|
|
|
|
if (islower (line_buffer[0]))
|
|
|
|
|
line_buffer[0] = toupper (line_buffer[0]);
|
|
|
|
|
fputs_filtered (line_buffer, stream);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Implement a help command on command list LIST.
|
|
|
|
|
* RECURSE should be non-zero if this should be done recursively on
|
|
|
|
|
* all sublists of LIST.
|
|
|
|
|
* PREFIX is the prefix to print before each command name.
|
|
|
|
|
* STREAM is the stream upon which the output should be written.
|
|
|
|
|
* CLASS should be:
|
|
|
|
|
* A non-negative class number to list only commands in that
|
|
|
|
|
* class.
|
|
|
|
|
* ALL_COMMANDS to list all commands in list.
|
|
|
|
|
* ALL_CLASSES to list all classes in list.
|
|
|
|
|
*
|
|
|
|
|
* Note that RECURSE will be active on *all* sublists, not just the
|
1992-02-22 01:46:16 +00:00
|
|
|
|
* ones selected by the criteria above (ie. the selection mechanism
|
1991-03-28 16:28:29 +00:00
|
|
|
|
* is at the low level, not the high-level).
|
|
|
|
|
*/
|
|
|
|
|
void
|
|
|
|
|
help_cmd_list (list, class, prefix, recurse, stream)
|
|
|
|
|
struct cmd_list_element *list;
|
|
|
|
|
enum command_class class;
|
|
|
|
|
char *prefix;
|
|
|
|
|
int recurse;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
register struct cmd_list_element *c;
|
|
|
|
|
|
|
|
|
|
for (c = list; c; c = c->next)
|
|
|
|
|
{
|
|
|
|
|
if (c->abbrev_flag == 0 &&
|
|
|
|
|
(class == all_commands
|
1992-02-22 01:46:16 +00:00
|
|
|
|
|| (class == all_classes && c->function.cfunc == NULL)
|
|
|
|
|
|| (class == c->class && c->function.cfunc != NULL)))
|
1991-03-28 16:28:29 +00:00
|
|
|
|
{
|
|
|
|
|
fprintf_filtered (stream, "%s%s -- ", prefix, c->name);
|
|
|
|
|
print_doc_line (stream, c->doc);
|
|
|
|
|
fputs_filtered ("\n", stream);
|
|
|
|
|
}
|
|
|
|
|
if (recurse
|
|
|
|
|
&& c->prefixlist != 0
|
|
|
|
|
&& c->abbrev_flag == 0)
|
|
|
|
|
help_cmd_list (*c->prefixlist, class, c->prefixname, 1, stream);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1992-07-10 17:22:35 +00:00
|
|
|
|
/* This routine takes a line of TEXT and a CLIST in which to start the
|
|
|
|
|
lookup. When it returns it will have incremented the text pointer past
|
|
|
|
|
the section of text it matched, set *RESULT_LIST to point to the list in
|
|
|
|
|
which the last word was matched, and will return a pointer to the cmd
|
|
|
|
|
list element which the text matches. It will return NULL if no match at
|
|
|
|
|
all was possible. It will return -1 (cast appropriately, ick) if ambigous
|
|
|
|
|
matches are possible; in this case *RESULT_LIST will be set to point to
|
|
|
|
|
the list in which there are ambiguous choices (and *TEXT will be set to
|
|
|
|
|
the ambiguous text string).
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
1992-10-01 09:57:36 +00:00
|
|
|
|
If the located command was an abbreviation, this routine returns the base
|
|
|
|
|
command of the abbreviation.
|
|
|
|
|
|
1991-03-28 16:28:29 +00:00
|
|
|
|
It does no error reporting whatsoever; control will always return
|
|
|
|
|
to the superior routine.
|
|
|
|
|
|
1992-07-10 17:22:35 +00:00
|
|
|
|
In the case of an ambiguous return (-1), *RESULT_LIST will be set to point
|
|
|
|
|
at the prefix_command (ie. the best match) *or* (special case) will be NULL
|
|
|
|
|
if no prefix command was ever found. For example, in the case of "info a",
|
|
|
|
|
"info" matches without ambiguity, but "a" could be "args" or "address", so
|
|
|
|
|
*RESULT_LIST is set to the cmd_list_element for "info". So in this case
|
|
|
|
|
RESULT_LIST should not be interpeted as a pointer to the beginning of a
|
|
|
|
|
list; it simply points to a specific command.
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
|
|
|
|
If RESULT_LIST is NULL, don't set *RESULT_LIST (but don't otherwise
|
|
|
|
|
affect the operation).
|
|
|
|
|
|
|
|
|
|
This routine does *not* modify the text pointed to by TEXT.
|
|
|
|
|
|
1992-07-10 17:22:35 +00:00
|
|
|
|
If IGNORE_HELP_CLASSES is nonzero, ignore any command list elements which
|
|
|
|
|
are actually help classes rather than commands (i.e. the function field of
|
|
|
|
|
the struct cmd_list_element is NULL). */
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
lookup_cmd_1 (text, clist, result_list, ignore_help_classes)
|
|
|
|
|
char **text;
|
|
|
|
|
struct cmd_list_element *clist, **result_list;
|
|
|
|
|
int ignore_help_classes;
|
|
|
|
|
{
|
|
|
|
|
char *p, *command;
|
|
|
|
|
int len, tmp, nfound;
|
|
|
|
|
struct cmd_list_element *found, *c;
|
|
|
|
|
|
|
|
|
|
while (**text == ' ' || **text == '\t')
|
|
|
|
|
(*text)++;
|
|
|
|
|
|
|
|
|
|
/* Treating underscores as part of command words is important
|
|
|
|
|
so that "set args_foo()" doesn't get interpreted as
|
|
|
|
|
"set args _foo()". */
|
|
|
|
|
for (p = *text;
|
|
|
|
|
*p && (isalnum(*p) || *p == '-' || *p == '_');
|
|
|
|
|
p++)
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
/* If nothing but whitespace, return 0. */
|
|
|
|
|
if (p == *text)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
len = p - *text;
|
|
|
|
|
|
|
|
|
|
/* *text and p now bracket the first command word to lookup (and
|
|
|
|
|
it's length is len). We copy this into a local temporary,
|
|
|
|
|
converting to lower case as we go. */
|
|
|
|
|
|
|
|
|
|
command = (char *) alloca (len + 1);
|
|
|
|
|
for (tmp = 0; tmp < len; tmp++)
|
|
|
|
|
{
|
|
|
|
|
char x = (*text)[tmp];
|
1992-03-25 23:07:16 +00:00
|
|
|
|
command[tmp] = isupper(x) ? tolower(x) : x;
|
1991-03-28 16:28:29 +00:00
|
|
|
|
}
|
|
|
|
|
command[len] = '\0';
|
|
|
|
|
|
|
|
|
|
/* Look it up. */
|
|
|
|
|
found = 0;
|
|
|
|
|
nfound = 0;
|
|
|
|
|
for (c = clist; c; c = c->next)
|
|
|
|
|
if (!strncmp (command, c->name, len)
|
1992-02-22 01:46:16 +00:00
|
|
|
|
&& (!ignore_help_classes || c->function.cfunc))
|
1991-03-28 16:28:29 +00:00
|
|
|
|
{
|
|
|
|
|
found = c;
|
|
|
|
|
nfound++;
|
|
|
|
|
if (c->name[len] == '\0')
|
|
|
|
|
{
|
|
|
|
|
nfound = 1;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If nothing matches, we have a simple failure. */
|
|
|
|
|
if (nfound == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
if (nfound > 1)
|
|
|
|
|
{
|
|
|
|
|
if (result_list != NULL)
|
|
|
|
|
/* Will be modified in calling routine
|
|
|
|
|
if we know what the prefix command is. */
|
|
|
|
|
*result_list = 0;
|
|
|
|
|
return (struct cmd_list_element *) -1; /* Ambiguous. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* We've matched something on this list. Move text pointer forward. */
|
|
|
|
|
|
|
|
|
|
*text = p;
|
1992-10-01 09:57:36 +00:00
|
|
|
|
|
|
|
|
|
/* If this was an abbreviation, use the base command instead. */
|
|
|
|
|
|
|
|
|
|
if (found->cmd_pointer)
|
|
|
|
|
found = found->cmd_pointer;
|
|
|
|
|
|
|
|
|
|
/* If we found a prefix command, keep looking. */
|
|
|
|
|
|
1991-03-28 16:28:29 +00:00
|
|
|
|
if (found->prefixlist)
|
|
|
|
|
{
|
|
|
|
|
c = lookup_cmd_1 (text, *found->prefixlist, result_list,
|
|
|
|
|
ignore_help_classes);
|
|
|
|
|
if (!c)
|
|
|
|
|
{
|
|
|
|
|
/* Didn't find anything; this is as far as we got. */
|
|
|
|
|
if (result_list != NULL)
|
|
|
|
|
*result_list = clist;
|
|
|
|
|
return found;
|
|
|
|
|
}
|
|
|
|
|
else if (c == (struct cmd_list_element *) -1)
|
|
|
|
|
{
|
|
|
|
|
/* We've gotten this far properley, but the next step
|
|
|
|
|
is ambiguous. We need to set the result list to the best
|
|
|
|
|
we've found (if an inferior hasn't already set it). */
|
|
|
|
|
if (result_list != NULL)
|
|
|
|
|
if (!*result_list)
|
|
|
|
|
/* This used to say *result_list = *found->prefixlist
|
|
|
|
|
If that was correct, need to modify the documentation
|
|
|
|
|
at the top of this function to clarify what is supposed
|
|
|
|
|
to be going on. */
|
|
|
|
|
*result_list = found;
|
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* We matched! */
|
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (result_list != NULL)
|
|
|
|
|
*result_list = clist;
|
|
|
|
|
return found;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1991-09-10 08:56:09 +00:00
|
|
|
|
/* All this hair to move the space to the front of cmdtype */
|
|
|
|
|
|
1992-02-22 01:46:16 +00:00
|
|
|
|
static void
|
1991-09-10 08:56:09 +00:00
|
|
|
|
undef_cmd_error (cmdtype, q)
|
|
|
|
|
char *cmdtype, *q;
|
|
|
|
|
{
|
|
|
|
|
error ("Undefined %scommand: \"%s\". Try \"help%s%.*s\".",
|
|
|
|
|
cmdtype,
|
|
|
|
|
q,
|
|
|
|
|
*cmdtype? " ": "",
|
|
|
|
|
strlen(cmdtype)-1,
|
|
|
|
|
cmdtype);
|
|
|
|
|
}
|
|
|
|
|
|
1991-03-28 16:28:29 +00:00
|
|
|
|
/* Look up the contents of *LINE as a command in the command list LIST.
|
|
|
|
|
LIST is a chain of struct cmd_list_element's.
|
|
|
|
|
If it is found, return the struct cmd_list_element for that command
|
|
|
|
|
and update *LINE to point after the command name, at the first argument.
|
|
|
|
|
If not found, call error if ALLOW_UNKNOWN is zero
|
|
|
|
|
otherwise (or if error returns) return zero.
|
|
|
|
|
Call error if specified command is ambiguous,
|
|
|
|
|
unless ALLOW_UNKNOWN is negative.
|
|
|
|
|
CMDTYPE precedes the word "command" in the error message.
|
|
|
|
|
|
|
|
|
|
If INGNORE_HELP_CLASSES is nonzero, ignore any command list
|
|
|
|
|
elements which are actually help classes rather than commands (i.e.
|
|
|
|
|
the function field of the struct cmd_list_element is 0). */
|
|
|
|
|
|
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
lookup_cmd (line, list, cmdtype, allow_unknown, ignore_help_classes)
|
|
|
|
|
char **line;
|
|
|
|
|
struct cmd_list_element *list;
|
|
|
|
|
char *cmdtype;
|
|
|
|
|
int allow_unknown;
|
|
|
|
|
int ignore_help_classes;
|
|
|
|
|
{
|
|
|
|
|
struct cmd_list_element *last_list = 0;
|
|
|
|
|
struct cmd_list_element *c =
|
|
|
|
|
lookup_cmd_1 (line, list, &last_list, ignore_help_classes);
|
|
|
|
|
char *ptr = (*line) + strlen (*line) - 1;
|
|
|
|
|
|
|
|
|
|
/* Clear off trailing whitespace. */
|
|
|
|
|
while (ptr >= *line && (*ptr == ' ' || *ptr == '\t'))
|
|
|
|
|
ptr--;
|
|
|
|
|
*(ptr + 1) = '\0';
|
|
|
|
|
|
|
|
|
|
if (!c)
|
|
|
|
|
{
|
|
|
|
|
if (!allow_unknown)
|
|
|
|
|
{
|
|
|
|
|
if (!*line)
|
|
|
|
|
error ("Lack of needed %scommand", cmdtype);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
char *p = *line, *q;
|
|
|
|
|
|
|
|
|
|
while (isalnum(*p) || *p == '-')
|
|
|
|
|
p++;
|
|
|
|
|
|
|
|
|
|
q = (char *) alloca (p - *line + 1);
|
|
|
|
|
strncpy (q, *line, p - *line);
|
|
|
|
|
q[p-*line] = '\0';
|
1991-09-10 08:56:09 +00:00
|
|
|
|
undef_cmd_error (cmdtype, q);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
else if (c == (struct cmd_list_element *) -1)
|
|
|
|
|
{
|
|
|
|
|
/* Ambigous. Local values should be off prefixlist or called
|
|
|
|
|
values. */
|
|
|
|
|
int local_allow_unknown = (last_list ? last_list->allow_unknown :
|
|
|
|
|
allow_unknown);
|
|
|
|
|
char *local_cmdtype = last_list ? last_list->prefixname : cmdtype;
|
|
|
|
|
struct cmd_list_element *local_list =
|
|
|
|
|
(last_list ? *(last_list->prefixlist) : list);
|
|
|
|
|
|
|
|
|
|
if (local_allow_unknown < 0)
|
|
|
|
|
{
|
|
|
|
|
if (last_list)
|
|
|
|
|
return last_list; /* Found something. */
|
|
|
|
|
else
|
|
|
|
|
return 0; /* Found nothing. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Report as error. */
|
|
|
|
|
int amb_len;
|
|
|
|
|
char ambbuf[100];
|
|
|
|
|
|
|
|
|
|
for (amb_len = 0;
|
|
|
|
|
((*line)[amb_len] && (*line)[amb_len] != ' '
|
|
|
|
|
&& (*line)[amb_len] != '\t');
|
|
|
|
|
amb_len++)
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
ambbuf[0] = 0;
|
|
|
|
|
for (c = local_list; c; c = c->next)
|
|
|
|
|
if (!strncmp (*line, c->name, amb_len))
|
|
|
|
|
{
|
|
|
|
|
if (strlen (ambbuf) + strlen (c->name) + 6 < (int)sizeof ambbuf)
|
|
|
|
|
{
|
|
|
|
|
if (strlen (ambbuf))
|
|
|
|
|
strcat (ambbuf, ", ");
|
|
|
|
|
strcat (ambbuf, c->name);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
strcat (ambbuf, "..");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
error ("Ambiguous %scommand \"%s\": %s.", local_cmdtype,
|
|
|
|
|
*line, ambbuf);
|
|
|
|
|
return 0; /* lint */
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* We've got something. It may still not be what the caller
|
|
|
|
|
wants (if this command *needs* a subcommand). */
|
|
|
|
|
while (**line == ' ' || **line == '\t')
|
|
|
|
|
(*line)++;
|
|
|
|
|
|
|
|
|
|
if (c->prefixlist && **line && !c->allow_unknown)
|
1991-09-10 08:56:09 +00:00
|
|
|
|
undef_cmd_error (c->prefixname, *line);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
|
|
|
|
/* Seems to be what he wants. Return it. */
|
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
/* Look up the contents of *LINE as a command in the command list LIST.
|
|
|
|
|
LIST is a chain of struct cmd_list_element's.
|
|
|
|
|
If it is found, return the struct cmd_list_element for that command
|
|
|
|
|
and update *LINE to point after the command name, at the first argument.
|
|
|
|
|
If not found, call error if ALLOW_UNKNOWN is zero
|
|
|
|
|
otherwise (or if error returns) return zero.
|
|
|
|
|
Call error if specified command is ambiguous,
|
|
|
|
|
unless ALLOW_UNKNOWN is negative.
|
|
|
|
|
CMDTYPE precedes the word "command" in the error message. */
|
|
|
|
|
|
|
|
|
|
struct cmd_list_element *
|
|
|
|
|
lookup_cmd (line, list, cmdtype, allow_unknown)
|
|
|
|
|
char **line;
|
|
|
|
|
struct cmd_list_element *list;
|
|
|
|
|
char *cmdtype;
|
|
|
|
|
int allow_unknown;
|
|
|
|
|
{
|
|
|
|
|
register char *p;
|
|
|
|
|
register struct cmd_list_element *c, *found;
|
|
|
|
|
int nfound;
|
|
|
|
|
char ambbuf[100];
|
|
|
|
|
char *processed_cmd;
|
|
|
|
|
int i, cmd_len;
|
|
|
|
|
|
|
|
|
|
/* Skip leading whitespace. */
|
|
|
|
|
|
|
|
|
|
while (**line == ' ' || **line == '\t')
|
|
|
|
|
(*line)++;
|
|
|
|
|
|
|
|
|
|
/* Clear out trailing whitespace. */
|
|
|
|
|
|
|
|
|
|
p = *line + strlen (*line);
|
|
|
|
|
while (p != *line && (p[-1] == ' ' || p[-1] == '\t'))
|
|
|
|
|
p--;
|
|
|
|
|
*p = 0;
|
|
|
|
|
|
|
|
|
|
/* Find end of command name. */
|
|
|
|
|
|
|
|
|
|
p = *line;
|
1992-03-25 23:07:16 +00:00
|
|
|
|
while (*p == '-' || isalnum(*p))
|
1991-03-28 16:28:29 +00:00
|
|
|
|
p++;
|
|
|
|
|
|
|
|
|
|
/* Look up the command name.
|
|
|
|
|
If exact match, keep that.
|
|
|
|
|
Otherwise, take command abbreviated, if unique. Note that (in my
|
|
|
|
|
opinion) a null string does *not* indicate ambiguity; simply the
|
|
|
|
|
end of the argument. */
|
|
|
|
|
|
|
|
|
|
if (p == *line)
|
|
|
|
|
{
|
|
|
|
|
if (!allow_unknown)
|
|
|
|
|
error ("Lack of needed %scommand", cmdtype);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Copy over to a local buffer, converting to lowercase on the way.
|
|
|
|
|
This is in case the command being parsed is a subcommand which
|
|
|
|
|
doesn't match anything, and that's ok. We want the original
|
|
|
|
|
untouched for the routine of the original command. */
|
|
|
|
|
|
|
|
|
|
processed_cmd = (char *) alloca (p - *line + 1);
|
|
|
|
|
for (cmd_len = 0; cmd_len < p - *line; cmd_len++)
|
|
|
|
|
{
|
|
|
|
|
char x = (*line)[cmd_len];
|
1992-03-25 23:07:16 +00:00
|
|
|
|
if (isupper(x))
|
|
|
|
|
processed_cmd[cmd_len] = tolower(x);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
else
|
|
|
|
|
processed_cmd[cmd_len] = x;
|
|
|
|
|
}
|
|
|
|
|
processed_cmd[cmd_len] = '\0';
|
|
|
|
|
|
|
|
|
|
/* Check all possibilities in the current command list. */
|
|
|
|
|
found = 0;
|
|
|
|
|
nfound = 0;
|
|
|
|
|
for (c = list; c; c = c->next)
|
|
|
|
|
{
|
|
|
|
|
if (!strncmp (processed_cmd, c->name, cmd_len))
|
|
|
|
|
{
|
|
|
|
|
found = c;
|
|
|
|
|
nfound++;
|
|
|
|
|
if (c->name[cmd_len] == 0)
|
|
|
|
|
{
|
|
|
|
|
nfound = 1;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Report error for undefined command name. */
|
|
|
|
|
|
|
|
|
|
if (nfound != 1)
|
|
|
|
|
{
|
|
|
|
|
if (nfound > 1 && allow_unknown >= 0)
|
|
|
|
|
{
|
|
|
|
|
ambbuf[0] = 0;
|
|
|
|
|
for (c = list; c; c = c->next)
|
|
|
|
|
if (!strncmp (processed_cmd, c->name, cmd_len))
|
|
|
|
|
{
|
|
|
|
|
if (strlen (ambbuf) + strlen (c->name) + 6 < sizeof ambbuf)
|
|
|
|
|
{
|
|
|
|
|
if (strlen (ambbuf))
|
|
|
|
|
strcat (ambbuf, ", ");
|
|
|
|
|
strcat (ambbuf, c->name);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
strcat (ambbuf, "..");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
error ("Ambiguous %scommand \"%s\": %s.", cmdtype,
|
|
|
|
|
processed_cmd, ambbuf);
|
|
|
|
|
}
|
|
|
|
|
else if (!allow_unknown)
|
|
|
|
|
error ("Undefined %scommand: \"%s\".", cmdtype, processed_cmd);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Skip whitespace before the argument. */
|
|
|
|
|
|
|
|
|
|
while (*p == ' ' || *p == '\t') p++;
|
|
|
|
|
*line = p;
|
|
|
|
|
|
|
|
|
|
if (found->prefixlist && *p)
|
|
|
|
|
{
|
|
|
|
|
c = lookup_cmd (line, *found->prefixlist, found->prefixname,
|
|
|
|
|
found->allow_unknown);
|
|
|
|
|
if (c)
|
|
|
|
|
return c;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return found;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Helper function for SYMBOL_COMPLETION_FUNCTION. */
|
|
|
|
|
|
|
|
|
|
/* Return a vector of char pointers which point to the different
|
|
|
|
|
possible completions in LIST of TEXT. */
|
|
|
|
|
|
|
|
|
|
char **
|
|
|
|
|
complete_on_cmdlist (list, text)
|
|
|
|
|
struct cmd_list_element *list;
|
|
|
|
|
char *text;
|
|
|
|
|
{
|
|
|
|
|
struct cmd_list_element *ptr;
|
|
|
|
|
char **matchlist;
|
|
|
|
|
int sizeof_matchlist;
|
|
|
|
|
int matches;
|
|
|
|
|
int textlen = strlen (text);
|
|
|
|
|
|
|
|
|
|
sizeof_matchlist = 10;
|
|
|
|
|
matchlist = (char **) xmalloc (sizeof_matchlist * sizeof (char *));
|
|
|
|
|
matches = 0;
|
|
|
|
|
|
|
|
|
|
for (ptr = list; ptr; ptr = ptr->next)
|
|
|
|
|
if (!strncmp (ptr->name, text, textlen)
|
|
|
|
|
&& !ptr->abbrev_flag
|
1992-02-22 01:46:16 +00:00
|
|
|
|
&& (ptr->function.cfunc
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|| ptr->prefixlist))
|
|
|
|
|
{
|
|
|
|
|
if (matches == sizeof_matchlist)
|
|
|
|
|
{
|
|
|
|
|
sizeof_matchlist *= 2;
|
|
|
|
|
matchlist = (char **) xrealloc ((char *)matchlist,
|
|
|
|
|
(sizeof_matchlist
|
|
|
|
|
* sizeof (char *)));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
matchlist[matches] = (char *)
|
|
|
|
|
xmalloc (strlen (ptr->name) + 1);
|
|
|
|
|
strcpy (matchlist[matches++], ptr->name);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (matches == 0)
|
|
|
|
|
{
|
1992-03-29 23:26:47 +00:00
|
|
|
|
free ((PTR)matchlist);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
matchlist = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
matchlist = (char **) xrealloc ((char *)matchlist, ((matches + 1)
|
|
|
|
|
* sizeof (char *)));
|
|
|
|
|
matchlist[matches] = (char *) 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return matchlist;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
parse_binary_operation (arg)
|
|
|
|
|
char *arg;
|
|
|
|
|
{
|
|
|
|
|
int length;
|
|
|
|
|
|
|
|
|
|
if (!arg || !*arg)
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
length = strlen (arg);
|
|
|
|
|
|
|
|
|
|
while (arg[length - 1] == ' ' || arg[length - 1] == '\t')
|
|
|
|
|
length--;
|
|
|
|
|
|
|
|
|
|
if (!strncmp (arg, "on", length)
|
|
|
|
|
|| !strncmp (arg, "1", length)
|
|
|
|
|
|| !strncmp (arg, "yes", length))
|
|
|
|
|
return 1;
|
|
|
|
|
else
|
|
|
|
|
if (!strncmp (arg, "off", length)
|
|
|
|
|
|| !strncmp (arg, "0", length)
|
|
|
|
|
|| !strncmp (arg, "no", length))
|
|
|
|
|
return 0;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
error ("\"on\" or \"off\" expected.");
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Do a "set" or "show" command. ARG is NULL if no argument, or the text
|
|
|
|
|
of the argument, and FROM_TTY is nonzero if this command is being entered
|
|
|
|
|
directly by the user (i.e. these are just like any other
|
|
|
|
|
command). C is the command list element for the command. */
|
|
|
|
|
void
|
|
|
|
|
do_setshow_command (arg, from_tty, c)
|
|
|
|
|
char *arg;
|
|
|
|
|
int from_tty;
|
|
|
|
|
struct cmd_list_element *c;
|
|
|
|
|
{
|
|
|
|
|
if (c->type == set_cmd)
|
|
|
|
|
{
|
|
|
|
|
switch (c->var_type)
|
|
|
|
|
{
|
|
|
|
|
case var_string:
|
|
|
|
|
{
|
|
|
|
|
char *new;
|
|
|
|
|
char *p;
|
|
|
|
|
char *q;
|
|
|
|
|
int ch;
|
|
|
|
|
|
|
|
|
|
if (arg == NULL)
|
|
|
|
|
arg = "";
|
|
|
|
|
new = (char *) xmalloc (strlen (arg) + 2);
|
|
|
|
|
p = arg; q = new;
|
1992-02-22 01:46:16 +00:00
|
|
|
|
while ((ch = *p++) != '\000')
|
1991-03-28 16:28:29 +00:00
|
|
|
|
{
|
|
|
|
|
if (ch == '\\')
|
|
|
|
|
{
|
|
|
|
|
/* \ at end of argument is used after spaces
|
|
|
|
|
so they won't be lost. */
|
|
|
|
|
if (*p == 0)
|
|
|
|
|
break;
|
|
|
|
|
ch = parse_escape (&p);
|
|
|
|
|
if (ch == 0)
|
|
|
|
|
break; /* C loses */
|
|
|
|
|
else if (ch > 0)
|
|
|
|
|
*q++ = ch;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
*q++ = ch;
|
|
|
|
|
}
|
|
|
|
|
if (*(p - 1) != '\\')
|
|
|
|
|
*q++ = ' ';
|
|
|
|
|
*q++ = '\0';
|
|
|
|
|
new = (char *) xrealloc (new, q - new);
|
|
|
|
|
if (*(char **)c->var != NULL)
|
|
|
|
|
free (*(char **)c->var);
|
|
|
|
|
*(char **) c->var = new;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case var_string_noescape:
|
|
|
|
|
if (arg == NULL)
|
|
|
|
|
arg = "";
|
|
|
|
|
if (*(char **)c->var != NULL)
|
|
|
|
|
free (*(char **)c->var);
|
|
|
|
|
*(char **) c->var = savestring (arg, strlen (arg));
|
|
|
|
|
break;
|
|
|
|
|
case var_filename:
|
|
|
|
|
if (arg == NULL)
|
|
|
|
|
error_no_arg ("filename to set it to.");
|
|
|
|
|
if (*(char **)c->var != NULL)
|
|
|
|
|
free (*(char **)c->var);
|
|
|
|
|
*(char **)c->var = tilde_expand (arg);
|
|
|
|
|
break;
|
|
|
|
|
case var_boolean:
|
|
|
|
|
*(int *) c->var = parse_binary_operation (arg);
|
|
|
|
|
break;
|
|
|
|
|
case var_uinteger:
|
|
|
|
|
if (arg == NULL)
|
|
|
|
|
error_no_arg ("integer to set it to.");
|
1993-03-05 01:44:38 +00:00
|
|
|
|
*(unsigned int *) c->var = parse_and_eval_address (arg);
|
|
|
|
|
if (*(unsigned int *) c->var == 0)
|
|
|
|
|
*(unsigned int *) c->var = UINT_MAX;
|
1991-03-28 16:28:29 +00:00
|
|
|
|
break;
|
1993-03-30 23:06:29 +00:00
|
|
|
|
case var_integer:
|
|
|
|
|
{
|
|
|
|
|
unsigned int val;
|
|
|
|
|
if (arg == NULL)
|
|
|
|
|
error_no_arg ("integer to set it to.");
|
|
|
|
|
val = parse_and_eval_address (arg);
|
|
|
|
|
if (val == 0)
|
|
|
|
|
*(int *) c->var = INT_MAX;
|
|
|
|
|
else if (val >= INT_MAX)
|
|
|
|
|
error ("integer %u out of range", val);
|
|
|
|
|
else
|
|
|
|
|
*(int *) c->var = val;
|
|
|
|
|
break;
|
|
|
|
|
}
|
1991-03-28 16:28:29 +00:00
|
|
|
|
case var_zinteger:
|
|
|
|
|
if (arg == NULL)
|
|
|
|
|
error_no_arg ("integer to set it to.");
|
|
|
|
|
*(int *) c->var = parse_and_eval_address (arg);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
error ("gdb internal error: bad var_type in do_setshow_command");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (c->type == show_cmd)
|
|
|
|
|
{
|
|
|
|
|
/* Print doc minus "show" at start. */
|
|
|
|
|
print_doc_line (stdout, c->doc + 5);
|
|
|
|
|
|
|
|
|
|
fputs_filtered (" is ", stdout);
|
|
|
|
|
wrap_here (" ");
|
|
|
|
|
switch (c->var_type)
|
|
|
|
|
{
|
|
|
|
|
case var_string:
|
|
|
|
|
{
|
|
|
|
|
unsigned char *p;
|
|
|
|
|
fputs_filtered ("\"", stdout);
|
|
|
|
|
for (p = *(unsigned char **) c->var; *p != '\0'; p++)
|
* defs.h (sevenbit_strings): Add declaration.
* defs.h (printchar): Replace with gdb_printchar.
* language.h (language_defn): Add new function pointers
la_printchar and la_printstr, to do language dependent
printing of characters and strings.
* language.h (local_printchar, local_printstr): New macros
to call language dependent functions pointed to by la_printchar
and la_printstr respectively.
* c-exp.y (emit_char, c_printchar, c_printstr): New language
dependent functions for printing characters and strings.
* c-exp.y (c_language_defn, cplus_language_defn): Add
c_printchar and c_printstr.
* command.c (do_setshow_command): Rename printchar use to
gdb_printchar.
* expprint.c (print_subexp): Replace C style string output
with call to local_printstr.
* language.c (unk_lang_printchar, unk_lang_printstr):
New stubs, currently errors.
* language.c (unknown_language_defn, auto_language_defn,
local_language_defn): Add unk_lang_printchar and
unk_lang_printstr.
* m2-exp.y (emit_char, m2_printchar, m2_printstr): New
language dependent functions to print characters and strings.
* m2-exp.y (m2_language_defn): Add m2_printchar and m2_printstr.
* utils.c (printchar): Renamed to gdb_printchar.
* valprint.c (print_string): Remove prototype, function moved
to c-exp.y, where it becomes c_printstr.
* valprint.c (print_max): Made global for reference from the
language dependent printing routines in *-exp.y.
* valprint.c (repeat_count_threshold): New variable with function
of old REPEAT_COUNT_THREHOLD define, but now settable by user.
Change all references to old macro to references to new variable.
* valprint.c (value_print, val_print): Replace calls to
print_string with calls to local_printstr.
* valprint.c (val_print): Replace C style character printing
with call to local_printchar.
* valprint.c (val_print): Add case for TYPE_CODE_CHAR.
* valprint.c (_initialize_valprint): Add add_show_from_set
call for setting up repeat_count_threshold as print variable.
**** start-sanitize-chill ****
* ch-exp.y (decode_integer_value): New function.
* ch-exp.y (decode_integer_literal): Use decode_integer_value.
* ch-exp.y (chill_printchar, chill_printstr): New language
dependent functions for printing characters and strings.
* ch-exp.y (chill_language_defn): Add chill_printchar and
chill_printstr.
**** end-sanitize-chill ****
1992-11-21 06:10:08 +00:00
|
|
|
|
gdb_printchar (*p, stdout, '"');
|
1991-03-28 16:28:29 +00:00
|
|
|
|
fputs_filtered ("\"", stdout);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case var_string_noescape:
|
|
|
|
|
case var_filename:
|
|
|
|
|
fputs_filtered ("\"", stdout);
|
|
|
|
|
fputs_filtered (*(char **) c->var, stdout);
|
|
|
|
|
fputs_filtered ("\"", stdout);
|
|
|
|
|
break;
|
|
|
|
|
case var_boolean:
|
|
|
|
|
fputs_filtered (*(int *) c->var ? "on" : "off", stdout);
|
|
|
|
|
break;
|
|
|
|
|
case var_uinteger:
|
|
|
|
|
if (*(unsigned int *) c->var == UINT_MAX) {
|
|
|
|
|
fputs_filtered ("unlimited", stdout);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
/* else fall through */
|
|
|
|
|
case var_zinteger:
|
1993-03-30 23:06:29 +00:00
|
|
|
|
fprintf_filtered (stdout, "%u", *(unsigned int *) c->var);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
break;
|
1993-03-30 23:06:29 +00:00
|
|
|
|
case var_integer:
|
|
|
|
|
if (*(int *) c->var == INT_MAX)
|
|
|
|
|
{
|
|
|
|
|
fputs_filtered ("unlimited", stdout);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
fprintf_filtered (stdout, "%d", *(int *) c->var);
|
|
|
|
|
break;
|
|
|
|
|
|
1991-03-28 16:28:29 +00:00
|
|
|
|
default:
|
|
|
|
|
error ("gdb internal error: bad var_type in do_setshow_command");
|
|
|
|
|
}
|
|
|
|
|
fputs_filtered (".\n", stdout);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
error ("gdb internal error: bad cmd_type in do_setshow_command");
|
1992-02-22 01:46:16 +00:00
|
|
|
|
(*c->function.sfunc) (NULL, from_tty, c);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Show all the settings in a list of show commands. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cmd_show_list (list, from_tty, prefix)
|
|
|
|
|
struct cmd_list_element *list;
|
|
|
|
|
int from_tty;
|
|
|
|
|
char *prefix;
|
|
|
|
|
{
|
|
|
|
|
for (; list != NULL; list = list->next) {
|
|
|
|
|
/* If we find a prefix, run its list, prefixing our output by its
|
|
|
|
|
prefix (with "show " skipped). */
|
|
|
|
|
if (list->prefixlist && !list->abbrev_flag)
|
|
|
|
|
cmd_show_list (*list->prefixlist, from_tty, list->prefixname + 5);
|
|
|
|
|
if (list->type == show_cmd)
|
|
|
|
|
{
|
|
|
|
|
fputs_filtered (prefix, stdout);
|
|
|
|
|
fputs_filtered (list->name, stdout);
|
|
|
|
|
fputs_filtered (": ", stdout);
|
|
|
|
|
do_setshow_command ((char *)NULL, from_tty, list);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1993-01-04 15:39:00 +00:00
|
|
|
|
#ifndef CANT_FORK
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:28:29 +00:00
|
|
|
|
static void
|
|
|
|
|
shell_escape (arg, from_tty)
|
|
|
|
|
char *arg;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
int rc, status, pid;
|
|
|
|
|
char *p, *user_shell;
|
|
|
|
|
|
|
|
|
|
if ((user_shell = (char *) getenv ("SHELL")) == NULL)
|
|
|
|
|
user_shell = "/bin/sh";
|
|
|
|
|
|
|
|
|
|
/* Get the name of the shell for arg0 */
|
1992-02-22 01:46:16 +00:00
|
|
|
|
if ((p = strrchr (user_shell, '/')) == NULL)
|
1991-03-28 16:28:29 +00:00
|
|
|
|
p = user_shell;
|
|
|
|
|
else
|
|
|
|
|
p++; /* Get past '/' */
|
|
|
|
|
|
|
|
|
|
if ((pid = fork()) == 0)
|
|
|
|
|
{
|
|
|
|
|
if (!arg)
|
|
|
|
|
execl (user_shell, p, 0);
|
|
|
|
|
else
|
|
|
|
|
execl (user_shell, p, "-c", arg, 0);
|
|
|
|
|
|
|
|
|
|
fprintf (stderr, "Exec of shell failed\n");
|
|
|
|
|
exit (0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (pid != -1)
|
|
|
|
|
while ((rc = wait (&status)) != pid && rc != -1)
|
|
|
|
|
;
|
|
|
|
|
else
|
|
|
|
|
error ("Fork failed");
|
|
|
|
|
}
|
1993-01-04 15:39:00 +00:00
|
|
|
|
#endif
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
1993-01-04 15:39:00 +00:00
|
|
|
|
#ifndef CANT_FORK
|
1991-03-28 16:28:29 +00:00
|
|
|
|
static void
|
|
|
|
|
make_command (arg, from_tty)
|
|
|
|
|
char *arg;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
if (arg == 0)
|
|
|
|
|
p = "make";
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
p = xmalloc (sizeof("make ") + strlen(arg));
|
|
|
|
|
strcpy (p, "make ");
|
|
|
|
|
strcpy (p + sizeof("make ")-1, arg);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
shell_escape (p, from_tty);
|
|
|
|
|
}
|
1993-01-04 15:39:00 +00:00
|
|
|
|
#endif
|
1991-03-28 16:28:29 +00:00
|
|
|
|
|
1991-04-05 09:02:10 +00:00
|
|
|
|
static void
|
1991-12-04 08:36:17 +00:00
|
|
|
|
show_user_1 (c, stream)
|
1991-04-05 09:02:10 +00:00
|
|
|
|
struct cmd_list_element *c;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
register struct command_line *cmdlines;
|
|
|
|
|
|
|
|
|
|
cmdlines = c->user_commands;
|
|
|
|
|
if (!cmdlines)
|
|
|
|
|
return;
|
1993-03-17 20:21:55 +00:00
|
|
|
|
fputs_filtered ("User command ", stream);
|
|
|
|
|
fputs_filtered (c->name, stream);
|
|
|
|
|
fputs_filtered (":\n", stream);
|
1991-04-05 09:02:10 +00:00
|
|
|
|
while (cmdlines)
|
|
|
|
|
{
|
1993-03-17 20:21:55 +00:00
|
|
|
|
fputs_filtered (cmdlines->line, stream);
|
|
|
|
|
fputs_filtered ("\n", stream);
|
1991-04-05 09:02:10 +00:00
|
|
|
|
cmdlines = cmdlines->next;
|
|
|
|
|
}
|
|
|
|
|
fputs_filtered ("\n", stream);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* ARGSUSED */
|
|
|
|
|
static void
|
1991-12-04 08:36:17 +00:00
|
|
|
|
show_user (args, from_tty)
|
1991-04-05 09:02:10 +00:00
|
|
|
|
char *args;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
struct cmd_list_element *c;
|
|
|
|
|
extern struct cmd_list_element *cmdlist;
|
|
|
|
|
|
|
|
|
|
if (args)
|
|
|
|
|
{
|
|
|
|
|
c = lookup_cmd (&args, cmdlist, "", 0, 1);
|
|
|
|
|
if (c->class != class_user)
|
|
|
|
|
error ("Not a user command.");
|
1991-12-04 08:36:17 +00:00
|
|
|
|
show_user_1 (c, stdout);
|
1991-04-05 09:02:10 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
for (c = cmdlist; c; c = c->next)
|
|
|
|
|
{
|
|
|
|
|
if (c->class == class_user)
|
1991-12-04 08:36:17 +00:00
|
|
|
|
show_user_1 (c, stdout);
|
1991-04-05 09:02:10 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1991-03-28 16:28:29 +00:00
|
|
|
|
void
|
|
|
|
|
_initialize_command ()
|
|
|
|
|
{
|
1993-01-04 15:39:00 +00:00
|
|
|
|
#ifndef CANT_FORK
|
1991-03-28 16:28:29 +00:00
|
|
|
|
add_com ("shell", class_support, shell_escape,
|
|
|
|
|
"Execute the rest of the line as a shell command. \n\
|
|
|
|
|
With no arguments, run an inferior shell.");
|
1993-01-04 15:39:00 +00:00
|
|
|
|
#endif
|
|
|
|
|
#ifndef CANT_FORK
|
1991-03-28 16:28:29 +00:00
|
|
|
|
add_com ("make", class_support, make_command,
|
|
|
|
|
"Run the ``make'' program using the rest of the line as arguments.");
|
1993-01-04 15:39:00 +00:00
|
|
|
|
#endif
|
1991-12-04 08:36:17 +00:00
|
|
|
|
add_cmd ("user", no_class, show_user,
|
|
|
|
|
"Show definitions of user defined commands.\n\
|
1991-04-05 09:02:10 +00:00
|
|
|
|
Argument is the name of the user defined command.\n\
|
1991-12-04 08:36:17 +00:00
|
|
|
|
With no argument, show definitions of all user defined commands.", &showlist);
|
1991-03-28 16:28:29 +00:00
|
|
|
|
}
|