qapi: Restrict 'query-kvm' command to machine code
[qemu.git] / monitor / qmp-cmds-control.c
1 /*
2 * QMP commands related to the monitor (common to sysemu and tools)
3 *
4 * Copyright (c) 2003-2004 Fabrice Bellard
5 *
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to deal
8 * in the Software without restriction, including without limitation the rights
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 * copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
12 *
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
15 *
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22 * THE SOFTWARE.
23 */
24
25 #include "qemu/osdep.h"
26
27 #include "monitor-internal.h"
28 #include "qemu-version.h"
29 #include "qapi/error.h"
30 #include "qapi/qapi-commands-control.h"
31 #include "qapi/qapi-emit-events.h"
32 #include "qapi/qapi-introspect.h"
33
34 /*
35 * Accept QMP capabilities in @list for @mon.
36 * On success, set mon->qmp.capab[], and return true.
37 * On error, set @errp, and return false.
38 */
39 static bool qmp_caps_accept(MonitorQMP *mon, QMPCapabilityList *list,
40 Error **errp)
41 {
42 GString *unavailable = NULL;
43 bool capab[QMP_CAPABILITY__MAX];
44
45 memset(capab, 0, sizeof(capab));
46
47 for (; list; list = list->next) {
48 if (!mon->capab_offered[list->value]) {
49 if (!unavailable) {
50 unavailable = g_string_new(QMPCapability_str(list->value));
51 } else {
52 g_string_append_printf(unavailable, ", %s",
53 QMPCapability_str(list->value));
54 }
55 }
56 capab[list->value] = true;
57 }
58
59 if (unavailable) {
60 error_setg(errp, "Capability %s not available", unavailable->str);
61 g_string_free(unavailable, true);
62 return false;
63 }
64
65 memcpy(mon->capab, capab, sizeof(capab));
66 return true;
67 }
68
69 void qmp_qmp_capabilities(bool has_enable, QMPCapabilityList *enable,
70 Error **errp)
71 {
72 Monitor *cur_mon = monitor_cur();
73 MonitorQMP *mon;
74
75 assert(monitor_is_qmp(cur_mon));
76 mon = container_of(cur_mon, MonitorQMP, common);
77
78 if (mon->commands == &qmp_commands) {
79 error_set(errp, ERROR_CLASS_COMMAND_NOT_FOUND,
80 "Capabilities negotiation is already complete, command "
81 "ignored");
82 return;
83 }
84
85 if (!qmp_caps_accept(mon, enable, errp)) {
86 return;
87 }
88
89 mon->commands = &qmp_commands;
90 }
91
92 VersionInfo *qmp_query_version(Error **errp)
93 {
94 VersionInfo *info = g_new0(VersionInfo, 1);
95
96 info->qemu = g_new0(VersionTriple, 1);
97 info->qemu->major = QEMU_VERSION_MAJOR;
98 info->qemu->minor = QEMU_VERSION_MINOR;
99 info->qemu->micro = QEMU_VERSION_MICRO;
100 info->package = g_strdup(QEMU_PKGVERSION);
101
102 return info;
103 }
104
105 static void query_commands_cb(const QmpCommand *cmd, void *opaque)
106 {
107 CommandInfoList *info, **list = opaque;
108
109 if (!cmd->enabled) {
110 return;
111 }
112
113 info = g_malloc0(sizeof(*info));
114 info->value = g_malloc0(sizeof(*info->value));
115 info->value->name = g_strdup(cmd->name);
116 info->next = *list;
117 *list = info;
118 }
119
120 CommandInfoList *qmp_query_commands(Error **errp)
121 {
122 CommandInfoList *list = NULL;
123 Monitor *cur_mon = monitor_cur();
124 MonitorQMP *mon;
125
126 assert(monitor_is_qmp(cur_mon));
127 mon = container_of(cur_mon, MonitorQMP, common);
128
129 qmp_for_each_command(mon->commands, query_commands_cb, &list);
130
131 return list;
132 }
133
134 EventInfoList *qmp_query_events(Error **errp)
135 {
136 /*
137 * TODO This deprecated command is the only user of
138 * QAPIEvent_str() and QAPIEvent_lookup[]. When the command goes,
139 * they should go, too.
140 */
141 EventInfoList *info, *ev_list = NULL;
142 QAPIEvent e;
143
144 for (e = 0 ; e < QAPI_EVENT__MAX ; e++) {
145 const char *event_name = QAPIEvent_str(e);
146 assert(event_name != NULL);
147 info = g_malloc0(sizeof(*info));
148 info->value = g_malloc0(sizeof(*info->value));
149 info->value->name = g_strdup(event_name);
150
151 info->next = ev_list;
152 ev_list = info;
153 }
154
155 return ev_list;
156 }
157
158 /*
159 * Minor hack: generated marshalling suppressed for this command
160 * ('gen': false in the schema) so we can parse the JSON string
161 * directly into QObject instead of first parsing it with
162 * visit_type_SchemaInfoList() into a SchemaInfoList, then marshal it
163 * to QObject with generated output marshallers, every time. Instead,
164 * we do it in test-qobject-input-visitor.c, just to make sure
165 * qapi-gen.py's output actually conforms to the schema.
166 */
167 void qmp_query_qmp_schema(QDict *qdict, QObject **ret_data,
168 Error **errp)
169 {
170 *ret_data = qobject_from_qlit(&qmp_schema_qlit);
171 }