target/riscv: vector register gather instruction
[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 MultiFDCompression compress_type;
1251 Error *err = NULL;
1252 int val, ret;
1253
1254 val = qapi_enum_parse(&MigrationParameter_lookup, param, -1, &err);
1255 if (val < 0) {
1256 goto cleanup;
1257 }
1258
1259 switch (val) {
1260 case MIGRATION_PARAMETER_COMPRESS_LEVEL:
1261 p->has_compress_level = true;
1262 visit_type_int(v, param, &p->compress_level, &err);
1263 break;
1264 case MIGRATION_PARAMETER_COMPRESS_THREADS:
1265 p->has_compress_threads = true;
1266 visit_type_int(v, param, &p->compress_threads, &err);
1267 break;
1268 case MIGRATION_PARAMETER_COMPRESS_WAIT_THREAD:
1269 p->has_compress_wait_thread = true;
1270 visit_type_bool(v, param, &p->compress_wait_thread, &err);
1271 break;
1272 case MIGRATION_PARAMETER_DECOMPRESS_THREADS:
1273 p->has_decompress_threads = true;
1274 visit_type_int(v, param, &p->decompress_threads, &err);
1275 break;
1276 case MIGRATION_PARAMETER_THROTTLE_TRIGGER_THRESHOLD:
1277 p->has_throttle_trigger_threshold = true;
1278 visit_type_int(v, param, &p->throttle_trigger_threshold, &err);
1279 break;
1280 case MIGRATION_PARAMETER_CPU_THROTTLE_INITIAL:
1281 p->has_cpu_throttle_initial = true;
1282 visit_type_int(v, param, &p->cpu_throttle_initial, &err);
1283 break;
1284 case MIGRATION_PARAMETER_CPU_THROTTLE_INCREMENT:
1285 p->has_cpu_throttle_increment = true;
1286 visit_type_int(v, param, &p->cpu_throttle_increment, &err);
1287 break;
1288 case MIGRATION_PARAMETER_CPU_THROTTLE_TAILSLOW:
1289 p->has_cpu_throttle_tailslow = true;
1290 visit_type_bool(v, param, &p->cpu_throttle_tailslow, &err);
1291 break;
1292 case MIGRATION_PARAMETER_MAX_CPU_THROTTLE:
1293 p->has_max_cpu_throttle = true;
1294 visit_type_int(v, param, &p->max_cpu_throttle, &err);
1295 break;
1296 case MIGRATION_PARAMETER_TLS_CREDS:
1297 p->has_tls_creds = true;
1298 p->tls_creds = g_new0(StrOrNull, 1);
1299 p->tls_creds->type = QTYPE_QSTRING;
1300 visit_type_str(v, param, &p->tls_creds->u.s, &err);
1301 break;
1302 case MIGRATION_PARAMETER_TLS_HOSTNAME:
1303 p->has_tls_hostname = true;
1304 p->tls_hostname = g_new0(StrOrNull, 1);
1305 p->tls_hostname->type = QTYPE_QSTRING;
1306 visit_type_str(v, param, &p->tls_hostname->u.s, &err);
1307 break;
1308 case MIGRATION_PARAMETER_TLS_AUTHZ:
1309 p->has_tls_authz = true;
1310 p->tls_authz = g_new0(StrOrNull, 1);
1311 p->tls_authz->type = QTYPE_QSTRING;
1312 visit_type_str(v, param, &p->tls_authz->u.s, &err);
1313 break;
1314 case MIGRATION_PARAMETER_MAX_BANDWIDTH:
1315 p->has_max_bandwidth = true;
1316 /*
1317 * Can't use visit_type_size() here, because it
1318 * defaults to Bytes rather than Mebibytes.
1319 */
1320 ret = qemu_strtosz_MiB(valuestr, NULL, &valuebw);
1321 if (ret < 0 || valuebw > INT64_MAX
1322 || (size_t)valuebw != valuebw) {
1323 error_setg(&err, "Invalid size %s", valuestr);
1324 break;
1325 }
1326 p->max_bandwidth = valuebw;
1327 break;
1328 case MIGRATION_PARAMETER_DOWNTIME_LIMIT:
1329 p->has_downtime_limit = true;
1330 visit_type_int(v, param, &p->downtime_limit, &err);
1331 break;
1332 case MIGRATION_PARAMETER_X_CHECKPOINT_DELAY:
1333 p->has_x_checkpoint_delay = true;
1334 visit_type_int(v, param, &p->x_checkpoint_delay, &err);
1335 break;
1336 case MIGRATION_PARAMETER_BLOCK_INCREMENTAL:
1337 p->has_block_incremental = true;
1338 visit_type_bool(v, param, &p->block_incremental, &err);
1339 break;
1340 case MIGRATION_PARAMETER_MULTIFD_CHANNELS:
1341 p->has_multifd_channels = true;
1342 visit_type_int(v, param, &p->multifd_channels, &err);
1343 break;
1344 case MIGRATION_PARAMETER_MULTIFD_COMPRESSION:
1345 p->has_multifd_compression = true;
1346 visit_type_MultiFDCompression(v, param, &compress_type, &err);
1347 if (err) {
1348 break;
1349 }
1350 p->multifd_compression = compress_type;
1351 break;
1352 case MIGRATION_PARAMETER_MULTIFD_ZLIB_LEVEL:
1353 p->has_multifd_zlib_level = true;
1354 visit_type_int(v, param, &p->multifd_zlib_level, &err);
1355 break;
1356 case MIGRATION_PARAMETER_MULTIFD_ZSTD_LEVEL:
1357 p->has_multifd_zstd_level = true;
1358 visit_type_int(v, param, &p->multifd_zstd_level, &err);
1359 break;
1360 case MIGRATION_PARAMETER_XBZRLE_CACHE_SIZE:
1361 p->has_xbzrle_cache_size = true;
1362 visit_type_size(v, param, &cache_size, &err);
1363 if (err) {
1364 break;
1365 }
1366 if (cache_size > INT64_MAX || (size_t)cache_size != cache_size) {
1367 error_setg(&err, "Invalid size %s", valuestr);
1368 break;
1369 }
1370 p->xbzrle_cache_size = cache_size;
1371 break;
1372 case MIGRATION_PARAMETER_MAX_POSTCOPY_BANDWIDTH:
1373 p->has_max_postcopy_bandwidth = true;
1374 visit_type_size(v, param, &p->max_postcopy_bandwidth, &err);
1375 break;
1376 case MIGRATION_PARAMETER_ANNOUNCE_INITIAL:
1377 p->has_announce_initial = true;
1378 visit_type_size(v, param, &p->announce_initial, &err);
1379 break;
1380 case MIGRATION_PARAMETER_ANNOUNCE_MAX:
1381 p->has_announce_max = true;
1382 visit_type_size(v, param, &p->announce_max, &err);
1383 break;
1384 case MIGRATION_PARAMETER_ANNOUNCE_ROUNDS:
1385 p->has_announce_rounds = true;
1386 visit_type_size(v, param, &p->announce_rounds, &err);
1387 break;
1388 case MIGRATION_PARAMETER_ANNOUNCE_STEP:
1389 p->has_announce_step = true;
1390 visit_type_size(v, param, &p->announce_step, &err);
1391 break;
1392 default:
1393 assert(0);
1394 }
1395
1396 if (err) {
1397 goto cleanup;
1398 }
1399
1400 qmp_migrate_set_parameters(p, &err);
1401
1402 cleanup:
1403 qapi_free_MigrateSetParameters(p);
1404 visit_free(v);
1405 hmp_handle_error(mon, err);
1406 }
1407
1408 void hmp_client_migrate_info(Monitor *mon, const QDict *qdict)
1409 {
1410 Error *err = NULL;
1411 const char *protocol = qdict_get_str(qdict, "protocol");
1412 const char *hostname = qdict_get_str(qdict, "hostname");
1413 bool has_port = qdict_haskey(qdict, "port");
1414 int port = qdict_get_try_int(qdict, "port", -1);
1415 bool has_tls_port = qdict_haskey(qdict, "tls-port");
1416 int tls_port = qdict_get_try_int(qdict, "tls-port", -1);
1417 const char *cert_subject = qdict_get_try_str(qdict, "cert-subject");
1418
1419 qmp_client_migrate_info(protocol, hostname,
1420 has_port, port, has_tls_port, tls_port,
1421 !!cert_subject, cert_subject, &err);
1422 hmp_handle_error(mon, err);
1423 }
1424
1425 void hmp_migrate_start_postcopy(Monitor *mon, const QDict *qdict)
1426 {
1427 Error *err = NULL;
1428 qmp_migrate_start_postcopy(&err);
1429 hmp_handle_error(mon, err);
1430 }
1431
1432 void hmp_x_colo_lost_heartbeat(Monitor *mon, const QDict *qdict)
1433 {
1434 Error *err = NULL;
1435
1436 qmp_x_colo_lost_heartbeat(&err);
1437 hmp_handle_error(mon, err);
1438 }
1439
1440 void hmp_set_password(Monitor *mon, const QDict *qdict)
1441 {
1442 const char *protocol = qdict_get_str(qdict, "protocol");
1443 const char *password = qdict_get_str(qdict, "password");
1444 const char *connected = qdict_get_try_str(qdict, "connected");
1445 Error *err = NULL;
1446
1447 qmp_set_password(protocol, password, !!connected, connected, &err);
1448 hmp_handle_error(mon, err);
1449 }
1450
1451 void hmp_expire_password(Monitor *mon, const QDict *qdict)
1452 {
1453 const char *protocol = qdict_get_str(qdict, "protocol");
1454 const char *whenstr = qdict_get_str(qdict, "time");
1455 Error *err = NULL;
1456
1457 qmp_expire_password(protocol, whenstr, &err);
1458 hmp_handle_error(mon, err);
1459 }
1460
1461
1462 #ifdef CONFIG_VNC
1463 static void hmp_change_read_arg(void *opaque, const char *password,
1464 void *readline_opaque)
1465 {
1466 qmp_change_vnc_password(password, NULL);
1467 monitor_read_command(opaque, 1);
1468 }
1469 #endif
1470
1471 void hmp_change(Monitor *mon, const QDict *qdict)
1472 {
1473 const char *device = qdict_get_str(qdict, "device");
1474 const char *target = qdict_get_str(qdict, "target");
1475 const char *arg = qdict_get_try_str(qdict, "arg");
1476 const char *read_only = qdict_get_try_str(qdict, "read-only-mode");
1477 BlockdevChangeReadOnlyMode read_only_mode = 0;
1478 Error *err = NULL;
1479
1480 #ifdef CONFIG_VNC
1481 if (strcmp(device, "vnc") == 0) {
1482 if (read_only) {
1483 monitor_printf(mon,
1484 "Parameter 'read-only-mode' is invalid for VNC\n");
1485 return;
1486 }
1487 if (strcmp(target, "passwd") == 0 ||
1488 strcmp(target, "password") == 0) {
1489 if (!arg) {
1490 MonitorHMP *hmp_mon = container_of(mon, MonitorHMP, common);
1491 monitor_read_password(hmp_mon, hmp_change_read_arg, NULL);
1492 return;
1493 }
1494 }
1495 qmp_change("vnc", target, !!arg, arg, &err);
1496 } else
1497 #endif
1498 {
1499 if (read_only) {
1500 read_only_mode =
1501 qapi_enum_parse(&BlockdevChangeReadOnlyMode_lookup,
1502 read_only,
1503 BLOCKDEV_CHANGE_READ_ONLY_MODE_RETAIN, &err);
1504 if (err) {
1505 goto end;
1506 }
1507 }
1508
1509 qmp_blockdev_change_medium(true, device, false, NULL, target,
1510 !!arg, arg, !!read_only, read_only_mode,
1511 &err);
1512 }
1513
1514 end:
1515 hmp_handle_error(mon, err);
1516 }
1517
1518 typedef struct HMPMigrationStatus
1519 {
1520 QEMUTimer *timer;
1521 Monitor *mon;
1522 bool is_block_migration;
1523 } HMPMigrationStatus;
1524
1525 static void hmp_migrate_status_cb(void *opaque)
1526 {
1527 HMPMigrationStatus *status = opaque;
1528 MigrationInfo *info;
1529
1530 info = qmp_query_migrate(NULL);
1531 if (!info->has_status || info->status == MIGRATION_STATUS_ACTIVE ||
1532 info->status == MIGRATION_STATUS_SETUP) {
1533 if (info->has_disk) {
1534 int progress;
1535
1536 if (info->disk->remaining) {
1537 progress = info->disk->transferred * 100 / info->disk->total;
1538 } else {
1539 progress = 100;
1540 }
1541
1542 monitor_printf(status->mon, "Completed %d %%\r", progress);
1543 monitor_flush(status->mon);
1544 }
1545
1546 timer_mod(status->timer, qemu_clock_get_ms(QEMU_CLOCK_REALTIME) + 1000);
1547 } else {
1548 if (status->is_block_migration) {
1549 monitor_printf(status->mon, "\n");
1550 }
1551 if (info->has_error_desc) {
1552 error_report("%s", info->error_desc);
1553 }
1554 monitor_resume(status->mon);
1555 timer_del(status->timer);
1556 timer_free(status->timer);
1557 g_free(status);
1558 }
1559
1560 qapi_free_MigrationInfo(info);
1561 }
1562
1563 void hmp_migrate(Monitor *mon, const QDict *qdict)
1564 {
1565 bool detach = qdict_get_try_bool(qdict, "detach", false);
1566 bool blk = qdict_get_try_bool(qdict, "blk", false);
1567 bool inc = qdict_get_try_bool(qdict, "inc", false);
1568 bool resume = qdict_get_try_bool(qdict, "resume", false);
1569 const char *uri = qdict_get_str(qdict, "uri");
1570 Error *err = NULL;
1571
1572 qmp_migrate(uri, !!blk, blk, !!inc, inc,
1573 false, false, true, resume, &err);
1574 if (err) {
1575 hmp_handle_error(mon, err);
1576 return;
1577 }
1578
1579 if (!detach) {
1580 HMPMigrationStatus *status;
1581
1582 if (monitor_suspend(mon) < 0) {
1583 monitor_printf(mon, "terminal does not allow synchronous "
1584 "migration, continuing detached\n");
1585 return;
1586 }
1587
1588 status = g_malloc0(sizeof(*status));
1589 status->mon = mon;
1590 status->is_block_migration = blk || inc;
1591 status->timer = timer_new_ms(QEMU_CLOCK_REALTIME, hmp_migrate_status_cb,
1592 status);
1593 timer_mod(status->timer, qemu_clock_get_ms(QEMU_CLOCK_REALTIME));
1594 }
1595 }
1596
1597 void hmp_netdev_add(Monitor *mon, const QDict *qdict)
1598 {
1599 Error *err = NULL;
1600 QemuOpts *opts;
1601
1602 opts = qemu_opts_from_qdict(qemu_find_opts("netdev"), qdict, &err);
1603 if (err) {
1604 goto out;
1605 }
1606
1607 netdev_add(opts, &err);
1608 if (err) {
1609 qemu_opts_del(opts);
1610 }
1611
1612 out:
1613 hmp_handle_error(mon, err);
1614 }
1615
1616 void hmp_netdev_del(Monitor *mon, const QDict *qdict)
1617 {
1618 const char *id = qdict_get_str(qdict, "id");
1619 Error *err = NULL;
1620
1621 qmp_netdev_del(id, &err);
1622 hmp_handle_error(mon, err);
1623 }
1624
1625 void hmp_object_add(Monitor *mon, const QDict *qdict)
1626 {
1627 Error *err = NULL;
1628 QemuOpts *opts;
1629 Object *obj = NULL;
1630
1631 opts = qemu_opts_from_qdict(qemu_find_opts("object"), qdict, &err);
1632 if (err) {
1633 goto end;
1634 }
1635
1636 obj = user_creatable_add_opts(opts, &err);
1637 qemu_opts_del(opts);
1638
1639 end:
1640 hmp_handle_error(mon, err);
1641
1642 if (obj) {
1643 object_unref(obj);
1644 }
1645 }
1646
1647 void hmp_getfd(Monitor *mon, const QDict *qdict)
1648 {
1649 const char *fdname = qdict_get_str(qdict, "fdname");
1650 Error *err = NULL;
1651
1652 qmp_getfd(fdname, &err);
1653 hmp_handle_error(mon, err);
1654 }
1655
1656 void hmp_closefd(Monitor *mon, const QDict *qdict)
1657 {
1658 const char *fdname = qdict_get_str(qdict, "fdname");
1659 Error *err = NULL;
1660
1661 qmp_closefd(fdname, &err);
1662 hmp_handle_error(mon, err);
1663 }
1664
1665 void hmp_sendkey(Monitor *mon, const QDict *qdict)
1666 {
1667 const char *keys = qdict_get_str(qdict, "keys");
1668 KeyValueList *keylist, *head = NULL, *tmp = NULL;
1669 int has_hold_time = qdict_haskey(qdict, "hold-time");
1670 int hold_time = qdict_get_try_int(qdict, "hold-time", -1);
1671 Error *err = NULL;
1672 const char *separator;
1673 int keyname_len;
1674
1675 while (1) {
1676 separator = qemu_strchrnul(keys, '-');
1677 keyname_len = separator - keys;
1678
1679 /* Be compatible with old interface, convert user inputted "<" */
1680 if (keys[0] == '<' && keyname_len == 1) {
1681 keys = "less";
1682 keyname_len = 4;
1683 }
1684
1685 keylist = g_malloc0(sizeof(*keylist));
1686 keylist->value = g_malloc0(sizeof(*keylist->value));
1687
1688 if (!head) {
1689 head = keylist;
1690 }
1691 if (tmp) {
1692 tmp->next = keylist;
1693 }
1694 tmp = keylist;
1695
1696 if (strstart(keys, "0x", NULL)) {
1697 char *endp;
1698 int value = strtoul(keys, &endp, 0);
1699 assert(endp <= keys + keyname_len);
1700 if (endp != keys + keyname_len) {
1701 goto err_out;
1702 }
1703 keylist->value->type = KEY_VALUE_KIND_NUMBER;
1704 keylist->value->u.number.data = value;
1705 } else {
1706 int idx = index_from_key(keys, keyname_len);
1707 if (idx == Q_KEY_CODE__MAX) {
1708 goto err_out;
1709 }
1710 keylist->value->type = KEY_VALUE_KIND_QCODE;
1711 keylist->value->u.qcode.data = idx;
1712 }
1713
1714 if (!*separator) {
1715 break;
1716 }
1717 keys = separator + 1;
1718 }
1719
1720 qmp_send_key(head, has_hold_time, hold_time, &err);
1721 hmp_handle_error(mon, err);
1722
1723 out:
1724 qapi_free_KeyValueList(head);
1725 return;
1726
1727 err_out:
1728 monitor_printf(mon, "invalid parameter: %.*s\n", keyname_len, keys);
1729 goto out;
1730 }
1731
1732 void hmp_screendump(Monitor *mon, const QDict *qdict)
1733 {
1734 const char *filename = qdict_get_str(qdict, "filename");
1735 const char *id = qdict_get_try_str(qdict, "device");
1736 int64_t head = qdict_get_try_int(qdict, "head", 0);
1737 Error *err = NULL;
1738
1739 qmp_screendump(filename, id != NULL, id, id != NULL, head, &err);
1740 hmp_handle_error(mon, err);
1741 }
1742
1743 void hmp_chardev_add(Monitor *mon, const QDict *qdict)
1744 {
1745 const char *args = qdict_get_str(qdict, "args");
1746 Error *err = NULL;
1747 QemuOpts *opts;
1748
1749 opts = qemu_opts_parse_noisily(qemu_find_opts("chardev"), args, true);
1750 if (opts == NULL) {
1751 error_setg(&err, "Parsing chardev args failed");
1752 } else {
1753 qemu_chr_new_from_opts(opts, NULL, &err);
1754 qemu_opts_del(opts);
1755 }
1756 hmp_handle_error(mon, err);
1757 }
1758
1759 void hmp_chardev_change(Monitor *mon, const QDict *qdict)
1760 {
1761 const char *args = qdict_get_str(qdict, "args");
1762 const char *id;
1763 Error *err = NULL;
1764 ChardevBackend *backend = NULL;
1765 ChardevReturn *ret = NULL;
1766 QemuOpts *opts = qemu_opts_parse_noisily(qemu_find_opts("chardev"), args,
1767 true);
1768 if (!opts) {
1769 error_setg(&err, "Parsing chardev args failed");
1770 goto end;
1771 }
1772
1773 id = qdict_get_str(qdict, "id");
1774 if (qemu_opts_id(opts)) {
1775 error_setg(&err, "Unexpected 'id' parameter");
1776 goto end;
1777 }
1778
1779 backend = qemu_chr_parse_opts(opts, &err);
1780 if (!backend) {
1781 goto end;
1782 }
1783
1784 ret = qmp_chardev_change(id, backend, &err);
1785
1786 end:
1787 qapi_free_ChardevReturn(ret);
1788 qapi_free_ChardevBackend(backend);
1789 qemu_opts_del(opts);
1790 hmp_handle_error(mon, err);
1791 }
1792
1793 void hmp_chardev_remove(Monitor *mon, const QDict *qdict)
1794 {
1795 Error *local_err = NULL;
1796
1797 qmp_chardev_remove(qdict_get_str(qdict, "id"), &local_err);
1798 hmp_handle_error(mon, local_err);
1799 }
1800
1801 void hmp_chardev_send_break(Monitor *mon, const QDict *qdict)
1802 {
1803 Error *local_err = NULL;
1804
1805 qmp_chardev_send_break(qdict_get_str(qdict, "id"), &local_err);
1806 hmp_handle_error(mon, local_err);
1807 }
1808
1809 void hmp_object_del(Monitor *mon, const QDict *qdict)
1810 {
1811 const char *id = qdict_get_str(qdict, "id");
1812 Error *err = NULL;
1813
1814 user_creatable_del(id, &err);
1815 hmp_handle_error(mon, err);
1816 }
1817
1818 void hmp_info_memory_devices(Monitor *mon, const QDict *qdict)
1819 {
1820 Error *err = NULL;
1821 MemoryDeviceInfoList *info_list = qmp_query_memory_devices(&err);
1822 MemoryDeviceInfoList *info;
1823 VirtioPMEMDeviceInfo *vpi;
1824 MemoryDeviceInfo *value;
1825 PCDIMMDeviceInfo *di;
1826
1827 for (info = info_list; info; info = info->next) {
1828 value = info->value;
1829
1830 if (value) {
1831 switch (value->type) {
1832 case MEMORY_DEVICE_INFO_KIND_DIMM:
1833 case MEMORY_DEVICE_INFO_KIND_NVDIMM:
1834 di = value->type == MEMORY_DEVICE_INFO_KIND_DIMM ?
1835 value->u.dimm.data : value->u.nvdimm.data;
1836 monitor_printf(mon, "Memory device [%s]: \"%s\"\n",
1837 MemoryDeviceInfoKind_str(value->type),
1838 di->id ? di->id : "");
1839 monitor_printf(mon, " addr: 0x%" PRIx64 "\n", di->addr);
1840 monitor_printf(mon, " slot: %" PRId64 "\n", di->slot);
1841 monitor_printf(mon, " node: %" PRId64 "\n", di->node);
1842 monitor_printf(mon, " size: %" PRIu64 "\n", di->size);
1843 monitor_printf(mon, " memdev: %s\n", di->memdev);
1844 monitor_printf(mon, " hotplugged: %s\n",
1845 di->hotplugged ? "true" : "false");
1846 monitor_printf(mon, " hotpluggable: %s\n",
1847 di->hotpluggable ? "true" : "false");
1848 break;
1849 case MEMORY_DEVICE_INFO_KIND_VIRTIO_PMEM:
1850 vpi = value->u.virtio_pmem.data;
1851 monitor_printf(mon, "Memory device [%s]: \"%s\"\n",
1852 MemoryDeviceInfoKind_str(value->type),
1853 vpi->id ? vpi->id : "");
1854 monitor_printf(mon, " memaddr: 0x%" PRIx64 "\n", vpi->memaddr);
1855 monitor_printf(mon, " size: %" PRIu64 "\n", vpi->size);
1856 monitor_printf(mon, " memdev: %s\n", vpi->memdev);
1857 break;
1858 default:
1859 g_assert_not_reached();
1860 }
1861 }
1862 }
1863
1864 qapi_free_MemoryDeviceInfoList(info_list);
1865 hmp_handle_error(mon, err);
1866 }
1867
1868 void hmp_info_iothreads(Monitor *mon, const QDict *qdict)
1869 {
1870 IOThreadInfoList *info_list = qmp_query_iothreads(NULL);
1871 IOThreadInfoList *info;
1872 IOThreadInfo *value;
1873
1874 for (info = info_list; info; info = info->next) {
1875 value = info->value;
1876 monitor_printf(mon, "%s:\n", value->id);
1877 monitor_printf(mon, " thread_id=%" PRId64 "\n", value->thread_id);
1878 monitor_printf(mon, " poll-max-ns=%" PRId64 "\n", value->poll_max_ns);
1879 monitor_printf(mon, " poll-grow=%" PRId64 "\n", value->poll_grow);
1880 monitor_printf(mon, " poll-shrink=%" PRId64 "\n", value->poll_shrink);
1881 }
1882
1883 qapi_free_IOThreadInfoList(info_list);
1884 }
1885
1886 void hmp_rocker(Monitor *mon, const QDict *qdict)
1887 {
1888 const char *name = qdict_get_str(qdict, "name");
1889 RockerSwitch *rocker;
1890 Error *err = NULL;
1891
1892 rocker = qmp_query_rocker(name, &err);
1893 if (err != NULL) {
1894 hmp_handle_error(mon, err);
1895 return;
1896 }
1897
1898 monitor_printf(mon, "name: %s\n", rocker->name);
1899 monitor_printf(mon, "id: 0x%" PRIx64 "\n", rocker->id);
1900 monitor_printf(mon, "ports: %d\n", rocker->ports);
1901
1902 qapi_free_RockerSwitch(rocker);
1903 }
1904
1905 void hmp_rocker_ports(Monitor *mon, const QDict *qdict)
1906 {
1907 RockerPortList *list, *port;
1908 const char *name = qdict_get_str(qdict, "name");
1909 Error *err = NULL;
1910
1911 list = qmp_query_rocker_ports(name, &err);
1912 if (err != NULL) {
1913 hmp_handle_error(mon, err);
1914 return;
1915 }
1916
1917 monitor_printf(mon, " ena/ speed/ auto\n");
1918 monitor_printf(mon, " port link duplex neg?\n");
1919
1920 for (port = list; port; port = port->next) {
1921 monitor_printf(mon, "%10s %-4s %-3s %2s %-3s\n",
1922 port->value->name,
1923 port->value->enabled ? port->value->link_up ?
1924 "up" : "down" : "!ena",
1925 port->value->speed == 10000 ? "10G" : "??",
1926 port->value->duplex ? "FD" : "HD",
1927 port->value->autoneg ? "Yes" : "No");
1928 }
1929
1930 qapi_free_RockerPortList(list);
1931 }
1932
1933 void hmp_rocker_of_dpa_flows(Monitor *mon, const QDict *qdict)
1934 {
1935 RockerOfDpaFlowList *list, *info;
1936 const char *name = qdict_get_str(qdict, "name");
1937 uint32_t tbl_id = qdict_get_try_int(qdict, "tbl_id", -1);
1938 Error *err = NULL;
1939
1940 list = qmp_query_rocker_of_dpa_flows(name, tbl_id != -1, tbl_id, &err);
1941 if (err != NULL) {
1942 hmp_handle_error(mon, err);
1943 return;
1944 }
1945
1946 monitor_printf(mon, "prio tbl hits key(mask) --> actions\n");
1947
1948 for (info = list; info; info = info->next) {
1949 RockerOfDpaFlow *flow = info->value;
1950 RockerOfDpaFlowKey *key = flow->key;
1951 RockerOfDpaFlowMask *mask = flow->mask;
1952 RockerOfDpaFlowAction *action = flow->action;
1953
1954 if (flow->hits) {
1955 monitor_printf(mon, "%-4d %-3d %-4" PRIu64,
1956 key->priority, key->tbl_id, flow->hits);
1957 } else {
1958 monitor_printf(mon, "%-4d %-3d ",
1959 key->priority, key->tbl_id);
1960 }
1961
1962 if (key->has_in_pport) {
1963 monitor_printf(mon, " pport %d", key->in_pport);
1964 if (mask->has_in_pport) {
1965 monitor_printf(mon, "(0x%x)", mask->in_pport);
1966 }
1967 }
1968
1969 if (key->has_vlan_id) {
1970 monitor_printf(mon, " vlan %d",
1971 key->vlan_id & VLAN_VID_MASK);
1972 if (mask->has_vlan_id) {
1973 monitor_printf(mon, "(0x%x)", mask->vlan_id);
1974 }
1975 }
1976
1977 if (key->has_tunnel_id) {
1978 monitor_printf(mon, " tunnel %d", key->tunnel_id);
1979 if (mask->has_tunnel_id) {
1980 monitor_printf(mon, "(0x%x)", mask->tunnel_id);
1981 }
1982 }
1983
1984 if (key->has_eth_type) {
1985 switch (key->eth_type) {
1986 case 0x0806:
1987 monitor_printf(mon, " ARP");
1988 break;
1989 case 0x0800:
1990 monitor_printf(mon, " IP");
1991 break;
1992 case 0x86dd:
1993 monitor_printf(mon, " IPv6");
1994 break;
1995 case 0x8809:
1996 monitor_printf(mon, " LACP");
1997 break;
1998 case 0x88cc:
1999 monitor_printf(mon, " LLDP");
2000 break;
2001 default:
2002 monitor_printf(mon, " eth type 0x%04x", key->eth_type);
2003 break;
2004 }
2005 }
2006
2007 if (key->has_eth_src) {
2008 if ((strcmp(key->eth_src, "01:00:00:00:00:00") == 0) &&
2009 (mask->has_eth_src) &&
2010 (strcmp(mask->eth_src, "01:00:00:00:00:00") == 0)) {
2011 monitor_printf(mon, " src <any mcast/bcast>");
2012 } else if ((strcmp(key->eth_src, "00:00:00:00:00:00") == 0) &&
2013 (mask->has_eth_src) &&
2014 (strcmp(mask->eth_src, "01:00:00:00:00:00") == 0)) {
2015 monitor_printf(mon, " src <any ucast>");
2016 } else {
2017 monitor_printf(mon, " src %s", key->eth_src);
2018 if (mask->has_eth_src) {
2019 monitor_printf(mon, "(%s)", mask->eth_src);
2020 }
2021 }
2022 }
2023
2024 if (key->has_eth_dst) {
2025 if ((strcmp(key->eth_dst, "01:00:00:00:00:00") == 0) &&
2026 (mask->has_eth_dst) &&
2027 (strcmp(mask->eth_dst, "01:00:00:00:00:00") == 0)) {
2028 monitor_printf(mon, " dst <any mcast/bcast>");
2029 } else if ((strcmp(key->eth_dst, "00:00:00:00:00:00") == 0) &&
2030 (mask->has_eth_dst) &&
2031 (strcmp(mask->eth_dst, "01:00:00:00:00:00") == 0)) {
2032 monitor_printf(mon, " dst <any ucast>");
2033 } else {
2034 monitor_printf(mon, " dst %s", key->eth_dst);
2035 if (mask->has_eth_dst) {
2036 monitor_printf(mon, "(%s)", mask->eth_dst);
2037 }
2038 }
2039 }
2040
2041 if (key->has_ip_proto) {
2042 monitor_printf(mon, " proto %d", key->ip_proto);
2043 if (mask->has_ip_proto) {
2044 monitor_printf(mon, "(0x%x)", mask->ip_proto);
2045 }
2046 }
2047
2048 if (key->has_ip_tos) {
2049 monitor_printf(mon, " TOS %d", key->ip_tos);
2050 if (mask->has_ip_tos) {
2051 monitor_printf(mon, "(0x%x)", mask->ip_tos);
2052 }
2053 }
2054
2055 if (key->has_ip_dst) {
2056 monitor_printf(mon, " dst %s", key->ip_dst);
2057 }
2058
2059 if (action->has_goto_tbl || action->has_group_id ||
2060 action->has_new_vlan_id) {
2061 monitor_printf(mon, " -->");
2062 }
2063
2064 if (action->has_new_vlan_id) {
2065 monitor_printf(mon, " apply new vlan %d",
2066 ntohs(action->new_vlan_id));
2067 }
2068
2069 if (action->has_group_id) {
2070 monitor_printf(mon, " write group 0x%08x", action->group_id);
2071 }
2072
2073 if (action->has_goto_tbl) {
2074 monitor_printf(mon, " goto tbl %d", action->goto_tbl);
2075 }
2076
2077 monitor_printf(mon, "\n");
2078 }
2079
2080 qapi_free_RockerOfDpaFlowList(list);
2081 }
2082
2083 void hmp_rocker_of_dpa_groups(Monitor *mon, const QDict *qdict)
2084 {
2085 RockerOfDpaGroupList *list, *g;
2086 const char *name = qdict_get_str(qdict, "name");
2087 uint8_t type = qdict_get_try_int(qdict, "type", 9);
2088 Error *err = NULL;
2089
2090 list = qmp_query_rocker_of_dpa_groups(name, type != 9, type, &err);
2091 if (err != NULL) {
2092 hmp_handle_error(mon, err);
2093 return;
2094 }
2095
2096 monitor_printf(mon, "id (decode) --> buckets\n");
2097
2098 for (g = list; g; g = g->next) {
2099 RockerOfDpaGroup *group = g->value;
2100 bool set = false;
2101
2102 monitor_printf(mon, "0x%08x", group->id);
2103
2104 monitor_printf(mon, " (type %s", group->type == 0 ? "L2 interface" :
2105 group->type == 1 ? "L2 rewrite" :
2106 group->type == 2 ? "L3 unicast" :
2107 group->type == 3 ? "L2 multicast" :
2108 group->type == 4 ? "L2 flood" :
2109 group->type == 5 ? "L3 interface" :
2110 group->type == 6 ? "L3 multicast" :
2111 group->type == 7 ? "L3 ECMP" :
2112 group->type == 8 ? "L2 overlay" :
2113 "unknown");
2114
2115 if (group->has_vlan_id) {
2116 monitor_printf(mon, " vlan %d", group->vlan_id);
2117 }
2118
2119 if (group->has_pport) {
2120 monitor_printf(mon, " pport %d", group->pport);
2121 }
2122
2123 if (group->has_index) {
2124 monitor_printf(mon, " index %d", group->index);
2125 }
2126
2127 monitor_printf(mon, ") -->");
2128
2129 if (group->has_set_vlan_id && group->set_vlan_id) {
2130 set = true;
2131 monitor_printf(mon, " set vlan %d",
2132 group->set_vlan_id & VLAN_VID_MASK);
2133 }
2134
2135 if (group->has_set_eth_src) {
2136 if (!set) {
2137 set = true;
2138 monitor_printf(mon, " set");
2139 }
2140 monitor_printf(mon, " src %s", group->set_eth_src);
2141 }
2142
2143 if (group->has_set_eth_dst) {
2144 if (!set) {
2145 monitor_printf(mon, " set");
2146 }
2147 monitor_printf(mon, " dst %s", group->set_eth_dst);
2148 }
2149
2150 if (group->has_ttl_check && group->ttl_check) {
2151 monitor_printf(mon, " check TTL");
2152 }
2153
2154 if (group->has_group_id && group->group_id) {
2155 monitor_printf(mon, " group id 0x%08x", group->group_id);
2156 }
2157
2158 if (group->has_pop_vlan && group->pop_vlan) {
2159 monitor_printf(mon, " pop vlan");
2160 }
2161
2162 if (group->has_out_pport) {
2163 monitor_printf(mon, " out pport %d", group->out_pport);
2164 }
2165
2166 if (group->has_group_ids) {
2167 struct uint32List *id;
2168
2169 monitor_printf(mon, " groups [");
2170 for (id = group->group_ids; id; id = id->next) {
2171 monitor_printf(mon, "0x%08x", id->value);
2172 if (id->next) {
2173 monitor_printf(mon, ",");
2174 }
2175 }
2176 monitor_printf(mon, "]");
2177 }
2178
2179 monitor_printf(mon, "\n");
2180 }
2181
2182 qapi_free_RockerOfDpaGroupList(list);
2183 }
2184
2185 void hmp_info_ramblock(Monitor *mon, const QDict *qdict)
2186 {
2187 ram_block_dump(mon);
2188 }
2189
2190 void hmp_info_vm_generation_id(Monitor *mon, const QDict *qdict)
2191 {
2192 Error *err = NULL;
2193 GuidInfo *info = qmp_query_vm_generation_id(&err);
2194 if (info) {
2195 monitor_printf(mon, "%s\n", info->guid);
2196 }
2197 hmp_handle_error(mon, err);
2198 qapi_free_GuidInfo(info);
2199 }
2200
2201 void hmp_info_memory_size_summary(Monitor *mon, const QDict *qdict)
2202 {
2203 Error *err = NULL;
2204 MemoryInfo *info = qmp_query_memory_size_summary(&err);
2205 if (info) {
2206 monitor_printf(mon, "base memory: %" PRIu64 "\n",
2207 info->base_memory);
2208
2209 if (info->has_plugged_memory) {
2210 monitor_printf(mon, "plugged memory: %" PRIu64 "\n",
2211 info->plugged_memory);
2212 }
2213
2214 qapi_free_MemoryInfo(info);
2215 }
2216 hmp_handle_error(mon, err);
2217 }