Commit | Line | Data |
---|---|---|
f3e0e960 | 1 | /* MI Command Set - information commands. |
b811d2c2 | 2 | Copyright (C) 2011-2020 Free Software Foundation, Inc. |
f3e0e960 SS |
3 | |
4 | This file is part of GDB. | |
5 | ||
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. | |
10 | ||
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. | |
15 | ||
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/>. */ | |
18 | ||
19 | #include "defs.h" | |
20 | #include "osdata.h" | |
21 | #include "mi-cmds.h" | |
a7e332c2 JB |
22 | #include "ada-lang.h" |
23 | #include "arch-utils.h" | |
24 | ||
25 | /* Implement the "-info-ada-exceptions" GDB/MI command. */ | |
26 | ||
27 | void | |
9f33b8b7 | 28 | mi_cmd_info_ada_exceptions (const char *command, char **argv, int argc) |
a7e332c2 JB |
29 | { |
30 | struct ui_out *uiout = current_uiout; | |
31 | struct gdbarch *gdbarch = get_current_arch (); | |
32 | char *regexp; | |
a7e332c2 JB |
33 | |
34 | switch (argc) | |
35 | { | |
36 | case 0: | |
37 | regexp = NULL; | |
38 | break; | |
39 | case 1: | |
40 | regexp = argv[0]; | |
41 | break; | |
42 | default: | |
43 | error (_("Usage: -info-ada-exceptions [REGEXP]")); | |
44 | break; | |
45 | } | |
46 | ||
ab816a27 | 47 | std::vector<ada_exc_info> exceptions = ada_exceptions_list (regexp); |
a7e332c2 | 48 | |
4a2b031d | 49 | ui_out_emit_table table_emitter (uiout, 2, |
ab816a27 | 50 | exceptions.size (), |
4a2b031d | 51 | "ada-exceptions"); |
112e8700 SM |
52 | uiout->table_header (1, ui_left, "name", "Name"); |
53 | uiout->table_header (1, ui_left, "address", "Address"); | |
54 | uiout->table_body (); | |
a7e332c2 | 55 | |
ab816a27 | 56 | for (const ada_exc_info &info : exceptions) |
a7e332c2 | 57 | { |
2e783024 | 58 | ui_out_emit_tuple tuple_emitter (uiout, NULL); |
ab816a27 TT |
59 | uiout->field_string ("name", info.name); |
60 | uiout->field_core_addr ("address", gdbarch, info.addr); | |
a7e332c2 | 61 | } |
a7e332c2 | 62 | } |
f3e0e960 | 63 | |
6b7cbff1 JB |
64 | /* Implement the "-info-gdb-mi-command" GDB/MI command. */ |
65 | ||
66 | void | |
9f33b8b7 | 67 | mi_cmd_info_gdb_mi_command (const char *command, char **argv, int argc) |
6b7cbff1 JB |
68 | { |
69 | const char *cmd_name; | |
70 | struct mi_cmd *cmd; | |
71 | struct ui_out *uiout = current_uiout; | |
6b7cbff1 JB |
72 | |
73 | /* This command takes exactly one argument. */ | |
74 | if (argc != 1) | |
75 | error (_("Usage: -info-gdb-mi-command MI_COMMAND_NAME")); | |
76 | cmd_name = argv[0]; | |
77 | ||
78 | /* Normally, the command name (aka the "operation" in the GDB/MI | |
79 | grammar), does not include the leading '-' (dash). But for | |
80 | the user's convenience, allow the user to specify the command | |
81 | name to be with or without that leading dash. */ | |
82 | if (cmd_name[0] == '-') | |
83 | cmd_name++; | |
84 | ||
85 | cmd = mi_lookup (cmd_name); | |
86 | ||
2e783024 | 87 | ui_out_emit_tuple tuple_emitter (uiout, "command"); |
112e8700 | 88 | uiout->field_string ("exists", cmd != NULL ? "true" : "false"); |
6b7cbff1 JB |
89 | } |
90 | ||
f3e0e960 | 91 | void |
9f33b8b7 | 92 | mi_cmd_info_os (const char *command, char **argv, int argc) |
f3e0e960 SS |
93 | { |
94 | switch (argc) | |
95 | { | |
96 | case 0: | |
fdf9e36f | 97 | info_osdata (NULL); |
f3e0e960 SS |
98 | break; |
99 | case 1: | |
fdf9e36f | 100 | info_osdata (argv[0]); |
f3e0e960 SS |
101 | break; |
102 | default: | |
103 | error (_("Usage: -info-os [INFOTYPE]")); | |
104 | break; | |
105 | } | |
106 | } |