Commit | Line | Data |
---|---|---|
f3e0e960 | 1 | /* MI Command Set - information commands. |
618f726f | 2 | Copyright (C) 2011-2016 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 | |
28 | mi_cmd_info_ada_exceptions (char *command, char **argv, int argc) | |
29 | { | |
30 | struct ui_out *uiout = current_uiout; | |
31 | struct gdbarch *gdbarch = get_current_arch (); | |
32 | char *regexp; | |
33 | struct cleanup *old_chain; | |
34 | VEC(ada_exc_info) *exceptions; | |
35 | int ix; | |
36 | struct ada_exc_info *info; | |
37 | ||
38 | switch (argc) | |
39 | { | |
40 | case 0: | |
41 | regexp = NULL; | |
42 | break; | |
43 | case 1: | |
44 | regexp = argv[0]; | |
45 | break; | |
46 | default: | |
47 | error (_("Usage: -info-ada-exceptions [REGEXP]")); | |
48 | break; | |
49 | } | |
50 | ||
51 | exceptions = ada_exceptions_list (regexp); | |
52 | old_chain = make_cleanup (VEC_cleanup (ada_exc_info), &exceptions); | |
53 | ||
54 | make_cleanup_ui_out_table_begin_end | |
55 | (uiout, 2, VEC_length (ada_exc_info, exceptions), "ada-exceptions"); | |
56 | ui_out_table_header (uiout, 1, ui_left, "name", "Name"); | |
57 | ui_out_table_header (uiout, 1, ui_left, "address", "Address"); | |
58 | ui_out_table_body (uiout); | |
59 | ||
60 | for (ix = 0; VEC_iterate(ada_exc_info, exceptions, ix, info); ix++) | |
61 | { | |
62 | struct cleanup *sub_chain; | |
63 | ||
64 | sub_chain = make_cleanup_ui_out_tuple_begin_end (uiout, NULL); | |
65 | ui_out_field_string (uiout, "name", info->name); | |
66 | ui_out_field_core_addr (uiout, "address", gdbarch, info->addr); | |
67 | ||
68 | do_cleanups (sub_chain); | |
69 | } | |
70 | ||
71 | do_cleanups (old_chain); | |
72 | } | |
f3e0e960 | 73 | |
6b7cbff1 JB |
74 | /* Implement the "-info-gdb-mi-command" GDB/MI command. */ |
75 | ||
76 | void | |
77 | mi_cmd_info_gdb_mi_command (char *command, char **argv, int argc) | |
78 | { | |
79 | const char *cmd_name; | |
80 | struct mi_cmd *cmd; | |
81 | struct ui_out *uiout = current_uiout; | |
82 | struct cleanup *old_chain; | |
83 | ||
84 | /* This command takes exactly one argument. */ | |
85 | if (argc != 1) | |
86 | error (_("Usage: -info-gdb-mi-command MI_COMMAND_NAME")); | |
87 | cmd_name = argv[0]; | |
88 | ||
89 | /* Normally, the command name (aka the "operation" in the GDB/MI | |
90 | grammar), does not include the leading '-' (dash). But for | |
91 | the user's convenience, allow the user to specify the command | |
92 | name to be with or without that leading dash. */ | |
93 | if (cmd_name[0] == '-') | |
94 | cmd_name++; | |
95 | ||
96 | cmd = mi_lookup (cmd_name); | |
97 | ||
98 | old_chain = make_cleanup_ui_out_tuple_begin_end (uiout, "command"); | |
99 | ui_out_field_string (uiout, "exists", cmd != NULL ? "true" : "false"); | |
100 | do_cleanups (old_chain); | |
101 | } | |
102 | ||
f3e0e960 SS |
103 | void |
104 | mi_cmd_info_os (char *command, char **argv, int argc) | |
105 | { | |
106 | switch (argc) | |
107 | { | |
108 | case 0: | |
109 | info_osdata_command ("", 0); | |
110 | break; | |
111 | case 1: | |
112 | info_osdata_command (argv[0], 0); | |
113 | break; | |
114 | default: | |
115 | error (_("Usage: -info-os [INFOTYPE]")); | |
116 | break; | |
117 | } | |
118 | } |