[deliverable/binutils-gdb.git] / gdb / mi / mi-cmds.c

/* MI Command Set for GDB, the GNU debugger.
   Copyright (C) 2000-2013 Free Software Foundation, Inc.

   Contributed by Cygnus Solutions (a Red Hat company).

   This file is part of GDB.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

#include "defs.h"
#include "top.h"
#include "mi-cmds.h"
#include "gdb_string.h"
#include "mi-main.h"

extern void _initialize_mi_cmds (void);

struct mi_cmd;
static struct mi_cmd **lookup_table (const char *command);
static void build_table (struct mi_cmd *commands);

static struct mi_cmd mi_cmds[] =
{
/* Define a MI command of NAME, and its corresponding CLI command is
   CLI_NAME.  */
#define DEF_MI_CMD_CLI_1(NAME, CLI_NAME, ARGS_P, CALLED)	\
  { NAME, { CLI_NAME, ARGS_P}, NULL, CALLED }
#define DEF_MI_CMD_CLI(NAME, CLI_NAME, ARGS_P) \
  DEF_MI_CMD_CLI_1(NAME, CLI_NAME, ARGS_P, NULL)

/* Define a MI command of NAME, and implemented by function MI_FUNC.  */
#define DEF_MI_CMD_MI_1(NAME, MI_FUNC, CALLED) \
  { NAME, {NULL, 0}, MI_FUNC, CALLED }
#define DEF_MI_CMD_MI(NAME, MI_FUNC) DEF_MI_CMD_MI_1(NAME, MI_FUNC, NULL)

  DEF_MI_CMD_MI ("ada-task-info", mi_cmd_ada_task_info),
  DEF_MI_CMD_MI ("add-inferior", mi_cmd_add_inferior),
  DEF_MI_CMD_CLI_1 ("break-after", "ignore", 1,
		    &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_CLI_1 ("break-condition","cond", 1,
		  &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_MI_1 ("break-commands", mi_cmd_break_commands,
		   &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_CLI_1 ("break-delete", "delete breakpoint", 1,
		    &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_CLI_1 ("break-disable", "disable breakpoint", 1,
		    &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_CLI_1 ("break-enable", "enable breakpoint", 1,
		     &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_CLI ("break-info", "info break", 1),
  DEF_MI_CMD_MI_1 ("break-insert", mi_cmd_break_insert,
		   &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_MI_1 ("dprintf-insert", mi_cmd_dprintf_insert,
		   &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_CLI ("break-list", "info break", 0),
  DEF_MI_CMD_MI_1 ("break-passcount", mi_cmd_break_passcount,
		   &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_MI_1 ("break-watch", mi_cmd_break_watch,
		   &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_MI_1 ("catch-load", mi_cmd_catch_load,
                   &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_MI_1 ("catch-unload", mi_cmd_catch_unload,
                   &mi_suppress_notification.breakpoint),
  DEF_MI_CMD_MI ("data-disassemble", mi_cmd_disassemble),
  DEF_MI_CMD_MI ("data-evaluate-expression", mi_cmd_data_evaluate_expression),
  DEF_MI_CMD_MI ("data-list-changed-registers",
		 mi_cmd_data_list_changed_registers),
  DEF_MI_CMD_MI ("data-list-register-names", mi_cmd_data_list_register_names),
  DEF_MI_CMD_MI ("data-list-register-values", mi_cmd_data_list_register_values),
  DEF_MI_CMD_MI ("data-read-memory", mi_cmd_data_read_memory),
  DEF_MI_CMD_MI ("data-read-memory-bytes", mi_cmd_data_read_memory_bytes),
  DEF_MI_CMD_MI_1 ("data-write-memory", mi_cmd_data_write_memory,
		   &mi_suppress_notification.memory),
  DEF_MI_CMD_MI_1 ("data-write-memory-bytes", mi_cmd_data_write_memory_bytes,
		   &mi_suppress_notification.memory),
  DEF_MI_CMD_MI ("data-write-register-values",
		 mi_cmd_data_write_register_values),
  DEF_MI_CMD_MI ("enable-timings", mi_cmd_enable_timings),
  DEF_MI_CMD_MI ("enable-pretty-printing", mi_cmd_enable_pretty_printing),
  DEF_MI_CMD_MI ("enable-frame-filters", mi_cmd_enable_frame_filters),
  DEF_MI_CMD_MI ("environment-cd", mi_cmd_env_cd),
  DEF_MI_CMD_MI ("environment-directory", mi_cmd_env_dir),
  DEF_MI_CMD_MI ("environment-path", mi_cmd_env_path),
  DEF_MI_CMD_MI ("environment-pwd", mi_cmd_env_pwd),
  DEF_MI_CMD_CLI_1 ("exec-arguments", "set args", 1,
		    &mi_suppress_notification.cmd_param_changed),
  DEF_MI_CMD_MI ("exec-continue", mi_cmd_exec_continue),
  DEF_MI_CMD_MI ("exec-finish", mi_cmd_exec_finish),
  DEF_MI_CMD_MI ("exec-jump", mi_cmd_exec_jump),
  DEF_MI_CMD_MI ("exec-interrupt", mi_cmd_exec_interrupt),
  DEF_MI_CMD_MI ("exec-next", mi_cmd_exec_next),
  DEF_MI_CMD_MI ("exec-next-instruction", mi_cmd_exec_next_instruction),
  DEF_MI_CMD_MI ("exec-return", mi_cmd_exec_return),
  DEF_MI_CMD_MI ("exec-run", mi_cmd_exec_run),
  DEF_MI_CMD_MI ("exec-step", mi_cmd_exec_step),
  DEF_MI_CMD_MI ("exec-step-instruction", mi_cmd_exec_step_instruction),
  DEF_MI_CMD_CLI ("exec-until", "until", 1),
  DEF_MI_CMD_CLI ("file-exec-and-symbols", "file", 1),
  DEF_MI_CMD_CLI ("file-exec-file", "exec-file", 1),
  DEF_MI_CMD_MI ("file-list-exec-source-file",
		 mi_cmd_file_list_exec_source_file),
  DEF_MI_CMD_MI ("file-list-exec-source-files",
		 mi_cmd_file_list_exec_source_files),
  DEF_MI_CMD_CLI ("file-symbol-file", "symbol-file", 1),
  DEF_MI_CMD_MI ("gdb-exit", mi_cmd_gdb_exit),
  DEF_MI_CMD_CLI_1 ("gdb-set", "set", 1,
		    &mi_suppress_notification.cmd_param_changed),
  DEF_MI_CMD_CLI ("gdb-show", "show", 1),
  DEF_MI_CMD_CLI ("gdb-version", "show version", 0),
  DEF_MI_CMD_MI ("inferior-tty-set", mi_cmd_inferior_tty_set),
  DEF_MI_CMD_MI ("inferior-tty-show", mi_cmd_inferior_tty_show),
  DEF_MI_CMD_MI ("info-os", mi_cmd_info_os),
  DEF_MI_CMD_MI ("interpreter-exec", mi_cmd_interpreter_exec),
  DEF_MI_CMD_MI ("list-features", mi_cmd_list_features),
  DEF_MI_CMD_MI ("list-target-features", mi_cmd_list_target_features),
  DEF_MI_CMD_MI ("list-thread-groups", mi_cmd_list_thread_groups),
  DEF_MI_CMD_MI ("remove-inferior", mi_cmd_remove_inferior),
  DEF_MI_CMD_MI ("stack-info-depth", mi_cmd_stack_info_depth),
  DEF_MI_CMD_MI ("stack-info-frame", mi_cmd_stack_info_frame),
  DEF_MI_CMD_MI ("stack-list-arguments", mi_cmd_stack_list_args),
  DEF_MI_CMD_MI ("stack-list-frames", mi_cmd_stack_list_frames),
  DEF_MI_CMD_MI ("stack-list-locals", mi_cmd_stack_list_locals),
  DEF_MI_CMD_MI ("stack-list-variables", mi_cmd_stack_list_variables),
  DEF_MI_CMD_MI ("stack-select-frame", mi_cmd_stack_select_frame),
  DEF_MI_CMD_MI ("symbol-list-lines", mi_cmd_symbol_list_lines),
  DEF_MI_CMD_CLI ("target-attach", "attach", 1),
  DEF_MI_CMD_MI ("target-detach", mi_cmd_target_detach),
  DEF_MI_CMD_CLI ("target-disconnect", "disconnect", 0),
  DEF_MI_CMD_CLI ("target-download", "load", 1),
  DEF_MI_CMD_MI ("target-file-delete", mi_cmd_target_file_delete),
  DEF_MI_CMD_MI ("target-file-get", mi_cmd_target_file_get),
  DEF_MI_CMD_MI ("target-file-put", mi_cmd_target_file_put),
  DEF_MI_CMD_CLI ("target-select", "target", 1),
  DEF_MI_CMD_MI ("thread-info", mi_cmd_thread_info),
  DEF_MI_CMD_MI ("thread-list-ids", mi_cmd_thread_list_ids),
  DEF_MI_CMD_MI ("thread-select", mi_cmd_thread_select),
  DEF_MI_CMD_MI ("trace-define-variable", mi_cmd_trace_define_variable),
  DEF_MI_CMD_MI_1 ("trace-find", mi_cmd_trace_find,
		   &mi_suppress_notification.traceframe),
  DEF_MI_CMD_MI ("trace-frame-collected",
		 mi_cmd_trace_frame_collected),
  DEF_MI_CMD_MI ("trace-list-variables", mi_cmd_trace_list_variables),
  DEF_MI_CMD_MI ("trace-save", mi_cmd_trace_save),
  DEF_MI_CMD_MI ("trace-start", mi_cmd_trace_start),
  DEF_MI_CMD_MI ("trace-status", mi_cmd_trace_status),
  DEF_MI_CMD_MI ("trace-stop", mi_cmd_trace_stop),
  DEF_MI_CMD_MI ("var-assign", mi_cmd_var_assign),
  DEF_MI_CMD_MI ("var-create", mi_cmd_var_create),
  DEF_MI_CMD_MI ("var-delete", mi_cmd_var_delete),
  DEF_MI_CMD_MI ("var-evaluate-expression", mi_cmd_var_evaluate_expression),
  DEF_MI_CMD_MI ("var-info-path-expression", mi_cmd_var_info_path_expression),
  DEF_MI_CMD_MI ("var-info-expression", mi_cmd_var_info_expression),
  DEF_MI_CMD_MI ("var-info-num-children", mi_cmd_var_info_num_children),
  DEF_MI_CMD_MI ("var-info-type", mi_cmd_var_info_type),
  DEF_MI_CMD_MI ("var-list-children", mi_cmd_var_list_children),
  DEF_MI_CMD_MI ("var-set-format", mi_cmd_var_set_format),
  DEF_MI_CMD_MI ("var-set-frozen", mi_cmd_var_set_frozen),
  DEF_MI_CMD_MI ("var-set-update-range", mi_cmd_var_set_update_range),
  DEF_MI_CMD_MI ("var-set-visualizer", mi_cmd_var_set_visualizer),
  DEF_MI_CMD_MI ("var-show-attributes", mi_cmd_var_show_attributes),
  DEF_MI_CMD_MI ("var-show-format", mi_cmd_var_show_format),
  DEF_MI_CMD_MI ("var-update", mi_cmd_var_update),
  { NULL, }
};

/* Pointer to the mi command table (built at run time). */

static struct mi_cmd **mi_table;

/* A prime large enough to accomodate the entire command table.  */
enum
  {
    MI_TABLE_SIZE = 227
  };

/* Exported function used to obtain info from the table.  */
struct mi_cmd *
mi_lookup (const char *command)
{
  return *lookup_table (command);
}

/* Used for collecting hash hit/miss statistics.  */

struct mi_cmd_stats
{
  int hit;
  int miss;
  int rehash;
};
struct mi_cmd_stats stats;

/* Look up a command.  */

static struct mi_cmd **
lookup_table (const char *command)
{
  const char *chp;
  unsigned int index = 0;

  /* Compute our hash.  */
  for (chp = command; *chp; chp++)
    {
      /* We use a somewhat arbitrary formula.  */
      index = ((index << 6) + (unsigned int) *chp) % MI_TABLE_SIZE;
    }

  while (1)
    {
      struct mi_cmd **entry = &mi_table[index];
      if ((*entry) == 0)
	{
	  /* not found, return pointer to next free. */
	  stats.miss++;
	  return entry;
	}
      if (strcmp (command, (*entry)->name) == 0)
	{
	  stats.hit++;
	  return entry;		/* found */
	}
      index = (index + 1) % MI_TABLE_SIZE;
      stats.rehash++;
    }
}

static void
build_table (struct mi_cmd *commands)
{
  int nr_rehash = 0;
  int nr_entries = 0;
  struct mi_cmd *command;
  int sizeof_table = sizeof (struct mi_cmd **) * MI_TABLE_SIZE;

  mi_table = xmalloc (sizeof_table);
  memset (mi_table, 0, sizeof_table);
  for (command = commands; command->name != 0; command++)
    {
      struct mi_cmd **entry = lookup_table (command->name);

      if (*entry)
	internal_error (__FILE__, __LINE__,
			_("command `%s' appears to be duplicated"),
			command->name);
      *entry = command;
      /* FIXME lose these prints */
      if (0)
	{
	  fprintf_unfiltered (gdb_stdlog, "%-30s %2d\n",
			      command->name, stats.rehash - nr_rehash);
	}
      nr_entries++;
      nr_rehash = stats.rehash;
    }
  if (0)
    {
      fprintf_filtered (gdb_stdlog, "Average %3.1f\n",
			(double) nr_rehash / (double) nr_entries);
    }
}

void
_initialize_mi_cmds (void)
{
  build_table (mi_cmds);
  memset (&stats, 0, sizeof (stats));
}
Commit	Line	Data
4389a95a	1	/* MI Command Set for GDB, the GNU debugger.
28e7fd62	2	Copyright (C) 2000-2013 Free Software Foundation, Inc.
4389a95a	3
ab91fdd5	4	Contributed by Cygnus Solutions (a Red Hat company).
fb40c209 AC	5
	6	This file is part of GDB.
	7
	8	This program is free software; you can redistribute it and/or modify
	9	it under the terms of the GNU General Public License as published by
a9762ec7	10	the Free Software Foundation; either version 3 of the License, or
fb40c209 AC	11	(at your option) any later version.
	12
	13	This program is distributed in the hope that it will be useful,
	14	but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	GNU General Public License for more details.
	17
	18	You should have received a copy of the GNU General Public License
a9762ec7	19	along with this program. If not, see <http://www.gnu.org/licenses/>. */
fb40c209 AC	20
	21	#include "defs.h"
	22	#include "top.h"
	23	#include "mi-cmds.h"
27b82ed2	24	#include "gdb_string.h"
648beb2b	25	#include "mi-main.h"
fb40c209 AC	26
fb40c209 AC	27	extern void _initialize_mi_cmds (void);
2b03b41d	28
fb40c209 AC	29	struct mi_cmd;
	30	static struct mi_cmd *lookup_table (const char command);
	31	static void build_table (struct mi_cmd *commands);
	32
ef07a9f7	33	static struct mi_cmd mi_cmds[] =
fb40c209	34	{
648beb2b YQ	35	/* Define a MI command of NAME, and its corresponding CLI command is
	36	CLI_NAME. */
	37	#define DEF_MI_CMD_CLI_1(NAME, CLI_NAME, ARGS_P, CALLED) \
	38	{ NAME, { CLI_NAME, ARGS_P}, NULL, CALLED }
	39	#define DEF_MI_CMD_CLI(NAME, CLI_NAME, ARGS_P) \
	40	DEF_MI_CMD_CLI_1(NAME, CLI_NAME, ARGS_P, NULL)
	41
	42	/* Define a MI command of NAME, and implemented by function MI_FUNC. */
	43	#define DEF_MI_CMD_MI_1(NAME, MI_FUNC, CALLED) \
	44	{ NAME, {NULL, 0}, MI_FUNC, CALLED }
	45	#define DEF_MI_CMD_MI(NAME, MI_FUNC) DEF_MI_CMD_MI_1(NAME, MI_FUNC, NULL)
	46
	47	DEF_MI_CMD_MI ("ada-task-info", mi_cmd_ada_task_info),
	48	DEF_MI_CMD_MI ("add-inferior", mi_cmd_add_inferior),
	49	DEF_MI_CMD_CLI_1 ("break-after", "ignore", 1,
	50	&mi_suppress_notification.breakpoint),
	51	DEF_MI_CMD_CLI_1 ("break-condition","cond", 1,
	52	&mi_suppress_notification.breakpoint),
	53	DEF_MI_CMD_MI_1 ("break-commands", mi_cmd_break_commands,
	54	&mi_suppress_notification.breakpoint),
	55	DEF_MI_CMD_CLI_1 ("break-delete", "delete breakpoint", 1,
	56	&mi_suppress_notification.breakpoint),
	57	DEF_MI_CMD_CLI_1 ("break-disable", "disable breakpoint", 1,
	58	&mi_suppress_notification.breakpoint),
	59	DEF_MI_CMD_CLI_1 ("break-enable", "enable breakpoint", 1,
	60	&mi_suppress_notification.breakpoint),
	61	DEF_MI_CMD_CLI ("break-info", "info break", 1),
	62	DEF_MI_CMD_MI_1 ("break-insert", mi_cmd_break_insert,
	63	&mi_suppress_notification.breakpoint),
c5867ab6 HZ	64	DEF_MI_CMD_MI_1 ("dprintf-insert", mi_cmd_dprintf_insert,
c5867ab6 HZ	65	&mi_suppress_notification.breakpoint),
648beb2b YQ	66	DEF_MI_CMD_CLI ("break-list", "info break", 0),
	67	DEF_MI_CMD_MI_1 ("break-passcount", mi_cmd_break_passcount,
	68	&mi_suppress_notification.breakpoint),
	69	DEF_MI_CMD_MI_1 ("break-watch", mi_cmd_break_watch,
	70	&mi_suppress_notification.breakpoint),
91985142 MG	71	DEF_MI_CMD_MI_1 ("catch-load", mi_cmd_catch_load,
	72	&mi_suppress_notification.breakpoint),
	73	DEF_MI_CMD_MI_1 ("catch-unload", mi_cmd_catch_unload,
	74	&mi_suppress_notification.breakpoint),
648beb2b YQ	75	DEF_MI_CMD_MI ("data-disassemble", mi_cmd_disassemble),
	76	DEF_MI_CMD_MI ("data-evaluate-expression", mi_cmd_data_evaluate_expression),
	77	DEF_MI_CMD_MI ("data-list-changed-registers",
	78	mi_cmd_data_list_changed_registers),
	79	DEF_MI_CMD_MI ("data-list-register-names", mi_cmd_data_list_register_names),
	80	DEF_MI_CMD_MI ("data-list-register-values", mi_cmd_data_list_register_values),
	81	DEF_MI_CMD_MI ("data-read-memory", mi_cmd_data_read_memory),
	82	DEF_MI_CMD_MI ("data-read-memory-bytes", mi_cmd_data_read_memory_bytes),
8de0566d YQ	83	DEF_MI_CMD_MI_1 ("data-write-memory", mi_cmd_data_write_memory,
	84	&mi_suppress_notification.memory),
	85	DEF_MI_CMD_MI_1 ("data-write-memory-bytes", mi_cmd_data_write_memory_bytes,
	86	&mi_suppress_notification.memory),
648beb2b YQ	87	DEF_MI_CMD_MI ("data-write-register-values",
	88	mi_cmd_data_write_register_values),
	89	DEF_MI_CMD_MI ("enable-timings", mi_cmd_enable_timings),
	90	DEF_MI_CMD_MI ("enable-pretty-printing", mi_cmd_enable_pretty_printing),
1e611234	91	DEF_MI_CMD_MI ("enable-frame-filters", mi_cmd_enable_frame_filters),
648beb2b YQ	92	DEF_MI_CMD_MI ("environment-cd", mi_cmd_env_cd),
	93	DEF_MI_CMD_MI ("environment-directory", mi_cmd_env_dir),
	94	DEF_MI_CMD_MI ("environment-path", mi_cmd_env_path),
	95	DEF_MI_CMD_MI ("environment-pwd", mi_cmd_env_pwd),
62a813cc YQ	96	DEF_MI_CMD_CLI_1 ("exec-arguments", "set args", 1,
62a813cc YQ	97	&mi_suppress_notification.cmd_param_changed),
648beb2b YQ	98	DEF_MI_CMD_MI ("exec-continue", mi_cmd_exec_continue),
	99	DEF_MI_CMD_MI ("exec-finish", mi_cmd_exec_finish),
	100	DEF_MI_CMD_MI ("exec-jump", mi_cmd_exec_jump),
	101	DEF_MI_CMD_MI ("exec-interrupt", mi_cmd_exec_interrupt),
	102	DEF_MI_CMD_MI ("exec-next", mi_cmd_exec_next),
	103	DEF_MI_CMD_MI ("exec-next-instruction", mi_cmd_exec_next_instruction),
	104	DEF_MI_CMD_MI ("exec-return", mi_cmd_exec_return),
	105	DEF_MI_CMD_MI ("exec-run", mi_cmd_exec_run),
	106	DEF_MI_CMD_MI ("exec-step", mi_cmd_exec_step),
	107	DEF_MI_CMD_MI ("exec-step-instruction", mi_cmd_exec_step_instruction),
	108	DEF_MI_CMD_CLI ("exec-until", "until", 1),
	109	DEF_MI_CMD_CLI ("file-exec-and-symbols", "file", 1),
	110	DEF_MI_CMD_CLI ("file-exec-file", "exec-file", 1),
	111	DEF_MI_CMD_MI ("file-list-exec-source-file",
	112	mi_cmd_file_list_exec_source_file),
	113	DEF_MI_CMD_MI ("file-list-exec-source-files",
	114	mi_cmd_file_list_exec_source_files),
	115	DEF_MI_CMD_CLI ("file-symbol-file", "symbol-file", 1),
	116	DEF_MI_CMD_MI ("gdb-exit", mi_cmd_gdb_exit),
	117	DEF_MI_CMD_CLI_1 ("gdb-set", "set", 1,
	118	&mi_suppress_notification.cmd_param_changed),
	119	DEF_MI_CMD_CLI ("gdb-show", "show", 1),
	120	DEF_MI_CMD_CLI ("gdb-version", "show version", 0),
	121	DEF_MI_CMD_MI ("inferior-tty-set", mi_cmd_inferior_tty_set),
	122	DEF_MI_CMD_MI ("inferior-tty-show", mi_cmd_inferior_tty_show),
	123	DEF_MI_CMD_MI ("info-os", mi_cmd_info_os),
	124	DEF_MI_CMD_MI ("interpreter-exec", mi_cmd_interpreter_exec),
	125	DEF_MI_CMD_MI ("list-features", mi_cmd_list_features),
	126	DEF_MI_CMD_MI ("list-target-features", mi_cmd_list_target_features),
	127	DEF_MI_CMD_MI ("list-thread-groups", mi_cmd_list_thread_groups),
	128	DEF_MI_CMD_MI ("remove-inferior", mi_cmd_remove_inferior),
	129	DEF_MI_CMD_MI ("stack-info-depth", mi_cmd_stack_info_depth),
	130	DEF_MI_CMD_MI ("stack-info-frame", mi_cmd_stack_info_frame),
	131	DEF_MI_CMD_MI ("stack-list-arguments", mi_cmd_stack_list_args),
	132	DEF_MI_CMD_MI ("stack-list-frames", mi_cmd_stack_list_frames),
	133	DEF_MI_CMD_MI ("stack-list-locals", mi_cmd_stack_list_locals),
	134	DEF_MI_CMD_MI ("stack-list-variables", mi_cmd_stack_list_variables),
	135	DEF_MI_CMD_MI ("stack-select-frame", mi_cmd_stack_select_frame),
	136	DEF_MI_CMD_MI ("symbol-list-lines", mi_cmd_symbol_list_lines),
	137	DEF_MI_CMD_CLI ("target-attach", "attach", 1),
	138	DEF_MI_CMD_MI ("target-detach", mi_cmd_target_detach),
	139	DEF_MI_CMD_CLI ("target-disconnect", "disconnect", 0),
	140	DEF_MI_CMD_CLI ("target-download", "load", 1),
	141	DEF_MI_CMD_MI ("target-file-delete", mi_cmd_target_file_delete),
	142	DEF_MI_CMD_MI ("target-file-get", mi_cmd_target_file_get),
	143	DEF_MI_CMD_MI ("target-file-put", mi_cmd_target_file_put),
	144	DEF_MI_CMD_CLI ("target-select", "target", 1),
	145	DEF_MI_CMD_MI ("thread-info", mi_cmd_thread_info),
	146	DEF_MI_CMD_MI ("thread-list-ids", mi_cmd_thread_list_ids),
	147	DEF_MI_CMD_MI ("thread-select", mi_cmd_thread_select),
	148	DEF_MI_CMD_MI ("trace-define-variable", mi_cmd_trace_define_variable),
201b4506 YQ	149	DEF_MI_CMD_MI_1 ("trace-find", mi_cmd_trace_find,
201b4506 YQ	150	&mi_suppress_notification.traceframe),
dc673c81 YQ	151	DEF_MI_CMD_MI ("trace-frame-collected",
dc673c81 YQ	152	mi_cmd_trace_frame_collected),
648beb2b YQ	153	DEF_MI_CMD_MI ("trace-list-variables", mi_cmd_trace_list_variables),
	154	DEF_MI_CMD_MI ("trace-save", mi_cmd_trace_save),
	155	DEF_MI_CMD_MI ("trace-start", mi_cmd_trace_start),
	156	DEF_MI_CMD_MI ("trace-status", mi_cmd_trace_status),
	157	DEF_MI_CMD_MI ("trace-stop", mi_cmd_trace_stop),
	158	DEF_MI_CMD_MI ("var-assign", mi_cmd_var_assign),
	159	DEF_MI_CMD_MI ("var-create", mi_cmd_var_create),
	160	DEF_MI_CMD_MI ("var-delete", mi_cmd_var_delete),
	161	DEF_MI_CMD_MI ("var-evaluate-expression", mi_cmd_var_evaluate_expression),
	162	DEF_MI_CMD_MI ("var-info-path-expression", mi_cmd_var_info_path_expression),
	163	DEF_MI_CMD_MI ("var-info-expression", mi_cmd_var_info_expression),
	164	DEF_MI_CMD_MI ("var-info-num-children", mi_cmd_var_info_num_children),
	165	DEF_MI_CMD_MI ("var-info-type", mi_cmd_var_info_type),
	166	DEF_MI_CMD_MI ("var-list-children", mi_cmd_var_list_children),
	167	DEF_MI_CMD_MI ("var-set-format", mi_cmd_var_set_format),
	168	DEF_MI_CMD_MI ("var-set-frozen", mi_cmd_var_set_frozen),
	169	DEF_MI_CMD_MI ("var-set-update-range", mi_cmd_var_set_update_range),
	170	DEF_MI_CMD_MI ("var-set-visualizer", mi_cmd_var_set_visualizer),
	171	DEF_MI_CMD_MI ("var-show-attributes", mi_cmd_var_show_attributes),
	172	DEF_MI_CMD_MI ("var-show-format", mi_cmd_var_show_format),
	173	DEF_MI_CMD_MI ("var-update", mi_cmd_var_update),
b2af646b	174	{ NULL, }
fb40c209 AC	175	};
fb40c209 AC	176
2b03b41d	177	/* Pointer to the mi command table (built at run time). */
fb40c209 AC	178
	179	static struct mi_cmd **mi_table;
	180
2b03b41d	181	/* A prime large enough to accomodate the entire command table. */
fb40c209 AC	182	enum
	183	{
	184	MI_TABLE_SIZE = 227
	185	};
	186
2b03b41d	187	/* Exported function used to obtain info from the table. */
fb40c209 AC	188	struct mi_cmd *
	189	mi_lookup (const char *command)
	190	{
	191	return *lookup_table (command);
	192	}
	193
2b03b41d SS	194	/* Used for collecting hash hit/miss statistics. */
2b03b41d SS	195
fb40c209 AC	196	struct mi_cmd_stats
	197	{
	198	int hit;
	199	int miss;
	200	int rehash;
	201	};
	202	struct mi_cmd_stats stats;
	203
2b03b41d SS	204	/* Look up a command. */
2b03b41d SS	205
fb40c209 AC	206	static struct mi_cmd **
	207	lookup_table (const char *command)
	208	{
	209	const char *chp;
	210	unsigned int index = 0;
102040f0	211
2b03b41d	212	/* Compute our hash. */
fb40c209 AC	213	for (chp = command; *chp; chp++)
fb40c209 AC	214	{
2b03b41d	215	/* We use a somewhat arbitrary formula. */
fb40c209 AC	216	index = ((index << 6) + (unsigned int) *chp) % MI_TABLE_SIZE;
fb40c209 AC	217	}
2b03b41d	218
fb40c209 AC	219	while (1)
	220	{
	221	struct mi_cmd **entry = &mi_table[index];
	222	if ((*entry) == 0)
	223	{
	224	/* not found, return pointer to next free. */
	225	stats.miss++;
	226	return entry;
	227	}
	228	if (strcmp (command, (*entry)->name) == 0)
	229	{
	230	stats.hit++;
	231	return entry; /* found */
	232	}
	233	index = (index + 1) % MI_TABLE_SIZE;
	234	stats.rehash++;
	235	}
	236	}
	237
	238	static void
	239	build_table (struct mi_cmd *commands)
	240	{
	241	int nr_rehash = 0;
	242	int nr_entries = 0;
	243	struct mi_cmd *command;
	244	int sizeof_table = sizeof (struct mi_cmd *) MI_TABLE_SIZE;
	245
	246	mi_table = xmalloc (sizeof_table);
	247	memset (mi_table, 0, sizeof_table);
	248	for (command = commands; command->name != 0; command++)
	249	{
	250	struct mi_cmd **entry = lookup_table (command->name);
102040f0	251
fb40c209	252	if (*entry)
8e65ff28	253	internal_error (__FILE__, __LINE__,
e2e0b3e5	254	_("command `%s' appears to be duplicated"),
fb40c209 AC	255	command->name);
fb40c209 AC	256	*entry = command;
2b03b41d	257	/* FIXME lose these prints */
fb40c209 AC	258	if (0)
	259	{
	260	fprintf_unfiltered (gdb_stdlog, "%-30s %2d\n",
	261	command->name, stats.rehash - nr_rehash);
	262	}
	263	nr_entries++;
	264	nr_rehash = stats.rehash;
	265	}
	266	if (0)
	267	{
	268	fprintf_filtered (gdb_stdlog, "Average %3.1f\n",
	269	(double) nr_rehash / (double) nr_entries);
	270	}
	271	}
	272
	273	void
fba45db2	274	_initialize_mi_cmds (void)
fb40c209 AC	275	{
	276	build_table (mi_cmds);
	277	memset (&stats, 0, sizeof (stats));
	278	}