Merge branch 'upstream-merge'
[qemu-kvm.git] / monitor.c
blobf07351092851ee923165e5a4394df531e3ddf064
1 /*
2 * QEMU monitor
4 * Copyright (c) 2003-2004 Fabrice Bellard
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to deal
8 * in the Software without restriction, including without limitation the rights
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 * copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22 * THE SOFTWARE.
24 #include <dirent.h>
25 #include "hw/hw.h"
26 #include "hw/qdev.h"
27 #include "hw/usb.h"
28 #include "hw/pcmcia.h"
29 #include "hw/pc.h"
30 #include "hw/pci.h"
31 #include "hw/watchdog.h"
32 #include "hw/loader.h"
33 #include "gdbstub.h"
34 #include "net.h"
35 #include "net/slirp.h"
36 #include "qemu-char.h"
37 #include "ui/qemu-spice.h"
38 #include "sysemu.h"
39 #include "monitor.h"
40 #include "readline.h"
41 #include "console.h"
42 #include "blockdev.h"
43 #include "audio/audio.h"
44 #include "disas.h"
45 #include "balloon.h"
46 #include "qemu-timer.h"
47 #include "migration.h"
48 #include "kvm.h"
49 #include "acl.h"
50 #include "qint.h"
51 #include "qfloat.h"
52 #include "qlist.h"
53 #include "qbool.h"
54 #include "qstring.h"
55 #include "qjson.h"
56 #include "json-streamer.h"
57 #include "json-parser.h"
58 #include "osdep.h"
59 #include "cpu.h"
60 #include "trace.h"
61 #include "trace/control.h"
62 #ifdef CONFIG_TRACE_SIMPLE
63 #include "trace/simple.h"
64 #endif
65 #include "ui/qemu-spice.h"
66 #include "memory.h"
67 #include "qmp-commands.h"
68 #include "hmp.h"
69 #include "qemu-thread.h"
71 /* for pic/irq_info */
72 #if defined(TARGET_SPARC)
73 #include "hw/sun4m.h"
74 #endif
75 #include "hw/lm32_pic.h"
77 //#define DEBUG
78 //#define DEBUG_COMPLETION
81 * Supported types:
83 * 'F' filename
84 * 'B' block device name
85 * 's' string (accept optional quote)
86 * 'O' option string of the form NAME=VALUE,...
87 * parsed according to QemuOptsList given by its name
88 * Example: 'device:O' uses qemu_device_opts.
89 * Restriction: only lists with empty desc are supported
90 * TODO lift the restriction
91 * 'i' 32 bit integer
92 * 'l' target long (32 or 64 bit)
93 * 'M' Non-negative target long (32 or 64 bit), in user mode the
94 * value is multiplied by 2^20 (think Mebibyte)
95 * 'o' octets (aka bytes)
96 * user mode accepts an optional T, t, G, g, M, m, K, k
97 * suffix, which multiplies the value by 2^40 for
98 * suffixes T and t, 2^30 for suffixes G and g, 2^20 for
99 * M and m, 2^10 for K and k
100 * 'T' double
101 * user mode accepts an optional ms, us, ns suffix,
102 * which divides the value by 1e3, 1e6, 1e9, respectively
103 * '/' optional gdb-like print format (like "/10x")
105 * '?' optional type (for all types, except '/')
106 * '.' other form of optional type (for 'i' and 'l')
107 * 'b' boolean
108 * user mode accepts "on" or "off"
109 * '-' optional parameter (eg. '-f')
113 typedef struct MonitorCompletionData MonitorCompletionData;
114 struct MonitorCompletionData {
115 Monitor *mon;
116 void (*user_print)(Monitor *mon, const QObject *data);
119 typedef struct mon_cmd_t {
120 const char *name;
121 const char *args_type;
122 const char *params;
123 const char *help;
124 void (*user_print)(Monitor *mon, const QObject *data);
125 union {
126 void (*info)(Monitor *mon);
127 void (*cmd)(Monitor *mon, const QDict *qdict);
128 int (*cmd_new)(Monitor *mon, const QDict *params, QObject **ret_data);
129 int (*cmd_async)(Monitor *mon, const QDict *params,
130 MonitorCompletion *cb, void *opaque);
131 } mhandler;
132 int flags;
133 } mon_cmd_t;
135 /* file descriptors passed via SCM_RIGHTS */
136 typedef struct mon_fd_t mon_fd_t;
137 struct mon_fd_t {
138 char *name;
139 int fd;
140 QLIST_ENTRY(mon_fd_t) next;
143 /* file descriptor associated with a file descriptor set */
144 typedef struct MonFdsetFd MonFdsetFd;
145 struct MonFdsetFd {
146 int fd;
147 bool removed;
148 char *opaque;
149 QLIST_ENTRY(MonFdsetFd) next;
152 /* file descriptor set containing fds passed via SCM_RIGHTS */
153 typedef struct MonFdset MonFdset;
154 struct MonFdset {
155 int64_t id;
156 QLIST_HEAD(, MonFdsetFd) fds;
157 QLIST_HEAD(, MonFdsetFd) dup_fds;
158 QLIST_ENTRY(MonFdset) next;
161 typedef struct MonitorControl {
162 QObject *id;
163 JSONMessageParser parser;
164 int command_mode;
165 } MonitorControl;
168 * To prevent flooding clients, events can be throttled. The
169 * throttling is calculated globally, rather than per-Monitor
170 * instance.
172 typedef struct MonitorEventState {
173 MonitorEvent event; /* Event being tracked */
174 int64_t rate; /* Period over which to throttle. 0 to disable */
175 int64_t last; /* Time at which event was last emitted */
176 QEMUTimer *timer; /* Timer for handling delayed events */
177 QObject *data; /* Event pending delayed dispatch */
178 } MonitorEventState;
180 struct Monitor {
181 CharDriverState *chr;
182 int mux_out;
183 int reset_seen;
184 int flags;
185 int suspend_cnt;
186 uint8_t outbuf[1024];
187 int outbuf_index;
188 ReadLineState *rs;
189 MonitorControl *mc;
190 CPUArchState *mon_cpu;
191 BlockDriverCompletionFunc *password_completion_cb;
192 void *password_opaque;
193 QError *error;
194 QLIST_HEAD(,mon_fd_t) fds;
195 QLIST_ENTRY(Monitor) entry;
198 /* QMP checker flags */
199 #define QMP_ACCEPT_UNKNOWNS 1
201 static QLIST_HEAD(mon_list, Monitor) mon_list;
202 static QLIST_HEAD(mon_fdsets, MonFdset) mon_fdsets;
203 static int mon_refcount;
205 static mon_cmd_t mon_cmds[];
206 static mon_cmd_t info_cmds[];
208 static const mon_cmd_t qmp_cmds[];
210 Monitor *cur_mon;
211 Monitor *default_mon;
213 static void monitor_command_cb(Monitor *mon, const char *cmdline,
214 void *opaque);
216 static inline int qmp_cmd_mode(const Monitor *mon)
218 return (mon->mc ? mon->mc->command_mode : 0);
221 /* Return true if in control mode, false otherwise */
222 static inline int monitor_ctrl_mode(const Monitor *mon)
224 return (mon->flags & MONITOR_USE_CONTROL);
227 /* Return non-zero iff we have a current monitor, and it is in QMP mode. */
228 int monitor_cur_is_qmp(void)
230 return cur_mon && monitor_ctrl_mode(cur_mon);
233 void monitor_read_command(Monitor *mon, int show_prompt)
235 if (!mon->rs)
236 return;
238 readline_start(mon->rs, "(qemu) ", 0, monitor_command_cb, NULL);
239 if (show_prompt)
240 readline_show_prompt(mon->rs);
243 int monitor_read_password(Monitor *mon, ReadLineFunc *readline_func,
244 void *opaque)
246 if (monitor_ctrl_mode(mon)) {
247 qerror_report(QERR_MISSING_PARAMETER, "password");
248 return -EINVAL;
249 } else if (mon->rs) {
250 readline_start(mon->rs, "Password: ", 1, readline_func, opaque);
251 /* prompt is printed on return from the command handler */
252 return 0;
253 } else {
254 monitor_printf(mon, "terminal does not support password prompting\n");
255 return -ENOTTY;
259 void monitor_flush(Monitor *mon)
261 if (mon && mon->outbuf_index != 0 && !mon->mux_out) {
262 qemu_chr_fe_write(mon->chr, mon->outbuf, mon->outbuf_index);
263 mon->outbuf_index = 0;
267 /* flush at every end of line or if the buffer is full */
268 static void monitor_puts(Monitor *mon, const char *str)
270 char c;
272 for(;;) {
273 c = *str++;
274 if (c == '\0')
275 break;
276 if (c == '\n')
277 mon->outbuf[mon->outbuf_index++] = '\r';
278 mon->outbuf[mon->outbuf_index++] = c;
279 if (mon->outbuf_index >= (sizeof(mon->outbuf) - 1)
280 || c == '\n')
281 monitor_flush(mon);
285 void monitor_vprintf(Monitor *mon, const char *fmt, va_list ap)
287 char buf[4096];
289 if (!mon)
290 return;
292 if (monitor_ctrl_mode(mon)) {
293 return;
296 vsnprintf(buf, sizeof(buf), fmt, ap);
297 monitor_puts(mon, buf);
300 void monitor_printf(Monitor *mon, const char *fmt, ...)
302 va_list ap;
303 va_start(ap, fmt);
304 monitor_vprintf(mon, fmt, ap);
305 va_end(ap);
308 void monitor_print_filename(Monitor *mon, const char *filename)
310 int i;
312 for (i = 0; filename[i]; i++) {
313 switch (filename[i]) {
314 case ' ':
315 case '"':
316 case '\\':
317 monitor_printf(mon, "\\%c", filename[i]);
318 break;
319 case '\t':
320 monitor_printf(mon, "\\t");
321 break;
322 case '\r':
323 monitor_printf(mon, "\\r");
324 break;
325 case '\n':
326 monitor_printf(mon, "\\n");
327 break;
328 default:
329 monitor_printf(mon, "%c", filename[i]);
330 break;
335 static int GCC_FMT_ATTR(2, 3) monitor_fprintf(FILE *stream,
336 const char *fmt, ...)
338 va_list ap;
339 va_start(ap, fmt);
340 monitor_vprintf((Monitor *)stream, fmt, ap);
341 va_end(ap);
342 return 0;
345 static void monitor_user_noop(Monitor *mon, const QObject *data) { }
347 static inline int handler_is_qobject(const mon_cmd_t *cmd)
349 return cmd->user_print != NULL;
352 static inline bool handler_is_async(const mon_cmd_t *cmd)
354 return cmd->flags & MONITOR_CMD_ASYNC;
357 static inline int monitor_has_error(const Monitor *mon)
359 return mon->error != NULL;
362 static void monitor_json_emitter(Monitor *mon, const QObject *data)
364 QString *json;
366 json = mon->flags & MONITOR_USE_PRETTY ? qobject_to_json_pretty(data) :
367 qobject_to_json(data);
368 assert(json != NULL);
370 qstring_append_chr(json, '\n');
371 monitor_puts(mon, qstring_get_str(json));
373 QDECREF(json);
376 static QDict *build_qmp_error_dict(const QError *err)
378 QObject *obj;
380 obj = qobject_from_jsonf("{ 'error': { 'class': %s, 'desc': %p } }",
381 ErrorClass_lookup[err->err_class],
382 qerror_human(err));
384 return qobject_to_qdict(obj);
387 static void monitor_protocol_emitter(Monitor *mon, QObject *data)
389 QDict *qmp;
391 trace_monitor_protocol_emitter(mon);
393 if (!monitor_has_error(mon)) {
394 /* success response */
395 qmp = qdict_new();
396 if (data) {
397 qobject_incref(data);
398 qdict_put_obj(qmp, "return", data);
399 } else {
400 /* return an empty QDict by default */
401 qdict_put(qmp, "return", qdict_new());
403 } else {
404 /* error response */
405 qmp = build_qmp_error_dict(mon->error);
406 QDECREF(mon->error);
407 mon->error = NULL;
410 if (mon->mc->id) {
411 qdict_put_obj(qmp, "id", mon->mc->id);
412 mon->mc->id = NULL;
415 monitor_json_emitter(mon, QOBJECT(qmp));
416 QDECREF(qmp);
419 static void timestamp_put(QDict *qdict)
421 int err;
422 QObject *obj;
423 qemu_timeval tv;
425 err = qemu_gettimeofday(&tv);
426 if (err < 0)
427 return;
429 obj = qobject_from_jsonf("{ 'seconds': %" PRId64 ", "
430 "'microseconds': %" PRId64 " }",
431 (int64_t) tv.tv_sec, (int64_t) tv.tv_usec);
432 qdict_put_obj(qdict, "timestamp", obj);
436 static const char *monitor_event_names[] = {
437 [QEVENT_SHUTDOWN] = "SHUTDOWN",
438 [QEVENT_RESET] = "RESET",
439 [QEVENT_POWERDOWN] = "POWERDOWN",
440 [QEVENT_STOP] = "STOP",
441 [QEVENT_RESUME] = "RESUME",
442 [QEVENT_VNC_CONNECTED] = "VNC_CONNECTED",
443 [QEVENT_VNC_INITIALIZED] = "VNC_INITIALIZED",
444 [QEVENT_VNC_DISCONNECTED] = "VNC_DISCONNECTED",
445 [QEVENT_BLOCK_IO_ERROR] = "BLOCK_IO_ERROR",
446 [QEVENT_RTC_CHANGE] = "RTC_CHANGE",
447 [QEVENT_WATCHDOG] = "WATCHDOG",
448 [QEVENT_SPICE_CONNECTED] = "SPICE_CONNECTED",
449 [QEVENT_SPICE_INITIALIZED] = "SPICE_INITIALIZED",
450 [QEVENT_SPICE_DISCONNECTED] = "SPICE_DISCONNECTED",
451 [QEVENT_BLOCK_JOB_COMPLETED] = "BLOCK_JOB_COMPLETED",
452 [QEVENT_BLOCK_JOB_CANCELLED] = "BLOCK_JOB_CANCELLED",
453 [QEVENT_DEVICE_TRAY_MOVED] = "DEVICE_TRAY_MOVED",
454 [QEVENT_SUSPEND] = "SUSPEND",
455 [QEVENT_SUSPEND_DISK] = "SUSPEND_DISK",
456 [QEVENT_WAKEUP] = "WAKEUP",
457 [QEVENT_BALLOON_CHANGE] = "BALLOON_CHANGE",
459 QEMU_BUILD_BUG_ON(ARRAY_SIZE(monitor_event_names) != QEVENT_MAX)
461 MonitorEventState monitor_event_state[QEVENT_MAX];
462 QemuMutex monitor_event_state_lock;
465 * Emits the event to every monitor instance
467 static void
468 monitor_protocol_event_emit(MonitorEvent event,
469 QObject *data)
471 Monitor *mon;
473 trace_monitor_protocol_event_emit(event, data);
474 QLIST_FOREACH(mon, &mon_list, entry) {
475 if (monitor_ctrl_mode(mon) && qmp_cmd_mode(mon)) {
476 monitor_json_emitter(mon, data);
483 * Queue a new event for emission to Monitor instances,
484 * applying any rate limiting if required.
486 static void
487 monitor_protocol_event_queue(MonitorEvent event,
488 QObject *data)
490 MonitorEventState *evstate;
491 int64_t now = qemu_get_clock_ns(rt_clock);
492 assert(event < QEVENT_MAX);
494 qemu_mutex_lock(&monitor_event_state_lock);
495 evstate = &(monitor_event_state[event]);
496 trace_monitor_protocol_event_queue(event,
497 data,
498 evstate->rate,
499 evstate->last,
500 now);
502 /* Rate limit of 0 indicates no throttling */
503 if (!evstate->rate) {
504 monitor_protocol_event_emit(event, data);
505 evstate->last = now;
506 } else {
507 int64_t delta = now - evstate->last;
508 if (evstate->data ||
509 delta < evstate->rate) {
510 /* If there's an existing event pending, replace
511 * it with the new event, otherwise schedule a
512 * timer for delayed emission
514 if (evstate->data) {
515 qobject_decref(evstate->data);
516 } else {
517 int64_t then = evstate->last + evstate->rate;
518 qemu_mod_timer_ns(evstate->timer, then);
520 evstate->data = data;
521 qobject_incref(evstate->data);
522 } else {
523 monitor_protocol_event_emit(event, data);
524 evstate->last = now;
527 qemu_mutex_unlock(&monitor_event_state_lock);
532 * The callback invoked by QemuTimer when a delayed
533 * event is ready to be emitted
535 static void monitor_protocol_event_handler(void *opaque)
537 MonitorEventState *evstate = opaque;
538 int64_t now = qemu_get_clock_ns(rt_clock);
540 qemu_mutex_lock(&monitor_event_state_lock);
542 trace_monitor_protocol_event_handler(evstate->event,
543 evstate->data,
544 evstate->last,
545 now);
546 if (evstate->data) {
547 monitor_protocol_event_emit(evstate->event, evstate->data);
548 qobject_decref(evstate->data);
549 evstate->data = NULL;
551 evstate->last = now;
552 qemu_mutex_unlock(&monitor_event_state_lock);
557 * @event: the event ID to be limited
558 * @rate: the rate limit in milliseconds
560 * Sets a rate limit on a particular event, so no
561 * more than 1 event will be emitted within @rate
562 * milliseconds
564 static void
565 monitor_protocol_event_throttle(MonitorEvent event,
566 int64_t rate)
568 MonitorEventState *evstate;
569 assert(event < QEVENT_MAX);
571 evstate = &(monitor_event_state[event]);
573 trace_monitor_protocol_event_throttle(event, rate);
574 evstate->event = event;
575 evstate->rate = rate * SCALE_MS;
576 evstate->timer = qemu_new_timer(rt_clock,
577 SCALE_MS,
578 monitor_protocol_event_handler,
579 evstate);
580 evstate->last = 0;
581 evstate->data = NULL;
585 /* Global, one-time initializer to configure the rate limiting
586 * and initialize state */
587 static void monitor_protocol_event_init(void)
589 qemu_mutex_init(&monitor_event_state_lock);
590 /* Limit RTC & BALLOON events to 1 per second */
591 monitor_protocol_event_throttle(QEVENT_RTC_CHANGE, 1000);
592 monitor_protocol_event_throttle(QEVENT_BALLOON_CHANGE, 1000);
593 monitor_protocol_event_throttle(QEVENT_WATCHDOG, 1000);
597 * monitor_protocol_event(): Generate a Monitor event
599 * Event-specific data can be emitted through the (optional) 'data' parameter.
601 void monitor_protocol_event(MonitorEvent event, QObject *data)
603 QDict *qmp;
604 const char *event_name;
606 assert(event < QEVENT_MAX);
608 event_name = monitor_event_names[event];
609 assert(event_name != NULL);
611 qmp = qdict_new();
612 timestamp_put(qmp);
613 qdict_put(qmp, "event", qstring_from_str(event_name));
614 if (data) {
615 qobject_incref(data);
616 qdict_put_obj(qmp, "data", data);
619 trace_monitor_protocol_event(event, event_name, qmp);
620 monitor_protocol_event_queue(event, QOBJECT(qmp));
621 QDECREF(qmp);
624 static int do_qmp_capabilities(Monitor *mon, const QDict *params,
625 QObject **ret_data)
627 /* Will setup QMP capabilities in the future */
628 if (monitor_ctrl_mode(mon)) {
629 mon->mc->command_mode = 1;
632 return 0;
635 static void handle_user_command(Monitor *mon, const char *cmdline);
637 char *qmp_human_monitor_command(const char *command_line, bool has_cpu_index,
638 int64_t cpu_index, Error **errp)
640 char *output = NULL;
641 Monitor *old_mon, hmp;
642 CharDriverState mchar;
644 memset(&hmp, 0, sizeof(hmp));
645 qemu_chr_init_mem(&mchar);
646 hmp.chr = &mchar;
648 old_mon = cur_mon;
649 cur_mon = &hmp;
651 if (has_cpu_index) {
652 int ret = monitor_set_cpu(cpu_index);
653 if (ret < 0) {
654 cur_mon = old_mon;
655 error_set(errp, QERR_INVALID_PARAMETER_VALUE, "cpu-index",
656 "a CPU number");
657 goto out;
661 handle_user_command(&hmp, command_line);
662 cur_mon = old_mon;
664 if (qemu_chr_mem_osize(hmp.chr) > 0) {
665 QString *str = qemu_chr_mem_to_qs(hmp.chr);
666 output = g_strdup(qstring_get_str(str));
667 QDECREF(str);
668 } else {
669 output = g_strdup("");
672 out:
673 qemu_chr_close_mem(hmp.chr);
674 return output;
677 static int compare_cmd(const char *name, const char *list)
679 const char *p, *pstart;
680 int len;
681 len = strlen(name);
682 p = list;
683 for(;;) {
684 pstart = p;
685 p = strchr(p, '|');
686 if (!p)
687 p = pstart + strlen(pstart);
688 if ((p - pstart) == len && !memcmp(pstart, name, len))
689 return 1;
690 if (*p == '\0')
691 break;
692 p++;
694 return 0;
697 static void help_cmd_dump(Monitor *mon, const mon_cmd_t *cmds,
698 const char *prefix, const char *name)
700 const mon_cmd_t *cmd;
702 for(cmd = cmds; cmd->name != NULL; cmd++) {
703 if (!name || !strcmp(name, cmd->name))
704 monitor_printf(mon, "%s%s %s -- %s\n", prefix, cmd->name,
705 cmd->params, cmd->help);
709 static void help_cmd(Monitor *mon, const char *name)
711 if (name && !strcmp(name, "info")) {
712 help_cmd_dump(mon, info_cmds, "info ", NULL);
713 } else {
714 help_cmd_dump(mon, mon_cmds, "", name);
715 if (name && !strcmp(name, "log")) {
716 const CPULogItem *item;
717 monitor_printf(mon, "Log items (comma separated):\n");
718 monitor_printf(mon, "%-10s %s\n", "none", "remove all logs");
719 for(item = cpu_log_items; item->mask != 0; item++) {
720 monitor_printf(mon, "%-10s %s\n", item->name, item->help);
726 static void do_help_cmd(Monitor *mon, const QDict *qdict)
728 help_cmd(mon, qdict_get_try_str(qdict, "name"));
731 static void do_trace_event_set_state(Monitor *mon, const QDict *qdict)
733 const char *tp_name = qdict_get_str(qdict, "name");
734 bool new_state = qdict_get_bool(qdict, "option");
735 int ret = trace_event_set_state(tp_name, new_state);
737 if (!ret) {
738 monitor_printf(mon, "unknown event name \"%s\"\n", tp_name);
742 #ifdef CONFIG_TRACE_SIMPLE
743 static void do_trace_file(Monitor *mon, const QDict *qdict)
745 const char *op = qdict_get_try_str(qdict, "op");
746 const char *arg = qdict_get_try_str(qdict, "arg");
748 if (!op) {
749 st_print_trace_file_status((FILE *)mon, &monitor_fprintf);
750 } else if (!strcmp(op, "on")) {
751 st_set_trace_file_enabled(true);
752 } else if (!strcmp(op, "off")) {
753 st_set_trace_file_enabled(false);
754 } else if (!strcmp(op, "flush")) {
755 st_flush_trace_buffer();
756 } else if (!strcmp(op, "set")) {
757 if (arg) {
758 st_set_trace_file(arg);
760 } else {
761 monitor_printf(mon, "unexpected argument \"%s\"\n", op);
762 help_cmd(mon, "trace-file");
765 #endif
767 static void user_monitor_complete(void *opaque, QObject *ret_data)
769 MonitorCompletionData *data = (MonitorCompletionData *)opaque;
771 if (ret_data) {
772 data->user_print(data->mon, ret_data);
774 monitor_resume(data->mon);
775 g_free(data);
778 static void qmp_monitor_complete(void *opaque, QObject *ret_data)
780 monitor_protocol_emitter(opaque, ret_data);
783 static int qmp_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
784 const QDict *params)
786 return cmd->mhandler.cmd_async(mon, params, qmp_monitor_complete, mon);
789 static void user_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
790 const QDict *params)
792 int ret;
794 MonitorCompletionData *cb_data = g_malloc(sizeof(*cb_data));
795 cb_data->mon = mon;
796 cb_data->user_print = cmd->user_print;
797 monitor_suspend(mon);
798 ret = cmd->mhandler.cmd_async(mon, params,
799 user_monitor_complete, cb_data);
800 if (ret < 0) {
801 monitor_resume(mon);
802 g_free(cb_data);
806 static void do_info(Monitor *mon, const QDict *qdict)
808 const mon_cmd_t *cmd;
809 const char *item = qdict_get_try_str(qdict, "item");
811 if (!item) {
812 goto help;
815 for (cmd = info_cmds; cmd->name != NULL; cmd++) {
816 if (compare_cmd(item, cmd->name))
817 break;
820 if (cmd->name == NULL) {
821 goto help;
824 cmd->mhandler.info(mon);
825 return;
827 help:
828 help_cmd(mon, "info");
831 CommandInfoList *qmp_query_commands(Error **errp)
833 CommandInfoList *info, *cmd_list = NULL;
834 const mon_cmd_t *cmd;
836 for (cmd = qmp_cmds; cmd->name != NULL; cmd++) {
837 info = g_malloc0(sizeof(*info));
838 info->value = g_malloc0(sizeof(*info->value));
839 info->value->name = g_strdup(cmd->name);
841 info->next = cmd_list;
842 cmd_list = info;
845 return cmd_list;
848 EventInfoList *qmp_query_events(Error **errp)
850 EventInfoList *info, *ev_list = NULL;
851 MonitorEvent e;
853 for (e = 0 ; e < QEVENT_MAX ; e++) {
854 const char *event_name = monitor_event_names[e];
855 assert(event_name != NULL);
856 info = g_malloc0(sizeof(*info));
857 info->value = g_malloc0(sizeof(*info->value));
858 info->value->name = g_strdup(event_name);
860 info->next = ev_list;
861 ev_list = info;
864 return ev_list;
867 /* set the current CPU defined by the user */
868 int monitor_set_cpu(int cpu_index)
870 CPUArchState *env;
872 for(env = first_cpu; env != NULL; env = env->next_cpu) {
873 if (env->cpu_index == cpu_index) {
874 cur_mon->mon_cpu = env;
875 return 0;
878 return -1;
881 static CPUArchState *mon_get_cpu(void)
883 if (!cur_mon->mon_cpu) {
884 monitor_set_cpu(0);
886 cpu_synchronize_state(cur_mon->mon_cpu);
887 return cur_mon->mon_cpu;
890 int monitor_get_cpu_index(void)
892 return mon_get_cpu()->cpu_index;
895 static void do_info_registers(Monitor *mon)
897 CPUArchState *env;
898 env = mon_get_cpu();
899 #ifdef TARGET_I386
900 cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
901 X86_DUMP_FPU);
902 #else
903 cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
905 #endif
908 static void do_cpu_set_nr(Monitor *mon, const QDict *qdict)
910 int state, value;
911 const char *status;
913 status = qdict_get_str(qdict, "state");
914 value = qdict_get_int(qdict, "cpu");
916 if (!strcmp(status, "online"))
917 state = 1;
918 else if (!strcmp(status, "offline"))
919 state = 0;
920 else {
921 monitor_printf(mon, "invalid status: %s\n", status);
922 return;
924 #if defined(TARGET_I386) || defined(TARGET_X86_64)
925 qemu_system_cpu_hot_add(value, state);
926 #endif
929 static void do_info_jit(Monitor *mon)
931 dump_exec_info((FILE *)mon, monitor_fprintf);
934 static void do_info_history(Monitor *mon)
936 int i;
937 const char *str;
939 if (!mon->rs)
940 return;
941 i = 0;
942 for(;;) {
943 str = readline_get_history(mon->rs, i);
944 if (!str)
945 break;
946 monitor_printf(mon, "%d: '%s'\n", i, str);
947 i++;
951 #if defined(TARGET_PPC)
952 /* XXX: not implemented in other targets */
953 static void do_info_cpu_stats(Monitor *mon)
955 CPUArchState *env;
957 env = mon_get_cpu();
958 cpu_dump_statistics(env, (FILE *)mon, &monitor_fprintf, 0);
960 #endif
962 static void do_trace_print_events(Monitor *mon)
964 trace_print_events((FILE *)mon, &monitor_fprintf);
967 static int add_graphics_client(Monitor *mon, const QDict *qdict, QObject **ret_data)
969 const char *protocol = qdict_get_str(qdict, "protocol");
970 const char *fdname = qdict_get_str(qdict, "fdname");
971 CharDriverState *s;
973 if (strcmp(protocol, "spice") == 0) {
974 int fd = monitor_get_fd(mon, fdname);
975 int skipauth = qdict_get_try_bool(qdict, "skipauth", 0);
976 int tls = qdict_get_try_bool(qdict, "tls", 0);
977 if (!using_spice) {
978 /* correct one? spice isn't a device ,,, */
979 qerror_report(QERR_DEVICE_NOT_ACTIVE, "spice");
980 return -1;
982 if (qemu_spice_display_add_client(fd, skipauth, tls) < 0) {
983 close(fd);
985 return 0;
986 #ifdef CONFIG_VNC
987 } else if (strcmp(protocol, "vnc") == 0) {
988 int fd = monitor_get_fd(mon, fdname);
989 int skipauth = qdict_get_try_bool(qdict, "skipauth", 0);
990 vnc_display_add_client(NULL, fd, skipauth);
991 return 0;
992 #endif
993 } else if ((s = qemu_chr_find(protocol)) != NULL) {
994 int fd = monitor_get_fd(mon, fdname);
995 if (qemu_chr_add_client(s, fd) < 0) {
996 qerror_report(QERR_ADD_CLIENT_FAILED);
997 return -1;
999 return 0;
1002 qerror_report(QERR_INVALID_PARAMETER, "protocol");
1003 return -1;
1006 static int client_migrate_info(Monitor *mon, const QDict *qdict,
1007 MonitorCompletion cb, void *opaque)
1009 const char *protocol = qdict_get_str(qdict, "protocol");
1010 const char *hostname = qdict_get_str(qdict, "hostname");
1011 const char *subject = qdict_get_try_str(qdict, "cert-subject");
1012 int port = qdict_get_try_int(qdict, "port", -1);
1013 int tls_port = qdict_get_try_int(qdict, "tls-port", -1);
1014 int ret;
1016 if (strcmp(protocol, "spice") == 0) {
1017 if (!using_spice) {
1018 qerror_report(QERR_DEVICE_NOT_ACTIVE, "spice");
1019 return -1;
1022 if (port == -1 && tls_port == -1) {
1023 qerror_report(QERR_MISSING_PARAMETER, "port/tls-port");
1024 return -1;
1027 ret = qemu_spice_migrate_info(hostname, port, tls_port, subject,
1028 cb, opaque);
1029 if (ret != 0) {
1030 qerror_report(QERR_UNDEFINED_ERROR);
1031 return -1;
1033 return 0;
1036 qerror_report(QERR_INVALID_PARAMETER, "protocol");
1037 return -1;
1040 static int do_screen_dump(Monitor *mon, const QDict *qdict, QObject **ret_data)
1042 vga_hw_screen_dump(qdict_get_str(qdict, "filename"));
1043 return 0;
1046 static void do_logfile(Monitor *mon, const QDict *qdict)
1048 cpu_set_log_filename(qdict_get_str(qdict, "filename"));
1051 static void do_log(Monitor *mon, const QDict *qdict)
1053 int mask;
1054 const char *items = qdict_get_str(qdict, "items");
1056 if (!strcmp(items, "none")) {
1057 mask = 0;
1058 } else {
1059 mask = cpu_str_to_log_mask(items);
1060 if (!mask) {
1061 help_cmd(mon, "log");
1062 return;
1065 cpu_set_log(mask);
1068 static void do_singlestep(Monitor *mon, const QDict *qdict)
1070 const char *option = qdict_get_try_str(qdict, "option");
1071 if (!option || !strcmp(option, "on")) {
1072 singlestep = 1;
1073 } else if (!strcmp(option, "off")) {
1074 singlestep = 0;
1075 } else {
1076 monitor_printf(mon, "unexpected option %s\n", option);
1080 static void do_gdbserver(Monitor *mon, const QDict *qdict)
1082 const char *device = qdict_get_try_str(qdict, "device");
1083 if (!device)
1084 device = "tcp::" DEFAULT_GDBSTUB_PORT;
1085 if (gdbserver_start(device) < 0) {
1086 monitor_printf(mon, "Could not open gdbserver on device '%s'\n",
1087 device);
1088 } else if (strcmp(device, "none") == 0) {
1089 monitor_printf(mon, "Disabled gdbserver\n");
1090 } else {
1091 monitor_printf(mon, "Waiting for gdb connection on device '%s'\n",
1092 device);
1096 static void do_watchdog_action(Monitor *mon, const QDict *qdict)
1098 const char *action = qdict_get_str(qdict, "action");
1099 if (select_watchdog_action(action) == -1) {
1100 monitor_printf(mon, "Unknown watchdog action '%s'\n", action);
1104 static void monitor_printc(Monitor *mon, int c)
1106 monitor_printf(mon, "'");
1107 switch(c) {
1108 case '\'':
1109 monitor_printf(mon, "\\'");
1110 break;
1111 case '\\':
1112 monitor_printf(mon, "\\\\");
1113 break;
1114 case '\n':
1115 monitor_printf(mon, "\\n");
1116 break;
1117 case '\r':
1118 monitor_printf(mon, "\\r");
1119 break;
1120 default:
1121 if (c >= 32 && c <= 126) {
1122 monitor_printf(mon, "%c", c);
1123 } else {
1124 monitor_printf(mon, "\\x%02x", c);
1126 break;
1128 monitor_printf(mon, "'");
1131 static void memory_dump(Monitor *mon, int count, int format, int wsize,
1132 target_phys_addr_t addr, int is_physical)
1134 CPUArchState *env;
1135 int l, line_size, i, max_digits, len;
1136 uint8_t buf[16];
1137 uint64_t v;
1139 if (format == 'i') {
1140 int flags;
1141 flags = 0;
1142 env = mon_get_cpu();
1143 #ifdef TARGET_I386
1144 if (wsize == 2) {
1145 flags = 1;
1146 } else if (wsize == 4) {
1147 flags = 0;
1148 } else {
1149 /* as default we use the current CS size */
1150 flags = 0;
1151 if (env) {
1152 #ifdef TARGET_X86_64
1153 if ((env->efer & MSR_EFER_LMA) &&
1154 (env->segs[R_CS].flags & DESC_L_MASK))
1155 flags = 2;
1156 else
1157 #endif
1158 if (!(env->segs[R_CS].flags & DESC_B_MASK))
1159 flags = 1;
1162 #endif
1163 monitor_disas(mon, env, addr, count, is_physical, flags);
1164 return;
1167 len = wsize * count;
1168 if (wsize == 1)
1169 line_size = 8;
1170 else
1171 line_size = 16;
1172 max_digits = 0;
1174 switch(format) {
1175 case 'o':
1176 max_digits = (wsize * 8 + 2) / 3;
1177 break;
1178 default:
1179 case 'x':
1180 max_digits = (wsize * 8) / 4;
1181 break;
1182 case 'u':
1183 case 'd':
1184 max_digits = (wsize * 8 * 10 + 32) / 33;
1185 break;
1186 case 'c':
1187 wsize = 1;
1188 break;
1191 while (len > 0) {
1192 if (is_physical)
1193 monitor_printf(mon, TARGET_FMT_plx ":", addr);
1194 else
1195 monitor_printf(mon, TARGET_FMT_lx ":", (target_ulong)addr);
1196 l = len;
1197 if (l > line_size)
1198 l = line_size;
1199 if (is_physical) {
1200 cpu_physical_memory_read(addr, buf, l);
1201 } else {
1202 env = mon_get_cpu();
1203 if (cpu_memory_rw_debug(env, addr, buf, l, 0) < 0) {
1204 monitor_printf(mon, " Cannot access memory\n");
1205 break;
1208 i = 0;
1209 while (i < l) {
1210 switch(wsize) {
1211 default:
1212 case 1:
1213 v = ldub_raw(buf + i);
1214 break;
1215 case 2:
1216 v = lduw_raw(buf + i);
1217 break;
1218 case 4:
1219 v = (uint32_t)ldl_raw(buf + i);
1220 break;
1221 case 8:
1222 v = ldq_raw(buf + i);
1223 break;
1225 monitor_printf(mon, " ");
1226 switch(format) {
1227 case 'o':
1228 monitor_printf(mon, "%#*" PRIo64, max_digits, v);
1229 break;
1230 case 'x':
1231 monitor_printf(mon, "0x%0*" PRIx64, max_digits, v);
1232 break;
1233 case 'u':
1234 monitor_printf(mon, "%*" PRIu64, max_digits, v);
1235 break;
1236 case 'd':
1237 monitor_printf(mon, "%*" PRId64, max_digits, v);
1238 break;
1239 case 'c':
1240 monitor_printc(mon, v);
1241 break;
1243 i += wsize;
1245 monitor_printf(mon, "\n");
1246 addr += l;
1247 len -= l;
1251 static void do_memory_dump(Monitor *mon, const QDict *qdict)
1253 int count = qdict_get_int(qdict, "count");
1254 int format = qdict_get_int(qdict, "format");
1255 int size = qdict_get_int(qdict, "size");
1256 target_long addr = qdict_get_int(qdict, "addr");
1258 memory_dump(mon, count, format, size, addr, 0);
1261 static void do_physical_memory_dump(Monitor *mon, const QDict *qdict)
1263 int count = qdict_get_int(qdict, "count");
1264 int format = qdict_get_int(qdict, "format");
1265 int size = qdict_get_int(qdict, "size");
1266 target_phys_addr_t addr = qdict_get_int(qdict, "addr");
1268 memory_dump(mon, count, format, size, addr, 1);
1271 static void do_print(Monitor *mon, const QDict *qdict)
1273 int format = qdict_get_int(qdict, "format");
1274 target_phys_addr_t val = qdict_get_int(qdict, "val");
1276 switch(format) {
1277 case 'o':
1278 monitor_printf(mon, "%#" TARGET_PRIoPHYS, val);
1279 break;
1280 case 'x':
1281 monitor_printf(mon, "%#" TARGET_PRIxPHYS, val);
1282 break;
1283 case 'u':
1284 monitor_printf(mon, "%" TARGET_PRIuPHYS, val);
1285 break;
1286 default:
1287 case 'd':
1288 monitor_printf(mon, "%" TARGET_PRIdPHYS, val);
1289 break;
1290 case 'c':
1291 monitor_printc(mon, val);
1292 break;
1294 monitor_printf(mon, "\n");
1297 static void do_sum(Monitor *mon, const QDict *qdict)
1299 uint32_t addr;
1300 uint16_t sum;
1301 uint32_t start = qdict_get_int(qdict, "start");
1302 uint32_t size = qdict_get_int(qdict, "size");
1304 sum = 0;
1305 for(addr = start; addr < (start + size); addr++) {
1306 uint8_t val = ldub_phys(addr);
1307 /* BSD sum algorithm ('sum' Unix command) */
1308 sum = (sum >> 1) | (sum << 15);
1309 sum += val;
1311 monitor_printf(mon, "%05d\n", sum);
1314 typedef struct {
1315 int keycode;
1316 const char *name;
1317 } KeyDef;
1319 static const KeyDef key_defs[] = {
1320 { 0x2a, "shift" },
1321 { 0x36, "shift_r" },
1323 { 0x38, "alt" },
1324 { 0xb8, "alt_r" },
1325 { 0x64, "altgr" },
1326 { 0xe4, "altgr_r" },
1327 { 0x1d, "ctrl" },
1328 { 0x9d, "ctrl_r" },
1330 { 0xdd, "menu" },
1332 { 0x01, "esc" },
1334 { 0x02, "1" },
1335 { 0x03, "2" },
1336 { 0x04, "3" },
1337 { 0x05, "4" },
1338 { 0x06, "5" },
1339 { 0x07, "6" },
1340 { 0x08, "7" },
1341 { 0x09, "8" },
1342 { 0x0a, "9" },
1343 { 0x0b, "0" },
1344 { 0x0c, "minus" },
1345 { 0x0d, "equal" },
1346 { 0x0e, "backspace" },
1348 { 0x0f, "tab" },
1349 { 0x10, "q" },
1350 { 0x11, "w" },
1351 { 0x12, "e" },
1352 { 0x13, "r" },
1353 { 0x14, "t" },
1354 { 0x15, "y" },
1355 { 0x16, "u" },
1356 { 0x17, "i" },
1357 { 0x18, "o" },
1358 { 0x19, "p" },
1359 { 0x1a, "bracket_left" },
1360 { 0x1b, "bracket_right" },
1361 { 0x1c, "ret" },
1363 { 0x1e, "a" },
1364 { 0x1f, "s" },
1365 { 0x20, "d" },
1366 { 0x21, "f" },
1367 { 0x22, "g" },
1368 { 0x23, "h" },
1369 { 0x24, "j" },
1370 { 0x25, "k" },
1371 { 0x26, "l" },
1372 { 0x27, "semicolon" },
1373 { 0x28, "apostrophe" },
1374 { 0x29, "grave_accent" },
1376 { 0x2b, "backslash" },
1377 { 0x2c, "z" },
1378 { 0x2d, "x" },
1379 { 0x2e, "c" },
1380 { 0x2f, "v" },
1381 { 0x30, "b" },
1382 { 0x31, "n" },
1383 { 0x32, "m" },
1384 { 0x33, "comma" },
1385 { 0x34, "dot" },
1386 { 0x35, "slash" },
1388 { 0x37, "asterisk" },
1390 { 0x39, "spc" },
1391 { 0x3a, "caps_lock" },
1392 { 0x3b, "f1" },
1393 { 0x3c, "f2" },
1394 { 0x3d, "f3" },
1395 { 0x3e, "f4" },
1396 { 0x3f, "f5" },
1397 { 0x40, "f6" },
1398 { 0x41, "f7" },
1399 { 0x42, "f8" },
1400 { 0x43, "f9" },
1401 { 0x44, "f10" },
1402 { 0x45, "num_lock" },
1403 { 0x46, "scroll_lock" },
1405 { 0xb5, "kp_divide" },
1406 { 0x37, "kp_multiply" },
1407 { 0x4a, "kp_subtract" },
1408 { 0x4e, "kp_add" },
1409 { 0x9c, "kp_enter" },
1410 { 0x53, "kp_decimal" },
1411 { 0x54, "sysrq" },
1413 { 0x52, "kp_0" },
1414 { 0x4f, "kp_1" },
1415 { 0x50, "kp_2" },
1416 { 0x51, "kp_3" },
1417 { 0x4b, "kp_4" },
1418 { 0x4c, "kp_5" },
1419 { 0x4d, "kp_6" },
1420 { 0x47, "kp_7" },
1421 { 0x48, "kp_8" },
1422 { 0x49, "kp_9" },
1424 { 0x56, "<" },
1426 { 0x57, "f11" },
1427 { 0x58, "f12" },
1429 { 0xb7, "print" },
1431 { 0xc7, "home" },
1432 { 0xc9, "pgup" },
1433 { 0xd1, "pgdn" },
1434 { 0xcf, "end" },
1436 { 0xcb, "left" },
1437 { 0xc8, "up" },
1438 { 0xd0, "down" },
1439 { 0xcd, "right" },
1441 { 0xd2, "insert" },
1442 { 0xd3, "delete" },
1443 #if defined(TARGET_SPARC) && !defined(TARGET_SPARC64)
1444 { 0xf0, "stop" },
1445 { 0xf1, "again" },
1446 { 0xf2, "props" },
1447 { 0xf3, "undo" },
1448 { 0xf4, "front" },
1449 { 0xf5, "copy" },
1450 { 0xf6, "open" },
1451 { 0xf7, "paste" },
1452 { 0xf8, "find" },
1453 { 0xf9, "cut" },
1454 { 0xfa, "lf" },
1455 { 0xfb, "help" },
1456 { 0xfc, "meta_l" },
1457 { 0xfd, "meta_r" },
1458 { 0xfe, "compose" },
1459 #endif
1460 { 0, NULL },
1463 static int get_keycode(const char *key)
1465 const KeyDef *p;
1466 char *endp;
1467 int ret;
1469 for(p = key_defs; p->name != NULL; p++) {
1470 if (!strcmp(key, p->name))
1471 return p->keycode;
1473 if (strstart(key, "0x", NULL)) {
1474 ret = strtoul(key, &endp, 0);
1475 if (*endp == '\0' && ret >= 0x01 && ret <= 0xff)
1476 return ret;
1478 return -1;
1481 #define MAX_KEYCODES 16
1482 static uint8_t keycodes[MAX_KEYCODES];
1483 static int nb_pending_keycodes;
1484 static QEMUTimer *key_timer;
1486 static void release_keys(void *opaque)
1488 int keycode;
1490 while (nb_pending_keycodes > 0) {
1491 nb_pending_keycodes--;
1492 keycode = keycodes[nb_pending_keycodes];
1493 if (keycode & 0x80)
1494 kbd_put_keycode(0xe0);
1495 kbd_put_keycode(keycode | 0x80);
1499 static void do_sendkey(Monitor *mon, const QDict *qdict)
1501 char keyname_buf[16];
1502 char *separator;
1503 int keyname_len, keycode, i;
1504 const char *string = qdict_get_str(qdict, "string");
1505 int has_hold_time = qdict_haskey(qdict, "hold_time");
1506 int hold_time = qdict_get_try_int(qdict, "hold_time", -1);
1508 if (nb_pending_keycodes > 0) {
1509 qemu_del_timer(key_timer);
1510 release_keys(NULL);
1512 if (!has_hold_time)
1513 hold_time = 100;
1514 i = 0;
1515 while (1) {
1516 separator = strchr(string, '-');
1517 keyname_len = separator ? separator - string : strlen(string);
1518 if (keyname_len > 0) {
1519 pstrcpy(keyname_buf, sizeof(keyname_buf), string);
1520 if (keyname_len > sizeof(keyname_buf) - 1) {
1521 monitor_printf(mon, "invalid key: '%s...'\n", keyname_buf);
1522 return;
1524 if (i == MAX_KEYCODES) {
1525 monitor_printf(mon, "too many keys\n");
1526 return;
1528 keyname_buf[keyname_len] = 0;
1529 keycode = get_keycode(keyname_buf);
1530 if (keycode < 0) {
1531 monitor_printf(mon, "unknown key: '%s'\n", keyname_buf);
1532 return;
1534 keycodes[i++] = keycode;
1536 if (!separator)
1537 break;
1538 string = separator + 1;
1540 nb_pending_keycodes = i;
1541 /* key down events */
1542 for (i = 0; i < nb_pending_keycodes; i++) {
1543 keycode = keycodes[i];
1544 if (keycode & 0x80)
1545 kbd_put_keycode(0xe0);
1546 kbd_put_keycode(keycode & 0x7f);
1548 /* delayed key up events */
1549 qemu_mod_timer(key_timer, qemu_get_clock_ns(vm_clock) +
1550 muldiv64(get_ticks_per_sec(), hold_time, 1000));
1553 static int mouse_button_state;
1555 static void do_mouse_move(Monitor *mon, const QDict *qdict)
1557 int dx, dy, dz;
1558 const char *dx_str = qdict_get_str(qdict, "dx_str");
1559 const char *dy_str = qdict_get_str(qdict, "dy_str");
1560 const char *dz_str = qdict_get_try_str(qdict, "dz_str");
1561 dx = strtol(dx_str, NULL, 0);
1562 dy = strtol(dy_str, NULL, 0);
1563 dz = 0;
1564 if (dz_str)
1565 dz = strtol(dz_str, NULL, 0);
1566 kbd_mouse_event(dx, dy, dz, mouse_button_state);
1569 static void do_mouse_button(Monitor *mon, const QDict *qdict)
1571 int button_state = qdict_get_int(qdict, "button_state");
1572 mouse_button_state = button_state;
1573 kbd_mouse_event(0, 0, 0, mouse_button_state);
1576 static void do_ioport_read(Monitor *mon, const QDict *qdict)
1578 int size = qdict_get_int(qdict, "size");
1579 int addr = qdict_get_int(qdict, "addr");
1580 int has_index = qdict_haskey(qdict, "index");
1581 uint32_t val;
1582 int suffix;
1584 if (has_index) {
1585 int index = qdict_get_int(qdict, "index");
1586 cpu_outb(addr & IOPORTS_MASK, index & 0xff);
1587 addr++;
1589 addr &= 0xffff;
1591 switch(size) {
1592 default:
1593 case 1:
1594 val = cpu_inb(addr);
1595 suffix = 'b';
1596 break;
1597 case 2:
1598 val = cpu_inw(addr);
1599 suffix = 'w';
1600 break;
1601 case 4:
1602 val = cpu_inl(addr);
1603 suffix = 'l';
1604 break;
1606 monitor_printf(mon, "port%c[0x%04x] = %#0*x\n",
1607 suffix, addr, size * 2, val);
1610 static void do_ioport_write(Monitor *mon, const QDict *qdict)
1612 int size = qdict_get_int(qdict, "size");
1613 int addr = qdict_get_int(qdict, "addr");
1614 int val = qdict_get_int(qdict, "val");
1616 addr &= IOPORTS_MASK;
1618 switch (size) {
1619 default:
1620 case 1:
1621 cpu_outb(addr, val);
1622 break;
1623 case 2:
1624 cpu_outw(addr, val);
1625 break;
1626 case 4:
1627 cpu_outl(addr, val);
1628 break;
1632 static void do_boot_set(Monitor *mon, const QDict *qdict)
1634 int res;
1635 const char *bootdevice = qdict_get_str(qdict, "bootdevice");
1637 res = qemu_boot_set(bootdevice);
1638 if (res == 0) {
1639 monitor_printf(mon, "boot device list now set to %s\n", bootdevice);
1640 } else if (res > 0) {
1641 monitor_printf(mon, "setting boot device list failed\n");
1642 } else {
1643 monitor_printf(mon, "no function defined to set boot device list for "
1644 "this architecture\n");
1648 #if defined(TARGET_I386)
1649 static void print_pte(Monitor *mon, target_phys_addr_t addr,
1650 target_phys_addr_t pte,
1651 target_phys_addr_t mask)
1653 #ifdef TARGET_X86_64
1654 if (addr & (1ULL << 47)) {
1655 addr |= -1LL << 48;
1657 #endif
1658 monitor_printf(mon, TARGET_FMT_plx ": " TARGET_FMT_plx
1659 " %c%c%c%c%c%c%c%c%c\n",
1660 addr,
1661 pte & mask,
1662 pte & PG_NX_MASK ? 'X' : '-',
1663 pte & PG_GLOBAL_MASK ? 'G' : '-',
1664 pte & PG_PSE_MASK ? 'P' : '-',
1665 pte & PG_DIRTY_MASK ? 'D' : '-',
1666 pte & PG_ACCESSED_MASK ? 'A' : '-',
1667 pte & PG_PCD_MASK ? 'C' : '-',
1668 pte & PG_PWT_MASK ? 'T' : '-',
1669 pte & PG_USER_MASK ? 'U' : '-',
1670 pte & PG_RW_MASK ? 'W' : '-');
1673 static void tlb_info_32(Monitor *mon, CPUArchState *env)
1675 unsigned int l1, l2;
1676 uint32_t pgd, pde, pte;
1678 pgd = env->cr[3] & ~0xfff;
1679 for(l1 = 0; l1 < 1024; l1++) {
1680 cpu_physical_memory_read(pgd + l1 * 4, &pde, 4);
1681 pde = le32_to_cpu(pde);
1682 if (pde & PG_PRESENT_MASK) {
1683 if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1684 /* 4M pages */
1685 print_pte(mon, (l1 << 22), pde, ~((1 << 21) - 1));
1686 } else {
1687 for(l2 = 0; l2 < 1024; l2++) {
1688 cpu_physical_memory_read((pde & ~0xfff) + l2 * 4, &pte, 4);
1689 pte = le32_to_cpu(pte);
1690 if (pte & PG_PRESENT_MASK) {
1691 print_pte(mon, (l1 << 22) + (l2 << 12),
1692 pte & ~PG_PSE_MASK,
1693 ~0xfff);
1701 static void tlb_info_pae32(Monitor *mon, CPUArchState *env)
1703 unsigned int l1, l2, l3;
1704 uint64_t pdpe, pde, pte;
1705 uint64_t pdp_addr, pd_addr, pt_addr;
1707 pdp_addr = env->cr[3] & ~0x1f;
1708 for (l1 = 0; l1 < 4; l1++) {
1709 cpu_physical_memory_read(pdp_addr + l1 * 8, &pdpe, 8);
1710 pdpe = le64_to_cpu(pdpe);
1711 if (pdpe & PG_PRESENT_MASK) {
1712 pd_addr = pdpe & 0x3fffffffff000ULL;
1713 for (l2 = 0; l2 < 512; l2++) {
1714 cpu_physical_memory_read(pd_addr + l2 * 8, &pde, 8);
1715 pde = le64_to_cpu(pde);
1716 if (pde & PG_PRESENT_MASK) {
1717 if (pde & PG_PSE_MASK) {
1718 /* 2M pages with PAE, CR4.PSE is ignored */
1719 print_pte(mon, (l1 << 30 ) + (l2 << 21), pde,
1720 ~((target_phys_addr_t)(1 << 20) - 1));
1721 } else {
1722 pt_addr = pde & 0x3fffffffff000ULL;
1723 for (l3 = 0; l3 < 512; l3++) {
1724 cpu_physical_memory_read(pt_addr + l3 * 8, &pte, 8);
1725 pte = le64_to_cpu(pte);
1726 if (pte & PG_PRESENT_MASK) {
1727 print_pte(mon, (l1 << 30 ) + (l2 << 21)
1728 + (l3 << 12),
1729 pte & ~PG_PSE_MASK,
1730 ~(target_phys_addr_t)0xfff);
1740 #ifdef TARGET_X86_64
1741 static void tlb_info_64(Monitor *mon, CPUArchState *env)
1743 uint64_t l1, l2, l3, l4;
1744 uint64_t pml4e, pdpe, pde, pte;
1745 uint64_t pml4_addr, pdp_addr, pd_addr, pt_addr;
1747 pml4_addr = env->cr[3] & 0x3fffffffff000ULL;
1748 for (l1 = 0; l1 < 512; l1++) {
1749 cpu_physical_memory_read(pml4_addr + l1 * 8, &pml4e, 8);
1750 pml4e = le64_to_cpu(pml4e);
1751 if (pml4e & PG_PRESENT_MASK) {
1752 pdp_addr = pml4e & 0x3fffffffff000ULL;
1753 for (l2 = 0; l2 < 512; l2++) {
1754 cpu_physical_memory_read(pdp_addr + l2 * 8, &pdpe, 8);
1755 pdpe = le64_to_cpu(pdpe);
1756 if (pdpe & PG_PRESENT_MASK) {
1757 if (pdpe & PG_PSE_MASK) {
1758 /* 1G pages, CR4.PSE is ignored */
1759 print_pte(mon, (l1 << 39) + (l2 << 30), pdpe,
1760 0x3ffffc0000000ULL);
1761 } else {
1762 pd_addr = pdpe & 0x3fffffffff000ULL;
1763 for (l3 = 0; l3 < 512; l3++) {
1764 cpu_physical_memory_read(pd_addr + l3 * 8, &pde, 8);
1765 pde = le64_to_cpu(pde);
1766 if (pde & PG_PRESENT_MASK) {
1767 if (pde & PG_PSE_MASK) {
1768 /* 2M pages, CR4.PSE is ignored */
1769 print_pte(mon, (l1 << 39) + (l2 << 30) +
1770 (l3 << 21), pde,
1771 0x3ffffffe00000ULL);
1772 } else {
1773 pt_addr = pde & 0x3fffffffff000ULL;
1774 for (l4 = 0; l4 < 512; l4++) {
1775 cpu_physical_memory_read(pt_addr
1776 + l4 * 8,
1777 &pte, 8);
1778 pte = le64_to_cpu(pte);
1779 if (pte & PG_PRESENT_MASK) {
1780 print_pte(mon, (l1 << 39) +
1781 (l2 << 30) +
1782 (l3 << 21) + (l4 << 12),
1783 pte & ~PG_PSE_MASK,
1784 0x3fffffffff000ULL);
1796 #endif
1798 static void tlb_info(Monitor *mon)
1800 CPUArchState *env;
1802 env = mon_get_cpu();
1804 if (!(env->cr[0] & CR0_PG_MASK)) {
1805 monitor_printf(mon, "PG disabled\n");
1806 return;
1808 if (env->cr[4] & CR4_PAE_MASK) {
1809 #ifdef TARGET_X86_64
1810 if (env->hflags & HF_LMA_MASK) {
1811 tlb_info_64(mon, env);
1812 } else
1813 #endif
1815 tlb_info_pae32(mon, env);
1817 } else {
1818 tlb_info_32(mon, env);
1822 static void mem_print(Monitor *mon, target_phys_addr_t *pstart,
1823 int *plast_prot,
1824 target_phys_addr_t end, int prot)
1826 int prot1;
1827 prot1 = *plast_prot;
1828 if (prot != prot1) {
1829 if (*pstart != -1) {
1830 monitor_printf(mon, TARGET_FMT_plx "-" TARGET_FMT_plx " "
1831 TARGET_FMT_plx " %c%c%c\n",
1832 *pstart, end, end - *pstart,
1833 prot1 & PG_USER_MASK ? 'u' : '-',
1834 'r',
1835 prot1 & PG_RW_MASK ? 'w' : '-');
1837 if (prot != 0)
1838 *pstart = end;
1839 else
1840 *pstart = -1;
1841 *plast_prot = prot;
1845 static void mem_info_32(Monitor *mon, CPUArchState *env)
1847 unsigned int l1, l2;
1848 int prot, last_prot;
1849 uint32_t pgd, pde, pte;
1850 target_phys_addr_t start, end;
1852 pgd = env->cr[3] & ~0xfff;
1853 last_prot = 0;
1854 start = -1;
1855 for(l1 = 0; l1 < 1024; l1++) {
1856 cpu_physical_memory_read(pgd + l1 * 4, &pde, 4);
1857 pde = le32_to_cpu(pde);
1858 end = l1 << 22;
1859 if (pde & PG_PRESENT_MASK) {
1860 if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1861 prot = pde & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1862 mem_print(mon, &start, &last_prot, end, prot);
1863 } else {
1864 for(l2 = 0; l2 < 1024; l2++) {
1865 cpu_physical_memory_read((pde & ~0xfff) + l2 * 4, &pte, 4);
1866 pte = le32_to_cpu(pte);
1867 end = (l1 << 22) + (l2 << 12);
1868 if (pte & PG_PRESENT_MASK) {
1869 prot = pte & pde &
1870 (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1871 } else {
1872 prot = 0;
1874 mem_print(mon, &start, &last_prot, end, prot);
1877 } else {
1878 prot = 0;
1879 mem_print(mon, &start, &last_prot, end, prot);
1882 /* Flush last range */
1883 mem_print(mon, &start, &last_prot, (target_phys_addr_t)1 << 32, 0);
1886 static void mem_info_pae32(Monitor *mon, CPUArchState *env)
1888 unsigned int l1, l2, l3;
1889 int prot, last_prot;
1890 uint64_t pdpe, pde, pte;
1891 uint64_t pdp_addr, pd_addr, pt_addr;
1892 target_phys_addr_t start, end;
1894 pdp_addr = env->cr[3] & ~0x1f;
1895 last_prot = 0;
1896 start = -1;
1897 for (l1 = 0; l1 < 4; l1++) {
1898 cpu_physical_memory_read(pdp_addr + l1 * 8, &pdpe, 8);
1899 pdpe = le64_to_cpu(pdpe);
1900 end = l1 << 30;
1901 if (pdpe & PG_PRESENT_MASK) {
1902 pd_addr = pdpe & 0x3fffffffff000ULL;
1903 for (l2 = 0; l2 < 512; l2++) {
1904 cpu_physical_memory_read(pd_addr + l2 * 8, &pde, 8);
1905 pde = le64_to_cpu(pde);
1906 end = (l1 << 30) + (l2 << 21);
1907 if (pde & PG_PRESENT_MASK) {
1908 if (pde & PG_PSE_MASK) {
1909 prot = pde & (PG_USER_MASK | PG_RW_MASK |
1910 PG_PRESENT_MASK);
1911 mem_print(mon, &start, &last_prot, end, prot);
1912 } else {
1913 pt_addr = pde & 0x3fffffffff000ULL;
1914 for (l3 = 0; l3 < 512; l3++) {
1915 cpu_physical_memory_read(pt_addr + l3 * 8, &pte, 8);
1916 pte = le64_to_cpu(pte);
1917 end = (l1 << 30) + (l2 << 21) + (l3 << 12);
1918 if (pte & PG_PRESENT_MASK) {
1919 prot = pte & pde & (PG_USER_MASK | PG_RW_MASK |
1920 PG_PRESENT_MASK);
1921 } else {
1922 prot = 0;
1924 mem_print(mon, &start, &last_prot, end, prot);
1927 } else {
1928 prot = 0;
1929 mem_print(mon, &start, &last_prot, end, prot);
1932 } else {
1933 prot = 0;
1934 mem_print(mon, &start, &last_prot, end, prot);
1937 /* Flush last range */
1938 mem_print(mon, &start, &last_prot, (target_phys_addr_t)1 << 32, 0);
1942 #ifdef TARGET_X86_64
1943 static void mem_info_64(Monitor *mon, CPUArchState *env)
1945 int prot, last_prot;
1946 uint64_t l1, l2, l3, l4;
1947 uint64_t pml4e, pdpe, pde, pte;
1948 uint64_t pml4_addr, pdp_addr, pd_addr, pt_addr, start, end;
1950 pml4_addr = env->cr[3] & 0x3fffffffff000ULL;
1951 last_prot = 0;
1952 start = -1;
1953 for (l1 = 0; l1 < 512; l1++) {
1954 cpu_physical_memory_read(pml4_addr + l1 * 8, &pml4e, 8);
1955 pml4e = le64_to_cpu(pml4e);
1956 end = l1 << 39;
1957 if (pml4e & PG_PRESENT_MASK) {
1958 pdp_addr = pml4e & 0x3fffffffff000ULL;
1959 for (l2 = 0; l2 < 512; l2++) {
1960 cpu_physical_memory_read(pdp_addr + l2 * 8, &pdpe, 8);
1961 pdpe = le64_to_cpu(pdpe);
1962 end = (l1 << 39) + (l2 << 30);
1963 if (pdpe & PG_PRESENT_MASK) {
1964 if (pdpe & PG_PSE_MASK) {
1965 prot = pdpe & (PG_USER_MASK | PG_RW_MASK |
1966 PG_PRESENT_MASK);
1967 prot &= pml4e;
1968 mem_print(mon, &start, &last_prot, end, prot);
1969 } else {
1970 pd_addr = pdpe & 0x3fffffffff000ULL;
1971 for (l3 = 0; l3 < 512; l3++) {
1972 cpu_physical_memory_read(pd_addr + l3 * 8, &pde, 8);
1973 pde = le64_to_cpu(pde);
1974 end = (l1 << 39) + (l2 << 30) + (l3 << 21);
1975 if (pde & PG_PRESENT_MASK) {
1976 if (pde & PG_PSE_MASK) {
1977 prot = pde & (PG_USER_MASK | PG_RW_MASK |
1978 PG_PRESENT_MASK);
1979 prot &= pml4e & pdpe;
1980 mem_print(mon, &start, &last_prot, end, prot);
1981 } else {
1982 pt_addr = pde & 0x3fffffffff000ULL;
1983 for (l4 = 0; l4 < 512; l4++) {
1984 cpu_physical_memory_read(pt_addr
1985 + l4 * 8,
1986 &pte, 8);
1987 pte = le64_to_cpu(pte);
1988 end = (l1 << 39) + (l2 << 30) +
1989 (l3 << 21) + (l4 << 12);
1990 if (pte & PG_PRESENT_MASK) {
1991 prot = pte & (PG_USER_MASK | PG_RW_MASK |
1992 PG_PRESENT_MASK);
1993 prot &= pml4e & pdpe & pde;
1994 } else {
1995 prot = 0;
1997 mem_print(mon, &start, &last_prot, end, prot);
2000 } else {
2001 prot = 0;
2002 mem_print(mon, &start, &last_prot, end, prot);
2006 } else {
2007 prot = 0;
2008 mem_print(mon, &start, &last_prot, end, prot);
2011 } else {
2012 prot = 0;
2013 mem_print(mon, &start, &last_prot, end, prot);
2016 /* Flush last range */
2017 mem_print(mon, &start, &last_prot, (target_phys_addr_t)1 << 48, 0);
2019 #endif
2021 static void mem_info(Monitor *mon)
2023 CPUArchState *env;
2025 env = mon_get_cpu();
2027 if (!(env->cr[0] & CR0_PG_MASK)) {
2028 monitor_printf(mon, "PG disabled\n");
2029 return;
2031 if (env->cr[4] & CR4_PAE_MASK) {
2032 #ifdef TARGET_X86_64
2033 if (env->hflags & HF_LMA_MASK) {
2034 mem_info_64(mon, env);
2035 } else
2036 #endif
2038 mem_info_pae32(mon, env);
2040 } else {
2041 mem_info_32(mon, env);
2044 #endif
2046 #if defined(TARGET_SH4)
2048 static void print_tlb(Monitor *mon, int idx, tlb_t *tlb)
2050 monitor_printf(mon, " tlb%i:\t"
2051 "asid=%hhu vpn=%x\tppn=%x\tsz=%hhu size=%u\t"
2052 "v=%hhu shared=%hhu cached=%hhu prot=%hhu "
2053 "dirty=%hhu writethrough=%hhu\n",
2054 idx,
2055 tlb->asid, tlb->vpn, tlb->ppn, tlb->sz, tlb->size,
2056 tlb->v, tlb->sh, tlb->c, tlb->pr,
2057 tlb->d, tlb->wt);
2060 static void tlb_info(Monitor *mon)
2062 CPUArchState *env = mon_get_cpu();
2063 int i;
2065 monitor_printf (mon, "ITLB:\n");
2066 for (i = 0 ; i < ITLB_SIZE ; i++)
2067 print_tlb (mon, i, &env->itlb[i]);
2068 monitor_printf (mon, "UTLB:\n");
2069 for (i = 0 ; i < UTLB_SIZE ; i++)
2070 print_tlb (mon, i, &env->utlb[i]);
2073 #endif
2075 #if defined(TARGET_SPARC) || defined(TARGET_PPC) || defined(TARGET_XTENSA)
2076 static void tlb_info(Monitor *mon)
2078 CPUArchState *env1 = mon_get_cpu();
2080 dump_mmu((FILE*)mon, (fprintf_function)monitor_printf, env1);
2082 #endif
2084 static void do_info_mtree(Monitor *mon)
2086 mtree_info((fprintf_function)monitor_printf, mon);
2089 static void do_info_numa(Monitor *mon)
2091 int i;
2092 CPUArchState *env;
2094 monitor_printf(mon, "%d nodes\n", nb_numa_nodes);
2095 for (i = 0; i < nb_numa_nodes; i++) {
2096 monitor_printf(mon, "node %d cpus:", i);
2097 for (env = first_cpu; env != NULL; env = env->next_cpu) {
2098 if (env->numa_node == i) {
2099 monitor_printf(mon, " %d", env->cpu_index);
2102 monitor_printf(mon, "\n");
2103 monitor_printf(mon, "node %d size: %" PRId64 " MB\n", i,
2104 node_mem[i] >> 20);
2108 #ifdef CONFIG_PROFILER
2110 int64_t qemu_time;
2111 int64_t dev_time;
2113 static void do_info_profile(Monitor *mon)
2115 int64_t total;
2116 total = qemu_time;
2117 if (total == 0)
2118 total = 1;
2119 monitor_printf(mon, "async time %" PRId64 " (%0.3f)\n",
2120 dev_time, dev_time / (double)get_ticks_per_sec());
2121 monitor_printf(mon, "qemu time %" PRId64 " (%0.3f)\n",
2122 qemu_time, qemu_time / (double)get_ticks_per_sec());
2123 qemu_time = 0;
2124 dev_time = 0;
2126 #else
2127 static void do_info_profile(Monitor *mon)
2129 monitor_printf(mon, "Internal profiler not compiled\n");
2131 #endif
2133 /* Capture support */
2134 static QLIST_HEAD (capture_list_head, CaptureState) capture_head;
2136 static void do_info_capture(Monitor *mon)
2138 int i;
2139 CaptureState *s;
2141 for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
2142 monitor_printf(mon, "[%d]: ", i);
2143 s->ops.info (s->opaque);
2147 #ifdef HAS_AUDIO
2148 static void do_stop_capture(Monitor *mon, const QDict *qdict)
2150 int i;
2151 int n = qdict_get_int(qdict, "n");
2152 CaptureState *s;
2154 for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
2155 if (i == n) {
2156 s->ops.destroy (s->opaque);
2157 QLIST_REMOVE (s, entries);
2158 g_free (s);
2159 return;
2164 static void do_wav_capture(Monitor *mon, const QDict *qdict)
2166 const char *path = qdict_get_str(qdict, "path");
2167 int has_freq = qdict_haskey(qdict, "freq");
2168 int freq = qdict_get_try_int(qdict, "freq", -1);
2169 int has_bits = qdict_haskey(qdict, "bits");
2170 int bits = qdict_get_try_int(qdict, "bits", -1);
2171 int has_channels = qdict_haskey(qdict, "nchannels");
2172 int nchannels = qdict_get_try_int(qdict, "nchannels", -1);
2173 CaptureState *s;
2175 s = g_malloc0 (sizeof (*s));
2177 freq = has_freq ? freq : 44100;
2178 bits = has_bits ? bits : 16;
2179 nchannels = has_channels ? nchannels : 2;
2181 if (wav_start_capture (s, path, freq, bits, nchannels)) {
2182 monitor_printf(mon, "Failed to add wave capture\n");
2183 g_free (s);
2184 return;
2186 QLIST_INSERT_HEAD (&capture_head, s, entries);
2188 #endif
2190 static qemu_acl *find_acl(Monitor *mon, const char *name)
2192 qemu_acl *acl = qemu_acl_find(name);
2194 if (!acl) {
2195 monitor_printf(mon, "acl: unknown list '%s'\n", name);
2197 return acl;
2200 static void do_acl_show(Monitor *mon, const QDict *qdict)
2202 const char *aclname = qdict_get_str(qdict, "aclname");
2203 qemu_acl *acl = find_acl(mon, aclname);
2204 qemu_acl_entry *entry;
2205 int i = 0;
2207 if (acl) {
2208 monitor_printf(mon, "policy: %s\n",
2209 acl->defaultDeny ? "deny" : "allow");
2210 QTAILQ_FOREACH(entry, &acl->entries, next) {
2211 i++;
2212 monitor_printf(mon, "%d: %s %s\n", i,
2213 entry->deny ? "deny" : "allow", entry->match);
2218 static void do_acl_reset(Monitor *mon, const QDict *qdict)
2220 const char *aclname = qdict_get_str(qdict, "aclname");
2221 qemu_acl *acl = find_acl(mon, aclname);
2223 if (acl) {
2224 qemu_acl_reset(acl);
2225 monitor_printf(mon, "acl: removed all rules\n");
2229 static void do_acl_policy(Monitor *mon, const QDict *qdict)
2231 const char *aclname = qdict_get_str(qdict, "aclname");
2232 const char *policy = qdict_get_str(qdict, "policy");
2233 qemu_acl *acl = find_acl(mon, aclname);
2235 if (acl) {
2236 if (strcmp(policy, "allow") == 0) {
2237 acl->defaultDeny = 0;
2238 monitor_printf(mon, "acl: policy set to 'allow'\n");
2239 } else if (strcmp(policy, "deny") == 0) {
2240 acl->defaultDeny = 1;
2241 monitor_printf(mon, "acl: policy set to 'deny'\n");
2242 } else {
2243 monitor_printf(mon, "acl: unknown policy '%s', "
2244 "expected 'deny' or 'allow'\n", policy);
2249 static void do_acl_add(Monitor *mon, const QDict *qdict)
2251 const char *aclname = qdict_get_str(qdict, "aclname");
2252 const char *match = qdict_get_str(qdict, "match");
2253 const char *policy = qdict_get_str(qdict, "policy");
2254 int has_index = qdict_haskey(qdict, "index");
2255 int index = qdict_get_try_int(qdict, "index", -1);
2256 qemu_acl *acl = find_acl(mon, aclname);
2257 int deny, ret;
2259 if (acl) {
2260 if (strcmp(policy, "allow") == 0) {
2261 deny = 0;
2262 } else if (strcmp(policy, "deny") == 0) {
2263 deny = 1;
2264 } else {
2265 monitor_printf(mon, "acl: unknown policy '%s', "
2266 "expected 'deny' or 'allow'\n", policy);
2267 return;
2269 if (has_index)
2270 ret = qemu_acl_insert(acl, deny, match, index);
2271 else
2272 ret = qemu_acl_append(acl, deny, match);
2273 if (ret < 0)
2274 monitor_printf(mon, "acl: unable to add acl entry\n");
2275 else
2276 monitor_printf(mon, "acl: added rule at position %d\n", ret);
2280 static void do_acl_remove(Monitor *mon, const QDict *qdict)
2282 const char *aclname = qdict_get_str(qdict, "aclname");
2283 const char *match = qdict_get_str(qdict, "match");
2284 qemu_acl *acl = find_acl(mon, aclname);
2285 int ret;
2287 if (acl) {
2288 ret = qemu_acl_remove(acl, match);
2289 if (ret < 0)
2290 monitor_printf(mon, "acl: no matching acl entry\n");
2291 else
2292 monitor_printf(mon, "acl: removed rule at position %d\n", ret);
2296 #if defined(TARGET_I386)
2297 static void do_inject_mce(Monitor *mon, const QDict *qdict)
2299 CPUArchState *cenv;
2300 int cpu_index = qdict_get_int(qdict, "cpu_index");
2301 int bank = qdict_get_int(qdict, "bank");
2302 uint64_t status = qdict_get_int(qdict, "status");
2303 uint64_t mcg_status = qdict_get_int(qdict, "mcg_status");
2304 uint64_t addr = qdict_get_int(qdict, "addr");
2305 uint64_t misc = qdict_get_int(qdict, "misc");
2306 int flags = MCE_INJECT_UNCOND_AO;
2308 if (qdict_get_try_bool(qdict, "broadcast", 0)) {
2309 flags |= MCE_INJECT_BROADCAST;
2311 for (cenv = first_cpu; cenv != NULL; cenv = cenv->next_cpu) {
2312 if (cenv->cpu_index == cpu_index) {
2313 cpu_x86_inject_mce(mon, cenv, bank, status, mcg_status, addr, misc,
2314 flags);
2315 break;
2319 #endif
2321 void qmp_getfd(const char *fdname, Error **errp)
2323 mon_fd_t *monfd;
2324 int fd;
2326 fd = qemu_chr_fe_get_msgfd(cur_mon->chr);
2327 if (fd == -1) {
2328 error_set(errp, QERR_FD_NOT_SUPPLIED);
2329 return;
2332 if (qemu_isdigit(fdname[0])) {
2333 error_set(errp, QERR_INVALID_PARAMETER_VALUE, "fdname",
2334 "a name not starting with a digit");
2335 return;
2338 QLIST_FOREACH(monfd, &cur_mon->fds, next) {
2339 if (strcmp(monfd->name, fdname) != 0) {
2340 continue;
2343 close(monfd->fd);
2344 monfd->fd = fd;
2345 return;
2348 monfd = g_malloc0(sizeof(mon_fd_t));
2349 monfd->name = g_strdup(fdname);
2350 monfd->fd = fd;
2352 QLIST_INSERT_HEAD(&cur_mon->fds, monfd, next);
2355 void qmp_closefd(const char *fdname, Error **errp)
2357 mon_fd_t *monfd;
2359 QLIST_FOREACH(monfd, &cur_mon->fds, next) {
2360 if (strcmp(monfd->name, fdname) != 0) {
2361 continue;
2364 QLIST_REMOVE(monfd, next);
2365 close(monfd->fd);
2366 g_free(monfd->name);
2367 g_free(monfd);
2368 return;
2371 error_set(errp, QERR_FD_NOT_FOUND, fdname);
2374 static void do_loadvm(Monitor *mon, const QDict *qdict)
2376 int saved_vm_running = runstate_is_running();
2377 const char *name = qdict_get_str(qdict, "name");
2379 vm_stop(RUN_STATE_RESTORE_VM);
2381 if (load_vmstate(name) == 0 && saved_vm_running) {
2382 vm_start();
2386 int monitor_get_fd(Monitor *mon, const char *fdname)
2388 mon_fd_t *monfd;
2390 QLIST_FOREACH(monfd, &mon->fds, next) {
2391 int fd;
2393 if (strcmp(monfd->name, fdname) != 0) {
2394 continue;
2397 fd = monfd->fd;
2399 /* caller takes ownership of fd */
2400 QLIST_REMOVE(monfd, next);
2401 g_free(monfd->name);
2402 g_free(monfd);
2404 return fd;
2407 return -1;
2410 static void monitor_fdset_cleanup(MonFdset *mon_fdset)
2412 MonFdsetFd *mon_fdset_fd;
2413 MonFdsetFd *mon_fdset_fd_next;
2415 QLIST_FOREACH_SAFE(mon_fdset_fd, &mon_fdset->fds, next, mon_fdset_fd_next) {
2416 if (mon_fdset_fd->removed ||
2417 (QLIST_EMPTY(&mon_fdset->dup_fds) && mon_refcount == 0)) {
2418 close(mon_fdset_fd->fd);
2419 g_free(mon_fdset_fd->opaque);
2420 QLIST_REMOVE(mon_fdset_fd, next);
2421 g_free(mon_fdset_fd);
2425 if (QLIST_EMPTY(&mon_fdset->fds) && QLIST_EMPTY(&mon_fdset->dup_fds)) {
2426 QLIST_REMOVE(mon_fdset, next);
2427 g_free(mon_fdset);
2431 static void monitor_fdsets_cleanup(void)
2433 MonFdset *mon_fdset;
2434 MonFdset *mon_fdset_next;
2436 QLIST_FOREACH_SAFE(mon_fdset, &mon_fdsets, next, mon_fdset_next) {
2437 monitor_fdset_cleanup(mon_fdset);
2441 AddfdInfo *qmp_add_fd(bool has_fdset_id, int64_t fdset_id, bool has_opaque,
2442 const char *opaque, Error **errp)
2444 int fd;
2445 Monitor *mon = cur_mon;
2446 MonFdset *mon_fdset;
2447 MonFdsetFd *mon_fdset_fd;
2448 AddfdInfo *fdinfo;
2450 fd = qemu_chr_fe_get_msgfd(mon->chr);
2451 if (fd == -1) {
2452 error_set(errp, QERR_FD_NOT_SUPPLIED);
2453 goto error;
2456 if (has_fdset_id) {
2457 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2458 if (mon_fdset->id == fdset_id) {
2459 break;
2462 if (mon_fdset == NULL) {
2463 error_set(errp, QERR_INVALID_PARAMETER_VALUE, "fdset-id",
2464 "an existing fdset-id");
2465 goto error;
2467 } else {
2468 int64_t fdset_id_prev = -1;
2469 MonFdset *mon_fdset_cur = QLIST_FIRST(&mon_fdsets);
2471 /* Use first available fdset ID */
2472 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2473 mon_fdset_cur = mon_fdset;
2474 if (fdset_id_prev == mon_fdset_cur->id - 1) {
2475 fdset_id_prev = mon_fdset_cur->id;
2476 continue;
2478 break;
2481 mon_fdset = g_malloc0(sizeof(*mon_fdset));
2482 mon_fdset->id = fdset_id_prev + 1;
2484 /* The fdset list is ordered by fdset ID */
2485 if (mon_fdset->id == 0) {
2486 QLIST_INSERT_HEAD(&mon_fdsets, mon_fdset, next);
2487 } else if (mon_fdset->id < mon_fdset_cur->id) {
2488 QLIST_INSERT_BEFORE(mon_fdset_cur, mon_fdset, next);
2489 } else {
2490 QLIST_INSERT_AFTER(mon_fdset_cur, mon_fdset, next);
2494 mon_fdset_fd = g_malloc0(sizeof(*mon_fdset_fd));
2495 mon_fdset_fd->fd = fd;
2496 mon_fdset_fd->removed = false;
2497 if (has_opaque) {
2498 mon_fdset_fd->opaque = g_strdup(opaque);
2500 QLIST_INSERT_HEAD(&mon_fdset->fds, mon_fdset_fd, next);
2502 fdinfo = g_malloc0(sizeof(*fdinfo));
2503 fdinfo->fdset_id = mon_fdset->id;
2504 fdinfo->fd = mon_fdset_fd->fd;
2506 return fdinfo;
2508 error:
2509 if (fd != -1) {
2510 close(fd);
2512 return NULL;
2515 void qmp_remove_fd(int64_t fdset_id, bool has_fd, int64_t fd, Error **errp)
2517 MonFdset *mon_fdset;
2518 MonFdsetFd *mon_fdset_fd;
2519 char fd_str[60];
2521 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2522 if (mon_fdset->id != fdset_id) {
2523 continue;
2525 QLIST_FOREACH(mon_fdset_fd, &mon_fdset->fds, next) {
2526 if (has_fd) {
2527 if (mon_fdset_fd->fd != fd) {
2528 continue;
2530 mon_fdset_fd->removed = true;
2531 break;
2532 } else {
2533 mon_fdset_fd->removed = true;
2536 if (has_fd && !mon_fdset_fd) {
2537 goto error;
2539 monitor_fdset_cleanup(mon_fdset);
2540 return;
2543 error:
2544 if (has_fd) {
2545 snprintf(fd_str, sizeof(fd_str), "fdset-id:%" PRId64 ", fd:%" PRId64,
2546 fdset_id, fd);
2547 } else {
2548 snprintf(fd_str, sizeof(fd_str), "fdset-id:%" PRId64, fdset_id);
2550 error_set(errp, QERR_FD_NOT_FOUND, fd_str);
2553 FdsetInfoList *qmp_query_fdsets(Error **errp)
2555 MonFdset *mon_fdset;
2556 MonFdsetFd *mon_fdset_fd;
2557 FdsetInfoList *fdset_list = NULL;
2559 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2560 FdsetInfoList *fdset_info = g_malloc0(sizeof(*fdset_info));
2561 FdsetFdInfoList *fdsetfd_list = NULL;
2563 fdset_info->value = g_malloc0(sizeof(*fdset_info->value));
2564 fdset_info->value->fdset_id = mon_fdset->id;
2566 QLIST_FOREACH(mon_fdset_fd, &mon_fdset->fds, next) {
2567 FdsetFdInfoList *fdsetfd_info;
2569 fdsetfd_info = g_malloc0(sizeof(*fdsetfd_info));
2570 fdsetfd_info->value = g_malloc0(sizeof(*fdsetfd_info->value));
2571 fdsetfd_info->value->fd = mon_fdset_fd->fd;
2572 if (mon_fdset_fd->opaque) {
2573 fdsetfd_info->value->has_opaque = true;
2574 fdsetfd_info->value->opaque = g_strdup(mon_fdset_fd->opaque);
2575 } else {
2576 fdsetfd_info->value->has_opaque = false;
2579 fdsetfd_info->next = fdsetfd_list;
2580 fdsetfd_list = fdsetfd_info;
2583 fdset_info->value->fds = fdsetfd_list;
2585 fdset_info->next = fdset_list;
2586 fdset_list = fdset_info;
2589 return fdset_list;
2592 int monitor_fdset_get_fd(int64_t fdset_id, int flags)
2594 MonFdset *mon_fdset;
2595 MonFdsetFd *mon_fdset_fd;
2596 int mon_fd_flags;
2598 #ifndef _WIN32
2599 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2600 if (mon_fdset->id != fdset_id) {
2601 continue;
2603 QLIST_FOREACH(mon_fdset_fd, &mon_fdset->fds, next) {
2604 mon_fd_flags = fcntl(mon_fdset_fd->fd, F_GETFL);
2605 if (mon_fd_flags == -1) {
2606 return -1;
2609 if ((flags & O_ACCMODE) == (mon_fd_flags & O_ACCMODE)) {
2610 return mon_fdset_fd->fd;
2613 errno = EACCES;
2614 return -1;
2616 #endif
2618 errno = ENOENT;
2619 return -1;
2622 int monitor_fdset_dup_fd_add(int64_t fdset_id, int dup_fd)
2624 MonFdset *mon_fdset;
2625 MonFdsetFd *mon_fdset_fd_dup;
2627 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2628 if (mon_fdset->id != fdset_id) {
2629 continue;
2631 QLIST_FOREACH(mon_fdset_fd_dup, &mon_fdset->dup_fds, next) {
2632 if (mon_fdset_fd_dup->fd == dup_fd) {
2633 return -1;
2636 mon_fdset_fd_dup = g_malloc0(sizeof(*mon_fdset_fd_dup));
2637 mon_fdset_fd_dup->fd = dup_fd;
2638 QLIST_INSERT_HEAD(&mon_fdset->dup_fds, mon_fdset_fd_dup, next);
2639 return 0;
2641 return -1;
2644 static int monitor_fdset_dup_fd_find_remove(int dup_fd, bool remove)
2646 MonFdset *mon_fdset;
2647 MonFdsetFd *mon_fdset_fd_dup;
2649 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2650 QLIST_FOREACH(mon_fdset_fd_dup, &mon_fdset->dup_fds, next) {
2651 if (mon_fdset_fd_dup->fd == dup_fd) {
2652 if (remove) {
2653 QLIST_REMOVE(mon_fdset_fd_dup, next);
2654 if (QLIST_EMPTY(&mon_fdset->dup_fds)) {
2655 monitor_fdset_cleanup(mon_fdset);
2658 return mon_fdset->id;
2662 return -1;
2665 int monitor_fdset_dup_fd_find(int dup_fd)
2667 return monitor_fdset_dup_fd_find_remove(dup_fd, false);
2670 int monitor_fdset_dup_fd_remove(int dup_fd)
2672 return monitor_fdset_dup_fd_find_remove(dup_fd, true);
2675 /* mon_cmds and info_cmds would be sorted at runtime */
2676 static mon_cmd_t mon_cmds[] = {
2677 #include "hmp-commands.h"
2678 { NULL, NULL, },
2681 /* Please update hmp-commands.hx when adding or changing commands */
2682 static mon_cmd_t info_cmds[] = {
2684 .name = "version",
2685 .args_type = "",
2686 .params = "",
2687 .help = "show the version of QEMU",
2688 .mhandler.info = hmp_info_version,
2691 .name = "network",
2692 .args_type = "",
2693 .params = "",
2694 .help = "show the network state",
2695 .mhandler.info = do_info_network,
2698 .name = "chardev",
2699 .args_type = "",
2700 .params = "",
2701 .help = "show the character devices",
2702 .mhandler.info = hmp_info_chardev,
2705 .name = "block",
2706 .args_type = "",
2707 .params = "",
2708 .help = "show the block devices",
2709 .mhandler.info = hmp_info_block,
2712 .name = "blockstats",
2713 .args_type = "",
2714 .params = "",
2715 .help = "show block device statistics",
2716 .mhandler.info = hmp_info_blockstats,
2719 .name = "block-jobs",
2720 .args_type = "",
2721 .params = "",
2722 .help = "show progress of ongoing block device operations",
2723 .mhandler.info = hmp_info_block_jobs,
2726 .name = "registers",
2727 .args_type = "",
2728 .params = "",
2729 .help = "show the cpu registers",
2730 .mhandler.info = do_info_registers,
2733 .name = "cpus",
2734 .args_type = "",
2735 .params = "",
2736 .help = "show infos for each CPU",
2737 .mhandler.info = hmp_info_cpus,
2740 .name = "history",
2741 .args_type = "",
2742 .params = "",
2743 .help = "show the command line history",
2744 .mhandler.info = do_info_history,
2746 #if defined(TARGET_I386) || defined(TARGET_PPC) || defined(TARGET_MIPS) || \
2747 defined(TARGET_LM32) || (defined(TARGET_SPARC) && !defined(TARGET_SPARC64))
2749 .name = "irq",
2750 .args_type = "",
2751 .params = "",
2752 .help = "show the interrupts statistics (if available)",
2753 #ifdef TARGET_SPARC
2754 .mhandler.info = sun4m_irq_info,
2755 #elif defined(TARGET_LM32)
2756 .mhandler.info = lm32_irq_info,
2757 #else
2758 .mhandler.info = irq_info,
2759 #endif
2762 .name = "pic",
2763 .args_type = "",
2764 .params = "",
2765 .help = "show i8259 (PIC) state",
2766 #ifdef TARGET_SPARC
2767 .mhandler.info = sun4m_pic_info,
2768 #elif defined(TARGET_LM32)
2769 .mhandler.info = lm32_do_pic_info,
2770 #else
2771 .mhandler.info = pic_info,
2772 #endif
2774 #endif
2776 .name = "pci",
2777 .args_type = "",
2778 .params = "",
2779 .help = "show PCI info",
2780 .mhandler.info = hmp_info_pci,
2782 #if defined(TARGET_I386) || defined(TARGET_SH4) || defined(TARGET_SPARC) || \
2783 defined(TARGET_PPC) || defined(TARGET_XTENSA)
2785 .name = "tlb",
2786 .args_type = "",
2787 .params = "",
2788 .help = "show virtual to physical memory mappings",
2789 .mhandler.info = tlb_info,
2791 #endif
2792 #if defined(TARGET_I386)
2794 .name = "mem",
2795 .args_type = "",
2796 .params = "",
2797 .help = "show the active virtual memory mappings",
2798 .mhandler.info = mem_info,
2800 #endif
2802 .name = "mtree",
2803 .args_type = "",
2804 .params = "",
2805 .help = "show memory tree",
2806 .mhandler.info = do_info_mtree,
2809 .name = "jit",
2810 .args_type = "",
2811 .params = "",
2812 .help = "show dynamic compiler info",
2813 .mhandler.info = do_info_jit,
2816 .name = "kvm",
2817 .args_type = "",
2818 .params = "",
2819 .help = "show KVM information",
2820 .mhandler.info = hmp_info_kvm,
2823 .name = "numa",
2824 .args_type = "",
2825 .params = "",
2826 .help = "show NUMA information",
2827 .mhandler.info = do_info_numa,
2830 .name = "usb",
2831 .args_type = "",
2832 .params = "",
2833 .help = "show guest USB devices",
2834 .mhandler.info = usb_info,
2837 .name = "usbhost",
2838 .args_type = "",
2839 .params = "",
2840 .help = "show host USB devices",
2841 .mhandler.info = usb_host_info,
2844 .name = "profile",
2845 .args_type = "",
2846 .params = "",
2847 .help = "show profiling information",
2848 .mhandler.info = do_info_profile,
2851 .name = "capture",
2852 .args_type = "",
2853 .params = "",
2854 .help = "show capture information",
2855 .mhandler.info = do_info_capture,
2858 .name = "snapshots",
2859 .args_type = "",
2860 .params = "",
2861 .help = "show the currently saved VM snapshots",
2862 .mhandler.info = do_info_snapshots,
2865 .name = "status",
2866 .args_type = "",
2867 .params = "",
2868 .help = "show the current VM status (running|paused)",
2869 .mhandler.info = hmp_info_status,
2872 .name = "pcmcia",
2873 .args_type = "",
2874 .params = "",
2875 .help = "show guest PCMCIA status",
2876 .mhandler.info = pcmcia_info,
2879 .name = "mice",
2880 .args_type = "",
2881 .params = "",
2882 .help = "show which guest mouse is receiving events",
2883 .mhandler.info = hmp_info_mice,
2886 .name = "vnc",
2887 .args_type = "",
2888 .params = "",
2889 .help = "show the vnc server status",
2890 .mhandler.info = hmp_info_vnc,
2892 #if defined(CONFIG_SPICE)
2894 .name = "spice",
2895 .args_type = "",
2896 .params = "",
2897 .help = "show the spice server status",
2898 .mhandler.info = hmp_info_spice,
2900 #endif
2902 .name = "name",
2903 .args_type = "",
2904 .params = "",
2905 .help = "show the current VM name",
2906 .mhandler.info = hmp_info_name,
2909 .name = "uuid",
2910 .args_type = "",
2911 .params = "",
2912 .help = "show the current VM UUID",
2913 .mhandler.info = hmp_info_uuid,
2915 #if defined(TARGET_PPC)
2917 .name = "cpustats",
2918 .args_type = "",
2919 .params = "",
2920 .help = "show CPU statistics",
2921 .mhandler.info = do_info_cpu_stats,
2923 #endif
2924 #if defined(CONFIG_SLIRP)
2926 .name = "usernet",
2927 .args_type = "",
2928 .params = "",
2929 .help = "show user network stack connection states",
2930 .mhandler.info = do_info_usernet,
2932 #endif
2934 .name = "migrate",
2935 .args_type = "",
2936 .params = "",
2937 .help = "show migration status",
2938 .mhandler.info = hmp_info_migrate,
2941 .name = "migrate_capabilities",
2942 .args_type = "",
2943 .params = "",
2944 .help = "show current migration capabilities",
2945 .mhandler.info = hmp_info_migrate_capabilities,
2948 .name = "migrate_cache_size",
2949 .args_type = "",
2950 .params = "",
2951 .help = "show current migration xbzrle cache size",
2952 .mhandler.info = hmp_info_migrate_cache_size,
2955 .name = "balloon",
2956 .args_type = "",
2957 .params = "",
2958 .help = "show balloon information",
2959 .mhandler.info = hmp_info_balloon,
2962 .name = "qtree",
2963 .args_type = "",
2964 .params = "",
2965 .help = "show device tree",
2966 .mhandler.info = do_info_qtree,
2969 .name = "qdm",
2970 .args_type = "",
2971 .params = "",
2972 .help = "show qdev device model list",
2973 .mhandler.info = do_info_qdm,
2976 .name = "roms",
2977 .args_type = "",
2978 .params = "",
2979 .help = "show roms",
2980 .mhandler.info = do_info_roms,
2983 .name = "trace-events",
2984 .args_type = "",
2985 .params = "",
2986 .help = "show available trace-events & their state",
2987 .mhandler.info = do_trace_print_events,
2990 .name = NULL,
2994 static const mon_cmd_t qmp_cmds[] = {
2995 #include "qmp-commands-old.h"
2996 { /* NULL */ },
2999 /*******************************************************************/
3001 static const char *pch;
3002 static jmp_buf expr_env;
3004 #define MD_TLONG 0
3005 #define MD_I32 1
3007 typedef struct MonitorDef {
3008 const char *name;
3009 int offset;
3010 target_long (*get_value)(const struct MonitorDef *md, int val);
3011 int type;
3012 } MonitorDef;
3014 #if defined(TARGET_I386)
3015 static target_long monitor_get_pc (const struct MonitorDef *md, int val)
3017 CPUArchState *env = mon_get_cpu();
3018 return env->eip + env->segs[R_CS].base;
3020 #endif
3022 #if defined(TARGET_PPC)
3023 static target_long monitor_get_ccr (const struct MonitorDef *md, int val)
3025 CPUArchState *env = mon_get_cpu();
3026 unsigned int u;
3027 int i;
3029 u = 0;
3030 for (i = 0; i < 8; i++)
3031 u |= env->crf[i] << (32 - (4 * i));
3033 return u;
3036 static target_long monitor_get_msr (const struct MonitorDef *md, int val)
3038 CPUArchState *env = mon_get_cpu();
3039 return env->msr;
3042 static target_long monitor_get_xer (const struct MonitorDef *md, int val)
3044 CPUArchState *env = mon_get_cpu();
3045 return env->xer;
3048 static target_long monitor_get_decr (const struct MonitorDef *md, int val)
3050 CPUArchState *env = mon_get_cpu();
3051 return cpu_ppc_load_decr(env);
3054 static target_long monitor_get_tbu (const struct MonitorDef *md, int val)
3056 CPUArchState *env = mon_get_cpu();
3057 return cpu_ppc_load_tbu(env);
3060 static target_long monitor_get_tbl (const struct MonitorDef *md, int val)
3062 CPUArchState *env = mon_get_cpu();
3063 return cpu_ppc_load_tbl(env);
3065 #endif
3067 #if defined(TARGET_SPARC)
3068 #ifndef TARGET_SPARC64
3069 static target_long monitor_get_psr (const struct MonitorDef *md, int val)
3071 CPUArchState *env = mon_get_cpu();
3073 return cpu_get_psr(env);
3075 #endif
3077 static target_long monitor_get_reg(const struct MonitorDef *md, int val)
3079 CPUArchState *env = mon_get_cpu();
3080 return env->regwptr[val];
3082 #endif
3084 static const MonitorDef monitor_defs[] = {
3085 #ifdef TARGET_I386
3087 #define SEG(name, seg) \
3088 { name, offsetof(CPUX86State, segs[seg].selector), NULL, MD_I32 },\
3089 { name ".base", offsetof(CPUX86State, segs[seg].base) },\
3090 { name ".limit", offsetof(CPUX86State, segs[seg].limit), NULL, MD_I32 },
3092 { "eax", offsetof(CPUX86State, regs[0]) },
3093 { "ecx", offsetof(CPUX86State, regs[1]) },
3094 { "edx", offsetof(CPUX86State, regs[2]) },
3095 { "ebx", offsetof(CPUX86State, regs[3]) },
3096 { "esp|sp", offsetof(CPUX86State, regs[4]) },
3097 { "ebp|fp", offsetof(CPUX86State, regs[5]) },
3098 { "esi", offsetof(CPUX86State, regs[6]) },
3099 { "edi", offsetof(CPUX86State, regs[7]) },
3100 #ifdef TARGET_X86_64
3101 { "r8", offsetof(CPUX86State, regs[8]) },
3102 { "r9", offsetof(CPUX86State, regs[9]) },
3103 { "r10", offsetof(CPUX86State, regs[10]) },
3104 { "r11", offsetof(CPUX86State, regs[11]) },
3105 { "r12", offsetof(CPUX86State, regs[12]) },
3106 { "r13", offsetof(CPUX86State, regs[13]) },
3107 { "r14", offsetof(CPUX86State, regs[14]) },
3108 { "r15", offsetof(CPUX86State, regs[15]) },
3109 #endif
3110 { "eflags", offsetof(CPUX86State, eflags) },
3111 { "eip", offsetof(CPUX86State, eip) },
3112 SEG("cs", R_CS)
3113 SEG("ds", R_DS)
3114 SEG("es", R_ES)
3115 SEG("ss", R_SS)
3116 SEG("fs", R_FS)
3117 SEG("gs", R_GS)
3118 { "pc", 0, monitor_get_pc, },
3119 #elif defined(TARGET_PPC)
3120 /* General purpose registers */
3121 { "r0", offsetof(CPUPPCState, gpr[0]) },
3122 { "r1", offsetof(CPUPPCState, gpr[1]) },
3123 { "r2", offsetof(CPUPPCState, gpr[2]) },
3124 { "r3", offsetof(CPUPPCState, gpr[3]) },
3125 { "r4", offsetof(CPUPPCState, gpr[4]) },
3126 { "r5", offsetof(CPUPPCState, gpr[5]) },
3127 { "r6", offsetof(CPUPPCState, gpr[6]) },
3128 { "r7", offsetof(CPUPPCState, gpr[7]) },
3129 { "r8", offsetof(CPUPPCState, gpr[8]) },
3130 { "r9", offsetof(CPUPPCState, gpr[9]) },
3131 { "r10", offsetof(CPUPPCState, gpr[10]) },
3132 { "r11", offsetof(CPUPPCState, gpr[11]) },
3133 { "r12", offsetof(CPUPPCState, gpr[12]) },
3134 { "r13", offsetof(CPUPPCState, gpr[13]) },
3135 { "r14", offsetof(CPUPPCState, gpr[14]) },
3136 { "r15", offsetof(CPUPPCState, gpr[15]) },
3137 { "r16", offsetof(CPUPPCState, gpr[16]) },
3138 { "r17", offsetof(CPUPPCState, gpr[17]) },
3139 { "r18", offsetof(CPUPPCState, gpr[18]) },
3140 { "r19", offsetof(CPUPPCState, gpr[19]) },
3141 { "r20", offsetof(CPUPPCState, gpr[20]) },
3142 { "r21", offsetof(CPUPPCState, gpr[21]) },
3143 { "r22", offsetof(CPUPPCState, gpr[22]) },
3144 { "r23", offsetof(CPUPPCState, gpr[23]) },
3145 { "r24", offsetof(CPUPPCState, gpr[24]) },
3146 { "r25", offsetof(CPUPPCState, gpr[25]) },
3147 { "r26", offsetof(CPUPPCState, gpr[26]) },
3148 { "r27", offsetof(CPUPPCState, gpr[27]) },
3149 { "r28", offsetof(CPUPPCState, gpr[28]) },
3150 { "r29", offsetof(CPUPPCState, gpr[29]) },
3151 { "r30", offsetof(CPUPPCState, gpr[30]) },
3152 { "r31", offsetof(CPUPPCState, gpr[31]) },
3153 /* Floating point registers */
3154 { "f0", offsetof(CPUPPCState, fpr[0]) },
3155 { "f1", offsetof(CPUPPCState, fpr[1]) },
3156 { "f2", offsetof(CPUPPCState, fpr[2]) },
3157 { "f3", offsetof(CPUPPCState, fpr[3]) },
3158 { "f4", offsetof(CPUPPCState, fpr[4]) },
3159 { "f5", offsetof(CPUPPCState, fpr[5]) },
3160 { "f6", offsetof(CPUPPCState, fpr[6]) },
3161 { "f7", offsetof(CPUPPCState, fpr[7]) },
3162 { "f8", offsetof(CPUPPCState, fpr[8]) },
3163 { "f9", offsetof(CPUPPCState, fpr[9]) },
3164 { "f10", offsetof(CPUPPCState, fpr[10]) },
3165 { "f11", offsetof(CPUPPCState, fpr[11]) },
3166 { "f12", offsetof(CPUPPCState, fpr[12]) },
3167 { "f13", offsetof(CPUPPCState, fpr[13]) },
3168 { "f14", offsetof(CPUPPCState, fpr[14]) },
3169 { "f15", offsetof(CPUPPCState, fpr[15]) },
3170 { "f16", offsetof(CPUPPCState, fpr[16]) },
3171 { "f17", offsetof(CPUPPCState, fpr[17]) },
3172 { "f18", offsetof(CPUPPCState, fpr[18]) },
3173 { "f19", offsetof(CPUPPCState, fpr[19]) },
3174 { "f20", offsetof(CPUPPCState, fpr[20]) },
3175 { "f21", offsetof(CPUPPCState, fpr[21]) },
3176 { "f22", offsetof(CPUPPCState, fpr[22]) },
3177 { "f23", offsetof(CPUPPCState, fpr[23]) },
3178 { "f24", offsetof(CPUPPCState, fpr[24]) },
3179 { "f25", offsetof(CPUPPCState, fpr[25]) },
3180 { "f26", offsetof(CPUPPCState, fpr[26]) },
3181 { "f27", offsetof(CPUPPCState, fpr[27]) },
3182 { "f28", offsetof(CPUPPCState, fpr[28]) },
3183 { "f29", offsetof(CPUPPCState, fpr[29]) },
3184 { "f30", offsetof(CPUPPCState, fpr[30]) },
3185 { "f31", offsetof(CPUPPCState, fpr[31]) },
3186 { "fpscr", offsetof(CPUPPCState, fpscr) },
3187 /* Next instruction pointer */
3188 { "nip|pc", offsetof(CPUPPCState, nip) },
3189 { "lr", offsetof(CPUPPCState, lr) },
3190 { "ctr", offsetof(CPUPPCState, ctr) },
3191 { "decr", 0, &monitor_get_decr, },
3192 { "ccr", 0, &monitor_get_ccr, },
3193 /* Machine state register */
3194 { "msr", 0, &monitor_get_msr, },
3195 { "xer", 0, &monitor_get_xer, },
3196 { "tbu", 0, &monitor_get_tbu, },
3197 { "tbl", 0, &monitor_get_tbl, },
3198 #if defined(TARGET_PPC64)
3199 /* Address space register */
3200 { "asr", offsetof(CPUPPCState, asr) },
3201 #endif
3202 /* Segment registers */
3203 { "sdr1", offsetof(CPUPPCState, spr[SPR_SDR1]) },
3204 { "sr0", offsetof(CPUPPCState, sr[0]) },
3205 { "sr1", offsetof(CPUPPCState, sr[1]) },
3206 { "sr2", offsetof(CPUPPCState, sr[2]) },
3207 { "sr3", offsetof(CPUPPCState, sr[3]) },
3208 { "sr4", offsetof(CPUPPCState, sr[4]) },
3209 { "sr5", offsetof(CPUPPCState, sr[5]) },
3210 { "sr6", offsetof(CPUPPCState, sr[6]) },
3211 { "sr7", offsetof(CPUPPCState, sr[7]) },
3212 { "sr8", offsetof(CPUPPCState, sr[8]) },
3213 { "sr9", offsetof(CPUPPCState, sr[9]) },
3214 { "sr10", offsetof(CPUPPCState, sr[10]) },
3215 { "sr11", offsetof(CPUPPCState, sr[11]) },
3216 { "sr12", offsetof(CPUPPCState, sr[12]) },
3217 { "sr13", offsetof(CPUPPCState, sr[13]) },
3218 { "sr14", offsetof(CPUPPCState, sr[14]) },
3219 { "sr15", offsetof(CPUPPCState, sr[15]) },
3220 /* Too lazy to put BATs... */
3221 { "pvr", offsetof(CPUPPCState, spr[SPR_PVR]) },
3223 { "srr0", offsetof(CPUPPCState, spr[SPR_SRR0]) },
3224 { "srr1", offsetof(CPUPPCState, spr[SPR_SRR1]) },
3225 { "sprg0", offsetof(CPUPPCState, spr[SPR_SPRG0]) },
3226 { "sprg1", offsetof(CPUPPCState, spr[SPR_SPRG1]) },
3227 { "sprg2", offsetof(CPUPPCState, spr[SPR_SPRG2]) },
3228 { "sprg3", offsetof(CPUPPCState, spr[SPR_SPRG3]) },
3229 { "sprg4", offsetof(CPUPPCState, spr[SPR_SPRG4]) },
3230 { "sprg5", offsetof(CPUPPCState, spr[SPR_SPRG5]) },
3231 { "sprg6", offsetof(CPUPPCState, spr[SPR_SPRG6]) },
3232 { "sprg7", offsetof(CPUPPCState, spr[SPR_SPRG7]) },
3233 { "pid", offsetof(CPUPPCState, spr[SPR_BOOKE_PID]) },
3234 { "csrr0", offsetof(CPUPPCState, spr[SPR_BOOKE_CSRR0]) },
3235 { "csrr1", offsetof(CPUPPCState, spr[SPR_BOOKE_CSRR1]) },
3236 { "esr", offsetof(CPUPPCState, spr[SPR_BOOKE_ESR]) },
3237 { "dear", offsetof(CPUPPCState, spr[SPR_BOOKE_DEAR]) },
3238 { "mcsr", offsetof(CPUPPCState, spr[SPR_BOOKE_MCSR]) },
3239 { "tsr", offsetof(CPUPPCState, spr[SPR_BOOKE_TSR]) },
3240 { "tcr", offsetof(CPUPPCState, spr[SPR_BOOKE_TCR]) },
3241 { "vrsave", offsetof(CPUPPCState, spr[SPR_VRSAVE]) },
3242 { "pir", offsetof(CPUPPCState, spr[SPR_BOOKE_PIR]) },
3243 { "mcsrr0", offsetof(CPUPPCState, spr[SPR_BOOKE_MCSRR0]) },
3244 { "mcsrr1", offsetof(CPUPPCState, spr[SPR_BOOKE_MCSRR1]) },
3245 { "decar", offsetof(CPUPPCState, spr[SPR_BOOKE_DECAR]) },
3246 { "ivpr", offsetof(CPUPPCState, spr[SPR_BOOKE_IVPR]) },
3247 { "epcr", offsetof(CPUPPCState, spr[SPR_BOOKE_EPCR]) },
3248 { "sprg8", offsetof(CPUPPCState, spr[SPR_BOOKE_SPRG8]) },
3249 { "ivor0", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR0]) },
3250 { "ivor1", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR1]) },
3251 { "ivor2", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR2]) },
3252 { "ivor3", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR3]) },
3253 { "ivor4", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR4]) },
3254 { "ivor5", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR5]) },
3255 { "ivor6", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR6]) },
3256 { "ivor7", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR7]) },
3257 { "ivor8", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR8]) },
3258 { "ivor9", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR9]) },
3259 { "ivor10", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR10]) },
3260 { "ivor11", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR11]) },
3261 { "ivor12", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR12]) },
3262 { "ivor13", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR13]) },
3263 { "ivor14", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR14]) },
3264 { "ivor15", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR15]) },
3265 { "ivor32", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR32]) },
3266 { "ivor33", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR33]) },
3267 { "ivor34", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR34]) },
3268 { "ivor35", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR35]) },
3269 { "ivor36", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR36]) },
3270 { "ivor37", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR37]) },
3271 { "mas0", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS0]) },
3272 { "mas1", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS1]) },
3273 { "mas2", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS2]) },
3274 { "mas3", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS3]) },
3275 { "mas4", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS4]) },
3276 { "mas6", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS6]) },
3277 { "mas7", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS7]) },
3278 { "mmucfg", offsetof(CPUPPCState, spr[SPR_MMUCFG]) },
3279 { "tlb0cfg", offsetof(CPUPPCState, spr[SPR_BOOKE_TLB0CFG]) },
3280 { "tlb1cfg", offsetof(CPUPPCState, spr[SPR_BOOKE_TLB1CFG]) },
3281 { "epr", offsetof(CPUPPCState, spr[SPR_BOOKE_EPR]) },
3282 { "eplc", offsetof(CPUPPCState, spr[SPR_BOOKE_EPLC]) },
3283 { "epsc", offsetof(CPUPPCState, spr[SPR_BOOKE_EPSC]) },
3284 { "svr", offsetof(CPUPPCState, spr[SPR_E500_SVR]) },
3285 { "mcar", offsetof(CPUPPCState, spr[SPR_Exxx_MCAR]) },
3286 { "pid1", offsetof(CPUPPCState, spr[SPR_BOOKE_PID1]) },
3287 { "pid2", offsetof(CPUPPCState, spr[SPR_BOOKE_PID2]) },
3288 { "hid0", offsetof(CPUPPCState, spr[SPR_HID0]) },
3290 #elif defined(TARGET_SPARC)
3291 { "g0", offsetof(CPUSPARCState, gregs[0]) },
3292 { "g1", offsetof(CPUSPARCState, gregs[1]) },
3293 { "g2", offsetof(CPUSPARCState, gregs[2]) },
3294 { "g3", offsetof(CPUSPARCState, gregs[3]) },
3295 { "g4", offsetof(CPUSPARCState, gregs[4]) },
3296 { "g5", offsetof(CPUSPARCState, gregs[5]) },
3297 { "g6", offsetof(CPUSPARCState, gregs[6]) },
3298 { "g7", offsetof(CPUSPARCState, gregs[7]) },
3299 { "o0", 0, monitor_get_reg },
3300 { "o1", 1, monitor_get_reg },
3301 { "o2", 2, monitor_get_reg },
3302 { "o3", 3, monitor_get_reg },
3303 { "o4", 4, monitor_get_reg },
3304 { "o5", 5, monitor_get_reg },
3305 { "o6", 6, monitor_get_reg },
3306 { "o7", 7, monitor_get_reg },
3307 { "l0", 8, monitor_get_reg },
3308 { "l1", 9, monitor_get_reg },
3309 { "l2", 10, monitor_get_reg },
3310 { "l3", 11, monitor_get_reg },
3311 { "l4", 12, monitor_get_reg },
3312 { "l5", 13, monitor_get_reg },
3313 { "l6", 14, monitor_get_reg },
3314 { "l7", 15, monitor_get_reg },
3315 { "i0", 16, monitor_get_reg },
3316 { "i1", 17, monitor_get_reg },
3317 { "i2", 18, monitor_get_reg },
3318 { "i3", 19, monitor_get_reg },
3319 { "i4", 20, monitor_get_reg },
3320 { "i5", 21, monitor_get_reg },
3321 { "i6", 22, monitor_get_reg },
3322 { "i7", 23, monitor_get_reg },
3323 { "pc", offsetof(CPUSPARCState, pc) },
3324 { "npc", offsetof(CPUSPARCState, npc) },
3325 { "y", offsetof(CPUSPARCState, y) },
3326 #ifndef TARGET_SPARC64
3327 { "psr", 0, &monitor_get_psr, },
3328 { "wim", offsetof(CPUSPARCState, wim) },
3329 #endif
3330 { "tbr", offsetof(CPUSPARCState, tbr) },
3331 { "fsr", offsetof(CPUSPARCState, fsr) },
3332 { "f0", offsetof(CPUSPARCState, fpr[0].l.upper) },
3333 { "f1", offsetof(CPUSPARCState, fpr[0].l.lower) },
3334 { "f2", offsetof(CPUSPARCState, fpr[1].l.upper) },
3335 { "f3", offsetof(CPUSPARCState, fpr[1].l.lower) },
3336 { "f4", offsetof(CPUSPARCState, fpr[2].l.upper) },
3337 { "f5", offsetof(CPUSPARCState, fpr[2].l.lower) },
3338 { "f6", offsetof(CPUSPARCState, fpr[3].l.upper) },
3339 { "f7", offsetof(CPUSPARCState, fpr[3].l.lower) },
3340 { "f8", offsetof(CPUSPARCState, fpr[4].l.upper) },
3341 { "f9", offsetof(CPUSPARCState, fpr[4].l.lower) },
3342 { "f10", offsetof(CPUSPARCState, fpr[5].l.upper) },
3343 { "f11", offsetof(CPUSPARCState, fpr[5].l.lower) },
3344 { "f12", offsetof(CPUSPARCState, fpr[6].l.upper) },
3345 { "f13", offsetof(CPUSPARCState, fpr[6].l.lower) },
3346 { "f14", offsetof(CPUSPARCState, fpr[7].l.upper) },
3347 { "f15", offsetof(CPUSPARCState, fpr[7].l.lower) },
3348 { "f16", offsetof(CPUSPARCState, fpr[8].l.upper) },
3349 { "f17", offsetof(CPUSPARCState, fpr[8].l.lower) },
3350 { "f18", offsetof(CPUSPARCState, fpr[9].l.upper) },
3351 { "f19", offsetof(CPUSPARCState, fpr[9].l.lower) },
3352 { "f20", offsetof(CPUSPARCState, fpr[10].l.upper) },
3353 { "f21", offsetof(CPUSPARCState, fpr[10].l.lower) },
3354 { "f22", offsetof(CPUSPARCState, fpr[11].l.upper) },
3355 { "f23", offsetof(CPUSPARCState, fpr[11].l.lower) },
3356 { "f24", offsetof(CPUSPARCState, fpr[12].l.upper) },
3357 { "f25", offsetof(CPUSPARCState, fpr[12].l.lower) },
3358 { "f26", offsetof(CPUSPARCState, fpr[13].l.upper) },
3359 { "f27", offsetof(CPUSPARCState, fpr[13].l.lower) },
3360 { "f28", offsetof(CPUSPARCState, fpr[14].l.upper) },
3361 { "f29", offsetof(CPUSPARCState, fpr[14].l.lower) },
3362 { "f30", offsetof(CPUSPARCState, fpr[15].l.upper) },
3363 { "f31", offsetof(CPUSPARCState, fpr[15].l.lower) },
3364 #ifdef TARGET_SPARC64
3365 { "f32", offsetof(CPUSPARCState, fpr[16]) },
3366 { "f34", offsetof(CPUSPARCState, fpr[17]) },
3367 { "f36", offsetof(CPUSPARCState, fpr[18]) },
3368 { "f38", offsetof(CPUSPARCState, fpr[19]) },
3369 { "f40", offsetof(CPUSPARCState, fpr[20]) },
3370 { "f42", offsetof(CPUSPARCState, fpr[21]) },
3371 { "f44", offsetof(CPUSPARCState, fpr[22]) },
3372 { "f46", offsetof(CPUSPARCState, fpr[23]) },
3373 { "f48", offsetof(CPUSPARCState, fpr[24]) },
3374 { "f50", offsetof(CPUSPARCState, fpr[25]) },
3375 { "f52", offsetof(CPUSPARCState, fpr[26]) },
3376 { "f54", offsetof(CPUSPARCState, fpr[27]) },
3377 { "f56", offsetof(CPUSPARCState, fpr[28]) },
3378 { "f58", offsetof(CPUSPARCState, fpr[29]) },
3379 { "f60", offsetof(CPUSPARCState, fpr[30]) },
3380 { "f62", offsetof(CPUSPARCState, fpr[31]) },
3381 { "asi", offsetof(CPUSPARCState, asi) },
3382 { "pstate", offsetof(CPUSPARCState, pstate) },
3383 { "cansave", offsetof(CPUSPARCState, cansave) },
3384 { "canrestore", offsetof(CPUSPARCState, canrestore) },
3385 { "otherwin", offsetof(CPUSPARCState, otherwin) },
3386 { "wstate", offsetof(CPUSPARCState, wstate) },
3387 { "cleanwin", offsetof(CPUSPARCState, cleanwin) },
3388 { "fprs", offsetof(CPUSPARCState, fprs) },
3389 #endif
3390 #endif
3391 { NULL },
3394 static void expr_error(Monitor *mon, const char *msg)
3396 monitor_printf(mon, "%s\n", msg);
3397 longjmp(expr_env, 1);
3400 /* return 0 if OK, -1 if not found */
3401 static int get_monitor_def(target_long *pval, const char *name)
3403 const MonitorDef *md;
3404 void *ptr;
3406 for(md = monitor_defs; md->name != NULL; md++) {
3407 if (compare_cmd(name, md->name)) {
3408 if (md->get_value) {
3409 *pval = md->get_value(md, md->offset);
3410 } else {
3411 CPUArchState *env = mon_get_cpu();
3412 ptr = (uint8_t *)env + md->offset;
3413 switch(md->type) {
3414 case MD_I32:
3415 *pval = *(int32_t *)ptr;
3416 break;
3417 case MD_TLONG:
3418 *pval = *(target_long *)ptr;
3419 break;
3420 default:
3421 *pval = 0;
3422 break;
3425 return 0;
3428 return -1;
3431 static void next(void)
3433 if (*pch != '\0') {
3434 pch++;
3435 while (qemu_isspace(*pch))
3436 pch++;
3440 static int64_t expr_sum(Monitor *mon);
3442 static int64_t expr_unary(Monitor *mon)
3444 int64_t n;
3445 char *p;
3446 int ret;
3448 switch(*pch) {
3449 case '+':
3450 next();
3451 n = expr_unary(mon);
3452 break;
3453 case '-':
3454 next();
3455 n = -expr_unary(mon);
3456 break;
3457 case '~':
3458 next();
3459 n = ~expr_unary(mon);
3460 break;
3461 case '(':
3462 next();
3463 n = expr_sum(mon);
3464 if (*pch != ')') {
3465 expr_error(mon, "')' expected");
3467 next();
3468 break;
3469 case '\'':
3470 pch++;
3471 if (*pch == '\0')
3472 expr_error(mon, "character constant expected");
3473 n = *pch;
3474 pch++;
3475 if (*pch != '\'')
3476 expr_error(mon, "missing terminating \' character");
3477 next();
3478 break;
3479 case '$':
3481 char buf[128], *q;
3482 target_long reg=0;
3484 pch++;
3485 q = buf;
3486 while ((*pch >= 'a' && *pch <= 'z') ||
3487 (*pch >= 'A' && *pch <= 'Z') ||
3488 (*pch >= '0' && *pch <= '9') ||
3489 *pch == '_' || *pch == '.') {
3490 if ((q - buf) < sizeof(buf) - 1)
3491 *q++ = *pch;
3492 pch++;
3494 while (qemu_isspace(*pch))
3495 pch++;
3496 *q = 0;
3497 ret = get_monitor_def(&reg, buf);
3498 if (ret < 0)
3499 expr_error(mon, "unknown register");
3500 n = reg;
3502 break;
3503 case '\0':
3504 expr_error(mon, "unexpected end of expression");
3505 n = 0;
3506 break;
3507 default:
3508 errno = 0;
3509 #if TARGET_PHYS_ADDR_BITS > 32
3510 n = strtoull(pch, &p, 0);
3511 #else
3512 n = strtoul(pch, &p, 0);
3513 #endif
3514 if (errno == ERANGE) {
3515 expr_error(mon, "number too large");
3517 if (pch == p) {
3518 expr_error(mon, "invalid char in expression");
3520 pch = p;
3521 while (qemu_isspace(*pch))
3522 pch++;
3523 break;
3525 return n;
3529 static int64_t expr_prod(Monitor *mon)
3531 int64_t val, val2;
3532 int op;
3534 val = expr_unary(mon);
3535 for(;;) {
3536 op = *pch;
3537 if (op != '*' && op != '/' && op != '%')
3538 break;
3539 next();
3540 val2 = expr_unary(mon);
3541 switch(op) {
3542 default:
3543 case '*':
3544 val *= val2;
3545 break;
3546 case '/':
3547 case '%':
3548 if (val2 == 0)
3549 expr_error(mon, "division by zero");
3550 if (op == '/')
3551 val /= val2;
3552 else
3553 val %= val2;
3554 break;
3557 return val;
3560 static int64_t expr_logic(Monitor *mon)
3562 int64_t val, val2;
3563 int op;
3565 val = expr_prod(mon);
3566 for(;;) {
3567 op = *pch;
3568 if (op != '&' && op != '|' && op != '^')
3569 break;
3570 next();
3571 val2 = expr_prod(mon);
3572 switch(op) {
3573 default:
3574 case '&':
3575 val &= val2;
3576 break;
3577 case '|':
3578 val |= val2;
3579 break;
3580 case '^':
3581 val ^= val2;
3582 break;
3585 return val;
3588 static int64_t expr_sum(Monitor *mon)
3590 int64_t val, val2;
3591 int op;
3593 val = expr_logic(mon);
3594 for(;;) {
3595 op = *pch;
3596 if (op != '+' && op != '-')
3597 break;
3598 next();
3599 val2 = expr_logic(mon);
3600 if (op == '+')
3601 val += val2;
3602 else
3603 val -= val2;
3605 return val;
3608 static int get_expr(Monitor *mon, int64_t *pval, const char **pp)
3610 pch = *pp;
3611 if (setjmp(expr_env)) {
3612 *pp = pch;
3613 return -1;
3615 while (qemu_isspace(*pch))
3616 pch++;
3617 *pval = expr_sum(mon);
3618 *pp = pch;
3619 return 0;
3622 static int get_double(Monitor *mon, double *pval, const char **pp)
3624 const char *p = *pp;
3625 char *tailp;
3626 double d;
3628 d = strtod(p, &tailp);
3629 if (tailp == p) {
3630 monitor_printf(mon, "Number expected\n");
3631 return -1;
3633 if (d != d || d - d != 0) {
3634 /* NaN or infinity */
3635 monitor_printf(mon, "Bad number\n");
3636 return -1;
3638 *pval = d;
3639 *pp = tailp;
3640 return 0;
3643 static int get_str(char *buf, int buf_size, const char **pp)
3645 const char *p;
3646 char *q;
3647 int c;
3649 q = buf;
3650 p = *pp;
3651 while (qemu_isspace(*p))
3652 p++;
3653 if (*p == '\0') {
3654 fail:
3655 *q = '\0';
3656 *pp = p;
3657 return -1;
3659 if (*p == '\"') {
3660 p++;
3661 while (*p != '\0' && *p != '\"') {
3662 if (*p == '\\') {
3663 p++;
3664 c = *p++;
3665 switch(c) {
3666 case 'n':
3667 c = '\n';
3668 break;
3669 case 'r':
3670 c = '\r';
3671 break;
3672 case '\\':
3673 case '\'':
3674 case '\"':
3675 break;
3676 default:
3677 qemu_printf("unsupported escape code: '\\%c'\n", c);
3678 goto fail;
3680 if ((q - buf) < buf_size - 1) {
3681 *q++ = c;
3683 } else {
3684 if ((q - buf) < buf_size - 1) {
3685 *q++ = *p;
3687 p++;
3690 if (*p != '\"') {
3691 qemu_printf("unterminated string\n");
3692 goto fail;
3694 p++;
3695 } else {
3696 while (*p != '\0' && !qemu_isspace(*p)) {
3697 if ((q - buf) < buf_size - 1) {
3698 *q++ = *p;
3700 p++;
3703 *q = '\0';
3704 *pp = p;
3705 return 0;
3709 * Store the command-name in cmdname, and return a pointer to
3710 * the remaining of the command string.
3712 static const char *get_command_name(const char *cmdline,
3713 char *cmdname, size_t nlen)
3715 size_t len;
3716 const char *p, *pstart;
3718 p = cmdline;
3719 while (qemu_isspace(*p))
3720 p++;
3721 if (*p == '\0')
3722 return NULL;
3723 pstart = p;
3724 while (*p != '\0' && *p != '/' && !qemu_isspace(*p))
3725 p++;
3726 len = p - pstart;
3727 if (len > nlen - 1)
3728 len = nlen - 1;
3729 memcpy(cmdname, pstart, len);
3730 cmdname[len] = '\0';
3731 return p;
3735 * Read key of 'type' into 'key' and return the current
3736 * 'type' pointer.
3738 static char *key_get_info(const char *type, char **key)
3740 size_t len;
3741 char *p, *str;
3743 if (*type == ',')
3744 type++;
3746 p = strchr(type, ':');
3747 if (!p) {
3748 *key = NULL;
3749 return NULL;
3751 len = p - type;
3753 str = g_malloc(len + 1);
3754 memcpy(str, type, len);
3755 str[len] = '\0';
3757 *key = str;
3758 return ++p;
3761 static int default_fmt_format = 'x';
3762 static int default_fmt_size = 4;
3764 #define MAX_ARGS 16
3766 static int is_valid_option(const char *c, const char *typestr)
3768 char option[3];
3770 option[0] = '-';
3771 option[1] = *c;
3772 option[2] = '\0';
3774 typestr = strstr(typestr, option);
3775 return (typestr != NULL);
3778 static const mon_cmd_t *search_dispatch_table(const mon_cmd_t *disp_table,
3779 const char *cmdname)
3781 const mon_cmd_t *cmd;
3783 for (cmd = disp_table; cmd->name != NULL; cmd++) {
3784 if (compare_cmd(cmdname, cmd->name)) {
3785 return cmd;
3789 return NULL;
3792 static const mon_cmd_t *monitor_find_command(const char *cmdname)
3794 return search_dispatch_table(mon_cmds, cmdname);
3797 static const mon_cmd_t *qmp_find_cmd(const char *cmdname)
3799 return search_dispatch_table(qmp_cmds, cmdname);
3802 static const mon_cmd_t *monitor_parse_command(Monitor *mon,
3803 const char *cmdline,
3804 QDict *qdict)
3806 const char *p, *typestr;
3807 int c;
3808 const mon_cmd_t *cmd;
3809 char cmdname[256];
3810 char buf[1024];
3811 char *key;
3813 #ifdef DEBUG
3814 monitor_printf(mon, "command='%s'\n", cmdline);
3815 #endif
3817 /* extract the command name */
3818 p = get_command_name(cmdline, cmdname, sizeof(cmdname));
3819 if (!p)
3820 return NULL;
3822 cmd = monitor_find_command(cmdname);
3823 if (!cmd) {
3824 monitor_printf(mon, "unknown command: '%s'\n", cmdname);
3825 return NULL;
3828 /* parse the parameters */
3829 typestr = cmd->args_type;
3830 for(;;) {
3831 typestr = key_get_info(typestr, &key);
3832 if (!typestr)
3833 break;
3834 c = *typestr;
3835 typestr++;
3836 switch(c) {
3837 case 'F':
3838 case 'B':
3839 case 's':
3841 int ret;
3843 while (qemu_isspace(*p))
3844 p++;
3845 if (*typestr == '?') {
3846 typestr++;
3847 if (*p == '\0') {
3848 /* no optional string: NULL argument */
3849 break;
3852 ret = get_str(buf, sizeof(buf), &p);
3853 if (ret < 0) {
3854 switch(c) {
3855 case 'F':
3856 monitor_printf(mon, "%s: filename expected\n",
3857 cmdname);
3858 break;
3859 case 'B':
3860 monitor_printf(mon, "%s: block device name expected\n",
3861 cmdname);
3862 break;
3863 default:
3864 monitor_printf(mon, "%s: string expected\n", cmdname);
3865 break;
3867 goto fail;
3869 qdict_put(qdict, key, qstring_from_str(buf));
3871 break;
3872 case 'O':
3874 QemuOptsList *opts_list;
3875 QemuOpts *opts;
3877 opts_list = qemu_find_opts(key);
3878 if (!opts_list || opts_list->desc->name) {
3879 goto bad_type;
3881 while (qemu_isspace(*p)) {
3882 p++;
3884 if (!*p)
3885 break;
3886 if (get_str(buf, sizeof(buf), &p) < 0) {
3887 goto fail;
3889 opts = qemu_opts_parse(opts_list, buf, 1);
3890 if (!opts) {
3891 goto fail;
3893 qemu_opts_to_qdict(opts, qdict);
3894 qemu_opts_del(opts);
3896 break;
3897 case '/':
3899 int count, format, size;
3901 while (qemu_isspace(*p))
3902 p++;
3903 if (*p == '/') {
3904 /* format found */
3905 p++;
3906 count = 1;
3907 if (qemu_isdigit(*p)) {
3908 count = 0;
3909 while (qemu_isdigit(*p)) {
3910 count = count * 10 + (*p - '0');
3911 p++;
3914 size = -1;
3915 format = -1;
3916 for(;;) {
3917 switch(*p) {
3918 case 'o':
3919 case 'd':
3920 case 'u':
3921 case 'x':
3922 case 'i':
3923 case 'c':
3924 format = *p++;
3925 break;
3926 case 'b':
3927 size = 1;
3928 p++;
3929 break;
3930 case 'h':
3931 size = 2;
3932 p++;
3933 break;
3934 case 'w':
3935 size = 4;
3936 p++;
3937 break;
3938 case 'g':
3939 case 'L':
3940 size = 8;
3941 p++;
3942 break;
3943 default:
3944 goto next;
3947 next:
3948 if (*p != '\0' && !qemu_isspace(*p)) {
3949 monitor_printf(mon, "invalid char in format: '%c'\n",
3950 *p);
3951 goto fail;
3953 if (format < 0)
3954 format = default_fmt_format;
3955 if (format != 'i') {
3956 /* for 'i', not specifying a size gives -1 as size */
3957 if (size < 0)
3958 size = default_fmt_size;
3959 default_fmt_size = size;
3961 default_fmt_format = format;
3962 } else {
3963 count = 1;
3964 format = default_fmt_format;
3965 if (format != 'i') {
3966 size = default_fmt_size;
3967 } else {
3968 size = -1;
3971 qdict_put(qdict, "count", qint_from_int(count));
3972 qdict_put(qdict, "format", qint_from_int(format));
3973 qdict_put(qdict, "size", qint_from_int(size));
3975 break;
3976 case 'i':
3977 case 'l':
3978 case 'M':
3980 int64_t val;
3982 while (qemu_isspace(*p))
3983 p++;
3984 if (*typestr == '?' || *typestr == '.') {
3985 if (*typestr == '?') {
3986 if (*p == '\0') {
3987 typestr++;
3988 break;
3990 } else {
3991 if (*p == '.') {
3992 p++;
3993 while (qemu_isspace(*p))
3994 p++;
3995 } else {
3996 typestr++;
3997 break;
4000 typestr++;
4002 if (get_expr(mon, &val, &p))
4003 goto fail;
4004 /* Check if 'i' is greater than 32-bit */
4005 if ((c == 'i') && ((val >> 32) & 0xffffffff)) {
4006 monitor_printf(mon, "\'%s\' has failed: ", cmdname);
4007 monitor_printf(mon, "integer is for 32-bit values\n");
4008 goto fail;
4009 } else if (c == 'M') {
4010 if (val < 0) {
4011 monitor_printf(mon, "enter a positive value\n");
4012 goto fail;
4014 val <<= 20;
4016 qdict_put(qdict, key, qint_from_int(val));
4018 break;
4019 case 'o':
4021 int64_t val;
4022 char *end;
4024 while (qemu_isspace(*p)) {
4025 p++;
4027 if (*typestr == '?') {
4028 typestr++;
4029 if (*p == '\0') {
4030 break;
4033 val = strtosz(p, &end);
4034 if (val < 0) {
4035 monitor_printf(mon, "invalid size\n");
4036 goto fail;
4038 qdict_put(qdict, key, qint_from_int(val));
4039 p = end;
4041 break;
4042 case 'T':
4044 double val;
4046 while (qemu_isspace(*p))
4047 p++;
4048 if (*typestr == '?') {
4049 typestr++;
4050 if (*p == '\0') {
4051 break;
4054 if (get_double(mon, &val, &p) < 0) {
4055 goto fail;
4057 if (p[0] && p[1] == 's') {
4058 switch (*p) {
4059 case 'm':
4060 val /= 1e3; p += 2; break;
4061 case 'u':
4062 val /= 1e6; p += 2; break;
4063 case 'n':
4064 val /= 1e9; p += 2; break;
4067 if (*p && !qemu_isspace(*p)) {
4068 monitor_printf(mon, "Unknown unit suffix\n");
4069 goto fail;
4071 qdict_put(qdict, key, qfloat_from_double(val));
4073 break;
4074 case 'b':
4076 const char *beg;
4077 int val;
4079 while (qemu_isspace(*p)) {
4080 p++;
4082 beg = p;
4083 while (qemu_isgraph(*p)) {
4084 p++;
4086 if (p - beg == 2 && !memcmp(beg, "on", p - beg)) {
4087 val = 1;
4088 } else if (p - beg == 3 && !memcmp(beg, "off", p - beg)) {
4089 val = 0;
4090 } else {
4091 monitor_printf(mon, "Expected 'on' or 'off'\n");
4092 goto fail;
4094 qdict_put(qdict, key, qbool_from_int(val));
4096 break;
4097 case '-':
4099 const char *tmp = p;
4100 int skip_key = 0;
4101 /* option */
4103 c = *typestr++;
4104 if (c == '\0')
4105 goto bad_type;
4106 while (qemu_isspace(*p))
4107 p++;
4108 if (*p == '-') {
4109 p++;
4110 if(c != *p) {
4111 if(!is_valid_option(p, typestr)) {
4113 monitor_printf(mon, "%s: unsupported option -%c\n",
4114 cmdname, *p);
4115 goto fail;
4116 } else {
4117 skip_key = 1;
4120 if(skip_key) {
4121 p = tmp;
4122 } else {
4123 /* has option */
4124 p++;
4125 qdict_put(qdict, key, qbool_from_int(1));
4129 break;
4130 default:
4131 bad_type:
4132 monitor_printf(mon, "%s: unknown type '%c'\n", cmdname, c);
4133 goto fail;
4135 g_free(key);
4136 key = NULL;
4138 /* check that all arguments were parsed */
4139 while (qemu_isspace(*p))
4140 p++;
4141 if (*p != '\0') {
4142 monitor_printf(mon, "%s: extraneous characters at the end of line\n",
4143 cmdname);
4144 goto fail;
4147 return cmd;
4149 fail:
4150 g_free(key);
4151 return NULL;
4154 void monitor_set_error(Monitor *mon, QError *qerror)
4156 /* report only the first error */
4157 if (!mon->error) {
4158 mon->error = qerror;
4159 } else {
4160 QDECREF(qerror);
4164 static void handler_audit(Monitor *mon, const mon_cmd_t *cmd, int ret)
4166 if (ret && !monitor_has_error(mon)) {
4168 * If it returns failure, it must have passed on error.
4170 * Action: Report an internal error to the client if in QMP.
4172 qerror_report(QERR_UNDEFINED_ERROR);
4176 static void handle_user_command(Monitor *mon, const char *cmdline)
4178 QDict *qdict;
4179 const mon_cmd_t *cmd;
4181 qdict = qdict_new();
4183 cmd = monitor_parse_command(mon, cmdline, qdict);
4184 if (!cmd)
4185 goto out;
4187 if (handler_is_async(cmd)) {
4188 user_async_cmd_handler(mon, cmd, qdict);
4189 } else if (handler_is_qobject(cmd)) {
4190 QObject *data = NULL;
4192 /* XXX: ignores the error code */
4193 cmd->mhandler.cmd_new(mon, qdict, &data);
4194 assert(!monitor_has_error(mon));
4195 if (data) {
4196 cmd->user_print(mon, data);
4197 qobject_decref(data);
4199 } else {
4200 cmd->mhandler.cmd(mon, qdict);
4203 out:
4204 QDECREF(qdict);
4207 static void cmd_completion(const char *name, const char *list)
4209 const char *p, *pstart;
4210 char cmd[128];
4211 int len;
4213 p = list;
4214 for(;;) {
4215 pstart = p;
4216 p = strchr(p, '|');
4217 if (!p)
4218 p = pstart + strlen(pstart);
4219 len = p - pstart;
4220 if (len > sizeof(cmd) - 2)
4221 len = sizeof(cmd) - 2;
4222 memcpy(cmd, pstart, len);
4223 cmd[len] = '\0';
4224 if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
4225 readline_add_completion(cur_mon->rs, cmd);
4227 if (*p == '\0')
4228 break;
4229 p++;
4233 static void file_completion(const char *input)
4235 DIR *ffs;
4236 struct dirent *d;
4237 char path[1024];
4238 char file[1024], file_prefix[1024];
4239 int input_path_len;
4240 const char *p;
4242 p = strrchr(input, '/');
4243 if (!p) {
4244 input_path_len = 0;
4245 pstrcpy(file_prefix, sizeof(file_prefix), input);
4246 pstrcpy(path, sizeof(path), ".");
4247 } else {
4248 input_path_len = p - input + 1;
4249 memcpy(path, input, input_path_len);
4250 if (input_path_len > sizeof(path) - 1)
4251 input_path_len = sizeof(path) - 1;
4252 path[input_path_len] = '\0';
4253 pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
4255 #ifdef DEBUG_COMPLETION
4256 monitor_printf(cur_mon, "input='%s' path='%s' prefix='%s'\n",
4257 input, path, file_prefix);
4258 #endif
4259 ffs = opendir(path);
4260 if (!ffs)
4261 return;
4262 for(;;) {
4263 struct stat sb;
4264 d = readdir(ffs);
4265 if (!d)
4266 break;
4268 if (strcmp(d->d_name, ".") == 0 || strcmp(d->d_name, "..") == 0) {
4269 continue;
4272 if (strstart(d->d_name, file_prefix, NULL)) {
4273 memcpy(file, input, input_path_len);
4274 if (input_path_len < sizeof(file))
4275 pstrcpy(file + input_path_len, sizeof(file) - input_path_len,
4276 d->d_name);
4277 /* stat the file to find out if it's a directory.
4278 * In that case add a slash to speed up typing long paths
4280 if (stat(file, &sb) == 0 && S_ISDIR(sb.st_mode)) {
4281 pstrcat(file, sizeof(file), "/");
4283 readline_add_completion(cur_mon->rs, file);
4286 closedir(ffs);
4289 static void block_completion_it(void *opaque, BlockDriverState *bs)
4291 const char *name = bdrv_get_device_name(bs);
4292 const char *input = opaque;
4294 if (input[0] == '\0' ||
4295 !strncmp(name, (char *)input, strlen(input))) {
4296 readline_add_completion(cur_mon->rs, name);
4300 /* NOTE: this parser is an approximate form of the real command parser */
4301 static void parse_cmdline(const char *cmdline,
4302 int *pnb_args, char **args)
4304 const char *p;
4305 int nb_args, ret;
4306 char buf[1024];
4308 p = cmdline;
4309 nb_args = 0;
4310 for(;;) {
4311 while (qemu_isspace(*p))
4312 p++;
4313 if (*p == '\0')
4314 break;
4315 if (nb_args >= MAX_ARGS)
4316 break;
4317 ret = get_str(buf, sizeof(buf), &p);
4318 args[nb_args] = g_strdup(buf);
4319 nb_args++;
4320 if (ret < 0)
4321 break;
4323 *pnb_args = nb_args;
4326 static const char *next_arg_type(const char *typestr)
4328 const char *p = strchr(typestr, ':');
4329 return (p != NULL ? ++p : typestr);
4332 static void monitor_find_completion(const char *cmdline)
4334 const char *cmdname;
4335 char *args[MAX_ARGS];
4336 int nb_args, i, len;
4337 const char *ptype, *str;
4338 const mon_cmd_t *cmd;
4339 const KeyDef *key;
4341 parse_cmdline(cmdline, &nb_args, args);
4342 #ifdef DEBUG_COMPLETION
4343 for(i = 0; i < nb_args; i++) {
4344 monitor_printf(cur_mon, "arg%d = '%s'\n", i, (char *)args[i]);
4346 #endif
4348 /* if the line ends with a space, it means we want to complete the
4349 next arg */
4350 len = strlen(cmdline);
4351 if (len > 0 && qemu_isspace(cmdline[len - 1])) {
4352 if (nb_args >= MAX_ARGS) {
4353 goto cleanup;
4355 args[nb_args++] = g_strdup("");
4357 if (nb_args <= 1) {
4358 /* command completion */
4359 if (nb_args == 0)
4360 cmdname = "";
4361 else
4362 cmdname = args[0];
4363 readline_set_completion_index(cur_mon->rs, strlen(cmdname));
4364 for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
4365 cmd_completion(cmdname, cmd->name);
4367 } else {
4368 /* find the command */
4369 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
4370 if (compare_cmd(args[0], cmd->name)) {
4371 break;
4374 if (!cmd->name) {
4375 goto cleanup;
4378 ptype = next_arg_type(cmd->args_type);
4379 for(i = 0; i < nb_args - 2; i++) {
4380 if (*ptype != '\0') {
4381 ptype = next_arg_type(ptype);
4382 while (*ptype == '?')
4383 ptype = next_arg_type(ptype);
4386 str = args[nb_args - 1];
4387 if (*ptype == '-' && ptype[1] != '\0') {
4388 ptype = next_arg_type(ptype);
4390 switch(*ptype) {
4391 case 'F':
4392 /* file completion */
4393 readline_set_completion_index(cur_mon->rs, strlen(str));
4394 file_completion(str);
4395 break;
4396 case 'B':
4397 /* block device name completion */
4398 readline_set_completion_index(cur_mon->rs, strlen(str));
4399 bdrv_iterate(block_completion_it, (void *)str);
4400 break;
4401 case 's':
4402 /* XXX: more generic ? */
4403 if (!strcmp(cmd->name, "info")) {
4404 readline_set_completion_index(cur_mon->rs, strlen(str));
4405 for(cmd = info_cmds; cmd->name != NULL; cmd++) {
4406 cmd_completion(str, cmd->name);
4408 } else if (!strcmp(cmd->name, "sendkey")) {
4409 char *sep = strrchr(str, '-');
4410 if (sep)
4411 str = sep + 1;
4412 readline_set_completion_index(cur_mon->rs, strlen(str));
4413 for(key = key_defs; key->name != NULL; key++) {
4414 cmd_completion(str, key->name);
4416 } else if (!strcmp(cmd->name, "help|?")) {
4417 readline_set_completion_index(cur_mon->rs, strlen(str));
4418 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
4419 cmd_completion(str, cmd->name);
4422 break;
4423 default:
4424 break;
4428 cleanup:
4429 for (i = 0; i < nb_args; i++) {
4430 g_free(args[i]);
4434 static int monitor_can_read(void *opaque)
4436 Monitor *mon = opaque;
4438 return (mon->suspend_cnt == 0) ? 1 : 0;
4441 static int invalid_qmp_mode(const Monitor *mon, const char *cmd_name)
4443 int is_cap = compare_cmd(cmd_name, "qmp_capabilities");
4444 return (qmp_cmd_mode(mon) ? is_cap : !is_cap);
4448 * Argument validation rules:
4450 * 1. The argument must exist in cmd_args qdict
4451 * 2. The argument type must be the expected one
4453 * Special case: If the argument doesn't exist in cmd_args and
4454 * the QMP_ACCEPT_UNKNOWNS flag is set, then the
4455 * checking is skipped for it.
4457 static int check_client_args_type(const QDict *client_args,
4458 const QDict *cmd_args, int flags)
4460 const QDictEntry *ent;
4462 for (ent = qdict_first(client_args); ent;ent = qdict_next(client_args,ent)){
4463 QObject *obj;
4464 QString *arg_type;
4465 const QObject *client_arg = qdict_entry_value(ent);
4466 const char *client_arg_name = qdict_entry_key(ent);
4468 obj = qdict_get(cmd_args, client_arg_name);
4469 if (!obj) {
4470 if (flags & QMP_ACCEPT_UNKNOWNS) {
4471 /* handler accepts unknowns */
4472 continue;
4474 /* client arg doesn't exist */
4475 qerror_report(QERR_INVALID_PARAMETER, client_arg_name);
4476 return -1;
4479 arg_type = qobject_to_qstring(obj);
4480 assert(arg_type != NULL);
4482 /* check if argument's type is correct */
4483 switch (qstring_get_str(arg_type)[0]) {
4484 case 'F':
4485 case 'B':
4486 case 's':
4487 if (qobject_type(client_arg) != QTYPE_QSTRING) {
4488 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4489 "string");
4490 return -1;
4492 break;
4493 case 'i':
4494 case 'l':
4495 case 'M':
4496 case 'o':
4497 if (qobject_type(client_arg) != QTYPE_QINT) {
4498 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4499 "int");
4500 return -1;
4502 break;
4503 case 'T':
4504 if (qobject_type(client_arg) != QTYPE_QINT &&
4505 qobject_type(client_arg) != QTYPE_QFLOAT) {
4506 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4507 "number");
4508 return -1;
4510 break;
4511 case 'b':
4512 case '-':
4513 if (qobject_type(client_arg) != QTYPE_QBOOL) {
4514 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4515 "bool");
4516 return -1;
4518 break;
4519 case 'O':
4520 assert(flags & QMP_ACCEPT_UNKNOWNS);
4521 break;
4522 case 'q':
4523 /* Any QObject can be passed. */
4524 break;
4525 case '/':
4526 case '.':
4528 * These types are not supported by QMP and thus are not
4529 * handled here. Fall through.
4531 default:
4532 abort();
4536 return 0;
4540 * - Check if the client has passed all mandatory args
4541 * - Set special flags for argument validation
4543 static int check_mandatory_args(const QDict *cmd_args,
4544 const QDict *client_args, int *flags)
4546 const QDictEntry *ent;
4548 for (ent = qdict_first(cmd_args); ent; ent = qdict_next(cmd_args, ent)) {
4549 const char *cmd_arg_name = qdict_entry_key(ent);
4550 QString *type = qobject_to_qstring(qdict_entry_value(ent));
4551 assert(type != NULL);
4553 if (qstring_get_str(type)[0] == 'O') {
4554 assert((*flags & QMP_ACCEPT_UNKNOWNS) == 0);
4555 *flags |= QMP_ACCEPT_UNKNOWNS;
4556 } else if (qstring_get_str(type)[0] != '-' &&
4557 qstring_get_str(type)[1] != '?' &&
4558 !qdict_haskey(client_args, cmd_arg_name)) {
4559 qerror_report(QERR_MISSING_PARAMETER, cmd_arg_name);
4560 return -1;
4564 return 0;
4567 static QDict *qdict_from_args_type(const char *args_type)
4569 int i;
4570 QDict *qdict;
4571 QString *key, *type, *cur_qs;
4573 assert(args_type != NULL);
4575 qdict = qdict_new();
4577 if (args_type == NULL || args_type[0] == '\0') {
4578 /* no args, empty qdict */
4579 goto out;
4582 key = qstring_new();
4583 type = qstring_new();
4585 cur_qs = key;
4587 for (i = 0;; i++) {
4588 switch (args_type[i]) {
4589 case ',':
4590 case '\0':
4591 qdict_put(qdict, qstring_get_str(key), type);
4592 QDECREF(key);
4593 if (args_type[i] == '\0') {
4594 goto out;
4596 type = qstring_new(); /* qdict has ref */
4597 cur_qs = key = qstring_new();
4598 break;
4599 case ':':
4600 cur_qs = type;
4601 break;
4602 default:
4603 qstring_append_chr(cur_qs, args_type[i]);
4604 break;
4608 out:
4609 return qdict;
4613 * Client argument checking rules:
4615 * 1. Client must provide all mandatory arguments
4616 * 2. Each argument provided by the client must be expected
4617 * 3. Each argument provided by the client must have the type expected
4618 * by the command
4620 static int qmp_check_client_args(const mon_cmd_t *cmd, QDict *client_args)
4622 int flags, err;
4623 QDict *cmd_args;
4625 cmd_args = qdict_from_args_type(cmd->args_type);
4627 flags = 0;
4628 err = check_mandatory_args(cmd_args, client_args, &flags);
4629 if (err) {
4630 goto out;
4633 err = check_client_args_type(client_args, cmd_args, flags);
4635 out:
4636 QDECREF(cmd_args);
4637 return err;
4641 * Input object checking rules
4643 * 1. Input object must be a dict
4644 * 2. The "execute" key must exist
4645 * 3. The "execute" key must be a string
4646 * 4. If the "arguments" key exists, it must be a dict
4647 * 5. If the "id" key exists, it can be anything (ie. json-value)
4648 * 6. Any argument not listed above is considered invalid
4650 static QDict *qmp_check_input_obj(QObject *input_obj)
4652 const QDictEntry *ent;
4653 int has_exec_key = 0;
4654 QDict *input_dict;
4656 if (qobject_type(input_obj) != QTYPE_QDICT) {
4657 qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "object");
4658 return NULL;
4661 input_dict = qobject_to_qdict(input_obj);
4663 for (ent = qdict_first(input_dict); ent; ent = qdict_next(input_dict, ent)){
4664 const char *arg_name = qdict_entry_key(ent);
4665 const QObject *arg_obj = qdict_entry_value(ent);
4667 if (!strcmp(arg_name, "execute")) {
4668 if (qobject_type(arg_obj) != QTYPE_QSTRING) {
4669 qerror_report(QERR_QMP_BAD_INPUT_OBJECT_MEMBER, "execute",
4670 "string");
4671 return NULL;
4673 has_exec_key = 1;
4674 } else if (!strcmp(arg_name, "arguments")) {
4675 if (qobject_type(arg_obj) != QTYPE_QDICT) {
4676 qerror_report(QERR_QMP_BAD_INPUT_OBJECT_MEMBER, "arguments",
4677 "object");
4678 return NULL;
4680 } else if (!strcmp(arg_name, "id")) {
4681 /* FIXME: check duplicated IDs for async commands */
4682 } else {
4683 qerror_report(QERR_QMP_EXTRA_MEMBER, arg_name);
4684 return NULL;
4688 if (!has_exec_key) {
4689 qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "execute");
4690 return NULL;
4693 return input_dict;
4696 static void qmp_call_cmd(Monitor *mon, const mon_cmd_t *cmd,
4697 const QDict *params)
4699 int ret;
4700 QObject *data = NULL;
4702 ret = cmd->mhandler.cmd_new(mon, params, &data);
4703 handler_audit(mon, cmd, ret);
4704 monitor_protocol_emitter(mon, data);
4705 qobject_decref(data);
4708 static void handle_qmp_command(JSONMessageParser *parser, QList *tokens)
4710 int err;
4711 QObject *obj;
4712 QDict *input, *args;
4713 const mon_cmd_t *cmd;
4714 const char *cmd_name;
4715 Monitor *mon = cur_mon;
4717 args = input = NULL;
4719 obj = json_parser_parse(tokens, NULL);
4720 if (!obj) {
4721 // FIXME: should be triggered in json_parser_parse()
4722 qerror_report(QERR_JSON_PARSING);
4723 goto err_out;
4726 input = qmp_check_input_obj(obj);
4727 if (!input) {
4728 qobject_decref(obj);
4729 goto err_out;
4732 mon->mc->id = qdict_get(input, "id");
4733 qobject_incref(mon->mc->id);
4735 cmd_name = qdict_get_str(input, "execute");
4736 trace_handle_qmp_command(mon, cmd_name);
4737 if (invalid_qmp_mode(mon, cmd_name)) {
4738 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
4739 goto err_out;
4742 cmd = qmp_find_cmd(cmd_name);
4743 if (!cmd) {
4744 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
4745 goto err_out;
4748 obj = qdict_get(input, "arguments");
4749 if (!obj) {
4750 args = qdict_new();
4751 } else {
4752 args = qobject_to_qdict(obj);
4753 QINCREF(args);
4756 err = qmp_check_client_args(cmd, args);
4757 if (err < 0) {
4758 goto err_out;
4761 if (handler_is_async(cmd)) {
4762 err = qmp_async_cmd_handler(mon, cmd, args);
4763 if (err) {
4764 /* emit the error response */
4765 goto err_out;
4767 } else {
4768 qmp_call_cmd(mon, cmd, args);
4771 goto out;
4773 err_out:
4774 monitor_protocol_emitter(mon, NULL);
4775 out:
4776 QDECREF(input);
4777 QDECREF(args);
4781 * monitor_control_read(): Read and handle QMP input
4783 static void monitor_control_read(void *opaque, const uint8_t *buf, int size)
4785 Monitor *old_mon = cur_mon;
4787 cur_mon = opaque;
4789 json_message_parser_feed(&cur_mon->mc->parser, (const char *) buf, size);
4791 cur_mon = old_mon;
4794 static void monitor_read(void *opaque, const uint8_t *buf, int size)
4796 Monitor *old_mon = cur_mon;
4797 int i;
4799 cur_mon = opaque;
4801 if (cur_mon->rs) {
4802 for (i = 0; i < size; i++)
4803 readline_handle_byte(cur_mon->rs, buf[i]);
4804 } else {
4805 if (size == 0 || buf[size - 1] != 0)
4806 monitor_printf(cur_mon, "corrupted command\n");
4807 else
4808 handle_user_command(cur_mon, (char *)buf);
4811 cur_mon = old_mon;
4814 static void monitor_command_cb(Monitor *mon, const char *cmdline, void *opaque)
4816 monitor_suspend(mon);
4817 handle_user_command(mon, cmdline);
4818 monitor_resume(mon);
4821 int monitor_suspend(Monitor *mon)
4823 if (!mon->rs)
4824 return -ENOTTY;
4825 mon->suspend_cnt++;
4826 return 0;
4829 void monitor_resume(Monitor *mon)
4831 if (!mon->rs)
4832 return;
4833 if (--mon->suspend_cnt == 0)
4834 readline_show_prompt(mon->rs);
4837 static QObject *get_qmp_greeting(void)
4839 QObject *ver = NULL;
4841 qmp_marshal_input_query_version(NULL, NULL, &ver);
4842 return qobject_from_jsonf("{'QMP':{'version': %p,'capabilities': []}}",ver);
4846 * monitor_control_event(): Print QMP gretting
4848 static void monitor_control_event(void *opaque, int event)
4850 QObject *data;
4851 Monitor *mon = opaque;
4853 switch (event) {
4854 case CHR_EVENT_OPENED:
4855 mon->mc->command_mode = 0;
4856 json_message_parser_init(&mon->mc->parser, handle_qmp_command);
4857 data = get_qmp_greeting();
4858 monitor_json_emitter(mon, data);
4859 qobject_decref(data);
4860 mon_refcount++;
4861 break;
4862 case CHR_EVENT_CLOSED:
4863 json_message_parser_destroy(&mon->mc->parser);
4864 mon_refcount--;
4865 monitor_fdsets_cleanup();
4866 break;
4870 static void monitor_event(void *opaque, int event)
4872 Monitor *mon = opaque;
4874 switch (event) {
4875 case CHR_EVENT_MUX_IN:
4876 mon->mux_out = 0;
4877 if (mon->reset_seen) {
4878 readline_restart(mon->rs);
4879 monitor_resume(mon);
4880 monitor_flush(mon);
4881 } else {
4882 mon->suspend_cnt = 0;
4884 break;
4886 case CHR_EVENT_MUX_OUT:
4887 if (mon->reset_seen) {
4888 if (mon->suspend_cnt == 0) {
4889 monitor_printf(mon, "\n");
4891 monitor_flush(mon);
4892 monitor_suspend(mon);
4893 } else {
4894 mon->suspend_cnt++;
4896 mon->mux_out = 1;
4897 break;
4899 case CHR_EVENT_OPENED:
4900 monitor_printf(mon, "QEMU %s monitor - type 'help' for more "
4901 "information\n", QEMU_VERSION);
4902 if (!mon->mux_out) {
4903 readline_show_prompt(mon->rs);
4905 mon->reset_seen = 1;
4906 mon_refcount++;
4907 break;
4909 case CHR_EVENT_CLOSED:
4910 mon_refcount--;
4911 monitor_fdsets_cleanup();
4912 break;
4916 static int
4917 compare_mon_cmd(const void *a, const void *b)
4919 return strcmp(((const mon_cmd_t *)a)->name,
4920 ((const mon_cmd_t *)b)->name);
4923 static void sortcmdlist(void)
4925 int array_num;
4926 int elem_size = sizeof(mon_cmd_t);
4928 array_num = sizeof(mon_cmds)/elem_size-1;
4929 qsort((void *)mon_cmds, array_num, elem_size, compare_mon_cmd);
4931 array_num = sizeof(info_cmds)/elem_size-1;
4932 qsort((void *)info_cmds, array_num, elem_size, compare_mon_cmd);
4937 * Local variables:
4938 * c-indent-level: 4
4939 * c-basic-offset: 4
4940 * tab-width: 8
4941 * End:
4944 void monitor_init(CharDriverState *chr, int flags)
4946 static int is_first_init = 1;
4947 Monitor *mon;
4949 if (is_first_init) {
4950 key_timer = qemu_new_timer_ns(vm_clock, release_keys, NULL);
4951 monitor_protocol_event_init();
4952 is_first_init = 0;
4955 mon = g_malloc0(sizeof(*mon));
4957 mon->chr = chr;
4958 mon->flags = flags;
4959 if (flags & MONITOR_USE_READLINE) {
4960 mon->rs = readline_init(mon, monitor_find_completion);
4961 monitor_read_command(mon, 0);
4964 if (monitor_ctrl_mode(mon)) {
4965 mon->mc = g_malloc0(sizeof(MonitorControl));
4966 /* Control mode requires special handlers */
4967 qemu_chr_add_handlers(chr, monitor_can_read, monitor_control_read,
4968 monitor_control_event, mon);
4969 qemu_chr_fe_set_echo(chr, true);
4970 } else {
4971 qemu_chr_add_handlers(chr, monitor_can_read, monitor_read,
4972 monitor_event, mon);
4975 QLIST_INSERT_HEAD(&mon_list, mon, entry);
4976 if (!default_mon || (flags & MONITOR_IS_DEFAULT))
4977 default_mon = mon;
4979 sortcmdlist();
4982 static void bdrv_password_cb(Monitor *mon, const char *password, void *opaque)
4984 BlockDriverState *bs = opaque;
4985 int ret = 0;
4987 if (bdrv_set_key(bs, password) != 0) {
4988 monitor_printf(mon, "invalid password\n");
4989 ret = -EPERM;
4991 if (mon->password_completion_cb)
4992 mon->password_completion_cb(mon->password_opaque, ret);
4994 monitor_read_command(mon, 1);
4997 ReadLineState *monitor_get_rs(Monitor *mon)
4999 return mon->rs;
5002 int monitor_read_bdrv_key_start(Monitor *mon, BlockDriverState *bs,
5003 BlockDriverCompletionFunc *completion_cb,
5004 void *opaque)
5006 int err;
5008 if (!bdrv_key_required(bs)) {
5009 if (completion_cb)
5010 completion_cb(opaque, 0);
5011 return 0;
5014 if (monitor_ctrl_mode(mon)) {
5015 qerror_report(QERR_DEVICE_ENCRYPTED, bdrv_get_device_name(bs),
5016 bdrv_get_encrypted_filename(bs));
5017 return -1;
5020 monitor_printf(mon, "%s (%s) is encrypted.\n", bdrv_get_device_name(bs),
5021 bdrv_get_encrypted_filename(bs));
5023 mon->password_completion_cb = completion_cb;
5024 mon->password_opaque = opaque;
5026 err = monitor_read_password(mon, bdrv_password_cb, bs);
5028 if (err && completion_cb)
5029 completion_cb(opaque, err);
5031 return err;
5034 int monitor_read_block_device_key(Monitor *mon, const char *device,
5035 BlockDriverCompletionFunc *completion_cb,
5036 void *opaque)
5038 BlockDriverState *bs;
5040 bs = bdrv_find(device);
5041 if (!bs) {
5042 monitor_printf(mon, "Device not found %s\n", device);
5043 return -1;
5046 return monitor_read_bdrv_key_start(mon, bs, completion_cb, opaque);