/* Handle lists of commands, their decoding and documentation, for GDB.
|
/* Handle lists of commands, their decoding and documentation, for GDB.
|
|
|
Copyright (c) 1986, 1989, 1990, 1991, 1998, 2000, 2001, 2002, 2004, 2007,
|
Copyright (c) 1986, 1989, 1990, 1991, 1998, 2000, 2001, 2002, 2004, 2007,
|
2008 Free Software Foundation, Inc.
|
2008 Free Software Foundation, Inc.
|
|
|
This program is free software; you can redistribute it and/or modify
|
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
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
#include "defs.h"
|
#include "defs.h"
|
#include "symtab.h"
|
#include "symtab.h"
|
#include <ctype.h>
|
#include <ctype.h>
|
#include "gdb_regex.h"
|
#include "gdb_regex.h"
|
#include "gdb_string.h"
|
#include "gdb_string.h"
|
#include "completer.h"
|
#include "completer.h"
|
#include "ui-out.h"
|
#include "ui-out.h"
|
|
|
#include "cli/cli-cmds.h"
|
#include "cli/cli-cmds.h"
|
#include "cli/cli-decode.h"
|
#include "cli/cli-decode.h"
|
|
|
#ifdef TUI
|
#ifdef TUI
|
#include "tui/tui.h" /* For tui_active et.al. */
|
#include "tui/tui.h" /* For tui_active et.al. */
|
#endif
|
#endif
|
|
|
#include "gdb_assert.h"
|
#include "gdb_assert.h"
|
|
|
/* Prototypes for local functions */
|
/* Prototypes for local functions */
|
|
|
static void undef_cmd_error (char *, char *);
|
static void undef_cmd_error (char *, char *);
|
|
|
static struct cmd_list_element *find_cmd (char *command,
|
static struct cmd_list_element *find_cmd (char *command,
|
int len,
|
int len,
|
struct cmd_list_element *clist,
|
struct cmd_list_element *clist,
|
int ignore_help_classes,
|
int ignore_help_classes,
|
int *nfound);
|
int *nfound);
|
|
|
static void help_all (struct ui_file *stream);
|
static void help_all (struct ui_file *stream);
|
|
|
static void
|
static void
|
print_help_for_command (struct cmd_list_element *c, char *prefix, int recurse,
|
print_help_for_command (struct cmd_list_element *c, char *prefix, int recurse,
|
struct ui_file *stream);
|
struct ui_file *stream);
|
|
|
|
|
/* Set the callback function for the specified command. For each both
|
/* Set the callback function for the specified command. For each both
|
the commands callback and func() are set. The latter set to a
|
the commands callback and func() are set. The latter set to a
|
bounce function (unless cfunc / sfunc is NULL that is). */
|
bounce function (unless cfunc / sfunc is NULL that is). */
|
|
|
static void
|
static void
|
do_cfunc (struct cmd_list_element *c, char *args, int from_tty)
|
do_cfunc (struct cmd_list_element *c, char *args, int from_tty)
|
{
|
{
|
c->function.cfunc (args, from_tty); /* Ok. */
|
c->function.cfunc (args, from_tty); /* Ok. */
|
}
|
}
|
|
|
void
|
void
|
set_cmd_cfunc (struct cmd_list_element *cmd, cmd_cfunc_ftype *cfunc)
|
set_cmd_cfunc (struct cmd_list_element *cmd, cmd_cfunc_ftype *cfunc)
|
{
|
{
|
if (cfunc == NULL)
|
if (cfunc == NULL)
|
cmd->func = NULL;
|
cmd->func = NULL;
|
else
|
else
|
cmd->func = do_cfunc;
|
cmd->func = do_cfunc;
|
cmd->function.cfunc = cfunc; /* Ok. */
|
cmd->function.cfunc = cfunc; /* Ok. */
|
}
|
}
|
|
|
static void
|
static void
|
do_sfunc (struct cmd_list_element *c, char *args, int from_tty)
|
do_sfunc (struct cmd_list_element *c, char *args, int from_tty)
|
{
|
{
|
c->function.sfunc (args, from_tty, c); /* Ok. */
|
c->function.sfunc (args, from_tty, c); /* Ok. */
|
}
|
}
|
|
|
void
|
void
|
set_cmd_sfunc (struct cmd_list_element *cmd, cmd_sfunc_ftype *sfunc)
|
set_cmd_sfunc (struct cmd_list_element *cmd, cmd_sfunc_ftype *sfunc)
|
{
|
{
|
if (sfunc == NULL)
|
if (sfunc == NULL)
|
cmd->func = NULL;
|
cmd->func = NULL;
|
else
|
else
|
cmd->func = do_sfunc;
|
cmd->func = do_sfunc;
|
cmd->function.sfunc = sfunc; /* Ok. */
|
cmd->function.sfunc = sfunc; /* Ok. */
|
}
|
}
|
|
|
int
|
int
|
cmd_cfunc_eq (struct cmd_list_element *cmd,
|
cmd_cfunc_eq (struct cmd_list_element *cmd,
|
void (*cfunc) (char *args, int from_tty))
|
void (*cfunc) (char *args, int from_tty))
|
{
|
{
|
return cmd->func == do_cfunc && cmd->function.cfunc == cfunc;
|
return cmd->func == do_cfunc && cmd->function.cfunc == cfunc;
|
}
|
}
|
|
|
void
|
void
|
set_cmd_context (struct cmd_list_element *cmd, void *context)
|
set_cmd_context (struct cmd_list_element *cmd, void *context)
|
{
|
{
|
cmd->context = context;
|
cmd->context = context;
|
}
|
}
|
|
|
void *
|
void *
|
get_cmd_context (struct cmd_list_element *cmd)
|
get_cmd_context (struct cmd_list_element *cmd)
|
{
|
{
|
return cmd->context;
|
return cmd->context;
|
}
|
}
|
|
|
enum cmd_types
|
enum cmd_types
|
cmd_type (struct cmd_list_element *cmd)
|
cmd_type (struct cmd_list_element *cmd)
|
{
|
{
|
return cmd->type;
|
return cmd->type;
|
}
|
}
|
|
|
void
|
void
|
set_cmd_completer (struct cmd_list_element *cmd,
|
set_cmd_completer (struct cmd_list_element *cmd,
|
char **(*completer) (char *text, char *word))
|
char **(*completer) (char *text, char *word))
|
{
|
{
|
cmd->completer = completer; /* Ok. */
|
cmd->completer = completer; /* Ok. */
|
}
|
}
|
|
|
|
|
/* Add element named NAME.
|
/* Add element named NAME.
|
CLASS is the top level category into which commands are broken down
|
CLASS is the top level category into which commands are broken down
|
for "help" purposes.
|
for "help" purposes.
|
FUN should be the function to execute the command;
|
FUN should be the function to execute the command;
|
it will get a character string as argument, with leading
|
it will get a character string as argument, with leading
|
and trailing blanks already eliminated.
|
and trailing blanks already eliminated.
|
|
|
DOC is a documentation string for the command.
|
DOC is a documentation string for the command.
|
Its first line should be a complete sentence.
|
Its first line should be a complete sentence.
|
It should start with ? for a command that is an abbreviation
|
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.
|
or with * for a command that most users don't need to know about.
|
|
|
Add this command to command list *LIST.
|
Add this command to command list *LIST.
|
|
|
Returns a pointer to the added command (not necessarily the head
|
Returns a pointer to the added command (not necessarily the head
|
of *LIST). */
|
of *LIST). */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
add_cmd (char *name, enum command_class class, void (*fun) (char *, int),
|
add_cmd (char *name, enum command_class class, void (*fun) (char *, int),
|
char *doc, struct cmd_list_element **list)
|
char *doc, struct cmd_list_element **list)
|
{
|
{
|
struct cmd_list_element *c
|
struct cmd_list_element *c
|
= (struct cmd_list_element *) xmalloc (sizeof (struct cmd_list_element));
|
= (struct cmd_list_element *) xmalloc (sizeof (struct cmd_list_element));
|
struct cmd_list_element *p;
|
struct cmd_list_element *p;
|
|
|
delete_cmd (name, list);
|
delete_cmd (name, list);
|
|
|
if (*list == NULL || strcmp ((*list)->name, name) >= 0)
|
if (*list == NULL || strcmp ((*list)->name, name) >= 0)
|
{
|
{
|
c->next = *list;
|
c->next = *list;
|
*list = c;
|
*list = c;
|
}
|
}
|
else
|
else
|
{
|
{
|
p = *list;
|
p = *list;
|
while (p->next && strcmp (p->next->name, name) <= 0)
|
while (p->next && strcmp (p->next->name, name) <= 0)
|
{
|
{
|
p = p->next;
|
p = p->next;
|
}
|
}
|
c->next = p->next;
|
c->next = p->next;
|
p->next = c;
|
p->next = c;
|
}
|
}
|
|
|
c->name = name;
|
c->name = name;
|
c->class = class;
|
c->class = class;
|
set_cmd_cfunc (c, fun);
|
set_cmd_cfunc (c, fun);
|
set_cmd_context (c, NULL);
|
set_cmd_context (c, NULL);
|
c->doc = doc;
|
c->doc = doc;
|
c->flags = 0;
|
c->flags = 0;
|
c->replacement = NULL;
|
c->replacement = NULL;
|
c->pre_show_hook = NULL;
|
c->pre_show_hook = NULL;
|
c->hook_pre = NULL;
|
c->hook_pre = NULL;
|
c->hook_post = NULL;
|
c->hook_post = NULL;
|
c->hook_in = 0;
|
c->hook_in = 0;
|
c->prefixlist = NULL;
|
c->prefixlist = NULL;
|
c->prefixname = NULL;
|
c->prefixname = NULL;
|
c->allow_unknown = 0;
|
c->allow_unknown = 0;
|
c->abbrev_flag = 0;
|
c->abbrev_flag = 0;
|
set_cmd_completer (c, make_symbol_completion_list);
|
set_cmd_completer (c, make_symbol_completion_list);
|
c->type = not_set_cmd;
|
c->type = not_set_cmd;
|
c->var = NULL;
|
c->var = NULL;
|
c->var_type = var_boolean;
|
c->var_type = var_boolean;
|
c->enums = NULL;
|
c->enums = NULL;
|
c->user_commands = NULL;
|
c->user_commands = NULL;
|
c->hookee_pre = NULL;
|
c->hookee_pre = NULL;
|
c->hookee_post = NULL;
|
c->hookee_post = NULL;
|
c->cmd_pointer = NULL;
|
c->cmd_pointer = NULL;
|
|
|
return c;
|
return c;
|
}
|
}
|
|
|
/* Deprecates a command CMD.
|
/* Deprecates a command CMD.
|
REPLACEMENT is the name of the command which should be used in place
|
REPLACEMENT is the name of the command which should be used in place
|
of this command, or NULL if no such command exists.
|
of this command, or NULL if no such command exists.
|
|
|
This function does not check to see if command REPLACEMENT exists
|
This function does not check to see if command REPLACEMENT exists
|
since gdb may not have gotten around to adding REPLACEMENT when this
|
since gdb may not have gotten around to adding REPLACEMENT when this
|
function is called.
|
function is called.
|
|
|
Returns a pointer to the deprecated command. */
|
Returns a pointer to the deprecated command. */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
deprecate_cmd (struct cmd_list_element *cmd, char *replacement)
|
deprecate_cmd (struct cmd_list_element *cmd, char *replacement)
|
{
|
{
|
cmd->flags |= (CMD_DEPRECATED | DEPRECATED_WARN_USER);
|
cmd->flags |= (CMD_DEPRECATED | DEPRECATED_WARN_USER);
|
|
|
if (replacement != NULL)
|
if (replacement != NULL)
|
cmd->replacement = replacement;
|
cmd->replacement = replacement;
|
else
|
else
|
cmd->replacement = NULL;
|
cmd->replacement = NULL;
|
|
|
return cmd;
|
return cmd;
|
}
|
}
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
add_alias_cmd (char *name, char *oldname, enum command_class class,
|
add_alias_cmd (char *name, char *oldname, enum command_class class,
|
int abbrev_flag, struct cmd_list_element **list)
|
int abbrev_flag, struct cmd_list_element **list)
|
{
|
{
|
/* Must do this since lookup_cmd tries to side-effect its first arg */
|
/* Must do this since lookup_cmd tries to side-effect its first arg */
|
char *copied_name;
|
char *copied_name;
|
struct cmd_list_element *old;
|
struct cmd_list_element *old;
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
copied_name = (char *) alloca (strlen (oldname) + 1);
|
copied_name = (char *) alloca (strlen (oldname) + 1);
|
strcpy (copied_name, oldname);
|
strcpy (copied_name, oldname);
|
old = lookup_cmd (&copied_name, *list, "", 1, 1);
|
old = lookup_cmd (&copied_name, *list, "", 1, 1);
|
|
|
if (old == 0)
|
if (old == 0)
|
{
|
{
|
delete_cmd (name, list);
|
delete_cmd (name, list);
|
return 0;
|
return 0;
|
}
|
}
|
|
|
c = add_cmd (name, class, NULL, old->doc, list);
|
c = add_cmd (name, class, NULL, old->doc, list);
|
/* NOTE: Both FUNC and all the FUNCTIONs need to be copied. */
|
/* NOTE: Both FUNC and all the FUNCTIONs need to be copied. */
|
c->func = old->func;
|
c->func = old->func;
|
c->function = old->function;
|
c->function = old->function;
|
c->prefixlist = old->prefixlist;
|
c->prefixlist = old->prefixlist;
|
c->prefixname = old->prefixname;
|
c->prefixname = old->prefixname;
|
c->allow_unknown = old->allow_unknown;
|
c->allow_unknown = old->allow_unknown;
|
c->abbrev_flag = abbrev_flag;
|
c->abbrev_flag = abbrev_flag;
|
c->cmd_pointer = old;
|
c->cmd_pointer = old;
|
return c;
|
return c;
|
}
|
}
|
|
|
/* Like add_cmd but adds an element for a command prefix:
|
/* Like add_cmd but adds an element for a command prefix:
|
a name that should be followed by a subcommand to be looked up
|
a name that should be followed by a subcommand to be looked up
|
in another command list. PREFIXLIST should be the address
|
in another command list. PREFIXLIST should be the address
|
of the variable containing that list. */
|
of the variable containing that list. */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
add_prefix_cmd (char *name, enum command_class class, void (*fun) (char *, int),
|
add_prefix_cmd (char *name, enum command_class class, void (*fun) (char *, int),
|
char *doc, struct cmd_list_element **prefixlist,
|
char *doc, struct cmd_list_element **prefixlist,
|
char *prefixname, int allow_unknown,
|
char *prefixname, int allow_unknown,
|
struct cmd_list_element **list)
|
struct cmd_list_element **list)
|
{
|
{
|
struct cmd_list_element *c = add_cmd (name, class, fun, doc, list);
|
struct cmd_list_element *c = add_cmd (name, class, fun, doc, list);
|
c->prefixlist = prefixlist;
|
c->prefixlist = prefixlist;
|
c->prefixname = prefixname;
|
c->prefixname = prefixname;
|
c->allow_unknown = allow_unknown;
|
c->allow_unknown = allow_unknown;
|
return c;
|
return c;
|
}
|
}
|
|
|
/* Like add_prefix_cmd but sets the abbrev_flag on the new command. */
|
/* Like add_prefix_cmd but sets the abbrev_flag on the new command. */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
add_abbrev_prefix_cmd (char *name, enum command_class class,
|
add_abbrev_prefix_cmd (char *name, enum command_class class,
|
void (*fun) (char *, int), char *doc,
|
void (*fun) (char *, int), char *doc,
|
struct cmd_list_element **prefixlist, char *prefixname,
|
struct cmd_list_element **prefixlist, char *prefixname,
|
int allow_unknown, struct cmd_list_element **list)
|
int allow_unknown, struct cmd_list_element **list)
|
{
|
{
|
struct cmd_list_element *c = add_cmd (name, class, fun, doc, list);
|
struct cmd_list_element *c = add_cmd (name, class, fun, doc, list);
|
c->prefixlist = prefixlist;
|
c->prefixlist = prefixlist;
|
c->prefixname = prefixname;
|
c->prefixname = prefixname;
|
c->allow_unknown = allow_unknown;
|
c->allow_unknown = allow_unknown;
|
c->abbrev_flag = 1;
|
c->abbrev_flag = 1;
|
return c;
|
return c;
|
}
|
}
|
|
|
/* This is an empty "cfunc". */
|
/* This is an empty "cfunc". */
|
void
|
void
|
not_just_help_class_command (char *args, int from_tty)
|
not_just_help_class_command (char *args, int from_tty)
|
{
|
{
|
}
|
}
|
|
|
/* This is an empty "sfunc". */
|
/* This is an empty "sfunc". */
|
static void empty_sfunc (char *, int, struct cmd_list_element *);
|
static void empty_sfunc (char *, int, struct cmd_list_element *);
|
|
|
static void
|
static void
|
empty_sfunc (char *args, int from_tty, struct cmd_list_element *c)
|
empty_sfunc (char *args, int from_tty, struct cmd_list_element *c)
|
{
|
{
|
}
|
}
|
|
|
/* Add element named NAME to command list LIST (the list for set/show
|
/* Add element named NAME to command list LIST (the list for set/show
|
or some sublist thereof).
|
or some sublist thereof).
|
TYPE is set_cmd or show_cmd.
|
TYPE is set_cmd or show_cmd.
|
CLASS is as in add_cmd.
|
CLASS is as in add_cmd.
|
VAR_TYPE is the kind of thing we are setting.
|
VAR_TYPE is the kind of thing we are setting.
|
VAR is address of the variable being controlled by this command.
|
VAR is address of the variable being controlled by this command.
|
DOC is the documentation string. */
|
DOC is the documentation string. */
|
|
|
static struct cmd_list_element *
|
static struct cmd_list_element *
|
add_set_or_show_cmd (char *name,
|
add_set_or_show_cmd (char *name,
|
enum cmd_types type,
|
enum cmd_types type,
|
enum command_class class,
|
enum command_class class,
|
var_types var_type,
|
var_types var_type,
|
void *var,
|
void *var,
|
char *doc,
|
char *doc,
|
struct cmd_list_element **list)
|
struct cmd_list_element **list)
|
{
|
{
|
struct cmd_list_element *c = add_cmd (name, class, NULL, doc, list);
|
struct cmd_list_element *c = add_cmd (name, class, NULL, doc, list);
|
gdb_assert (type == set_cmd || type == show_cmd);
|
gdb_assert (type == set_cmd || type == show_cmd);
|
c->type = type;
|
c->type = type;
|
c->var_type = var_type;
|
c->var_type = var_type;
|
c->var = var;
|
c->var = var;
|
/* This needs to be something besides NULL so that this isn't
|
/* This needs to be something besides NULL so that this isn't
|
treated as a help class. */
|
treated as a help class. */
|
set_cmd_sfunc (c, empty_sfunc);
|
set_cmd_sfunc (c, empty_sfunc);
|
return c;
|
return c;
|
}
|
}
|
|
|
/* Add element named NAME to both the command SET_LIST and SHOW_LIST.
|
/* Add element named NAME to both the command SET_LIST and SHOW_LIST.
|
CLASS is as in add_cmd. VAR_TYPE is the kind of thing we are
|
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
|
setting. VAR is address of the variable being controlled by this
|
command. SET_FUNC and SHOW_FUNC are the callback functions (if
|
command. SET_FUNC and SHOW_FUNC are the callback functions (if
|
non-NULL). SET_DOC, SHOW_DOC and HELP_DOC are the documentation
|
non-NULL). SET_DOC, SHOW_DOC and HELP_DOC are the documentation
|
strings. PRINT the format string to print the value. SET_RESULT
|
strings. PRINT the format string to print the value. SET_RESULT
|
and SHOW_RESULT, if not NULL, are set to the resulting command
|
and SHOW_RESULT, if not NULL, are set to the resulting command
|
structures. */
|
structures. */
|
|
|
static void
|
static void
|
add_setshow_cmd_full (char *name,
|
add_setshow_cmd_full (char *name,
|
enum command_class class,
|
enum command_class class,
|
var_types var_type, void *var,
|
var_types var_type, void *var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list,
|
struct cmd_list_element **show_list,
|
struct cmd_list_element **set_result,
|
struct cmd_list_element **set_result,
|
struct cmd_list_element **show_result)
|
struct cmd_list_element **show_result)
|
{
|
{
|
struct cmd_list_element *set;
|
struct cmd_list_element *set;
|
struct cmd_list_element *show;
|
struct cmd_list_element *show;
|
char *full_set_doc;
|
char *full_set_doc;
|
char *full_show_doc;
|
char *full_show_doc;
|
|
|
if (help_doc != NULL)
|
if (help_doc != NULL)
|
{
|
{
|
full_set_doc = xstrprintf ("%s\n%s", set_doc, help_doc);
|
full_set_doc = xstrprintf ("%s\n%s", set_doc, help_doc);
|
full_show_doc = xstrprintf ("%s\n%s", show_doc, help_doc);
|
full_show_doc = xstrprintf ("%s\n%s", show_doc, help_doc);
|
}
|
}
|
else
|
else
|
{
|
{
|
full_set_doc = xstrdup (set_doc);
|
full_set_doc = xstrdup (set_doc);
|
full_show_doc = xstrdup (show_doc);
|
full_show_doc = xstrdup (show_doc);
|
}
|
}
|
set = add_set_or_show_cmd (name, set_cmd, class, var_type, var,
|
set = add_set_or_show_cmd (name, set_cmd, class, var_type, var,
|
full_set_doc, set_list);
|
full_set_doc, set_list);
|
if (set_func != NULL)
|
if (set_func != NULL)
|
set_cmd_sfunc (set, set_func);
|
set_cmd_sfunc (set, set_func);
|
show = add_set_or_show_cmd (name, show_cmd, class, var_type, var,
|
show = add_set_or_show_cmd (name, show_cmd, class, var_type, var,
|
full_show_doc, show_list);
|
full_show_doc, show_list);
|
show->show_value_func = show_func;
|
show->show_value_func = show_func;
|
|
|
if (set_result != NULL)
|
if (set_result != NULL)
|
*set_result = set;
|
*set_result = set;
|
if (show_result != NULL)
|
if (show_result != NULL)
|
*show_result = show;
|
*show_result = show;
|
}
|
}
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
deprecated_add_set_cmd (char *name,
|
deprecated_add_set_cmd (char *name,
|
enum command_class class,
|
enum command_class class,
|
var_types var_type,
|
var_types var_type,
|
void *var,
|
void *var,
|
char *doc,
|
char *doc,
|
struct cmd_list_element **list)
|
struct cmd_list_element **list)
|
{
|
{
|
return add_set_or_show_cmd (name, set_cmd, class, var_type, var, doc, list);
|
return add_set_or_show_cmd (name, set_cmd, class, var_type, var, doc, list);
|
}
|
}
|
|
|
/* Add element named NAME to command list LIST (the list for set or
|
/* Add element named NAME to command list LIST (the list for set or
|
some sublist thereof). CLASS is as in add_cmd. ENUMLIST is a list
|
some sublist thereof). CLASS is as in add_cmd. ENUMLIST is a list
|
of strings which may follow NAME. VAR is address of the variable
|
of strings which may follow NAME. VAR is address of the variable
|
which will contain the matching string (from ENUMLIST). */
|
which will contain the matching string (from ENUMLIST). */
|
|
|
void
|
void
|
add_setshow_enum_cmd (char *name,
|
add_setshow_enum_cmd (char *name,
|
enum command_class class,
|
enum command_class class,
|
const char *enumlist[],
|
const char *enumlist[],
|
const char **var,
|
const char **var,
|
const char *set_doc,
|
const char *set_doc,
|
const char *show_doc,
|
const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
add_setshow_cmd_full (name, class, var_enum, var,
|
add_setshow_cmd_full (name, class, var_enum, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
&c, NULL);
|
&c, NULL);
|
c->enums = enumlist;
|
c->enums = enumlist;
|
}
|
}
|
|
|
/* Add an auto-boolean command named NAME to both the set and show
|
/* Add an auto-boolean command named NAME to both the set and show
|
command list lists. CLASS is as in add_cmd. VAR is address of the
|
command list lists. CLASS is as in add_cmd. VAR is address of the
|
variable which will contain the value. DOC is the documentation
|
variable which will contain the value. DOC is the documentation
|
string. FUNC is the corresponding callback. */
|
string. FUNC is the corresponding callback. */
|
void
|
void
|
add_setshow_auto_boolean_cmd (char *name,
|
add_setshow_auto_boolean_cmd (char *name,
|
enum command_class class,
|
enum command_class class,
|
enum auto_boolean *var,
|
enum auto_boolean *var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
static const char *auto_boolean_enums[] = { "on", "off", "auto", NULL };
|
static const char *auto_boolean_enums[] = { "on", "off", "auto", NULL };
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
add_setshow_cmd_full (name, class, var_auto_boolean, var,
|
add_setshow_cmd_full (name, class, var_auto_boolean, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
&c, NULL);
|
&c, NULL);
|
c->enums = auto_boolean_enums;
|
c->enums = auto_boolean_enums;
|
}
|
}
|
|
|
/* Add element named NAME to both the set and show command LISTs (the
|
/* Add element named NAME to both the set and show command LISTs (the
|
list for set/show or some sublist thereof). CLASS is as in
|
list for set/show or some sublist thereof). CLASS is as in
|
add_cmd. VAR is address of the variable which will contain the
|
add_cmd. VAR is address of the variable which will contain the
|
value. SET_DOC and SHOW_DOC are the documentation strings. */
|
value. SET_DOC and SHOW_DOC are the documentation strings. */
|
void
|
void
|
add_setshow_boolean_cmd (char *name, enum command_class class, int *var,
|
add_setshow_boolean_cmd (char *name, enum command_class class, int *var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
static const char *boolean_enums[] = { "on", "off", NULL };
|
static const char *boolean_enums[] = { "on", "off", NULL };
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
add_setshow_cmd_full (name, class, var_boolean, var,
|
add_setshow_cmd_full (name, class, var_boolean, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
&c, NULL);
|
&c, NULL);
|
c->enums = boolean_enums;
|
c->enums = boolean_enums;
|
}
|
}
|
|
|
/* Add element named NAME to both the set and show command LISTs (the
|
/* Add element named NAME to both the set and show command LISTs (the
|
list for set/show or some sublist thereof). */
|
list for set/show or some sublist thereof). */
|
void
|
void
|
add_setshow_filename_cmd (char *name, enum command_class class,
|
add_setshow_filename_cmd (char *name, enum command_class class,
|
char **var,
|
char **var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
struct cmd_list_element *set_result;
|
struct cmd_list_element *set_result;
|
add_setshow_cmd_full (name, class, var_filename, var,
|
add_setshow_cmd_full (name, class, var_filename, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
&set_result, NULL);
|
&set_result, NULL);
|
set_cmd_completer (set_result, filename_completer);
|
set_cmd_completer (set_result, filename_completer);
|
}
|
}
|
|
|
/* Add element named NAME to both the set and show command LISTs (the
|
/* Add element named NAME to both the set and show command LISTs (the
|
list for set/show or some sublist thereof). */
|
list for set/show or some sublist thereof). */
|
void
|
void
|
add_setshow_string_cmd (char *name, enum command_class class,
|
add_setshow_string_cmd (char *name, enum command_class class,
|
char **var,
|
char **var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
add_setshow_cmd_full (name, class, var_string, var,
|
add_setshow_cmd_full (name, class, var_string, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
NULL, NULL);
|
NULL, NULL);
|
}
|
}
|
|
|
/* Add element named NAME to both the set and show command LISTs (the
|
/* Add element named NAME to both the set and show command LISTs (the
|
list for set/show or some sublist thereof). */
|
list for set/show or some sublist thereof). */
|
void
|
void
|
add_setshow_string_noescape_cmd (char *name, enum command_class class,
|
add_setshow_string_noescape_cmd (char *name, enum command_class class,
|
char **var,
|
char **var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
add_setshow_cmd_full (name, class, var_string_noescape, var,
|
add_setshow_cmd_full (name, class, var_string_noescape, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
NULL, NULL);
|
NULL, NULL);
|
}
|
}
|
|
|
/* Add element named NAME to both the set and show command LISTs (the
|
/* Add element named NAME to both the set and show command LISTs (the
|
list for set/show or some sublist thereof). */
|
list for set/show or some sublist thereof). */
|
void
|
void
|
add_setshow_optional_filename_cmd (char *name, enum command_class class,
|
add_setshow_optional_filename_cmd (char *name, enum command_class class,
|
char **var,
|
char **var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
add_setshow_cmd_full (name, class, var_optional_filename, var,
|
add_setshow_cmd_full (name, class, var_optional_filename, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
NULL, NULL);
|
NULL, NULL);
|
}
|
}
|
|
|
/* Add element named NAME to both the set and show command LISTs (the
|
/* Add element named NAME to both the set and show command LISTs (the
|
list for set/show or some sublist thereof). CLASS is as in
|
list for set/show or some sublist thereof). CLASS is as in
|
add_cmd. VAR is address of the variable which will contain the
|
add_cmd. VAR is address of the variable which will contain the
|
value. SET_DOC and SHOW_DOC are the documentation strings. */
|
value. SET_DOC and SHOW_DOC are the documentation strings. */
|
void
|
void
|
add_setshow_integer_cmd (char *name, enum command_class class,
|
add_setshow_integer_cmd (char *name, enum command_class class,
|
int *var,
|
int *var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
add_setshow_cmd_full (name, class, var_integer, var,
|
add_setshow_cmd_full (name, class, var_integer, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
NULL, NULL);
|
NULL, NULL);
|
}
|
}
|
|
|
/* Add element named NAME to both the set and show command LISTs (the
|
/* Add element named NAME to both the set and show command LISTs (the
|
list for set/show or some sublist thereof). CLASS is as in
|
list for set/show or some sublist thereof). CLASS is as in
|
add_cmd. VAR is address of the variable which will contain the
|
add_cmd. VAR is address of the variable which will contain the
|
value. SET_DOC and SHOW_DOC are the documentation strings. */
|
value. SET_DOC and SHOW_DOC are the documentation strings. */
|
void
|
void
|
add_setshow_uinteger_cmd (char *name, enum command_class class,
|
add_setshow_uinteger_cmd (char *name, enum command_class class,
|
unsigned int *var,
|
unsigned int *var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
add_setshow_cmd_full (name, class, var_uinteger, var,
|
add_setshow_cmd_full (name, class, var_uinteger, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
NULL, NULL);
|
NULL, NULL);
|
}
|
}
|
|
|
/* Add element named NAME to both the set and show command LISTs (the
|
/* Add element named NAME to both the set and show command LISTs (the
|
list for set/show or some sublist thereof). CLASS is as in
|
list for set/show or some sublist thereof). CLASS is as in
|
add_cmd. VAR is address of the variable which will contain the
|
add_cmd. VAR is address of the variable which will contain the
|
value. SET_DOC and SHOW_DOC are the documentation strings. */
|
value. SET_DOC and SHOW_DOC are the documentation strings. */
|
void
|
void
|
add_setshow_zinteger_cmd (char *name, enum command_class class,
|
add_setshow_zinteger_cmd (char *name, enum command_class class,
|
int *var,
|
int *var,
|
const char *set_doc, const char *show_doc,
|
const char *set_doc, const char *show_doc,
|
const char *help_doc,
|
const char *help_doc,
|
cmd_sfunc_ftype *set_func,
|
cmd_sfunc_ftype *set_func,
|
show_value_ftype *show_func,
|
show_value_ftype *show_func,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **set_list,
|
struct cmd_list_element **show_list)
|
struct cmd_list_element **show_list)
|
{
|
{
|
add_setshow_cmd_full (name, class, var_zinteger, var,
|
add_setshow_cmd_full (name, class, var_zinteger, var,
|
set_doc, show_doc, help_doc,
|
set_doc, show_doc, help_doc,
|
set_func, show_func,
|
set_func, show_func,
|
set_list, show_list,
|
set_list, show_list,
|
NULL, NULL);
|
NULL, NULL);
|
}
|
}
|
|
|
/* Remove the command named NAME from the command list. */
|
/* Remove the command named NAME from the command list. */
|
|
|
void
|
void
|
delete_cmd (char *name, struct cmd_list_element **list)
|
delete_cmd (char *name, struct cmd_list_element **list)
|
{
|
{
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
struct cmd_list_element *p;
|
struct cmd_list_element *p;
|
|
|
while (*list && strcmp ((*list)->name, name) == 0)
|
while (*list && strcmp ((*list)->name, name) == 0)
|
{
|
{
|
if ((*list)->hookee_pre)
|
if ((*list)->hookee_pre)
|
(*list)->hookee_pre->hook_pre = 0; /* Hook slips out of its mouth */
|
(*list)->hookee_pre->hook_pre = 0; /* Hook slips out of its mouth */
|
if ((*list)->hookee_post)
|
if ((*list)->hookee_post)
|
(*list)->hookee_post->hook_post = 0; /* Hook slips out of its bottom */
|
(*list)->hookee_post->hook_post = 0; /* Hook slips out of its bottom */
|
p = (*list)->next;
|
p = (*list)->next;
|
xfree (* list);
|
xfree (* list);
|
*list = p;
|
*list = p;
|
}
|
}
|
|
|
if (*list)
|
if (*list)
|
for (c = *list; c->next;)
|
for (c = *list; c->next;)
|
{
|
{
|
if (strcmp (c->next->name, name) == 0)
|
if (strcmp (c->next->name, name) == 0)
|
{
|
{
|
if (c->next->hookee_pre)
|
if (c->next->hookee_pre)
|
c->next->hookee_pre->hook_pre = 0; /* hooked cmd gets away. */
|
c->next->hookee_pre->hook_pre = 0; /* hooked cmd gets away. */
|
if (c->next->hookee_post)
|
if (c->next->hookee_post)
|
c->next->hookee_post->hook_post = 0; /* remove post hook */
|
c->next->hookee_post->hook_post = 0; /* remove post hook */
|
/* :( no fishing metaphore */
|
/* :( no fishing metaphore */
|
p = c->next->next;
|
p = c->next->next;
|
xfree (c->next);
|
xfree (c->next);
|
c->next = p;
|
c->next = p;
|
}
|
}
|
else
|
else
|
c = c->next;
|
c = c->next;
|
}
|
}
|
}
|
}
|
|
|
/* Shorthands to the commands above. */
|
/* Shorthands to the commands above. */
|
|
|
/* Add an element to the list of info subcommands. */
|
/* Add an element to the list of info subcommands. */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
add_info (char *name, void (*fun) (char *, int), char *doc)
|
add_info (char *name, void (*fun) (char *, int), char *doc)
|
{
|
{
|
return add_cmd (name, no_class, fun, doc, &infolist);
|
return add_cmd (name, no_class, fun, doc, &infolist);
|
}
|
}
|
|
|
/* Add an alias to the list of info subcommands. */
|
/* Add an alias to the list of info subcommands. */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
add_info_alias (char *name, char *oldname, int abbrev_flag)
|
add_info_alias (char *name, char *oldname, int abbrev_flag)
|
{
|
{
|
return add_alias_cmd (name, oldname, 0, abbrev_flag, &infolist);
|
return add_alias_cmd (name, oldname, 0, abbrev_flag, &infolist);
|
}
|
}
|
|
|
/* Add an element to the list of commands. */
|
/* Add an element to the list of commands. */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
add_com (char *name, enum command_class class, void (*fun) (char *, int),
|
add_com (char *name, enum command_class class, void (*fun) (char *, int),
|
char *doc)
|
char *doc)
|
{
|
{
|
return add_cmd (name, class, fun, doc, &cmdlist);
|
return add_cmd (name, class, fun, doc, &cmdlist);
|
}
|
}
|
|
|
/* Add an alias or abbreviation command to the list of commands. */
|
/* Add an alias or abbreviation command to the list of commands. */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
add_com_alias (char *name, char *oldname, enum command_class class,
|
add_com_alias (char *name, char *oldname, enum command_class class,
|
int abbrev_flag)
|
int abbrev_flag)
|
{
|
{
|
return add_alias_cmd (name, oldname, class, abbrev_flag, &cmdlist);
|
return add_alias_cmd (name, oldname, class, abbrev_flag, &cmdlist);
|
}
|
}
|
|
|
/* Recursively walk the commandlist structures, and print out the
|
/* Recursively walk the commandlist structures, and print out the
|
documentation of commands that match our regex in either their
|
documentation of commands that match our regex in either their
|
name, or their documentation.
|
name, or their documentation.
|
*/
|
*/
|
void
|
void
|
apropos_cmd (struct ui_file *stream, struct cmd_list_element *commandlist,
|
apropos_cmd (struct ui_file *stream, struct cmd_list_element *commandlist,
|
struct re_pattern_buffer *regex, char *prefix)
|
struct re_pattern_buffer *regex, char *prefix)
|
{
|
{
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
int returnvalue=1; /*Needed to avoid double printing*/
|
int returnvalue=1; /*Needed to avoid double printing*/
|
/* Walk through the commands */
|
/* Walk through the commands */
|
for (c=commandlist;c;c=c->next)
|
for (c=commandlist;c;c=c->next)
|
{
|
{
|
if (c->name != NULL)
|
if (c->name != NULL)
|
{
|
{
|
/* Try to match against the name*/
|
/* Try to match against the name*/
|
returnvalue=re_search(regex,c->name,strlen(c->name),0,strlen(c->name),NULL);
|
returnvalue=re_search(regex,c->name,strlen(c->name),0,strlen(c->name),NULL);
|
if (returnvalue >= 0)
|
if (returnvalue >= 0)
|
{
|
{
|
print_help_for_command (c, prefix,
|
print_help_for_command (c, prefix,
|
0 /* don't recurse */, stream);
|
0 /* don't recurse */, stream);
|
}
|
}
|
}
|
}
|
if (c->doc != NULL && returnvalue != 0)
|
if (c->doc != NULL && returnvalue != 0)
|
{
|
{
|
/* Try to match against documentation */
|
/* Try to match against documentation */
|
if (re_search(regex,c->doc,strlen(c->doc),0,strlen(c->doc),NULL) >=0)
|
if (re_search(regex,c->doc,strlen(c->doc),0,strlen(c->doc),NULL) >=0)
|
{
|
{
|
print_help_for_command (c, prefix,
|
print_help_for_command (c, prefix,
|
0 /* don't recurse */, stream);
|
0 /* don't recurse */, stream);
|
}
|
}
|
}
|
}
|
/* Check if this command has subcommands */
|
/* Check if this command has subcommands */
|
if (c->prefixlist != NULL)
|
if (c->prefixlist != NULL)
|
{
|
{
|
/* Recursively call ourselves on the subcommand list,
|
/* Recursively call ourselves on the subcommand list,
|
passing the right prefix in.
|
passing the right prefix in.
|
*/
|
*/
|
apropos_cmd (stream,*c->prefixlist,regex,c->prefixname);
|
apropos_cmd (stream,*c->prefixlist,regex,c->prefixname);
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
/* This command really has to deal with two things:
|
/* This command really has to deal with two things:
|
* 1) I want documentation on *this string* (usually called by
|
* 1) I want documentation on *this string* (usually called by
|
* "help commandname").
|
* "help commandname").
|
* 2) I want documentation on *this list* (usually called by
|
* 2) I want documentation on *this list* (usually called by
|
* giving a command that requires subcommands. Also called by saying
|
* giving a command that requires subcommands. Also called by saying
|
* just "help".)
|
* just "help".)
|
*
|
*
|
* I am going to split this into two seperate comamnds, help_cmd and
|
* I am going to split this into two seperate comamnds, help_cmd and
|
* help_list.
|
* help_list.
|
*/
|
*/
|
|
|
void
|
void
|
help_cmd (char *command, struct ui_file *stream)
|
help_cmd (char *command, struct ui_file *stream)
|
{
|
{
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
extern struct cmd_list_element *cmdlist;
|
extern struct cmd_list_element *cmdlist;
|
|
|
if (!command)
|
if (!command)
|
{
|
{
|
help_list (cmdlist, "", all_classes, stream);
|
help_list (cmdlist, "", all_classes, stream);
|
return;
|
return;
|
}
|
}
|
|
|
if (strcmp (command, "all") == 0)
|
if (strcmp (command, "all") == 0)
|
{
|
{
|
help_all (stream);
|
help_all (stream);
|
return;
|
return;
|
}
|
}
|
|
|
c = lookup_cmd (&command, cmdlist, "", 0, 0);
|
c = lookup_cmd (&command, cmdlist, "", 0, 0);
|
|
|
if (c == 0)
|
if (c == 0)
|
return;
|
return;
|
|
|
/* There are three cases here.
|
/* There are three cases here.
|
If c->prefixlist is nonzero, we have a prefix command.
|
If c->prefixlist is nonzero, we have a prefix command.
|
Print its documentation, then list its subcommands.
|
Print its documentation, then list its subcommands.
|
|
|
If c->func is non NULL, we really have a command. Print its
|
If c->func is non NULL, we really have a command. Print its
|
documentation and return.
|
documentation and return.
|
|
|
If c->func is NULL, we have a class name. Print its
|
If c->func is NULL, we have a class name. Print its
|
documentation (as if it were a command) and then set class to the
|
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
|
number of this class so that the commands in the class will be
|
listed. */
|
listed. */
|
|
|
fputs_filtered (c->doc, stream);
|
fputs_filtered (c->doc, stream);
|
fputs_filtered ("\n", stream);
|
fputs_filtered ("\n", stream);
|
|
|
if (c->prefixlist == 0 && c->func != NULL)
|
if (c->prefixlist == 0 && c->func != NULL)
|
return;
|
return;
|
fprintf_filtered (stream, "\n");
|
fprintf_filtered (stream, "\n");
|
|
|
/* If this is a prefix command, print it's subcommands */
|
/* If this is a prefix command, print it's subcommands */
|
if (c->prefixlist)
|
if (c->prefixlist)
|
help_list (*c->prefixlist, c->prefixname, all_commands, stream);
|
help_list (*c->prefixlist, c->prefixname, all_commands, stream);
|
|
|
/* If this is a class name, print all of the commands in the class */
|
/* If this is a class name, print all of the commands in the class */
|
if (c->func == NULL)
|
if (c->func == NULL)
|
help_list (cmdlist, "", c->class, stream);
|
help_list (cmdlist, "", c->class, stream);
|
|
|
if (c->hook_pre || c->hook_post)
|
if (c->hook_pre || c->hook_post)
|
fprintf_filtered (stream,
|
fprintf_filtered (stream,
|
"\nThis command has a hook (or hooks) defined:\n");
|
"\nThis command has a hook (or hooks) defined:\n");
|
|
|
if (c->hook_pre)
|
if (c->hook_pre)
|
fprintf_filtered (stream,
|
fprintf_filtered (stream,
|
"\tThis command is run after : %s (pre hook)\n",
|
"\tThis command is run after : %s (pre hook)\n",
|
c->hook_pre->name);
|
c->hook_pre->name);
|
if (c->hook_post)
|
if (c->hook_post)
|
fprintf_filtered (stream,
|
fprintf_filtered (stream,
|
"\tThis command is run before : %s (post hook)\n",
|
"\tThis command is run before : %s (post hook)\n",
|
c->hook_post->name);
|
c->hook_post->name);
|
}
|
}
|
|
|
/*
|
/*
|
* Get a specific kind of help on a command list.
|
* Get a specific kind of help on a command list.
|
*
|
*
|
* LIST is the list.
|
* LIST is the list.
|
* CMDTYPE is the prefix to use in the title string.
|
* CMDTYPE is the prefix to use in the title string.
|
* CLASS is the class with which to list the nodes of this list (see
|
* 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
|
* documentation for help_cmd_list below), As usual, ALL_COMMANDS for
|
* everything, ALL_CLASSES for just classes, and non-negative for only things
|
* everything, ALL_CLASSES for just classes, and non-negative for only things
|
* in a specific class.
|
* in a specific class.
|
* and STREAM is the output stream on which to print things.
|
* and STREAM is the output stream on which to print things.
|
* If you call this routine with a class >= 0, it recurses.
|
* If you call this routine with a class >= 0, it recurses.
|
*/
|
*/
|
void
|
void
|
help_list (struct cmd_list_element *list, char *cmdtype,
|
help_list (struct cmd_list_element *list, char *cmdtype,
|
enum command_class class, struct ui_file *stream)
|
enum command_class class, struct ui_file *stream)
|
{
|
{
|
int len;
|
int len;
|
char *cmdtype1, *cmdtype2;
|
char *cmdtype1, *cmdtype2;
|
|
|
/* If CMDTYPE is "foo ", CMDTYPE1 gets " foo" and CMDTYPE2 gets "foo sub" */
|
/* If CMDTYPE is "foo ", CMDTYPE1 gets " foo" and CMDTYPE2 gets "foo sub" */
|
len = strlen (cmdtype);
|
len = strlen (cmdtype);
|
cmdtype1 = (char *) alloca (len + 1);
|
cmdtype1 = (char *) alloca (len + 1);
|
cmdtype1[0] = 0;
|
cmdtype1[0] = 0;
|
cmdtype2 = (char *) alloca (len + 4);
|
cmdtype2 = (char *) alloca (len + 4);
|
cmdtype2[0] = 0;
|
cmdtype2[0] = 0;
|
if (len)
|
if (len)
|
{
|
{
|
cmdtype1[0] = ' ';
|
cmdtype1[0] = ' ';
|
strncpy (cmdtype1 + 1, cmdtype, len - 1);
|
strncpy (cmdtype1 + 1, cmdtype, len - 1);
|
cmdtype1[len] = 0;
|
cmdtype1[len] = 0;
|
strncpy (cmdtype2, cmdtype, len - 1);
|
strncpy (cmdtype2, cmdtype, len - 1);
|
strcpy (cmdtype2 + len - 1, " sub");
|
strcpy (cmdtype2 + len - 1, " sub");
|
}
|
}
|
|
|
if (class == all_classes)
|
if (class == all_classes)
|
fprintf_filtered (stream, "List of classes of %scommands:\n\n", cmdtype2);
|
fprintf_filtered (stream, "List of classes of %scommands:\n\n", cmdtype2);
|
else
|
else
|
fprintf_filtered (stream, "List of %scommands:\n\n", cmdtype2);
|
fprintf_filtered (stream, "List of %scommands:\n\n", cmdtype2);
|
|
|
help_cmd_list (list, class, cmdtype, (int) class >= 0, stream);
|
help_cmd_list (list, class, cmdtype, (int) class >= 0, stream);
|
|
|
if (class == all_classes)
|
if (class == all_classes)
|
{
|
{
|
fprintf_filtered (stream, "\n\
|
fprintf_filtered (stream, "\n\
|
Type \"help%s\" followed by a class name for a list of commands in ",
|
Type \"help%s\" followed by a class name for a list of commands in ",
|
cmdtype1);
|
cmdtype1);
|
wrap_here ("");
|
wrap_here ("");
|
fprintf_filtered (stream, "that class.");
|
fprintf_filtered (stream, "that class.");
|
|
|
fprintf_filtered (stream, "\n\
|
fprintf_filtered (stream, "\n\
|
Type \"help all\" for the list of all commands.");
|
Type \"help all\" for the list of all commands.");
|
}
|
}
|
|
|
fprintf_filtered (stream, "\nType \"help%s\" followed by %scommand name ",
|
fprintf_filtered (stream, "\nType \"help%s\" followed by %scommand name ",
|
cmdtype1, cmdtype2);
|
cmdtype1, cmdtype2);
|
wrap_here ("");
|
wrap_here ("");
|
fputs_filtered ("for ", stream);
|
fputs_filtered ("for ", stream);
|
wrap_here ("");
|
wrap_here ("");
|
fputs_filtered ("full ", stream);
|
fputs_filtered ("full ", stream);
|
wrap_here ("");
|
wrap_here ("");
|
fputs_filtered ("documentation.\n", stream);
|
fputs_filtered ("documentation.\n", stream);
|
fputs_filtered ("Type \"apropos word\" to search "
|
fputs_filtered ("Type \"apropos word\" to search "
|
"for commands related to \"word\".\n", stream);
|
"for commands related to \"word\".\n", stream);
|
fputs_filtered ("Command name abbreviations are allowed if unambiguous.\n",
|
fputs_filtered ("Command name abbreviations are allowed if unambiguous.\n",
|
stream);
|
stream);
|
}
|
}
|
|
|
static void
|
static void
|
help_all (struct ui_file *stream)
|
help_all (struct ui_file *stream)
|
{
|
{
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
extern struct cmd_list_element *cmdlist;
|
extern struct cmd_list_element *cmdlist;
|
int seen_unclassified = 0;
|
int seen_unclassified = 0;
|
|
|
for (c = cmdlist; c; c = c->next)
|
for (c = cmdlist; c; c = c->next)
|
{
|
{
|
if (c->abbrev_flag)
|
if (c->abbrev_flag)
|
continue;
|
continue;
|
/* If this is a class name, print all of the commands in the class */
|
/* If this is a class name, print all of the commands in the class */
|
|
|
if (c->func == NULL)
|
if (c->func == NULL)
|
{
|
{
|
fprintf_filtered (stream, "\nCommand class: %s\n\n", c->name);
|
fprintf_filtered (stream, "\nCommand class: %s\n\n", c->name);
|
help_cmd_list (cmdlist, c->class, "", 1, stream);
|
help_cmd_list (cmdlist, c->class, "", 1, stream);
|
}
|
}
|
}
|
}
|
|
|
/* While it's expected that all commands are in some class,
|
/* While it's expected that all commands are in some class,
|
as a safety measure, we'll print commands outside of any
|
as a safety measure, we'll print commands outside of any
|
class at the end. */
|
class at the end. */
|
|
|
for (c = cmdlist; c; c = c->next)
|
for (c = cmdlist; c; c = c->next)
|
{
|
{
|
if (c->abbrev_flag)
|
if (c->abbrev_flag)
|
continue;
|
continue;
|
|
|
if (c->class == no_class)
|
if (c->class == no_class)
|
{
|
{
|
if (!seen_unclassified)
|
if (!seen_unclassified)
|
{
|
{
|
fprintf_filtered (stream, "\nUnclassified commands\n\n");
|
fprintf_filtered (stream, "\nUnclassified commands\n\n");
|
seen_unclassified = 1;
|
seen_unclassified = 1;
|
}
|
}
|
print_help_for_command (c, "", 1, stream);
|
print_help_for_command (c, "", 1, stream);
|
}
|
}
|
}
|
}
|
|
|
}
|
}
|
|
|
/* Print only the first line of STR on STREAM. */
|
/* Print only the first line of STR on STREAM. */
|
void
|
void
|
print_doc_line (struct ui_file *stream, char *str)
|
print_doc_line (struct ui_file *stream, char *str)
|
{
|
{
|
static char *line_buffer = 0;
|
static char *line_buffer = 0;
|
static int line_size;
|
static int line_size;
|
char *p;
|
char *p;
|
|
|
if (!line_buffer)
|
if (!line_buffer)
|
{
|
{
|
line_size = 80;
|
line_size = 80;
|
line_buffer = (char *) xmalloc (line_size);
|
line_buffer = (char *) xmalloc (line_size);
|
}
|
}
|
|
|
p = str;
|
p = str;
|
while (*p && *p != '\n' && *p != '.' && *p != ',')
|
while (*p && *p != '\n' && *p != '.' && *p != ',')
|
p++;
|
p++;
|
if (p - str > line_size - 1)
|
if (p - str > line_size - 1)
|
{
|
{
|
line_size = p - str + 1;
|
line_size = p - str + 1;
|
xfree (line_buffer);
|
xfree (line_buffer);
|
line_buffer = (char *) xmalloc (line_size);
|
line_buffer = (char *) xmalloc (line_size);
|
}
|
}
|
strncpy (line_buffer, str, p - str);
|
strncpy (line_buffer, str, p - str);
|
line_buffer[p - str] = '\0';
|
line_buffer[p - str] = '\0';
|
if (islower (line_buffer[0]))
|
if (islower (line_buffer[0]))
|
line_buffer[0] = toupper (line_buffer[0]);
|
line_buffer[0] = toupper (line_buffer[0]);
|
ui_out_text (uiout, line_buffer);
|
ui_out_text (uiout, line_buffer);
|
}
|
}
|
|
|
/* Print one-line help for command C.
|
/* Print one-line help for command C.
|
If RECURSE is non-zero, also print one-line descriptions
|
If RECURSE is non-zero, also print one-line descriptions
|
of all prefixed subcommands. */
|
of all prefixed subcommands. */
|
static void
|
static void
|
print_help_for_command (struct cmd_list_element *c, char *prefix, int recurse,
|
print_help_for_command (struct cmd_list_element *c, char *prefix, int recurse,
|
struct ui_file *stream)
|
struct ui_file *stream)
|
{
|
{
|
fprintf_filtered (stream, "%s%s -- ", prefix, c->name);
|
fprintf_filtered (stream, "%s%s -- ", prefix, c->name);
|
print_doc_line (stream, c->doc);
|
print_doc_line (stream, c->doc);
|
fputs_filtered ("\n", stream);
|
fputs_filtered ("\n", stream);
|
|
|
if (recurse
|
if (recurse
|
&& c->prefixlist != 0
|
&& c->prefixlist != 0
|
&& c->abbrev_flag == 0)
|
&& c->abbrev_flag == 0)
|
/* Subcommands of a prefix command typically have 'all_commands'
|
/* Subcommands of a prefix command typically have 'all_commands'
|
as class. If we pass CLASS to recursive invocation,
|
as class. If we pass CLASS to recursive invocation,
|
most often we won't see anything. */
|
most often we won't see anything. */
|
help_cmd_list (*c->prefixlist, all_commands, c->prefixname, 1, stream);
|
help_cmd_list (*c->prefixlist, all_commands, c->prefixname, 1, stream);
|
}
|
}
|
|
|
/*
|
/*
|
* Implement a help command on command list LIST.
|
* Implement a help command on command list LIST.
|
* RECURSE should be non-zero if this should be done recursively on
|
* RECURSE should be non-zero if this should be done recursively on
|
* all sublists of LIST.
|
* all sublists of LIST.
|
* PREFIX is the prefix to print before each command name.
|
* PREFIX is the prefix to print before each command name.
|
* STREAM is the stream upon which the output should be written.
|
* STREAM is the stream upon which the output should be written.
|
* CLASS should be:
|
* CLASS should be:
|
* A non-negative class number to list only commands in that
|
* A non-negative class number to list only commands in that
|
* class.
|
* class.
|
* ALL_COMMANDS to list all commands in list.
|
* ALL_COMMANDS to list all commands in list.
|
* ALL_CLASSES to list all classes in list.
|
* ALL_CLASSES to list all classes in list.
|
*
|
*
|
* Note that RECURSE will be active on *all* sublists, not just the
|
* Note that RECURSE will be active on *all* sublists, not just the
|
* ones selected by the criteria above (ie. the selection mechanism
|
* ones selected by the criteria above (ie. the selection mechanism
|
* is at the low level, not the high-level).
|
* is at the low level, not the high-level).
|
*/
|
*/
|
void
|
void
|
help_cmd_list (struct cmd_list_element *list, enum command_class class,
|
help_cmd_list (struct cmd_list_element *list, enum command_class class,
|
char *prefix, int recurse, struct ui_file *stream)
|
char *prefix, int recurse, struct ui_file *stream)
|
{
|
{
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
|
|
for (c = list; c; c = c->next)
|
for (c = list; c; c = c->next)
|
{
|
{
|
if (c->abbrev_flag == 0 &&
|
if (c->abbrev_flag == 0 &&
|
(class == all_commands
|
(class == all_commands
|
|| (class == all_classes && c->func == NULL)
|
|| (class == all_classes && c->func == NULL)
|
|| (class == c->class && c->func != NULL)))
|
|| (class == c->class && c->func != NULL)))
|
{
|
{
|
print_help_for_command (c, prefix, recurse, stream);
|
print_help_for_command (c, prefix, recurse, stream);
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
|
|
/* Search the input clist for 'command'. Return the command if
|
/* Search the input clist for 'command'. Return the command if
|
found (or NULL if not), and return the number of commands
|
found (or NULL if not), and return the number of commands
|
found in nfound */
|
found in nfound */
|
|
|
static struct cmd_list_element *
|
static struct cmd_list_element *
|
find_cmd (char *command, int len, struct cmd_list_element *clist,
|
find_cmd (char *command, int len, struct cmd_list_element *clist,
|
int ignore_help_classes, int *nfound)
|
int ignore_help_classes, int *nfound)
|
{
|
{
|
struct cmd_list_element *found, *c;
|
struct cmd_list_element *found, *c;
|
|
|
found = (struct cmd_list_element *) NULL;
|
found = (struct cmd_list_element *) NULL;
|
*nfound = 0;
|
*nfound = 0;
|
for (c = clist; c; c = c->next)
|
for (c = clist; c; c = c->next)
|
if (!strncmp (command, c->name, len)
|
if (!strncmp (command, c->name, len)
|
&& (!ignore_help_classes || c->func))
|
&& (!ignore_help_classes || c->func))
|
{
|
{
|
found = c;
|
found = c;
|
(*nfound)++;
|
(*nfound)++;
|
if (c->name[len] == '\0')
|
if (c->name[len] == '\0')
|
{
|
{
|
*nfound = 1;
|
*nfound = 1;
|
break;
|
break;
|
}
|
}
|
}
|
}
|
return found;
|
return found;
|
}
|
}
|
|
|
static int
|
static int
|
find_command_name_length (const char *text)
|
find_command_name_length (const char *text)
|
{
|
{
|
const char *p = text;
|
const char *p = text;
|
|
|
/* Treating underscores as part of command words is important
|
/* Treating underscores as part of command words is important
|
so that "set args_foo()" doesn't get interpreted as
|
so that "set args_foo()" doesn't get interpreted as
|
"set args _foo()". */
|
"set args _foo()". */
|
/* Some characters are only used for TUI specific commands. However, they
|
/* Some characters are only used for TUI specific commands. However, they
|
are always allowed for the sake of consistency.
|
are always allowed for the sake of consistency.
|
The XDB compatibility characters are only allowed when using the right
|
The XDB compatibility characters are only allowed when using the right
|
mode because they clash with other GDB commands - specifically '/' is
|
mode because they clash with other GDB commands - specifically '/' is
|
used as a suffix for print, examine and display.
|
used as a suffix for print, examine and display.
|
Note that this is larger than the character set allowed when creating
|
Note that this is larger than the character set allowed when creating
|
user-defined commands. */
|
user-defined commands. */
|
while (isalnum (*p) || *p == '-' || *p == '_' ||
|
while (isalnum (*p) || *p == '-' || *p == '_' ||
|
/* Characters used by TUI specific commands. */
|
/* Characters used by TUI specific commands. */
|
*p == '+' || *p == '<' || *p == '>' || *p == '$' ||
|
*p == '+' || *p == '<' || *p == '>' || *p == '$' ||
|
/* Characters used for XDB compatibility. */
|
/* Characters used for XDB compatibility. */
|
(xdb_commands && (*p == '!' || *p == '/' || *p == '?')))
|
(xdb_commands && (*p == '!' || *p == '/' || *p == '?')))
|
p++;
|
p++;
|
|
|
return p - text;
|
return p - text;
|
}
|
}
|
|
|
/* This routine takes a line of TEXT and a CLIST in which to start the
|
/* 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
|
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
|
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
|
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
|
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
|
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
|
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 list in which there are ambiguous choices (and *TEXT will be set to
|
the ambiguous text string).
|
the ambiguous text string).
|
|
|
If the located command was an abbreviation, this routine returns the base
|
If the located command was an abbreviation, this routine returns the base
|
command of the abbreviation.
|
command of the abbreviation.
|
|
|
It does no error reporting whatsoever; control will always return
|
It does no error reporting whatsoever; control will always return
|
to the superior routine.
|
to the superior routine.
|
|
|
In the case of an ambiguous return (-1), *RESULT_LIST will be set to point
|
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
|
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",
|
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
|
"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 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
|
RESULT_LIST should not be interpeted as a pointer to the beginning of a
|
list; it simply points to a specific command. In the case of an ambiguous
|
list; it simply points to a specific command. In the case of an ambiguous
|
return *TEXT is advanced past the last non-ambiguous prefix (e.g.
|
return *TEXT is advanced past the last non-ambiguous prefix (e.g.
|
"info t" can be "info types" or "info target"; upon return *TEXT has been
|
"info t" can be "info types" or "info target"; upon return *TEXT has been
|
advanced past "info ").
|
advanced past "info ").
|
|
|
If RESULT_LIST is NULL, don't set *RESULT_LIST (but don't otherwise
|
If RESULT_LIST is NULL, don't set *RESULT_LIST (but don't otherwise
|
affect the operation).
|
affect the operation).
|
|
|
This routine does *not* modify the text pointed to by TEXT.
|
This routine does *not* modify the text pointed to by TEXT.
|
|
|
If IGNORE_HELP_CLASSES is nonzero, ignore any command list elements which
|
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
|
are actually help classes rather than commands (i.e. the function field of
|
the struct cmd_list_element is NULL). */
|
the struct cmd_list_element is NULL). */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
lookup_cmd_1 (char **text, struct cmd_list_element *clist,
|
lookup_cmd_1 (char **text, struct cmd_list_element *clist,
|
struct cmd_list_element **result_list, int ignore_help_classes)
|
struct cmd_list_element **result_list, int ignore_help_classes)
|
{
|
{
|
char *command;
|
char *command;
|
int len, tmp, nfound;
|
int len, tmp, nfound;
|
struct cmd_list_element *found, *c;
|
struct cmd_list_element *found, *c;
|
char *line = *text;
|
char *line = *text;
|
|
|
while (**text == ' ' || **text == '\t')
|
while (**text == ' ' || **text == '\t')
|
(*text)++;
|
(*text)++;
|
|
|
/* Identify the name of the command. */
|
/* Identify the name of the command. */
|
len = find_command_name_length (*text);
|
len = find_command_name_length (*text);
|
|
|
/* If nothing but whitespace, return 0. */
|
/* If nothing but whitespace, return 0. */
|
if (len == 0)
|
if (len == 0)
|
return 0;
|
return 0;
|
|
|
/* *text and p now bracket the first command word to lookup (and
|
/* *text and p now bracket the first command word to lookup (and
|
it's length is len). We copy this into a local temporary */
|
it's length is len). We copy this into a local temporary */
|
|
|
|
|
command = (char *) alloca (len + 1);
|
command = (char *) alloca (len + 1);
|
for (tmp = 0; tmp < len; tmp++)
|
for (tmp = 0; tmp < len; tmp++)
|
{
|
{
|
char x = (*text)[tmp];
|
char x = (*text)[tmp];
|
command[tmp] = x;
|
command[tmp] = x;
|
}
|
}
|
command[len] = '\0';
|
command[len] = '\0';
|
|
|
/* Look it up. */
|
/* Look it up. */
|
found = 0;
|
found = 0;
|
nfound = 0;
|
nfound = 0;
|
found = find_cmd (command, len, clist, ignore_help_classes, &nfound);
|
found = find_cmd (command, len, clist, ignore_help_classes, &nfound);
|
|
|
/*
|
/*
|
** We didn't find the command in the entered case, so lower case it
|
** We didn't find the command in the entered case, so lower case it
|
** and search again.
|
** and search again.
|
*/
|
*/
|
if (!found || nfound == 0)
|
if (!found || nfound == 0)
|
{
|
{
|
for (tmp = 0; tmp < len; tmp++)
|
for (tmp = 0; tmp < len; tmp++)
|
{
|
{
|
char x = command[tmp];
|
char x = command[tmp];
|
command[tmp] = isupper (x) ? tolower (x) : x;
|
command[tmp] = isupper (x) ? tolower (x) : x;
|
}
|
}
|
found = find_cmd (command, len, clist, ignore_help_classes, &nfound);
|
found = find_cmd (command, len, clist, ignore_help_classes, &nfound);
|
}
|
}
|
|
|
/* If nothing matches, we have a simple failure. */
|
/* If nothing matches, we have a simple failure. */
|
if (nfound == 0)
|
if (nfound == 0)
|
return 0;
|
return 0;
|
|
|
if (nfound > 1)
|
if (nfound > 1)
|
{
|
{
|
if (result_list != NULL)
|
if (result_list != NULL)
|
/* Will be modified in calling routine
|
/* Will be modified in calling routine
|
if we know what the prefix command is. */
|
if we know what the prefix command is. */
|
*result_list = 0;
|
*result_list = 0;
|
return (struct cmd_list_element *) -1; /* Ambiguous. */
|
return (struct cmd_list_element *) -1; /* Ambiguous. */
|
}
|
}
|
|
|
/* We've matched something on this list. Move text pointer forward. */
|
/* We've matched something on this list. Move text pointer forward. */
|
|
|
*text += len;
|
*text += len;
|
|
|
if (found->cmd_pointer)
|
if (found->cmd_pointer)
|
{
|
{
|
/* We drop the alias (abbreviation) in favor of the command it is
|
/* We drop the alias (abbreviation) in favor of the command it is
|
pointing to. If the alias is deprecated, though, we need to
|
pointing to. If the alias is deprecated, though, we need to
|
warn the user about it before we drop it. Note that while we
|
warn the user about it before we drop it. Note that while we
|
are warning about the alias, we may also warn about the command
|
are warning about the alias, we may also warn about the command
|
itself and we will adjust the appropriate DEPRECATED_WARN_USER
|
itself and we will adjust the appropriate DEPRECATED_WARN_USER
|
flags */
|
flags */
|
|
|
if (found->flags & DEPRECATED_WARN_USER)
|
if (found->flags & DEPRECATED_WARN_USER)
|
deprecated_cmd_warning (&line);
|
deprecated_cmd_warning (&line);
|
found = found->cmd_pointer;
|
found = found->cmd_pointer;
|
}
|
}
|
/* If we found a prefix command, keep looking. */
|
/* If we found a prefix command, keep looking. */
|
|
|
if (found->prefixlist)
|
if (found->prefixlist)
|
{
|
{
|
c = lookup_cmd_1 (text, *found->prefixlist, result_list,
|
c = lookup_cmd_1 (text, *found->prefixlist, result_list,
|
ignore_help_classes);
|
ignore_help_classes);
|
if (!c)
|
if (!c)
|
{
|
{
|
/* Didn't find anything; this is as far as we got. */
|
/* Didn't find anything; this is as far as we got. */
|
if (result_list != NULL)
|
if (result_list != NULL)
|
*result_list = clist;
|
*result_list = clist;
|
return found;
|
return found;
|
}
|
}
|
else if (c == (struct cmd_list_element *) -1)
|
else if (c == (struct cmd_list_element *) -1)
|
{
|
{
|
/* We've gotten this far properly, but the next step
|
/* We've gotten this far properly, but the next step
|
is ambiguous. We need to set the result list to the best
|
is ambiguous. We need to set the result list to the best
|
we've found (if an inferior hasn't already set it). */
|
we've found (if an inferior hasn't already set it). */
|
if (result_list != NULL)
|
if (result_list != NULL)
|
if (!*result_list)
|
if (!*result_list)
|
/* This used to say *result_list = *found->prefixlist
|
/* This used to say *result_list = *found->prefixlist
|
If that was correct, need to modify the documentation
|
If that was correct, need to modify the documentation
|
at the top of this function to clarify what is supposed
|
at the top of this function to clarify what is supposed
|
to be going on. */
|
to be going on. */
|
*result_list = found;
|
*result_list = found;
|
return c;
|
return c;
|
}
|
}
|
else
|
else
|
{
|
{
|
/* We matched! */
|
/* We matched! */
|
return c;
|
return c;
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
if (result_list != NULL)
|
if (result_list != NULL)
|
*result_list = clist;
|
*result_list = clist;
|
return found;
|
return found;
|
}
|
}
|
}
|
}
|
|
|
/* All this hair to move the space to the front of cmdtype */
|
/* All this hair to move the space to the front of cmdtype */
|
|
|
static void
|
static void
|
undef_cmd_error (char *cmdtype, char *q)
|
undef_cmd_error (char *cmdtype, char *q)
|
{
|
{
|
error (_("Undefined %scommand: \"%s\". Try \"help%s%.*s\"."),
|
error (_("Undefined %scommand: \"%s\". Try \"help%s%.*s\"."),
|
cmdtype,
|
cmdtype,
|
q,
|
q,
|
*cmdtype ? " " : "",
|
*cmdtype ? " " : "",
|
(int) strlen (cmdtype) - 1,
|
(int) strlen (cmdtype) - 1,
|
cmdtype);
|
cmdtype);
|
}
|
}
|
|
|
/* Look up the contents of *LINE as a command in the command list LIST.
|
/* Look up the contents of *LINE as a command in the command list LIST.
|
LIST is a chain of struct cmd_list_element's.
|
LIST is a chain of struct cmd_list_element's.
|
If it is found, return the struct cmd_list_element for that command
|
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.
|
and update *LINE to point after the command name, at the first argument.
|
If not found, call error if ALLOW_UNKNOWN is zero
|
If not found, call error if ALLOW_UNKNOWN is zero
|
otherwise (or if error returns) return zero.
|
otherwise (or if error returns) return zero.
|
Call error if specified command is ambiguous,
|
Call error if specified command is ambiguous,
|
unless ALLOW_UNKNOWN is negative.
|
unless ALLOW_UNKNOWN is negative.
|
CMDTYPE precedes the word "command" in the error message.
|
CMDTYPE precedes the word "command" in the error message.
|
|
|
If INGNORE_HELP_CLASSES is nonzero, ignore any command list
|
If INGNORE_HELP_CLASSES is nonzero, ignore any command list
|
elements which are actually help classes rather than commands (i.e.
|
elements which are actually help classes rather than commands (i.e.
|
the function field of the struct cmd_list_element is 0). */
|
the function field of the struct cmd_list_element is 0). */
|
|
|
struct cmd_list_element *
|
struct cmd_list_element *
|
lookup_cmd (char **line, struct cmd_list_element *list, char *cmdtype,
|
lookup_cmd (char **line, struct cmd_list_element *list, char *cmdtype,
|
int allow_unknown, int ignore_help_classes)
|
int allow_unknown, int ignore_help_classes)
|
{
|
{
|
struct cmd_list_element *last_list = 0;
|
struct cmd_list_element *last_list = 0;
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
|
|
/* Note: Do not remove trailing whitespace here because this
|
/* Note: Do not remove trailing whitespace here because this
|
would be wrong for complete_command. Jim Kingdon */
|
would be wrong for complete_command. Jim Kingdon */
|
|
|
if (!*line)
|
if (!*line)
|
error (_("Lack of needed %scommand"), cmdtype);
|
error (_("Lack of needed %scommand"), cmdtype);
|
|
|
c = lookup_cmd_1 (line, list, &last_list, ignore_help_classes);
|
c = lookup_cmd_1 (line, list, &last_list, ignore_help_classes);
|
|
|
if (!c)
|
if (!c)
|
{
|
{
|
if (!allow_unknown)
|
if (!allow_unknown)
|
{
|
{
|
char *q;
|
char *q;
|
int len = find_command_name_length (*line);
|
int len = find_command_name_length (*line);
|
|
|
q = (char *) alloca (len + 1);
|
q = (char *) alloca (len + 1);
|
strncpy (q, *line, len);
|
strncpy (q, *line, len);
|
q[len] = '\0';
|
q[len] = '\0';
|
undef_cmd_error (cmdtype, q);
|
undef_cmd_error (cmdtype, q);
|
}
|
}
|
else
|
else
|
return 0;
|
return 0;
|
}
|
}
|
else if (c == (struct cmd_list_element *) -1)
|
else if (c == (struct cmd_list_element *) -1)
|
{
|
{
|
/* Ambigous. Local values should be off prefixlist or called
|
/* Ambigous. Local values should be off prefixlist or called
|
values. */
|
values. */
|
int local_allow_unknown = (last_list ? last_list->allow_unknown :
|
int local_allow_unknown = (last_list ? last_list->allow_unknown :
|
allow_unknown);
|
allow_unknown);
|
char *local_cmdtype = last_list ? last_list->prefixname : cmdtype;
|
char *local_cmdtype = last_list ? last_list->prefixname : cmdtype;
|
struct cmd_list_element *local_list =
|
struct cmd_list_element *local_list =
|
(last_list ? *(last_list->prefixlist) : list);
|
(last_list ? *(last_list->prefixlist) : list);
|
|
|
if (local_allow_unknown < 0)
|
if (local_allow_unknown < 0)
|
{
|
{
|
if (last_list)
|
if (last_list)
|
return last_list; /* Found something. */
|
return last_list; /* Found something. */
|
else
|
else
|
return 0; /* Found nothing. */
|
return 0; /* Found nothing. */
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Report as error. */
|
/* Report as error. */
|
int amb_len;
|
int amb_len;
|
char ambbuf[100];
|
char ambbuf[100];
|
|
|
for (amb_len = 0;
|
for (amb_len = 0;
|
((*line)[amb_len] && (*line)[amb_len] != ' '
|
((*line)[amb_len] && (*line)[amb_len] != ' '
|
&& (*line)[amb_len] != '\t');
|
&& (*line)[amb_len] != '\t');
|
amb_len++)
|
amb_len++)
|
;
|
;
|
|
|
ambbuf[0] = 0;
|
ambbuf[0] = 0;
|
for (c = local_list; c; c = c->next)
|
for (c = local_list; c; c = c->next)
|
if (!strncmp (*line, c->name, amb_len))
|
if (!strncmp (*line, c->name, amb_len))
|
{
|
{
|
if (strlen (ambbuf) + strlen (c->name) + 6 < (int) sizeof ambbuf)
|
if (strlen (ambbuf) + strlen (c->name) + 6 < (int) sizeof ambbuf)
|
{
|
{
|
if (strlen (ambbuf))
|
if (strlen (ambbuf))
|
strcat (ambbuf, ", ");
|
strcat (ambbuf, ", ");
|
strcat (ambbuf, c->name);
|
strcat (ambbuf, c->name);
|
}
|
}
|
else
|
else
|
{
|
{
|
strcat (ambbuf, "..");
|
strcat (ambbuf, "..");
|
break;
|
break;
|
}
|
}
|
}
|
}
|
error (_("Ambiguous %scommand \"%s\": %s."), local_cmdtype,
|
error (_("Ambiguous %scommand \"%s\": %s."), local_cmdtype,
|
*line, ambbuf);
|
*line, ambbuf);
|
return 0; /* lint */
|
return 0; /* lint */
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
/* We've got something. It may still not be what the caller
|
/* We've got something. It may still not be what the caller
|
wants (if this command *needs* a subcommand). */
|
wants (if this command *needs* a subcommand). */
|
while (**line == ' ' || **line == '\t')
|
while (**line == ' ' || **line == '\t')
|
(*line)++;
|
(*line)++;
|
|
|
if (c->prefixlist && **line && !c->allow_unknown)
|
if (c->prefixlist && **line && !c->allow_unknown)
|
undef_cmd_error (c->prefixname, *line);
|
undef_cmd_error (c->prefixname, *line);
|
|
|
/* Seems to be what he wants. Return it. */
|
/* Seems to be what he wants. Return it. */
|
return c;
|
return c;
|
}
|
}
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* We are here presumably because an alias or command in *TEXT is
|
/* We are here presumably because an alias or command in *TEXT is
|
deprecated and a warning message should be generated. This function
|
deprecated and a warning message should be generated. This function
|
decodes *TEXT and potentially generates a warning message as outlined
|
decodes *TEXT and potentially generates a warning message as outlined
|
below.
|
below.
|
|
|
Example for 'set endian big' which has a fictitious alias 'seb'.
|
Example for 'set endian big' which has a fictitious alias 'seb'.
|
|
|
If alias wasn't used in *TEXT, and the command is deprecated:
|
If alias wasn't used in *TEXT, and the command is deprecated:
|
"warning: 'set endian big' is deprecated."
|
"warning: 'set endian big' is deprecated."
|
|
|
If alias was used, and only the alias is deprecated:
|
If alias was used, and only the alias is deprecated:
|
"warning: 'seb' an alias for the command 'set endian big' is deprecated."
|
"warning: 'seb' an alias for the command 'set endian big' is deprecated."
|
|
|
If alias was used and command is deprecated (regardless of whether the
|
If alias was used and command is deprecated (regardless of whether the
|
alias itself is deprecated:
|
alias itself is deprecated:
|
|
|
"warning: 'set endian big' (seb) is deprecated."
|
"warning: 'set endian big' (seb) is deprecated."
|
|
|
After the message has been sent, clear the appropriate flags in the
|
After the message has been sent, clear the appropriate flags in the
|
command and/or the alias so the user is no longer bothered.
|
command and/or the alias so the user is no longer bothered.
|
|
|
*/
|
*/
|
void
|
void
|
deprecated_cmd_warning (char **text)
|
deprecated_cmd_warning (char **text)
|
{
|
{
|
struct cmd_list_element *alias = NULL;
|
struct cmd_list_element *alias = NULL;
|
struct cmd_list_element *prefix_cmd = NULL;
|
struct cmd_list_element *prefix_cmd = NULL;
|
struct cmd_list_element *cmd = NULL;
|
struct cmd_list_element *cmd = NULL;
|
struct cmd_list_element *c;
|
struct cmd_list_element *c;
|
char *type;
|
char *type;
|
|
|
if (!lookup_cmd_composition (*text, &alias, &prefix_cmd, &cmd))
|
if (!lookup_cmd_composition (*text, &alias, &prefix_cmd, &cmd))
|
/* return if text doesn't evaluate to a command */
|
/* return if text doesn't evaluate to a command */
|
return;
|
return;
|
|
|
if (!((alias ? (alias->flags & DEPRECATED_WARN_USER) : 0)
|
if (!((alias ? (alias->flags & DEPRECATED_WARN_USER) : 0)
|
|| (cmd->flags & DEPRECATED_WARN_USER) ) )
|
|| (cmd->flags & DEPRECATED_WARN_USER) ) )
|
/* return if nothing is deprecated */
|
/* return if nothing is deprecated */
|
return;
|
return;
|
|
|
printf_filtered ("Warning:");
|
printf_filtered ("Warning:");
|
|
|
if (alias && !(cmd->flags & CMD_DEPRECATED))
|
if (alias && !(cmd->flags & CMD_DEPRECATED))
|
printf_filtered (" '%s', an alias for the", alias->name);
|
printf_filtered (" '%s', an alias for the", alias->name);
|
|
|
printf_filtered (" command '");
|
printf_filtered (" command '");
|
|
|
if (prefix_cmd)
|
if (prefix_cmd)
|
printf_filtered ("%s", prefix_cmd->prefixname);
|
printf_filtered ("%s", prefix_cmd->prefixname);
|
|
|
printf_filtered ("%s", cmd->name);
|
printf_filtered ("%s", cmd->name);
|
|
|
if (alias && (cmd->flags & CMD_DEPRECATED))
|
if (alias && (cmd->flags & CMD_DEPRECATED))
|
printf_filtered ("' (%s) is deprecated.\n", alias->name);
|
printf_filtered ("' (%s) is deprecated.\n", alias->name);
|
else
|
else
|
printf_filtered ("' is deprecated.\n");
|
printf_filtered ("' is deprecated.\n");
|
|
|
|
|
/* if it is only the alias that is deprecated, we want to indicate the
|
/* if it is only the alias that is deprecated, we want to indicate the
|
new alias, otherwise we'll indicate the new command */
|
new alias, otherwise we'll indicate the new command */
|
|
|
if (alias && !(cmd->flags & CMD_DEPRECATED))
|
if (alias && !(cmd->flags & CMD_DEPRECATED))
|
{
|
{
|
if (alias->replacement)
|
if (alias->replacement)
|
printf_filtered ("Use '%s'.\n\n", alias->replacement);
|
printf_filtered ("Use '%s'.\n\n", alias->replacement);
|
else
|
else
|
printf_filtered ("No alternative known.\n\n");
|
printf_filtered ("No alternative known.\n\n");
|
}
|
}
|
else
|
else
|
{
|
{
|
if (cmd->replacement)
|
if (cmd->replacement)
|
printf_filtered ("Use '%s'.\n\n", cmd->replacement);
|
printf_filtered ("Use '%s'.\n\n", cmd->replacement);
|
else
|
else
|
printf_filtered ("No alternative known.\n\n");
|
printf_filtered ("No alternative known.\n\n");
|
}
|
}
|
|
|
/* We've warned you, now we'll keep quiet */
|
/* We've warned you, now we'll keep quiet */
|
if (alias)
|
if (alias)
|
alias->flags &= ~DEPRECATED_WARN_USER;
|
alias->flags &= ~DEPRECATED_WARN_USER;
|
|
|
cmd->flags &= ~DEPRECATED_WARN_USER;
|
cmd->flags &= ~DEPRECATED_WARN_USER;
|
}
|
}
|
|
|
|
|
|
|
/* Look up the contents of LINE as a command in the command list 'cmdlist'.
|
/* Look up the contents of LINE as a command in the command list 'cmdlist'.
|
Return 1 on success, 0 on failure.
|
Return 1 on success, 0 on failure.
|
|
|
If LINE refers to an alias, *alias will point to that alias.
|
If LINE refers to an alias, *alias will point to that alias.
|
|
|
If LINE is a postfix command (i.e. one that is preceeded by a prefix
|
If LINE is a postfix command (i.e. one that is preceeded by a prefix
|
command) set *prefix_cmd.
|
command) set *prefix_cmd.
|
|
|
Set *cmd to point to the command LINE indicates.
|
Set *cmd to point to the command LINE indicates.
|
|
|
If any of *alias, *prefix_cmd, or *cmd cannot be determined or do not
|
If any of *alias, *prefix_cmd, or *cmd cannot be determined or do not
|
exist, they are NULL when we return.
|
exist, they are NULL when we return.
|
|
|
*/
|
*/
|
int
|
int
|
lookup_cmd_composition (char *text,
|
lookup_cmd_composition (char *text,
|
struct cmd_list_element **alias,
|
struct cmd_list_element **alias,
|
struct cmd_list_element **prefix_cmd,
|
struct cmd_list_element **prefix_cmd,
|
struct cmd_list_element **cmd)
|
struct cmd_list_element **cmd)
|
{
|
{
|
char *command;
|
char *command;
|
int len, tmp, nfound;
|
int len, tmp, nfound;
|
struct cmd_list_element *cur_list;
|
struct cmd_list_element *cur_list;
|
struct cmd_list_element *prev_cmd;
|
struct cmd_list_element *prev_cmd;
|
*alias = NULL;
|
*alias = NULL;
|
*prefix_cmd = NULL;
|
*prefix_cmd = NULL;
|
*cmd = NULL;
|
*cmd = NULL;
|
|
|
cur_list = cmdlist;
|
cur_list = cmdlist;
|
|
|
while (1)
|
while (1)
|
{
|
{
|
/* Go through as many command lists as we need to
|
/* Go through as many command lists as we need to
|
to find the command TEXT refers to. */
|
to find the command TEXT refers to. */
|
|
|
prev_cmd = *cmd;
|
prev_cmd = *cmd;
|
|
|
while (*text == ' ' || *text == '\t')
|
while (*text == ' ' || *text == '\t')
|
(text)++;
|
(text)++;
|
|
|
/* Identify the name of the command. */
|
/* Identify the name of the command. */
|
len = find_command_name_length (text);
|
len = find_command_name_length (text);
|
|
|
/* If nothing but whitespace, return. */
|
/* If nothing but whitespace, return. */
|
if (len == 0)
|
if (len == 0)
|
return 0;
|
return 0;
|
|
|
/* text is the start of the first command word to lookup (and
|
/* text is the start of the first command word to lookup (and
|
it's length is len). We copy this into a local temporary */
|
it's length is len). We copy this into a local temporary */
|
|
|
command = (char *) alloca (len + 1);
|
command = (char *) alloca (len + 1);
|
for (tmp = 0; tmp < len; tmp++)
|
for (tmp = 0; tmp < len; tmp++)
|
{
|
{
|
char x = text[tmp];
|
char x = text[tmp];
|
command[tmp] = x;
|
command[tmp] = x;
|
}
|
}
|
command[len] = '\0';
|
command[len] = '\0';
|
|
|
/* Look it up. */
|
/* Look it up. */
|
*cmd = 0;
|
*cmd = 0;
|
nfound = 0;
|
nfound = 0;
|
*cmd = find_cmd (command, len, cur_list, 1, &nfound);
|
*cmd = find_cmd (command, len, cur_list, 1, &nfound);
|
|
|
/* We didn't find the command in the entered case, so lower case it
|
/* We didn't find the command in the entered case, so lower case it
|
and search again.
|
and search again.
|
*/
|
*/
|
if (!*cmd || nfound == 0)
|
if (!*cmd || nfound == 0)
|
{
|
{
|
for (tmp = 0; tmp < len; tmp++)
|
for (tmp = 0; tmp < len; tmp++)
|
{
|
{
|
char x = command[tmp];
|
char x = command[tmp];
|
command[tmp] = isupper (x) ? tolower (x) : x;
|
command[tmp] = isupper (x) ? tolower (x) : x;
|
}
|
}
|
*cmd = find_cmd (command, len, cur_list, 1, &nfound);
|
*cmd = find_cmd (command, len, cur_list, 1, &nfound);
|
}
|
}
|
|
|
if (*cmd == (struct cmd_list_element *) -1)
|
if (*cmd == (struct cmd_list_element *) -1)
|
{
|
{
|
return 0; /* ambiguous */
|
return 0; /* ambiguous */
|
}
|
}
|
|
|
if (*cmd == NULL)
|
if (*cmd == NULL)
|
return 0; /* nothing found */
|
return 0; /* nothing found */
|
else
|
else
|
{
|
{
|
if ((*cmd)->cmd_pointer)
|
if ((*cmd)->cmd_pointer)
|
{
|
{
|
/* cmd was actually an alias, we note that an alias was used
|
/* cmd was actually an alias, we note that an alias was used
|
(by assigning *alais) and we set *cmd.
|
(by assigning *alais) and we set *cmd.
|
*/
|
*/
|
*alias = *cmd;
|
*alias = *cmd;
|
*cmd = (*cmd)->cmd_pointer;
|
*cmd = (*cmd)->cmd_pointer;
|
}
|
}
|
*prefix_cmd = prev_cmd;
|
*prefix_cmd = prev_cmd;
|
}
|
}
|
if ((*cmd)->prefixlist)
|
if ((*cmd)->prefixlist)
|
cur_list = *(*cmd)->prefixlist;
|
cur_list = *(*cmd)->prefixlist;
|
else
|
else
|
return 1;
|
return 1;
|
|
|
text += len;
|
text += len;
|
}
|
}
|
}
|
}
|
|
|
/* Helper function for SYMBOL_COMPLETION_FUNCTION. */
|
/* Helper function for SYMBOL_COMPLETION_FUNCTION. */
|
|
|
/* Return a vector of char pointers which point to the different
|
/* Return a vector of char pointers which point to the different
|
possible completions in LIST of TEXT.
|
possible completions in LIST of TEXT.
|
|
|
WORD points in the same buffer as TEXT, and completions should be
|
WORD points in the same buffer as TEXT, and completions should be
|
returned relative to this position. For example, suppose TEXT is "foo"
|
returned relative to this position. For example, suppose TEXT is "foo"
|
and we want to complete to "foobar". If WORD is "oo", return
|
and we want to complete to "foobar". If WORD is "oo", return
|
"oobar"; if WORD is "baz/foo", return "baz/foobar". */
|
"oobar"; if WORD is "baz/foo", return "baz/foobar". */
|
|
|
char **
|
char **
|
complete_on_cmdlist (struct cmd_list_element *list, char *text, char *word)
|
complete_on_cmdlist (struct cmd_list_element *list, char *text, char *word)
|
{
|
{
|
struct cmd_list_element *ptr;
|
struct cmd_list_element *ptr;
|
char **matchlist;
|
char **matchlist;
|
int sizeof_matchlist;
|
int sizeof_matchlist;
|
int matches;
|
int matches;
|
int textlen = strlen (text);
|
int textlen = strlen (text);
|
|
|
sizeof_matchlist = 10;
|
sizeof_matchlist = 10;
|
matchlist = (char **) xmalloc (sizeof_matchlist * sizeof (char *));
|
matchlist = (char **) xmalloc (sizeof_matchlist * sizeof (char *));
|
matches = 0;
|
matches = 0;
|
|
|
for (ptr = list; ptr; ptr = ptr->next)
|
for (ptr = list; ptr; ptr = ptr->next)
|
if (!strncmp (ptr->name, text, textlen)
|
if (!strncmp (ptr->name, text, textlen)
|
&& !ptr->abbrev_flag
|
&& !ptr->abbrev_flag
|
&& (ptr->func
|
&& (ptr->func
|
|| ptr->prefixlist))
|
|| ptr->prefixlist))
|
{
|
{
|
if (matches == sizeof_matchlist)
|
if (matches == sizeof_matchlist)
|
{
|
{
|
sizeof_matchlist *= 2;
|
sizeof_matchlist *= 2;
|
matchlist = (char **) xrealloc ((char *) matchlist,
|
matchlist = (char **) xrealloc ((char *) matchlist,
|
(sizeof_matchlist
|
(sizeof_matchlist
|
* sizeof (char *)));
|
* sizeof (char *)));
|
}
|
}
|
|
|
matchlist[matches] = (char *)
|
matchlist[matches] = (char *)
|
xmalloc (strlen (word) + strlen (ptr->name) + 1);
|
xmalloc (strlen (word) + strlen (ptr->name) + 1);
|
if (word == text)
|
if (word == text)
|
strcpy (matchlist[matches], ptr->name);
|
strcpy (matchlist[matches], ptr->name);
|
else if (word > text)
|
else if (word > text)
|
{
|
{
|
/* Return some portion of ptr->name. */
|
/* Return some portion of ptr->name. */
|
strcpy (matchlist[matches], ptr->name + (word - text));
|
strcpy (matchlist[matches], ptr->name + (word - text));
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Return some of text plus ptr->name. */
|
/* Return some of text plus ptr->name. */
|
strncpy (matchlist[matches], word, text - word);
|
strncpy (matchlist[matches], word, text - word);
|
matchlist[matches][text - word] = '\0';
|
matchlist[matches][text - word] = '\0';
|
strcat (matchlist[matches], ptr->name);
|
strcat (matchlist[matches], ptr->name);
|
}
|
}
|
++matches;
|
++matches;
|
}
|
}
|
|
|
if (matches == 0)
|
if (matches == 0)
|
{
|
{
|
xfree (matchlist);
|
xfree (matchlist);
|
matchlist = 0;
|
matchlist = 0;
|
}
|
}
|
else
|
else
|
{
|
{
|
matchlist = (char **) xrealloc ((char *) matchlist, ((matches + 1)
|
matchlist = (char **) xrealloc ((char *) matchlist, ((matches + 1)
|
* sizeof (char *)));
|
* sizeof (char *)));
|
matchlist[matches] = (char *) 0;
|
matchlist[matches] = (char *) 0;
|
}
|
}
|
|
|
return matchlist;
|
return matchlist;
|
}
|
}
|
|
|
/* Helper function for SYMBOL_COMPLETION_FUNCTION. */
|
/* Helper function for SYMBOL_COMPLETION_FUNCTION. */
|
|
|
/* Return a vector of char pointers which point to the different
|
/* Return a vector of char pointers which point to the different
|
possible completions in CMD of TEXT.
|
possible completions in CMD of TEXT.
|
|
|
WORD points in the same buffer as TEXT, and completions should be
|
WORD points in the same buffer as TEXT, and completions should be
|
returned relative to this position. For example, suppose TEXT is "foo"
|
returned relative to this position. For example, suppose TEXT is "foo"
|
and we want to complete to "foobar". If WORD is "oo", return
|
and we want to complete to "foobar". If WORD is "oo", return
|
"oobar"; if WORD is "baz/foo", return "baz/foobar". */
|
"oobar"; if WORD is "baz/foo", return "baz/foobar". */
|
|
|
char **
|
char **
|
complete_on_enum (const char *enumlist[],
|
complete_on_enum (const char *enumlist[],
|
char *text,
|
char *text,
|
char *word)
|
char *word)
|
{
|
{
|
char **matchlist;
|
char **matchlist;
|
int sizeof_matchlist;
|
int sizeof_matchlist;
|
int matches;
|
int matches;
|
int textlen = strlen (text);
|
int textlen = strlen (text);
|
int i;
|
int i;
|
const char *name;
|
const char *name;
|
|
|
sizeof_matchlist = 10;
|
sizeof_matchlist = 10;
|
matchlist = (char **) xmalloc (sizeof_matchlist * sizeof (char *));
|
matchlist = (char **) xmalloc (sizeof_matchlist * sizeof (char *));
|
matches = 0;
|
matches = 0;
|
|
|
for (i = 0; (name = enumlist[i]) != NULL; i++)
|
for (i = 0; (name = enumlist[i]) != NULL; i++)
|
if (strncmp (name, text, textlen) == 0)
|
if (strncmp (name, text, textlen) == 0)
|
{
|
{
|
if (matches == sizeof_matchlist)
|
if (matches == sizeof_matchlist)
|
{
|
{
|
sizeof_matchlist *= 2;
|
sizeof_matchlist *= 2;
|
matchlist = (char **) xrealloc ((char *) matchlist,
|
matchlist = (char **) xrealloc ((char *) matchlist,
|
(sizeof_matchlist
|
(sizeof_matchlist
|
* sizeof (char *)));
|
* sizeof (char *)));
|
}
|
}
|
|
|
matchlist[matches] = (char *)
|
matchlist[matches] = (char *)
|
xmalloc (strlen (word) + strlen (name) + 1);
|
xmalloc (strlen (word) + strlen (name) + 1);
|
if (word == text)
|
if (word == text)
|
strcpy (matchlist[matches], name);
|
strcpy (matchlist[matches], name);
|
else if (word > text)
|
else if (word > text)
|
{
|
{
|
/* Return some portion of name. */
|
/* Return some portion of name. */
|
strcpy (matchlist[matches], name + (word - text));
|
strcpy (matchlist[matches], name + (word - text));
|
}
|
}
|
else
|
else
|
{
|
{
|
/* Return some of text plus name. */
|
/* Return some of text plus name. */
|
strncpy (matchlist[matches], word, text - word);
|
strncpy (matchlist[matches], word, text - word);
|
matchlist[matches][text - word] = '\0';
|
matchlist[matches][text - word] = '\0';
|
strcat (matchlist[matches], name);
|
strcat (matchlist[matches], name);
|
}
|
}
|
++matches;
|
++matches;
|
}
|
}
|
|
|
if (matches == 0)
|
if (matches == 0)
|
{
|
{
|
xfree (matchlist);
|
xfree (matchlist);
|
matchlist = 0;
|
matchlist = 0;
|
}
|
}
|
else
|
else
|
{
|
{
|
matchlist = (char **) xrealloc ((char *) matchlist, ((matches + 1)
|
matchlist = (char **) xrealloc ((char *) matchlist, ((matches + 1)
|
* sizeof (char *)));
|
* sizeof (char *)));
|
matchlist[matches] = (char *) 0;
|
matchlist[matches] = (char *) 0;
|
}
|
}
|
|
|
return matchlist;
|
return matchlist;
|
}
|
}
|
|
|
|
|
/* check function pointer */
|
/* check function pointer */
|
int
|
int
|
cmd_func_p (struct cmd_list_element *cmd)
|
cmd_func_p (struct cmd_list_element *cmd)
|
{
|
{
|
return (cmd->func != NULL);
|
return (cmd->func != NULL);
|
}
|
}
|
|
|
|
|
/* call the command function */
|
/* call the command function */
|
void
|
void
|
cmd_func (struct cmd_list_element *cmd, char *args, int from_tty)
|
cmd_func (struct cmd_list_element *cmd, char *args, int from_tty)
|
{
|
{
|
if (cmd_func_p (cmd))
|
if (cmd_func_p (cmd))
|
(*cmd->func) (cmd, args, from_tty);
|
(*cmd->func) (cmd, args, from_tty);
|
else
|
else
|
error (_("Invalid command"));
|
error (_("Invalid command"));
|
}
|
}
|
|
|
|
|
|
|