Merge remote-tracking branch 'remotes/maxreitz/tags/pull-block-2020-07-28' into staging
[qemu.git] / monitor / hmp-cmds.c
1 /*
2 * Human Monitor Interface commands
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 *
12 * Contributions after 2012-01-13 are licensed under the terms of the
13 * GNU GPL, version 2 or (at your option) any later version.
14 */
15
16 #include "qemu/osdep.h"
17 #include "monitor/hmp.h"
18 #include "net/net.h"
19 #include "net/eth.h"
20 #include "chardev/char.h"
21 #include "sysemu/block-backend.h"
22 #include "sysemu/runstate.h"
23 #include "qemu/config-file.h"
24 #include "qemu/option.h"
25 #include "qemu/timer.h"
26 #include "qemu/sockets.h"
27 #include "monitor/monitor-internal.h"
28 #include "qapi/error.h"
29 #include "qapi/clone-visitor.h"
30 #include "qapi/opts-visitor.h"
31 #include "qapi/qapi-builtin-visit.h"
32 #include "qapi/qapi-commands-block.h"
33 #include "qapi/qapi-commands-char.h"
34 #include "qapi/qapi-commands-control.h"
35 #include "qapi/qapi-commands-migration.h"
36 #include "qapi/qapi-commands-misc.h"
37 #include "qapi/qapi-commands-net.h"
38 #include "qapi/qapi-commands-rocker.h"
39 #include "qapi/qapi-commands-run-state.h"
40 #include "qapi/qapi-commands-tpm.h"
41 #include "qapi/qapi-commands-ui.h"
42 #include "qapi/qapi-visit-net.h"
43 #include "qapi/qapi-visit-migration.h"
44 #include "qapi/qmp/qdict.h"
45 #include "qapi/qmp/qerror.h"
46 #include "qapi/string-input-visitor.h"
47 #include "qapi/string-output-visitor.h"
48 #include "qom/object_interfaces.h"
49 #include "ui/console.h"
50 #include "qemu/cutils.h"
51 #include "qemu/error-report.h"
52 #include "exec/ramlist.h"
53 #include "hw/intc/intc.h"
54 #include "hw/rdma/rdma.h"
55 #include "migration/snapshot.h"
56 #include "migration/misc.h"
57
58 #ifdef CONFIG_SPICE
59 #include <spice/enums.h>
60 #endif
61
62 void hmp_handle_error(Monitor *mon, Error *err)
63 {
64 if (err) {
65 error_reportf_err(err, "Error: ");
66 }
67 }
68
69 /*
70 * Produce a strList from a comma separated list.
71 * A NULL or empty input string return NULL.
72 */
73 static strList *strList_from_comma_list(const char *in)
74 {
75 strList *res = NULL;
76 strList **hook = &res;
77
78 while (in && in[0]) {
79 char *comma = strchr(in, ',');
80 *hook = g_new0(strList, 1);
81
82 if (comma) {
83 (*hook)->value = g_strndup(in, comma - in);
84 in = comma + 1; /* skip the , */
85 } else {
86 (*hook)->value = g_strdup(in);
87 in = NULL;
88 }
89 hook = &(*hook)->next;
90 }
91
92 return res;
93 }
94
95 void hmp_info_name(Monitor *mon, const QDict *qdict)
96 {
97 NameInfo *info;
98
99 info = qmp_query_name(NULL);
100 if (info->has_name) {
101 monitor_printf(mon, "%s\n", info->name);
102 }
103 qapi_free_NameInfo(info);
104 }
105
106 void hmp_info_version(Monitor *mon, const QDict *qdict)
107 {
108 VersionInfo *info;
109
110 info = qmp_query_version(NULL);
111
112 monitor_printf(mon, "%" PRId64 ".%" PRId64 ".%" PRId64 "%s\n",
113 info->qemu->major, info->qemu->minor, info->qemu->micro,
114 info->package);
115
116 qapi_free_VersionInfo(info);
117 }
118
119 void hmp_info_kvm(Monitor *mon, const QDict *qdict)
120 {
121 KvmInfo *info;
122
123 info = qmp_query_kvm(NULL);
124 monitor_printf(mon, "kvm support: ");
125 if (info->present) {
126 monitor_printf(mon, "%s\n", info->enabled ? "enabled" : "disabled");
127 } else {
128 monitor_printf(mon, "not compiled\n");
129 }
130
131 qapi_free_KvmInfo(info);
132 }
133
134 void hmp_info_status(Monitor *mon, const QDict *qdict)
135 {
136 StatusInfo *info;
137
138 info = qmp_query_status(NULL);
139
140 monitor_printf(mon, "VM status: %s%s",
141 info->running ? "running" : "paused",
142 info->singlestep ? " (single step mode)" : "");
143
144 if (!info->running && info->status != RUN_STATE_PAUSED) {
145 monitor_printf(mon, " (%s)", RunState_str(info->status));
146 }
147
148 monitor_printf(mon, "\n");
149
150 qapi_free_StatusInfo(info);
151 }
152
153 void hmp_info_uuid(Monitor *mon, const QDict *qdict)
154 {
155 UuidInfo *info;
156
157 info = qmp_query_uuid(NULL);
158 monitor_printf(mon, "%s\n", info->UUID);
159 qapi_free_UuidInfo(info);
160 }
161
162 void hmp_info_chardev(Monitor *mon, const QDict *qdict)
163 {
164 ChardevInfoList *char_info, *info;
165
166 char_info = qmp_query_chardev(NULL);
167 for (info = char_info; info; info = info->next) {
168 monitor_printf(mon, "%s: filename=%s\n", info->value->label,
169 info->value->filename);
170 }
171
172 qapi_free_ChardevInfoList(char_info);
173 }
174
175 void hmp_info_mice(Monitor *mon, const QDict *qdict)
176 {
177 MouseInfoList *mice_list, *mouse;
178
179 mice_list = qmp_query_mice(NULL);
180 if (!mice_list) {
181 monitor_printf(mon, "No mouse devices connected\n");
182 return;
183 }
184
185 for (mouse = mice_list; mouse; mouse = mouse->next) {
186 monitor_printf(mon, "%c Mouse #%" PRId64 ": %s%s\n",
187 mouse->value->current ? '*' : ' ',
188 mouse->value->index, mouse->value->name,
189 mouse->value->absolute ? " (absolute)" : "");
190 }
191
192 qapi_free_MouseInfoList(mice_list);
193 }
194
195 static char *SocketAddress_to_str(SocketAddress *addr)
196 {
197 switch (addr->type) {
198 case SOCKET_ADDRESS_TYPE_INET:
199 return g_strdup_printf("tcp:%s:%s",
200 addr->u.inet.host,
201 addr->u.inet.port);
202 case SOCKET_ADDRESS_TYPE_UNIX:
203 return g_strdup_printf("unix:%s",
204 addr->u.q_unix.path);
205 case SOCKET_ADDRESS_TYPE_FD:
206 return g_strdup_printf("fd:%s", addr->u.fd.str);
207 case SOCKET_ADDRESS_TYPE_VSOCK:
208 return g_strdup_printf("tcp:%s:%s",
209 addr->u.vsock.cid,
210 addr->u.vsock.port);
211 default:
212 return g_strdup("unknown address type");
213 }
214 }
215
216 void hmp_info_migrate(Monitor *mon, const QDict *qdict)
217 {
218 MigrationInfo *info;
219
220 info = qmp_query_migrate(NULL);
221
222 migration_global_dump(mon);
223
224 if (info->has_status) {
225 monitor_printf(mon, "Migration status: %s",
226 MigrationStatus_str(info->status));
227 if (info->status == MIGRATION_STATUS_FAILED &&
228 info->has_error_desc) {
229 monitor_printf(mon, " (%s)\n", info->error_desc);
230 } else {
231 monitor_printf(mon, "\n");
232 }
233
234 monitor_printf(mon, "total time: %" PRIu64 " ms\n",
235 info->total_time);
236 if (info->has_expected_downtime) {
237 monitor_printf(mon, "expected downtime: %" PRIu64 " ms\n",
238 info->expected_downtime);
239 }
240 if (info->has_downtime) {
241 monitor_printf(mon, "downtime: %" PRIu64 " ms\n",
242 info->downtime);
243 }
244 if (info->has_setup_time) {
245 monitor_printf(mon, "setup: %" PRIu64 " ms\n",
246 info->setup_time);
247 }
248 }
249
250 if (info->has_ram) {
251 monitor_printf(mon, "transferred ram: %" PRIu64 " kbytes\n",
252 info->ram->transferred >> 10);
253 monitor_printf(mon, "throughput: %0.2f mbps\n",
254 info->ram->mbps);
255 monitor_printf(mon, "remaining ram: %" PRIu64 " kbytes\n",
256 info->ram->remaining >> 10);
257 monitor_printf(mon, "total ram: %" PRIu64 " kbytes\n",
258 info->ram->total >> 10);
259 monitor_printf(mon, "duplicate: %" PRIu64 " pages\n",
260 info->ram->duplicate);
261 monitor_printf(mon, "skipped: %" PRIu64 " pages\n",
262 info->ram->skipped);
263 monitor_printf(mon, "normal: %" PRIu64 " pages\n",
264 info->ram->normal);
265 monitor_printf(mon, "normal bytes: %" PRIu64 " kbytes\n",
266 info->ram->normal_bytes >> 10);
267 monitor_printf(mon, "dirty sync count: %" PRIu64 "\n",
268 info->ram->dirty_sync_count);
269 monitor_printf(mon, "page size: %" PRIu64 " kbytes\n",
270 info->ram->page_size >> 10);
271 monitor_printf(mon, "multifd bytes: %" PRIu64 " kbytes\n",
272 info->ram->multifd_bytes >> 10);
273 monitor_printf(mon, "pages-per-second: %" PRIu64 "\n",
274 info->ram->pages_per_second);
275
276 if (info->ram->dirty_pages_rate) {
277 monitor_printf(mon, "dirty pages rate: %" PRIu64 " pages\n",
278 info->ram->dirty_pages_rate);
279 }
280 if (info->ram->postcopy_requests) {
281 monitor_printf(mon, "postcopy request count: %" PRIu64 "\n",
282 info->ram->postcopy_requests);
283 }
284 }
285
286 if (info->has_disk) {
287 monitor_printf(mon, "transferred disk: %" PRIu64 " kbytes\n",
288 info->disk->transferred >> 10);
289 monitor_printf(mon, "remaining disk: %" PRIu64 " kbytes\n",
290 info->disk->remaining >> 10);
291 monitor_printf(mon, "total disk: %" PRIu64 " kbytes\n",
292 info->disk->total >> 10);
293 }
294
295 if (info->has_xbzrle_cache) {
296 monitor_printf(mon, "cache size: %" PRIu64 " bytes\n",
297 info->xbzrle_cache->cache_size);
298 monitor_printf(mon, "xbzrle transferred: %" PRIu64 " kbytes\n",
299 info->xbzrle_cache->bytes >> 10);
300 monitor_printf(mon, "xbzrle pages: %" PRIu64 " pages\n",
301 info->xbzrle_cache->pages);
302 monitor_printf(mon, "xbzrle cache miss: %" PRIu64 " pages\n",
303 info->xbzrle_cache->cache_miss);
304 monitor_printf(mon, "xbzrle cache miss rate: %0.2f\n",
305 info->xbzrle_cache->cache_miss_rate);
306 monitor_printf(mon, "xbzrle encoding rate: %0.2f\n",
307 info->xbzrle_cache->encoding_rate);
308 monitor_printf(mon, "xbzrle overflow: %" PRIu64 "\n",
309 info->xbzrle_cache->overflow);
310 }
311
312 if (info->has_compression) {
313 monitor_printf(mon, "compression pages: %" PRIu64 " pages\n",
314 info->compression->pages);
315 monitor_printf(mon, "compression busy: %" PRIu64 "\n",
316 info->compression->busy);
317 monitor_printf(mon, "compression busy rate: %0.2f\n",
318 info->compression->busy_rate);
319 monitor_printf(mon, "compressed size: %" PRIu64 " kbytes\n",
320 info->compression->compressed_size >> 10);
321 monitor_printf(mon, "compression rate: %0.2f\n",
322 info->compression->compression_rate);
323 }
324
325 if (info->has_cpu_throttle_percentage) {
326 monitor_printf(mon, "cpu throttle percentage: %" PRIu64 "\n",
327 info->cpu_throttle_percentage);
328 }
329
330 if (info->has_postcopy_blocktime) {
331 monitor_printf(mon, "postcopy blocktime: %u\n",
332 info->postcopy_blocktime);
333 }
334
335 if (info->has_postcopy_vcpu_blocktime) {
336 Visitor *v;
337 char *str;
338 v = string_output_visitor_new(false, &str);
339 visit_type_uint32List(v, NULL, &info->postcopy_vcpu_blocktime,
340 &error_abort);
341 visit_complete(v, &str);
342 monitor_printf(mon, "postcopy vcpu blocktime: %s\n", str);
343 g_free(str);
344 visit_free(v);
345 }
346 if (info->has_socket_address) {
347 SocketAddressList *addr;
348
349 monitor_printf(mon, "socket address: [\n");
350
351 for (addr = info->socket_address; addr; addr = addr->next) {
352 char *s = SocketAddress_to_str(addr->value);
353 monitor_printf(mon, "\t%s\n", s);
354 g_free(s);
355 }
356 monitor_printf(mon, "]\n");
357 }
358 qapi_free_MigrationInfo(info);
359 }
360
361 void hmp_info_migrate_capabilities(Monitor *mon, const QDict *qdict)
362 {
363 MigrationCapabilityStatusList *caps, *cap;
364
365 caps = qmp_query_migrate_capabilities(NULL);
366
367 if (caps) {
368 for (cap = caps; cap; cap = cap->next) {
369 monitor_printf(mon, "%s: %s\n",
370 MigrationCapability_str(cap->value->capability),
371 cap->value->state ? "on" : "off");
372 }
373 }
374
375 qapi_free_MigrationCapabilityStatusList(caps);
376 }
377
378 void hmp_info_migrate_parameters(Monitor *mon, const QDict *qdict)
379 {
380 MigrationParameters *params;
381
382 params = qmp_query_migrate_parameters(NULL);
383
384 if (params) {
385 monitor_printf(mon, "%s: %" PRIu64 " ms\n",
386 MigrationParameter_str(MIGRATION_PARAMETER_ANNOUNCE_INITIAL),
387 params->announce_initial);
388 monitor_printf(mon, "%s: %" PRIu64 " ms\n",
389 MigrationParameter_str(MIGRATION_PARAMETER_ANNOUNCE_MAX),
390 params->announce_max);
391 monitor_printf(mon, "%s: %" PRIu64 "\n",
392 MigrationParameter_str(MIGRATION_PARAMETER_ANNOUNCE_ROUNDS),
393 params->announce_rounds);
394 monitor_printf(mon, "%s: %" PRIu64 " ms\n",
395 MigrationParameter_str(MIGRATION_PARAMETER_ANNOUNCE_STEP),
396 params->announce_step);
397 assert(params->has_compress_level);
398 monitor_printf(mon, "%s: %u\n",
399 MigrationParameter_str(MIGRATION_PARAMETER_COMPRESS_LEVEL),
400 params->compress_level);
401 assert(params->has_compress_threads);
402 monitor_printf(mon, "%s: %u\n",
403 MigrationParameter_str(MIGRATION_PARAMETER_COMPRESS_THREADS),
404 params->compress_threads);
405 assert(params->has_compress_wait_thread);
406 monitor_printf(mon, "%s: %s\n",
407 MigrationParameter_str(MIGRATION_PARAMETER_COMPRESS_WAIT_THREAD),
408 params->compress_wait_thread ? "on" : "off");
409 assert(params->has_decompress_threads);
410 monitor_printf(mon, "%s: %u\n",
411 MigrationParameter_str(MIGRATION_PARAMETER_DECOMPRESS_THREADS),
412 params->decompress_threads);
413 assert(params->has_throttle_trigger_threshold);
414 monitor_printf(mon, "%s: %u\n",
415 MigrationParameter_str(MIGRATION_PARAMETER_THROTTLE_TRIGGER_THRESHOLD),
416 params->throttle_trigger_threshold);
417 assert(params->has_cpu_throttle_initial);
418 monitor_printf(mon, "%s: %u\n",
419 MigrationParameter_str(MIGRATION_PARAMETER_CPU_THROTTLE_INITIAL),
420 params->cpu_throttle_initial);
421 assert(params->has_cpu_throttle_increment);
422 monitor_printf(mon, "%s: %u\n",
423 MigrationParameter_str(MIGRATION_PARAMETER_CPU_THROTTLE_INCREMENT),
424 params->cpu_throttle_increment);
425 assert(params->has_cpu_throttle_tailslow);
426 monitor_printf(mon, "%s: %s\n",
427 MigrationParameter_str(MIGRATION_PARAMETER_CPU_THROTTLE_TAILSLOW),
428 params->cpu_throttle_tailslow ? "on" : "off");
429 assert(params->has_max_cpu_throttle);
430 monitor_printf(mon, "%s: %u\n",
431 MigrationParameter_str(MIGRATION_PARAMETER_MAX_CPU_THROTTLE),
432 params->max_cpu_throttle);
433 assert(params->has_tls_creds);
434 monitor_printf(mon, "%s: '%s'\n",
435 MigrationParameter_str(MIGRATION_PARAMETER_TLS_CREDS),
436 params->tls_creds);
437 assert(params->has_tls_hostname);
438 monitor_printf(mon, "%s: '%s'\n",
439 MigrationParameter_str(MIGRATION_PARAMETER_TLS_HOSTNAME),
440 params->tls_hostname);
441 assert(params->has_max_bandwidth);
442 monitor_printf(mon, "%s: %" PRIu64 " bytes/second\n",
443 MigrationParameter_str(MIGRATION_PARAMETER_MAX_BANDWIDTH),
444 params->max_bandwidth);
445 assert(params->has_downtime_limit);
446 monitor_printf(mon, "%s: %" PRIu64 " ms\n",
447 MigrationParameter_str(MIGRATION_PARAMETER_DOWNTIME_LIMIT),
448 params->downtime_limit);
449 assert(params->has_x_checkpoint_delay);
450 monitor_printf(mon, "%s: %u ms\n",
451 MigrationParameter_str(MIGRATION_PARAMETER_X_CHECKPOINT_DELAY),
452 params->x_checkpoint_delay);
453 assert(params->has_block_incremental);
454 monitor_printf(mon, "%s: %s\n",
455 MigrationParameter_str(MIGRATION_PARAMETER_BLOCK_INCREMENTAL),
456 params->block_incremental ? "on" : "off");
457 monitor_printf(mon, "%s: %u\n",
458 MigrationParameter_str(MIGRATION_PARAMETER_MULTIFD_CHANNELS),
459 params->multifd_channels);
460 monitor_printf(mon, "%s: %s\n",
461 MigrationParameter_str(MIGRATION_PARAMETER_MULTIFD_COMPRESSION),
462 MultiFDCompression_str(params->multifd_compression));
463 monitor_printf(mon, "%s: %" PRIu64 " bytes\n",
464 MigrationParameter_str(MIGRATION_PARAMETER_XBZRLE_CACHE_SIZE),
465 params->xbzrle_cache_size);
466 monitor_printf(mon, "%s: %" PRIu64 "\n",
467 MigrationParameter_str(MIGRATION_PARAMETER_MAX_POSTCOPY_BANDWIDTH),
468 params->max_postcopy_bandwidth);
469 monitor_printf(mon, "%s: '%s'\n",
470 MigrationParameter_str(MIGRATION_PARAMETER_TLS_AUTHZ),
471 params->tls_authz);
472 }
473
474 qapi_free_MigrationParameters(params);
475 }
476
477 void hmp_info_migrate_cache_size(Monitor *mon, const QDict *qdict)
478 {
479 monitor_printf(mon, "xbzrel cache size: %" PRId64 " kbytes\n",
480 qmp_query_migrate_cache_size(NULL) >> 10);
481 }
482
483
484 #ifdef CONFIG_VNC
485 /* Helper for hmp_info_vnc_clients, _servers */
486 static void hmp_info_VncBasicInfo(Monitor *mon, VncBasicInfo *info,
487 const char *name)
488 {
489 monitor_printf(mon, " %s: %s:%s (%s%s)\n",
490 name,
491 info->host,
492 info->service,
493 NetworkAddressFamily_str(info->family),
494 info->websocket ? " (Websocket)" : "");
495 }
496
497 /* Helper displaying and auth and crypt info */
498 static void hmp_info_vnc_authcrypt(Monitor *mon, const char *indent,
499 VncPrimaryAuth auth,
500 VncVencryptSubAuth *vencrypt)
501 {
502 monitor_printf(mon, "%sAuth: %s (Sub: %s)\n", indent,
503 VncPrimaryAuth_str(auth),
504 vencrypt ? VncVencryptSubAuth_str(*vencrypt) : "none");
505 }
506
507 static void hmp_info_vnc_clients(Monitor *mon, VncClientInfoList *client)
508 {
509 while (client) {
510 VncClientInfo *cinfo = client->value;
511
512 hmp_info_VncBasicInfo(mon, qapi_VncClientInfo_base(cinfo), "Client");
513 monitor_printf(mon, " x509_dname: %s\n",
514 cinfo->has_x509_dname ?
515 cinfo->x509_dname : "none");
516 monitor_printf(mon, " sasl_username: %s\n",
517 cinfo->has_sasl_username ?
518 cinfo->sasl_username : "none");
519
520 client = client->next;
521 }
522 }
523
524 static void hmp_info_vnc_servers(Monitor *mon, VncServerInfo2List *server)
525 {
526 while (server) {
527 VncServerInfo2 *sinfo = server->value;
528 hmp_info_VncBasicInfo(mon, qapi_VncServerInfo2_base(sinfo), "Server");
529 hmp_info_vnc_authcrypt(mon, " ", sinfo->auth,
530 sinfo->has_vencrypt ? &sinfo->vencrypt : NULL);
531 server = server->next;
532 }
533 }
534
535 void hmp_info_vnc(Monitor *mon, const QDict *qdict)
536 {
537 VncInfo2List *info2l, *info2l_head;
538 Error *err = NULL;
539
540 info2l = qmp_query_vnc_servers(&err);
541 info2l_head = info2l;
542 if (err) {
543 hmp_handle_error(mon, err);
544 return;
545 }
546 if (!info2l) {
547 monitor_printf(mon, "None\n");
548 return;
549 }
550
551 while (info2l) {
552 VncInfo2 *info = info2l->value;
553 monitor_printf(mon, "%s:\n", info->id);
554 hmp_info_vnc_servers(mon, info->server);
555 hmp_info_vnc_clients(mon, info->clients);
556 if (!info->server) {
557 /* The server entry displays its auth, we only
558 * need to display in the case of 'reverse' connections
559 * where there's no server.
560 */
561 hmp_info_vnc_authcrypt(mon, " ", info->auth,
562 info->has_vencrypt ? &info->vencrypt : NULL);
563 }
564 if (info->has_display) {
565 monitor_printf(mon, " Display: %s\n", info->display);
566 }
567 info2l = info2l->next;
568 }
569
570 qapi_free_VncInfo2List(info2l_head);
571
572 }
573 #endif
574
575 #ifdef CONFIG_SPICE
576 void hmp_info_spice(Monitor *mon, const QDict *qdict)
577 {
578 SpiceChannelList *chan;
579 SpiceInfo *info;
580 const char *channel_name;
581 const char * const channel_names[] = {
582 [SPICE_CHANNEL_MAIN] = "main",
583 [SPICE_CHANNEL_DISPLAY] = "display",
584 [SPICE_CHANNEL_INPUTS] = "inputs",
585 [SPICE_CHANNEL_CURSOR] = "cursor",
586 [SPICE_CHANNEL_PLAYBACK] = "playback",
587 [SPICE_CHANNEL_RECORD] = "record",
588 [SPICE_CHANNEL_TUNNEL] = "tunnel",
589 [SPICE_CHANNEL_SMARTCARD] = "smartcard",
590 [SPICE_CHANNEL_USBREDIR] = "usbredir",
591 [SPICE_CHANNEL_PORT] = "port",
592 #if 0
593 /* minimum spice-protocol is 0.12.3, webdav was added in 0.12.7,
594 * no easy way to #ifdef (SPICE_CHANNEL_* is a enum). Disable
595 * as quick fix for build failures with older versions. */
596 [SPICE_CHANNEL_WEBDAV] = "webdav",
597 #endif
598 };
599
600 info = qmp_query_spice(NULL);
601
602 if (!info->enabled) {
603 monitor_printf(mon, "Server: disabled\n");
604 goto out;
605 }
606
607 monitor_printf(mon, "Server:\n");
608 if (info->has_port) {
609 monitor_printf(mon, " address: %s:%" PRId64 "\n",
610 info->host, info->port);
611 }
612 if (info->has_tls_port) {
613 monitor_printf(mon, " address: %s:%" PRId64 " [tls]\n",
614 info->host, info->tls_port);
615 }
616 monitor_printf(mon, " migrated: %s\n",
617 info->migrated ? "true" : "false");
618 monitor_printf(mon, " auth: %s\n", info->auth);
619 monitor_printf(mon, " compiled: %s\n", info->compiled_version);
620 monitor_printf(mon, " mouse-mode: %s\n",
621 SpiceQueryMouseMode_str(info->mouse_mode));
622
623 if (!info->has_channels || info->channels == NULL) {
624 monitor_printf(mon, "Channels: none\n");
625 } else {
626 for (chan = info->channels; chan; chan = chan->next) {
627 monitor_printf(mon, "Channel:\n");
628 monitor_printf(mon, " address: %s:%s%s\n",
629 chan->value->host, chan->value->port,
630 chan->value->tls ? " [tls]" : "");
631 monitor_printf(mon, " session: %" PRId64 "\n",
632 chan->value->connection_id);
633 monitor_printf(mon, " channel: %" PRId64 ":%" PRId64 "\n",
634 chan->value->channel_type, chan->value->channel_id);
635
636 channel_name = "unknown";
637 if (chan->value->channel_type > 0 &&
638 chan->value->channel_type < ARRAY_SIZE(channel_names) &&
639 channel_names[chan->value->channel_type]) {
640 channel_name = channel_names[chan->value->channel_type];
641 }
642
643 monitor_printf(mon, " channel name: %s\n", channel_name);
644 }
645 }
646
647 out:
648 qapi_free_SpiceInfo(info);
649 }
650 #endif
651
652 void hmp_info_balloon(Monitor *mon, const QDict *qdict)
653 {
654 BalloonInfo *info;
655 Error *err = NULL;
656
657 info = qmp_query_balloon(&err);
658 if (err) {
659 hmp_handle_error(mon, err);
660 return;
661 }
662
663 monitor_printf(mon, "balloon: actual=%" PRId64 "\n", info->actual >> 20);
664
665 qapi_free_BalloonInfo(info);
666 }
667
668 static void hmp_info_pci_device(Monitor *mon, const PciDeviceInfo *dev)
669 {
670 PciMemoryRegionList *region;
671
672 monitor_printf(mon, " Bus %2" PRId64 ", ", dev->bus);
673 monitor_printf(mon, "device %3" PRId64 ", function %" PRId64 ":\n",
674 dev->slot, dev->function);
675 monitor_printf(mon, " ");
676
677 if (dev->class_info->has_desc) {
678 monitor_printf(mon, "%s", dev->class_info->desc);
679 } else {
680 monitor_printf(mon, "Class %04" PRId64, dev->class_info->q_class);
681 }
682
683 monitor_printf(mon, ": PCI device %04" PRIx64 ":%04" PRIx64 "\n",
684 dev->id->vendor, dev->id->device);
685 if (dev->id->has_subsystem_vendor && dev->id->has_subsystem) {
686 monitor_printf(mon, " PCI subsystem %04" PRIx64 ":%04" PRIx64 "\n",
687 dev->id->subsystem_vendor, dev->id->subsystem);
688 }
689
690 if (dev->has_irq) {
691 monitor_printf(mon, " IRQ %" PRId64 ", pin %c\n",
692 dev->irq, (char)('A' + dev->irq_pin - 1));
693 }
694
695 if (dev->has_pci_bridge) {
696 monitor_printf(mon, " BUS %" PRId64 ".\n",
697 dev->pci_bridge->bus->number);
698 monitor_printf(mon, " secondary bus %" PRId64 ".\n",
699 dev->pci_bridge->bus->secondary);
700 monitor_printf(mon, " subordinate bus %" PRId64 ".\n",
701 dev->pci_bridge->bus->subordinate);
702
703 monitor_printf(mon, " IO range [0x%04"PRIx64", 0x%04"PRIx64"]\n",
704 dev->pci_bridge->bus->io_range->base,
705 dev->pci_bridge->bus->io_range->limit);
706
707 monitor_printf(mon,
708 " memory range [0x%08"PRIx64", 0x%08"PRIx64"]\n",
709 dev->pci_bridge->bus->memory_range->base,
710 dev->pci_bridge->bus->memory_range->limit);
711
712 monitor_printf(mon, " prefetchable memory range "
713 "[0x%08"PRIx64", 0x%08"PRIx64"]\n",
714 dev->pci_bridge->bus->prefetchable_range->base,
715 dev->pci_bridge->bus->prefetchable_range->limit);
716 }
717
718 for (region = dev->regions; region; region = region->next) {
719 uint64_t addr, size;
720
721 addr = region->value->address;
722 size = region->value->size;
723
724 monitor_printf(mon, " BAR%" PRId64 ": ", region->value->bar);
725
726 if (!strcmp(region->value->type, "io")) {
727 monitor_printf(mon, "I/O at 0x%04" PRIx64
728 " [0x%04" PRIx64 "].\n",
729 addr, addr + size - 1);
730 } else {
731 monitor_printf(mon, "%d bit%s memory at 0x%08" PRIx64
732 " [0x%08" PRIx64 "].\n",
733 region->value->mem_type_64 ? 64 : 32,
734 region->value->prefetch ? " prefetchable" : "",
735 addr, addr + size - 1);
736 }
737 }
738
739 monitor_printf(mon, " id \"%s\"\n", dev->qdev_id);
740
741 if (dev->has_pci_bridge) {
742 if (dev->pci_bridge->has_devices) {
743 PciDeviceInfoList *cdev;
744 for (cdev = dev->pci_bridge->devices; cdev; cdev = cdev->next) {
745 hmp_info_pci_device(mon, cdev->value);
746 }
747 }
748 }
749 }
750
751 static int hmp_info_irq_foreach(Object *obj, void *opaque)
752 {
753 InterruptStatsProvider *intc;
754 InterruptStatsProviderClass *k;
755 Monitor *mon = opaque;
756
757 if (object_dynamic_cast(obj, TYPE_INTERRUPT_STATS_PROVIDER)) {
758 intc = INTERRUPT_STATS_PROVIDER(obj);
759 k = INTERRUPT_STATS_PROVIDER_GET_CLASS(obj);
760 uint64_t *irq_counts;
761 unsigned int nb_irqs, i;
762 if (k->get_statistics &&
763 k->get_statistics(intc, &irq_counts, &nb_irqs)) {
764 if (nb_irqs > 0) {
765 monitor_printf(mon, "IRQ statistics for %s:\n",
766 object_get_typename(obj));
767 for (i = 0; i < nb_irqs; i++) {
768 if (irq_counts[i] > 0) {
769 monitor_printf(mon, "%2d: %" PRId64 "\n", i,
770 irq_counts[i]);
771 }
772 }
773 }
774 } else {
775 monitor_printf(mon, "IRQ statistics not available for %s.\n",
776 object_get_typename(obj));
777 }
778 }
779
780 return 0;
781 }
782
783 void hmp_info_irq(Monitor *mon, const QDict *qdict)
784 {
785 object_child_foreach_recursive(object_get_root(),
786 hmp_info_irq_foreach, mon);
787 }
788
789 static int hmp_info_pic_foreach(Object *obj, void *opaque)
790 {
791 InterruptStatsProvider *intc;
792 InterruptStatsProviderClass *k;
793 Monitor *mon = opaque;
794
795 if (object_dynamic_cast(obj, TYPE_INTERRUPT_STATS_PROVIDER)) {
796 intc = INTERRUPT_STATS_PROVIDER(obj);
797 k = INTERRUPT_STATS_PROVIDER_GET_CLASS(obj);
798 if (k->print_info) {
799 k->print_info(intc, mon);
800 } else {
801 monitor_printf(mon, "Interrupt controller information not available for %s.\n",
802 object_get_typename(obj));
803 }
804 }
805
806 return 0;
807 }
808
809 void hmp_info_pic(Monitor *mon, const QDict *qdict)
810 {
811 object_child_foreach_recursive(object_get_root(),
812 hmp_info_pic_foreach, mon);
813 }
814
815 static int hmp_info_rdma_foreach(Object *obj, void *opaque)
816 {
817 RdmaProvider *rdma;
818 RdmaProviderClass *k;
819 Monitor *mon = opaque;
820
821 if (object_dynamic_cast(obj, INTERFACE_RDMA_PROVIDER)) {
822 rdma = RDMA_PROVIDER(obj);
823 k = RDMA_PROVIDER_GET_CLASS(obj);
824 if (k->print_statistics) {
825 k->print_statistics(mon, rdma);
826 } else {
827 monitor_printf(mon, "RDMA statistics not available for %s.\n",
828 object_get_typename(obj));
829 }
830 }
831
832 return 0;
833 }
834
835 void hmp_info_rdma(Monitor *mon, const QDict *qdict)
836 {
837 object_child_foreach_recursive(object_get_root(),
838 hmp_info_rdma_foreach, mon);
839 }
840
841 void hmp_info_pci(Monitor *mon, const QDict *qdict)
842 {
843 PciInfoList *info_list, *info;
844 Error *err = NULL;
845
846 info_list = qmp_query_pci(&err);
847 if (err) {
848 monitor_printf(mon, "PCI devices not supported\n");
849 error_free(err);
850 return;
851 }
852
853 for (info = info_list; info; info = info->next) {
854 PciDeviceInfoList *dev;
855
856 for (dev = info->value->devices; dev; dev = dev->next) {
857 hmp_info_pci_device(mon, dev->value);
858 }
859 }
860
861 qapi_free_PciInfoList(info_list);
862 }
863
864 void hmp_info_tpm(Monitor *mon, const QDict *qdict)
865 {
866 TPMInfoList *info_list, *info;
867 Error *err = NULL;
868 unsigned int c = 0;
869 TPMPassthroughOptions *tpo;
870 TPMEmulatorOptions *teo;
871
872 info_list = qmp_query_tpm(&err);
873 if (err) {
874 monitor_printf(mon, "TPM device not supported\n");
875 error_free(err);
876 return;
877 }
878
879 if (info_list) {
880 monitor_printf(mon, "TPM device:\n");
881 }
882
883 for (info = info_list; info; info = info->next) {
884 TPMInfo *ti = info->value;
885 monitor_printf(mon, " tpm%d: model=%s\n",
886 c, TpmModel_str(ti->model));
887
888 monitor_printf(mon, " \\ %s: type=%s",
889 ti->id, TpmTypeOptionsKind_str(ti->options->type));
890
891 switch (ti->options->type) {
892 case TPM_TYPE_OPTIONS_KIND_PASSTHROUGH:
893 tpo = ti->options->u.passthrough.data;
894 monitor_printf(mon, "%s%s%s%s",
895 tpo->has_path ? ",path=" : "",
896 tpo->has_path ? tpo->path : "",
897 tpo->has_cancel_path ? ",cancel-path=" : "",
898 tpo->has_cancel_path ? tpo->cancel_path : "");
899 break;
900 case TPM_TYPE_OPTIONS_KIND_EMULATOR:
901 teo = ti->options->u.emulator.data;
902 monitor_printf(mon, ",chardev=%s", teo->chardev);
903 break;
904 case TPM_TYPE_OPTIONS_KIND__MAX:
905 break;
906 }
907 monitor_printf(mon, "\n");
908 c++;
909 }
910 qapi_free_TPMInfoList(info_list);
911 }
912
913 void hmp_quit(Monitor *mon, const QDict *qdict)
914 {
915 monitor_suspend(mon);
916 qmp_quit(NULL);
917 }
918
919 void hmp_stop(Monitor *mon, const QDict *qdict)
920 {
921 qmp_stop(NULL);
922 }
923
924 void hmp_sync_profile(Monitor *mon, const QDict *qdict)
925 {
926 const char *op = qdict_get_try_str(qdict, "op");
927
928 if (op == NULL) {
929 bool on = qsp_is_enabled();
930
931 monitor_printf(mon, "sync-profile is %s\n", on ? "on" : "off");
932 return;
933 }
934 if (!strcmp(op, "on")) {
935 qsp_enable();
936 } else if (!strcmp(op, "off")) {
937 qsp_disable();
938 } else if (!strcmp(op, "reset")) {
939 qsp_reset();
940 } else {
941 Error *err = NULL;
942
943 error_setg(&err, QERR_INVALID_PARAMETER, op);
944 hmp_handle_error(mon, err);
945 }
946 }
947
948 void hmp_system_reset(Monitor *mon, const QDict *qdict)
949 {
950 qmp_system_reset(NULL);
951 }
952
953 void hmp_system_powerdown(Monitor *mon, const QDict *qdict)
954 {
955 qmp_system_powerdown(NULL);
956 }
957
958 void hmp_exit_preconfig(Monitor *mon, const QDict *qdict)
959 {
960 Error *err = NULL;
961
962 qmp_x_exit_preconfig(&err);
963 hmp_handle_error(mon, err);
964 }
965
966 void hmp_cpu(Monitor *mon, const QDict *qdict)
967 {
968 int64_t cpu_index;
969
970 /* XXX: drop the monitor_set_cpu() usage when all HMP commands that
971 use it are converted to the QAPI */
972 cpu_index = qdict_get_int(qdict, "index");
973 if (monitor_set_cpu(cpu_index) < 0) {
974 monitor_printf(mon, "invalid CPU index\n");
975 }
976 }
977
978 void hmp_memsave(Monitor *mon, const QDict *qdict)
979 {
980 uint32_t size = qdict_get_int(qdict, "size");
981 const char *filename = qdict_get_str(qdict, "filename");
982 uint64_t addr = qdict_get_int(qdict, "val");
983 Error *err = NULL;
984 int cpu_index = monitor_get_cpu_index();
985
986 if (cpu_index < 0) {
987 monitor_printf(mon, "No CPU available\n");
988 return;
989 }
990
991 qmp_memsave(addr, size, filename, true, cpu_index, &err);
992 hmp_handle_error(mon, err);
993 }
994
995 void hmp_pmemsave(Monitor *mon, const QDict *qdict)
996 {
997 uint32_t size = qdict_get_int(qdict, "size");
998 const char *filename = qdict_get_str(qdict, "filename");
999 uint64_t addr = qdict_get_int(qdict, "val");
1000 Error *err = NULL;
1001
1002 qmp_pmemsave(addr, size, filename, &err);
1003 hmp_handle_error(mon, err);
1004 }
1005
1006 void hmp_ringbuf_write(Monitor *mon, const QDict *qdict)
1007 {
1008 const char *chardev = qdict_get_str(qdict, "device");
1009 const char *data = qdict_get_str(qdict, "data");
1010 Error *err = NULL;
1011
1012 qmp_ringbuf_write(chardev, data, false, 0, &err);
1013
1014 hmp_handle_error(mon, err);
1015 }
1016
1017 void hmp_ringbuf_read(Monitor *mon, const QDict *qdict)
1018 {
1019 uint32_t size = qdict_get_int(qdict, "size");
1020 const char *chardev = qdict_get_str(qdict, "device");
1021 char *data;
1022 Error *err = NULL;
1023 int i;
1024
1025 data = qmp_ringbuf_read(chardev, size, false, 0, &err);
1026 if (err) {
1027 hmp_handle_error(mon, err);
1028 return;
1029 }
1030
1031 for (i = 0; data[i]; i++) {
1032 unsigned char ch = data[i];
1033
1034 if (ch == '\\') {
1035 monitor_printf(mon, "\\\\");
1036 } else if ((ch < 0x20 && ch != '\n' && ch != '\t') || ch == 0x7F) {
1037 monitor_printf(mon, "\\u%04X", ch);
1038 } else {
1039 monitor_printf(mon, "%c", ch);
1040 }
1041
1042 }
1043 monitor_printf(mon, "\n");
1044 g_free(data);
1045 }
1046
1047 void hmp_cont(Monitor *mon, const QDict *qdict)
1048 {
1049 Error *err = NULL;
1050
1051 qmp_cont(&err);
1052 hmp_handle_error(mon, err);
1053 }
1054
1055 void hmp_system_wakeup(Monitor *mon, const QDict *qdict)
1056 {
1057 Error *err = NULL;
1058
1059 qmp_system_wakeup(&err);
1060 hmp_handle_error(mon, err);
1061 }
1062
1063 void hmp_nmi(Monitor *mon, const QDict *qdict)
1064 {
1065 Error *err = NULL;
1066
1067 qmp_inject_nmi(&err);
1068 hmp_handle_error(mon, err);
1069 }
1070
1071 void hmp_set_link(Monitor *mon, const QDict *qdict)
1072 {
1073 const char *name = qdict_get_str(qdict, "name");
1074 bool up = qdict_get_bool(qdict, "up");
1075 Error *err = NULL;
1076
1077 qmp_set_link(name, up, &err);
1078 hmp_handle_error(mon, err);
1079 }
1080
1081 void hmp_balloon(Monitor *mon, const QDict *qdict)
1082 {
1083 int64_t value = qdict_get_int(qdict, "value");
1084 Error *err = NULL;
1085
1086 qmp_balloon(value, &err);
1087 hmp_handle_error(mon, err);
1088 }
1089
1090 void hmp_loadvm(Monitor *mon, const QDict *qdict)
1091 {
1092 int saved_vm_running = runstate_is_running();
1093 const char *name = qdict_get_str(qdict, "name");
1094 Error *err = NULL;
1095
1096 vm_stop(RUN_STATE_RESTORE_VM);
1097
1098 if (load_snapshot(name, &err) == 0 && saved_vm_running) {
1099 vm_start();
1100 }
1101 hmp_handle_error(mon, err);
1102 }
1103
1104 void hmp_savevm(Monitor *mon, const QDict *qdict)
1105 {
1106 Error *err = NULL;
1107
1108 save_snapshot(qdict_get_try_str(qdict, "name"), &err);
1109 hmp_handle_error(mon, err);
1110 }
1111
1112 void hmp_delvm(Monitor *mon, const QDict *qdict)
1113 {
1114 BlockDriverState *bs;
1115 Error *err = NULL;
1116 const char *name = qdict_get_str(qdict, "name");
1117
1118 if (bdrv_all_delete_snapshot(name, &bs, &err) < 0) {
1119 error_prepend(&err,
1120 "deleting snapshot on device '%s': ",
1121 bdrv_get_device_name(bs));
1122 }
1123 hmp_handle_error(mon, err);
1124 }
1125
1126 void hmp_announce_self(Monitor *mon, const QDict *qdict)
1127 {
1128 const char *interfaces_str = qdict_get_try_str(qdict, "interfaces");
1129 const char *id = qdict_get_try_str(qdict, "id");
1130 AnnounceParameters *params = QAPI_CLONE(AnnounceParameters,
1131 migrate_announce_params());
1132
1133 qapi_free_strList(params->interfaces);
1134 params->interfaces = strList_from_comma_list(interfaces_str);
1135 params->has_interfaces = params->interfaces != NULL;
1136 params->id = g_strdup(id);
1137 params->has_id = !!params->id;
1138 qmp_announce_self(params, NULL);
1139 qapi_free_AnnounceParameters(params);
1140 }
1141
1142 void hmp_migrate_cancel(Monitor *mon, const QDict *qdict)
1143 {
1144 qmp_migrate_cancel(NULL);
1145 }
1146
1147 void hmp_migrate_continue(Monitor *mon, const QDict *qdict)
1148 {
1149 Error *err = NULL;
1150 const char *state = qdict_get_str(qdict, "state");
1151 int val = qapi_enum_parse(&MigrationStatus_lookup, state, -1, &err);
1152
1153 if (val >= 0) {
1154 qmp_migrate_continue(val, &err);
1155 }
1156
1157 hmp_handle_error(mon, err);
1158 }
1159
1160 void hmp_migrate_incoming(Monitor *mon, const QDict *qdict)
1161 {
1162 Error *err = NULL;
1163 const char *uri = qdict_get_str(qdict, "uri");
1164
1165 qmp_migrate_incoming(uri, &err);
1166
1167 hmp_handle_error(mon, err);
1168 }
1169
1170 void hmp_migrate_recover(Monitor *mon, const QDict *qdict)
1171 {
1172 Error *err = NULL;
1173 const char *uri = qdict_get_str(qdict, "uri");
1174
1175 qmp_migrate_recover(uri, &err);
1176
1177 hmp_handle_error(mon, err);
1178 }
1179
1180 void hmp_migrate_pause(Monitor *mon, const QDict *qdict)
1181 {
1182 Error *err = NULL;
1183
1184 qmp_migrate_pause(&err);
1185
1186 hmp_handle_error(mon, err);
1187 }
1188
1189 /* Kept for backwards compatibility */
1190 void hmp_migrate_set_downtime(Monitor *mon, const QDict *qdict)
1191 {
1192 Error *err = NULL;
1193
1194 double value = qdict_get_double(qdict, "value");
1195 qmp_migrate_set_downtime(value, &err);
1196 hmp_handle_error(mon, err);
1197 }
1198
1199 void hmp_migrate_set_cache_size(Monitor *mon, const QDict *qdict)
1200 {
1201 int64_t value = qdict_get_int(qdict, "value");
1202 Error *err = NULL;
1203
1204 qmp_migrate_set_cache_size(value, &err);
1205 hmp_handle_error(mon, err);
1206 }
1207
1208 /* Kept for backwards compatibility */
1209 void hmp_migrate_set_speed(Monitor *mon, const QDict *qdict)
1210 {
1211 Error *err = NULL;
1212
1213 int64_t value = qdict_get_int(qdict, "value");
1214 qmp_migrate_set_speed(value, &err);
1215 hmp_handle_error(mon, err);
1216 }
1217
1218 void hmp_migrate_set_capability(Monitor *mon, const QDict *qdict)
1219 {
1220 const char *cap = qdict_get_str(qdict, "capability");
1221 bool state = qdict_get_bool(qdict, "state");
1222 Error *err = NULL;
1223 MigrationCapabilityStatusList *caps = g_malloc0(sizeof(*caps));
1224 int val;
1225
1226 val = qapi_enum_parse(&MigrationCapability_lookup, cap, -1, &err);
1227 if (val < 0) {
1228 goto end;
1229 }
1230
1231 caps->value = g_malloc0(sizeof(*caps->value));
1232 caps->value->capability = val;
1233 caps->value->state = state;
1234 caps->next = NULL;
1235 qmp_migrate_set_capabilities(caps, &err);
1236
1237 end:
1238 qapi_free_MigrationCapabilityStatusList(caps);
1239 hmp_handle_error(mon, err);
1240 }
1241
1242 void hmp_migrate_set_parameter(Monitor *mon, const QDict *qdict)
1243 {
1244 const char *param = qdict_get_str(qdict, "parameter");
1245 const char *valuestr = qdict_get_str(qdict, "value");
1246 Visitor *v = string_input_visitor_new(valuestr);
1247 MigrateSetParameters *p = g_new0(MigrateSetParameters, 1);
1248 uint64_t valuebw = 0;
1249 uint64_t cache_size;
1250 Error *err = NULL;
1251 int val, ret;
1252
1253 val = qapi_enum_parse(&MigrationParameter_lookup, param, -1, &err);
1254 if (val < 0) {
1255 goto cleanup;
1256 }
1257
1258 switch (val) {
1259 case MIGRATION_PARAMETER_COMPRESS_LEVEL:
1260 p->has_compress_level = true;
1261 visit_type_int(v, param, &p->compress_level, &err);
1262 break;
1263 case MIGRATION_PARAMETER_COMPRESS_THREADS:
1264 p->has_compress_threads = true;
1265 visit_type_int(v, param, &p->compress_threads, &err);
1266 break;
1267 case MIGRATION_PARAMETER_COMPRESS_WAIT_THREAD:
1268 p->has_compress_wait_thread = true;
1269 visit_type_bool(v, param, &p->compress_wait_thread, &err);
1270 break;
1271 case MIGRATION_PARAMETER_DECOMPRESS_THREADS:
1272 p->has_decompress_threads = true;
1273 visit_type_int(v, param, &p->decompress_threads, &err);
1274 break;
1275 case MIGRATION_PARAMETER_THROTTLE_TRIGGER_THRESHOLD:
1276 p->has_throttle_trigger_threshold = true;
1277 visit_type_int(v, param, &p->throttle_trigger_threshold, &err);
1278 break;
1279 case MIGRATION_PARAMETER_CPU_THROTTLE_INITIAL:
1280 p->has_cpu_throttle_initial = true;
1281 visit_type_int(v, param, &p->cpu_throttle_initial, &err);
1282 break;
1283 case MIGRATION_PARAMETER_CPU_THROTTLE_INCREMENT:
1284 p->has_cpu_throttle_increment = true;
1285 visit_type_int(v, param, &p->cpu_throttle_increment, &err);
1286 break;
1287 case MIGRATION_PARAMETER_CPU_THROTTLE_TAILSLOW:
1288 p->has_cpu_throttle_tailslow = true;
1289 visit_type_bool(v, param, &p->cpu_throttle_tailslow, &err);
1290 break;
1291 case MIGRATION_PARAMETER_MAX_CPU_THROTTLE:
1292 p->has_max_cpu_throttle = true;
1293 visit_type_int(v, param, &p->max_cpu_throttle, &err);
1294 break;
1295 case MIGRATION_PARAMETER_TLS_CREDS:
1296 p->has_tls_creds = true;
1297 p->tls_creds = g_new0(StrOrNull, 1);
1298 p->tls_creds->type = QTYPE_QSTRING;
1299 visit_type_str(v, param, &p->tls_creds->u.s, &err);
1300 break;
1301 case MIGRATION_PARAMETER_TLS_HOSTNAME:
1302 p->has_tls_hostname = true;
1303 p->tls_hostname = g_new0(StrOrNull, 1);
1304 p->tls_hostname->type = QTYPE_QSTRING;
1305 visit_type_str(v, param, &p->tls_hostname->u.s, &err);
1306 break;
1307 case MIGRATION_PARAMETER_TLS_AUTHZ:
1308 p->has_tls_authz = true;
1309 p->tls_authz = g_new0(StrOrNull, 1);
1310 p->tls_authz->type = QTYPE_QSTRING;
1311 visit_type_str(v, param, &p->tls_authz->u.s, &err);
1312 break;
1313 case MIGRATION_PARAMETER_MAX_BANDWIDTH:
1314 p->has_max_bandwidth = true;
1315 /*
1316 * Can't use visit_type_size() here, because it
1317 * defaults to Bytes rather than Mebibytes.
1318 */
1319 ret = qemu_strtosz_MiB(valuestr, NULL, &valuebw);
1320 if (ret < 0 || valuebw > INT64_MAX
1321 || (size_t)valuebw != valuebw) {
1322 error_setg(&err, "Invalid size %s", valuestr);
1323 break;
1324 }
1325 p->max_bandwidth = valuebw;
1326 break;
1327 case MIGRATION_PARAMETER_DOWNTIME_LIMIT:
1328 p->has_downtime_limit = true;
1329 visit_type_int(v, param, &p->downtime_limit, &err);
1330 break;
1331 case MIGRATION_PARAMETER_X_CHECKPOINT_DELAY:
1332 p->has_x_checkpoint_delay = true;
1333 visit_type_int(v, param, &p->x_checkpoint_delay, &err);
1334 break;
1335 case MIGRATION_PARAMETER_BLOCK_INCREMENTAL:
1336 p->has_block_incremental = true;
1337 visit_type_bool(v, param, &p->block_incremental, &err);
1338 break;
1339 case MIGRATION_PARAMETER_MULTIFD_CHANNELS:
1340 p->has_multifd_channels = true;
1341 visit_type_int(v, param, &p->multifd_channels, &err);
1342 break;
1343 case MIGRATION_PARAMETER_MULTIFD_COMPRESSION:
1344 p->has_multifd_compression = true;
1345 visit_type_MultiFDCompression(v, param, &p->multifd_compression,
1346 &err);
1347 break;
1348 case MIGRATION_PARAMETER_MULTIFD_ZLIB_LEVEL:
1349 p->has_multifd_zlib_level = true;
1350 visit_type_int(v, param, &p->multifd_zlib_level, &err);
1351 break;
1352 case MIGRATION_PARAMETER_MULTIFD_ZSTD_LEVEL:
1353 p->has_multifd_zstd_level = true;
1354 visit_type_int(v, param, &p->multifd_zstd_level, &err);
1355 break;
1356 case MIGRATION_PARAMETER_XBZRLE_CACHE_SIZE:
1357 p->has_xbzrle_cache_size = true;
1358 if (!visit_type_size(v, param, &cache_size, &err)) {
1359 break;
1360 }
1361 if (cache_size > INT64_MAX || (size_t)cache_size != cache_size) {
1362 error_setg(&err, "Invalid size %s", valuestr);
1363 break;
1364 }
1365 p->xbzrle_cache_size = cache_size;
1366 break;
1367 case MIGRATION_PARAMETER_MAX_POSTCOPY_BANDWIDTH:
1368 p->has_max_postcopy_bandwidth = true;
1369 visit_type_size(v, param, &p->max_postcopy_bandwidth, &err);
1370 break;
1371 case MIGRATION_PARAMETER_ANNOUNCE_INITIAL:
1372 p->has_announce_initial = true;
1373 visit_type_size(v, param, &p->announce_initial, &err);
1374 break;
1375 case MIGRATION_PARAMETER_ANNOUNCE_MAX:
1376 p->has_announce_max = true;
1377 visit_type_size(v, param, &p->announce_max, &err);
1378 break;
1379 case MIGRATION_PARAMETER_ANNOUNCE_ROUNDS:
1380 p->has_announce_rounds = true;
1381 visit_type_size(v, param, &p->announce_rounds, &err);
1382 break;
1383 case MIGRATION_PARAMETER_ANNOUNCE_STEP:
1384 p->has_announce_step = true;
1385 visit_type_size(v, param, &p->announce_step, &err);
1386 break;
1387 default:
1388 assert(0);
1389 }
1390
1391 if (err) {
1392 goto cleanup;
1393 }
1394
1395 qmp_migrate_set_parameters(p, &err);
1396
1397 cleanup:
1398 qapi_free_MigrateSetParameters(p);
1399 visit_free(v);
1400 hmp_handle_error(mon, err);
1401 }
1402
1403 void hmp_client_migrate_info(Monitor *mon, const QDict *qdict)
1404 {
1405 Error *err = NULL;
1406 const char *protocol = qdict_get_str(qdict, "protocol");
1407 const char *hostname = qdict_get_str(qdict, "hostname");
1408 bool has_port = qdict_haskey(qdict, "port");
1409 int port = qdict_get_try_int(qdict, "port", -1);
1410 bool has_tls_port = qdict_haskey(qdict, "tls-port");
1411 int tls_port = qdict_get_try_int(qdict, "tls-port", -1);
1412 const char *cert_subject = qdict_get_try_str(qdict, "cert-subject");
1413
1414 qmp_client_migrate_info(protocol, hostname,
1415 has_port, port, has_tls_port, tls_port,
1416 !!cert_subject, cert_subject, &err);
1417 hmp_handle_error(mon, err);
1418 }
1419
1420 void hmp_migrate_start_postcopy(Monitor *mon, const QDict *qdict)
1421 {
1422 Error *err = NULL;
1423 qmp_migrate_start_postcopy(&err);
1424 hmp_handle_error(mon, err);
1425 }
1426
1427 void hmp_x_colo_lost_heartbeat(Monitor *mon, const QDict *qdict)
1428 {
1429 Error *err = NULL;
1430
1431 qmp_x_colo_lost_heartbeat(&err);
1432 hmp_handle_error(mon, err);
1433 }
1434
1435 void hmp_set_password(Monitor *mon, const QDict *qdict)
1436 {
1437 const char *protocol = qdict_get_str(qdict, "protocol");
1438 const char *password = qdict_get_str(qdict, "password");
1439 const char *connected = qdict_get_try_str(qdict, "connected");
1440 Error *err = NULL;
1441
1442 qmp_set_password(protocol, password, !!connected, connected, &err);
1443 hmp_handle_error(mon, err);
1444 }
1445
1446 void hmp_expire_password(Monitor *mon, const QDict *qdict)
1447 {
1448 const char *protocol = qdict_get_str(qdict, "protocol");
1449 const char *whenstr = qdict_get_str(qdict, "time");
1450 Error *err = NULL;
1451
1452 qmp_expire_password(protocol, whenstr, &err);
1453 hmp_handle_error(mon, err);
1454 }
1455
1456
1457 #ifdef CONFIG_VNC
1458 static void hmp_change_read_arg(void *opaque, const char *password,
1459 void *readline_opaque)
1460 {
1461 qmp_change_vnc_password(password, NULL);
1462 monitor_read_command(opaque, 1);
1463 }
1464 #endif
1465
1466 void hmp_change(Monitor *mon, const QDict *qdict)
1467 {
1468 const char *device = qdict_get_str(qdict, "device");
1469 const char *target = qdict_get_str(qdict, "target");
1470 const char *arg = qdict_get_try_str(qdict, "arg");
1471 const char *read_only = qdict_get_try_str(qdict, "read-only-mode");
1472 BlockdevChangeReadOnlyMode read_only_mode = 0;
1473 Error *err = NULL;
1474
1475 #ifdef CONFIG_VNC
1476 if (strcmp(device, "vnc") == 0) {
1477 if (read_only) {
1478 monitor_printf(mon,
1479 "Parameter 'read-only-mode' is invalid for VNC\n");
1480 return;
1481 }
1482 if (strcmp(target, "passwd") == 0 ||
1483 strcmp(target, "password") == 0) {
1484 if (!arg) {
1485 MonitorHMP *hmp_mon = container_of(mon, MonitorHMP, common);
1486 monitor_read_password(hmp_mon, hmp_change_read_arg, NULL);
1487 return;
1488 }
1489 }
1490 qmp_change("vnc", target, !!arg, arg, &err);
1491 } else
1492 #endif
1493 {
1494 if (read_only) {
1495 read_only_mode =
1496 qapi_enum_parse(&BlockdevChangeReadOnlyMode_lookup,
1497 read_only,
1498 BLOCKDEV_CHANGE_READ_ONLY_MODE_RETAIN, &err);
1499 if (err) {
1500 goto end;
1501 }
1502 }
1503
1504 qmp_blockdev_change_medium(true, device, false, NULL, target,
1505 !!arg, arg, !!read_only, read_only_mode,
1506 &err);
1507 }
1508
1509 end:
1510 hmp_handle_error(mon, err);
1511 }
1512
1513 typedef struct HMPMigrationStatus
1514 {
1515 QEMUTimer *timer;
1516 Monitor *mon;
1517 bool is_block_migration;
1518 } HMPMigrationStatus;
1519
1520 static void hmp_migrate_status_cb(void *opaque)
1521 {
1522 HMPMigrationStatus *status = opaque;
1523 MigrationInfo *info;
1524
1525 info = qmp_query_migrate(NULL);
1526 if (!info->has_status || info->status == MIGRATION_STATUS_ACTIVE ||
1527 info->status == MIGRATION_STATUS_SETUP) {
1528 if (info->has_disk) {
1529 int progress;
1530
1531 if (info->disk->remaining) {
1532 progress = info->disk->transferred * 100 / info->disk->total;
1533 } else {
1534 progress = 100;
1535 }
1536
1537 monitor_printf(status->mon, "Completed %d %%\r", progress);
1538 monitor_flush(status->mon);
1539 }
1540
1541 timer_mod(status->timer, qemu_clock_get_ms(QEMU_CLOCK_REALTIME) + 1000);
1542 } else {
1543 if (status->is_block_migration) {
1544 monitor_printf(status->mon, "\n");
1545 }
1546 if (info->has_error_desc) {
1547 error_report("%s", info->error_desc);
1548 }
1549 monitor_resume(status->mon);
1550 timer_del(status->timer);
1551 timer_free(status->timer);
1552 g_free(status);
1553 }
1554
1555 qapi_free_MigrationInfo(info);
1556 }
1557
1558 void hmp_migrate(Monitor *mon, const QDict *qdict)
1559 {
1560 bool detach = qdict_get_try_bool(qdict, "detach", false);
1561 bool blk = qdict_get_try_bool(qdict, "blk", false);
1562 bool inc = qdict_get_try_bool(qdict, "inc", false);
1563 bool resume = qdict_get_try_bool(qdict, "resume", false);
1564 const char *uri = qdict_get_str(qdict, "uri");
1565 Error *err = NULL;
1566
1567 qmp_migrate(uri, !!blk, blk, !!inc, inc,
1568 false, false, true, resume, &err);
1569 if (err) {
1570 hmp_handle_error(mon, err);
1571 return;
1572 }
1573
1574 if (!detach) {
1575 HMPMigrationStatus *status;
1576
1577 if (monitor_suspend(mon) < 0) {
1578 monitor_printf(mon, "terminal does not allow synchronous "
1579 "migration, continuing detached\n");
1580 return;
1581 }
1582
1583 status = g_malloc0(sizeof(*status));
1584 status->mon = mon;
1585 status->is_block_migration = blk || inc;
1586 status->timer = timer_new_ms(QEMU_CLOCK_REALTIME, hmp_migrate_status_cb,
1587 status);
1588 timer_mod(status->timer, qemu_clock_get_ms(QEMU_CLOCK_REALTIME));
1589 }
1590 }
1591
1592 void hmp_netdev_add(Monitor *mon, const QDict *qdict)
1593 {
1594 Error *err = NULL;
1595 QemuOpts *opts;
1596
1597 opts = qemu_opts_from_qdict(qemu_find_opts("netdev"), qdict, &err);
1598 if (err) {
1599 goto out;
1600 }
1601
1602 netdev_add(opts, &err);
1603 if (err) {
1604 qemu_opts_del(opts);
1605 }
1606
1607 out:
1608 hmp_handle_error(mon, err);
1609 }
1610
1611 void hmp_netdev_del(Monitor *mon, const QDict *qdict)
1612 {
1613 const char *id = qdict_get_str(qdict, "id");
1614 Error *err = NULL;
1615
1616 qmp_netdev_del(id, &err);
1617 hmp_handle_error(mon, err);
1618 }
1619
1620 void hmp_object_add(Monitor *mon, const QDict *qdict)
1621 {
1622 Error *err = NULL;
1623 QemuOpts *opts;
1624 Object *obj = NULL;
1625
1626 opts = qemu_opts_from_qdict(qemu_find_opts("object"), qdict, &err);
1627 if (err) {
1628 goto end;
1629 }
1630
1631 obj = user_creatable_add_opts(opts, &err);
1632 qemu_opts_del(opts);
1633
1634 end:
1635 hmp_handle_error(mon, err);
1636
1637 if (obj) {
1638 object_unref(obj);
1639 }
1640 }
1641
1642 void hmp_getfd(Monitor *mon, const QDict *qdict)
1643 {
1644 const char *fdname = qdict_get_str(qdict, "fdname");
1645 Error *err = NULL;
1646
1647 qmp_getfd(fdname, &err);
1648 hmp_handle_error(mon, err);
1649 }
1650
1651 void hmp_closefd(Monitor *mon, const QDict *qdict)
1652 {
1653 const char *fdname = qdict_get_str(qdict, "fdname");
1654 Error *err = NULL;
1655
1656 qmp_closefd(fdname, &err);
1657 hmp_handle_error(mon, err);
1658 }
1659
1660 void hmp_sendkey(Monitor *mon, const QDict *qdict)
1661 {
1662 const char *keys = qdict_get_str(qdict, "keys");
1663 KeyValueList *keylist, *head = NULL, *tmp = NULL;
1664 int has_hold_time = qdict_haskey(qdict, "hold-time");
1665 int hold_time = qdict_get_try_int(qdict, "hold-time", -1);
1666 Error *err = NULL;
1667 const char *separator;
1668 int keyname_len;
1669
1670 while (1) {
1671 separator = qemu_strchrnul(keys, '-');
1672 keyname_len = separator - keys;
1673
1674 /* Be compatible with old interface, convert user inputted "<" */
1675 if (keys[0] == '<' && keyname_len == 1) {
1676 keys = "less";
1677 keyname_len = 4;
1678 }
1679
1680 keylist = g_malloc0(sizeof(*keylist));
1681 keylist->value = g_malloc0(sizeof(*keylist->value));
1682
1683 if (!head) {
1684 head = keylist;
1685 }
1686 if (tmp) {
1687 tmp->next = keylist;
1688 }
1689 tmp = keylist;
1690
1691 if (strstart(keys, "0x", NULL)) {
1692 char *endp;
1693 int value = strtoul(keys, &endp, 0);
1694 assert(endp <= keys + keyname_len);
1695 if (endp != keys + keyname_len) {
1696 goto err_out;
1697 }
1698 keylist->value->type = KEY_VALUE_KIND_NUMBER;
1699 keylist->value->u.number.data = value;
1700 } else {
1701 int idx = index_from_key(keys, keyname_len);
1702 if (idx == Q_KEY_CODE__MAX) {
1703 goto err_out;
1704 }
1705 keylist->value->type = KEY_VALUE_KIND_QCODE;
1706 keylist->value->u.qcode.data = idx;
1707 }
1708
1709 if (!*separator) {
1710 break;
1711 }
1712 keys = separator + 1;
1713 }
1714
1715 qmp_send_key(head, has_hold_time, hold_time, &err);
1716 hmp_handle_error(mon, err);
1717
1718 out:
1719 qapi_free_KeyValueList(head);
1720 return;
1721
1722 err_out:
1723 monitor_printf(mon, "invalid parameter: %.*s\n", keyname_len, keys);
1724 goto out;
1725 }
1726
1727 void hmp_screendump(Monitor *mon, const QDict *qdict)
1728 {
1729 const char *filename = qdict_get_str(qdict, "filename");
1730 const char *id = qdict_get_try_str(qdict, "device");
1731 int64_t head = qdict_get_try_int(qdict, "head", 0);
1732 Error *err = NULL;
1733
1734 qmp_screendump(filename, id != NULL, id, id != NULL, head, &err);
1735 hmp_handle_error(mon, err);
1736 }
1737
1738 void hmp_chardev_add(Monitor *mon, const QDict *qdict)
1739 {
1740 const char *args = qdict_get_str(qdict, "args");
1741 Error *err = NULL;
1742 QemuOpts *opts;
1743
1744 opts = qemu_opts_parse_noisily(qemu_find_opts("chardev"), args, true);
1745 if (opts == NULL) {
1746 error_setg(&err, "Parsing chardev args failed");
1747 } else {
1748 qemu_chr_new_from_opts(opts, NULL, &err);
1749 qemu_opts_del(opts);
1750 }
1751 hmp_handle_error(mon, err);
1752 }
1753
1754 void hmp_chardev_change(Monitor *mon, const QDict *qdict)
1755 {
1756 const char *args = qdict_get_str(qdict, "args");
1757 const char *id;
1758 Error *err = NULL;
1759 ChardevBackend *backend = NULL;
1760 ChardevReturn *ret = NULL;
1761 QemuOpts *opts = qemu_opts_parse_noisily(qemu_find_opts("chardev"), args,
1762 true);
1763 if (!opts) {
1764 error_setg(&err, "Parsing chardev args failed");
1765 goto end;
1766 }
1767
1768 id = qdict_get_str(qdict, "id");
1769 if (qemu_opts_id(opts)) {
1770 error_setg(&err, "Unexpected 'id' parameter");
1771 goto end;
1772 }
1773
1774 backend = qemu_chr_parse_opts(opts, &err);
1775 if (!backend) {
1776 goto end;
1777 }
1778
1779 ret = qmp_chardev_change(id, backend, &err);
1780
1781 end:
1782 qapi_free_ChardevReturn(ret);
1783 qapi_free_ChardevBackend(backend);
1784 qemu_opts_del(opts);
1785 hmp_handle_error(mon, err);
1786 }
1787
1788 void hmp_chardev_remove(Monitor *mon, const QDict *qdict)
1789 {
1790 Error *local_err = NULL;
1791
1792 qmp_chardev_remove(qdict_get_str(qdict, "id"), &local_err);
1793 hmp_handle_error(mon, local_err);
1794 }
1795
1796 void hmp_chardev_send_break(Monitor *mon, const QDict *qdict)
1797 {
1798 Error *local_err = NULL;
1799
1800 qmp_chardev_send_break(qdict_get_str(qdict, "id"), &local_err);
1801 hmp_handle_error(mon, local_err);
1802 }
1803
1804 void hmp_object_del(Monitor *mon, const QDict *qdict)
1805 {
1806 const char *id = qdict_get_str(qdict, "id");
1807 Error *err = NULL;
1808
1809 user_creatable_del(id, &err);
1810 hmp_handle_error(mon, err);
1811 }
1812
1813 void hmp_info_memory_devices(Monitor *mon, const QDict *qdict)
1814 {
1815 Error *err = NULL;
1816 MemoryDeviceInfoList *info_list = qmp_query_memory_devices(&err);
1817 MemoryDeviceInfoList *info;
1818 VirtioPMEMDeviceInfo *vpi;
1819 VirtioMEMDeviceInfo *vmi;
1820 MemoryDeviceInfo *value;
1821 PCDIMMDeviceInfo *di;
1822
1823 for (info = info_list; info; info = info->next) {
1824 value = info->value;
1825
1826 if (value) {
1827 switch (value->type) {
1828 case MEMORY_DEVICE_INFO_KIND_DIMM:
1829 case MEMORY_DEVICE_INFO_KIND_NVDIMM:
1830 di = value->type == MEMORY_DEVICE_INFO_KIND_DIMM ?
1831 value->u.dimm.data : value->u.nvdimm.data;
1832 monitor_printf(mon, "Memory device [%s]: \"%s\"\n",
1833 MemoryDeviceInfoKind_str(value->type),
1834 di->id ? di->id : "");
1835 monitor_printf(mon, " addr: 0x%" PRIx64 "\n", di->addr);
1836 monitor_printf(mon, " slot: %" PRId64 "\n", di->slot);
1837 monitor_printf(mon, " node: %" PRId64 "\n", di->node);
1838 monitor_printf(mon, " size: %" PRIu64 "\n", di->size);
1839 monitor_printf(mon, " memdev: %s\n", di->memdev);
1840 monitor_printf(mon, " hotplugged: %s\n",
1841 di->hotplugged ? "true" : "false");
1842 monitor_printf(mon, " hotpluggable: %s\n",
1843 di->hotpluggable ? "true" : "false");
1844 break;
1845 case MEMORY_DEVICE_INFO_KIND_VIRTIO_PMEM:
1846 vpi = value->u.virtio_pmem.data;
1847 monitor_printf(mon, "Memory device [%s]: \"%s\"\n",
1848 MemoryDeviceInfoKind_str(value->type),
1849 vpi->id ? vpi->id : "");
1850 monitor_printf(mon, " memaddr: 0x%" PRIx64 "\n", vpi->memaddr);
1851 monitor_printf(mon, " size: %" PRIu64 "\n", vpi->size);
1852 monitor_printf(mon, " memdev: %s\n", vpi->memdev);
1853 break;
1854 case MEMORY_DEVICE_INFO_KIND_VIRTIO_MEM:
1855 vmi = value->u.virtio_mem.data;
1856 monitor_printf(mon, "Memory device [%s]: \"%s\"\n",
1857 MemoryDeviceInfoKind_str(value->type),
1858 vmi->id ? vmi->id : "");
1859 monitor_printf(mon, " memaddr: 0x%" PRIx64 "\n", vmi->memaddr);
1860 monitor_printf(mon, " node: %" PRId64 "\n", vmi->node);
1861 monitor_printf(mon, " requested-size: %" PRIu64 "\n",
1862 vmi->requested_size);
1863 monitor_printf(mon, " size: %" PRIu64 "\n", vmi->size);
1864 monitor_printf(mon, " max-size: %" PRIu64 "\n", vmi->max_size);
1865 monitor_printf(mon, " block-size: %" PRIu64 "\n",
1866 vmi->block_size);
1867 monitor_printf(mon, " memdev: %s\n", vmi->memdev);
1868 break;
1869 default:
1870 g_assert_not_reached();
1871 }
1872 }
1873 }
1874
1875 qapi_free_MemoryDeviceInfoList(info_list);
1876 hmp_handle_error(mon, err);
1877 }
1878
1879 void hmp_info_iothreads(Monitor *mon, const QDict *qdict)
1880 {
1881 IOThreadInfoList *info_list = qmp_query_iothreads(NULL);
1882 IOThreadInfoList *info;
1883 IOThreadInfo *value;
1884
1885 for (info = info_list; info; info = info->next) {
1886 value = info->value;
1887 monitor_printf(mon, "%s:\n", value->id);
1888 monitor_printf(mon, " thread_id=%" PRId64 "\n", value->thread_id);
1889 monitor_printf(mon, " poll-max-ns=%" PRId64 "\n", value->poll_max_ns);
1890 monitor_printf(mon, " poll-grow=%" PRId64 "\n", value->poll_grow);
1891 monitor_printf(mon, " poll-shrink=%" PRId64 "\n", value->poll_shrink);
1892 }
1893
1894 qapi_free_IOThreadInfoList(info_list);
1895 }
1896
1897 void hmp_rocker(Monitor *mon, const QDict *qdict)
1898 {
1899 const char *name = qdict_get_str(qdict, "name");
1900 RockerSwitch *rocker;
1901 Error *err = NULL;
1902
1903 rocker = qmp_query_rocker(name, &err);
1904 if (err != NULL) {
1905 hmp_handle_error(mon, err);
1906 return;
1907 }
1908
1909 monitor_printf(mon, "name: %s\n", rocker->name);
1910 monitor_printf(mon, "id: 0x%" PRIx64 "\n", rocker->id);
1911 monitor_printf(mon, "ports: %d\n", rocker->ports);
1912
1913 qapi_free_RockerSwitch(rocker);
1914 }
1915
1916 void hmp_rocker_ports(Monitor *mon, const QDict *qdict)
1917 {
1918 RockerPortList *list, *port;
1919 const char *name = qdict_get_str(qdict, "name");
1920 Error *err = NULL;
1921
1922 list = qmp_query_rocker_ports(name, &err);
1923 if (err != NULL) {
1924 hmp_handle_error(mon, err);
1925 return;
1926 }
1927
1928 monitor_printf(mon, " ena/ speed/ auto\n");
1929 monitor_printf(mon, " port link duplex neg?\n");
1930
1931 for (port = list; port; port = port->next) {
1932 monitor_printf(mon, "%10s %-4s %-3s %2s %-3s\n",
1933 port->value->name,
1934 port->value->enabled ? port->value->link_up ?
1935 "up" : "down" : "!ena",
1936 port->value->speed == 10000 ? "10G" : "??",
1937 port->value->duplex ? "FD" : "HD",
1938 port->value->autoneg ? "Yes" : "No");
1939 }
1940
1941 qapi_free_RockerPortList(list);
1942 }
1943
1944 void hmp_rocker_of_dpa_flows(Monitor *mon, const QDict *qdict)
1945 {
1946 RockerOfDpaFlowList *list, *info;
1947 const char *name = qdict_get_str(qdict, "name");
1948 uint32_t tbl_id = qdict_get_try_int(qdict, "tbl_id", -1);
1949 Error *err = NULL;
1950
1951 list = qmp_query_rocker_of_dpa_flows(name, tbl_id != -1, tbl_id, &err);
1952 if (err != NULL) {
1953 hmp_handle_error(mon, err);
1954 return;
1955 }
1956
1957 monitor_printf(mon, "prio tbl hits key(mask) --> actions\n");
1958
1959 for (info = list; info; info = info->next) {
1960 RockerOfDpaFlow *flow = info->value;
1961 RockerOfDpaFlowKey *key = flow->key;
1962 RockerOfDpaFlowMask *mask = flow->mask;
1963 RockerOfDpaFlowAction *action = flow->action;
1964
1965 if (flow->hits) {
1966 monitor_printf(mon, "%-4d %-3d %-4" PRIu64,
1967 key->priority, key->tbl_id, flow->hits);
1968 } else {
1969 monitor_printf(mon, "%-4d %-3d ",
1970 key->priority, key->tbl_id);
1971 }
1972
1973 if (key->has_in_pport) {
1974 monitor_printf(mon, " pport %d", key->in_pport);
1975 if (mask->has_in_pport) {
1976 monitor_printf(mon, "(0x%x)", mask->in_pport);
1977 }
1978 }
1979
1980 if (key->has_vlan_id) {
1981 monitor_printf(mon, " vlan %d",
1982 key->vlan_id & VLAN_VID_MASK);
1983 if (mask->has_vlan_id) {
1984 monitor_printf(mon, "(0x%x)", mask->vlan_id);
1985 }
1986 }
1987
1988 if (key->has_tunnel_id) {
1989 monitor_printf(mon, " tunnel %d", key->tunnel_id);
1990 if (mask->has_tunnel_id) {
1991 monitor_printf(mon, "(0x%x)", mask->tunnel_id);
1992 }
1993 }
1994
1995 if (key->has_eth_type) {
1996 switch (key->eth_type) {
1997 case 0x0806:
1998 monitor_printf(mon, " ARP");
1999 break;
2000 case 0x0800:
2001 monitor_printf(mon, " IP");
2002 break;
2003 case 0x86dd:
2004 monitor_printf(mon, " IPv6");
2005 break;
2006 case 0x8809:
2007 monitor_printf(mon, " LACP");
2008 break;
2009 case 0x88cc:
2010 monitor_printf(mon, " LLDP");
2011 break;
2012 default:
2013 monitor_printf(mon, " eth type 0x%04x", key->eth_type);
2014 break;
2015 }
2016 }
2017
2018 if (key->has_eth_src) {
2019 if ((strcmp(key->eth_src, "01:00:00:00:00:00") == 0) &&
2020 (mask->has_eth_src) &&
2021 (strcmp(mask->eth_src, "01:00:00:00:00:00") == 0)) {
2022 monitor_printf(mon, " src <any mcast/bcast>");
2023 } else if ((strcmp(key->eth_src, "00:00:00:00:00:00") == 0) &&
2024 (mask->has_eth_src) &&
2025 (strcmp(mask->eth_src, "01:00:00:00:00:00") == 0)) {
2026 monitor_printf(mon, " src <any ucast>");
2027 } else {
2028 monitor_printf(mon, " src %s", key->eth_src);
2029 if (mask->has_eth_src) {
2030 monitor_printf(mon, "(%s)", mask->eth_src);
2031 }
2032 }
2033 }
2034
2035 if (key->has_eth_dst) {
2036 if ((strcmp(key->eth_dst, "01:00:00:00:00:00") == 0) &&
2037 (mask->has_eth_dst) &&
2038 (strcmp(mask->eth_dst, "01:00:00:00:00:00") == 0)) {
2039 monitor_printf(mon, " dst <any mcast/bcast>");
2040 } else if ((strcmp(key->eth_dst, "00:00:00:00:00:00") == 0) &&
2041 (mask->has_eth_dst) &&
2042 (strcmp(mask->eth_dst, "01:00:00:00:00:00") == 0)) {
2043 monitor_printf(mon, " dst <any ucast>");
2044 } else {
2045 monitor_printf(mon, " dst %s", key->eth_dst);
2046 if (mask->has_eth_dst) {
2047 monitor_printf(mon, "(%s)", mask->eth_dst);
2048 }
2049 }
2050 }
2051
2052 if (key->has_ip_proto) {
2053 monitor_printf(mon, " proto %d", key->ip_proto);
2054 if (mask->has_ip_proto) {
2055 monitor_printf(mon, "(0x%x)", mask->ip_proto);
2056 }
2057 }
2058
2059 if (key->has_ip_tos) {
2060 monitor_printf(mon, " TOS %d", key->ip_tos);
2061 if (mask->has_ip_tos) {
2062 monitor_printf(mon, "(0x%x)", mask->ip_tos);
2063 }
2064 }
2065
2066 if (key->has_ip_dst) {
2067 monitor_printf(mon, " dst %s", key->ip_dst);
2068 }
2069
2070 if (action->has_goto_tbl || action->has_group_id ||
2071 action->has_new_vlan_id) {
2072 monitor_printf(mon, " -->");
2073 }
2074
2075 if (action->has_new_vlan_id) {
2076 monitor_printf(mon, " apply new vlan %d",
2077 ntohs(action->new_vlan_id));
2078 }
2079
2080 if (action->has_group_id) {
2081 monitor_printf(mon, " write group 0x%08x", action->group_id);
2082 }
2083
2084 if (action->has_goto_tbl) {
2085 monitor_printf(mon, " goto tbl %d", action->goto_tbl);
2086 }
2087
2088 monitor_printf(mon, "\n");
2089 }
2090
2091 qapi_free_RockerOfDpaFlowList(list);
2092 }
2093
2094 void hmp_rocker_of_dpa_groups(Monitor *mon, const QDict *qdict)
2095 {
2096 RockerOfDpaGroupList *list, *g;
2097 const char *name = qdict_get_str(qdict, "name");
2098 uint8_t type = qdict_get_try_int(qdict, "type", 9);
2099 Error *err = NULL;
2100
2101 list = qmp_query_rocker_of_dpa_groups(name, type != 9, type, &err);
2102 if (err != NULL) {
2103 hmp_handle_error(mon, err);
2104 return;
2105 }
2106
2107 monitor_printf(mon, "id (decode) --> buckets\n");
2108
2109 for (g = list; g; g = g->next) {
2110 RockerOfDpaGroup *group = g->value;
2111 bool set = false;
2112
2113 monitor_printf(mon, "0x%08x", group->id);
2114
2115 monitor_printf(mon, " (type %s", group->type == 0 ? "L2 interface" :
2116 group->type == 1 ? "L2 rewrite" :
2117 group->type == 2 ? "L3 unicast" :
2118 group->type == 3 ? "L2 multicast" :
2119 group->type == 4 ? "L2 flood" :
2120 group->type == 5 ? "L3 interface" :
2121 group->type == 6 ? "L3 multicast" :
2122 group->type == 7 ? "L3 ECMP" :
2123 group->type == 8 ? "L2 overlay" :
2124 "unknown");
2125
2126 if (group->has_vlan_id) {
2127 monitor_printf(mon, " vlan %d", group->vlan_id);
2128 }
2129
2130 if (group->has_pport) {
2131 monitor_printf(mon, " pport %d", group->pport);
2132 }
2133
2134 if (group->has_index) {
2135 monitor_printf(mon, " index %d", group->index);
2136 }
2137
2138 monitor_printf(mon, ") -->");
2139
2140 if (group->has_set_vlan_id && group->set_vlan_id) {
2141 set = true;
2142 monitor_printf(mon, " set vlan %d",
2143 group->set_vlan_id & VLAN_VID_MASK);
2144 }
2145
2146 if (group->has_set_eth_src) {
2147 if (!set) {
2148 set = true;
2149 monitor_printf(mon, " set");
2150 }
2151 monitor_printf(mon, " src %s", group->set_eth_src);
2152 }
2153
2154 if (group->has_set_eth_dst) {
2155 if (!set) {
2156 monitor_printf(mon, " set");
2157 }
2158 monitor_printf(mon, " dst %s", group->set_eth_dst);
2159 }
2160
2161 if (group->has_ttl_check && group->ttl_check) {
2162 monitor_printf(mon, " check TTL");
2163 }
2164
2165 if (group->has_group_id && group->group_id) {
2166 monitor_printf(mon, " group id 0x%08x", group->group_id);
2167 }
2168
2169 if (group->has_pop_vlan && group->pop_vlan) {
2170 monitor_printf(mon, " pop vlan");
2171 }
2172
2173 if (group->has_out_pport) {
2174 monitor_printf(mon, " out pport %d", group->out_pport);
2175 }
2176
2177 if (group->has_group_ids) {
2178 struct uint32List *id;
2179
2180 monitor_printf(mon, " groups [");
2181 for (id = group->group_ids; id; id = id->next) {
2182 monitor_printf(mon, "0x%08x", id->value);
2183 if (id->next) {
2184 monitor_printf(mon, ",");
2185 }
2186 }
2187 monitor_printf(mon, "]");
2188 }
2189
2190 monitor_printf(mon, "\n");
2191 }
2192
2193 qapi_free_RockerOfDpaGroupList(list);
2194 }
2195
2196 void hmp_info_ramblock(Monitor *mon, const QDict *qdict)
2197 {
2198 ram_block_dump(mon);
2199 }
2200
2201 void hmp_info_vm_generation_id(Monitor *mon, const QDict *qdict)
2202 {
2203 Error *err = NULL;
2204 GuidInfo *info = qmp_query_vm_generation_id(&err);
2205 if (info) {
2206 monitor_printf(mon, "%s\n", info->guid);
2207 }
2208 hmp_handle_error(mon, err);
2209 qapi_free_GuidInfo(info);
2210 }
2211
2212 void hmp_info_memory_size_summary(Monitor *mon, const QDict *qdict)
2213 {
2214 Error *err = NULL;
2215 MemoryInfo *info = qmp_query_memory_size_summary(&err);
2216 if (info) {
2217 monitor_printf(mon, "base memory: %" PRIu64 "\n",
2218 info->base_memory);
2219
2220 if (info->has_plugged_memory) {
2221 monitor_printf(mon, "plugged memory: %" PRIu64 "\n",
2222 info->plugged_memory);
2223 }
2224
2225 qapi_free_MemoryInfo(info);
2226 }
2227 hmp_handle_error(mon, err);
2228 }