1 /* MI Command Set - information commands.
2 Copyright (C) 2011-2017 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #include "arch-utils.h"
25 /* Implement the "-info-ada-exceptions" GDB/MI command. */
28 mi_cmd_info_ada_exceptions (const char *command
, char **argv
, int argc
)
30 struct ui_out
*uiout
= current_uiout
;
31 struct gdbarch
*gdbarch
= get_current_arch ();
33 struct cleanup
*old_chain
;
34 VEC(ada_exc_info
) *exceptions
;
36 struct ada_exc_info
*info
;
47 error (_("Usage: -info-ada-exceptions [REGEXP]"));
51 exceptions
= ada_exceptions_list (regexp
);
52 old_chain
= make_cleanup (VEC_cleanup (ada_exc_info
), &exceptions
);
54 make_cleanup_ui_out_table_begin_end
55 (uiout
, 2, VEC_length (ada_exc_info
, exceptions
), "ada-exceptions");
56 uiout
->table_header (1, ui_left
, "name", "Name");
57 uiout
->table_header (1, ui_left
, "address", "Address");
60 for (ix
= 0; VEC_iterate(ada_exc_info
, exceptions
, ix
, info
); ix
++)
62 ui_out_emit_tuple
tuple_emitter (uiout
, NULL
);
63 uiout
->field_string ("name", info
->name
);
64 uiout
->field_core_addr ("address", gdbarch
, info
->addr
);
67 do_cleanups (old_chain
);
70 /* Implement the "-info-gdb-mi-command" GDB/MI command. */
73 mi_cmd_info_gdb_mi_command (const char *command
, char **argv
, int argc
)
77 struct ui_out
*uiout
= current_uiout
;
79 /* This command takes exactly one argument. */
81 error (_("Usage: -info-gdb-mi-command MI_COMMAND_NAME"));
84 /* Normally, the command name (aka the "operation" in the GDB/MI
85 grammar), does not include the leading '-' (dash). But for
86 the user's convenience, allow the user to specify the command
87 name to be with or without that leading dash. */
88 if (cmd_name
[0] == '-')
91 cmd
= mi_lookup (cmd_name
);
93 ui_out_emit_tuple
tuple_emitter (uiout
, "command");
94 uiout
->field_string ("exists", cmd
!= NULL
? "true" : "false");
98 mi_cmd_info_os (const char *command
, char **argv
, int argc
)
106 info_osdata (argv
[0]);
109 error (_("Usage: -info-os [INFOTYPE]"));