monitor: Fix leakage during completion processing
[qemu/stefanha.git] / monitor.c
blob42ae1546dbcfeb3755418f8ed6a658ac2926f252
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 "sysemu.h"
38 #include "monitor.h"
39 #include "readline.h"
40 #include "console.h"
41 #include "blockdev.h"
42 #include "audio/audio.h"
43 #include "disas.h"
44 #include "balloon.h"
45 #include "qemu-timer.h"
46 #include "migration.h"
47 #include "kvm.h"
48 #include "acl.h"
49 #include "qint.h"
50 #include "qfloat.h"
51 #include "qlist.h"
52 #include "qbool.h"
53 #include "qstring.h"
54 #include "qjson.h"
55 #include "json-streamer.h"
56 #include "json-parser.h"
57 #include "osdep.h"
59 //#define DEBUG
60 //#define DEBUG_COMPLETION
63 * Supported types:
65 * 'F' filename
66 * 'B' block device name
67 * 's' string (accept optional quote)
68 * 'O' option string of the form NAME=VALUE,...
69 * parsed according to QemuOptsList given by its name
70 * Example: 'device:O' uses qemu_device_opts.
71 * Restriction: only lists with empty desc are supported
72 * TODO lift the restriction
73 * 'i' 32 bit integer
74 * 'l' target long (32 or 64 bit)
75 * 'M' just like 'l', except in user mode the value is
76 * multiplied by 2^20 (think Mebibyte)
77 * 'f' double
78 * user mode accepts an optional G, g, M, m, K, k suffix,
79 * which multiplies the value by 2^30 for suffixes G and
80 * g, 2^20 for M and m, 2^10 for K and k
81 * 'T' double
82 * user mode accepts an optional ms, us, ns suffix,
83 * which divides the value by 1e3, 1e6, 1e9, respectively
84 * '/' optional gdb-like print format (like "/10x")
86 * '?' optional type (for all types, except '/')
87 * '.' other form of optional type (for 'i' and 'l')
88 * 'b' boolean
89 * user mode accepts "on" or "off"
90 * '-' optional parameter (eg. '-f')
94 typedef struct MonitorCompletionData MonitorCompletionData;
95 struct MonitorCompletionData {
96 Monitor *mon;
97 void (*user_print)(Monitor *mon, const QObject *data);
100 typedef struct mon_cmd_t {
101 const char *name;
102 const char *args_type;
103 const char *params;
104 const char *help;
105 void (*user_print)(Monitor *mon, const QObject *data);
106 union {
107 void (*info)(Monitor *mon);
108 void (*info_new)(Monitor *mon, QObject **ret_data);
109 int (*info_async)(Monitor *mon, MonitorCompletion *cb, void *opaque);
110 void (*cmd)(Monitor *mon, const QDict *qdict);
111 int (*cmd_new)(Monitor *mon, const QDict *params, QObject **ret_data);
112 int (*cmd_async)(Monitor *mon, const QDict *params,
113 MonitorCompletion *cb, void *opaque);
114 } mhandler;
115 int async;
116 } mon_cmd_t;
118 /* file descriptors passed via SCM_RIGHTS */
119 typedef struct mon_fd_t mon_fd_t;
120 struct mon_fd_t {
121 char *name;
122 int fd;
123 QLIST_ENTRY(mon_fd_t) next;
126 typedef struct MonitorControl {
127 QObject *id;
128 JSONMessageParser parser;
129 int command_mode;
130 } MonitorControl;
132 struct Monitor {
133 CharDriverState *chr;
134 int mux_out;
135 int reset_seen;
136 int flags;
137 int suspend_cnt;
138 uint8_t outbuf[1024];
139 int outbuf_index;
140 ReadLineState *rs;
141 MonitorControl *mc;
142 CPUState *mon_cpu;
143 BlockDriverCompletionFunc *password_completion_cb;
144 void *password_opaque;
145 #ifdef CONFIG_DEBUG_MONITOR
146 int print_calls_nr;
147 #endif
148 QError *error;
149 QLIST_HEAD(,mon_fd_t) fds;
150 QLIST_ENTRY(Monitor) entry;
153 #ifdef CONFIG_DEBUG_MONITOR
154 #define MON_DEBUG(fmt, ...) do { \
155 fprintf(stderr, "Monitor: "); \
156 fprintf(stderr, fmt, ## __VA_ARGS__); } while (0)
158 static inline void mon_print_count_inc(Monitor *mon)
160 mon->print_calls_nr++;
163 static inline void mon_print_count_init(Monitor *mon)
165 mon->print_calls_nr = 0;
168 static inline int mon_print_count_get(const Monitor *mon)
170 return mon->print_calls_nr;
173 #else /* !CONFIG_DEBUG_MONITOR */
174 #define MON_DEBUG(fmt, ...) do { } while (0)
175 static inline void mon_print_count_inc(Monitor *mon) { }
176 static inline void mon_print_count_init(Monitor *mon) { }
177 static inline int mon_print_count_get(const Monitor *mon) { return 0; }
178 #endif /* CONFIG_DEBUG_MONITOR */
180 static QLIST_HEAD(mon_list, Monitor) mon_list;
182 static const mon_cmd_t mon_cmds[];
183 static const mon_cmd_t info_cmds[];
185 Monitor *cur_mon;
186 Monitor *default_mon;
188 static void monitor_command_cb(Monitor *mon, const char *cmdline,
189 void *opaque);
191 static inline int qmp_cmd_mode(const Monitor *mon)
193 return (mon->mc ? mon->mc->command_mode : 0);
196 /* Return true if in control mode, false otherwise */
197 static inline int monitor_ctrl_mode(const Monitor *mon)
199 return (mon->flags & MONITOR_USE_CONTROL);
202 /* Return non-zero iff we have a current monitor, and it is in QMP mode. */
203 int monitor_cur_is_qmp(void)
205 return cur_mon && monitor_ctrl_mode(cur_mon);
208 static void monitor_read_command(Monitor *mon, int show_prompt)
210 if (!mon->rs)
211 return;
213 readline_start(mon->rs, "(qemu) ", 0, monitor_command_cb, NULL);
214 if (show_prompt)
215 readline_show_prompt(mon->rs);
218 static int monitor_read_password(Monitor *mon, ReadLineFunc *readline_func,
219 void *opaque)
221 if (monitor_ctrl_mode(mon)) {
222 qerror_report(QERR_MISSING_PARAMETER, "password");
223 return -EINVAL;
224 } else if (mon->rs) {
225 readline_start(mon->rs, "Password: ", 1, readline_func, opaque);
226 /* prompt is printed on return from the command handler */
227 return 0;
228 } else {
229 monitor_printf(mon, "terminal does not support password prompting\n");
230 return -ENOTTY;
234 void monitor_flush(Monitor *mon)
236 if (mon && mon->outbuf_index != 0 && !mon->mux_out) {
237 qemu_chr_write(mon->chr, mon->outbuf, mon->outbuf_index);
238 mon->outbuf_index = 0;
242 /* flush at every end of line or if the buffer is full */
243 static void monitor_puts(Monitor *mon, const char *str)
245 char c;
247 for(;;) {
248 c = *str++;
249 if (c == '\0')
250 break;
251 if (c == '\n')
252 mon->outbuf[mon->outbuf_index++] = '\r';
253 mon->outbuf[mon->outbuf_index++] = c;
254 if (mon->outbuf_index >= (sizeof(mon->outbuf) - 1)
255 || c == '\n')
256 monitor_flush(mon);
260 void monitor_vprintf(Monitor *mon, const char *fmt, va_list ap)
262 char buf[4096];
264 if (!mon)
265 return;
267 mon_print_count_inc(mon);
269 if (monitor_ctrl_mode(mon)) {
270 return;
273 vsnprintf(buf, sizeof(buf), fmt, ap);
274 monitor_puts(mon, buf);
277 void monitor_printf(Monitor *mon, const char *fmt, ...)
279 va_list ap;
280 va_start(ap, fmt);
281 monitor_vprintf(mon, fmt, ap);
282 va_end(ap);
285 void monitor_print_filename(Monitor *mon, const char *filename)
287 int i;
289 for (i = 0; filename[i]; i++) {
290 switch (filename[i]) {
291 case ' ':
292 case '"':
293 case '\\':
294 monitor_printf(mon, "\\%c", filename[i]);
295 break;
296 case '\t':
297 monitor_printf(mon, "\\t");
298 break;
299 case '\r':
300 monitor_printf(mon, "\\r");
301 break;
302 case '\n':
303 monitor_printf(mon, "\\n");
304 break;
305 default:
306 monitor_printf(mon, "%c", filename[i]);
307 break;
312 static int monitor_fprintf(FILE *stream, const char *fmt, ...)
314 va_list ap;
315 va_start(ap, fmt);
316 monitor_vprintf((Monitor *)stream, fmt, ap);
317 va_end(ap);
318 return 0;
321 static void monitor_user_noop(Monitor *mon, const QObject *data) { }
323 static inline int monitor_handler_ported(const mon_cmd_t *cmd)
325 return cmd->user_print != NULL;
328 static inline bool monitor_handler_is_async(const mon_cmd_t *cmd)
330 return cmd->async != 0;
333 static inline int monitor_has_error(const Monitor *mon)
335 return mon->error != NULL;
338 static void monitor_json_emitter(Monitor *mon, const QObject *data)
340 QString *json;
342 json = qobject_to_json(data);
343 assert(json != NULL);
345 qstring_append_chr(json, '\n');
346 monitor_puts(mon, qstring_get_str(json));
348 QDECREF(json);
351 static void monitor_protocol_emitter(Monitor *mon, QObject *data)
353 QDict *qmp;
355 qmp = qdict_new();
357 if (!monitor_has_error(mon)) {
358 /* success response */
359 if (data) {
360 qobject_incref(data);
361 qdict_put_obj(qmp, "return", data);
362 } else {
363 /* return an empty QDict by default */
364 qdict_put(qmp, "return", qdict_new());
366 } else {
367 /* error response */
368 qdict_put(mon->error->error, "desc", qerror_human(mon->error));
369 qdict_put(qmp, "error", mon->error->error);
370 QINCREF(mon->error->error);
371 QDECREF(mon->error);
372 mon->error = NULL;
375 if (mon->mc->id) {
376 qdict_put_obj(qmp, "id", mon->mc->id);
377 mon->mc->id = NULL;
380 monitor_json_emitter(mon, QOBJECT(qmp));
381 QDECREF(qmp);
384 static void timestamp_put(QDict *qdict)
386 int err;
387 QObject *obj;
388 qemu_timeval tv;
390 err = qemu_gettimeofday(&tv);
391 if (err < 0)
392 return;
394 obj = qobject_from_jsonf("{ 'seconds': %" PRId64 ", "
395 "'microseconds': %" PRId64 " }",
396 (int64_t) tv.tv_sec, (int64_t) tv.tv_usec);
397 qdict_put_obj(qdict, "timestamp", obj);
401 * monitor_protocol_event(): Generate a Monitor event
403 * Event-specific data can be emitted through the (optional) 'data' parameter.
405 void monitor_protocol_event(MonitorEvent event, QObject *data)
407 QDict *qmp;
408 const char *event_name;
409 Monitor *mon;
411 assert(event < QEVENT_MAX);
413 switch (event) {
414 case QEVENT_SHUTDOWN:
415 event_name = "SHUTDOWN";
416 break;
417 case QEVENT_RESET:
418 event_name = "RESET";
419 break;
420 case QEVENT_POWERDOWN:
421 event_name = "POWERDOWN";
422 break;
423 case QEVENT_STOP:
424 event_name = "STOP";
425 break;
426 case QEVENT_RESUME:
427 event_name = "RESUME";
428 break;
429 case QEVENT_VNC_CONNECTED:
430 event_name = "VNC_CONNECTED";
431 break;
432 case QEVENT_VNC_INITIALIZED:
433 event_name = "VNC_INITIALIZED";
434 break;
435 case QEVENT_VNC_DISCONNECTED:
436 event_name = "VNC_DISCONNECTED";
437 break;
438 case QEVENT_BLOCK_IO_ERROR:
439 event_name = "BLOCK_IO_ERROR";
440 break;
441 case QEVENT_RTC_CHANGE:
442 event_name = "RTC_CHANGE";
443 break;
444 case QEVENT_WATCHDOG:
445 event_name = "WATCHDOG";
446 break;
447 default:
448 abort();
449 break;
452 qmp = qdict_new();
453 timestamp_put(qmp);
454 qdict_put(qmp, "event", qstring_from_str(event_name));
455 if (data) {
456 qobject_incref(data);
457 qdict_put_obj(qmp, "data", data);
460 QLIST_FOREACH(mon, &mon_list, entry) {
461 if (monitor_ctrl_mode(mon) && qmp_cmd_mode(mon)) {
462 monitor_json_emitter(mon, QOBJECT(qmp));
465 QDECREF(qmp);
468 static int do_qmp_capabilities(Monitor *mon, const QDict *params,
469 QObject **ret_data)
471 /* Will setup QMP capabilities in the future */
472 if (monitor_ctrl_mode(mon)) {
473 mon->mc->command_mode = 1;
476 return 0;
479 static int compare_cmd(const char *name, const char *list)
481 const char *p, *pstart;
482 int len;
483 len = strlen(name);
484 p = list;
485 for(;;) {
486 pstart = p;
487 p = strchr(p, '|');
488 if (!p)
489 p = pstart + strlen(pstart);
490 if ((p - pstart) == len && !memcmp(pstart, name, len))
491 return 1;
492 if (*p == '\0')
493 break;
494 p++;
496 return 0;
499 static void help_cmd_dump(Monitor *mon, const mon_cmd_t *cmds,
500 const char *prefix, const char *name)
502 const mon_cmd_t *cmd;
504 for(cmd = cmds; cmd->name != NULL; cmd++) {
505 if (!name || !strcmp(name, cmd->name))
506 monitor_printf(mon, "%s%s %s -- %s\n", prefix, cmd->name,
507 cmd->params, cmd->help);
511 static void help_cmd(Monitor *mon, const char *name)
513 if (name && !strcmp(name, "info")) {
514 help_cmd_dump(mon, info_cmds, "info ", NULL);
515 } else {
516 help_cmd_dump(mon, mon_cmds, "", name);
517 if (name && !strcmp(name, "log")) {
518 const CPULogItem *item;
519 monitor_printf(mon, "Log items (comma separated):\n");
520 monitor_printf(mon, "%-10s %s\n", "none", "remove all logs");
521 for(item = cpu_log_items; item->mask != 0; item++) {
522 monitor_printf(mon, "%-10s %s\n", item->name, item->help);
528 static void do_help_cmd(Monitor *mon, const QDict *qdict)
530 help_cmd(mon, qdict_get_try_str(qdict, "name"));
533 static void user_monitor_complete(void *opaque, QObject *ret_data)
535 MonitorCompletionData *data = (MonitorCompletionData *)opaque;
537 if (ret_data) {
538 data->user_print(data->mon, ret_data);
540 monitor_resume(data->mon);
541 qemu_free(data);
544 static void qmp_monitor_complete(void *opaque, QObject *ret_data)
546 monitor_protocol_emitter(opaque, ret_data);
549 static void qmp_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
550 const QDict *params)
552 cmd->mhandler.cmd_async(mon, params, qmp_monitor_complete, mon);
555 static void qmp_async_info_handler(Monitor *mon, const mon_cmd_t *cmd)
557 cmd->mhandler.info_async(mon, qmp_monitor_complete, mon);
560 static void user_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
561 const QDict *params)
563 int ret;
565 MonitorCompletionData *cb_data = qemu_malloc(sizeof(*cb_data));
566 cb_data->mon = mon;
567 cb_data->user_print = cmd->user_print;
568 monitor_suspend(mon);
569 ret = cmd->mhandler.cmd_async(mon, params,
570 user_monitor_complete, cb_data);
571 if (ret < 0) {
572 monitor_resume(mon);
573 qemu_free(cb_data);
577 static void user_async_info_handler(Monitor *mon, const mon_cmd_t *cmd)
579 int ret;
581 MonitorCompletionData *cb_data = qemu_malloc(sizeof(*cb_data));
582 cb_data->mon = mon;
583 cb_data->user_print = cmd->user_print;
584 monitor_suspend(mon);
585 ret = cmd->mhandler.info_async(mon, user_monitor_complete, cb_data);
586 if (ret < 0) {
587 monitor_resume(mon);
588 qemu_free(cb_data);
592 static int do_info(Monitor *mon, const QDict *qdict, QObject **ret_data)
594 const mon_cmd_t *cmd;
595 const char *item = qdict_get_try_str(qdict, "item");
597 if (!item) {
598 assert(monitor_ctrl_mode(mon) == 0);
599 goto help;
602 for (cmd = info_cmds; cmd->name != NULL; cmd++) {
603 if (compare_cmd(item, cmd->name))
604 break;
607 if (cmd->name == NULL) {
608 if (monitor_ctrl_mode(mon)) {
609 qerror_report(QERR_COMMAND_NOT_FOUND, item);
610 return -1;
612 goto help;
615 if (monitor_handler_is_async(cmd)) {
616 if (monitor_ctrl_mode(mon)) {
617 qmp_async_info_handler(mon, cmd);
618 } else {
619 user_async_info_handler(mon, cmd);
622 * Indicate that this command is asynchronous and will not return any
623 * data (not even empty). Instead, the data will be returned via a
624 * completion callback.
626 *ret_data = qobject_from_jsonf("{ '__mon_async': 'return' }");
627 } else if (monitor_handler_ported(cmd)) {
628 cmd->mhandler.info_new(mon, ret_data);
630 if (!monitor_ctrl_mode(mon)) {
632 * User Protocol function is called here, Monitor Protocol is
633 * handled by monitor_call_handler()
635 if (*ret_data)
636 cmd->user_print(mon, *ret_data);
638 } else {
639 if (monitor_ctrl_mode(mon)) {
640 /* handler not converted yet */
641 qerror_report(QERR_COMMAND_NOT_FOUND, item);
642 return -1;
643 } else {
644 cmd->mhandler.info(mon);
648 return 0;
650 help:
651 help_cmd(mon, "info");
652 return 0;
655 static void do_info_version_print(Monitor *mon, const QObject *data)
657 QDict *qdict;
659 qdict = qobject_to_qdict(data);
661 monitor_printf(mon, "%s%s\n", qdict_get_str(qdict, "qemu"),
662 qdict_get_str(qdict, "package"));
665 static void do_info_version(Monitor *mon, QObject **ret_data)
667 *ret_data = qobject_from_jsonf("{ 'qemu': %s, 'package': %s }",
668 QEMU_VERSION, QEMU_PKGVERSION);
671 static void do_info_name_print(Monitor *mon, const QObject *data)
673 QDict *qdict;
675 qdict = qobject_to_qdict(data);
676 if (qdict_size(qdict) == 0) {
677 return;
680 monitor_printf(mon, "%s\n", qdict_get_str(qdict, "name"));
683 static void do_info_name(Monitor *mon, QObject **ret_data)
685 *ret_data = qemu_name ? qobject_from_jsonf("{'name': %s }", qemu_name) :
686 qobject_from_jsonf("{}");
689 static QObject *get_cmd_dict(const char *name)
691 const char *p;
693 /* Remove '|' from some commands */
694 p = strchr(name, '|');
695 if (p) {
696 p++;
697 } else {
698 p = name;
701 return qobject_from_jsonf("{ 'name': %s }", p);
704 static void do_info_commands(Monitor *mon, QObject **ret_data)
706 QList *cmd_list;
707 const mon_cmd_t *cmd;
709 cmd_list = qlist_new();
711 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
712 if (monitor_handler_ported(cmd) && !compare_cmd(cmd->name, "info")) {
713 qlist_append_obj(cmd_list, get_cmd_dict(cmd->name));
717 for (cmd = info_cmds; cmd->name != NULL; cmd++) {
718 if (monitor_handler_ported(cmd)) {
719 char buf[128];
720 snprintf(buf, sizeof(buf), "query-%s", cmd->name);
721 qlist_append_obj(cmd_list, get_cmd_dict(buf));
725 *ret_data = QOBJECT(cmd_list);
728 static void do_info_uuid_print(Monitor *mon, const QObject *data)
730 monitor_printf(mon, "%s\n", qdict_get_str(qobject_to_qdict(data), "UUID"));
733 static void do_info_uuid(Monitor *mon, QObject **ret_data)
735 char uuid[64];
737 snprintf(uuid, sizeof(uuid), UUID_FMT, qemu_uuid[0], qemu_uuid[1],
738 qemu_uuid[2], qemu_uuid[3], qemu_uuid[4], qemu_uuid[5],
739 qemu_uuid[6], qemu_uuid[7], qemu_uuid[8], qemu_uuid[9],
740 qemu_uuid[10], qemu_uuid[11], qemu_uuid[12], qemu_uuid[13],
741 qemu_uuid[14], qemu_uuid[15]);
742 *ret_data = qobject_from_jsonf("{ 'UUID': %s }", uuid);
745 /* get the current CPU defined by the user */
746 static int mon_set_cpu(int cpu_index)
748 CPUState *env;
750 for(env = first_cpu; env != NULL; env = env->next_cpu) {
751 if (env->cpu_index == cpu_index) {
752 cur_mon->mon_cpu = env;
753 return 0;
756 return -1;
759 static CPUState *mon_get_cpu(void)
761 if (!cur_mon->mon_cpu) {
762 mon_set_cpu(0);
764 cpu_synchronize_state(cur_mon->mon_cpu);
765 return cur_mon->mon_cpu;
768 static void do_info_registers(Monitor *mon)
770 CPUState *env;
771 env = mon_get_cpu();
772 #ifdef TARGET_I386
773 cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
774 X86_DUMP_FPU);
775 #else
776 cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
778 #endif
781 static void print_cpu_iter(QObject *obj, void *opaque)
783 QDict *cpu;
784 int active = ' ';
785 Monitor *mon = opaque;
787 assert(qobject_type(obj) == QTYPE_QDICT);
788 cpu = qobject_to_qdict(obj);
790 if (qdict_get_bool(cpu, "current")) {
791 active = '*';
794 monitor_printf(mon, "%c CPU #%d: ", active, (int)qdict_get_int(cpu, "CPU"));
796 #if defined(TARGET_I386)
797 monitor_printf(mon, "pc=0x" TARGET_FMT_lx,
798 (target_ulong) qdict_get_int(cpu, "pc"));
799 #elif defined(TARGET_PPC)
800 monitor_printf(mon, "nip=0x" TARGET_FMT_lx,
801 (target_long) qdict_get_int(cpu, "nip"));
802 #elif defined(TARGET_SPARC)
803 monitor_printf(mon, "pc=0x " TARGET_FMT_lx,
804 (target_long) qdict_get_int(cpu, "pc"));
805 monitor_printf(mon, "npc=0x" TARGET_FMT_lx,
806 (target_long) qdict_get_int(cpu, "npc"));
807 #elif defined(TARGET_MIPS)
808 monitor_printf(mon, "PC=0x" TARGET_FMT_lx,
809 (target_long) qdict_get_int(cpu, "PC"));
810 #endif
812 if (qdict_get_bool(cpu, "halted")) {
813 monitor_printf(mon, " (halted)");
816 monitor_printf(mon, "\n");
819 static void monitor_print_cpus(Monitor *mon, const QObject *data)
821 QList *cpu_list;
823 assert(qobject_type(data) == QTYPE_QLIST);
824 cpu_list = qobject_to_qlist(data);
825 qlist_iter(cpu_list, print_cpu_iter, mon);
828 static void do_info_cpus(Monitor *mon, QObject **ret_data)
830 CPUState *env;
831 QList *cpu_list;
833 cpu_list = qlist_new();
835 /* just to set the default cpu if not already done */
836 mon_get_cpu();
838 for(env = first_cpu; env != NULL; env = env->next_cpu) {
839 QDict *cpu;
840 QObject *obj;
842 cpu_synchronize_state(env);
844 obj = qobject_from_jsonf("{ 'CPU': %d, 'current': %i, 'halted': %i }",
845 env->cpu_index, env == mon->mon_cpu,
846 env->halted);
848 cpu = qobject_to_qdict(obj);
850 #if defined(TARGET_I386)
851 qdict_put(cpu, "pc", qint_from_int(env->eip + env->segs[R_CS].base));
852 #elif defined(TARGET_PPC)
853 qdict_put(cpu, "nip", qint_from_int(env->nip));
854 #elif defined(TARGET_SPARC)
855 qdict_put(cpu, "pc", qint_from_int(env->pc));
856 qdict_put(cpu, "npc", qint_from_int(env->npc));
857 #elif defined(TARGET_MIPS)
858 qdict_put(cpu, "PC", qint_from_int(env->active_tc.PC));
859 #endif
861 qlist_append(cpu_list, cpu);
864 *ret_data = QOBJECT(cpu_list);
867 static int do_cpu_set(Monitor *mon, const QDict *qdict, QObject **ret_data)
869 int index = qdict_get_int(qdict, "index");
870 if (mon_set_cpu(index) < 0) {
871 qerror_report(QERR_INVALID_PARAMETER_VALUE, "index",
872 "a CPU number");
873 return -1;
875 return 0;
878 static void do_info_jit(Monitor *mon)
880 dump_exec_info((FILE *)mon, monitor_fprintf);
883 static void do_info_history(Monitor *mon)
885 int i;
886 const char *str;
888 if (!mon->rs)
889 return;
890 i = 0;
891 for(;;) {
892 str = readline_get_history(mon->rs, i);
893 if (!str)
894 break;
895 monitor_printf(mon, "%d: '%s'\n", i, str);
896 i++;
900 #if defined(TARGET_PPC)
901 /* XXX: not implemented in other targets */
902 static void do_info_cpu_stats(Monitor *mon)
904 CPUState *env;
906 env = mon_get_cpu();
907 cpu_dump_statistics(env, (FILE *)mon, &monitor_fprintf, 0);
909 #endif
912 * do_quit(): Quit QEMU execution
914 static int do_quit(Monitor *mon, const QDict *qdict, QObject **ret_data)
916 monitor_suspend(mon);
917 no_shutdown = 0;
918 qemu_system_shutdown_request();
920 return 0;
923 static int change_vnc_password(const char *password)
925 if (vnc_display_password(NULL, password) < 0) {
926 qerror_report(QERR_SET_PASSWD_FAILED);
927 return -1;
930 return 0;
933 static void change_vnc_password_cb(Monitor *mon, const char *password,
934 void *opaque)
936 change_vnc_password(password);
937 monitor_read_command(mon, 1);
940 static int do_change_vnc(Monitor *mon, const char *target, const char *arg)
942 if (strcmp(target, "passwd") == 0 ||
943 strcmp(target, "password") == 0) {
944 if (arg) {
945 char password[9];
946 strncpy(password, arg, sizeof(password));
947 password[sizeof(password) - 1] = '\0';
948 return change_vnc_password(password);
949 } else {
950 return monitor_read_password(mon, change_vnc_password_cb, NULL);
952 } else {
953 if (vnc_display_open(NULL, target) < 0) {
954 qerror_report(QERR_VNC_SERVER_FAILED, target);
955 return -1;
959 return 0;
963 * do_change(): Change a removable medium, or VNC configuration
965 static int do_change(Monitor *mon, const QDict *qdict, QObject **ret_data)
967 const char *device = qdict_get_str(qdict, "device");
968 const char *target = qdict_get_str(qdict, "target");
969 const char *arg = qdict_get_try_str(qdict, "arg");
970 int ret;
972 if (strcmp(device, "vnc") == 0) {
973 ret = do_change_vnc(mon, target, arg);
974 } else {
975 ret = do_change_block(mon, device, target, arg);
978 return ret;
981 static int do_screen_dump(Monitor *mon, const QDict *qdict, QObject **ret_data)
983 vga_hw_screen_dump(qdict_get_str(qdict, "filename"));
984 return 0;
987 static void do_logfile(Monitor *mon, const QDict *qdict)
989 cpu_set_log_filename(qdict_get_str(qdict, "filename"));
992 static void do_log(Monitor *mon, const QDict *qdict)
994 int mask;
995 const char *items = qdict_get_str(qdict, "items");
997 if (!strcmp(items, "none")) {
998 mask = 0;
999 } else {
1000 mask = cpu_str_to_log_mask(items);
1001 if (!mask) {
1002 help_cmd(mon, "log");
1003 return;
1006 cpu_set_log(mask);
1009 static void do_singlestep(Monitor *mon, const QDict *qdict)
1011 const char *option = qdict_get_try_str(qdict, "option");
1012 if (!option || !strcmp(option, "on")) {
1013 singlestep = 1;
1014 } else if (!strcmp(option, "off")) {
1015 singlestep = 0;
1016 } else {
1017 monitor_printf(mon, "unexpected option %s\n", option);
1022 * do_stop(): Stop VM execution
1024 static int do_stop(Monitor *mon, const QDict *qdict, QObject **ret_data)
1026 vm_stop(EXCP_INTERRUPT);
1027 return 0;
1030 static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs);
1032 struct bdrv_iterate_context {
1033 Monitor *mon;
1034 int err;
1038 * do_cont(): Resume emulation.
1040 static int do_cont(Monitor *mon, const QDict *qdict, QObject **ret_data)
1042 struct bdrv_iterate_context context = { mon, 0 };
1044 bdrv_iterate(encrypted_bdrv_it, &context);
1045 /* only resume the vm if all keys are set and valid */
1046 if (!context.err) {
1047 vm_start();
1048 return 0;
1049 } else {
1050 return -1;
1054 static void bdrv_key_cb(void *opaque, int err)
1056 Monitor *mon = opaque;
1058 /* another key was set successfully, retry to continue */
1059 if (!err)
1060 do_cont(mon, NULL, NULL);
1063 static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs)
1065 struct bdrv_iterate_context *context = opaque;
1067 if (!context->err && bdrv_key_required(bs)) {
1068 context->err = -EBUSY;
1069 monitor_read_bdrv_key_start(context->mon, bs, bdrv_key_cb,
1070 context->mon);
1074 static void do_gdbserver(Monitor *mon, const QDict *qdict)
1076 const char *device = qdict_get_try_str(qdict, "device");
1077 if (!device)
1078 device = "tcp::" DEFAULT_GDBSTUB_PORT;
1079 if (gdbserver_start(device) < 0) {
1080 monitor_printf(mon, "Could not open gdbserver on device '%s'\n",
1081 device);
1082 } else if (strcmp(device, "none") == 0) {
1083 monitor_printf(mon, "Disabled gdbserver\n");
1084 } else {
1085 monitor_printf(mon, "Waiting for gdb connection on device '%s'\n",
1086 device);
1090 static void do_watchdog_action(Monitor *mon, const QDict *qdict)
1092 const char *action = qdict_get_str(qdict, "action");
1093 if (select_watchdog_action(action) == -1) {
1094 monitor_printf(mon, "Unknown watchdog action '%s'\n", action);
1098 static void monitor_printc(Monitor *mon, int c)
1100 monitor_printf(mon, "'");
1101 switch(c) {
1102 case '\'':
1103 monitor_printf(mon, "\\'");
1104 break;
1105 case '\\':
1106 monitor_printf(mon, "\\\\");
1107 break;
1108 case '\n':
1109 monitor_printf(mon, "\\n");
1110 break;
1111 case '\r':
1112 monitor_printf(mon, "\\r");
1113 break;
1114 default:
1115 if (c >= 32 && c <= 126) {
1116 monitor_printf(mon, "%c", c);
1117 } else {
1118 monitor_printf(mon, "\\x%02x", c);
1120 break;
1122 monitor_printf(mon, "'");
1125 static void memory_dump(Monitor *mon, int count, int format, int wsize,
1126 target_phys_addr_t addr, int is_physical)
1128 CPUState *env;
1129 int l, line_size, i, max_digits, len;
1130 uint8_t buf[16];
1131 uint64_t v;
1133 if (format == 'i') {
1134 int flags;
1135 flags = 0;
1136 env = mon_get_cpu();
1137 #ifdef TARGET_I386
1138 if (wsize == 2) {
1139 flags = 1;
1140 } else if (wsize == 4) {
1141 flags = 0;
1142 } else {
1143 /* as default we use the current CS size */
1144 flags = 0;
1145 if (env) {
1146 #ifdef TARGET_X86_64
1147 if ((env->efer & MSR_EFER_LMA) &&
1148 (env->segs[R_CS].flags & DESC_L_MASK))
1149 flags = 2;
1150 else
1151 #endif
1152 if (!(env->segs[R_CS].flags & DESC_B_MASK))
1153 flags = 1;
1156 #endif
1157 monitor_disas(mon, env, addr, count, is_physical, flags);
1158 return;
1161 len = wsize * count;
1162 if (wsize == 1)
1163 line_size = 8;
1164 else
1165 line_size = 16;
1166 max_digits = 0;
1168 switch(format) {
1169 case 'o':
1170 max_digits = (wsize * 8 + 2) / 3;
1171 break;
1172 default:
1173 case 'x':
1174 max_digits = (wsize * 8) / 4;
1175 break;
1176 case 'u':
1177 case 'd':
1178 max_digits = (wsize * 8 * 10 + 32) / 33;
1179 break;
1180 case 'c':
1181 wsize = 1;
1182 break;
1185 while (len > 0) {
1186 if (is_physical)
1187 monitor_printf(mon, TARGET_FMT_plx ":", addr);
1188 else
1189 monitor_printf(mon, TARGET_FMT_lx ":", (target_ulong)addr);
1190 l = len;
1191 if (l > line_size)
1192 l = line_size;
1193 if (is_physical) {
1194 cpu_physical_memory_rw(addr, buf, l, 0);
1195 } else {
1196 env = mon_get_cpu();
1197 if (cpu_memory_rw_debug(env, addr, buf, l, 0) < 0) {
1198 monitor_printf(mon, " Cannot access memory\n");
1199 break;
1202 i = 0;
1203 while (i < l) {
1204 switch(wsize) {
1205 default:
1206 case 1:
1207 v = ldub_raw(buf + i);
1208 break;
1209 case 2:
1210 v = lduw_raw(buf + i);
1211 break;
1212 case 4:
1213 v = (uint32_t)ldl_raw(buf + i);
1214 break;
1215 case 8:
1216 v = ldq_raw(buf + i);
1217 break;
1219 monitor_printf(mon, " ");
1220 switch(format) {
1221 case 'o':
1222 monitor_printf(mon, "%#*" PRIo64, max_digits, v);
1223 break;
1224 case 'x':
1225 monitor_printf(mon, "0x%0*" PRIx64, max_digits, v);
1226 break;
1227 case 'u':
1228 monitor_printf(mon, "%*" PRIu64, max_digits, v);
1229 break;
1230 case 'd':
1231 monitor_printf(mon, "%*" PRId64, max_digits, v);
1232 break;
1233 case 'c':
1234 monitor_printc(mon, v);
1235 break;
1237 i += wsize;
1239 monitor_printf(mon, "\n");
1240 addr += l;
1241 len -= l;
1245 static void do_memory_dump(Monitor *mon, const QDict *qdict)
1247 int count = qdict_get_int(qdict, "count");
1248 int format = qdict_get_int(qdict, "format");
1249 int size = qdict_get_int(qdict, "size");
1250 target_long addr = qdict_get_int(qdict, "addr");
1252 memory_dump(mon, count, format, size, addr, 0);
1255 static void do_physical_memory_dump(Monitor *mon, const QDict *qdict)
1257 int count = qdict_get_int(qdict, "count");
1258 int format = qdict_get_int(qdict, "format");
1259 int size = qdict_get_int(qdict, "size");
1260 target_phys_addr_t addr = qdict_get_int(qdict, "addr");
1262 memory_dump(mon, count, format, size, addr, 1);
1265 static void do_print(Monitor *mon, const QDict *qdict)
1267 int format = qdict_get_int(qdict, "format");
1268 target_phys_addr_t val = qdict_get_int(qdict, "val");
1270 #if TARGET_PHYS_ADDR_BITS == 32
1271 switch(format) {
1272 case 'o':
1273 monitor_printf(mon, "%#o", val);
1274 break;
1275 case 'x':
1276 monitor_printf(mon, "%#x", val);
1277 break;
1278 case 'u':
1279 monitor_printf(mon, "%u", val);
1280 break;
1281 default:
1282 case 'd':
1283 monitor_printf(mon, "%d", val);
1284 break;
1285 case 'c':
1286 monitor_printc(mon, val);
1287 break;
1289 #else
1290 switch(format) {
1291 case 'o':
1292 monitor_printf(mon, "%#" PRIo64, val);
1293 break;
1294 case 'x':
1295 monitor_printf(mon, "%#" PRIx64, val);
1296 break;
1297 case 'u':
1298 monitor_printf(mon, "%" PRIu64, val);
1299 break;
1300 default:
1301 case 'd':
1302 monitor_printf(mon, "%" PRId64, val);
1303 break;
1304 case 'c':
1305 monitor_printc(mon, val);
1306 break;
1308 #endif
1309 monitor_printf(mon, "\n");
1312 static int do_memory_save(Monitor *mon, const QDict *qdict, QObject **ret_data)
1314 FILE *f;
1315 uint32_t size = qdict_get_int(qdict, "size");
1316 const char *filename = qdict_get_str(qdict, "filename");
1317 target_long addr = qdict_get_int(qdict, "val");
1318 uint32_t l;
1319 CPUState *env;
1320 uint8_t buf[1024];
1321 int ret = -1;
1323 env = mon_get_cpu();
1325 f = fopen(filename, "wb");
1326 if (!f) {
1327 qerror_report(QERR_OPEN_FILE_FAILED, filename);
1328 return -1;
1330 while (size != 0) {
1331 l = sizeof(buf);
1332 if (l > size)
1333 l = size;
1334 cpu_memory_rw_debug(env, addr, buf, l, 0);
1335 if (fwrite(buf, 1, l, f) != l) {
1336 monitor_printf(mon, "fwrite() error in do_memory_save\n");
1337 goto exit;
1339 addr += l;
1340 size -= l;
1343 ret = 0;
1345 exit:
1346 fclose(f);
1347 return ret;
1350 static int do_physical_memory_save(Monitor *mon, const QDict *qdict,
1351 QObject **ret_data)
1353 FILE *f;
1354 uint32_t l;
1355 uint8_t buf[1024];
1356 uint32_t size = qdict_get_int(qdict, "size");
1357 const char *filename = qdict_get_str(qdict, "filename");
1358 target_phys_addr_t addr = qdict_get_int(qdict, "val");
1359 int ret = -1;
1361 f = fopen(filename, "wb");
1362 if (!f) {
1363 qerror_report(QERR_OPEN_FILE_FAILED, filename);
1364 return -1;
1366 while (size != 0) {
1367 l = sizeof(buf);
1368 if (l > size)
1369 l = size;
1370 cpu_physical_memory_rw(addr, buf, l, 0);
1371 if (fwrite(buf, 1, l, f) != l) {
1372 monitor_printf(mon, "fwrite() error in do_physical_memory_save\n");
1373 goto exit;
1375 fflush(f);
1376 addr += l;
1377 size -= l;
1380 ret = 0;
1382 exit:
1383 fclose(f);
1384 return ret;
1387 static void do_sum(Monitor *mon, const QDict *qdict)
1389 uint32_t addr;
1390 uint8_t buf[1];
1391 uint16_t sum;
1392 uint32_t start = qdict_get_int(qdict, "start");
1393 uint32_t size = qdict_get_int(qdict, "size");
1395 sum = 0;
1396 for(addr = start; addr < (start + size); addr++) {
1397 cpu_physical_memory_rw(addr, buf, 1, 0);
1398 /* BSD sum algorithm ('sum' Unix command) */
1399 sum = (sum >> 1) | (sum << 15);
1400 sum += buf[0];
1402 monitor_printf(mon, "%05d\n", sum);
1405 typedef struct {
1406 int keycode;
1407 const char *name;
1408 } KeyDef;
1410 static const KeyDef key_defs[] = {
1411 { 0x2a, "shift" },
1412 { 0x36, "shift_r" },
1414 { 0x38, "alt" },
1415 { 0xb8, "alt_r" },
1416 { 0x64, "altgr" },
1417 { 0xe4, "altgr_r" },
1418 { 0x1d, "ctrl" },
1419 { 0x9d, "ctrl_r" },
1421 { 0xdd, "menu" },
1423 { 0x01, "esc" },
1425 { 0x02, "1" },
1426 { 0x03, "2" },
1427 { 0x04, "3" },
1428 { 0x05, "4" },
1429 { 0x06, "5" },
1430 { 0x07, "6" },
1431 { 0x08, "7" },
1432 { 0x09, "8" },
1433 { 0x0a, "9" },
1434 { 0x0b, "0" },
1435 { 0x0c, "minus" },
1436 { 0x0d, "equal" },
1437 { 0x0e, "backspace" },
1439 { 0x0f, "tab" },
1440 { 0x10, "q" },
1441 { 0x11, "w" },
1442 { 0x12, "e" },
1443 { 0x13, "r" },
1444 { 0x14, "t" },
1445 { 0x15, "y" },
1446 { 0x16, "u" },
1447 { 0x17, "i" },
1448 { 0x18, "o" },
1449 { 0x19, "p" },
1450 { 0x1a, "bracket_left" },
1451 { 0x1b, "bracket_right" },
1452 { 0x1c, "ret" },
1454 { 0x1e, "a" },
1455 { 0x1f, "s" },
1456 { 0x20, "d" },
1457 { 0x21, "f" },
1458 { 0x22, "g" },
1459 { 0x23, "h" },
1460 { 0x24, "j" },
1461 { 0x25, "k" },
1462 { 0x26, "l" },
1463 { 0x27, "semicolon" },
1464 { 0x28, "apostrophe" },
1465 { 0x29, "grave_accent" },
1467 { 0x2b, "backslash" },
1468 { 0x2c, "z" },
1469 { 0x2d, "x" },
1470 { 0x2e, "c" },
1471 { 0x2f, "v" },
1472 { 0x30, "b" },
1473 { 0x31, "n" },
1474 { 0x32, "m" },
1475 { 0x33, "comma" },
1476 { 0x34, "dot" },
1477 { 0x35, "slash" },
1479 { 0x37, "asterisk" },
1481 { 0x39, "spc" },
1482 { 0x3a, "caps_lock" },
1483 { 0x3b, "f1" },
1484 { 0x3c, "f2" },
1485 { 0x3d, "f3" },
1486 { 0x3e, "f4" },
1487 { 0x3f, "f5" },
1488 { 0x40, "f6" },
1489 { 0x41, "f7" },
1490 { 0x42, "f8" },
1491 { 0x43, "f9" },
1492 { 0x44, "f10" },
1493 { 0x45, "num_lock" },
1494 { 0x46, "scroll_lock" },
1496 { 0xb5, "kp_divide" },
1497 { 0x37, "kp_multiply" },
1498 { 0x4a, "kp_subtract" },
1499 { 0x4e, "kp_add" },
1500 { 0x9c, "kp_enter" },
1501 { 0x53, "kp_decimal" },
1502 { 0x54, "sysrq" },
1504 { 0x52, "kp_0" },
1505 { 0x4f, "kp_1" },
1506 { 0x50, "kp_2" },
1507 { 0x51, "kp_3" },
1508 { 0x4b, "kp_4" },
1509 { 0x4c, "kp_5" },
1510 { 0x4d, "kp_6" },
1511 { 0x47, "kp_7" },
1512 { 0x48, "kp_8" },
1513 { 0x49, "kp_9" },
1515 { 0x56, "<" },
1517 { 0x57, "f11" },
1518 { 0x58, "f12" },
1520 { 0xb7, "print" },
1522 { 0xc7, "home" },
1523 { 0xc9, "pgup" },
1524 { 0xd1, "pgdn" },
1525 { 0xcf, "end" },
1527 { 0xcb, "left" },
1528 { 0xc8, "up" },
1529 { 0xd0, "down" },
1530 { 0xcd, "right" },
1532 { 0xd2, "insert" },
1533 { 0xd3, "delete" },
1534 #if defined(TARGET_SPARC) && !defined(TARGET_SPARC64)
1535 { 0xf0, "stop" },
1536 { 0xf1, "again" },
1537 { 0xf2, "props" },
1538 { 0xf3, "undo" },
1539 { 0xf4, "front" },
1540 { 0xf5, "copy" },
1541 { 0xf6, "open" },
1542 { 0xf7, "paste" },
1543 { 0xf8, "find" },
1544 { 0xf9, "cut" },
1545 { 0xfa, "lf" },
1546 { 0xfb, "help" },
1547 { 0xfc, "meta_l" },
1548 { 0xfd, "meta_r" },
1549 { 0xfe, "compose" },
1550 #endif
1551 { 0, NULL },
1554 static int get_keycode(const char *key)
1556 const KeyDef *p;
1557 char *endp;
1558 int ret;
1560 for(p = key_defs; p->name != NULL; p++) {
1561 if (!strcmp(key, p->name))
1562 return p->keycode;
1564 if (strstart(key, "0x", NULL)) {
1565 ret = strtoul(key, &endp, 0);
1566 if (*endp == '\0' && ret >= 0x01 && ret <= 0xff)
1567 return ret;
1569 return -1;
1572 #define MAX_KEYCODES 16
1573 static uint8_t keycodes[MAX_KEYCODES];
1574 static int nb_pending_keycodes;
1575 static QEMUTimer *key_timer;
1577 static void release_keys(void *opaque)
1579 int keycode;
1581 while (nb_pending_keycodes > 0) {
1582 nb_pending_keycodes--;
1583 keycode = keycodes[nb_pending_keycodes];
1584 if (keycode & 0x80)
1585 kbd_put_keycode(0xe0);
1586 kbd_put_keycode(keycode | 0x80);
1590 static void do_sendkey(Monitor *mon, const QDict *qdict)
1592 char keyname_buf[16];
1593 char *separator;
1594 int keyname_len, keycode, i;
1595 const char *string = qdict_get_str(qdict, "string");
1596 int has_hold_time = qdict_haskey(qdict, "hold_time");
1597 int hold_time = qdict_get_try_int(qdict, "hold_time", -1);
1599 if (nb_pending_keycodes > 0) {
1600 qemu_del_timer(key_timer);
1601 release_keys(NULL);
1603 if (!has_hold_time)
1604 hold_time = 100;
1605 i = 0;
1606 while (1) {
1607 separator = strchr(string, '-');
1608 keyname_len = separator ? separator - string : strlen(string);
1609 if (keyname_len > 0) {
1610 pstrcpy(keyname_buf, sizeof(keyname_buf), string);
1611 if (keyname_len > sizeof(keyname_buf) - 1) {
1612 monitor_printf(mon, "invalid key: '%s...'\n", keyname_buf);
1613 return;
1615 if (i == MAX_KEYCODES) {
1616 monitor_printf(mon, "too many keys\n");
1617 return;
1619 keyname_buf[keyname_len] = 0;
1620 keycode = get_keycode(keyname_buf);
1621 if (keycode < 0) {
1622 monitor_printf(mon, "unknown key: '%s'\n", keyname_buf);
1623 return;
1625 keycodes[i++] = keycode;
1627 if (!separator)
1628 break;
1629 string = separator + 1;
1631 nb_pending_keycodes = i;
1632 /* key down events */
1633 for (i = 0; i < nb_pending_keycodes; i++) {
1634 keycode = keycodes[i];
1635 if (keycode & 0x80)
1636 kbd_put_keycode(0xe0);
1637 kbd_put_keycode(keycode & 0x7f);
1639 /* delayed key up events */
1640 qemu_mod_timer(key_timer, qemu_get_clock(vm_clock) +
1641 muldiv64(get_ticks_per_sec(), hold_time, 1000));
1644 static int mouse_button_state;
1646 static void do_mouse_move(Monitor *mon, const QDict *qdict)
1648 int dx, dy, dz;
1649 const char *dx_str = qdict_get_str(qdict, "dx_str");
1650 const char *dy_str = qdict_get_str(qdict, "dy_str");
1651 const char *dz_str = qdict_get_try_str(qdict, "dz_str");
1652 dx = strtol(dx_str, NULL, 0);
1653 dy = strtol(dy_str, NULL, 0);
1654 dz = 0;
1655 if (dz_str)
1656 dz = strtol(dz_str, NULL, 0);
1657 kbd_mouse_event(dx, dy, dz, mouse_button_state);
1660 static void do_mouse_button(Monitor *mon, const QDict *qdict)
1662 int button_state = qdict_get_int(qdict, "button_state");
1663 mouse_button_state = button_state;
1664 kbd_mouse_event(0, 0, 0, mouse_button_state);
1667 static void do_ioport_read(Monitor *mon, const QDict *qdict)
1669 int size = qdict_get_int(qdict, "size");
1670 int addr = qdict_get_int(qdict, "addr");
1671 int has_index = qdict_haskey(qdict, "index");
1672 uint32_t val;
1673 int suffix;
1675 if (has_index) {
1676 int index = qdict_get_int(qdict, "index");
1677 cpu_outb(addr & IOPORTS_MASK, index & 0xff);
1678 addr++;
1680 addr &= 0xffff;
1682 switch(size) {
1683 default:
1684 case 1:
1685 val = cpu_inb(addr);
1686 suffix = 'b';
1687 break;
1688 case 2:
1689 val = cpu_inw(addr);
1690 suffix = 'w';
1691 break;
1692 case 4:
1693 val = cpu_inl(addr);
1694 suffix = 'l';
1695 break;
1697 monitor_printf(mon, "port%c[0x%04x] = %#0*x\n",
1698 suffix, addr, size * 2, val);
1701 static void do_ioport_write(Monitor *mon, const QDict *qdict)
1703 int size = qdict_get_int(qdict, "size");
1704 int addr = qdict_get_int(qdict, "addr");
1705 int val = qdict_get_int(qdict, "val");
1707 addr &= IOPORTS_MASK;
1709 switch (size) {
1710 default:
1711 case 1:
1712 cpu_outb(addr, val);
1713 break;
1714 case 2:
1715 cpu_outw(addr, val);
1716 break;
1717 case 4:
1718 cpu_outl(addr, val);
1719 break;
1723 static void do_boot_set(Monitor *mon, const QDict *qdict)
1725 int res;
1726 const char *bootdevice = qdict_get_str(qdict, "bootdevice");
1728 res = qemu_boot_set(bootdevice);
1729 if (res == 0) {
1730 monitor_printf(mon, "boot device list now set to %s\n", bootdevice);
1731 } else if (res > 0) {
1732 monitor_printf(mon, "setting boot device list failed\n");
1733 } else {
1734 monitor_printf(mon, "no function defined to set boot device list for "
1735 "this architecture\n");
1740 * do_system_reset(): Issue a machine reset
1742 static int do_system_reset(Monitor *mon, const QDict *qdict,
1743 QObject **ret_data)
1745 qemu_system_reset_request();
1746 return 0;
1750 * do_system_powerdown(): Issue a machine powerdown
1752 static int do_system_powerdown(Monitor *mon, const QDict *qdict,
1753 QObject **ret_data)
1755 qemu_system_powerdown_request();
1756 return 0;
1759 #if defined(TARGET_I386)
1760 static void print_pte(Monitor *mon, uint32_t addr, uint32_t pte, uint32_t mask)
1762 monitor_printf(mon, "%08x: %08x %c%c%c%c%c%c%c%c\n",
1763 addr,
1764 pte & mask,
1765 pte & PG_GLOBAL_MASK ? 'G' : '-',
1766 pte & PG_PSE_MASK ? 'P' : '-',
1767 pte & PG_DIRTY_MASK ? 'D' : '-',
1768 pte & PG_ACCESSED_MASK ? 'A' : '-',
1769 pte & PG_PCD_MASK ? 'C' : '-',
1770 pte & PG_PWT_MASK ? 'T' : '-',
1771 pte & PG_USER_MASK ? 'U' : '-',
1772 pte & PG_RW_MASK ? 'W' : '-');
1775 static void tlb_info(Monitor *mon)
1777 CPUState *env;
1778 int l1, l2;
1779 uint32_t pgd, pde, pte;
1781 env = mon_get_cpu();
1783 if (!(env->cr[0] & CR0_PG_MASK)) {
1784 monitor_printf(mon, "PG disabled\n");
1785 return;
1787 pgd = env->cr[3] & ~0xfff;
1788 for(l1 = 0; l1 < 1024; l1++) {
1789 cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1790 pde = le32_to_cpu(pde);
1791 if (pde & PG_PRESENT_MASK) {
1792 if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1793 print_pte(mon, (l1 << 22), pde, ~((1 << 20) - 1));
1794 } else {
1795 for(l2 = 0; l2 < 1024; l2++) {
1796 cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1797 (uint8_t *)&pte, 4);
1798 pte = le32_to_cpu(pte);
1799 if (pte & PG_PRESENT_MASK) {
1800 print_pte(mon, (l1 << 22) + (l2 << 12),
1801 pte & ~PG_PSE_MASK,
1802 ~0xfff);
1810 static void mem_print(Monitor *mon, uint32_t *pstart, int *plast_prot,
1811 uint32_t end, int prot)
1813 int prot1;
1814 prot1 = *plast_prot;
1815 if (prot != prot1) {
1816 if (*pstart != -1) {
1817 monitor_printf(mon, "%08x-%08x %08x %c%c%c\n",
1818 *pstart, end, end - *pstart,
1819 prot1 & PG_USER_MASK ? 'u' : '-',
1820 'r',
1821 prot1 & PG_RW_MASK ? 'w' : '-');
1823 if (prot != 0)
1824 *pstart = end;
1825 else
1826 *pstart = -1;
1827 *plast_prot = prot;
1831 static void mem_info(Monitor *mon)
1833 CPUState *env;
1834 int l1, l2, prot, last_prot;
1835 uint32_t pgd, pde, pte, start, end;
1837 env = mon_get_cpu();
1839 if (!(env->cr[0] & CR0_PG_MASK)) {
1840 monitor_printf(mon, "PG disabled\n");
1841 return;
1843 pgd = env->cr[3] & ~0xfff;
1844 last_prot = 0;
1845 start = -1;
1846 for(l1 = 0; l1 < 1024; l1++) {
1847 cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1848 pde = le32_to_cpu(pde);
1849 end = l1 << 22;
1850 if (pde & PG_PRESENT_MASK) {
1851 if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1852 prot = pde & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1853 mem_print(mon, &start, &last_prot, end, prot);
1854 } else {
1855 for(l2 = 0; l2 < 1024; l2++) {
1856 cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1857 (uint8_t *)&pte, 4);
1858 pte = le32_to_cpu(pte);
1859 end = (l1 << 22) + (l2 << 12);
1860 if (pte & PG_PRESENT_MASK) {
1861 prot = pte & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1862 } else {
1863 prot = 0;
1865 mem_print(mon, &start, &last_prot, end, prot);
1868 } else {
1869 prot = 0;
1870 mem_print(mon, &start, &last_prot, end, prot);
1874 #endif
1876 #if defined(TARGET_SH4)
1878 static void print_tlb(Monitor *mon, int idx, tlb_t *tlb)
1880 monitor_printf(mon, " tlb%i:\t"
1881 "asid=%hhu vpn=%x\tppn=%x\tsz=%hhu size=%u\t"
1882 "v=%hhu shared=%hhu cached=%hhu prot=%hhu "
1883 "dirty=%hhu writethrough=%hhu\n",
1884 idx,
1885 tlb->asid, tlb->vpn, tlb->ppn, tlb->sz, tlb->size,
1886 tlb->v, tlb->sh, tlb->c, tlb->pr,
1887 tlb->d, tlb->wt);
1890 static void tlb_info(Monitor *mon)
1892 CPUState *env = mon_get_cpu();
1893 int i;
1895 monitor_printf (mon, "ITLB:\n");
1896 for (i = 0 ; i < ITLB_SIZE ; i++)
1897 print_tlb (mon, i, &env->itlb[i]);
1898 monitor_printf (mon, "UTLB:\n");
1899 for (i = 0 ; i < UTLB_SIZE ; i++)
1900 print_tlb (mon, i, &env->utlb[i]);
1903 #endif
1905 static void do_info_kvm_print(Monitor *mon, const QObject *data)
1907 QDict *qdict;
1909 qdict = qobject_to_qdict(data);
1911 monitor_printf(mon, "kvm support: ");
1912 if (qdict_get_bool(qdict, "present")) {
1913 monitor_printf(mon, "%s\n", qdict_get_bool(qdict, "enabled") ?
1914 "enabled" : "disabled");
1915 } else {
1916 monitor_printf(mon, "not compiled\n");
1920 static void do_info_kvm(Monitor *mon, QObject **ret_data)
1922 #ifdef CONFIG_KVM
1923 *ret_data = qobject_from_jsonf("{ 'enabled': %i, 'present': true }",
1924 kvm_enabled());
1925 #else
1926 *ret_data = qobject_from_jsonf("{ 'enabled': false, 'present': false }");
1927 #endif
1930 static void do_info_numa(Monitor *mon)
1932 int i;
1933 CPUState *env;
1935 monitor_printf(mon, "%d nodes\n", nb_numa_nodes);
1936 for (i = 0; i < nb_numa_nodes; i++) {
1937 monitor_printf(mon, "node %d cpus:", i);
1938 for (env = first_cpu; env != NULL; env = env->next_cpu) {
1939 if (env->numa_node == i) {
1940 monitor_printf(mon, " %d", env->cpu_index);
1943 monitor_printf(mon, "\n");
1944 monitor_printf(mon, "node %d size: %" PRId64 " MB\n", i,
1945 node_mem[i] >> 20);
1949 #ifdef CONFIG_PROFILER
1951 int64_t qemu_time;
1952 int64_t dev_time;
1954 static void do_info_profile(Monitor *mon)
1956 int64_t total;
1957 total = qemu_time;
1958 if (total == 0)
1959 total = 1;
1960 monitor_printf(mon, "async time %" PRId64 " (%0.3f)\n",
1961 dev_time, dev_time / (double)get_ticks_per_sec());
1962 monitor_printf(mon, "qemu time %" PRId64 " (%0.3f)\n",
1963 qemu_time, qemu_time / (double)get_ticks_per_sec());
1964 qemu_time = 0;
1965 dev_time = 0;
1967 #else
1968 static void do_info_profile(Monitor *mon)
1970 monitor_printf(mon, "Internal profiler not compiled\n");
1972 #endif
1974 /* Capture support */
1975 static QLIST_HEAD (capture_list_head, CaptureState) capture_head;
1977 static void do_info_capture(Monitor *mon)
1979 int i;
1980 CaptureState *s;
1982 for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1983 monitor_printf(mon, "[%d]: ", i);
1984 s->ops.info (s->opaque);
1988 #ifdef HAS_AUDIO
1989 static void do_stop_capture(Monitor *mon, const QDict *qdict)
1991 int i;
1992 int n = qdict_get_int(qdict, "n");
1993 CaptureState *s;
1995 for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1996 if (i == n) {
1997 s->ops.destroy (s->opaque);
1998 QLIST_REMOVE (s, entries);
1999 qemu_free (s);
2000 return;
2005 static void do_wav_capture(Monitor *mon, const QDict *qdict)
2007 const char *path = qdict_get_str(qdict, "path");
2008 int has_freq = qdict_haskey(qdict, "freq");
2009 int freq = qdict_get_try_int(qdict, "freq", -1);
2010 int has_bits = qdict_haskey(qdict, "bits");
2011 int bits = qdict_get_try_int(qdict, "bits", -1);
2012 int has_channels = qdict_haskey(qdict, "nchannels");
2013 int nchannels = qdict_get_try_int(qdict, "nchannels", -1);
2014 CaptureState *s;
2016 s = qemu_mallocz (sizeof (*s));
2018 freq = has_freq ? freq : 44100;
2019 bits = has_bits ? bits : 16;
2020 nchannels = has_channels ? nchannels : 2;
2022 if (wav_start_capture (s, path, freq, bits, nchannels)) {
2023 monitor_printf(mon, "Faied to add wave capture\n");
2024 qemu_free (s);
2026 QLIST_INSERT_HEAD (&capture_head, s, entries);
2028 #endif
2030 #if defined(TARGET_I386)
2031 static void do_inject_nmi(Monitor *mon, const QDict *qdict)
2033 CPUState *env;
2034 int cpu_index = qdict_get_int(qdict, "cpu_index");
2036 for (env = first_cpu; env != NULL; env = env->next_cpu)
2037 if (env->cpu_index == cpu_index) {
2038 cpu_interrupt(env, CPU_INTERRUPT_NMI);
2039 break;
2042 #endif
2044 static void do_info_status_print(Monitor *mon, const QObject *data)
2046 QDict *qdict;
2048 qdict = qobject_to_qdict(data);
2050 monitor_printf(mon, "VM status: ");
2051 if (qdict_get_bool(qdict, "running")) {
2052 monitor_printf(mon, "running");
2053 if (qdict_get_bool(qdict, "singlestep")) {
2054 monitor_printf(mon, " (single step mode)");
2056 } else {
2057 monitor_printf(mon, "paused");
2060 monitor_printf(mon, "\n");
2063 static void do_info_status(Monitor *mon, QObject **ret_data)
2065 *ret_data = qobject_from_jsonf("{ 'running': %i, 'singlestep': %i }",
2066 vm_running, singlestep);
2069 static qemu_acl *find_acl(Monitor *mon, const char *name)
2071 qemu_acl *acl = qemu_acl_find(name);
2073 if (!acl) {
2074 monitor_printf(mon, "acl: unknown list '%s'\n", name);
2076 return acl;
2079 static void do_acl_show(Monitor *mon, const QDict *qdict)
2081 const char *aclname = qdict_get_str(qdict, "aclname");
2082 qemu_acl *acl = find_acl(mon, aclname);
2083 qemu_acl_entry *entry;
2084 int i = 0;
2086 if (acl) {
2087 monitor_printf(mon, "policy: %s\n",
2088 acl->defaultDeny ? "deny" : "allow");
2089 QTAILQ_FOREACH(entry, &acl->entries, next) {
2090 i++;
2091 monitor_printf(mon, "%d: %s %s\n", i,
2092 entry->deny ? "deny" : "allow", entry->match);
2097 static void do_acl_reset(Monitor *mon, const QDict *qdict)
2099 const char *aclname = qdict_get_str(qdict, "aclname");
2100 qemu_acl *acl = find_acl(mon, aclname);
2102 if (acl) {
2103 qemu_acl_reset(acl);
2104 monitor_printf(mon, "acl: removed all rules\n");
2108 static void do_acl_policy(Monitor *mon, const QDict *qdict)
2110 const char *aclname = qdict_get_str(qdict, "aclname");
2111 const char *policy = qdict_get_str(qdict, "policy");
2112 qemu_acl *acl = find_acl(mon, aclname);
2114 if (acl) {
2115 if (strcmp(policy, "allow") == 0) {
2116 acl->defaultDeny = 0;
2117 monitor_printf(mon, "acl: policy set to 'allow'\n");
2118 } else if (strcmp(policy, "deny") == 0) {
2119 acl->defaultDeny = 1;
2120 monitor_printf(mon, "acl: policy set to 'deny'\n");
2121 } else {
2122 monitor_printf(mon, "acl: unknown policy '%s', "
2123 "expected 'deny' or 'allow'\n", policy);
2128 static void do_acl_add(Monitor *mon, const QDict *qdict)
2130 const char *aclname = qdict_get_str(qdict, "aclname");
2131 const char *match = qdict_get_str(qdict, "match");
2132 const char *policy = qdict_get_str(qdict, "policy");
2133 int has_index = qdict_haskey(qdict, "index");
2134 int index = qdict_get_try_int(qdict, "index", -1);
2135 qemu_acl *acl = find_acl(mon, aclname);
2136 int deny, ret;
2138 if (acl) {
2139 if (strcmp(policy, "allow") == 0) {
2140 deny = 0;
2141 } else if (strcmp(policy, "deny") == 0) {
2142 deny = 1;
2143 } else {
2144 monitor_printf(mon, "acl: unknown policy '%s', "
2145 "expected 'deny' or 'allow'\n", policy);
2146 return;
2148 if (has_index)
2149 ret = qemu_acl_insert(acl, deny, match, index);
2150 else
2151 ret = qemu_acl_append(acl, deny, match);
2152 if (ret < 0)
2153 monitor_printf(mon, "acl: unable to add acl entry\n");
2154 else
2155 monitor_printf(mon, "acl: added rule at position %d\n", ret);
2159 static void do_acl_remove(Monitor *mon, const QDict *qdict)
2161 const char *aclname = qdict_get_str(qdict, "aclname");
2162 const char *match = qdict_get_str(qdict, "match");
2163 qemu_acl *acl = find_acl(mon, aclname);
2164 int ret;
2166 if (acl) {
2167 ret = qemu_acl_remove(acl, match);
2168 if (ret < 0)
2169 monitor_printf(mon, "acl: no matching acl entry\n");
2170 else
2171 monitor_printf(mon, "acl: removed rule at position %d\n", ret);
2175 #if defined(TARGET_I386)
2176 static void do_inject_mce(Monitor *mon, const QDict *qdict)
2178 CPUState *cenv;
2179 int cpu_index = qdict_get_int(qdict, "cpu_index");
2180 int bank = qdict_get_int(qdict, "bank");
2181 uint64_t status = qdict_get_int(qdict, "status");
2182 uint64_t mcg_status = qdict_get_int(qdict, "mcg_status");
2183 uint64_t addr = qdict_get_int(qdict, "addr");
2184 uint64_t misc = qdict_get_int(qdict, "misc");
2186 for (cenv = first_cpu; cenv != NULL; cenv = cenv->next_cpu)
2187 if (cenv->cpu_index == cpu_index && cenv->mcg_cap) {
2188 cpu_inject_x86_mce(cenv, bank, status, mcg_status, addr, misc);
2189 break;
2192 #endif
2194 static int do_getfd(Monitor *mon, const QDict *qdict, QObject **ret_data)
2196 const char *fdname = qdict_get_str(qdict, "fdname");
2197 mon_fd_t *monfd;
2198 int fd;
2200 fd = qemu_chr_get_msgfd(mon->chr);
2201 if (fd == -1) {
2202 qerror_report(QERR_FD_NOT_SUPPLIED);
2203 return -1;
2206 if (qemu_isdigit(fdname[0])) {
2207 qerror_report(QERR_INVALID_PARAMETER_VALUE, "fdname",
2208 "a name not starting with a digit");
2209 return -1;
2212 QLIST_FOREACH(monfd, &mon->fds, next) {
2213 if (strcmp(monfd->name, fdname) != 0) {
2214 continue;
2217 close(monfd->fd);
2218 monfd->fd = fd;
2219 return 0;
2222 monfd = qemu_mallocz(sizeof(mon_fd_t));
2223 monfd->name = qemu_strdup(fdname);
2224 monfd->fd = fd;
2226 QLIST_INSERT_HEAD(&mon->fds, monfd, next);
2227 return 0;
2230 static int do_closefd(Monitor *mon, const QDict *qdict, QObject **ret_data)
2232 const char *fdname = qdict_get_str(qdict, "fdname");
2233 mon_fd_t *monfd;
2235 QLIST_FOREACH(monfd, &mon->fds, next) {
2236 if (strcmp(monfd->name, fdname) != 0) {
2237 continue;
2240 QLIST_REMOVE(monfd, next);
2241 close(monfd->fd);
2242 qemu_free(monfd->name);
2243 qemu_free(monfd);
2244 return 0;
2247 qerror_report(QERR_FD_NOT_FOUND, fdname);
2248 return -1;
2251 static void do_loadvm(Monitor *mon, const QDict *qdict)
2253 int saved_vm_running = vm_running;
2254 const char *name = qdict_get_str(qdict, "name");
2256 vm_stop(0);
2258 if (load_vmstate(name) >= 0 && saved_vm_running)
2259 vm_start();
2262 int monitor_get_fd(Monitor *mon, const char *fdname)
2264 mon_fd_t *monfd;
2266 QLIST_FOREACH(monfd, &mon->fds, next) {
2267 int fd;
2269 if (strcmp(monfd->name, fdname) != 0) {
2270 continue;
2273 fd = monfd->fd;
2275 /* caller takes ownership of fd */
2276 QLIST_REMOVE(monfd, next);
2277 qemu_free(monfd->name);
2278 qemu_free(monfd);
2280 return fd;
2283 return -1;
2286 static const mon_cmd_t mon_cmds[] = {
2287 #include "qemu-monitor.h"
2288 { NULL, NULL, },
2291 /* Please update qemu-monitor.hx when adding or changing commands */
2292 static const mon_cmd_t info_cmds[] = {
2294 .name = "version",
2295 .args_type = "",
2296 .params = "",
2297 .help = "show the version of QEMU",
2298 .user_print = do_info_version_print,
2299 .mhandler.info_new = do_info_version,
2302 .name = "commands",
2303 .args_type = "",
2304 .params = "",
2305 .help = "list QMP available commands",
2306 .user_print = monitor_user_noop,
2307 .mhandler.info_new = do_info_commands,
2310 .name = "network",
2311 .args_type = "",
2312 .params = "",
2313 .help = "show the network state",
2314 .mhandler.info = do_info_network,
2317 .name = "chardev",
2318 .args_type = "",
2319 .params = "",
2320 .help = "show the character devices",
2321 .user_print = qemu_chr_info_print,
2322 .mhandler.info_new = qemu_chr_info,
2325 .name = "block",
2326 .args_type = "",
2327 .params = "",
2328 .help = "show the block devices",
2329 .user_print = bdrv_info_print,
2330 .mhandler.info_new = bdrv_info,
2333 .name = "blockstats",
2334 .args_type = "",
2335 .params = "",
2336 .help = "show block device statistics",
2337 .user_print = bdrv_stats_print,
2338 .mhandler.info_new = bdrv_info_stats,
2341 .name = "registers",
2342 .args_type = "",
2343 .params = "",
2344 .help = "show the cpu registers",
2345 .mhandler.info = do_info_registers,
2348 .name = "cpus",
2349 .args_type = "",
2350 .params = "",
2351 .help = "show infos for each CPU",
2352 .user_print = monitor_print_cpus,
2353 .mhandler.info_new = do_info_cpus,
2356 .name = "history",
2357 .args_type = "",
2358 .params = "",
2359 .help = "show the command line history",
2360 .mhandler.info = do_info_history,
2363 .name = "irq",
2364 .args_type = "",
2365 .params = "",
2366 .help = "show the interrupts statistics (if available)",
2367 .mhandler.info = irq_info,
2370 .name = "pic",
2371 .args_type = "",
2372 .params = "",
2373 .help = "show i8259 (PIC) state",
2374 .mhandler.info = pic_info,
2377 .name = "pci",
2378 .args_type = "",
2379 .params = "",
2380 .help = "show PCI info",
2381 .user_print = do_pci_info_print,
2382 .mhandler.info_new = do_pci_info,
2384 #if defined(TARGET_I386) || defined(TARGET_SH4)
2386 .name = "tlb",
2387 .args_type = "",
2388 .params = "",
2389 .help = "show virtual to physical memory mappings",
2390 .mhandler.info = tlb_info,
2392 #endif
2393 #if defined(TARGET_I386)
2395 .name = "mem",
2396 .args_type = "",
2397 .params = "",
2398 .help = "show the active virtual memory mappings",
2399 .mhandler.info = mem_info,
2401 #endif
2403 .name = "jit",
2404 .args_type = "",
2405 .params = "",
2406 .help = "show dynamic compiler info",
2407 .mhandler.info = do_info_jit,
2410 .name = "kvm",
2411 .args_type = "",
2412 .params = "",
2413 .help = "show KVM information",
2414 .user_print = do_info_kvm_print,
2415 .mhandler.info_new = do_info_kvm,
2418 .name = "numa",
2419 .args_type = "",
2420 .params = "",
2421 .help = "show NUMA information",
2422 .mhandler.info = do_info_numa,
2425 .name = "usb",
2426 .args_type = "",
2427 .params = "",
2428 .help = "show guest USB devices",
2429 .mhandler.info = usb_info,
2432 .name = "usbhost",
2433 .args_type = "",
2434 .params = "",
2435 .help = "show host USB devices",
2436 .mhandler.info = usb_host_info,
2439 .name = "profile",
2440 .args_type = "",
2441 .params = "",
2442 .help = "show profiling information",
2443 .mhandler.info = do_info_profile,
2446 .name = "capture",
2447 .args_type = "",
2448 .params = "",
2449 .help = "show capture information",
2450 .mhandler.info = do_info_capture,
2453 .name = "snapshots",
2454 .args_type = "",
2455 .params = "",
2456 .help = "show the currently saved VM snapshots",
2457 .mhandler.info = do_info_snapshots,
2460 .name = "status",
2461 .args_type = "",
2462 .params = "",
2463 .help = "show the current VM status (running|paused)",
2464 .user_print = do_info_status_print,
2465 .mhandler.info_new = do_info_status,
2468 .name = "pcmcia",
2469 .args_type = "",
2470 .params = "",
2471 .help = "show guest PCMCIA status",
2472 .mhandler.info = pcmcia_info,
2475 .name = "mice",
2476 .args_type = "",
2477 .params = "",
2478 .help = "show which guest mouse is receiving events",
2479 .user_print = do_info_mice_print,
2480 .mhandler.info_new = do_info_mice,
2483 .name = "vnc",
2484 .args_type = "",
2485 .params = "",
2486 .help = "show the vnc server status",
2487 .user_print = do_info_vnc_print,
2488 .mhandler.info_new = do_info_vnc,
2491 .name = "name",
2492 .args_type = "",
2493 .params = "",
2494 .help = "show the current VM name",
2495 .user_print = do_info_name_print,
2496 .mhandler.info_new = do_info_name,
2499 .name = "uuid",
2500 .args_type = "",
2501 .params = "",
2502 .help = "show the current VM UUID",
2503 .user_print = do_info_uuid_print,
2504 .mhandler.info_new = do_info_uuid,
2506 #if defined(TARGET_PPC)
2508 .name = "cpustats",
2509 .args_type = "",
2510 .params = "",
2511 .help = "show CPU statistics",
2512 .mhandler.info = do_info_cpu_stats,
2514 #endif
2515 #if defined(CONFIG_SLIRP)
2517 .name = "usernet",
2518 .args_type = "",
2519 .params = "",
2520 .help = "show user network stack connection states",
2521 .mhandler.info = do_info_usernet,
2523 #endif
2525 .name = "migrate",
2526 .args_type = "",
2527 .params = "",
2528 .help = "show migration status",
2529 .user_print = do_info_migrate_print,
2530 .mhandler.info_new = do_info_migrate,
2533 .name = "balloon",
2534 .args_type = "",
2535 .params = "",
2536 .help = "show balloon information",
2537 .user_print = monitor_print_balloon,
2538 .mhandler.info_async = do_info_balloon,
2539 .async = 1,
2542 .name = "qtree",
2543 .args_type = "",
2544 .params = "",
2545 .help = "show device tree",
2546 .mhandler.info = do_info_qtree,
2549 .name = "qdm",
2550 .args_type = "",
2551 .params = "",
2552 .help = "show qdev device model list",
2553 .mhandler.info = do_info_qdm,
2556 .name = "roms",
2557 .args_type = "",
2558 .params = "",
2559 .help = "show roms",
2560 .mhandler.info = do_info_roms,
2563 .name = NULL,
2567 /*******************************************************************/
2569 static const char *pch;
2570 static jmp_buf expr_env;
2572 #define MD_TLONG 0
2573 #define MD_I32 1
2575 typedef struct MonitorDef {
2576 const char *name;
2577 int offset;
2578 target_long (*get_value)(const struct MonitorDef *md, int val);
2579 int type;
2580 } MonitorDef;
2582 #if defined(TARGET_I386)
2583 static target_long monitor_get_pc (const struct MonitorDef *md, int val)
2585 CPUState *env = mon_get_cpu();
2586 return env->eip + env->segs[R_CS].base;
2588 #endif
2590 #if defined(TARGET_PPC)
2591 static target_long monitor_get_ccr (const struct MonitorDef *md, int val)
2593 CPUState *env = mon_get_cpu();
2594 unsigned int u;
2595 int i;
2597 u = 0;
2598 for (i = 0; i < 8; i++)
2599 u |= env->crf[i] << (32 - (4 * i));
2601 return u;
2604 static target_long monitor_get_msr (const struct MonitorDef *md, int val)
2606 CPUState *env = mon_get_cpu();
2607 return env->msr;
2610 static target_long monitor_get_xer (const struct MonitorDef *md, int val)
2612 CPUState *env = mon_get_cpu();
2613 return env->xer;
2616 static target_long monitor_get_decr (const struct MonitorDef *md, int val)
2618 CPUState *env = mon_get_cpu();
2619 return cpu_ppc_load_decr(env);
2622 static target_long monitor_get_tbu (const struct MonitorDef *md, int val)
2624 CPUState *env = mon_get_cpu();
2625 return cpu_ppc_load_tbu(env);
2628 static target_long monitor_get_tbl (const struct MonitorDef *md, int val)
2630 CPUState *env = mon_get_cpu();
2631 return cpu_ppc_load_tbl(env);
2633 #endif
2635 #if defined(TARGET_SPARC)
2636 #ifndef TARGET_SPARC64
2637 static target_long monitor_get_psr (const struct MonitorDef *md, int val)
2639 CPUState *env = mon_get_cpu();
2641 return cpu_get_psr(env);
2643 #endif
2645 static target_long monitor_get_reg(const struct MonitorDef *md, int val)
2647 CPUState *env = mon_get_cpu();
2648 return env->regwptr[val];
2650 #endif
2652 static const MonitorDef monitor_defs[] = {
2653 #ifdef TARGET_I386
2655 #define SEG(name, seg) \
2656 { name, offsetof(CPUState, segs[seg].selector), NULL, MD_I32 },\
2657 { name ".base", offsetof(CPUState, segs[seg].base) },\
2658 { name ".limit", offsetof(CPUState, segs[seg].limit), NULL, MD_I32 },
2660 { "eax", offsetof(CPUState, regs[0]) },
2661 { "ecx", offsetof(CPUState, regs[1]) },
2662 { "edx", offsetof(CPUState, regs[2]) },
2663 { "ebx", offsetof(CPUState, regs[3]) },
2664 { "esp|sp", offsetof(CPUState, regs[4]) },
2665 { "ebp|fp", offsetof(CPUState, regs[5]) },
2666 { "esi", offsetof(CPUState, regs[6]) },
2667 { "edi", offsetof(CPUState, regs[7]) },
2668 #ifdef TARGET_X86_64
2669 { "r8", offsetof(CPUState, regs[8]) },
2670 { "r9", offsetof(CPUState, regs[9]) },
2671 { "r10", offsetof(CPUState, regs[10]) },
2672 { "r11", offsetof(CPUState, regs[11]) },
2673 { "r12", offsetof(CPUState, regs[12]) },
2674 { "r13", offsetof(CPUState, regs[13]) },
2675 { "r14", offsetof(CPUState, regs[14]) },
2676 { "r15", offsetof(CPUState, regs[15]) },
2677 #endif
2678 { "eflags", offsetof(CPUState, eflags) },
2679 { "eip", offsetof(CPUState, eip) },
2680 SEG("cs", R_CS)
2681 SEG("ds", R_DS)
2682 SEG("es", R_ES)
2683 SEG("ss", R_SS)
2684 SEG("fs", R_FS)
2685 SEG("gs", R_GS)
2686 { "pc", 0, monitor_get_pc, },
2687 #elif defined(TARGET_PPC)
2688 /* General purpose registers */
2689 { "r0", offsetof(CPUState, gpr[0]) },
2690 { "r1", offsetof(CPUState, gpr[1]) },
2691 { "r2", offsetof(CPUState, gpr[2]) },
2692 { "r3", offsetof(CPUState, gpr[3]) },
2693 { "r4", offsetof(CPUState, gpr[4]) },
2694 { "r5", offsetof(CPUState, gpr[5]) },
2695 { "r6", offsetof(CPUState, gpr[6]) },
2696 { "r7", offsetof(CPUState, gpr[7]) },
2697 { "r8", offsetof(CPUState, gpr[8]) },
2698 { "r9", offsetof(CPUState, gpr[9]) },
2699 { "r10", offsetof(CPUState, gpr[10]) },
2700 { "r11", offsetof(CPUState, gpr[11]) },
2701 { "r12", offsetof(CPUState, gpr[12]) },
2702 { "r13", offsetof(CPUState, gpr[13]) },
2703 { "r14", offsetof(CPUState, gpr[14]) },
2704 { "r15", offsetof(CPUState, gpr[15]) },
2705 { "r16", offsetof(CPUState, gpr[16]) },
2706 { "r17", offsetof(CPUState, gpr[17]) },
2707 { "r18", offsetof(CPUState, gpr[18]) },
2708 { "r19", offsetof(CPUState, gpr[19]) },
2709 { "r20", offsetof(CPUState, gpr[20]) },
2710 { "r21", offsetof(CPUState, gpr[21]) },
2711 { "r22", offsetof(CPUState, gpr[22]) },
2712 { "r23", offsetof(CPUState, gpr[23]) },
2713 { "r24", offsetof(CPUState, gpr[24]) },
2714 { "r25", offsetof(CPUState, gpr[25]) },
2715 { "r26", offsetof(CPUState, gpr[26]) },
2716 { "r27", offsetof(CPUState, gpr[27]) },
2717 { "r28", offsetof(CPUState, gpr[28]) },
2718 { "r29", offsetof(CPUState, gpr[29]) },
2719 { "r30", offsetof(CPUState, gpr[30]) },
2720 { "r31", offsetof(CPUState, gpr[31]) },
2721 /* Floating point registers */
2722 { "f0", offsetof(CPUState, fpr[0]) },
2723 { "f1", offsetof(CPUState, fpr[1]) },
2724 { "f2", offsetof(CPUState, fpr[2]) },
2725 { "f3", offsetof(CPUState, fpr[3]) },
2726 { "f4", offsetof(CPUState, fpr[4]) },
2727 { "f5", offsetof(CPUState, fpr[5]) },
2728 { "f6", offsetof(CPUState, fpr[6]) },
2729 { "f7", offsetof(CPUState, fpr[7]) },
2730 { "f8", offsetof(CPUState, fpr[8]) },
2731 { "f9", offsetof(CPUState, fpr[9]) },
2732 { "f10", offsetof(CPUState, fpr[10]) },
2733 { "f11", offsetof(CPUState, fpr[11]) },
2734 { "f12", offsetof(CPUState, fpr[12]) },
2735 { "f13", offsetof(CPUState, fpr[13]) },
2736 { "f14", offsetof(CPUState, fpr[14]) },
2737 { "f15", offsetof(CPUState, fpr[15]) },
2738 { "f16", offsetof(CPUState, fpr[16]) },
2739 { "f17", offsetof(CPUState, fpr[17]) },
2740 { "f18", offsetof(CPUState, fpr[18]) },
2741 { "f19", offsetof(CPUState, fpr[19]) },
2742 { "f20", offsetof(CPUState, fpr[20]) },
2743 { "f21", offsetof(CPUState, fpr[21]) },
2744 { "f22", offsetof(CPUState, fpr[22]) },
2745 { "f23", offsetof(CPUState, fpr[23]) },
2746 { "f24", offsetof(CPUState, fpr[24]) },
2747 { "f25", offsetof(CPUState, fpr[25]) },
2748 { "f26", offsetof(CPUState, fpr[26]) },
2749 { "f27", offsetof(CPUState, fpr[27]) },
2750 { "f28", offsetof(CPUState, fpr[28]) },
2751 { "f29", offsetof(CPUState, fpr[29]) },
2752 { "f30", offsetof(CPUState, fpr[30]) },
2753 { "f31", offsetof(CPUState, fpr[31]) },
2754 { "fpscr", offsetof(CPUState, fpscr) },
2755 /* Next instruction pointer */
2756 { "nip|pc", offsetof(CPUState, nip) },
2757 { "lr", offsetof(CPUState, lr) },
2758 { "ctr", offsetof(CPUState, ctr) },
2759 { "decr", 0, &monitor_get_decr, },
2760 { "ccr", 0, &monitor_get_ccr, },
2761 /* Machine state register */
2762 { "msr", 0, &monitor_get_msr, },
2763 { "xer", 0, &monitor_get_xer, },
2764 { "tbu", 0, &monitor_get_tbu, },
2765 { "tbl", 0, &monitor_get_tbl, },
2766 #if defined(TARGET_PPC64)
2767 /* Address space register */
2768 { "asr", offsetof(CPUState, asr) },
2769 #endif
2770 /* Segment registers */
2771 { "sdr1", offsetof(CPUState, sdr1) },
2772 { "sr0", offsetof(CPUState, sr[0]) },
2773 { "sr1", offsetof(CPUState, sr[1]) },
2774 { "sr2", offsetof(CPUState, sr[2]) },
2775 { "sr3", offsetof(CPUState, sr[3]) },
2776 { "sr4", offsetof(CPUState, sr[4]) },
2777 { "sr5", offsetof(CPUState, sr[5]) },
2778 { "sr6", offsetof(CPUState, sr[6]) },
2779 { "sr7", offsetof(CPUState, sr[7]) },
2780 { "sr8", offsetof(CPUState, sr[8]) },
2781 { "sr9", offsetof(CPUState, sr[9]) },
2782 { "sr10", offsetof(CPUState, sr[10]) },
2783 { "sr11", offsetof(CPUState, sr[11]) },
2784 { "sr12", offsetof(CPUState, sr[12]) },
2785 { "sr13", offsetof(CPUState, sr[13]) },
2786 { "sr14", offsetof(CPUState, sr[14]) },
2787 { "sr15", offsetof(CPUState, sr[15]) },
2788 /* Too lazy to put BATs and SPRs ... */
2789 #elif defined(TARGET_SPARC)
2790 { "g0", offsetof(CPUState, gregs[0]) },
2791 { "g1", offsetof(CPUState, gregs[1]) },
2792 { "g2", offsetof(CPUState, gregs[2]) },
2793 { "g3", offsetof(CPUState, gregs[3]) },
2794 { "g4", offsetof(CPUState, gregs[4]) },
2795 { "g5", offsetof(CPUState, gregs[5]) },
2796 { "g6", offsetof(CPUState, gregs[6]) },
2797 { "g7", offsetof(CPUState, gregs[7]) },
2798 { "o0", 0, monitor_get_reg },
2799 { "o1", 1, monitor_get_reg },
2800 { "o2", 2, monitor_get_reg },
2801 { "o3", 3, monitor_get_reg },
2802 { "o4", 4, monitor_get_reg },
2803 { "o5", 5, monitor_get_reg },
2804 { "o6", 6, monitor_get_reg },
2805 { "o7", 7, monitor_get_reg },
2806 { "l0", 8, monitor_get_reg },
2807 { "l1", 9, monitor_get_reg },
2808 { "l2", 10, monitor_get_reg },
2809 { "l3", 11, monitor_get_reg },
2810 { "l4", 12, monitor_get_reg },
2811 { "l5", 13, monitor_get_reg },
2812 { "l6", 14, monitor_get_reg },
2813 { "l7", 15, monitor_get_reg },
2814 { "i0", 16, monitor_get_reg },
2815 { "i1", 17, monitor_get_reg },
2816 { "i2", 18, monitor_get_reg },
2817 { "i3", 19, monitor_get_reg },
2818 { "i4", 20, monitor_get_reg },
2819 { "i5", 21, monitor_get_reg },
2820 { "i6", 22, monitor_get_reg },
2821 { "i7", 23, monitor_get_reg },
2822 { "pc", offsetof(CPUState, pc) },
2823 { "npc", offsetof(CPUState, npc) },
2824 { "y", offsetof(CPUState, y) },
2825 #ifndef TARGET_SPARC64
2826 { "psr", 0, &monitor_get_psr, },
2827 { "wim", offsetof(CPUState, wim) },
2828 #endif
2829 { "tbr", offsetof(CPUState, tbr) },
2830 { "fsr", offsetof(CPUState, fsr) },
2831 { "f0", offsetof(CPUState, fpr[0]) },
2832 { "f1", offsetof(CPUState, fpr[1]) },
2833 { "f2", offsetof(CPUState, fpr[2]) },
2834 { "f3", offsetof(CPUState, fpr[3]) },
2835 { "f4", offsetof(CPUState, fpr[4]) },
2836 { "f5", offsetof(CPUState, fpr[5]) },
2837 { "f6", offsetof(CPUState, fpr[6]) },
2838 { "f7", offsetof(CPUState, fpr[7]) },
2839 { "f8", offsetof(CPUState, fpr[8]) },
2840 { "f9", offsetof(CPUState, fpr[9]) },
2841 { "f10", offsetof(CPUState, fpr[10]) },
2842 { "f11", offsetof(CPUState, fpr[11]) },
2843 { "f12", offsetof(CPUState, fpr[12]) },
2844 { "f13", offsetof(CPUState, fpr[13]) },
2845 { "f14", offsetof(CPUState, fpr[14]) },
2846 { "f15", offsetof(CPUState, fpr[15]) },
2847 { "f16", offsetof(CPUState, fpr[16]) },
2848 { "f17", offsetof(CPUState, fpr[17]) },
2849 { "f18", offsetof(CPUState, fpr[18]) },
2850 { "f19", offsetof(CPUState, fpr[19]) },
2851 { "f20", offsetof(CPUState, fpr[20]) },
2852 { "f21", offsetof(CPUState, fpr[21]) },
2853 { "f22", offsetof(CPUState, fpr[22]) },
2854 { "f23", offsetof(CPUState, fpr[23]) },
2855 { "f24", offsetof(CPUState, fpr[24]) },
2856 { "f25", offsetof(CPUState, fpr[25]) },
2857 { "f26", offsetof(CPUState, fpr[26]) },
2858 { "f27", offsetof(CPUState, fpr[27]) },
2859 { "f28", offsetof(CPUState, fpr[28]) },
2860 { "f29", offsetof(CPUState, fpr[29]) },
2861 { "f30", offsetof(CPUState, fpr[30]) },
2862 { "f31", offsetof(CPUState, fpr[31]) },
2863 #ifdef TARGET_SPARC64
2864 { "f32", offsetof(CPUState, fpr[32]) },
2865 { "f34", offsetof(CPUState, fpr[34]) },
2866 { "f36", offsetof(CPUState, fpr[36]) },
2867 { "f38", offsetof(CPUState, fpr[38]) },
2868 { "f40", offsetof(CPUState, fpr[40]) },
2869 { "f42", offsetof(CPUState, fpr[42]) },
2870 { "f44", offsetof(CPUState, fpr[44]) },
2871 { "f46", offsetof(CPUState, fpr[46]) },
2872 { "f48", offsetof(CPUState, fpr[48]) },
2873 { "f50", offsetof(CPUState, fpr[50]) },
2874 { "f52", offsetof(CPUState, fpr[52]) },
2875 { "f54", offsetof(CPUState, fpr[54]) },
2876 { "f56", offsetof(CPUState, fpr[56]) },
2877 { "f58", offsetof(CPUState, fpr[58]) },
2878 { "f60", offsetof(CPUState, fpr[60]) },
2879 { "f62", offsetof(CPUState, fpr[62]) },
2880 { "asi", offsetof(CPUState, asi) },
2881 { "pstate", offsetof(CPUState, pstate) },
2882 { "cansave", offsetof(CPUState, cansave) },
2883 { "canrestore", offsetof(CPUState, canrestore) },
2884 { "otherwin", offsetof(CPUState, otherwin) },
2885 { "wstate", offsetof(CPUState, wstate) },
2886 { "cleanwin", offsetof(CPUState, cleanwin) },
2887 { "fprs", offsetof(CPUState, fprs) },
2888 #endif
2889 #endif
2890 { NULL },
2893 static void expr_error(Monitor *mon, const char *msg)
2895 monitor_printf(mon, "%s\n", msg);
2896 longjmp(expr_env, 1);
2899 /* return 0 if OK, -1 if not found */
2900 static int get_monitor_def(target_long *pval, const char *name)
2902 const MonitorDef *md;
2903 void *ptr;
2905 for(md = monitor_defs; md->name != NULL; md++) {
2906 if (compare_cmd(name, md->name)) {
2907 if (md->get_value) {
2908 *pval = md->get_value(md, md->offset);
2909 } else {
2910 CPUState *env = mon_get_cpu();
2911 ptr = (uint8_t *)env + md->offset;
2912 switch(md->type) {
2913 case MD_I32:
2914 *pval = *(int32_t *)ptr;
2915 break;
2916 case MD_TLONG:
2917 *pval = *(target_long *)ptr;
2918 break;
2919 default:
2920 *pval = 0;
2921 break;
2924 return 0;
2927 return -1;
2930 static void next(void)
2932 if (*pch != '\0') {
2933 pch++;
2934 while (qemu_isspace(*pch))
2935 pch++;
2939 static int64_t expr_sum(Monitor *mon);
2941 static int64_t expr_unary(Monitor *mon)
2943 int64_t n;
2944 char *p;
2945 int ret;
2947 switch(*pch) {
2948 case '+':
2949 next();
2950 n = expr_unary(mon);
2951 break;
2952 case '-':
2953 next();
2954 n = -expr_unary(mon);
2955 break;
2956 case '~':
2957 next();
2958 n = ~expr_unary(mon);
2959 break;
2960 case '(':
2961 next();
2962 n = expr_sum(mon);
2963 if (*pch != ')') {
2964 expr_error(mon, "')' expected");
2966 next();
2967 break;
2968 case '\'':
2969 pch++;
2970 if (*pch == '\0')
2971 expr_error(mon, "character constant expected");
2972 n = *pch;
2973 pch++;
2974 if (*pch != '\'')
2975 expr_error(mon, "missing terminating \' character");
2976 next();
2977 break;
2978 case '$':
2980 char buf[128], *q;
2981 target_long reg=0;
2983 pch++;
2984 q = buf;
2985 while ((*pch >= 'a' && *pch <= 'z') ||
2986 (*pch >= 'A' && *pch <= 'Z') ||
2987 (*pch >= '0' && *pch <= '9') ||
2988 *pch == '_' || *pch == '.') {
2989 if ((q - buf) < sizeof(buf) - 1)
2990 *q++ = *pch;
2991 pch++;
2993 while (qemu_isspace(*pch))
2994 pch++;
2995 *q = 0;
2996 ret = get_monitor_def(&reg, buf);
2997 if (ret < 0)
2998 expr_error(mon, "unknown register");
2999 n = reg;
3001 break;
3002 case '\0':
3003 expr_error(mon, "unexpected end of expression");
3004 n = 0;
3005 break;
3006 default:
3007 #if TARGET_PHYS_ADDR_BITS > 32
3008 n = strtoull(pch, &p, 0);
3009 #else
3010 n = strtoul(pch, &p, 0);
3011 #endif
3012 if (pch == p) {
3013 expr_error(mon, "invalid char in expression");
3015 pch = p;
3016 while (qemu_isspace(*pch))
3017 pch++;
3018 break;
3020 return n;
3024 static int64_t expr_prod(Monitor *mon)
3026 int64_t val, val2;
3027 int op;
3029 val = expr_unary(mon);
3030 for(;;) {
3031 op = *pch;
3032 if (op != '*' && op != '/' && op != '%')
3033 break;
3034 next();
3035 val2 = expr_unary(mon);
3036 switch(op) {
3037 default:
3038 case '*':
3039 val *= val2;
3040 break;
3041 case '/':
3042 case '%':
3043 if (val2 == 0)
3044 expr_error(mon, "division by zero");
3045 if (op == '/')
3046 val /= val2;
3047 else
3048 val %= val2;
3049 break;
3052 return val;
3055 static int64_t expr_logic(Monitor *mon)
3057 int64_t val, val2;
3058 int op;
3060 val = expr_prod(mon);
3061 for(;;) {
3062 op = *pch;
3063 if (op != '&' && op != '|' && op != '^')
3064 break;
3065 next();
3066 val2 = expr_prod(mon);
3067 switch(op) {
3068 default:
3069 case '&':
3070 val &= val2;
3071 break;
3072 case '|':
3073 val |= val2;
3074 break;
3075 case '^':
3076 val ^= val2;
3077 break;
3080 return val;
3083 static int64_t expr_sum(Monitor *mon)
3085 int64_t val, val2;
3086 int op;
3088 val = expr_logic(mon);
3089 for(;;) {
3090 op = *pch;
3091 if (op != '+' && op != '-')
3092 break;
3093 next();
3094 val2 = expr_logic(mon);
3095 if (op == '+')
3096 val += val2;
3097 else
3098 val -= val2;
3100 return val;
3103 static int get_expr(Monitor *mon, int64_t *pval, const char **pp)
3105 pch = *pp;
3106 if (setjmp(expr_env)) {
3107 *pp = pch;
3108 return -1;
3110 while (qemu_isspace(*pch))
3111 pch++;
3112 *pval = expr_sum(mon);
3113 *pp = pch;
3114 return 0;
3117 static int get_double(Monitor *mon, double *pval, const char **pp)
3119 const char *p = *pp;
3120 char *tailp;
3121 double d;
3123 d = strtod(p, &tailp);
3124 if (tailp == p) {
3125 monitor_printf(mon, "Number expected\n");
3126 return -1;
3128 if (d != d || d - d != 0) {
3129 /* NaN or infinity */
3130 monitor_printf(mon, "Bad number\n");
3131 return -1;
3133 *pval = d;
3134 *pp = tailp;
3135 return 0;
3138 static int get_str(char *buf, int buf_size, const char **pp)
3140 const char *p;
3141 char *q;
3142 int c;
3144 q = buf;
3145 p = *pp;
3146 while (qemu_isspace(*p))
3147 p++;
3148 if (*p == '\0') {
3149 fail:
3150 *q = '\0';
3151 *pp = p;
3152 return -1;
3154 if (*p == '\"') {
3155 p++;
3156 while (*p != '\0' && *p != '\"') {
3157 if (*p == '\\') {
3158 p++;
3159 c = *p++;
3160 switch(c) {
3161 case 'n':
3162 c = '\n';
3163 break;
3164 case 'r':
3165 c = '\r';
3166 break;
3167 case '\\':
3168 case '\'':
3169 case '\"':
3170 break;
3171 default:
3172 qemu_printf("unsupported escape code: '\\%c'\n", c);
3173 goto fail;
3175 if ((q - buf) < buf_size - 1) {
3176 *q++ = c;
3178 } else {
3179 if ((q - buf) < buf_size - 1) {
3180 *q++ = *p;
3182 p++;
3185 if (*p != '\"') {
3186 qemu_printf("unterminated string\n");
3187 goto fail;
3189 p++;
3190 } else {
3191 while (*p != '\0' && !qemu_isspace(*p)) {
3192 if ((q - buf) < buf_size - 1) {
3193 *q++ = *p;
3195 p++;
3198 *q = '\0';
3199 *pp = p;
3200 return 0;
3204 * Store the command-name in cmdname, and return a pointer to
3205 * the remaining of the command string.
3207 static const char *get_command_name(const char *cmdline,
3208 char *cmdname, size_t nlen)
3210 size_t len;
3211 const char *p, *pstart;
3213 p = cmdline;
3214 while (qemu_isspace(*p))
3215 p++;
3216 if (*p == '\0')
3217 return NULL;
3218 pstart = p;
3219 while (*p != '\0' && *p != '/' && !qemu_isspace(*p))
3220 p++;
3221 len = p - pstart;
3222 if (len > nlen - 1)
3223 len = nlen - 1;
3224 memcpy(cmdname, pstart, len);
3225 cmdname[len] = '\0';
3226 return p;
3230 * Read key of 'type' into 'key' and return the current
3231 * 'type' pointer.
3233 static char *key_get_info(const char *type, char **key)
3235 size_t len;
3236 char *p, *str;
3238 if (*type == ',')
3239 type++;
3241 p = strchr(type, ':');
3242 if (!p) {
3243 *key = NULL;
3244 return NULL;
3246 len = p - type;
3248 str = qemu_malloc(len + 1);
3249 memcpy(str, type, len);
3250 str[len] = '\0';
3252 *key = str;
3253 return ++p;
3256 static int default_fmt_format = 'x';
3257 static int default_fmt_size = 4;
3259 #define MAX_ARGS 16
3261 static int is_valid_option(const char *c, const char *typestr)
3263 char option[3];
3265 option[0] = '-';
3266 option[1] = *c;
3267 option[2] = '\0';
3269 typestr = strstr(typestr, option);
3270 return (typestr != NULL);
3273 static const mon_cmd_t *monitor_find_command(const char *cmdname)
3275 const mon_cmd_t *cmd;
3277 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
3278 if (compare_cmd(cmdname, cmd->name)) {
3279 return cmd;
3283 return NULL;
3286 static const mon_cmd_t *monitor_parse_command(Monitor *mon,
3287 const char *cmdline,
3288 QDict *qdict)
3290 const char *p, *typestr;
3291 int c;
3292 const mon_cmd_t *cmd;
3293 char cmdname[256];
3294 char buf[1024];
3295 char *key;
3297 #ifdef DEBUG
3298 monitor_printf(mon, "command='%s'\n", cmdline);
3299 #endif
3301 /* extract the command name */
3302 p = get_command_name(cmdline, cmdname, sizeof(cmdname));
3303 if (!p)
3304 return NULL;
3306 cmd = monitor_find_command(cmdname);
3307 if (!cmd) {
3308 monitor_printf(mon, "unknown command: '%s'\n", cmdname);
3309 return NULL;
3312 /* parse the parameters */
3313 typestr = cmd->args_type;
3314 for(;;) {
3315 typestr = key_get_info(typestr, &key);
3316 if (!typestr)
3317 break;
3318 c = *typestr;
3319 typestr++;
3320 switch(c) {
3321 case 'F':
3322 case 'B':
3323 case 's':
3325 int ret;
3327 while (qemu_isspace(*p))
3328 p++;
3329 if (*typestr == '?') {
3330 typestr++;
3331 if (*p == '\0') {
3332 /* no optional string: NULL argument */
3333 break;
3336 ret = get_str(buf, sizeof(buf), &p);
3337 if (ret < 0) {
3338 switch(c) {
3339 case 'F':
3340 monitor_printf(mon, "%s: filename expected\n",
3341 cmdname);
3342 break;
3343 case 'B':
3344 monitor_printf(mon, "%s: block device name expected\n",
3345 cmdname);
3346 break;
3347 default:
3348 monitor_printf(mon, "%s: string expected\n", cmdname);
3349 break;
3351 goto fail;
3353 qdict_put(qdict, key, qstring_from_str(buf));
3355 break;
3356 case 'O':
3358 QemuOptsList *opts_list;
3359 QemuOpts *opts;
3361 opts_list = qemu_find_opts(key);
3362 if (!opts_list || opts_list->desc->name) {
3363 goto bad_type;
3365 while (qemu_isspace(*p)) {
3366 p++;
3368 if (!*p)
3369 break;
3370 if (get_str(buf, sizeof(buf), &p) < 0) {
3371 goto fail;
3373 opts = qemu_opts_parse(opts_list, buf, 1);
3374 if (!opts) {
3375 goto fail;
3377 qemu_opts_to_qdict(opts, qdict);
3378 qemu_opts_del(opts);
3380 break;
3381 case '/':
3383 int count, format, size;
3385 while (qemu_isspace(*p))
3386 p++;
3387 if (*p == '/') {
3388 /* format found */
3389 p++;
3390 count = 1;
3391 if (qemu_isdigit(*p)) {
3392 count = 0;
3393 while (qemu_isdigit(*p)) {
3394 count = count * 10 + (*p - '0');
3395 p++;
3398 size = -1;
3399 format = -1;
3400 for(;;) {
3401 switch(*p) {
3402 case 'o':
3403 case 'd':
3404 case 'u':
3405 case 'x':
3406 case 'i':
3407 case 'c':
3408 format = *p++;
3409 break;
3410 case 'b':
3411 size = 1;
3412 p++;
3413 break;
3414 case 'h':
3415 size = 2;
3416 p++;
3417 break;
3418 case 'w':
3419 size = 4;
3420 p++;
3421 break;
3422 case 'g':
3423 case 'L':
3424 size = 8;
3425 p++;
3426 break;
3427 default:
3428 goto next;
3431 next:
3432 if (*p != '\0' && !qemu_isspace(*p)) {
3433 monitor_printf(mon, "invalid char in format: '%c'\n",
3434 *p);
3435 goto fail;
3437 if (format < 0)
3438 format = default_fmt_format;
3439 if (format != 'i') {
3440 /* for 'i', not specifying a size gives -1 as size */
3441 if (size < 0)
3442 size = default_fmt_size;
3443 default_fmt_size = size;
3445 default_fmt_format = format;
3446 } else {
3447 count = 1;
3448 format = default_fmt_format;
3449 if (format != 'i') {
3450 size = default_fmt_size;
3451 } else {
3452 size = -1;
3455 qdict_put(qdict, "count", qint_from_int(count));
3456 qdict_put(qdict, "format", qint_from_int(format));
3457 qdict_put(qdict, "size", qint_from_int(size));
3459 break;
3460 case 'i':
3461 case 'l':
3462 case 'M':
3464 int64_t val;
3466 while (qemu_isspace(*p))
3467 p++;
3468 if (*typestr == '?' || *typestr == '.') {
3469 if (*typestr == '?') {
3470 if (*p == '\0') {
3471 typestr++;
3472 break;
3474 } else {
3475 if (*p == '.') {
3476 p++;
3477 while (qemu_isspace(*p))
3478 p++;
3479 } else {
3480 typestr++;
3481 break;
3484 typestr++;
3486 if (get_expr(mon, &val, &p))
3487 goto fail;
3488 /* Check if 'i' is greater than 32-bit */
3489 if ((c == 'i') && ((val >> 32) & 0xffffffff)) {
3490 monitor_printf(mon, "\'%s\' has failed: ", cmdname);
3491 monitor_printf(mon, "integer is for 32-bit values\n");
3492 goto fail;
3493 } else if (c == 'M') {
3494 val <<= 20;
3496 qdict_put(qdict, key, qint_from_int(val));
3498 break;
3499 case 'f':
3500 case 'T':
3502 double val;
3504 while (qemu_isspace(*p))
3505 p++;
3506 if (*typestr == '?') {
3507 typestr++;
3508 if (*p == '\0') {
3509 break;
3512 if (get_double(mon, &val, &p) < 0) {
3513 goto fail;
3515 if (c == 'f' && *p) {
3516 switch (*p) {
3517 case 'K': case 'k':
3518 val *= 1 << 10; p++; break;
3519 case 'M': case 'm':
3520 val *= 1 << 20; p++; break;
3521 case 'G': case 'g':
3522 val *= 1 << 30; p++; break;
3525 if (c == 'T' && p[0] && p[1] == 's') {
3526 switch (*p) {
3527 case 'm':
3528 val /= 1e3; p += 2; break;
3529 case 'u':
3530 val /= 1e6; p += 2; break;
3531 case 'n':
3532 val /= 1e9; p += 2; break;
3535 if (*p && !qemu_isspace(*p)) {
3536 monitor_printf(mon, "Unknown unit suffix\n");
3537 goto fail;
3539 qdict_put(qdict, key, qfloat_from_double(val));
3541 break;
3542 case 'b':
3544 const char *beg;
3545 int val;
3547 while (qemu_isspace(*p)) {
3548 p++;
3550 beg = p;
3551 while (qemu_isgraph(*p)) {
3552 p++;
3554 if (p - beg == 2 && !memcmp(beg, "on", p - beg)) {
3555 val = 1;
3556 } else if (p - beg == 3 && !memcmp(beg, "off", p - beg)) {
3557 val = 0;
3558 } else {
3559 monitor_printf(mon, "Expected 'on' or 'off'\n");
3560 goto fail;
3562 qdict_put(qdict, key, qbool_from_int(val));
3564 break;
3565 case '-':
3567 const char *tmp = p;
3568 int has_option, skip_key = 0;
3569 /* option */
3571 c = *typestr++;
3572 if (c == '\0')
3573 goto bad_type;
3574 while (qemu_isspace(*p))
3575 p++;
3576 has_option = 0;
3577 if (*p == '-') {
3578 p++;
3579 if(c != *p) {
3580 if(!is_valid_option(p, typestr)) {
3582 monitor_printf(mon, "%s: unsupported option -%c\n",
3583 cmdname, *p);
3584 goto fail;
3585 } else {
3586 skip_key = 1;
3589 if(skip_key) {
3590 p = tmp;
3591 } else {
3592 p++;
3593 has_option = 1;
3596 qdict_put(qdict, key, qint_from_int(has_option));
3598 break;
3599 default:
3600 bad_type:
3601 monitor_printf(mon, "%s: unknown type '%c'\n", cmdname, c);
3602 goto fail;
3604 qemu_free(key);
3605 key = NULL;
3607 /* check that all arguments were parsed */
3608 while (qemu_isspace(*p))
3609 p++;
3610 if (*p != '\0') {
3611 monitor_printf(mon, "%s: extraneous characters at the end of line\n",
3612 cmdname);
3613 goto fail;
3616 return cmd;
3618 fail:
3619 qemu_free(key);
3620 return NULL;
3623 void monitor_set_error(Monitor *mon, QError *qerror)
3625 /* report only the first error */
3626 if (!mon->error) {
3627 mon->error = qerror;
3628 } else {
3629 MON_DEBUG("Additional error report at %s:%d\n",
3630 qerror->file, qerror->linenr);
3631 QDECREF(qerror);
3635 static int is_async_return(const QObject *data)
3637 if (data && qobject_type(data) == QTYPE_QDICT) {
3638 return qdict_haskey(qobject_to_qdict(data), "__mon_async");
3641 return 0;
3644 static void handler_audit(Monitor *mon, const mon_cmd_t *cmd, int ret)
3646 if (monitor_ctrl_mode(mon)) {
3647 if (ret && !monitor_has_error(mon)) {
3649 * If it returns failure, it must have passed on error.
3651 * Action: Report an internal error to the client if in QMP.
3653 qerror_report(QERR_UNDEFINED_ERROR);
3654 MON_DEBUG("command '%s' returned failure but did not pass an error\n",
3655 cmd->name);
3658 #ifdef CONFIG_DEBUG_MONITOR
3659 if (!ret && monitor_has_error(mon)) {
3661 * If it returns success, it must not have passed an error.
3663 * Action: Report the passed error to the client.
3665 MON_DEBUG("command '%s' returned success but passed an error\n",
3666 cmd->name);
3669 if (mon_print_count_get(mon) > 0 && strcmp(cmd->name, "info") != 0) {
3671 * Handlers should not call Monitor print functions.
3673 * Action: Ignore them in QMP.
3675 * (XXX: we don't check any 'info' or 'query' command here
3676 * because the user print function _is_ called by do_info(), hence
3677 * we will trigger this check. This problem will go away when we
3678 * make 'query' commands real and kill do_info())
3680 MON_DEBUG("command '%s' called print functions %d time(s)\n",
3681 cmd->name, mon_print_count_get(mon));
3683 #endif
3684 } else {
3685 assert(!monitor_has_error(mon));
3686 QDECREF(mon->error);
3687 mon->error = NULL;
3691 static void monitor_call_handler(Monitor *mon, const mon_cmd_t *cmd,
3692 const QDict *params)
3694 int ret;
3695 QObject *data = NULL;
3697 mon_print_count_init(mon);
3699 ret = cmd->mhandler.cmd_new(mon, params, &data);
3700 handler_audit(mon, cmd, ret);
3702 if (is_async_return(data)) {
3704 * Asynchronous commands have no initial return data but they can
3705 * generate errors. Data is returned via the async completion handler.
3707 if (monitor_ctrl_mode(mon) && monitor_has_error(mon)) {
3708 monitor_protocol_emitter(mon, NULL);
3710 } else if (monitor_ctrl_mode(mon)) {
3711 /* Monitor Protocol */
3712 monitor_protocol_emitter(mon, data);
3713 } else {
3714 /* User Protocol */
3715 if (data)
3716 cmd->user_print(mon, data);
3719 qobject_decref(data);
3722 static void handle_user_command(Monitor *mon, const char *cmdline)
3724 QDict *qdict;
3725 const mon_cmd_t *cmd;
3727 qdict = qdict_new();
3729 cmd = monitor_parse_command(mon, cmdline, qdict);
3730 if (!cmd)
3731 goto out;
3733 if (monitor_handler_is_async(cmd)) {
3734 user_async_cmd_handler(mon, cmd, qdict);
3735 } else if (monitor_handler_ported(cmd)) {
3736 monitor_call_handler(mon, cmd, qdict);
3737 } else {
3738 cmd->mhandler.cmd(mon, qdict);
3741 out:
3742 QDECREF(qdict);
3745 static void cmd_completion(const char *name, const char *list)
3747 const char *p, *pstart;
3748 char cmd[128];
3749 int len;
3751 p = list;
3752 for(;;) {
3753 pstart = p;
3754 p = strchr(p, '|');
3755 if (!p)
3756 p = pstart + strlen(pstart);
3757 len = p - pstart;
3758 if (len > sizeof(cmd) - 2)
3759 len = sizeof(cmd) - 2;
3760 memcpy(cmd, pstart, len);
3761 cmd[len] = '\0';
3762 if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
3763 readline_add_completion(cur_mon->rs, cmd);
3765 if (*p == '\0')
3766 break;
3767 p++;
3771 static void file_completion(const char *input)
3773 DIR *ffs;
3774 struct dirent *d;
3775 char path[1024];
3776 char file[1024], file_prefix[1024];
3777 int input_path_len;
3778 const char *p;
3780 p = strrchr(input, '/');
3781 if (!p) {
3782 input_path_len = 0;
3783 pstrcpy(file_prefix, sizeof(file_prefix), input);
3784 pstrcpy(path, sizeof(path), ".");
3785 } else {
3786 input_path_len = p - input + 1;
3787 memcpy(path, input, input_path_len);
3788 if (input_path_len > sizeof(path) - 1)
3789 input_path_len = sizeof(path) - 1;
3790 path[input_path_len] = '\0';
3791 pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
3793 #ifdef DEBUG_COMPLETION
3794 monitor_printf(cur_mon, "input='%s' path='%s' prefix='%s'\n",
3795 input, path, file_prefix);
3796 #endif
3797 ffs = opendir(path);
3798 if (!ffs)
3799 return;
3800 for(;;) {
3801 struct stat sb;
3802 d = readdir(ffs);
3803 if (!d)
3804 break;
3805 if (strstart(d->d_name, file_prefix, NULL)) {
3806 memcpy(file, input, input_path_len);
3807 if (input_path_len < sizeof(file))
3808 pstrcpy(file + input_path_len, sizeof(file) - input_path_len,
3809 d->d_name);
3810 /* stat the file to find out if it's a directory.
3811 * In that case add a slash to speed up typing long paths
3813 stat(file, &sb);
3814 if(S_ISDIR(sb.st_mode))
3815 pstrcat(file, sizeof(file), "/");
3816 readline_add_completion(cur_mon->rs, file);
3819 closedir(ffs);
3822 static void block_completion_it(void *opaque, BlockDriverState *bs)
3824 const char *name = bdrv_get_device_name(bs);
3825 const char *input = opaque;
3827 if (input[0] == '\0' ||
3828 !strncmp(name, (char *)input, strlen(input))) {
3829 readline_add_completion(cur_mon->rs, name);
3833 /* NOTE: this parser is an approximate form of the real command parser */
3834 static void parse_cmdline(const char *cmdline,
3835 int *pnb_args, char **args)
3837 const char *p;
3838 int nb_args, ret;
3839 char buf[1024];
3841 p = cmdline;
3842 nb_args = 0;
3843 for(;;) {
3844 while (qemu_isspace(*p))
3845 p++;
3846 if (*p == '\0')
3847 break;
3848 if (nb_args >= MAX_ARGS)
3849 break;
3850 ret = get_str(buf, sizeof(buf), &p);
3851 args[nb_args] = qemu_strdup(buf);
3852 nb_args++;
3853 if (ret < 0)
3854 break;
3856 *pnb_args = nb_args;
3859 static const char *next_arg_type(const char *typestr)
3861 const char *p = strchr(typestr, ':');
3862 return (p != NULL ? ++p : typestr);
3865 static void monitor_find_completion(const char *cmdline)
3867 const char *cmdname;
3868 char *args[MAX_ARGS];
3869 int nb_args, i, len;
3870 const char *ptype, *str;
3871 const mon_cmd_t *cmd;
3872 const KeyDef *key;
3874 parse_cmdline(cmdline, &nb_args, args);
3875 #ifdef DEBUG_COMPLETION
3876 for(i = 0; i < nb_args; i++) {
3877 monitor_printf(cur_mon, "arg%d = '%s'\n", i, (char *)args[i]);
3879 #endif
3881 /* if the line ends with a space, it means we want to complete the
3882 next arg */
3883 len = strlen(cmdline);
3884 if (len > 0 && qemu_isspace(cmdline[len - 1])) {
3885 if (nb_args >= MAX_ARGS) {
3886 goto cleanup;
3888 args[nb_args++] = qemu_strdup("");
3890 if (nb_args <= 1) {
3891 /* command completion */
3892 if (nb_args == 0)
3893 cmdname = "";
3894 else
3895 cmdname = args[0];
3896 readline_set_completion_index(cur_mon->rs, strlen(cmdname));
3897 for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
3898 cmd_completion(cmdname, cmd->name);
3900 } else {
3901 /* find the command */
3902 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
3903 if (compare_cmd(args[0], cmd->name)) {
3904 break;
3907 if (!cmd->name) {
3908 goto cleanup;
3911 ptype = next_arg_type(cmd->args_type);
3912 for(i = 0; i < nb_args - 2; i++) {
3913 if (*ptype != '\0') {
3914 ptype = next_arg_type(ptype);
3915 while (*ptype == '?')
3916 ptype = next_arg_type(ptype);
3919 str = args[nb_args - 1];
3920 if (*ptype == '-' && ptype[1] != '\0') {
3921 ptype += 2;
3923 switch(*ptype) {
3924 case 'F':
3925 /* file completion */
3926 readline_set_completion_index(cur_mon->rs, strlen(str));
3927 file_completion(str);
3928 break;
3929 case 'B':
3930 /* block device name completion */
3931 readline_set_completion_index(cur_mon->rs, strlen(str));
3932 bdrv_iterate(block_completion_it, (void *)str);
3933 break;
3934 case 's':
3935 /* XXX: more generic ? */
3936 if (!strcmp(cmd->name, "info")) {
3937 readline_set_completion_index(cur_mon->rs, strlen(str));
3938 for(cmd = info_cmds; cmd->name != NULL; cmd++) {
3939 cmd_completion(str, cmd->name);
3941 } else if (!strcmp(cmd->name, "sendkey")) {
3942 char *sep = strrchr(str, '-');
3943 if (sep)
3944 str = sep + 1;
3945 readline_set_completion_index(cur_mon->rs, strlen(str));
3946 for(key = key_defs; key->name != NULL; key++) {
3947 cmd_completion(str, key->name);
3949 } else if (!strcmp(cmd->name, "help|?")) {
3950 readline_set_completion_index(cur_mon->rs, strlen(str));
3951 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
3952 cmd_completion(str, cmd->name);
3955 break;
3956 default:
3957 break;
3961 cleanup:
3962 for (i = 0; i < nb_args; i++) {
3963 qemu_free(args[i]);
3967 static int monitor_can_read(void *opaque)
3969 Monitor *mon = opaque;
3971 return (mon->suspend_cnt == 0) ? 1 : 0;
3974 typedef struct CmdArgs {
3975 QString *name;
3976 int type;
3977 int flag;
3978 int optional;
3979 } CmdArgs;
3981 static int check_opt(const CmdArgs *cmd_args, const char *name, QDict *args)
3983 if (!cmd_args->optional) {
3984 qerror_report(QERR_MISSING_PARAMETER, name);
3985 return -1;
3988 if (cmd_args->type == '-') {
3989 /* handlers expect a value, they need to be changed */
3990 qdict_put(args, name, qint_from_int(0));
3993 return 0;
3996 static int check_arg(const CmdArgs *cmd_args, QDict *args)
3998 QObject *value;
3999 const char *name;
4001 name = qstring_get_str(cmd_args->name);
4003 if (!args) {
4004 return check_opt(cmd_args, name, args);
4007 value = qdict_get(args, name);
4008 if (!value) {
4009 return check_opt(cmd_args, name, args);
4012 switch (cmd_args->type) {
4013 case 'F':
4014 case 'B':
4015 case 's':
4016 if (qobject_type(value) != QTYPE_QSTRING) {
4017 qerror_report(QERR_INVALID_PARAMETER_TYPE, name, "string");
4018 return -1;
4020 break;
4021 case '/': {
4022 int i;
4023 const char *keys[] = { "count", "format", "size", NULL };
4025 for (i = 0; keys[i]; i++) {
4026 QObject *obj = qdict_get(args, keys[i]);
4027 if (!obj) {
4028 qerror_report(QERR_MISSING_PARAMETER, name);
4029 return -1;
4031 if (qobject_type(obj) != QTYPE_QINT) {
4032 qerror_report(QERR_INVALID_PARAMETER_TYPE, name, "int");
4033 return -1;
4036 break;
4038 case 'i':
4039 case 'l':
4040 case 'M':
4041 if (qobject_type(value) != QTYPE_QINT) {
4042 qerror_report(QERR_INVALID_PARAMETER_TYPE, name, "int");
4043 return -1;
4045 break;
4046 case 'f':
4047 case 'T':
4048 if (qobject_type(value) != QTYPE_QINT && qobject_type(value) != QTYPE_QFLOAT) {
4049 qerror_report(QERR_INVALID_PARAMETER_TYPE, name, "number");
4050 return -1;
4052 break;
4053 case 'b':
4054 if (qobject_type(value) != QTYPE_QBOOL) {
4055 qerror_report(QERR_INVALID_PARAMETER_TYPE, name, "bool");
4056 return -1;
4058 break;
4059 case '-':
4060 if (qobject_type(value) != QTYPE_QINT &&
4061 qobject_type(value) != QTYPE_QBOOL) {
4062 qerror_report(QERR_INVALID_PARAMETER_TYPE, name, "bool");
4063 return -1;
4065 if (qobject_type(value) == QTYPE_QBOOL) {
4066 /* handlers expect a QInt, they need to be changed */
4067 qdict_put(args, name,
4068 qint_from_int(qbool_get_int(qobject_to_qbool(value))));
4070 break;
4071 case 'O':
4072 default:
4073 /* impossible */
4074 abort();
4077 return 0;
4080 static void cmd_args_init(CmdArgs *cmd_args)
4082 cmd_args->name = qstring_new();
4083 cmd_args->type = cmd_args->flag = cmd_args->optional = 0;
4086 static int check_opts(QemuOptsList *opts_list, QDict *args)
4088 assert(!opts_list->desc->name);
4089 return 0;
4093 * This is not trivial, we have to parse Monitor command's argument
4094 * type syntax to be able to check the arguments provided by clients.
4096 * In the near future we will be using an array for that and will be
4097 * able to drop all this parsing...
4099 static int monitor_check_qmp_args(const mon_cmd_t *cmd, QDict *args)
4101 int err;
4102 const char *p;
4103 CmdArgs cmd_args;
4104 QemuOptsList *opts_list;
4106 if (cmd->args_type == NULL) {
4107 return (qdict_size(args) == 0 ? 0 : -1);
4110 err = 0;
4111 cmd_args_init(&cmd_args);
4112 opts_list = NULL;
4114 for (p = cmd->args_type;; p++) {
4115 if (*p == ':') {
4116 cmd_args.type = *++p;
4117 p++;
4118 if (cmd_args.type == '-') {
4119 cmd_args.flag = *p++;
4120 cmd_args.optional = 1;
4121 } else if (cmd_args.type == 'O') {
4122 opts_list = qemu_find_opts(qstring_get_str(cmd_args.name));
4123 assert(opts_list);
4124 } else if (*p == '?') {
4125 cmd_args.optional = 1;
4126 p++;
4129 assert(*p == ',' || *p == '\0');
4130 if (opts_list) {
4131 err = check_opts(opts_list, args);
4132 opts_list = NULL;
4133 } else {
4134 err = check_arg(&cmd_args, args);
4135 QDECREF(cmd_args.name);
4136 cmd_args_init(&cmd_args);
4139 if (err < 0) {
4140 break;
4142 } else {
4143 qstring_append_chr(cmd_args.name, *p);
4146 if (*p == '\0') {
4147 break;
4151 QDECREF(cmd_args.name);
4152 return err;
4155 static int invalid_qmp_mode(const Monitor *mon, const char *cmd_name)
4157 int is_cap = compare_cmd(cmd_name, "qmp_capabilities");
4158 return (qmp_cmd_mode(mon) ? is_cap : !is_cap);
4161 static void handle_qmp_command(JSONMessageParser *parser, QList *tokens)
4163 int err;
4164 QObject *obj;
4165 QDict *input, *args;
4166 const mon_cmd_t *cmd;
4167 Monitor *mon = cur_mon;
4168 const char *cmd_name, *info_item;
4170 args = NULL;
4172 obj = json_parser_parse(tokens, NULL);
4173 if (!obj) {
4174 // FIXME: should be triggered in json_parser_parse()
4175 qerror_report(QERR_JSON_PARSING);
4176 goto err_out;
4177 } else if (qobject_type(obj) != QTYPE_QDICT) {
4178 qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "object");
4179 qobject_decref(obj);
4180 goto err_out;
4183 input = qobject_to_qdict(obj);
4185 mon->mc->id = qdict_get(input, "id");
4186 qobject_incref(mon->mc->id);
4188 obj = qdict_get(input, "execute");
4189 if (!obj) {
4190 qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "execute");
4191 goto err_input;
4192 } else if (qobject_type(obj) != QTYPE_QSTRING) {
4193 qerror_report(QERR_QMP_BAD_INPUT_OBJECT_MEMBER, "execute", "string");
4194 goto err_input;
4197 cmd_name = qstring_get_str(qobject_to_qstring(obj));
4199 if (invalid_qmp_mode(mon, cmd_name)) {
4200 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
4201 goto err_input;
4205 * XXX: We need this special case until we get info handlers
4206 * converted into 'query-' commands
4208 if (compare_cmd(cmd_name, "info")) {
4209 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
4210 goto err_input;
4211 } else if (strstart(cmd_name, "query-", &info_item)) {
4212 cmd = monitor_find_command("info");
4213 qdict_put_obj(input, "arguments",
4214 qobject_from_jsonf("{ 'item': %s }", info_item));
4215 } else {
4216 cmd = monitor_find_command(cmd_name);
4217 if (!cmd || !monitor_handler_ported(cmd)) {
4218 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
4219 goto err_input;
4223 obj = qdict_get(input, "arguments");
4224 if (!obj) {
4225 args = qdict_new();
4226 } else if (qobject_type(obj) != QTYPE_QDICT) {
4227 qerror_report(QERR_QMP_BAD_INPUT_OBJECT_MEMBER, "arguments", "object");
4228 goto err_input;
4229 } else {
4230 args = qobject_to_qdict(obj);
4231 QINCREF(args);
4234 QDECREF(input);
4236 err = monitor_check_qmp_args(cmd, args);
4237 if (err < 0) {
4238 goto err_out;
4241 if (monitor_handler_is_async(cmd)) {
4242 qmp_async_cmd_handler(mon, cmd, args);
4243 } else {
4244 monitor_call_handler(mon, cmd, args);
4246 goto out;
4248 err_input:
4249 QDECREF(input);
4250 err_out:
4251 monitor_protocol_emitter(mon, NULL);
4252 out:
4253 QDECREF(args);
4257 * monitor_control_read(): Read and handle QMP input
4259 static void monitor_control_read(void *opaque, const uint8_t *buf, int size)
4261 Monitor *old_mon = cur_mon;
4263 cur_mon = opaque;
4265 json_message_parser_feed(&cur_mon->mc->parser, (const char *) buf, size);
4267 cur_mon = old_mon;
4270 static void monitor_read(void *opaque, const uint8_t *buf, int size)
4272 Monitor *old_mon = cur_mon;
4273 int i;
4275 cur_mon = opaque;
4277 if (cur_mon->rs) {
4278 for (i = 0; i < size; i++)
4279 readline_handle_byte(cur_mon->rs, buf[i]);
4280 } else {
4281 if (size == 0 || buf[size - 1] != 0)
4282 monitor_printf(cur_mon, "corrupted command\n");
4283 else
4284 handle_user_command(cur_mon, (char *)buf);
4287 cur_mon = old_mon;
4290 static void monitor_command_cb(Monitor *mon, const char *cmdline, void *opaque)
4292 monitor_suspend(mon);
4293 handle_user_command(mon, cmdline);
4294 monitor_resume(mon);
4297 int monitor_suspend(Monitor *mon)
4299 if (!mon->rs)
4300 return -ENOTTY;
4301 mon->suspend_cnt++;
4302 return 0;
4305 void monitor_resume(Monitor *mon)
4307 if (!mon->rs)
4308 return;
4309 if (--mon->suspend_cnt == 0)
4310 readline_show_prompt(mon->rs);
4313 static QObject *get_qmp_greeting(void)
4315 QObject *ver;
4317 do_info_version(NULL, &ver);
4318 return qobject_from_jsonf("{'QMP':{'version': %p,'capabilities': []}}",ver);
4322 * monitor_control_event(): Print QMP gretting
4324 static void monitor_control_event(void *opaque, int event)
4326 QObject *data;
4327 Monitor *mon = opaque;
4329 switch (event) {
4330 case CHR_EVENT_OPENED:
4331 mon->mc->command_mode = 0;
4332 json_message_parser_init(&mon->mc->parser, handle_qmp_command);
4333 data = get_qmp_greeting();
4334 monitor_json_emitter(mon, data);
4335 qobject_decref(data);
4336 break;
4337 case CHR_EVENT_CLOSED:
4338 json_message_parser_destroy(&mon->mc->parser);
4339 break;
4343 static void monitor_event(void *opaque, int event)
4345 Monitor *mon = opaque;
4347 switch (event) {
4348 case CHR_EVENT_MUX_IN:
4349 mon->mux_out = 0;
4350 if (mon->reset_seen) {
4351 readline_restart(mon->rs);
4352 monitor_resume(mon);
4353 monitor_flush(mon);
4354 } else {
4355 mon->suspend_cnt = 0;
4357 break;
4359 case CHR_EVENT_MUX_OUT:
4360 if (mon->reset_seen) {
4361 if (mon->suspend_cnt == 0) {
4362 monitor_printf(mon, "\n");
4364 monitor_flush(mon);
4365 monitor_suspend(mon);
4366 } else {
4367 mon->suspend_cnt++;
4369 mon->mux_out = 1;
4370 break;
4372 case CHR_EVENT_OPENED:
4373 monitor_printf(mon, "QEMU %s monitor - type 'help' for more "
4374 "information\n", QEMU_VERSION);
4375 if (!mon->mux_out) {
4376 readline_show_prompt(mon->rs);
4378 mon->reset_seen = 1;
4379 break;
4385 * Local variables:
4386 * c-indent-level: 4
4387 * c-basic-offset: 4
4388 * tab-width: 8
4389 * End:
4392 void monitor_init(CharDriverState *chr, int flags)
4394 static int is_first_init = 1;
4395 Monitor *mon;
4397 if (is_first_init) {
4398 key_timer = qemu_new_timer(vm_clock, release_keys, NULL);
4399 is_first_init = 0;
4402 mon = qemu_mallocz(sizeof(*mon));
4404 mon->chr = chr;
4405 mon->flags = flags;
4406 if (flags & MONITOR_USE_READLINE) {
4407 mon->rs = readline_init(mon, monitor_find_completion);
4408 monitor_read_command(mon, 0);
4411 if (monitor_ctrl_mode(mon)) {
4412 mon->mc = qemu_mallocz(sizeof(MonitorControl));
4413 /* Control mode requires special handlers */
4414 qemu_chr_add_handlers(chr, monitor_can_read, monitor_control_read,
4415 monitor_control_event, mon);
4416 } else {
4417 qemu_chr_add_handlers(chr, monitor_can_read, monitor_read,
4418 monitor_event, mon);
4421 QLIST_INSERT_HEAD(&mon_list, mon, entry);
4422 if (!default_mon || (flags & MONITOR_IS_DEFAULT))
4423 default_mon = mon;
4426 static void bdrv_password_cb(Monitor *mon, const char *password, void *opaque)
4428 BlockDriverState *bs = opaque;
4429 int ret = 0;
4431 if (bdrv_set_key(bs, password) != 0) {
4432 monitor_printf(mon, "invalid password\n");
4433 ret = -EPERM;
4435 if (mon->password_completion_cb)
4436 mon->password_completion_cb(mon->password_opaque, ret);
4438 monitor_read_command(mon, 1);
4441 int monitor_read_bdrv_key_start(Monitor *mon, BlockDriverState *bs,
4442 BlockDriverCompletionFunc *completion_cb,
4443 void *opaque)
4445 int err;
4447 if (!bdrv_key_required(bs)) {
4448 if (completion_cb)
4449 completion_cb(opaque, 0);
4450 return 0;
4453 if (monitor_ctrl_mode(mon)) {
4454 qerror_report(QERR_DEVICE_ENCRYPTED, bdrv_get_device_name(bs));
4455 return -1;
4458 monitor_printf(mon, "%s (%s) is encrypted.\n", bdrv_get_device_name(bs),
4459 bdrv_get_encrypted_filename(bs));
4461 mon->password_completion_cb = completion_cb;
4462 mon->password_opaque = opaque;
4464 err = monitor_read_password(mon, bdrv_password_cb, bs);
4466 if (err && completion_cb)
4467 completion_cb(opaque, err);
4469 return err;