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 ui_out_emit_table
table_emitter (uiout
, 2,
55 VEC_length (ada_exc_info
, exceptions
),
57 uiout
->table_header (1, ui_left
, "name", "Name");
58 uiout
->table_header (1, ui_left
, "address", "Address");
61 for (ix
= 0; VEC_iterate(ada_exc_info
, exceptions
, ix
, info
); ix
++)
63 ui_out_emit_tuple
tuple_emitter (uiout
, NULL
);
64 uiout
->field_string ("name", info
->name
);
65 uiout
->field_core_addr ("address", gdbarch
, info
->addr
);
68 do_cleanups (old_chain
);
71 /* Implement the "-info-gdb-mi-command" GDB/MI command. */
74 mi_cmd_info_gdb_mi_command (const char *command
, char **argv
, int argc
)
78 struct ui_out
*uiout
= current_uiout
;
80 /* This command takes exactly one argument. */
82 error (_("Usage: -info-gdb-mi-command MI_COMMAND_NAME"));
85 /* Normally, the command name (aka the "operation" in the GDB/MI
86 grammar), does not include the leading '-' (dash). But for
87 the user's convenience, allow the user to specify the command
88 name to be with or without that leading dash. */
89 if (cmd_name
[0] == '-')
92 cmd
= mi_lookup (cmd_name
);
94 ui_out_emit_tuple
tuple_emitter (uiout
, "command");
95 uiout
->field_string ("exists", cmd
!= NULL
? "true" : "false");
99 mi_cmd_info_os (const char *command
, char **argv
, int argc
)
107 info_osdata (argv
[0]);
110 error (_("Usage: -info-os [INFOTYPE]"));
This page took 0.032802 seconds and 4 git commands to generate.