blob: ff54e5a765dd0d00aacad8e9b30571b631fdee5f [file] [log] [blame]
Anthony Liguori48a32be2011-09-02 12:34:48 -05001/*
2 * QEMU Management Protocol
3 *
4 * Copyright IBM, Corp. 2011
5 *
6 * Authors:
7 * Anthony Liguori <aliguori@us.ibm.com>
8 *
9 * This work is licensed under the terms of the GNU GPL, version 2. See
10 * the COPYING file in the top-level directory.
11 *
Paolo Bonzini6b620ca2012-01-13 17:44:23 +010012 * Contributions after 2012-01-13 are licensed under the terms of the
13 * GNU GPL, version 2 or (at your option) any later version.
Anthony Liguori48a32be2011-09-02 12:34:48 -050014 */
15
16#include "qemu-common.h"
Markus Armbrustera0b1a662015-03-17 18:16:21 +010017#include "monitor/monitor.h"
Paolo Bonzini9c17d612012-12-17 18:20:04 +010018#include "sysemu/sysemu.h"
Anthony Liguori48a32be2011-09-02 12:34:48 -050019#include "qmp-commands.h"
Paolo Bonzinidccfcd02013-04-08 16:55:25 +020020#include "sysemu/char.h"
Luiz Capitulinofbf796f2011-12-07 11:17:51 -020021#include "ui/qemu-spice.h"
22#include "ui/vnc.h"
Paolo Bonzini9c17d612012-12-17 18:20:04 +010023#include "sysemu/kvm.h"
24#include "sysemu/arch_init.h"
Anthony Liguorib4b12c62011-12-12 14:29:34 -060025#include "hw/qdev.h"
Paolo Bonzini9c17d612012-12-17 18:20:04 +010026#include "sysemu/blockdev.h"
Max Reitz373340b2015-10-19 17:53:22 +020027#include "sysemu/block-backend.h"
Paolo Bonzini14cccb62012-12-17 18:19:50 +010028#include "qom/qom-qobject.h"
Markus Armbrustercc7a8ea2015-03-17 17:22:46 +010029#include "qapi/qmp/qerror.h"
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +010030#include "qapi/qmp/qobject.h"
31#include "qapi/qmp-input-visitor.h"
Igor Mammedov69ca3ea2013-04-30 15:41:25 +020032#include "hw/boards.h"
Igor Mammedov269e09f2014-01-16 17:34:38 +010033#include "qom/object_interfaces.h"
Igor Mammedov6f2e2732014-06-16 19:12:25 +020034#include "hw/mem/pc-dimm.h"
Igor Mammedov02419bc2014-06-16 19:12:28 +020035#include "hw/acpi/acpi_dev_interface.h"
Anthony Liguori48a32be2011-09-02 12:34:48 -050036
37NameInfo *qmp_query_name(Error **errp)
38{
39 NameInfo *info = g_malloc0(sizeof(*info));
40
41 if (qemu_name) {
42 info->has_name = true;
43 info->name = g_strdup(qemu_name);
44 }
45
46 return info;
47}
Luiz Capitulinob9c15f12011-08-26 17:38:13 -030048
Markus Armbruster7daecb32014-05-02 13:26:31 +020049VersionInfo *qmp_query_version(Error **errp)
Luiz Capitulinob9c15f12011-08-26 17:38:13 -030050{
Eric Blake4752cdb2015-05-04 09:05:31 -060051 VersionInfo *info = g_new0(VersionInfo, 1);
Luiz Capitulinob9c15f12011-08-26 17:38:13 -030052 const char *version = QEMU_VERSION;
Carlos L. Torresd4ba8cb2015-07-19 18:02:21 -050053 const char *tmp;
54 int err;
Luiz Capitulinob9c15f12011-08-26 17:38:13 -030055
Eric Blake4752cdb2015-05-04 09:05:31 -060056 info->qemu = g_new0(VersionTriple, 1);
Carlos L. Torresd4ba8cb2015-07-19 18:02:21 -050057 err = qemu_strtoll(version, &tmp, 10, &info->qemu->major);
58 assert(err == 0);
Luiz Capitulinob9c15f12011-08-26 17:38:13 -030059 tmp++;
Carlos L. Torresd4ba8cb2015-07-19 18:02:21 -050060
61 err = qemu_strtoll(tmp, &tmp, 10, &info->qemu->minor);
62 assert(err == 0);
Luiz Capitulinob9c15f12011-08-26 17:38:13 -030063 tmp++;
Carlos L. Torresd4ba8cb2015-07-19 18:02:21 -050064
65 err = qemu_strtoll(tmp, &tmp, 10, &info->qemu->micro);
66 assert(err == 0);
Luiz Capitulinob9c15f12011-08-26 17:38:13 -030067 info->package = g_strdup(QEMU_PKGVERSION);
68
69 return info;
70}
Luiz Capitulino292a2602011-09-12 15:10:53 -030071
72KvmInfo *qmp_query_kvm(Error **errp)
73{
74 KvmInfo *info = g_malloc0(sizeof(*info));
75
76 info->enabled = kvm_enabled();
77 info->present = kvm_available();
78
79 return info;
80}
81
Luiz Capitulinoefab7672011-09-13 17:16:25 -030082UuidInfo *qmp_query_uuid(Error **errp)
83{
84 UuidInfo *info = g_malloc0(sizeof(*info));
85 char uuid[64];
86
87 snprintf(uuid, sizeof(uuid), UUID_FMT, qemu_uuid[0], qemu_uuid[1],
88 qemu_uuid[2], qemu_uuid[3], qemu_uuid[4], qemu_uuid[5],
89 qemu_uuid[6], qemu_uuid[7], qemu_uuid[8], qemu_uuid[9],
90 qemu_uuid[10], qemu_uuid[11], qemu_uuid[12], qemu_uuid[13],
91 qemu_uuid[14], qemu_uuid[15]);
92
93 info->UUID = g_strdup(uuid);
94 return info;
95}
96
Markus Armbruster7daecb32014-05-02 13:26:31 +020097void qmp_quit(Error **errp)
Luiz Capitulino7a7f3252011-09-15 14:20:28 -030098{
99 no_shutdown = 0;
100 qemu_system_shutdown_request();
101}
102
Luiz Capitulino5f158f22011-09-15 14:34:39 -0300103void qmp_stop(Error **errp)
104{
Paolo Bonzini1e998142012-10-23 14:54:21 +0200105 if (runstate_check(RUN_STATE_INMIGRATE)) {
106 autostart = 0;
107 } else {
108 vm_stop(RUN_STATE_PAUSED);
109 }
Luiz Capitulino5f158f22011-09-15 14:34:39 -0300110}
111
Luiz Capitulino38d22652011-09-15 14:41:46 -0300112void qmp_system_reset(Error **errp)
113{
114 qemu_system_reset_request();
115}
Luiz Capitulino5bc465e2011-09-28 11:06:15 -0300116
117void qmp_system_powerdown(Error **erp)
118{
119 qemu_system_powerdown_request();
120}
Luiz Capitulino755f1962011-10-06 14:31:39 -0300121
122void qmp_cpu(int64_t index, Error **errp)
123{
124 /* Just do nothing */
125}
Luiz Capitulino2b54aa82011-10-17 16:41:22 -0200126
Igor Mammedov69ca3ea2013-04-30 15:41:25 +0200127void qmp_cpu_add(int64_t id, Error **errp)
128{
Marcel Apfelbaum0056ae22014-03-05 19:30:47 +0200129 MachineClass *mc;
130
131 mc = MACHINE_GET_CLASS(current_machine);
Marcel Apfelbaum958db902014-04-09 20:34:53 +0300132 if (mc->hot_add_cpu) {
133 mc->hot_add_cpu(id, errp);
Igor Mammedov69ca3ea2013-04-30 15:41:25 +0200134 } else {
135 error_setg(errp, "Not supported");
136 }
137}
138
Luiz Capitulino2b54aa82011-10-17 16:41:22 -0200139#ifndef CONFIG_VNC
140/* If VNC support is enabled, the "true" query-vnc command is
141 defined in the VNC subsystem */
142VncInfo *qmp_query_vnc(Error **errp)
143{
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100144 error_setg(errp, QERR_FEATURE_DISABLED, "vnc");
Luiz Capitulino2b54aa82011-10-17 16:41:22 -0200145 return NULL;
146};
Leon Yu89db21772015-02-02 05:08:51 +0000147
148VncInfo2List *qmp_query_vnc_servers(Error **errp)
149{
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100150 error_setg(errp, QERR_FEATURE_DISABLED, "vnc");
Leon Yu89db21772015-02-02 05:08:51 +0000151 return NULL;
152};
Luiz Capitulino2b54aa82011-10-17 16:41:22 -0200153#endif
Luiz Capitulinod1f29642011-10-20 17:01:33 -0200154
155#ifndef CONFIG_SPICE
Markus Armbrusterad0ec142015-01-13 15:56:11 +0100156/*
157 * qmp-commands.hx ensures that QMP command query-spice exists only
158 * #ifdef CONFIG_SPICE. Necessary for an accurate query-commands
159 * result. However, the QAPI schema is blissfully unaware of that,
160 * and the QAPI code generator happily generates a dead
Markus Armbruster7fad30f2015-09-16 13:06:19 +0200161 * qmp_marshal_query_spice() that calls qmp_query_spice(). Provide it
162 * one, or else linking fails. FIXME Educate the QAPI schema on
163 * CONFIG_SPICE.
Markus Armbrusterad0ec142015-01-13 15:56:11 +0100164 */
Luiz Capitulinod1f29642011-10-20 17:01:33 -0200165SpiceInfo *qmp_query_spice(Error **errp)
166{
Markus Armbrusterad0ec142015-01-13 15:56:11 +0100167 abort();
Luiz Capitulinod1f29642011-10-20 17:01:33 -0200168};
169#endif
Luiz Capitulinoe42e8182011-11-22 17:58:31 -0200170
Luiz Capitulinoe42e8182011-11-22 17:58:31 -0200171void qmp_cont(Error **errp)
172{
Markus Armbruster4d2855a2015-01-29 10:37:00 +0100173 Error *local_err = NULL;
Max Reitz373340b2015-10-19 17:53:22 +0200174 BlockBackend *blk;
Markus Armbrusterab319792014-05-02 13:26:42 +0200175 BlockDriverState *bs;
Luiz Capitulinoe42e8182011-11-22 17:58:31 -0200176
Hu Taoede085b2013-04-26 11:24:40 +0800177 if (runstate_needs_reset()) {
Cole Robinsonf231b882014-03-21 19:42:26 -0400178 error_setg(errp, "Resetting the Virtual Machine is required");
Luiz Capitulinoe42e8182011-11-22 17:58:31 -0200179 return;
Luiz Capitulinoad02b962012-04-27 13:33:36 -0300180 } else if (runstate_check(RUN_STATE_SUSPENDED)) {
181 return;
Luiz Capitulinoe42e8182011-11-22 17:58:31 -0200182 }
183
Max Reitz373340b2015-10-19 17:53:22 +0200184 for (blk = blk_next(NULL); blk; blk = blk_next(blk)) {
185 blk_iostatus_reset(blk);
Markus Armbrusterab319792014-05-02 13:26:42 +0200186 }
187 for (bs = bdrv_next(NULL); bs; bs = bdrv_next(bs)) {
Markus Armbruster4d2855a2015-01-29 10:37:00 +0100188 bdrv_add_key(bs, NULL, &local_err);
189 if (local_err) {
190 error_propagate(errp, local_err);
Markus Armbrusterab319792014-05-02 13:26:42 +0200191 return;
192 }
Luiz Capitulinoe42e8182011-11-22 17:58:31 -0200193 }
194
Paolo Bonzini1e998142012-10-23 14:54:21 +0200195 if (runstate_check(RUN_STATE_INMIGRATE)) {
196 autostart = 1;
197 } else {
198 vm_start();
199 }
Luiz Capitulinoe42e8182011-11-22 17:58:31 -0200200}
Anthony Liguorib4b12c62011-12-12 14:29:34 -0600201
Gerd Hoffmann9b9df252012-02-23 13:45:21 +0100202void qmp_system_wakeup(Error **errp)
203{
204 qemu_system_wakeup_request(QEMU_WAKEUP_REASON_OTHER);
205}
206
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600207ObjectPropertyInfoList *qmp_qom_list(const char *path, Error **errp)
Anthony Liguorib4b12c62011-12-12 14:29:34 -0600208{
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600209 Object *obj;
Anthony Liguorib4b12c62011-12-12 14:29:34 -0600210 bool ambiguous = false;
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600211 ObjectPropertyInfoList *props = NULL;
212 ObjectProperty *prop;
Anthony Liguorib4b12c62011-12-12 14:29:34 -0600213
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600214 obj = object_resolve_path(path, &ambiguous);
215 if (obj == NULL) {
Michael Tokarev79772082014-05-04 12:23:59 +0400216 if (ambiguous) {
217 error_setg(errp, "Path '%s' is ambiguous", path);
218 } else {
Markus Armbruster75158eb2015-03-16 08:57:47 +0100219 error_set(errp, ERROR_CLASS_DEVICE_NOT_FOUND,
220 "Device '%s' not found", path);
Michael Tokarev79772082014-05-04 12:23:59 +0400221 }
Anthony Liguorib4b12c62011-12-12 14:29:34 -0600222 return NULL;
223 }
224
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600225 QTAILQ_FOREACH(prop, &obj->properties, node) {
226 ObjectPropertyInfoList *entry = g_malloc0(sizeof(*entry));
Anthony Liguorib4b12c62011-12-12 14:29:34 -0600227
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600228 entry->value = g_malloc0(sizeof(ObjectPropertyInfo));
Anthony Liguorib4b12c62011-12-12 14:29:34 -0600229 entry->next = props;
230 props = entry;
231
232 entry->value->name = g_strdup(prop->name);
233 entry->value->type = g_strdup(prop->type);
234 }
235
236 return props;
237}
Anthony Liguorieb6e8ea2011-12-12 14:29:35 -0600238
Markus Armbruster6eb39372015-09-16 13:06:25 +0200239void qmp_qom_set(const char *path, const char *property, QObject *value,
240 Error **errp)
Anthony Liguorieb6e8ea2011-12-12 14:29:35 -0600241{
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600242 Object *obj;
Anthony Liguorieb6e8ea2011-12-12 14:29:35 -0600243
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600244 obj = object_resolve_path(path, NULL);
245 if (!obj) {
Markus Armbruster485febc2015-03-13 17:25:50 +0100246 error_set(errp, ERROR_CLASS_DEVICE_NOT_FOUND,
Markus Armbruster75158eb2015-03-16 08:57:47 +0100247 "Device '%s' not found", path);
Markus Armbruster485febc2015-03-13 17:25:50 +0100248 return;
Anthony Liguorieb6e8ea2011-12-12 14:29:35 -0600249 }
250
Markus Armbruster485febc2015-03-13 17:25:50 +0100251 object_property_set_qobject(obj, value, property, errp);
Anthony Liguorieb6e8ea2011-12-12 14:29:35 -0600252}
253
Markus Armbruster6eb39372015-09-16 13:06:25 +0200254QObject *qmp_qom_get(const char *path, const char *property, Error **errp)
Anthony Liguorieb6e8ea2011-12-12 14:29:35 -0600255{
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600256 Object *obj;
Anthony Liguorieb6e8ea2011-12-12 14:29:35 -0600257
Anthony Liguori57c9faf2012-01-30 08:55:55 -0600258 obj = object_resolve_path(path, NULL);
259 if (!obj) {
Markus Armbruster485febc2015-03-13 17:25:50 +0100260 error_set(errp, ERROR_CLASS_DEVICE_NOT_FOUND,
Markus Armbruster75158eb2015-03-16 08:57:47 +0100261 "Device '%s' not found", path);
Markus Armbruster6eb39372015-09-16 13:06:25 +0200262 return NULL;
Anthony Liguorieb6e8ea2011-12-12 14:29:35 -0600263 }
264
Markus Armbruster6eb39372015-09-16 13:06:25 +0200265 return object_property_get_qobject(obj, property, errp);
Anthony Liguorieb6e8ea2011-12-12 14:29:35 -0600266}
Luiz Capitulinofbf796f2011-12-07 11:17:51 -0200267
268void qmp_set_password(const char *protocol, const char *password,
269 bool has_connected, const char *connected, Error **errp)
270{
271 int disconnect_if_connected = 0;
272 int fail_if_connected = 0;
273 int rc;
274
275 if (has_connected) {
276 if (strcmp(connected, "fail") == 0) {
277 fail_if_connected = 1;
278 } else if (strcmp(connected, "disconnect") == 0) {
279 disconnect_if_connected = 1;
280 } else if (strcmp(connected, "keep") == 0) {
281 /* nothing */
282 } else {
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100283 error_setg(errp, QERR_INVALID_PARAMETER, "connected");
Luiz Capitulinofbf796f2011-12-07 11:17:51 -0200284 return;
285 }
286 }
287
288 if (strcmp(protocol, "spice") == 0) {
Markus Armbrusterb25d81b2015-01-13 17:07:15 +0100289 if (!qemu_using_spice(errp)) {
Luiz Capitulinofbf796f2011-12-07 11:17:51 -0200290 return;
291 }
292 rc = qemu_spice_set_passwd(password, fail_if_connected,
293 disconnect_if_connected);
294 if (rc != 0) {
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100295 error_setg(errp, QERR_SET_PASSWD_FAILED);
Luiz Capitulinofbf796f2011-12-07 11:17:51 -0200296 }
297 return;
298 }
299
300 if (strcmp(protocol, "vnc") == 0) {
301 if (fail_if_connected || disconnect_if_connected) {
302 /* vnc supports "connected=keep" only */
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100303 error_setg(errp, QERR_INVALID_PARAMETER, "connected");
Luiz Capitulinofbf796f2011-12-07 11:17:51 -0200304 return;
305 }
306 /* Note that setting an empty password will not disable login through
307 * this interface. */
308 rc = vnc_display_password(NULL, password);
309 if (rc < 0) {
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100310 error_setg(errp, QERR_SET_PASSWD_FAILED);
Luiz Capitulinofbf796f2011-12-07 11:17:51 -0200311 }
312 return;
313 }
314
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100315 error_setg(errp, QERR_INVALID_PARAMETER, "protocol");
Luiz Capitulinofbf796f2011-12-07 11:17:51 -0200316}
Luiz Capitulino9ad53722011-12-07 11:47:57 -0200317
318void qmp_expire_password(const char *protocol, const char *whenstr,
319 Error **errp)
320{
321 time_t when;
322 int rc;
323
324 if (strcmp(whenstr, "now") == 0) {
325 when = 0;
326 } else if (strcmp(whenstr, "never") == 0) {
327 when = TIME_MAX;
328 } else if (whenstr[0] == '+') {
329 when = time(NULL) + strtoull(whenstr+1, NULL, 10);
330 } else {
331 when = strtoull(whenstr, NULL, 10);
332 }
333
334 if (strcmp(protocol, "spice") == 0) {
Markus Armbrusterb25d81b2015-01-13 17:07:15 +0100335 if (!qemu_using_spice(errp)) {
Luiz Capitulino9ad53722011-12-07 11:47:57 -0200336 return;
337 }
338 rc = qemu_spice_set_pw_expire(when);
339 if (rc != 0) {
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100340 error_setg(errp, QERR_SET_PASSWD_FAILED);
Luiz Capitulino9ad53722011-12-07 11:47:57 -0200341 }
342 return;
343 }
344
345 if (strcmp(protocol, "vnc") == 0) {
346 rc = vnc_display_pw_expire(NULL, when);
347 if (rc != 0) {
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100348 error_setg(errp, QERR_SET_PASSWD_FAILED);
Luiz Capitulino9ad53722011-12-07 11:47:57 -0200349 }
350 return;
351 }
352
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100353 error_setg(errp, QERR_INVALID_PARAMETER, "protocol");
Luiz Capitulino9ad53722011-12-07 11:47:57 -0200354}
Luiz Capitulino270b2432011-12-08 11:45:55 -0200355
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200356#ifdef CONFIG_VNC
Luiz Capitulino270b2432011-12-08 11:45:55 -0200357void qmp_change_vnc_password(const char *password, Error **errp)
358{
359 if (vnc_display_password(NULL, password) < 0) {
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100360 error_setg(errp, QERR_SET_PASSWD_FAILED);
Luiz Capitulino270b2432011-12-08 11:45:55 -0200361 }
362}
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200363
Paolo Bonzini007fcd3e2012-10-18 09:01:01 +0200364static void qmp_change_vnc_listen(const char *target, Error **errp)
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200365{
Gerd Hoffmann4db14622014-09-16 12:33:03 +0200366 QemuOptsList *olist = qemu_find_opts("vnc");
367 QemuOpts *opts;
368
369 if (strstr(target, "id=")) {
370 error_setg(errp, "id not supported");
371 return;
372 }
373
374 opts = qemu_opts_find(olist, "default");
375 if (opts) {
376 qemu_opts_del(opts);
377 }
Markus Armbruster70b94332015-02-13 12:50:26 +0100378 opts = vnc_parse(target, errp);
Gongleif7801c52015-02-05 17:43:35 +0800379 if (!opts) {
380 return;
381 }
382
Gerd Hoffmann4db14622014-09-16 12:33:03 +0200383 vnc_display_open("default", errp);
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200384}
385
386static void qmp_change_vnc(const char *target, bool has_arg, const char *arg,
387 Error **errp)
388{
389 if (strcmp(target, "passwd") == 0 || strcmp(target, "password") == 0) {
390 if (!has_arg) {
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100391 error_setg(errp, QERR_MISSING_PARAMETER, "password");
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200392 } else {
393 qmp_change_vnc_password(arg, errp);
394 }
395 } else {
396 qmp_change_vnc_listen(target, errp);
397 }
398}
399#else
400void qmp_change_vnc_password(const char *password, Error **errp)
401{
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100402 error_setg(errp, QERR_FEATURE_DISABLED, "vnc");
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200403}
404static void qmp_change_vnc(const char *target, bool has_arg, const char *arg,
405 Error **errp)
406{
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100407 error_setg(errp, QERR_FEATURE_DISABLED, "vnc");
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200408}
409#endif /* !CONFIG_VNC */
410
411void qmp_change(const char *device, const char *target,
Markus Armbruster7daecb32014-05-02 13:26:31 +0200412 bool has_arg, const char *arg, Error **errp)
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200413{
414 if (strcmp(device, "vnc") == 0) {
Markus Armbruster7daecb32014-05-02 13:26:31 +0200415 qmp_change_vnc(target, has_arg, arg, errp);
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200416 } else {
Markus Armbruster7daecb32014-05-02 13:26:31 +0200417 qmp_change_blockdev(device, target, arg, errp);
Luiz Capitulino333a96e2011-12-08 11:13:50 -0200418 }
419}
Anthony Liguori5eeee3f2011-12-22 14:40:54 -0600420
421static void qom_list_types_tramp(ObjectClass *klass, void *data)
422{
423 ObjectTypeInfoList *e, **pret = data;
424 ObjectTypeInfo *info;
425
426 info = g_malloc0(sizeof(*info));
427 info->name = g_strdup(object_class_get_name(klass));
428
429 e = g_malloc0(sizeof(*e));
430 e->value = info;
431 e->next = *pret;
432 *pret = e;
433}
434
435ObjectTypeInfoList *qmp_qom_list_types(bool has_implements,
436 const char *implements,
437 bool has_abstract,
438 bool abstract,
439 Error **errp)
440{
441 ObjectTypeInfoList *ret = NULL;
442
443 object_class_foreach(qom_list_types_tramp, implements, abstract, &ret);
444
445 return ret;
446}
Anthony Liguori1daa31b2012-08-10 11:04:09 -0500447
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200448/* Return a DevicePropertyInfo for a qdev property.
449 *
450 * If a qdev property with the given name does not exist, use the given default
451 * type. If the qdev property info should not be shown, return NULL.
452 *
453 * The caller must free the return value.
454 */
455static DevicePropertyInfo *make_device_property_info(ObjectClass *klass,
456 const char *name,
Gonglei07d09c52014-10-07 14:33:23 +0800457 const char *default_type,
458 const char *description)
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200459{
460 DevicePropertyInfo *info;
461 Property *prop;
462
463 do {
464 for (prop = DEVICE_CLASS(klass)->props; prop && prop->name; prop++) {
465 if (strcmp(name, prop->name) != 0) {
466 continue;
467 }
468
469 /*
470 * TODO Properties without a parser are just for dirty hacks.
471 * qdev_prop_ptr is the only such PropertyInfo. It's marked
472 * for removal. This conditional should be removed along with
473 * it.
474 */
475 if (!prop->info->set) {
476 return NULL; /* no way to set it, don't show */
477 }
478
479 info = g_malloc0(sizeof(*info));
480 info->name = g_strdup(prop->name);
Gonglei07d09c52014-10-07 14:33:23 +0800481 info->type = g_strdup(prop->info->name);
482 info->has_description = !!prop->info->description;
483 info->description = g_strdup(prop->info->description);
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200484 return info;
485 }
486 klass = object_class_get_parent(klass);
487 } while (klass != object_class_by_name(TYPE_DEVICE));
488
489 /* Not a qdev property, use the default type */
490 info = g_malloc0(sizeof(*info));
491 info->name = g_strdup(name);
492 info->type = g_strdup(default_type);
Gonglei07d09c52014-10-07 14:33:23 +0800493 info->has_description = !!description;
494 info->description = g_strdup(description);
495
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200496 return info;
497}
498
Anthony Liguori1daa31b2012-08-10 11:04:09 -0500499DevicePropertyInfoList *qmp_device_list_properties(const char *typename,
500 Error **errp)
501{
502 ObjectClass *klass;
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200503 Object *obj;
504 ObjectProperty *prop;
Anthony Liguori1daa31b2012-08-10 11:04:09 -0500505 DevicePropertyInfoList *prop_list = NULL;
506
507 klass = object_class_by_name(typename);
508 if (klass == NULL) {
Markus Armbruster75158eb2015-03-16 08:57:47 +0100509 error_set(errp, ERROR_CLASS_DEVICE_NOT_FOUND,
510 "Device '%s' not found", typename);
Anthony Liguori1daa31b2012-08-10 11:04:09 -0500511 return NULL;
512 }
513
514 klass = object_class_dynamic_cast(klass, TYPE_DEVICE);
515 if (klass == NULL) {
Markus Armbrusterc6bd8c72015-03-17 11:54:50 +0100516 error_setg(errp, QERR_INVALID_PARAMETER_VALUE, "name", TYPE_DEVICE);
Anthony Liguori1daa31b2012-08-10 11:04:09 -0500517 return NULL;
518 }
519
Markus Armbrusteredb15232015-10-01 10:59:57 +0200520 if (object_class_is_abstract(klass)) {
521 error_setg(errp, QERR_INVALID_PARAMETER_VALUE, "name",
522 "non-abstract device type");
523 return NULL;
524 }
525
Markus Armbruster4c315c22015-10-01 10:59:58 +0200526 if (DEVICE_CLASS(klass)->cannot_destroy_with_object_finalize_yet) {
527 error_setg(errp, "Can't list properties of device '%s'", typename);
528 return NULL;
529 }
530
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200531 obj = object_new(typename);
Anthony Liguori1daa31b2012-08-10 11:04:09 -0500532
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200533 QTAILQ_FOREACH(prop, &obj->properties, node) {
534 DevicePropertyInfo *info;
535 DevicePropertyInfoList *entry;
Anthony Liguori1daa31b2012-08-10 11:04:09 -0500536
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200537 /* Skip Object and DeviceState properties */
538 if (strcmp(prop->name, "type") == 0 ||
539 strcmp(prop->name, "realized") == 0 ||
540 strcmp(prop->name, "hotpluggable") == 0 ||
Stefan Hajnoczi4115dd62014-07-09 14:01:31 +0200541 strcmp(prop->name, "hotplugged") == 0 ||
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200542 strcmp(prop->name, "parent_bus") == 0) {
543 continue;
Anthony Liguori1daa31b2012-08-10 11:04:09 -0500544 }
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200545
546 /* Skip legacy properties since they are just string versions of
547 * properties that we already list.
548 */
549 if (strstart(prop->name, "legacy-", NULL)) {
550 continue;
551 }
552
Gonglei07d09c52014-10-07 14:33:23 +0800553 info = make_device_property_info(klass, prop->name, prop->type,
554 prop->description);
Stefan Hajnoczif4eb32b2014-05-20 14:29:01 +0200555 if (!info) {
556 continue;
557 }
558
559 entry = g_malloc0(sizeof(*entry));
560 entry->value = info;
561 entry->next = prop_list;
562 prop_list = entry;
563 }
564
565 object_unref(obj);
Anthony Liguori1daa31b2012-08-10 11:04:09 -0500566
567 return prop_list;
568}
Anthony Liguorie4e31c62012-08-10 11:04:13 -0500569
Anthony Liguori76b64a72012-08-14 22:17:36 -0500570CpuDefinitionInfoList *qmp_query_cpu_definitions(Error **errp)
571{
572 return arch_query_cpu_definitions(errp);
573}
574
Luiz Capitulinob224e5e2012-09-13 16:52:20 -0300575void qmp_add_client(const char *protocol, const char *fdname,
576 bool has_skipauth, bool skipauth, bool has_tls, bool tls,
577 Error **errp)
578{
579 CharDriverState *s;
580 int fd;
581
582 fd = monitor_get_fd(cur_mon, fdname, errp);
583 if (fd < 0) {
584 return;
585 }
586
587 if (strcmp(protocol, "spice") == 0) {
Markus Armbrusterb25d81b2015-01-13 17:07:15 +0100588 if (!qemu_using_spice(errp)) {
Luiz Capitulinob224e5e2012-09-13 16:52:20 -0300589 close(fd);
590 return;
591 }
592 skipauth = has_skipauth ? skipauth : false;
593 tls = has_tls ? tls : false;
594 if (qemu_spice_display_add_client(fd, skipauth, tls) < 0) {
595 error_setg(errp, "spice failed to add client");
596 close(fd);
597 }
598 return;
599#ifdef CONFIG_VNC
600 } else if (strcmp(protocol, "vnc") == 0) {
601 skipauth = has_skipauth ? skipauth : false;
602 vnc_display_add_client(NULL, fd, skipauth);
603 return;
604#endif
605 } else if ((s = qemu_chr_find(protocol)) != NULL) {
606 if (qemu_chr_add_client(s, fd) < 0) {
607 error_setg(errp, "failed to add client");
608 close(fd);
609 return;
610 }
611 return;
612 }
613
614 error_setg(errp, "protocol '%s' is invalid", protocol);
615 close(fd);
616}
Paolo Bonziniab2d0532013-12-20 23:21:09 +0100617
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100618void object_add(const char *type, const char *id, const QDict *qdict,
619 Visitor *v, Error **errp)
620{
621 Object *obj;
Eduardo Habkostc3481242014-04-16 14:39:38 -0300622 ObjectClass *klass;
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100623 const QDictEntry *e;
624 Error *local_err = NULL;
625
Eduardo Habkostc3481242014-04-16 14:39:38 -0300626 klass = object_class_by_name(type);
627 if (!klass) {
Paolo Bonzinid1169462014-05-14 17:43:13 +0800628 error_setg(errp, "invalid object type: %s", type);
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100629 return;
630 }
631
Eduardo Habkostc3481242014-04-16 14:39:38 -0300632 if (!object_class_dynamic_cast(klass, TYPE_USER_CREATABLE)) {
633 error_setg(errp, "object type '%s' isn't supported by object-add",
634 type);
635 return;
636 }
637
638 if (object_class_is_abstract(klass)) {
639 error_setg(errp, "object type '%s' is abstract", type);
640 return;
641 }
642
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100643 obj = object_new(type);
644 if (qdict) {
645 for (e = qdict_first(qdict); e; e = qdict_next(qdict, e)) {
646 object_property_set(obj, v, e->key, &local_err);
647 if (local_err) {
Igor Mammedov69252c02014-01-16 17:34:36 +0100648 goto out;
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100649 }
650 }
651 }
652
Daniel P. Berrangebc2256c2015-05-13 17:14:05 +0100653 object_property_add_child(object_get_objects_root(),
Igor Mammedova790f4e2014-06-02 15:24:59 +0200654 id, obj, &local_err);
Igor Mammedov269e09f2014-01-16 17:34:38 +0100655 if (local_err) {
656 goto out;
657 }
658
Igor Mammedova790f4e2014-06-02 15:24:59 +0200659 user_creatable_complete(obj, &local_err);
660 if (local_err) {
Daniel P. Berrangebc2256c2015-05-13 17:14:05 +0100661 object_property_del(object_get_objects_root(),
Igor Mammedova790f4e2014-06-02 15:24:59 +0200662 id, &error_abort);
663 goto out;
664 }
Igor Mammedov69252c02014-01-16 17:34:36 +0100665out:
666 if (local_err) {
667 error_propagate(errp, local_err);
668 }
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100669 object_unref(obj);
670}
671
Markus Armbruster6eb39372015-09-16 13:06:25 +0200672void qmp_object_add(const char *type, const char *id,
673 bool has_props, QObject *props, Error **errp)
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100674{
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100675 const QDict *pdict = NULL;
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100676 QmpInputVisitor *qiv;
677
678 if (props) {
679 pdict = qobject_to_qdict(props);
680 if (!pdict) {
Markus Armbruster485febc2015-03-13 17:25:50 +0100681 error_setg(errp, QERR_INVALID_PARAMETER_TYPE, "props", "dict");
682 return;
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100683 }
684 }
685
686 qiv = qmp_input_visitor_new(props);
Markus Armbruster485febc2015-03-13 17:25:50 +0100687 object_add(type, id, pdict, qmp_input_get_visitor(qiv), errp);
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100688 qmp_input_visitor_cleanup(qiv);
Paolo Bonzinicff8b2c2013-12-20 23:21:10 +0100689}
690
Paolo Bonziniab2d0532013-12-20 23:21:09 +0100691void qmp_object_del(const char *id, Error **errp)
692{
693 Object *container;
694 Object *obj;
695
Daniel P. Berrangebc2256c2015-05-13 17:14:05 +0100696 container = object_get_objects_root();
Paolo Bonziniab2d0532013-12-20 23:21:09 +0100697 obj = object_resolve_path_component(container, id);
698 if (!obj) {
699 error_setg(errp, "object id not found");
700 return;
701 }
Lin Mad6edb152015-03-30 16:36:28 +0800702
703 if (!user_creatable_can_be_deleted(USER_CREATABLE(obj), errp)) {
704 error_setg(errp, "%s is in use, can not be deleted", id);
705 return;
706 }
Paolo Bonziniab2d0532013-12-20 23:21:09 +0100707 object_unparent(obj);
708}
Igor Mammedov6f2e2732014-06-16 19:12:25 +0200709
710MemoryDeviceInfoList *qmp_query_memory_devices(Error **errp)
711{
712 MemoryDeviceInfoList *head = NULL;
713 MemoryDeviceInfoList **prev = &head;
714
715 qmp_pc_dimm_device_list(qdev_get_machine(), &prev);
716
717 return head;
718}
Igor Mammedov02419bc2014-06-16 19:12:28 +0200719
720ACPIOSTInfoList *qmp_query_acpi_ospm_status(Error **errp)
721{
722 bool ambig;
723 ACPIOSTInfoList *head = NULL;
724 ACPIOSTInfoList **prev = &head;
725 Object *obj = object_resolve_path_type("", TYPE_ACPI_DEVICE_IF, &ambig);
726
727 if (obj) {
728 AcpiDeviceIfClass *adevc = ACPI_DEVICE_IF_GET_CLASS(obj);
729 AcpiDeviceIf *adev = ACPI_DEVICE_IF(obj);
730
731 adevc->ospm_status(adev, &prev);
732 } else {
733 error_setg(errp, "command is not supported, missing ACPI device");
734 }
735
736 return head;
737}