75082e8cbb
This patch introduces a new GDB/MI command: -ada-tasks-info,
which is meant to be the MI equivalent of the CLI `info tasks'
command.
This new command returns an array, with each row corresponding
to one task. For now, the columns of the array corresponds to
the columns displayed in the CLI output.
gdb/ChangeLog:
* ada-lang.h (struct inferior): Declare.
(print_ada_task_info): Add declaration.
* ada-tasks.c (print_ada_task_info): Make non-static.
* mi/mi-cmds.c (mi_cmds): Add "ada-task-info".
* mi/mi-cmds.h (mi_cmd_ada_task_info): Add declaration.
* mi/mi-main.c: #include "ada-lang.h".
(mi_cmd_list_features): Add "ada-task-info" to the list
of supported features.
(mi_cmd_ada_task_info): New function.
241 lines
9 KiB
C
241 lines
9 KiB
C
/* MI Command Set for GDB, the GNU debugger.
|
|
|
|
Copyright (C) 2000, 2001, 2003, 2007, 2008, 2009, 2010, 2011
|
|
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"
|
|
|
|
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);
|
|
|
|
|
|
struct mi_cmd mi_cmds[] =
|
|
{
|
|
{ "ada-task-info", { NULL, 0 }, mi_cmd_ada_task_info },
|
|
{ "add-inferior", { NULL, 0 }, mi_cmd_add_inferior },
|
|
{ "break-after", { "ignore", 1 }, NULL },
|
|
{ "break-condition", { "cond", 1 }, NULL },
|
|
{ "break-commands", { NULL, 0 }, mi_cmd_break_commands },
|
|
{ "break-delete", { "delete breakpoint", 1 }, NULL },
|
|
{ "break-disable", { "disable breakpoint", 1 }, NULL },
|
|
{ "break-enable", { "enable breakpoint", 1 }, NULL },
|
|
{ "break-info", { "info break", 1 }, NULL },
|
|
{ "break-insert", { NULL, 0 }, mi_cmd_break_insert},
|
|
{ "break-list", { "info break", }, NULL },
|
|
{ "break-passcount", { NULL, 0 }, mi_cmd_break_passcount},
|
|
{ "break-watch", { NULL, 0 }, mi_cmd_break_watch},
|
|
{ "data-disassemble", { NULL, 0 }, mi_cmd_disassemble},
|
|
{ "data-evaluate-expression", { NULL, 0 }, mi_cmd_data_evaluate_expression},
|
|
{ "data-list-changed-registers", { NULL, 0 },
|
|
mi_cmd_data_list_changed_registers},
|
|
{ "data-list-register-names", { NULL, 0 }, mi_cmd_data_list_register_names},
|
|
{ "data-list-register-values", { NULL, 0 },
|
|
mi_cmd_data_list_register_values},
|
|
{ "data-read-memory", { NULL, 0 }, mi_cmd_data_read_memory},
|
|
{ "data-read-memory-bytes", { NULL, 0 }, mi_cmd_data_read_memory_bytes},
|
|
{ "data-write-memory", { NULL, 0 }, mi_cmd_data_write_memory},
|
|
{ "data-write-memory-bytes", {NULL, 0}, mi_cmd_data_write_memory_bytes},
|
|
{ "data-write-register-values", { NULL, 0 },
|
|
mi_cmd_data_write_register_values},
|
|
{ "enable-timings", { NULL, 0 }, mi_cmd_enable_timings},
|
|
{ "enable-pretty-printing", { NULL, 0 }, mi_cmd_enable_pretty_printing},
|
|
{ "environment-cd", { NULL, 0 }, mi_cmd_env_cd},
|
|
{ "environment-directory", { NULL, 0 }, mi_cmd_env_dir},
|
|
{ "environment-path", { NULL, 0 }, mi_cmd_env_path},
|
|
{ "environment-pwd", { NULL, 0 }, mi_cmd_env_pwd},
|
|
{ "exec-arguments", { "set args", 1 }, NULL },
|
|
{ "exec-continue", { NULL, 0 }, mi_cmd_exec_continue},
|
|
{ "exec-finish", { NULL, 0 }, mi_cmd_exec_finish},
|
|
{ "exec-jump", { NULL, 0 }, mi_cmd_exec_jump},
|
|
{ "exec-interrupt", { NULL, 0 }, mi_cmd_exec_interrupt},
|
|
{ "exec-next", { NULL, 0 }, mi_cmd_exec_next},
|
|
{ "exec-next-instruction", { NULL, 0 }, mi_cmd_exec_next_instruction},
|
|
{ "exec-return", { NULL, 0 }, mi_cmd_exec_return},
|
|
{ "exec-run", { NULL, 0}, mi_cmd_exec_run},
|
|
{ "exec-step", { NULL, 0 }, mi_cmd_exec_step},
|
|
{ "exec-step-instruction", { NULL, 0 }, mi_cmd_exec_step_instruction},
|
|
{ "exec-until", { "until", 1 }, NULL},
|
|
{ "file-exec-and-symbols", { "file", 1 }, NULL },
|
|
{ "file-exec-file", { "exec-file", 1 }, NULL },
|
|
{ "file-list-exec-source-file", { NULL, 0 },
|
|
mi_cmd_file_list_exec_source_file},
|
|
{ "file-list-exec-source-files", { NULL, 0 },
|
|
mi_cmd_file_list_exec_source_files },
|
|
{ "file-symbol-file", { "symbol-file", 1 }, NULL },
|
|
{ "gdb-exit", { NULL, 0 }, mi_cmd_gdb_exit},
|
|
{ "gdb-set", { "set", 1 }, NULL },
|
|
{ "gdb-show", { "show", 1 }, NULL },
|
|
{ "gdb-version", { "show version", 0 }, 0 },
|
|
{ "inferior-tty-set", { NULL, 0 }, mi_cmd_inferior_tty_set},
|
|
{ "inferior-tty-show", { NULL, 0 }, mi_cmd_inferior_tty_show},
|
|
{ "interpreter-exec", { NULL, 0 }, mi_cmd_interpreter_exec},
|
|
{ "list-features", { NULL, 0 }, mi_cmd_list_features},
|
|
{ "list-target-features", { NULL, 0 }, mi_cmd_list_target_features},
|
|
{ "list-thread-groups", { NULL, 0 }, mi_cmd_list_thread_groups },
|
|
{ "remove-inferior", { NULL, 0 }, mi_cmd_remove_inferior },
|
|
{ "stack-info-depth", { NULL, 0 }, mi_cmd_stack_info_depth},
|
|
{ "stack-info-frame", { NULL, 0 }, mi_cmd_stack_info_frame},
|
|
{ "stack-list-arguments", { NULL, 0 }, mi_cmd_stack_list_args},
|
|
{ "stack-list-frames", { NULL, 0 }, mi_cmd_stack_list_frames},
|
|
{ "stack-list-locals", { NULL, 0 }, mi_cmd_stack_list_locals},
|
|
{ "stack-list-variables", { NULL, 0 }, mi_cmd_stack_list_variables},
|
|
{ "stack-select-frame", { NULL, 0 }, mi_cmd_stack_select_frame},
|
|
{ "symbol-list-lines", { NULL, 0 }, mi_cmd_symbol_list_lines},
|
|
{ "target-attach", { "attach", 1 }, NULL },
|
|
{ "target-detach", { NULL, 0 }, mi_cmd_target_detach },
|
|
{ "target-disconnect", { "disconnect", 0 }, 0 },
|
|
{ "target-download", { "load", 1 }, NULL},
|
|
{ "target-file-delete", { NULL, 0 }, mi_cmd_target_file_delete },
|
|
{ "target-file-get", { NULL, 0 }, mi_cmd_target_file_get },
|
|
{ "target-file-put", { NULL, 0 }, mi_cmd_target_file_put },
|
|
{ "target-select", { "target", 1 }, NULL},
|
|
{ "thread-info", { NULL, 0 }, mi_cmd_thread_info },
|
|
{ "thread-list-ids", { NULL, 0 }, mi_cmd_thread_list_ids},
|
|
{ "thread-select", { NULL, 0 }, mi_cmd_thread_select},
|
|
{ "trace-define-variable", { NULL, 0 }, mi_cmd_trace_define_variable },
|
|
{ "trace-find", { NULL, 0 }, mi_cmd_trace_find },
|
|
{ "trace-list-variables", { NULL, 0 }, mi_cmd_trace_list_variables },
|
|
{ "trace-save", { NULL, 0 }, mi_cmd_trace_save },
|
|
{ "trace-start", { NULL, 0 }, mi_cmd_trace_start },
|
|
{ "trace-status", { NULL, 0 }, mi_cmd_trace_status },
|
|
{ "trace-stop", { NULL, 0 }, mi_cmd_trace_stop },
|
|
{ "var-assign", { NULL, 0 }, mi_cmd_var_assign},
|
|
{ "var-create", { NULL, 0 }, mi_cmd_var_create},
|
|
{ "var-delete", { NULL, 0 }, mi_cmd_var_delete},
|
|
{ "var-evaluate-expression", { NULL, 0 }, mi_cmd_var_evaluate_expression},
|
|
{ "var-info-path-expression", { NULL, 0 }, mi_cmd_var_info_path_expression},
|
|
{ "var-info-expression", { NULL, 0 }, mi_cmd_var_info_expression},
|
|
{ "var-info-num-children", { NULL, 0 }, mi_cmd_var_info_num_children},
|
|
{ "var-info-type", { NULL, 0 }, mi_cmd_var_info_type},
|
|
{ "var-list-children", { NULL, 0 }, mi_cmd_var_list_children},
|
|
{ "var-set-format", { NULL, 0 }, mi_cmd_var_set_format},
|
|
{ "var-set-frozen", { NULL, 0 }, mi_cmd_var_set_frozen},
|
|
{ "var-set-update-range", { NULL, 0 }, mi_cmd_var_set_update_range },
|
|
{ "var-set-visualizer", { NULL, 0 }, mi_cmd_var_set_visualizer},
|
|
{ "var-show-attributes", { NULL, 0 }, mi_cmd_var_show_attributes},
|
|
{ "var-show-format", { NULL, 0 }, mi_cmd_var_show_format},
|
|
{ "var-update", { NULL, 0 }, 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);
|
|
}
|
|
|
|
/* stat collecting */
|
|
struct mi_cmd_stats
|
|
{
|
|
int hit;
|
|
int miss;
|
|
int rehash;
|
|
};
|
|
struct mi_cmd_stats stats;
|
|
|
|
/* our lookup function */
|
|
static struct mi_cmd **
|
|
lookup_table (const char *command)
|
|
{
|
|
const char *chp;
|
|
unsigned int index = 0;
|
|
|
|
/* compute our hash */
|
|
for (chp = command; *chp; chp++)
|
|
{
|
|
/* some what arbitrary */
|
|
index = ((index << 6) + (unsigned int) *chp) % MI_TABLE_SIZE;
|
|
}
|
|
/* look it up */
|
|
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;
|
|
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));
|
|
}
|