]> git.proxmox.com Git - qemu.git/blame - monitor.c
projects / qemu.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
QError: Introduce QERR_QMP_EXTRA_MEMBER
[qemu.git] / monitor.c
CommitLineData
9dc39cba
FB		 1/*
2 * QEMU monitor
5fafdf24 3 *
9dc39cba 4 * Copyright (c) 2003-2004 Fabrice Bellard
5fafdf24 5 *
9dc39cba
FB		 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:
12 *
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
15 *
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.
23 */
511d2b14 24#include <dirent.h>
87ecb68b 25#include "hw/hw.h"
cae4956e 26#include "hw/qdev.h"
87ecb68b
PB		 27#include "hw/usb.h"
28#include "hw/pcmcia.h"
29#include "hw/pc.h"
30#include "hw/pci.h"
9dd986cc 31#include "hw/watchdog.h"
45a50b16 32#include "hw/loader.h"
87ecb68b
PB		 33#include "gdbstub.h"
34#include "net.h"
68ac40d2 35#include "net/slirp.h"
87ecb68b
PB		 36#include "qemu-char.h"
37#include "sysemu.h"
376253ec
AL		 38#include "monitor.h"
39#include "readline.h"
87ecb68b 40#include "console.h"
666daa68 41#include "blockdev.h"
87ecb68b 42#include "audio/audio.h"
9307c4c1 43#include "disas.h"
df751fa8 44#include "balloon.h"
c8256f9d 45#include "qemu-timer.h"
5bb7910a 46#include "migration.h"
7ba1e619 47#include "kvm.h"
76655d6d 48#include "acl.h"
f7188bbe 49#include "qint.h"
3350a4dd 50#include "qfloat.h"
8f3cec0b 51#include "qlist.h"
5fa737a4 52#include "qbool.h"
f7188bbe 53#include "qstring.h"
9b57c02e 54#include "qjson.h"
5fa737a4
LC		 55#include "json-streamer.h"
56#include "json-parser.h"
d08d6f04 57#include "osdep.h"
6a5bd307 58
9dc39cba 59//#define DEBUG
81d0912d 60//#define DEBUG_COMPLETION
9dc39cba 61
9307c4c1
FB		 62/*
63 * Supported types:
5fafdf24 64 *
9307c4c1 65 * 'F' filename
81d0912d 66 * 'B' block device name
9307c4c1 67 * 's' string (accept optional quote)
361127df
MA		 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
92a31b1f
FB		 73 * 'i' 32 bit integer
74 * 'l' target long (32 or 64 bit)
9fec543f
MA		 75 * 'M' just like 'l', except in user mode the value is
76 * multiplied by 2^20 (think Mebibyte)
ee9545da 77 * 'f' double
3350a4dd
MA		 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
fccfb11e
MA		 81 * 'T' double
82 * user mode accepts an optional ms, us, ns suffix,
83 * which divides the value by 1e3, 1e6, 1e9, respectively
9307c4c1
FB		 84 * '/' optional gdb-like print format (like "/10x")
85 *
fb46660e
LC		 86 * '?' optional type (for all types, except '/')
87 * '.' other form of optional type (for 'i' and 'l')
942cd1f2
MA		 88 * 'b' boolean
89 * user mode accepts "on" or "off"
fb46660e 90 * '-' optional parameter (eg. '-f')
9307c4c1
FB		 91 *
92 */
93
940cc30d
AL		 94typedef struct MonitorCompletionData MonitorCompletionData;
95struct MonitorCompletionData {
96 Monitor *mon;
97 void (*user_print)(Monitor *mon, const QObject *data);
98};
99
c227f099 100typedef struct mon_cmd_t {
9dc39cba 101 const char *name;
9307c4c1 102 const char *args_type;
9dc39cba
FB		 103 const char *params;
104 const char *help;
a2876f59 105 void (*user_print)(Monitor *mon, const QObject *data);
910df89d
LC		 106 union {
107 void (*info)(Monitor *mon);
13c7425e 108 void (*info_new)(Monitor *mon, QObject **ret_data);
940cc30d 109 int (*info_async)(Monitor *mon, MonitorCompletion *cb, void *opaque);
af4ce882 110 void (*cmd)(Monitor *mon, const QDict *qdict);
261394db 111 int (*cmd_new)(Monitor *mon, const QDict *params, QObject **ret_data);
940cc30d
AL		 112 int (*cmd_async)(Monitor *mon, const QDict *params,
113 MonitorCompletion *cb, void *opaque);
910df89d 114 } mhandler;
8ac470c1 115 int flags;
c227f099 116} mon_cmd_t;
9dc39cba 117
f07918fd 118/* file descriptors passed via SCM_RIGHTS */
c227f099
AL		 119typedef struct mon_fd_t mon_fd_t;
120struct mon_fd_t {
f07918fd
MM		 121 char *name;
122 int fd;
c227f099 123 QLIST_ENTRY(mon_fd_t) next;
f07918fd
MM		 124};
125
5fa737a4
LC		 126typedef struct MonitorControl {
127 QObject *id;
128 JSONMessageParser parser;
4a7e1190 129 int command_mode;
5fa737a4
LC		 130} MonitorControl;
131
87127161
AL		 132struct Monitor {
133 CharDriverState *chr;
a7aec5da
GH		 134 int mux_out;
135 int reset_seen;
731b0364
AL		 136 int flags;
137 int suspend_cnt;
138 uint8_t outbuf[1024];
139 int outbuf_index;
140 ReadLineState *rs;
5fa737a4 141 MonitorControl *mc;
731b0364
AL		 142 CPUState *mon_cpu;
143 BlockDriverCompletionFunc *password_completion_cb;
144 void *password_opaque;
10e4f606
LC		 145#ifdef CONFIG_DEBUG_MONITOR
146 int print_calls_nr;
147#endif
8204a918 148 QError *error;
c227f099 149 QLIST_HEAD(,mon_fd_t) fds;
72cf2d4f 150 QLIST_ENTRY(Monitor) entry;
87127161
AL		 151};
152
b4475aa2
LC		 153#ifdef CONFIG_DEBUG_MONITOR
154#define MON_DEBUG(fmt, ...) do { \
155 fprintf(stderr, "Monitor: "); \
156 fprintf(stderr, fmt, ## __VA_ARGS__); } while (0)
10e4f606
LC		 157
158static inline void mon_print_count_inc(Monitor *mon)
159{
160 mon->print_calls_nr++;
161}
162
163static inline void mon_print_count_init(Monitor *mon)
164{
165 mon->print_calls_nr = 0;
166}
167
168static inline int mon_print_count_get(const Monitor *mon)
169{
170 return mon->print_calls_nr;
171}
172
b4475aa2
LC		 173#else /* !CONFIG_DEBUG_MONITOR */
174#define MON_DEBUG(fmt, ...) do { } while (0)
10e4f606
LC		 175static inline void mon_print_count_inc(Monitor *mon) { }
176static inline void mon_print_count_init(Monitor *mon) { }
177static inline int mon_print_count_get(const Monitor *mon) { return 0; }
b4475aa2
LC		 178#endif /* CONFIG_DEBUG_MONITOR */
179
2dbc8db0
LC		 180/* QMP checker flags */
181#define QMP_ACCEPT_UNKNOWNS 1
182
72cf2d4f 183static QLIST_HEAD(mon_list, Monitor) mon_list;
7e2515e8 184
c227f099
AL		 185static const mon_cmd_t mon_cmds[];
186static const mon_cmd_t info_cmds[];
9dc39cba 187
8631b608
MA		 188Monitor *cur_mon;
189Monitor *default_mon;
376253ec 190
731b0364
AL		 191static void monitor_command_cb(Monitor *mon, const char *cmdline,
192 void *opaque);
83ab7950 193
09069b19
LC		 194static inline int qmp_cmd_mode(const Monitor *mon)
195{
196 return (mon->mc ? mon->mc->command_mode : 0);
197}
198
418173c7
LC		 199/* Return true if in control mode, false otherwise */
200static inline int monitor_ctrl_mode(const Monitor *mon)
201{
202 return (mon->flags & MONITOR_USE_CONTROL);
203}
204
6620d3ce
MA		 205/* Return non-zero iff we have a current monitor, and it is in QMP mode. */
206int monitor_cur_is_qmp(void)
207{
208 return cur_mon && monitor_ctrl_mode(cur_mon);
209}
210
731b0364
AL		 211static void monitor_read_command(Monitor *mon, int show_prompt)
212{
183e6e52
LC		 213 if (!mon->rs)
214 return;
215
731b0364
AL		 216 readline_start(mon->rs, "(qemu) ", 0, monitor_command_cb, NULL);
217 if (show_prompt)
218 readline_show_prompt(mon->rs);
219}
6a00d601 220
cde76ee1
AL		 221static int monitor_read_password(Monitor *mon, ReadLineFunc *readline_func,
222 void *opaque)
bb5fc20f 223{
94171e11 224 if (monitor_ctrl_mode(mon)) {
ab5b027e 225 qerror_report(QERR_MISSING_PARAMETER, "password");
94171e11
LC		 226 return -EINVAL;
227 } else if (mon->rs) {
cde76ee1
AL		 228 readline_start(mon->rs, "Password: ", 1, readline_func, opaque);
229 /* prompt is printed on return from the command handler */
230 return 0;
231 } else {
232 monitor_printf(mon, "terminal does not support password prompting\n");
233 return -ENOTTY;
234 }
bb5fc20f
AL		 235}
236
376253ec 237void monitor_flush(Monitor *mon)
7e2515e8 238{
a7aec5da 239 if (mon && mon->outbuf_index != 0 && !mon->mux_out) {
731b0364
AL		 240 qemu_chr_write(mon->chr, mon->outbuf, mon->outbuf_index);
241 mon->outbuf_index = 0;
7e2515e8
FB		 242 }
243}
244
245/* flush at every end of line or if the buffer is full */
376253ec 246static void monitor_puts(Monitor *mon, const char *str)
7e2515e8 247{
60fe76f3 248 char c;
731b0364 249
7e2515e8
FB		 250 for(;;) {
251 c = *str++;
252 if (c == '\0')
253 break;
7ba1260a 254 if (c == '\n')
731b0364
AL		 255 mon->outbuf[mon->outbuf_index++] = '\r';
256 mon->outbuf[mon->outbuf_index++] = c;
257 if (mon->outbuf_index >= (sizeof(mon->outbuf) - 1)
258 || c == '\n')
376253ec 259 monitor_flush(mon);
7e2515e8
FB		 260 }
261}
262
376253ec 263void monitor_vprintf(Monitor *mon, const char *fmt, va_list ap)
9dc39cba 264{
b8b08266
LC		 265 char buf[4096];
266
2daa1191
LC		 267 if (!mon)
268 return;
269
10e4f606
LC		 270 mon_print_count_inc(mon);
271
b8b08266 272 if (monitor_ctrl_mode(mon)) {
b8b08266 273 return;
4a29a85d 274 }
b8b08266
LC		 275
276 vsnprintf(buf, sizeof(buf), fmt, ap);
277 monitor_puts(mon, buf);
9dc39cba
FB		 278}
279
376253ec 280void monitor_printf(Monitor *mon, const char *fmt, ...)
9dc39cba 281{
7e2515e8
FB		 282 va_list ap;
283 va_start(ap, fmt);
376253ec 284 monitor_vprintf(mon, fmt, ap);
7e2515e8 285 va_end(ap);
9dc39cba
FB		 286}
287
376253ec 288void monitor_print_filename(Monitor *mon, const char *filename)
fef30743
TS		 289{
290 int i;
291
292 for (i = 0; filename[i]; i++) {
28a76be8
AL		 293 switch (filename[i]) {
294 case ' ':
295 case '"':
296 case '\\':
297 monitor_printf(mon, "\\%c", filename[i]);
298 break;
299 case '\t':
300 monitor_printf(mon, "\\t");
301 break;
302 case '\r':
303 monitor_printf(mon, "\\r");
304 break;
305 case '\n':
306 monitor_printf(mon, "\\n");
307 break;
308 default:
309 monitor_printf(mon, "%c", filename[i]);
310 break;
311 }
fef30743
TS		 312 }
313}
314
7fe48483
FB		 315static int monitor_fprintf(FILE *stream, const char *fmt, ...)
316{
317 va_list ap;
318 va_start(ap, fmt);
376253ec 319 monitor_vprintf((Monitor *)stream, fmt, ap);
7fe48483
FB		 320 va_end(ap);
321 return 0;
322}
323
13c7425e
LC		 324static void monitor_user_noop(Monitor *mon, const QObject *data) { }
325
13917bee
LC		 326static inline int monitor_handler_ported(const mon_cmd_t *cmd)
327{
328 return cmd->user_print != NULL;
329}
330
940cc30d
AL		 331static inline bool monitor_handler_is_async(const mon_cmd_t *cmd)
332{
8ac470c1 333 return cmd->flags & MONITOR_CMD_ASYNC;
940cc30d
AL		 334}
335
8204a918
LC		 336static inline int monitor_has_error(const Monitor *mon)
337{
338 return mon->error != NULL;
339}
340
9b57c02e
LC		 341static void monitor_json_emitter(Monitor *mon, const QObject *data)
342{
343 QString *json;
344
345 json = qobject_to_json(data);
346 assert(json != NULL);
347
b8b08266
LC		 348 qstring_append_chr(json, '\n');
349 monitor_puts(mon, qstring_get_str(json));
4a29a85d 350
9b57c02e
LC		 351 QDECREF(json);
352}
353
25b422eb
LC		 354static void monitor_protocol_emitter(Monitor *mon, QObject *data)
355{
356 QDict *qmp;
357
358 qmp = qdict_new();
359
360 if (!monitor_has_error(mon)) {
361 /* success response */
362 if (data) {
363 qobject_incref(data);
364 qdict_put_obj(qmp, "return", data);
365 } else {
0abc6579
LC		 366 /* return an empty QDict by default */
367 qdict_put(qmp, "return", qdict_new());
25b422eb
LC		 368 }
369 } else {
370 /* error response */
77e595e7 371 qdict_put(mon->error->error, "desc", qerror_human(mon->error));
25b422eb
LC		 372 qdict_put(qmp, "error", mon->error->error);
373 QINCREF(mon->error->error);
374 QDECREF(mon->error);
375 mon->error = NULL;
376 }
377
5fa737a4
LC		 378 if (mon->mc->id) {
379 qdict_put_obj(qmp, "id", mon->mc->id);
380 mon->mc->id = NULL;
381 }
382
25b422eb
LC		 383 monitor_json_emitter(mon, QOBJECT(qmp));
384 QDECREF(qmp);
385}
386
0d1ea871
LC		 387static void timestamp_put(QDict *qdict)
388{
389 int err;
390 QObject *obj;
d08d6f04 391 qemu_timeval tv;
0d1ea871 392
d08d6f04 393 err = qemu_gettimeofday(&tv);
0d1ea871
LC		 394 if (err < 0)
395 return;
396
397 obj = qobject_from_jsonf("{ 'seconds': %" PRId64 ", "
398 "'microseconds': %" PRId64 " }",
399 (int64_t) tv.tv_sec, (int64_t) tv.tv_usec);
0d1ea871
LC		 400 qdict_put_obj(qdict, "timestamp", obj);
401}
402
403/**
404 * monitor_protocol_event(): Generate a Monitor event
405 *
406 * Event-specific data can be emitted through the (optional) 'data' parameter.
407 */
408void monitor_protocol_event(MonitorEvent event, QObject *data)
409{
410 QDict *qmp;
411 const char *event_name;
f039a563 412 Monitor *mon;
0d1ea871 413
242cd003 414 assert(event < QEVENT_MAX);
0d1ea871 415
0d1ea871 416 switch (event) {
242cd003 417 case QEVENT_SHUTDOWN:
b1a15e7e
LC		 418 event_name = "SHUTDOWN";
419 break;
242cd003 420 case QEVENT_RESET:
b1a15e7e
LC		 421 event_name = "RESET";
422 break;
242cd003 423 case QEVENT_POWERDOWN:
b1a15e7e
LC		 424 event_name = "POWERDOWN";
425 break;
242cd003 426 case QEVENT_STOP:
b1a15e7e
LC		 427 event_name = "STOP";
428 break;
6ed2c484
LC		 429 case QEVENT_RESUME:
430 event_name = "RESUME";
431 break;
586153d9
LC		 432 case QEVENT_VNC_CONNECTED:
433 event_name = "VNC_CONNECTED";
434 break;
0d2ed46a
LC		 435 case QEVENT_VNC_INITIALIZED:
436 event_name = "VNC_INITIALIZED";
437 break;
0d72f3d3
LC		 438 case QEVENT_VNC_DISCONNECTED:
439 event_name = "VNC_DISCONNECTED";
440 break;
aa1db6ed
LC		 441 case QEVENT_BLOCK_IO_ERROR:
442 event_name = "BLOCK_IO_ERROR";
443 break;
80cd3478
LC		 444 case QEVENT_RTC_CHANGE:
445 event_name = "RTC_CHANGE";
446 break;
9eedeb3b
LC		 447 case QEVENT_WATCHDOG:
448 event_name = "WATCHDOG";
449 break;
0d1ea871
LC		 450 default:
451 abort();
452 break;
453 }
454
455 qmp = qdict_new();
456 timestamp_put(qmp);
457 qdict_put(qmp, "event", qstring_from_str(event_name));
3d72f9a2
LC		 458 if (data) {
459 qobject_incref(data);
0d1ea871 460 qdict_put_obj(qmp, "data", data);
3d72f9a2 461 }
0d1ea871 462
f039a563 463 QLIST_FOREACH(mon, &mon_list, entry) {
09069b19 464 if (monitor_ctrl_mode(mon) && qmp_cmd_mode(mon)) {
23fabed1
LC		 465 monitor_json_emitter(mon, QOBJECT(qmp));
466 }
f039a563 467 }
0d1ea871
LC		 468 QDECREF(qmp);
469}
470
ef4b7eee
LC		 471static int do_qmp_capabilities(Monitor *mon, const QDict *params,
472 QObject **ret_data)
4a7e1190
LC		 473{
474 /* Will setup QMP capabilities in the future */
475 if (monitor_ctrl_mode(mon)) {
476 mon->mc->command_mode = 1;
477 }
ef4b7eee
LC		 478
479 return 0;
4a7e1190
LC		 480}
481
9dc39cba
FB		 482static int compare_cmd(const char *name, const char *list)
483{
484 const char *p, *pstart;
485 int len;
486 len = strlen(name);
487 p = list;
488 for(;;) {
489 pstart = p;
490 p = strchr(p, '|');
491 if (!p)
492 p = pstart + strlen(pstart);
493 if ((p - pstart) == len && !memcmp(pstart, name, len))
494 return 1;
495 if (*p == '\0')
496 break;
497 p++;
498 }
499 return 0;
500}
501
c227f099 502static void help_cmd_dump(Monitor *mon, const mon_cmd_t *cmds,
376253ec 503 const char *prefix, const char *name)
9dc39cba 504{
c227f099 505 const mon_cmd_t *cmd;
9dc39cba
FB		 506
507 for(cmd = cmds; cmd->name != NULL; cmd++) {
508 if (!name || !strcmp(name, cmd->name))
376253ec
AL		 509 monitor_printf(mon, "%s%s %s -- %s\n", prefix, cmd->name,
510 cmd->params, cmd->help);
9dc39cba
FB		 511 }
512}
513
376253ec 514static void help_cmd(Monitor *mon, const char *name)
9dc39cba
FB		 515{
516 if (name && !strcmp(name, "info")) {
376253ec 517 help_cmd_dump(mon, info_cmds, "info ", NULL);
9dc39cba 518 } else {
376253ec 519 help_cmd_dump(mon, mon_cmds, "", name);
f193c797 520 if (name && !strcmp(name, "log")) {
8662d656 521 const CPULogItem *item;
376253ec
AL		 522 monitor_printf(mon, "Log items (comma separated):\n");
523 monitor_printf(mon, "%-10s %s\n", "none", "remove all logs");
f193c797 524 for(item = cpu_log_items; item->mask != 0; item++) {
376253ec 525 monitor_printf(mon, "%-10s %s\n", item->name, item->help);
f193c797
FB		 526 }
527 }
9dc39cba
FB		 528 }
529}
530
d54908a5 531static void do_help_cmd(Monitor *mon, const QDict *qdict)
38183186 532{
d54908a5 533 help_cmd(mon, qdict_get_try_str(qdict, "name"));
38183186
LC		 534}
535
940cc30d
AL		 536static void user_monitor_complete(void *opaque, QObject *ret_data)
537{
538 MonitorCompletionData *data = (MonitorCompletionData *)opaque;
539
540 if (ret_data) {
541 data->user_print(data->mon, ret_data);
542 }
543 monitor_resume(data->mon);
544 qemu_free(data);
545}
546
547static void qmp_monitor_complete(void *opaque, QObject *ret_data)
548{
549 monitor_protocol_emitter(opaque, ret_data);
550}
551
5af7bbae
LC		 552static int qmp_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
553 const QDict *params)
940cc30d 554{
5af7bbae 555 return cmd->mhandler.cmd_async(mon, params, qmp_monitor_complete, mon);
940cc30d
AL		 556}
557
558static void qmp_async_info_handler(Monitor *mon, const mon_cmd_t *cmd)
559{
560 cmd->mhandler.info_async(mon, qmp_monitor_complete, mon);
561}
562
563static void user_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
564 const QDict *params)
565{
566 int ret;
567
568 MonitorCompletionData *cb_data = qemu_malloc(sizeof(*cb_data));
569 cb_data->mon = mon;
570 cb_data->user_print = cmd->user_print;
571 monitor_suspend(mon);
572 ret = cmd->mhandler.cmd_async(mon, params,
573 user_monitor_complete, cb_data);
574 if (ret < 0) {
575 monitor_resume(mon);
576 qemu_free(cb_data);
577 }
578}
579
580static void user_async_info_handler(Monitor *mon, const mon_cmd_t *cmd)
581{
582 int ret;
583
584 MonitorCompletionData *cb_data = qemu_malloc(sizeof(*cb_data));
585 cb_data->mon = mon;
586 cb_data->user_print = cmd->user_print;
587 monitor_suspend(mon);
588 ret = cmd->mhandler.info_async(mon, user_monitor_complete, cb_data);
589 if (ret < 0) {
590 monitor_resume(mon);
591 qemu_free(cb_data);
592 }
593}
594
4fdc94b4 595static int do_info(Monitor *mon, const QDict *qdict, QObject **ret_data)
9dc39cba 596{
c227f099 597 const mon_cmd_t *cmd;
d54908a5 598 const char *item = qdict_get_try_str(qdict, "item");
9dc39cba 599
956f1a0d
LC		 600 if (!item) {
601 assert(monitor_ctrl_mode(mon) == 0);
9dc39cba 602 goto help;
956f1a0d 603 }
13c7425e
LC		 604
605 for (cmd = info_cmds; cmd->name != NULL; cmd++) {
5fafdf24 606 if (compare_cmd(item, cmd->name))
13c7425e 607 break;
9dc39cba 608 }
13c7425e 609
956f1a0d
LC		 610 if (cmd->name == NULL) {
611 if (monitor_ctrl_mode(mon)) {
ab5b027e 612 qerror_report(QERR_COMMAND_NOT_FOUND, item);
4fdc94b4 613 return -1;
956f1a0d 614 }
13c7425e 615 goto help;
956f1a0d 616 }
13c7425e 617
940cc30d
AL		 618 if (monitor_handler_is_async(cmd)) {
619 if (monitor_ctrl_mode(mon)) {
620 qmp_async_info_handler(mon, cmd);
621 } else {
622 user_async_info_handler(mon, cmd);
623 }
624 /*
625 * Indicate that this command is asynchronous and will not return any
626 * data (not even empty). Instead, the data will be returned via a
627 * completion callback.
628 */
629 *ret_data = qobject_from_jsonf("{ '__mon_async': 'return' }");
630 } else if (monitor_handler_ported(cmd)) {
13c7425e 631 cmd->mhandler.info_new(mon, ret_data);
25b422eb
LC		 632
633 if (!monitor_ctrl_mode(mon)) {
634 /*
635 * User Protocol function is called here, Monitor Protocol is
636 * handled by monitor_call_handler()
637 */
638 if (*ret_data)
639 cmd->user_print(mon, *ret_data);
640 }
13c7425e 641 } else {
956f1a0d
LC		 642 if (monitor_ctrl_mode(mon)) {
643 /* handler not converted yet */
ab5b027e 644 qerror_report(QERR_COMMAND_NOT_FOUND, item);
4fdc94b4 645 return -1;
956f1a0d
LC		 646 } else {
647 cmd->mhandler.info(mon);
648 }
13c7425e
LC		 649 }
650
4fdc94b4 651 return 0;
13c7425e
LC		 652
653help:
654 help_cmd(mon, "info");
4fdc94b4 655 return 0;
9dc39cba
FB		 656}
657
45e914cf
LC		 658static void do_info_version_print(Monitor *mon, const QObject *data)
659{
660 QDict *qdict;
661
662 qdict = qobject_to_qdict(data);
663
664 monitor_printf(mon, "%s%s\n", qdict_get_str(qdict, "qemu"),
665 qdict_get_str(qdict, "package"));
666}
667
ab2d3187 668static void do_info_version(Monitor *mon, QObject **ret_data)
9bc9d1c7 669{
45e914cf
LC		 670 *ret_data = qobject_from_jsonf("{ 'qemu': %s, 'package': %s }",
671 QEMU_VERSION, QEMU_PKGVERSION);
9bc9d1c7
FB		 672}
673
e05486cb 674static void do_info_name_print(Monitor *mon, const QObject *data)
c35734b2 675{
e05486cb
LC		 676 QDict *qdict;
677
678 qdict = qobject_to_qdict(data);
679 if (qdict_size(qdict) == 0) {
680 return;
681 }
682
683 monitor_printf(mon, "%s\n", qdict_get_str(qdict, "name"));
684}
685
e05486cb
LC		 686static void do_info_name(Monitor *mon, QObject **ret_data)
687{
688 *ret_data = qemu_name ? qobject_from_jsonf("{'name': %s }", qemu_name) :
689 qobject_from_jsonf("{}");
c35734b2
TS		 690}
691
1a728677
LC		 692static QObject *get_cmd_dict(const char *name)
693{
694 const char *p;
695
696 /* Remove '|' from some commands */
697 p = strchr(name, '|');
698 if (p) {
699 p++;
700 } else {
701 p = name;
702 }
703
704 return qobject_from_jsonf("{ 'name': %s }", p);
705}
706
e3bba9d0
LC		 707static void do_info_commands(Monitor *mon, QObject **ret_data)
708{
709 QList *cmd_list;
710 const mon_cmd_t *cmd;
711
712 cmd_list = qlist_new();
713
714 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
715 if (monitor_handler_ported(cmd) && !compare_cmd(cmd->name, "info")) {
1a728677 716 qlist_append_obj(cmd_list, get_cmd_dict(cmd->name));
e3bba9d0
LC		 717 }
718 }
719
720 for (cmd = info_cmds; cmd->name != NULL; cmd++) {
721 if (monitor_handler_ported(cmd)) {
722 char buf[128];
723 snprintf(buf, sizeof(buf), "query-%s", cmd->name);
1a728677 724 qlist_append_obj(cmd_list, get_cmd_dict(buf));
e3bba9d0
LC		 725 }
726 }
727
728 *ret_data = QOBJECT(cmd_list);
729}
730
9603ceba 731static void do_info_uuid_print(Monitor *mon, const QObject *data)
a36e69dd 732{
9603ceba
LC		 733 monitor_printf(mon, "%s\n", qdict_get_str(qobject_to_qdict(data), "UUID"));
734}
735
9603ceba
LC		 736static void do_info_uuid(Monitor *mon, QObject **ret_data)
737{
738 char uuid[64];
739
740 snprintf(uuid, sizeof(uuid), UUID_FMT, qemu_uuid[0], qemu_uuid[1],
376253ec
AL		 741 qemu_uuid[2], qemu_uuid[3], qemu_uuid[4], qemu_uuid[5],
742 qemu_uuid[6], qemu_uuid[7], qemu_uuid[8], qemu_uuid[9],
743 qemu_uuid[10], qemu_uuid[11], qemu_uuid[12], qemu_uuid[13],
744 qemu_uuid[14], qemu_uuid[15]);
9603ceba 745 *ret_data = qobject_from_jsonf("{ 'UUID': %s }", uuid);
a36e69dd
TS		 746}
747
6a00d601 748/* get the current CPU defined by the user */
9596ebb7 749static int mon_set_cpu(int cpu_index)
6a00d601
FB		 750{
751 CPUState *env;
752
753 for(env = first_cpu; env != NULL; env = env->next_cpu) {
754 if (env->cpu_index == cpu_index) {
731b0364 755 cur_mon->mon_cpu = env;
6a00d601
FB		 756 return 0;
757 }
758 }
759 return -1;
760}
761
9596ebb7 762static CPUState *mon_get_cpu(void)
6a00d601 763{
731b0364 764 if (!cur_mon->mon_cpu) {
6a00d601
FB		 765 mon_set_cpu(0);
766 }
4c0960c0 767 cpu_synchronize_state(cur_mon->mon_cpu);
731b0364 768 return cur_mon->mon_cpu;
6a00d601
FB		 769}
770
376253ec 771static void do_info_registers(Monitor *mon)
9307c4c1 772{
6a00d601
FB		 773 CPUState *env;
774 env = mon_get_cpu();
9307c4c1 775#ifdef TARGET_I386
376253ec 776 cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
d24b15a8 777 X86_DUMP_FPU);
9307c4c1 778#else
376253ec 779 cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
7fe48483 780 0);
9307c4c1
FB		 781#endif
782}
783
8f3cec0b
LC		 784static void print_cpu_iter(QObject *obj, void *opaque)
785{
786 QDict *cpu;
787 int active = ' ';
788 Monitor *mon = opaque;
789
790 assert(qobject_type(obj) == QTYPE_QDICT);
791 cpu = qobject_to_qdict(obj);
792
55483ad6 793 if (qdict_get_bool(cpu, "current")) {
8f3cec0b 794 active = '*';
55483ad6 795 }
8f3cec0b
LC		 796
797 monitor_printf(mon, "%c CPU #%d: ", active, (int)qdict_get_int(cpu, "CPU"));
798
799#if defined(TARGET_I386)
800 monitor_printf(mon, "pc=0x" TARGET_FMT_lx,
801 (target_ulong) qdict_get_int(cpu, "pc"));
802#elif defined(TARGET_PPC)
803 monitor_printf(mon, "nip=0x" TARGET_FMT_lx,
804 (target_long) qdict_get_int(cpu, "nip"));
805#elif defined(TARGET_SPARC)
806 monitor_printf(mon, "pc=0x " TARGET_FMT_lx,
807 (target_long) qdict_get_int(cpu, "pc"));
808 monitor_printf(mon, "npc=0x" TARGET_FMT_lx,
809 (target_long) qdict_get_int(cpu, "npc"));
810#elif defined(TARGET_MIPS)
811 monitor_printf(mon, "PC=0x" TARGET_FMT_lx,
812 (target_long) qdict_get_int(cpu, "PC"));
813#endif
814
55483ad6 815 if (qdict_get_bool(cpu, "halted")) {
8f3cec0b 816 monitor_printf(mon, " (halted)");
55483ad6 817 }
8f3cec0b
LC		 818
819 monitor_printf(mon, "\n");
820}
821
822static void monitor_print_cpus(Monitor *mon, const QObject *data)
823{
824 QList *cpu_list;
825
826 assert(qobject_type(data) == QTYPE_QLIST);
827 cpu_list = qobject_to_qlist(data);
828 qlist_iter(cpu_list, print_cpu_iter, mon);
829}
830
8f3cec0b 831static void do_info_cpus(Monitor *mon, QObject **ret_data)
6a00d601
FB		 832{
833 CPUState *env;
8f3cec0b
LC		 834 QList *cpu_list;
835
836 cpu_list = qlist_new();
6a00d601
FB		 837
838 /* just to set the default cpu if not already done */
839 mon_get_cpu();
840
841 for(env = first_cpu; env != NULL; env = env->next_cpu) {
55483ad6
LC		 842 QDict *cpu;
843 QObject *obj;
8f3cec0b 844
4c0960c0 845 cpu_synchronize_state(env);
8f3cec0b 846
55483ad6
LC		 847 obj = qobject_from_jsonf("{ 'CPU': %d, 'current': %i, 'halted': %i }",
848 env->cpu_index, env == mon->mon_cpu,
849 env->halted);
55483ad6
LC		 850
851 cpu = qobject_to_qdict(obj);
8f3cec0b 852
6a00d601 853#if defined(TARGET_I386)
8f3cec0b 854 qdict_put(cpu, "pc", qint_from_int(env->eip + env->segs[R_CS].base));
e80e1cc4 855#elif defined(TARGET_PPC)
8f3cec0b 856 qdict_put(cpu, "nip", qint_from_int(env->nip));
ba3c64fb 857#elif defined(TARGET_SPARC)
8f3cec0b
LC		 858 qdict_put(cpu, "pc", qint_from_int(env->pc));
859 qdict_put(cpu, "npc", qint_from_int(env->npc));
ead9360e 860#elif defined(TARGET_MIPS)
8f3cec0b 861 qdict_put(cpu, "PC", qint_from_int(env->active_tc.PC));
ce5232c5 862#endif
8f3cec0b
LC		 863
864 qlist_append(cpu_list, cpu);
6a00d601 865 }
8f3cec0b
LC		 866
867 *ret_data = QOBJECT(cpu_list);
6a00d601
FB		 868}
869
584cbdb5 870static int do_cpu_set(Monitor *mon, const QDict *qdict, QObject **ret_data)
6a00d601 871{
d54908a5 872 int index = qdict_get_int(qdict, "index");
584cbdb5 873 if (mon_set_cpu(index) < 0) {
e17ba87c
MA		 874 qerror_report(QERR_INVALID_PARAMETER_VALUE, "index",
875 "a CPU number");
584cbdb5
LC		 876 return -1;
877 }
878 return 0;
6a00d601
FB		 879}
880
376253ec 881static void do_info_jit(Monitor *mon)
e3db7226 882{
376253ec 883 dump_exec_info((FILE *)mon, monitor_fprintf);
e3db7226
FB		 884}
885
376253ec 886static void do_info_history(Monitor *mon)
aa455485
FB		 887{
888 int i;
7e2515e8 889 const char *str;
3b46e624 890
cde76ee1
AL		 891 if (!mon->rs)
892 return;
7e2515e8
FB		 893 i = 0;
894 for(;;) {
731b0364 895 str = readline_get_history(mon->rs, i);
7e2515e8
FB		 896 if (!str)
897 break;
376253ec 898 monitor_printf(mon, "%d: '%s'\n", i, str);
8e3a9fd2 899 i++;
aa455485
FB		 900 }
901}
902
76a66253
JM		 903#if defined(TARGET_PPC)
904/* XXX: not implemented in other targets */
376253ec 905static void do_info_cpu_stats(Monitor *mon)
76a66253
JM		 906{
907 CPUState *env;
908
909 env = mon_get_cpu();
376253ec 910 cpu_dump_statistics(env, (FILE *)mon, &monitor_fprintf, 0);
76a66253
JM		 911}
912#endif
913
b223f35f
LC		 914/**
915 * do_quit(): Quit QEMU execution
916 */
ef4b7eee 917static int do_quit(Monitor *mon, const QDict *qdict, QObject **ret_data)
9dc39cba 918{
39b59d26
LC		 919 monitor_suspend(mon);
920 no_shutdown = 0;
921 qemu_system_shutdown_request();
922
ef4b7eee 923 return 0;
9dc39cba
FB		 924}
925
0bbc47bb 926static int change_vnc_password(const char *password)
bb5fc20f 927{
0bbc47bb 928 if (vnc_display_password(NULL, password) < 0) {
ab5b027e 929 qerror_report(QERR_SET_PASSWD_FAILED);
0bbc47bb
LC		 930 return -1;
931 }
bb5fc20f 932
0bbc47bb 933 return 0;
2895e075
MA		 934}
935
936static void change_vnc_password_cb(Monitor *mon, const char *password,
937 void *opaque)
938{
ec3b82af 939 change_vnc_password(password);
731b0364 940 monitor_read_command(mon, 1);
9dc39cba
FB		 941}
942
0bbc47bb 943static int do_change_vnc(Monitor *mon, const char *target, const char *arg)
e25a5822 944{
70848515 945 if (strcmp(target, "passwd") == 0 ||
28a76be8
AL		 946 strcmp(target, "password") == 0) {
947 if (arg) {
bb5fc20f 948 char password[9];
28a76be8
AL		 949 strncpy(password, arg, sizeof(password));
950 password[sizeof(password) - 1] = '\0';
0bbc47bb 951 return change_vnc_password(password);
bb5fc20f 952 } else {
0bbc47bb 953 return monitor_read_password(mon, change_vnc_password_cb, NULL);
bb5fc20f 954 }
70848515 955 } else {
0bbc47bb 956 if (vnc_display_open(NULL, target) < 0) {
ab5b027e 957 qerror_report(QERR_VNC_SERVER_FAILED, target);
0bbc47bb
LC		 958 return -1;
959 }
70848515 960 }
0bbc47bb
LC		 961
962 return 0;
e25a5822
TS		 963}
964
ec3b82af
MA		 965/**
966 * do_change(): Change a removable medium, or VNC configuration
967 */
0bbc47bb 968static int do_change(Monitor *mon, const QDict *qdict, QObject **ret_data)
e25a5822 969{
1d4daa91
LC		 970 const char *device = qdict_get_str(qdict, "device");
971 const char *target = qdict_get_str(qdict, "target");
972 const char *arg = qdict_get_try_str(qdict, "arg");
0bbc47bb
LC		 973 int ret;
974
e25a5822 975 if (strcmp(device, "vnc") == 0) {
0bbc47bb 976 ret = do_change_vnc(mon, target, arg);
e25a5822 977 } else {
0bbc47bb 978 ret = do_change_block(mon, device, target, arg);
e25a5822 979 }
0bbc47bb
LC		 980
981 return ret;
e25a5822
TS		 982}
983
f1dc58e0 984static int do_screen_dump(Monitor *mon, const QDict *qdict, QObject **ret_data)
59a983b9 985{
d54908a5 986 vga_hw_screen_dump(qdict_get_str(qdict, "filename"));
f1dc58e0 987 return 0;
59a983b9
FB		 988}
989
d54908a5 990static void do_logfile(Monitor *mon, const QDict *qdict)
e735b91c 991{
d54908a5 992 cpu_set_log_filename(qdict_get_str(qdict, "filename"));
e735b91c
PB		 993}
994
d54908a5 995static void do_log(Monitor *mon, const QDict *qdict)
f193c797
FB		 996{
997 int mask;
d54908a5 998 const char *items = qdict_get_str(qdict, "items");
3b46e624 999
9307c4c1 1000 if (!strcmp(items, "none")) {
f193c797
FB		 1001 mask = 0;
1002 } else {
9307c4c1 1003 mask = cpu_str_to_log_mask(items);
f193c797 1004 if (!mask) {
376253ec 1005 help_cmd(mon, "log");
f193c797
FB		 1006 return;
1007 }
1008 }
1009 cpu_set_log(mask);
1010}
1011
d54908a5 1012static void do_singlestep(Monitor *mon, const QDict *qdict)
1b530a6d 1013{
d54908a5 1014 const char *option = qdict_get_try_str(qdict, "option");
1b530a6d
AJ		 1015 if (!option || !strcmp(option, "on")) {
1016 singlestep = 1;
1017 } else if (!strcmp(option, "off")) {
1018 singlestep = 0;
1019 } else {
1020 monitor_printf(mon, "unexpected option %s\n", option);
1021 }
1022}
1023
e0c97bde
LC		 1024/**
1025 * do_stop(): Stop VM execution
1026 */
ef4b7eee 1027static int do_stop(Monitor *mon, const QDict *qdict, QObject **ret_data)
8a7ddc38
FB		 1028{
1029 vm_stop(EXCP_INTERRUPT);
ef4b7eee 1030 return 0;
8a7ddc38
FB		 1031}
1032
bb5fc20f 1033static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs);
c0f4ce77 1034
376253ec
AL		 1035struct bdrv_iterate_context {
1036 Monitor *mon;
1037 int err;
1038};
1039
a1f896a0
LC		 1040/**
1041 * do_cont(): Resume emulation.
1042 */
d5a7b38f 1043static int do_cont(Monitor *mon, const QDict *qdict, QObject **ret_data)
8a7ddc38 1044{
376253ec 1045 struct bdrv_iterate_context context = { mon, 0 };
c0f4ce77 1046
376253ec 1047 bdrv_iterate(encrypted_bdrv_it, &context);
c0f4ce77 1048 /* only resume the vm if all keys are set and valid */
d5a7b38f 1049 if (!context.err) {
c0f4ce77 1050 vm_start();
d5a7b38f
LC		 1051 return 0;
1052 } else {
1053 return -1;
1054 }
8a7ddc38
FB		 1055}
1056
bb5fc20f
AL		 1057static void bdrv_key_cb(void *opaque, int err)
1058{
376253ec
AL		 1059 Monitor *mon = opaque;
1060
bb5fc20f
AL		 1061 /* another key was set successfully, retry to continue */
1062 if (!err)
a1f896a0 1063 do_cont(mon, NULL, NULL);
bb5fc20f
AL		 1064}
1065
1066static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs)
1067{
376253ec 1068 struct bdrv_iterate_context *context = opaque;
bb5fc20f 1069
376253ec
AL		 1070 if (!context->err && bdrv_key_required(bs)) {
1071 context->err = -EBUSY;
1072 monitor_read_bdrv_key_start(context->mon, bs, bdrv_key_cb,
1073 context->mon);
bb5fc20f
AL		 1074 }
1075}
1076
d54908a5 1077static void do_gdbserver(Monitor *mon, const QDict *qdict)
59030a8c 1078{
d54908a5 1079 const char *device = qdict_get_try_str(qdict, "device");
59030a8c
AL		 1080 if (!device)
1081 device = "tcp::" DEFAULT_GDBSTUB_PORT;
1082 if (gdbserver_start(device) < 0) {
1083 monitor_printf(mon, "Could not open gdbserver on device '%s'\n",
1084 device);
1085 } else if (strcmp(device, "none") == 0) {
36556b20 1086 monitor_printf(mon, "Disabled gdbserver\n");
8a7ddc38 1087 } else {
59030a8c
AL		 1088 monitor_printf(mon, "Waiting for gdb connection on device '%s'\n",
1089 device);
8a7ddc38
FB		 1090 }
1091}
1092
d54908a5 1093static void do_watchdog_action(Monitor *mon, const QDict *qdict)
9dd986cc 1094{
d54908a5 1095 const char *action = qdict_get_str(qdict, "action");
9dd986cc
RJ		 1096 if (select_watchdog_action(action) == -1) {
1097 monitor_printf(mon, "Unknown watchdog action '%s'\n", action);
1098 }
1099}
1100
376253ec 1101static void monitor_printc(Monitor *mon, int c)
9307c4c1 1102{
376253ec 1103 monitor_printf(mon, "'");
9307c4c1
FB		 1104 switch(c) {
1105 case '\'':
376253ec 1106 monitor_printf(mon, "\\'");
9307c4c1
FB		 1107 break;
1108 case '\\':
376253ec 1109 monitor_printf(mon, "\\\\");
9307c4c1
FB		 1110 break;
1111 case '\n':
376253ec 1112 monitor_printf(mon, "\\n");
9307c4c1
FB		 1113 break;
1114 case '\r':
376253ec 1115 monitor_printf(mon, "\\r");
9307c4c1
FB		 1116 break;
1117 default:
1118 if (c >= 32 && c <= 126) {
376253ec 1119 monitor_printf(mon, "%c", c);
9307c4c1 1120 } else {
376253ec 1121 monitor_printf(mon, "\\x%02x", c);
9307c4c1
FB		 1122 }
1123 break;
1124 }
376253ec 1125 monitor_printf(mon, "'");
9307c4c1
FB		 1126}
1127
376253ec 1128static void memory_dump(Monitor *mon, int count, int format, int wsize,
c227f099 1129 target_phys_addr_t addr, int is_physical)
9307c4c1 1130{
6a00d601 1131 CPUState *env;
23842aab 1132 int l, line_size, i, max_digits, len;
9307c4c1
FB		 1133 uint8_t buf[16];
1134 uint64_t v;
1135
1136 if (format == 'i') {
1137 int flags;
1138 flags = 0;
6a00d601 1139 env = mon_get_cpu();
9307c4c1 1140#ifdef TARGET_I386
4c27ba27 1141 if (wsize == 2) {
9307c4c1 1142 flags = 1;
4c27ba27
FB		 1143 } else if (wsize == 4) {
1144 flags = 0;
1145 } else {
6a15fd12 1146 /* as default we use the current CS size */
4c27ba27 1147 flags = 0;
6a15fd12
FB		 1148 if (env) {
1149#ifdef TARGET_X86_64
5fafdf24 1150 if ((env->efer & MSR_EFER_LMA) &&
6a15fd12
FB		 1151 (env->segs[R_CS].flags & DESC_L_MASK))
1152 flags = 2;
1153 else
1154#endif
1155 if (!(env->segs[R_CS].flags & DESC_B_MASK))
1156 flags = 1;
1157 }
4c27ba27
FB		 1158 }
1159#endif
376253ec 1160 monitor_disas(mon, env, addr, count, is_physical, flags);
9307c4c1
FB		 1161 return;
1162 }
1163
1164 len = wsize * count;
1165 if (wsize == 1)
1166 line_size = 8;
1167 else
1168 line_size = 16;
9307c4c1
FB		 1169 max_digits = 0;
1170
1171 switch(format) {
1172 case 'o':
1173 max_digits = (wsize * 8 + 2) / 3;
1174 break;
1175 default:
1176 case 'x':
1177 max_digits = (wsize * 8) / 4;
1178 break;
1179 case 'u':
1180 case 'd':
1181 max_digits = (wsize * 8 * 10 + 32) / 33;
1182 break;
1183 case 'c':
1184 wsize = 1;
1185 break;
1186 }
1187
1188 while (len > 0) {
7743e588 1189 if (is_physical)
376253ec 1190 monitor_printf(mon, TARGET_FMT_plx ":", addr);
7743e588 1191 else
376253ec 1192 monitor_printf(mon, TARGET_FMT_lx ":", (target_ulong)addr);
9307c4c1
FB		 1193 l = len;
1194 if (l > line_size)
1195 l = line_size;
1196 if (is_physical) {
1197 cpu_physical_memory_rw(addr, buf, l, 0);
1198 } else {
6a00d601 1199 env = mon_get_cpu();
c8f79b67 1200 if (cpu_memory_rw_debug(env, addr, buf, l, 0) < 0) {
376253ec 1201 monitor_printf(mon, " Cannot access memory\n");
c8f79b67
AL		 1202 break;
1203 }
9307c4c1 1204 }
5fafdf24 1205 i = 0;
9307c4c1
FB		 1206 while (i < l) {
1207 switch(wsize) {
1208 default:
1209 case 1:
1210 v = ldub_raw(buf + i);
1211 break;
1212 case 2:
1213 v = lduw_raw(buf + i);
1214 break;
1215 case 4:
92a31b1f 1216 v = (uint32_t)ldl_raw(buf + i);
9307c4c1
FB		 1217 break;
1218 case 8:
1219 v = ldq_raw(buf + i);
1220 break;
1221 }
376253ec 1222 monitor_printf(mon, " ");
9307c4c1
FB		 1223 switch(format) {
1224 case 'o':
376253ec 1225 monitor_printf(mon, "%#*" PRIo64, max_digits, v);
9307c4c1
FB		 1226 break;
1227 case 'x':
376253ec 1228 monitor_printf(mon, "0x%0*" PRIx64, max_digits, v);
9307c4c1
FB		 1229 break;
1230 case 'u':
376253ec 1231 monitor_printf(mon, "%*" PRIu64, max_digits, v);
9307c4c1
FB		 1232 break;
1233 case 'd':
376253ec 1234 monitor_printf(mon, "%*" PRId64, max_digits, v);
9307c4c1
FB		 1235 break;
1236 case 'c':
376253ec 1237 monitor_printc(mon, v);
9307c4c1
FB		 1238 break;
1239 }
1240 i += wsize;
1241 }
376253ec 1242 monitor_printf(mon, "\n");
9307c4c1
FB		 1243 addr += l;
1244 len -= l;
1245 }
1246}
1247
1bd1442e 1248static void do_memory_dump(Monitor *mon, const QDict *qdict)
9307c4c1 1249{
1bd1442e
LC		 1250 int count = qdict_get_int(qdict, "count");
1251 int format = qdict_get_int(qdict, "format");
1252 int size = qdict_get_int(qdict, "size");
1253 target_long addr = qdict_get_int(qdict, "addr");
1254
376253ec 1255 memory_dump(mon, count, format, size, addr, 0);
9307c4c1
FB		 1256}
1257
1bd1442e 1258static void do_physical_memory_dump(Monitor *mon, const QDict *qdict)
9307c4c1 1259{
1bd1442e
LC		 1260 int count = qdict_get_int(qdict, "count");
1261 int format = qdict_get_int(qdict, "format");
1262 int size = qdict_get_int(qdict, "size");
c227f099 1263 target_phys_addr_t addr = qdict_get_int(qdict, "addr");
1bd1442e 1264
376253ec 1265 memory_dump(mon, count, format, size, addr, 1);
9307c4c1
FB		 1266}
1267
1bd1442e 1268static void do_print(Monitor *mon, const QDict *qdict)
9307c4c1 1269{
1bd1442e 1270 int format = qdict_get_int(qdict, "format");
c227f099 1271 target_phys_addr_t val = qdict_get_int(qdict, "val");
1bd1442e 1272
7743e588 1273#if TARGET_PHYS_ADDR_BITS == 32
9307c4c1
FB		 1274 switch(format) {
1275 case 'o':
376253ec 1276 monitor_printf(mon, "%#o", val);
9307c4c1
FB		 1277 break;
1278 case 'x':
376253ec 1279 monitor_printf(mon, "%#x", val);
9307c4c1
FB		 1280 break;
1281 case 'u':
376253ec 1282 monitor_printf(mon, "%u", val);
9307c4c1
FB		 1283 break;
1284 default:
1285 case 'd':
376253ec 1286 monitor_printf(mon, "%d", val);
9307c4c1
FB		 1287 break;
1288 case 'c':
376253ec 1289 monitor_printc(mon, val);
9307c4c1
FB		 1290 break;
1291 }
92a31b1f
FB		 1292#else
1293 switch(format) {
1294 case 'o':
376253ec 1295 monitor_printf(mon, "%#" PRIo64, val);
92a31b1f
FB		 1296 break;
1297 case 'x':
376253ec 1298 monitor_printf(mon, "%#" PRIx64, val);
92a31b1f
FB		 1299 break;
1300 case 'u':
376253ec 1301 monitor_printf(mon, "%" PRIu64, val);
92a31b1f
FB		 1302 break;
1303 default:
1304 case 'd':
376253ec 1305 monitor_printf(mon, "%" PRId64, val);
92a31b1f
FB		 1306 break;
1307 case 'c':
376253ec 1308 monitor_printc(mon, val);
92a31b1f
FB		 1309 break;
1310 }
1311#endif
376253ec 1312 monitor_printf(mon, "\n");
9307c4c1
FB		 1313}
1314
9869622e 1315static int do_memory_save(Monitor *mon, const QDict *qdict, QObject **ret_data)
b371dc59
FB		 1316{
1317 FILE *f;
afe67ef2
LC		 1318 uint32_t size = qdict_get_int(qdict, "size");
1319 const char *filename = qdict_get_str(qdict, "filename");
1320 target_long addr = qdict_get_int(qdict, "val");
b371dc59
FB		 1321 uint32_t l;
1322 CPUState *env;
1323 uint8_t buf[1024];
9869622e 1324 int ret = -1;
b371dc59
FB		 1325
1326 env = mon_get_cpu();
b371dc59
FB		 1327
1328 f = fopen(filename, "wb");
1329 if (!f) {
ab5b027e 1330 qerror_report(QERR_OPEN_FILE_FAILED, filename);
9869622e 1331 return -1;
b371dc59
FB		 1332 }
1333 while (size != 0) {
1334 l = sizeof(buf);
1335 if (l > size)
1336 l = size;
1337 cpu_memory_rw_debug(env, addr, buf, l, 0);
27e3ddd3
KS		 1338 if (fwrite(buf, 1, l, f) != l) {
1339 monitor_printf(mon, "fwrite() error in do_memory_save\n");
1340 goto exit;
1341 }
b371dc59
FB		 1342 addr += l;
1343 size -= l;
1344 }
9869622e
LC		 1345
1346 ret = 0;
1347
27e3ddd3 1348exit:
b371dc59 1349 fclose(f);
9869622e 1350 return ret;
b371dc59
FB		 1351}
1352
fe38a32a 1353static int do_physical_memory_save(Monitor *mon, const QDict *qdict,
18f5a8bf 1354 QObject **ret_data)
a8bdf7a6
AJ		 1355{
1356 FILE *f;
1357 uint32_t l;
1358 uint8_t buf[1024];
afe67ef2
LC		 1359 uint32_t size = qdict_get_int(qdict, "size");
1360 const char *filename = qdict_get_str(qdict, "filename");
c227f099 1361 target_phys_addr_t addr = qdict_get_int(qdict, "val");
fe38a32a 1362 int ret = -1;
a8bdf7a6
AJ		 1363
1364 f = fopen(filename, "wb");
1365 if (!f) {
ab5b027e 1366 qerror_report(QERR_OPEN_FILE_FAILED, filename);
fe38a32a 1367 return -1;
a8bdf7a6
AJ		 1368 }
1369 while (size != 0) {
1370 l = sizeof(buf);
1371 if (l > size)
1372 l = size;
1373 cpu_physical_memory_rw(addr, buf, l, 0);
27e3ddd3
KS		 1374 if (fwrite(buf, 1, l, f) != l) {
1375 monitor_printf(mon, "fwrite() error in do_physical_memory_save\n");
1376 goto exit;
1377 }
a8bdf7a6
AJ		 1378 fflush(f);
1379 addr += l;
1380 size -= l;
1381 }
fe38a32a
LC		 1382
1383 ret = 0;
1384
27e3ddd3 1385exit:
a8bdf7a6 1386 fclose(f);
fe38a32a 1387 return ret;
a8bdf7a6
AJ		 1388}
1389
f18c16de 1390static void do_sum(Monitor *mon, const QDict *qdict)
e4cf1adc
FB		 1391{
1392 uint32_t addr;
1393 uint8_t buf[1];
1394 uint16_t sum;
f18c16de
LC		 1395 uint32_t start = qdict_get_int(qdict, "start");
1396 uint32_t size = qdict_get_int(qdict, "size");
e4cf1adc
FB		 1397
1398 sum = 0;
1399 for(addr = start; addr < (start + size); addr++) {
1400 cpu_physical_memory_rw(addr, buf, 1, 0);
1401 /* BSD sum algorithm ('sum' Unix command) */
1402 sum = (sum >> 1) | (sum << 15);
1403 sum += buf[0];
1404 }
376253ec 1405 monitor_printf(mon, "%05d\n", sum);
e4cf1adc
FB		 1406}
1407
a3a91a35
FB		 1408typedef struct {
1409 int keycode;
1410 const char *name;
1411} KeyDef;
1412
1413static const KeyDef key_defs[] = {
1414 { 0x2a, "shift" },
1415 { 0x36, "shift_r" },
3b46e624 1416
a3a91a35
FB		 1417 { 0x38, "alt" },
1418 { 0xb8, "alt_r" },
2ba27c7f
TS		 1419 { 0x64, "altgr" },
1420 { 0xe4, "altgr_r" },
a3a91a35
FB		 1421 { 0x1d, "ctrl" },
1422 { 0x9d, "ctrl_r" },
1423
1424 { 0xdd, "menu" },
1425
1426 { 0x01, "esc" },
1427
1428 { 0x02, "1" },
1429 { 0x03, "2" },
1430 { 0x04, "3" },
1431 { 0x05, "4" },
1432 { 0x06, "5" },
1433 { 0x07, "6" },
1434 { 0x08, "7" },
1435 { 0x09, "8" },
1436 { 0x0a, "9" },
1437 { 0x0b, "0" },
64866c3d
FB		 1438 { 0x0c, "minus" },
1439 { 0x0d, "equal" },
a3a91a35
FB		 1440 { 0x0e, "backspace" },
1441
1442 { 0x0f, "tab" },
1443 { 0x10, "q" },
1444 { 0x11, "w" },
1445 { 0x12, "e" },
1446 { 0x13, "r" },
1447 { 0x14, "t" },
1448 { 0x15, "y" },
1449 { 0x16, "u" },
1450 { 0x17, "i" },
1451 { 0x18, "o" },
1452 { 0x19, "p" },
49b586a9
BW		 1453 { 0x1a, "bracket_left" },
1454 { 0x1b, "bracket_right" },
a3a91a35
FB		 1455 { 0x1c, "ret" },
1456
1457 { 0x1e, "a" },
1458 { 0x1f, "s" },
1459 { 0x20, "d" },
1460 { 0x21, "f" },
1461 { 0x22, "g" },
1462 { 0x23, "h" },
1463 { 0x24, "j" },
1464 { 0x25, "k" },
1465 { 0x26, "l" },
49b586a9
BW		 1466 { 0x27, "semicolon" },
1467 { 0x28, "apostrophe" },
1468 { 0x29, "grave_accent" },
a3a91a35 1469
49b586a9 1470 { 0x2b, "backslash" },
a3a91a35
FB		 1471 { 0x2c, "z" },
1472 { 0x2d, "x" },
1473 { 0x2e, "c" },
1474 { 0x2f, "v" },
1475 { 0x30, "b" },
1476 { 0x31, "n" },
1477 { 0x32, "m" },
9155fc45
AJ		 1478 { 0x33, "comma" },
1479 { 0x34, "dot" },
1480 { 0x35, "slash" },
3b46e624 1481
4d3b6f6e
AZ		 1482 { 0x37, "asterisk" },
1483
a3a91a35 1484 { 0x39, "spc" },
00ffa62a 1485 { 0x3a, "caps_lock" },
a3a91a35
FB		 1486 { 0x3b, "f1" },
1487 { 0x3c, "f2" },
1488 { 0x3d, "f3" },
1489 { 0x3e, "f4" },
1490 { 0x3f, "f5" },
1491 { 0x40, "f6" },
1492 { 0x41, "f7" },
1493 { 0x42, "f8" },
1494 { 0x43, "f9" },
1495 { 0x44, "f10" },
00ffa62a 1496 { 0x45, "num_lock" },
a3a91a35
FB		 1497 { 0x46, "scroll_lock" },
1498
64866c3d
FB		 1499 { 0xb5, "kp_divide" },
1500 { 0x37, "kp_multiply" },
0cfec834 1501 { 0x4a, "kp_subtract" },
64866c3d
FB		 1502 { 0x4e, "kp_add" },
1503 { 0x9c, "kp_enter" },
1504 { 0x53, "kp_decimal" },
f2289cb6 1505 { 0x54, "sysrq" },
64866c3d
FB		 1506
1507 { 0x52, "kp_0" },
1508 { 0x4f, "kp_1" },
1509 { 0x50, "kp_2" },
1510 { 0x51, "kp_3" },
1511 { 0x4b, "kp_4" },
1512 { 0x4c, "kp_5" },
1513 { 0x4d, "kp_6" },
1514 { 0x47, "kp_7" },
1515 { 0x48, "kp_8" },
1516 { 0x49, "kp_9" },
3b46e624 1517
a3a91a35
FB		 1518 { 0x56, "<" },
1519
1520 { 0x57, "f11" },
1521 { 0x58, "f12" },
1522
1523 { 0xb7, "print" },
1524
1525 { 0xc7, "home" },
1526 { 0xc9, "pgup" },
1527 { 0xd1, "pgdn" },
1528 { 0xcf, "end" },
1529
1530 { 0xcb, "left" },
1531 { 0xc8, "up" },
1532 { 0xd0, "down" },
1533 { 0xcd, "right" },
1534
1535 { 0xd2, "insert" },
1536 { 0xd3, "delete" },
c0b5b109
BS		 1537#if defined(TARGET_SPARC) && !defined(TARGET_SPARC64)
1538 { 0xf0, "stop" },
1539 { 0xf1, "again" },
1540 { 0xf2, "props" },
1541 { 0xf3, "undo" },
1542 { 0xf4, "front" },
1543 { 0xf5, "copy" },
1544 { 0xf6, "open" },
1545 { 0xf7, "paste" },
1546 { 0xf8, "find" },
1547 { 0xf9, "cut" },
1548 { 0xfa, "lf" },
1549 { 0xfb, "help" },
1550 { 0xfc, "meta_l" },
1551 { 0xfd, "meta_r" },
1552 { 0xfe, "compose" },
1553#endif
a3a91a35
FB		 1554 { 0, NULL },
1555};
1556
1557static int get_keycode(const char *key)
1558{
1559 const KeyDef *p;
64866c3d
FB		 1560 char *endp;
1561 int ret;
a3a91a35
FB		 1562
1563 for(p = key_defs; p->name != NULL; p++) {
1564 if (!strcmp(key, p->name))
1565 return p->keycode;
1566 }
64866c3d
FB		 1567 if (strstart(key, "0x", NULL)) {
1568 ret = strtoul(key, &endp, 0);
1569 if (*endp == '\0' && ret >= 0x01 && ret <= 0xff)
1570 return ret;
1571 }
a3a91a35
FB		 1572 return -1;
1573}
1574
c8256f9d
AZ		 1575#define MAX_KEYCODES 16
1576static uint8_t keycodes[MAX_KEYCODES];
1577static int nb_pending_keycodes;
1578static QEMUTimer *key_timer;
1579
1580static void release_keys(void *opaque)
1581{
1582 int keycode;
1583
1584 while (nb_pending_keycodes > 0) {
1585 nb_pending_keycodes--;
1586 keycode = keycodes[nb_pending_keycodes];
1587 if (keycode & 0x80)
1588 kbd_put_keycode(0xe0);
1589 kbd_put_keycode(keycode | 0x80);
1590 }
1591}
1592
1d4daa91 1593static void do_sendkey(Monitor *mon, const QDict *qdict)
a3a91a35 1594{
3401c0d9
AZ		 1595 char keyname_buf[16];
1596 char *separator;
1597 int keyname_len, keycode, i;
1d4daa91
LC		 1598 const char *string = qdict_get_str(qdict, "string");
1599 int has_hold_time = qdict_haskey(qdict, "hold_time");
1600 int hold_time = qdict_get_try_int(qdict, "hold_time", -1);
3401c0d9 1601
c8256f9d
AZ		 1602 if (nb_pending_keycodes > 0) {
1603 qemu_del_timer(key_timer);
1604 release_keys(NULL);
1605 }
1606 if (!has_hold_time)
1607 hold_time = 100;
1608 i = 0;
3401c0d9
AZ		 1609 while (1) {
1610 separator = strchr(string, '-');
1611 keyname_len = separator ? separator - string : strlen(string);
1612 if (keyname_len > 0) {
1613 pstrcpy(keyname_buf, sizeof(keyname_buf), string);
1614 if (keyname_len > sizeof(keyname_buf) - 1) {
376253ec 1615 monitor_printf(mon, "invalid key: '%s...'\n", keyname_buf);
3401c0d9 1616 return;
a3a91a35 1617 }
c8256f9d 1618 if (i == MAX_KEYCODES) {
376253ec 1619 monitor_printf(mon, "too many keys\n");
3401c0d9
AZ		 1620 return;
1621 }
1622 keyname_buf[keyname_len] = 0;
1623 keycode = get_keycode(keyname_buf);
1624 if (keycode < 0) {
376253ec 1625 monitor_printf(mon, "unknown key: '%s'\n", keyname_buf);
3401c0d9
AZ		 1626 return;
1627 }
c8256f9d 1628 keycodes[i++] = keycode;
a3a91a35 1629 }
3401c0d9 1630 if (!separator)
a3a91a35 1631 break;
3401c0d9 1632 string = separator + 1;
a3a91a35 1633 }
c8256f9d 1634 nb_pending_keycodes = i;
a3a91a35 1635 /* key down events */
c8256f9d 1636 for (i = 0; i < nb_pending_keycodes; i++) {
a3a91a35
FB		 1637 keycode = keycodes[i];
1638 if (keycode & 0x80)
1639 kbd_put_keycode(0xe0);
1640 kbd_put_keycode(keycode & 0x7f);
1641 }
c8256f9d 1642 /* delayed key up events */
f227f17d 1643 qemu_mod_timer(key_timer, qemu_get_clock(vm_clock) +
6ee093c9 1644 muldiv64(get_ticks_per_sec(), hold_time, 1000));
a3a91a35
FB		 1645}
1646
13224a87
FB		 1647static int mouse_button_state;
1648
1d4daa91 1649static void do_mouse_move(Monitor *mon, const QDict *qdict)
13224a87
FB		 1650{
1651 int dx, dy, dz;
1d4daa91
LC		 1652 const char *dx_str = qdict_get_str(qdict, "dx_str");
1653 const char *dy_str = qdict_get_str(qdict, "dy_str");
1654 const char *dz_str = qdict_get_try_str(qdict, "dz_str");
13224a87
FB		 1655 dx = strtol(dx_str, NULL, 0);
1656 dy = strtol(dy_str, NULL, 0);
1657 dz = 0;
5fafdf24 1658 if (dz_str)
13224a87
FB		 1659 dz = strtol(dz_str, NULL, 0);
1660 kbd_mouse_event(dx, dy, dz, mouse_button_state);
1661}
1662
d54908a5 1663static void do_mouse_button(Monitor *mon, const QDict *qdict)
13224a87 1664{
d54908a5 1665 int button_state = qdict_get_int(qdict, "button_state");
13224a87
FB		 1666 mouse_button_state = button_state;
1667 kbd_mouse_event(0, 0, 0, mouse_button_state);
1668}
1669
aa93e39c 1670static void do_ioport_read(Monitor *mon, const QDict *qdict)
3440557b 1671{
aa93e39c
LC		 1672 int size = qdict_get_int(qdict, "size");
1673 int addr = qdict_get_int(qdict, "addr");
1674 int has_index = qdict_haskey(qdict, "index");
3440557b
FB		 1675 uint32_t val;
1676 int suffix;
1677
1678 if (has_index) {
aa93e39c 1679 int index = qdict_get_int(qdict, "index");
afcea8cb 1680 cpu_outb(addr & IOPORTS_MASK, index & 0xff);
3440557b
FB		 1681 addr++;
1682 }
1683 addr &= 0xffff;
1684
1685 switch(size) {
1686 default:
1687 case 1:
afcea8cb 1688 val = cpu_inb(addr);
3440557b
FB		 1689 suffix = 'b';
1690 break;
1691 case 2:
afcea8cb 1692 val = cpu_inw(addr);
3440557b
FB		 1693 suffix = 'w';
1694 break;
1695 case 4:
afcea8cb 1696 val = cpu_inl(addr);
3440557b
FB		 1697 suffix = 'l';
1698 break;
1699 }
376253ec
AL		 1700 monitor_printf(mon, "port%c[0x%04x] = %#0*x\n",
1701 suffix, addr, size * 2, val);
3440557b 1702}
a3a91a35 1703
1bd1442e 1704static void do_ioport_write(Monitor *mon, const QDict *qdict)
f114784f 1705{
1bd1442e
LC		 1706 int size = qdict_get_int(qdict, "size");
1707 int addr = qdict_get_int(qdict, "addr");
1708 int val = qdict_get_int(qdict, "val");
1709
f114784f
JK		 1710 addr &= IOPORTS_MASK;
1711
1712 switch (size) {
1713 default:
1714 case 1:
afcea8cb 1715 cpu_outb(addr, val);
f114784f
JK		 1716 break;
1717 case 2:
afcea8cb 1718 cpu_outw(addr, val);
f114784f
JK		 1719 break;
1720 case 4:
afcea8cb 1721 cpu_outl(addr, val);
f114784f
JK		 1722 break;
1723 }
1724}
1725
d54908a5 1726static void do_boot_set(Monitor *mon, const QDict *qdict)
0ecdffbb
AJ		 1727{
1728 int res;
d54908a5 1729 const char *bootdevice = qdict_get_str(qdict, "bootdevice");
0ecdffbb 1730
76e30d0f
JK		 1731 res = qemu_boot_set(bootdevice);
1732 if (res == 0) {
1733 monitor_printf(mon, "boot device list now set to %s\n", bootdevice);
1734 } else if (res > 0) {
1735 monitor_printf(mon, "setting boot device list failed\n");
0ecdffbb 1736 } else {
376253ec
AL		 1737 monitor_printf(mon, "no function defined to set boot device list for "
1738 "this architecture\n");
0ecdffbb
AJ		 1739 }
1740}
1741
c80d259e
LC		 1742/**
1743 * do_system_reset(): Issue a machine reset
1744 */
ef4b7eee
LC		 1745static int do_system_reset(Monitor *mon, const QDict *qdict,
1746 QObject **ret_data)
e4f9082b
FB		 1747{
1748 qemu_system_reset_request();
ef4b7eee 1749 return 0;
e4f9082b
FB		 1750}
1751
43076664
LC		 1752/**
1753 * do_system_powerdown(): Issue a machine powerdown
1754 */
ef4b7eee
LC		 1755static int do_system_powerdown(Monitor *mon, const QDict *qdict,
1756 QObject **ret_data)
3475187d
FB		 1757{
1758 qemu_system_powerdown_request();
ef4b7eee 1759 return 0;
3475187d
FB		 1760}
1761
b86bda5b 1762#if defined(TARGET_I386)
376253ec 1763static void print_pte(Monitor *mon, uint32_t addr, uint32_t pte, uint32_t mask)
b86bda5b 1764{
376253ec
AL		 1765 monitor_printf(mon, "%08x: %08x %c%c%c%c%c%c%c%c\n",
1766 addr,
1767 pte & mask,
1768 pte & PG_GLOBAL_MASK ? 'G' : '-',
1769 pte & PG_PSE_MASK ? 'P' : '-',
1770 pte & PG_DIRTY_MASK ? 'D' : '-',
1771 pte & PG_ACCESSED_MASK ? 'A' : '-',
1772 pte & PG_PCD_MASK ? 'C' : '-',
1773 pte & PG_PWT_MASK ? 'T' : '-',
1774 pte & PG_USER_MASK ? 'U' : '-',
1775 pte & PG_RW_MASK ? 'W' : '-');
b86bda5b
FB		 1776}
1777
376253ec 1778static void tlb_info(Monitor *mon)
b86bda5b 1779{
6a00d601 1780 CPUState *env;
b86bda5b
FB		 1781 int l1, l2;
1782 uint32_t pgd, pde, pte;
1783
6a00d601 1784 env = mon_get_cpu();
6a00d601 1785
b86bda5b 1786 if (!(env->cr[0] & CR0_PG_MASK)) {
376253ec 1787 monitor_printf(mon, "PG disabled\n");
b86bda5b
FB		 1788 return;
1789 }
1790 pgd = env->cr[3] & ~0xfff;
1791 for(l1 = 0; l1 < 1024; l1++) {
1792 cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1793 pde = le32_to_cpu(pde);
1794 if (pde & PG_PRESENT_MASK) {
1795 if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
376253ec 1796 print_pte(mon, (l1 << 22), pde, ~((1 << 20) - 1));
b86bda5b
FB		 1797 } else {
1798 for(l2 = 0; l2 < 1024; l2++) {
5fafdf24 1799 cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
b86bda5b
FB		 1800 (uint8_t *)&pte, 4);
1801 pte = le32_to_cpu(pte);
1802 if (pte & PG_PRESENT_MASK) {
376253ec 1803 print_pte(mon, (l1 << 22) + (l2 << 12),
5fafdf24 1804 pte & ~PG_PSE_MASK,
b86bda5b
FB		 1805 ~0xfff);
1806 }
1807 }
1808 }
1809 }
1810 }
1811}
1812
376253ec 1813static void mem_print(Monitor *mon, uint32_t *pstart, int *plast_prot,
b86bda5b
FB		 1814 uint32_t end, int prot)
1815{
9746b15b
FB		 1816 int prot1;
1817 prot1 = *plast_prot;
1818 if (prot != prot1) {
b86bda5b 1819 if (*pstart != -1) {
376253ec
AL		 1820 monitor_printf(mon, "%08x-%08x %08x %c%c%c\n",
1821 *pstart, end, end - *pstart,
1822 prot1 & PG_USER_MASK ? 'u' : '-',
1823 'r',
1824 prot1 & PG_RW_MASK ? 'w' : '-');
b86bda5b
FB		 1825 }
1826 if (prot != 0)
1827 *pstart = end;
1828 else
1829 *pstart = -1;
1830 *plast_prot = prot;
1831 }
1832}
1833
376253ec 1834static void mem_info(Monitor *mon)
b86bda5b 1835{
6a00d601 1836 CPUState *env;
b86bda5b
FB		 1837 int l1, l2, prot, last_prot;
1838 uint32_t pgd, pde, pte, start, end;
1839
6a00d601 1840 env = mon_get_cpu();
6a00d601 1841
b86bda5b 1842 if (!(env->cr[0] & CR0_PG_MASK)) {
376253ec 1843 monitor_printf(mon, "PG disabled\n");
b86bda5b
FB		 1844 return;
1845 }
1846 pgd = env->cr[3] & ~0xfff;
1847 last_prot = 0;
1848 start = -1;
1849 for(l1 = 0; l1 < 1024; l1++) {
1850 cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1851 pde = le32_to_cpu(pde);
1852 end = l1 << 22;
1853 if (pde & PG_PRESENT_MASK) {
1854 if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1855 prot = pde & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
376253ec 1856 mem_print(mon, &start, &last_prot, end, prot);
b86bda5b
FB		 1857 } else {
1858 for(l2 = 0; l2 < 1024; l2++) {
5fafdf24 1859 cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
b86bda5b
FB		 1860 (uint8_t *)&pte, 4);
1861 pte = le32_to_cpu(pte);
1862 end = (l1 << 22) + (l2 << 12);
1863 if (pte & PG_PRESENT_MASK) {
1864 prot = pte & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1865 } else {
1866 prot = 0;
1867 }
376253ec 1868 mem_print(mon, &start, &last_prot, end, prot);
b86bda5b
FB		 1869 }
1870 }
1871 } else {
1872 prot = 0;
376253ec 1873 mem_print(mon, &start, &last_prot, end, prot);
b86bda5b
FB		 1874 }
1875 }
1876}
1877#endif
1878
7c664e2f
AJ		 1879#if defined(TARGET_SH4)
1880
376253ec 1881static void print_tlb(Monitor *mon, int idx, tlb_t *tlb)
7c664e2f 1882{
376253ec
AL		 1883 monitor_printf(mon, " tlb%i:\t"
1884 "asid=%hhu vpn=%x\tppn=%x\tsz=%hhu size=%u\t"
1885 "v=%hhu shared=%hhu cached=%hhu prot=%hhu "
1886 "dirty=%hhu writethrough=%hhu\n",
1887 idx,
1888 tlb->asid, tlb->vpn, tlb->ppn, tlb->sz, tlb->size,
1889 tlb->v, tlb->sh, tlb->c, tlb->pr,
1890 tlb->d, tlb->wt);
7c664e2f
AJ		 1891}
1892
376253ec 1893static void tlb_info(Monitor *mon)
7c664e2f
AJ		 1894{
1895 CPUState *env = mon_get_cpu();
1896 int i;
1897
376253ec 1898 monitor_printf (mon, "ITLB:\n");
7c664e2f 1899 for (i = 0 ; i < ITLB_SIZE ; i++)
376253ec
AL		 1900 print_tlb (mon, i, &env->itlb[i]);
1901 monitor_printf (mon, "UTLB:\n");
7c664e2f 1902 for (i = 0 ; i < UTLB_SIZE ; i++)
376253ec 1903 print_tlb (mon, i, &env->utlb[i]);
7c664e2f
AJ		 1904}
1905
1906#endif
1907
2af5ba71 1908static void do_info_kvm_print(Monitor *mon, const QObject *data)
7ba1e619 1909{
2af5ba71
LC		 1910 QDict *qdict;
1911
1912 qdict = qobject_to_qdict(data);
1913
376253ec 1914 monitor_printf(mon, "kvm support: ");
2af5ba71
LC		 1915 if (qdict_get_bool(qdict, "present")) {
1916 monitor_printf(mon, "%s\n", qdict_get_bool(qdict, "enabled") ?
1917 "enabled" : "disabled");
1918 } else {
1919 monitor_printf(mon, "not compiled\n");
1920 }
1921}
1922
2af5ba71
LC		 1923static void do_info_kvm(Monitor *mon, QObject **ret_data)
1924{
1925#ifdef CONFIG_KVM
1926 *ret_data = qobject_from_jsonf("{ 'enabled': %i, 'present': true }",
1927 kvm_enabled());
7ba1e619 1928#else
2af5ba71 1929 *ret_data = qobject_from_jsonf("{ 'enabled': false, 'present': false }");
7ba1e619
AL		 1930#endif
1931}
1932
030ea37b
AL		 1933static void do_info_numa(Monitor *mon)
1934{
b28b6230 1935 int i;
030ea37b
AL		 1936 CPUState *env;
1937
1938 monitor_printf(mon, "%d nodes\n", nb_numa_nodes);
1939 for (i = 0; i < nb_numa_nodes; i++) {
1940 monitor_printf(mon, "node %d cpus:", i);
1941 for (env = first_cpu; env != NULL; env = env->next_cpu) {
1942 if (env->numa_node == i) {
1943 monitor_printf(mon, " %d", env->cpu_index);
1944 }
1945 }
1946 monitor_printf(mon, "\n");
1947 monitor_printf(mon, "node %d size: %" PRId64 " MB\n", i,
1948 node_mem[i] >> 20);
1949 }
1950}
1951
5f1ce948
FB		 1952#ifdef CONFIG_PROFILER
1953
e9a6625e
AJ		 1954int64_t qemu_time;
1955int64_t dev_time;
1956
376253ec 1957static void do_info_profile(Monitor *mon)
5f1ce948
FB		 1958{
1959 int64_t total;
1960 total = qemu_time;
1961 if (total == 0)
1962 total = 1;
376253ec 1963 monitor_printf(mon, "async time %" PRId64 " (%0.3f)\n",
6ee093c9 1964 dev_time, dev_time / (double)get_ticks_per_sec());
376253ec 1965 monitor_printf(mon, "qemu time %" PRId64 " (%0.3f)\n",
6ee093c9 1966 qemu_time, qemu_time / (double)get_ticks_per_sec());
5f1ce948 1967 qemu_time = 0;
5f1ce948 1968 dev_time = 0;
5f1ce948
FB		 1969}
1970#else
376253ec 1971static void do_info_profile(Monitor *mon)
5f1ce948 1972{
376253ec 1973 monitor_printf(mon, "Internal profiler not compiled\n");
5f1ce948
FB		 1974}
1975#endif
1976
ec36b695 1977/* Capture support */
72cf2d4f 1978static QLIST_HEAD (capture_list_head, CaptureState) capture_head;
ec36b695 1979
376253ec 1980static void do_info_capture(Monitor *mon)
ec36b695
FB		 1981{
1982 int i;
1983 CaptureState *s;
1984
1985 for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
376253ec 1986 monitor_printf(mon, "[%d]: ", i);
ec36b695
FB		 1987 s->ops.info (s->opaque);
1988 }
1989}
1990
2313086a 1991#ifdef HAS_AUDIO
d54908a5 1992static void do_stop_capture(Monitor *mon, const QDict *qdict)
ec36b695
FB		 1993{
1994 int i;
d54908a5 1995 int n = qdict_get_int(qdict, "n");
ec36b695
FB		 1996 CaptureState *s;
1997
1998 for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1999 if (i == n) {
2000 s->ops.destroy (s->opaque);
72cf2d4f 2001 QLIST_REMOVE (s, entries);
ec36b695
FB		 2002 qemu_free (s);
2003 return;
2004 }
2005 }
2006}
2007
c1925484
LC		 2008static void do_wav_capture(Monitor *mon, const QDict *qdict)
2009{
2010 const char *path = qdict_get_str(qdict, "path");
2011 int has_freq = qdict_haskey(qdict, "freq");
2012 int freq = qdict_get_try_int(qdict, "freq", -1);
2013 int has_bits = qdict_haskey(qdict, "bits");
2014 int bits = qdict_get_try_int(qdict, "bits", -1);
2015 int has_channels = qdict_haskey(qdict, "nchannels");
2016 int nchannels = qdict_get_try_int(qdict, "nchannels", -1);
ec36b695
FB		 2017 CaptureState *s;
2018
2019 s = qemu_mallocz (sizeof (*s));
ec36b695
FB		 2020
2021 freq = has_freq ? freq : 44100;
2022 bits = has_bits ? bits : 16;
2023 nchannels = has_channels ? nchannels : 2;
2024
2025 if (wav_start_capture (s, path, freq, bits, nchannels)) {
376253ec 2026 monitor_printf(mon, "Faied to add wave capture\n");
ec36b695
FB		 2027 qemu_free (s);
2028 }
72cf2d4f 2029 QLIST_INSERT_HEAD (&capture_head, s, entries);
ec36b695
FB		 2030}
2031#endif
2032
dc1c0b74 2033#if defined(TARGET_I386)
d54908a5 2034static void do_inject_nmi(Monitor *mon, const QDict *qdict)
dc1c0b74
AJ		 2035{
2036 CPUState *env;
d54908a5 2037 int cpu_index = qdict_get_int(qdict, "cpu_index");
dc1c0b74
AJ		 2038
2039 for (env = first_cpu; env != NULL; env = env->next_cpu)
2040 if (env->cpu_index == cpu_index) {
2041 cpu_interrupt(env, CPU_INTERRUPT_NMI);
2042 break;
2043 }
2044}
2045#endif
2046
c0e8520e 2047static void do_info_status_print(Monitor *mon, const QObject *data)
6f9c5ee7 2048{
c0e8520e
LC		 2049 QDict *qdict;
2050
2051 qdict = qobject_to_qdict(data);
2052
2053 monitor_printf(mon, "VM status: ");
2054 if (qdict_get_bool(qdict, "running")) {
2055 monitor_printf(mon, "running");
2056 if (qdict_get_bool(qdict, "singlestep")) {
2057 monitor_printf(mon, " (single step mode)");
1b530a6d 2058 }
c0e8520e
LC		 2059 } else {
2060 monitor_printf(mon, "paused");
2061 }
2062
2063 monitor_printf(mon, "\n");
2064}
2065
c0e8520e
LC		 2066static void do_info_status(Monitor *mon, QObject **ret_data)
2067{
2068 *ret_data = qobject_from_jsonf("{ 'running': %i, 'singlestep': %i }",
2069 vm_running, singlestep);
6f9c5ee7
AJ		 2070}
2071
15dfcd45 2072static qemu_acl *find_acl(Monitor *mon, const char *name)
76655d6d 2073{
15dfcd45 2074 qemu_acl *acl = qemu_acl_find(name);
76655d6d 2075
76655d6d 2076 if (!acl) {
15dfcd45 2077 monitor_printf(mon, "acl: unknown list '%s'\n", name);
76655d6d 2078 }
15dfcd45
JK		 2079 return acl;
2080}
2081
d54908a5 2082static void do_acl_show(Monitor *mon, const QDict *qdict)
15dfcd45 2083{
d54908a5 2084 const char *aclname = qdict_get_str(qdict, "aclname");
15dfcd45
JK		 2085 qemu_acl *acl = find_acl(mon, aclname);
2086 qemu_acl_entry *entry;
2087 int i = 0;
76655d6d 2088
15dfcd45 2089 if (acl) {
28a76be8 2090 monitor_printf(mon, "policy: %s\n",
76655d6d 2091 acl->defaultDeny ? "deny" : "allow");
72cf2d4f 2092 QTAILQ_FOREACH(entry, &acl->entries, next) {
28a76be8
AL		 2093 i++;
2094 monitor_printf(mon, "%d: %s %s\n", i,
15dfcd45 2095 entry->deny ? "deny" : "allow", entry->match);
28a76be8 2096 }
15dfcd45
JK		 2097 }
2098}
2099
d54908a5 2100static void do_acl_reset(Monitor *mon, const QDict *qdict)
15dfcd45 2101{
d54908a5 2102 const char *aclname = qdict_get_str(qdict, "aclname");
15dfcd45
JK		 2103 qemu_acl *acl = find_acl(mon, aclname);
2104
2105 if (acl) {
28a76be8
AL		 2106 qemu_acl_reset(acl);
2107 monitor_printf(mon, "acl: removed all rules\n");
15dfcd45
JK		 2108 }
2109}
2110
f18c16de 2111static void do_acl_policy(Monitor *mon, const QDict *qdict)
15dfcd45 2112{
f18c16de
LC		 2113 const char *aclname = qdict_get_str(qdict, "aclname");
2114 const char *policy = qdict_get_str(qdict, "policy");
15dfcd45 2115 qemu_acl *acl = find_acl(mon, aclname);
28a76be8 2116
15dfcd45
JK		 2117 if (acl) {
2118 if (strcmp(policy, "allow") == 0) {
28a76be8
AL		 2119 acl->defaultDeny = 0;
2120 monitor_printf(mon, "acl: policy set to 'allow'\n");
15dfcd45 2121 } else if (strcmp(policy, "deny") == 0) {
28a76be8
AL		 2122 acl->defaultDeny = 1;
2123 monitor_printf(mon, "acl: policy set to 'deny'\n");
2124 } else {
15dfcd45
JK		 2125 monitor_printf(mon, "acl: unknown policy '%s', "
2126 "expected 'deny' or 'allow'\n", policy);
28a76be8 2127 }
15dfcd45
JK		 2128 }
2129}
28a76be8 2130
1bd1442e 2131static void do_acl_add(Monitor *mon, const QDict *qdict)
15dfcd45 2132{
1bd1442e
LC		 2133 const char *aclname = qdict_get_str(qdict, "aclname");
2134 const char *match = qdict_get_str(qdict, "match");
2135 const char *policy = qdict_get_str(qdict, "policy");
2136 int has_index = qdict_haskey(qdict, "index");
2137 int index = qdict_get_try_int(qdict, "index", -1);
15dfcd45
JK		 2138 qemu_acl *acl = find_acl(mon, aclname);
2139 int deny, ret;
2140
2141 if (acl) {
2142 if (strcmp(policy, "allow") == 0) {
2143 deny = 0;
2144 } else if (strcmp(policy, "deny") == 0) {
2145 deny = 1;
2146 } else {
2147 monitor_printf(mon, "acl: unknown policy '%s', "
2148 "expected 'deny' or 'allow'\n", policy);
28a76be8
AL		 2149 return;
2150 }
28a76be8
AL		 2151 if (has_index)
2152 ret = qemu_acl_insert(acl, deny, match, index);
2153 else
2154 ret = qemu_acl_append(acl, deny, match);
2155 if (ret < 0)
2156 monitor_printf(mon, "acl: unable to add acl entry\n");
2157 else
2158 monitor_printf(mon, "acl: added rule at position %d\n", ret);
15dfcd45
JK		 2159 }
2160}
28a76be8 2161
f18c16de 2162static void do_acl_remove(Monitor *mon, const QDict *qdict)
15dfcd45 2163{
f18c16de
LC		 2164 const char *aclname = qdict_get_str(qdict, "aclname");
2165 const char *match = qdict_get_str(qdict, "match");
15dfcd45
JK		 2166 qemu_acl *acl = find_acl(mon, aclname);
2167 int ret;
28a76be8 2168
15dfcd45 2169 if (acl) {
28a76be8
AL		 2170 ret = qemu_acl_remove(acl, match);
2171 if (ret < 0)
2172 monitor_printf(mon, "acl: no matching acl entry\n");
2173 else
2174 monitor_printf(mon, "acl: removed rule at position %d\n", ret);
76655d6d
AL		 2175 }
2176}
2177
79c4f6b0 2178#if defined(TARGET_I386)
37b7ad48 2179static void do_inject_mce(Monitor *mon, const QDict *qdict)
79c4f6b0
HY		 2180{
2181 CPUState *cenv;
37b7ad48
LC		 2182 int cpu_index = qdict_get_int(qdict, "cpu_index");
2183 int bank = qdict_get_int(qdict, "bank");
2184 uint64_t status = qdict_get_int(qdict, "status");
2185 uint64_t mcg_status = qdict_get_int(qdict, "mcg_status");
2186 uint64_t addr = qdict_get_int(qdict, "addr");
2187 uint64_t misc = qdict_get_int(qdict, "misc");
79c4f6b0
HY		 2188
2189 for (cenv = first_cpu; cenv != NULL; cenv = cenv->next_cpu)
2190 if (cenv->cpu_index == cpu_index && cenv->mcg_cap) {
2191 cpu_inject_x86_mce(cenv, bank, status, mcg_status, addr, misc);
2192 break;
2193 }
2194}
2195#endif
2196
6ad3ebd2 2197static int do_getfd(Monitor *mon, const QDict *qdict, QObject **ret_data)
f07918fd 2198{
d54908a5 2199 const char *fdname = qdict_get_str(qdict, "fdname");
c227f099 2200 mon_fd_t *monfd;
f07918fd
MM		 2201 int fd;
2202
2203 fd = qemu_chr_get_msgfd(mon->chr);
2204 if (fd == -1) {
ab5b027e 2205 qerror_report(QERR_FD_NOT_SUPPLIED);
6ad3ebd2 2206 return -1;
f07918fd
MM		 2207 }
2208
2209 if (qemu_isdigit(fdname[0])) {
e17ba87c
MA		 2210 qerror_report(QERR_INVALID_PARAMETER_VALUE, "fdname",
2211 "a name not starting with a digit");
6ad3ebd2 2212 return -1;
f07918fd
MM		 2213 }
2214
72cf2d4f 2215 QLIST_FOREACH(monfd, &mon->fds, next) {
f07918fd
MM		 2216 if (strcmp(monfd->name, fdname) != 0) {
2217 continue;
2218 }
2219
2220 close(monfd->fd);
2221 monfd->fd = fd;
6ad3ebd2 2222 return 0;
f07918fd
MM		 2223 }
2224
c227f099 2225 monfd = qemu_mallocz(sizeof(mon_fd_t));
f07918fd
MM		 2226 monfd->name = qemu_strdup(fdname);
2227 monfd->fd = fd;
2228
72cf2d4f 2229 QLIST_INSERT_HEAD(&mon->fds, monfd, next);
6ad3ebd2 2230 return 0;
f07918fd
MM		 2231}
2232
aeb91c1e 2233static int do_closefd(Monitor *mon, const QDict *qdict, QObject **ret_data)
f07918fd 2234{
d54908a5 2235 const char *fdname = qdict_get_str(qdict, "fdname");
c227f099 2236 mon_fd_t *monfd;
f07918fd 2237
72cf2d4f 2238 QLIST_FOREACH(monfd, &mon->fds, next) {
f07918fd
MM		 2239 if (strcmp(monfd->name, fdname) != 0) {
2240 continue;
2241 }
2242
72cf2d4f 2243 QLIST_REMOVE(monfd, next);
f07918fd
MM		 2244 close(monfd->fd);
2245 qemu_free(monfd->name);
2246 qemu_free(monfd);
aeb91c1e 2247 return 0;
f07918fd
MM		 2248 }
2249
ab5b027e 2250 qerror_report(QERR_FD_NOT_FOUND, fdname);
aeb91c1e 2251 return -1;
f07918fd
MM		 2252}
2253
d54908a5 2254static void do_loadvm(Monitor *mon, const QDict *qdict)
c8d41b2c
JQ		 2255{
2256 int saved_vm_running = vm_running;
d54908a5 2257 const char *name = qdict_get_str(qdict, "name");
c8d41b2c
JQ		 2258
2259 vm_stop(0);
2260
03cd4655 2261 if (load_vmstate(name) >= 0 && saved_vm_running)
c8d41b2c
JQ		 2262 vm_start();
2263}
2264
7768e04c
MM		 2265int monitor_get_fd(Monitor *mon, const char *fdname)
2266{
c227f099 2267 mon_fd_t *monfd;
7768e04c 2268
72cf2d4f 2269 QLIST_FOREACH(monfd, &mon->fds, next) {
7768e04c
MM		 2270 int fd;
2271
2272 if (strcmp(monfd->name, fdname) != 0) {
2273 continue;
2274 }
2275
2276 fd = monfd->fd;
2277
2278 /* caller takes ownership of fd */
72cf2d4f 2279 QLIST_REMOVE(monfd, next);
7768e04c
MM		 2280 qemu_free(monfd->name);
2281 qemu_free(monfd);
2282
2283 return fd;
2284 }
2285
2286 return -1;
2287}
2288
c227f099 2289static const mon_cmd_t mon_cmds[] = {
2313086a 2290#include "qemu-monitor.h"
5fafdf24 2291 { NULL, NULL, },
9dc39cba
FB		 2292};
2293
2313086a 2294/* Please update qemu-monitor.hx when adding or changing commands */
c227f099 2295static const mon_cmd_t info_cmds[] = {
d7f9b689
LC		 2296 {
2297 .name = "version",
2298 .args_type = "",
d7f9b689
LC		 2299 .params = "",
2300 .help = "show the version of QEMU",
45e914cf 2301 .user_print = do_info_version_print,
ab2d3187 2302 .mhandler.info_new = do_info_version,
d7f9b689 2303 },
e3bba9d0
LC		 2304 {
2305 .name = "commands",
2306 .args_type = "",
2307 .params = "",
2308 .help = "list QMP available commands",
2309 .user_print = monitor_user_noop,
2310 .mhandler.info_new = do_info_commands,
2311 },
d7f9b689
LC		 2312 {
2313 .name = "network",
2314 .args_type = "",
d7f9b689
LC		 2315 .params = "",
2316 .help = "show the network state",
910df89d 2317 .mhandler.info = do_info_network,
d7f9b689
LC		 2318 },
2319 {
2320 .name = "chardev",
2321 .args_type = "",
d7f9b689
LC		 2322 .params = "",
2323 .help = "show the character devices",
588b3832
LC		 2324 .user_print = qemu_chr_info_print,
2325 .mhandler.info_new = qemu_chr_info,
d7f9b689
LC		 2326 },
2327 {
2328 .name = "block",
2329 .args_type = "",
d7f9b689
LC		 2330 .params = "",
2331 .help = "show the block devices",
d15e5465
LC		 2332 .user_print = bdrv_info_print,
2333 .mhandler.info_new = bdrv_info,
d7f9b689
LC		 2334 },
2335 {
2336 .name = "blockstats",
2337 .args_type = "",
d7f9b689
LC		 2338 .params = "",
2339 .help = "show block device statistics",
218a536a
LC		 2340 .user_print = bdrv_stats_print,
2341 .mhandler.info_new = bdrv_info_stats,
d7f9b689
LC		 2342 },
2343 {
2344 .name = "registers",
2345 .args_type = "",
d7f9b689
LC		 2346 .params = "",
2347 .help = "show the cpu registers",
910df89d 2348 .mhandler.info = do_info_registers,
d7f9b689
LC		 2349 },
2350 {
2351 .name = "cpus",
2352 .args_type = "",
d7f9b689
LC		 2353 .params = "",
2354 .help = "show infos for each CPU",
8f3cec0b
LC		 2355 .user_print = monitor_print_cpus,
2356 .mhandler.info_new = do_info_cpus,
d7f9b689
LC		 2357 },
2358 {
2359 .name = "history",
2360 .args_type = "",
d7f9b689
LC		 2361 .params = "",
2362 .help = "show the command line history",
910df89d 2363 .mhandler.info = do_info_history,
d7f9b689
LC		 2364 },
2365 {
2366 .name = "irq",
2367 .args_type = "",
d7f9b689
LC		 2368 .params = "",
2369 .help = "show the interrupts statistics (if available)",
910df89d 2370 .mhandler.info = irq_info,
d7f9b689
LC		 2371 },
2372 {
2373 .name = "pic",
2374 .args_type = "",
d7f9b689
LC		 2375 .params = "",
2376 .help = "show i8259 (PIC) state",
910df89d 2377 .mhandler.info = pic_info,
d7f9b689
LC		 2378 },
2379 {
2380 .name = "pci",
2381 .args_type = "",
d7f9b689
LC		 2382 .params = "",
2383 .help = "show PCI info",
163c8a59
LC		 2384 .user_print = do_pci_info_print,
2385 .mhandler.info_new = do_pci_info,
d7f9b689 2386 },
7c664e2f 2387#if defined(TARGET_I386) || defined(TARGET_SH4)
d7f9b689
LC		 2388 {
2389 .name = "tlb",
2390 .args_type = "",
d7f9b689
LC		 2391 .params = "",
2392 .help = "show virtual to physical memory mappings",
910df89d 2393 .mhandler.info = tlb_info,
d7f9b689 2394 },
7c664e2f
AJ		 2395#endif
2396#if defined(TARGET_I386)
d7f9b689
LC		 2397 {
2398 .name = "mem",
2399 .args_type = "",
d7f9b689
LC		 2400 .params = "",
2401 .help = "show the active virtual memory mappings",
910df89d 2402 .mhandler.info = mem_info,
d7f9b689 2403 },
b86bda5b 2404#endif
d7f9b689
LC		 2405 {
2406 .name = "jit",
2407 .args_type = "",
d7f9b689
LC		 2408 .params = "",
2409 .help = "show dynamic compiler info",
910df89d 2410 .mhandler.info = do_info_jit,
d7f9b689
LC		 2411 },
2412 {
2413 .name = "kvm",
2414 .args_type = "",
d7f9b689
LC		 2415 .params = "",
2416 .help = "show KVM information",
2af5ba71
LC		 2417 .user_print = do_info_kvm_print,
2418 .mhandler.info_new = do_info_kvm,
d7f9b689
LC		 2419 },
2420 {
2421 .name = "numa",
2422 .args_type = "",
d7f9b689
LC		 2423 .params = "",
2424 .help = "show NUMA information",
910df89d 2425 .mhandler.info = do_info_numa,
d7f9b689
LC		 2426 },
2427 {
2428 .name = "usb",
2429 .args_type = "",
d7f9b689
LC		 2430 .params = "",
2431 .help = "show guest USB devices",
910df89d 2432 .mhandler.info = usb_info,
d7f9b689
LC		 2433 },
2434 {
2435 .name = "usbhost",
2436 .args_type = "",
d7f9b689
LC		 2437 .params = "",
2438 .help = "show host USB devices",
910df89d 2439 .mhandler.info = usb_host_info,
d7f9b689
LC		 2440 },
2441 {
2442 .name = "profile",
2443 .args_type = "",
d7f9b689
LC		 2444 .params = "",
2445 .help = "show profiling information",
910df89d 2446 .mhandler.info = do_info_profile,
d7f9b689
LC		 2447 },
2448 {
2449 .name = "capture",
2450 .args_type = "",
d7f9b689
LC		 2451 .params = "",
2452 .help = "show capture information",
910df89d 2453 .mhandler.info = do_info_capture,
d7f9b689
LC		 2454 },
2455 {
2456 .name = "snapshots",
2457 .args_type = "",
d7f9b689
LC		 2458 .params = "",
2459 .help = "show the currently saved VM snapshots",
910df89d 2460 .mhandler.info = do_info_snapshots,
d7f9b689
LC		 2461 },
2462 {
2463 .name = "status",
2464 .args_type = "",
d7f9b689
LC		 2465 .params = "",
2466 .help = "show the current VM status (running|paused)",
c0e8520e
LC		 2467 .user_print = do_info_status_print,
2468 .mhandler.info_new = do_info_status,
d7f9b689
LC		 2469 },
2470 {
2471 .name = "pcmcia",
2472 .args_type = "",
d7f9b689
LC		 2473 .params = "",
2474 .help = "show guest PCMCIA status",
910df89d 2475 .mhandler.info = pcmcia_info,
d7f9b689
LC		 2476 },
2477 {
2478 .name = "mice",
2479 .args_type = "",
d7f9b689
LC		 2480 .params = "",
2481 .help = "show which guest mouse is receiving events",
e78c48ec
LC		 2482 .user_print = do_info_mice_print,
2483 .mhandler.info_new = do_info_mice,
d7f9b689
LC		 2484 },
2485 {
2486 .name = "vnc",
2487 .args_type = "",
d7f9b689
LC		 2488 .params = "",
2489 .help = "show the vnc server status",
d96fd29c
LC		 2490 .user_print = do_info_vnc_print,
2491 .mhandler.info_new = do_info_vnc,
d7f9b689
LC		 2492 },
2493 {
2494 .name = "name",
2495 .args_type = "",
d7f9b689
LC		 2496 .params = "",
2497 .help = "show the current VM name",
e05486cb
LC		 2498 .user_print = do_info_name_print,
2499 .mhandler.info_new = do_info_name,
d7f9b689
LC		 2500 },
2501 {
2502 .name = "uuid",
2503 .args_type = "",
d7f9b689
LC		 2504 .params = "",
2505 .help = "show the current VM UUID",
9603ceba
LC		 2506 .user_print = do_info_uuid_print,
2507 .mhandler.info_new = do_info_uuid,
d7f9b689 2508 },
76a66253 2509#if defined(TARGET_PPC)
d7f9b689
LC		 2510 {
2511 .name = "cpustats",
2512 .args_type = "",
d7f9b689
LC		 2513 .params = "",
2514 .help = "show CPU statistics",
910df89d 2515 .mhandler.info = do_info_cpu_stats,
d7f9b689 2516 },
76a66253 2517#endif
31a60e22 2518#if defined(CONFIG_SLIRP)
d7f9b689
LC		 2519 {
2520 .name = "usernet",
2521 .args_type = "",
d7f9b689
LC		 2522 .params = "",
2523 .help = "show user network stack connection states",
910df89d 2524 .mhandler.info = do_info_usernet,
d7f9b689 2525 },
31a60e22 2526#endif
d7f9b689
LC		 2527 {
2528 .name = "migrate",
2529 .args_type = "",
d7f9b689
LC		 2530 .params = "",
2531 .help = "show migration status",
c86a6683
LC		 2532 .user_print = do_info_migrate_print,
2533 .mhandler.info_new = do_info_migrate,
d7f9b689
LC		 2534 },
2535 {
2536 .name = "balloon",
2537 .args_type = "",
d7f9b689
LC		 2538 .params = "",
2539 .help = "show balloon information",
cc1d9c70 2540 .user_print = monitor_print_balloon,
625a5bef 2541 .mhandler.info_async = do_info_balloon,
8ac470c1 2542 .flags = MONITOR_CMD_ASYNC,
d7f9b689
LC		 2543 },
2544 {
2545 .name = "qtree",
2546 .args_type = "",
d7f9b689
LC		 2547 .params = "",
2548 .help = "show device tree",
910df89d 2549 .mhandler.info = do_info_qtree,
d7f9b689
LC		 2550 },
2551 {
2552 .name = "qdm",
2553 .args_type = "",
d7f9b689
LC		 2554 .params = "",
2555 .help = "show qdev device model list",
910df89d 2556 .mhandler.info = do_info_qdm,
d7f9b689
LC		 2557 },
2558 {
2559 .name = "roms",
2560 .args_type = "",
d7f9b689
LC		 2561 .params = "",
2562 .help = "show roms",
910df89d 2563 .mhandler.info = do_info_roms,
d7f9b689
LC		 2564 },
2565 {
2566 .name = NULL,
2567 },
9dc39cba
FB		 2568};
2569
9307c4c1
FB		 2570/*******************************************************************/
2571
2572static const char *pch;
2573static jmp_buf expr_env;
2574
92a31b1f
FB		 2575#define MD_TLONG 0
2576#define MD_I32 1
2577
9307c4c1
FB		 2578typedef struct MonitorDef {
2579 const char *name;
2580 int offset;
8662d656 2581 target_long (*get_value)(const struct MonitorDef *md, int val);
92a31b1f 2582 int type;
9307c4c1
FB		 2583} MonitorDef;
2584
57206fd4 2585#if defined(TARGET_I386)
8662d656 2586static target_long monitor_get_pc (const struct MonitorDef *md, int val)
57206fd4 2587{
6a00d601 2588 CPUState *env = mon_get_cpu();
6a00d601 2589 return env->eip + env->segs[R_CS].base;
57206fd4
FB		 2590}
2591#endif
2592
a541f297 2593#if defined(TARGET_PPC)
8662d656 2594static target_long monitor_get_ccr (const struct MonitorDef *md, int val)
a541f297 2595{
6a00d601 2596 CPUState *env = mon_get_cpu();
a541f297
FB		 2597 unsigned int u;
2598 int i;
2599
2600 u = 0;
2601 for (i = 0; i < 8; i++)
28a76be8 2602 u |= env->crf[i] << (32 - (4 * i));
a541f297
FB		 2603
2604 return u;
2605}
2606
8662d656 2607static target_long monitor_get_msr (const struct MonitorDef *md, int val)
a541f297 2608{
6a00d601 2609 CPUState *env = mon_get_cpu();
0411a972 2610 return env->msr;
a541f297
FB		 2611}
2612
8662d656 2613static target_long monitor_get_xer (const struct MonitorDef *md, int val)
a541f297 2614{
6a00d601 2615 CPUState *env = mon_get_cpu();
3d7b417e 2616 return env->xer;
a541f297 2617}
9fddaa0c 2618
8662d656 2619static target_long monitor_get_decr (const struct MonitorDef *md, int val)
9fddaa0c 2620{
6a00d601 2621 CPUState *env = mon_get_cpu();
6a00d601 2622 return cpu_ppc_load_decr(env);
9fddaa0c
FB		 2623}
2624
8662d656 2625static target_long monitor_get_tbu (const struct MonitorDef *md, int val)
9fddaa0c 2626{
6a00d601 2627 CPUState *env = mon_get_cpu();
6a00d601 2628 return cpu_ppc_load_tbu(env);
9fddaa0c
FB		 2629}
2630
8662d656 2631static target_long monitor_get_tbl (const struct MonitorDef *md, int val)
9fddaa0c 2632{
6a00d601 2633 CPUState *env = mon_get_cpu();
6a00d601 2634 return cpu_ppc_load_tbl(env);
9fddaa0c 2635}
a541f297
FB		 2636#endif
2637
e95c8d51 2638#if defined(TARGET_SPARC)
7b936c0c 2639#ifndef TARGET_SPARC64
8662d656 2640static target_long monitor_get_psr (const struct MonitorDef *md, int val)
e95c8d51 2641{
6a00d601 2642 CPUState *env = mon_get_cpu();
5a834bb4
BS		 2643
2644 return cpu_get_psr(env);
e95c8d51 2645}
7b936c0c 2646#endif
e95c8d51 2647
8662d656 2648static target_long monitor_get_reg(const struct MonitorDef *md, int val)
e95c8d51 2649{
6a00d601 2650 CPUState *env = mon_get_cpu();
6a00d601 2651 return env->regwptr[val];
e95c8d51
FB		 2652}
2653#endif
2654
8662d656 2655static const MonitorDef monitor_defs[] = {
9307c4c1 2656#ifdef TARGET_I386
57206fd4
FB		 2657
2658#define SEG(name, seg) \
92a31b1f 2659 { name, offsetof(CPUState, segs[seg].selector), NULL, MD_I32 },\
57206fd4 2660 { name ".base", offsetof(CPUState, segs[seg].base) },\
92a31b1f 2661 { name ".limit", offsetof(CPUState, segs[seg].limit), NULL, MD_I32 },
57206fd4 2662
9307c4c1
FB		 2663 { "eax", offsetof(CPUState, regs[0]) },
2664 { "ecx", offsetof(CPUState, regs[1]) },
2665 { "edx", offsetof(CPUState, regs[2]) },
2666 { "ebx", offsetof(CPUState, regs[3]) },
2667 { "esp|sp", offsetof(CPUState, regs[4]) },
2668 { "ebp|fp", offsetof(CPUState, regs[5]) },
2669 { "esi", offsetof(CPUState, regs[6]) },
01038d2a 2670 { "edi", offsetof(CPUState, regs[7]) },
92a31b1f
FB		 2671#ifdef TARGET_X86_64
2672 { "r8", offsetof(CPUState, regs[8]) },
2673 { "r9", offsetof(CPUState, regs[9]) },
2674 { "r10", offsetof(CPUState, regs[10]) },
2675 { "r11", offsetof(CPUState, regs[11]) },
2676 { "r12", offsetof(CPUState, regs[12]) },
2677 { "r13", offsetof(CPUState, regs[13]) },
2678 { "r14", offsetof(CPUState, regs[14]) },
2679 { "r15", offsetof(CPUState, regs[15]) },
2680#endif
9307c4c1 2681 { "eflags", offsetof(CPUState, eflags) },
57206fd4
FB		 2682 { "eip", offsetof(CPUState, eip) },
2683 SEG("cs", R_CS)
2684 SEG("ds", R_DS)
2685 SEG("es", R_ES)
01038d2a 2686 SEG("ss", R_SS)
57206fd4
FB		 2687 SEG("fs", R_FS)
2688 SEG("gs", R_GS)
2689 { "pc", 0, monitor_get_pc, },
a541f297 2690#elif defined(TARGET_PPC)
ff937dba 2691 /* General purpose registers */
a541f297
FB		 2692 { "r0", offsetof(CPUState, gpr[0]) },
2693 { "r1", offsetof(CPUState, gpr[1]) },
2694 { "r2", offsetof(CPUState, gpr[2]) },
2695 { "r3", offsetof(CPUState, gpr[3]) },
2696 { "r4", offsetof(CPUState, gpr[4]) },
2697 { "r5", offsetof(CPUState, gpr[5]) },
2698 { "r6", offsetof(CPUState, gpr[6]) },
2699 { "r7", offsetof(CPUState, gpr[7]) },
2700 { "r8", offsetof(CPUState, gpr[8]) },
2701 { "r9", offsetof(CPUState, gpr[9]) },
2702 { "r10", offsetof(CPUState, gpr[10]) },
2703 { "r11", offsetof(CPUState, gpr[11]) },
2704 { "r12", offsetof(CPUState, gpr[12]) },
2705 { "r13", offsetof(CPUState, gpr[13]) },
2706 { "r14", offsetof(CPUState, gpr[14]) },
2707 { "r15", offsetof(CPUState, gpr[15]) },
2708 { "r16", offsetof(CPUState, gpr[16]) },
2709 { "r17", offsetof(CPUState, gpr[17]) },
2710 { "r18", offsetof(CPUState, gpr[18]) },
2711 { "r19", offsetof(CPUState, gpr[19]) },
2712 { "r20", offsetof(CPUState, gpr[20]) },
2713 { "r21", offsetof(CPUState, gpr[21]) },
2714 { "r22", offsetof(CPUState, gpr[22]) },
2715 { "r23", offsetof(CPUState, gpr[23]) },
2716 { "r24", offsetof(CPUState, gpr[24]) },
2717 { "r25", offsetof(CPUState, gpr[25]) },
2718 { "r26", offsetof(CPUState, gpr[26]) },
2719 { "r27", offsetof(CPUState, gpr[27]) },
2720 { "r28", offsetof(CPUState, gpr[28]) },
2721 { "r29", offsetof(CPUState, gpr[29]) },
2722 { "r30", offsetof(CPUState, gpr[30]) },
2723 { "r31", offsetof(CPUState, gpr[31]) },
ff937dba
JM		 2724 /* Floating point registers */
2725 { "f0", offsetof(CPUState, fpr[0]) },
2726 { "f1", offsetof(CPUState, fpr[1]) },
2727 { "f2", offsetof(CPUState, fpr[2]) },
2728 { "f3", offsetof(CPUState, fpr[3]) },
2729 { "f4", offsetof(CPUState, fpr[4]) },
2730 { "f5", offsetof(CPUState, fpr[5]) },
2731 { "f6", offsetof(CPUState, fpr[6]) },
2732 { "f7", offsetof(CPUState, fpr[7]) },
2733 { "f8", offsetof(CPUState, fpr[8]) },
2734 { "f9", offsetof(CPUState, fpr[9]) },
2735 { "f10", offsetof(CPUState, fpr[10]) },
2736 { "f11", offsetof(CPUState, fpr[11]) },
2737 { "f12", offsetof(CPUState, fpr[12]) },
2738 { "f13", offsetof(CPUState, fpr[13]) },
2739 { "f14", offsetof(CPUState, fpr[14]) },
2740 { "f15", offsetof(CPUState, fpr[15]) },
2741 { "f16", offsetof(CPUState, fpr[16]) },
2742 { "f17", offsetof(CPUState, fpr[17]) },
2743 { "f18", offsetof(CPUState, fpr[18]) },
2744 { "f19", offsetof(CPUState, fpr[19]) },
2745 { "f20", offsetof(CPUState, fpr[20]) },
2746 { "f21", offsetof(CPUState, fpr[21]) },
2747 { "f22", offsetof(CPUState, fpr[22]) },
2748 { "f23", offsetof(CPUState, fpr[23]) },
2749 { "f24", offsetof(CPUState, fpr[24]) },
2750 { "f25", offsetof(CPUState, fpr[25]) },
2751 { "f26", offsetof(CPUState, fpr[26]) },
2752 { "f27", offsetof(CPUState, fpr[27]) },
2753 { "f28", offsetof(CPUState, fpr[28]) },
2754 { "f29", offsetof(CPUState, fpr[29]) },
2755 { "f30", offsetof(CPUState, fpr[30]) },
2756 { "f31", offsetof(CPUState, fpr[31]) },
2757 { "fpscr", offsetof(CPUState, fpscr) },
2758 /* Next instruction pointer */
57206fd4 2759 { "nip|pc", offsetof(CPUState, nip) },
a541f297
FB		 2760 { "lr", offsetof(CPUState, lr) },
2761 { "ctr", offsetof(CPUState, ctr) },
9fddaa0c 2762 { "decr", 0, &monitor_get_decr, },
a541f297 2763 { "ccr", 0, &monitor_get_ccr, },
ff937dba 2764 /* Machine state register */
a541f297
FB		 2765 { "msr", 0, &monitor_get_msr, },
2766 { "xer", 0, &monitor_get_xer, },
9fddaa0c
FB		 2767 { "tbu", 0, &monitor_get_tbu, },
2768 { "tbl", 0, &monitor_get_tbl, },
ff937dba
JM		 2769#if defined(TARGET_PPC64)
2770 /* Address space register */
2771 { "asr", offsetof(CPUState, asr) },
2772#endif
2773 /* Segment registers */
a541f297
FB		 2774 { "sdr1", offsetof(CPUState, sdr1) },
2775 { "sr0", offsetof(CPUState, sr[0]) },
2776 { "sr1", offsetof(CPUState, sr[1]) },
2777 { "sr2", offsetof(CPUState, sr[2]) },
2778 { "sr3", offsetof(CPUState, sr[3]) },
2779 { "sr4", offsetof(CPUState, sr[4]) },
2780 { "sr5", offsetof(CPUState, sr[5]) },
2781 { "sr6", offsetof(CPUState, sr[6]) },
2782 { "sr7", offsetof(CPUState, sr[7]) },
2783 { "sr8", offsetof(CPUState, sr[8]) },
2784 { "sr9", offsetof(CPUState, sr[9]) },
2785 { "sr10", offsetof(CPUState, sr[10]) },
2786 { "sr11", offsetof(CPUState, sr[11]) },
2787 { "sr12", offsetof(CPUState, sr[12]) },
2788 { "sr13", offsetof(CPUState, sr[13]) },
2789 { "sr14", offsetof(CPUState, sr[14]) },
2790 { "sr15", offsetof(CPUState, sr[15]) },
2791 /* Too lazy to put BATs and SPRs ... */
e95c8d51
FB		 2792#elif defined(TARGET_SPARC)
2793 { "g0", offsetof(CPUState, gregs[0]) },
2794 { "g1", offsetof(CPUState, gregs[1]) },
2795 { "g2", offsetof(CPUState, gregs[2]) },
2796 { "g3", offsetof(CPUState, gregs[3]) },
2797 { "g4", offsetof(CPUState, gregs[4]) },
2798 { "g5", offsetof(CPUState, gregs[5]) },
2799 { "g6", offsetof(CPUState, gregs[6]) },
2800 { "g7", offsetof(CPUState, gregs[7]) },
2801 { "o0", 0, monitor_get_reg },
2802 { "o1", 1, monitor_get_reg },
2803 { "o2", 2, monitor_get_reg },
2804 { "o3", 3, monitor_get_reg },
2805 { "o4", 4, monitor_get_reg },
2806 { "o5", 5, monitor_get_reg },
2807 { "o6", 6, monitor_get_reg },
2808 { "o7", 7, monitor_get_reg },
2809 { "l0", 8, monitor_get_reg },
2810 { "l1", 9, monitor_get_reg },
2811 { "l2", 10, monitor_get_reg },
2812 { "l3", 11, monitor_get_reg },
2813 { "l4", 12, monitor_get_reg },
2814 { "l5", 13, monitor_get_reg },
2815 { "l6", 14, monitor_get_reg },
2816 { "l7", 15, monitor_get_reg },
2817 { "i0", 16, monitor_get_reg },
2818 { "i1", 17, monitor_get_reg },
2819 { "i2", 18, monitor_get_reg },
2820 { "i3", 19, monitor_get_reg },
2821 { "i4", 20, monitor_get_reg },
2822 { "i5", 21, monitor_get_reg },
2823 { "i6", 22, monitor_get_reg },
2824 { "i7", 23, monitor_get_reg },
2825 { "pc", offsetof(CPUState, pc) },
2826 { "npc", offsetof(CPUState, npc) },
2827 { "y", offsetof(CPUState, y) },
7b936c0c 2828#ifndef TARGET_SPARC64
e95c8d51
FB		 2829 { "psr", 0, &monitor_get_psr, },
2830 { "wim", offsetof(CPUState, wim) },
7b936c0c 2831#endif
e95c8d51
FB		 2832 { "tbr", offsetof(CPUState, tbr) },
2833 { "fsr", offsetof(CPUState, fsr) },
2834 { "f0", offsetof(CPUState, fpr[0]) },
2835 { "f1", offsetof(CPUState, fpr[1]) },
2836 { "f2", offsetof(CPUState, fpr[2]) },
2837 { "f3", offsetof(CPUState, fpr[3]) },
2838 { "f4", offsetof(CPUState, fpr[4]) },
2839 { "f5", offsetof(CPUState, fpr[5]) },
2840 { "f6", offsetof(CPUState, fpr[6]) },
2841 { "f7", offsetof(CPUState, fpr[7]) },
2842 { "f8", offsetof(CPUState, fpr[8]) },
2843 { "f9", offsetof(CPUState, fpr[9]) },
2844 { "f10", offsetof(CPUState, fpr[10]) },
2845 { "f11", offsetof(CPUState, fpr[11]) },
2846 { "f12", offsetof(CPUState, fpr[12]) },
2847 { "f13", offsetof(CPUState, fpr[13]) },
2848 { "f14", offsetof(CPUState, fpr[14]) },
2849 { "f15", offsetof(CPUState, fpr[15]) },
2850 { "f16", offsetof(CPUState, fpr[16]) },
2851 { "f17", offsetof(CPUState, fpr[17]) },
2852 { "f18", offsetof(CPUState, fpr[18]) },
2853 { "f19", offsetof(CPUState, fpr[19]) },
2854 { "f20", offsetof(CPUState, fpr[20]) },
2855 { "f21", offsetof(CPUState, fpr[21]) },
2856 { "f22", offsetof(CPUState, fpr[22]) },
2857 { "f23", offsetof(CPUState, fpr[23]) },
2858 { "f24", offsetof(CPUState, fpr[24]) },
2859 { "f25", offsetof(CPUState, fpr[25]) },
2860 { "f26", offsetof(CPUState, fpr[26]) },
2861 { "f27", offsetof(CPUState, fpr[27]) },
2862 { "f28", offsetof(CPUState, fpr[28]) },
2863 { "f29", offsetof(CPUState, fpr[29]) },
2864 { "f30", offsetof(CPUState, fpr[30]) },
2865 { "f31", offsetof(CPUState, fpr[31]) },
7b936c0c
FB		 2866#ifdef TARGET_SPARC64
2867 { "f32", offsetof(CPUState, fpr[32]) },
2868 { "f34", offsetof(CPUState, fpr[34]) },
2869 { "f36", offsetof(CPUState, fpr[36]) },
2870 { "f38", offsetof(CPUState, fpr[38]) },
2871 { "f40", offsetof(CPUState, fpr[40]) },
2872 { "f42", offsetof(CPUState, fpr[42]) },
2873 { "f44", offsetof(CPUState, fpr[44]) },
2874 { "f46", offsetof(CPUState, fpr[46]) },
2875 { "f48", offsetof(CPUState, fpr[48]) },
2876 { "f50", offsetof(CPUState, fpr[50]) },
2877 { "f52", offsetof(CPUState, fpr[52]) },
2878 { "f54", offsetof(CPUState, fpr[54]) },
2879 { "f56", offsetof(CPUState, fpr[56]) },
2880 { "f58", offsetof(CPUState, fpr[58]) },
2881 { "f60", offsetof(CPUState, fpr[60]) },
2882 { "f62", offsetof(CPUState, fpr[62]) },
2883 { "asi", offsetof(CPUState, asi) },
2884 { "pstate", offsetof(CPUState, pstate) },
2885 { "cansave", offsetof(CPUState, cansave) },
2886 { "canrestore", offsetof(CPUState, canrestore) },
2887 { "otherwin", offsetof(CPUState, otherwin) },
2888 { "wstate", offsetof(CPUState, wstate) },
2889 { "cleanwin", offsetof(CPUState, cleanwin) },
2890 { "fprs", offsetof(CPUState, fprs) },
2891#endif
9307c4c1
FB		 2892#endif
2893 { NULL },
2894};
2895
376253ec 2896static void expr_error(Monitor *mon, const char *msg)
9dc39cba 2897{
376253ec 2898 monitor_printf(mon, "%s\n", msg);
9307c4c1
FB		 2899 longjmp(expr_env, 1);
2900}
2901
09b9418c 2902/* return 0 if OK, -1 if not found */
92a31b1f 2903static int get_monitor_def(target_long *pval, const char *name)
9307c4c1 2904{
8662d656 2905 const MonitorDef *md;
92a31b1f
FB		 2906 void *ptr;
2907
9307c4c1
FB		 2908 for(md = monitor_defs; md->name != NULL; md++) {
2909 if (compare_cmd(name, md->name)) {
2910 if (md->get_value) {
e95c8d51 2911 *pval = md->get_value(md, md->offset);
9307c4c1 2912 } else {
6a00d601 2913 CPUState *env = mon_get_cpu();
6a00d601 2914 ptr = (uint8_t *)env + md->offset;
92a31b1f
FB		 2915 switch(md->type) {
2916 case MD_I32:
2917 *pval = *(int32_t *)ptr;
2918 break;
2919 case MD_TLONG:
2920 *pval = *(target_long *)ptr;
2921 break;
2922 default:
2923 *pval = 0;
2924 break;
2925 }
9307c4c1
FB		 2926 }
2927 return 0;
2928 }
2929 }
2930 return -1;
2931}
2932
2933static void next(void)
2934{
660f11be 2935 if (*pch != '\0') {
9307c4c1 2936 pch++;
cd390083 2937 while (qemu_isspace(*pch))
9307c4c1
FB		 2938 pch++;
2939 }
2940}
2941
376253ec 2942static int64_t expr_sum(Monitor *mon);
9307c4c1 2943
376253ec 2944static int64_t expr_unary(Monitor *mon)
9307c4c1 2945{
c2efc95d 2946 int64_t n;
9307c4c1 2947 char *p;
6a00d601 2948 int ret;
9307c4c1
FB		 2949
2950 switch(*pch) {
2951 case '+':
2952 next();
376253ec 2953 n = expr_unary(mon);
9307c4c1
FB		 2954 break;
2955 case '-':
2956 next();
376253ec 2957 n = -expr_unary(mon);
9307c4c1
FB		 2958 break;
2959 case '~':
2960 next();
376253ec 2961 n = ~expr_unary(mon);
9307c4c1
FB		 2962 break;
2963 case '(':
2964 next();
376253ec 2965 n = expr_sum(mon);
9307c4c1 2966 if (*pch != ')') {
376253ec 2967 expr_error(mon, "')' expected");
9307c4c1
FB		 2968 }
2969 next();
2970 break;
81d0912d
FB		 2971 case '\'':
2972 pch++;
2973 if (*pch == '\0')
376253ec 2974 expr_error(mon, "character constant expected");
81d0912d
FB		 2975 n = *pch;
2976 pch++;
2977 if (*pch != '\'')
376253ec 2978 expr_error(mon, "missing terminating \' character");
81d0912d
FB		 2979 next();
2980 break;
9307c4c1
FB		 2981 case '$':
2982 {
2983 char buf[128], *q;
69b34976 2984 target_long reg=0;
3b46e624 2985
9307c4c1
FB		 2986 pch++;
2987 q = buf;
2988 while ((*pch >= 'a' && *pch <= 'z') ||
2989 (*pch >= 'A' && *pch <= 'Z') ||
2990 (*pch >= '0' && *pch <= '9') ||
57206fd4 2991 *pch == '_' || *pch == '.') {
9307c4c1
FB		 2992 if ((q - buf) < sizeof(buf) - 1)
2993 *q++ = *pch;
2994 pch++;
2995 }
cd390083 2996 while (qemu_isspace(*pch))
9307c4c1
FB		 2997 pch++;
2998 *q = 0;
7743e588 2999 ret = get_monitor_def(&reg, buf);
09b9418c 3000 if (ret < 0)
376253ec 3001 expr_error(mon, "unknown register");
7743e588 3002 n = reg;
9307c4c1
FB		 3003 }
3004 break;
3005 case '\0':
376253ec 3006 expr_error(mon, "unexpected end of expression");
9307c4c1
FB		 3007 n = 0;
3008 break;
3009 default:
7743e588 3010#if TARGET_PHYS_ADDR_BITS > 32
4f4fbf77
FB		 3011 n = strtoull(pch, &p, 0);
3012#else
9307c4c1 3013 n = strtoul(pch, &p, 0);
4f4fbf77 3014#endif
9307c4c1 3015 if (pch == p) {
376253ec 3016 expr_error(mon, "invalid char in expression");
9307c4c1
FB		 3017 }
3018 pch = p;
cd390083 3019 while (qemu_isspace(*pch))
9307c4c1
FB		 3020 pch++;
3021 break;
3022 }
3023 return n;
3024}
3025
3026
376253ec 3027static int64_t expr_prod(Monitor *mon)
9307c4c1 3028{
c2efc95d 3029 int64_t val, val2;
92a31b1f 3030 int op;
3b46e624 3031
376253ec 3032 val = expr_unary(mon);
9307c4c1
FB		 3033 for(;;) {
3034 op = *pch;
3035 if (op != '*' && op != '/' && op != '%')
3036 break;
3037 next();
376253ec 3038 val2 = expr_unary(mon);
9307c4c1
FB		 3039 switch(op) {
3040 default:
3041 case '*':
3042 val *= val2;
3043 break;
3044 case '/':
3045 case '%':
5fafdf24 3046 if (val2 == 0)
376253ec 3047 expr_error(mon, "division by zero");
9307c4c1
FB		 3048 if (op == '/')
3049 val /= val2;
3050 else
3051 val %= val2;
3052 break;
3053 }
3054 }
3055 return val;
3056}
3057
376253ec 3058static int64_t expr_logic(Monitor *mon)
9307c4c1 3059{
c2efc95d 3060 int64_t val, val2;
92a31b1f 3061 int op;
9307c4c1 3062
376253ec 3063 val = expr_prod(mon);
9307c4c1
FB		 3064 for(;;) {
3065 op = *pch;
3066 if (op != '&' && op != '|' && op != '^')
3067 break;
3068 next();
376253ec 3069 val2 = expr_prod(mon);
9307c4c1
FB		 3070 switch(op) {
3071 default:
3072 case '&':
3073 val &= val2;
3074 break;
3075 case '|':
3076 val |= val2;
3077 break;
3078 case '^':
3079 val ^= val2;
3080 break;
3081 }
3082 }
3083 return val;
3084}
3085
376253ec 3086static int64_t expr_sum(Monitor *mon)
9307c4c1 3087{
c2efc95d 3088 int64_t val, val2;
92a31b1f 3089 int op;
9307c4c1 3090
376253ec 3091 val = expr_logic(mon);
9307c4c1
FB		 3092 for(;;) {
3093 op = *pch;
3094 if (op != '+' && op != '-')
3095 break;
3096 next();
376253ec 3097 val2 = expr_logic(mon);
9307c4c1
FB		 3098 if (op == '+')
3099 val += val2;
3100 else
3101 val -= val2;
3102 }
3103 return val;
3104}
3105
376253ec 3106static int get_expr(Monitor *mon, int64_t *pval, const char **pp)
9307c4c1
FB		 3107{
3108 pch = *pp;
3109 if (setjmp(expr_env)) {
3110 *pp = pch;
3111 return -1;
3112 }
cd390083 3113 while (qemu_isspace(*pch))
9307c4c1 3114 pch++;
376253ec 3115 *pval = expr_sum(mon);
9307c4c1
FB		 3116 *pp = pch;
3117 return 0;
3118}
3119
3350a4dd
MA		 3120static int get_double(Monitor *mon, double *pval, const char **pp)
3121{
3122 const char *p = *pp;
3123 char *tailp;
3124 double d;
3125
3126 d = strtod(p, &tailp);
3127 if (tailp == p) {
3128 monitor_printf(mon, "Number expected\n");
3129 return -1;
3130 }
3131 if (d != d || d - d != 0) {
3132 /* NaN or infinity */
3133 monitor_printf(mon, "Bad number\n");
3134 return -1;
3135 }
3136 *pval = d;
3137 *pp = tailp;
3138 return 0;
3139}
3140
9307c4c1
FB		 3141static int get_str(char *buf, int buf_size, const char **pp)
3142{
3143 const char *p;
3144 char *q;
3145 int c;
3146
81d0912d 3147 q = buf;
9307c4c1 3148 p = *pp;
cd390083 3149 while (qemu_isspace(*p))
9307c4c1
FB		 3150 p++;
3151 if (*p == '\0') {
3152 fail:
81d0912d 3153 *q = '\0';
9307c4c1
FB		 3154 *pp = p;
3155 return -1;
3156 }
9307c4c1
FB		 3157 if (*p == '\"') {
3158 p++;
3159 while (*p != '\0' && *p != '\"') {
3160 if (*p == '\\') {
3161 p++;
3162 c = *p++;
3163 switch(c) {
3164 case 'n':
3165 c = '\n';
3166 break;
3167 case 'r':
3168 c = '\r';
3169 break;
3170 case '\\':
3171 case '\'':
3172 case '\"':
3173 break;
3174 default:
3175 qemu_printf("unsupported escape code: '\\%c'\n", c);
3176 goto fail;
3177 }
3178 if ((q - buf) < buf_size - 1) {
3179 *q++ = c;
3180 }
3181 } else {
3182 if ((q - buf) < buf_size - 1) {
3183 *q++ = *p;
3184 }
3185 p++;
3186 }
3187 }
3188 if (*p != '\"') {
5b60212f 3189 qemu_printf("unterminated string\n");
9307c4c1
FB		 3190 goto fail;
3191 }
3192 p++;
3193 } else {
cd390083 3194 while (*p != '\0' && !qemu_isspace(*p)) {
9307c4c1
FB		 3195 if ((q - buf) < buf_size - 1) {
3196 *q++ = *p;
3197 }
3198 p++;
3199 }
9307c4c1 3200 }
81d0912d 3201 *q = '\0';
9307c4c1
FB		 3202 *pp = p;
3203 return 0;
3204}
3205
4590fd80
LC		 3206/*
3207 * Store the command-name in cmdname, and return a pointer to
3208 * the remaining of the command string.
3209 */
3210static const char *get_command_name(const char *cmdline,
3211 char *cmdname, size_t nlen)
3212{
3213 size_t len;
3214 const char *p, *pstart;
3215
3216 p = cmdline;
3217 while (qemu_isspace(*p))
3218 p++;
3219 if (*p == '\0')
3220 return NULL;
3221 pstart = p;
3222 while (*p != '\0' && *p != '/' && !qemu_isspace(*p))
3223 p++;
3224 len = p - pstart;
3225 if (len > nlen - 1)
3226 len = nlen - 1;
3227 memcpy(cmdname, pstart, len);
3228 cmdname[len] = '\0';
3229 return p;
3230}
3231
4d76d2ba
LC		 3232/**
3233 * Read key of 'type' into 'key' and return the current
3234 * 'type' pointer.
3235 */
3236static char *key_get_info(const char *type, char **key)
3237{
3238 size_t len;
3239 char *p, *str;
3240
3241 if (*type == ',')
3242 type++;
3243
3244 p = strchr(type, ':');
3245 if (!p) {
3246 *key = NULL;
3247 return NULL;
3248 }
3249 len = p - type;
3250
3251 str = qemu_malloc(len + 1);
3252 memcpy(str, type, len);
3253 str[len] = '\0';
3254
3255 *key = str;
3256 return ++p;
3257}
3258
9307c4c1
FB		 3259static int default_fmt_format = 'x';
3260static int default_fmt_size = 4;
3261
3262#define MAX_ARGS 16
3263
fbc3d96c 3264static int is_valid_option(const char *c, const char *typestr)
3265{
3266 char option[3];
3267
3268 option[0] = '-';
3269 option[1] = *c;
3270 option[2] = '\0';
3271
3272 typestr = strstr(typestr, option);
3273 return (typestr != NULL);
3274}
3275
7fd669a1
LC		 3276static const mon_cmd_t *monitor_find_command(const char *cmdname)
3277{
3278 const mon_cmd_t *cmd;
3279
3280 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
3281 if (compare_cmd(cmdname, cmd->name)) {
3282 return cmd;
3283 }
3284 }
3285
3286 return NULL;
3287}
3288
c227f099 3289static const mon_cmd_t *monitor_parse_command(Monitor *mon,
55f81d96 3290 const char *cmdline,
55f81d96 3291 QDict *qdict)
9307c4c1 3292{
4590fd80 3293 const char *p, *typestr;
53773581 3294 int c;
c227f099 3295 const mon_cmd_t *cmd;
9307c4c1
FB		 3296 char cmdname[256];
3297 char buf[1024];
4d76d2ba 3298 char *key;
9dc39cba
FB		 3299
3300#ifdef DEBUG
376253ec 3301 monitor_printf(mon, "command='%s'\n", cmdline);
9dc39cba 3302#endif
3b46e624 3303
9307c4c1 3304 /* extract the command name */
4590fd80
LC		 3305 p = get_command_name(cmdline, cmdname, sizeof(cmdname));
3306 if (!p)
55f81d96 3307 return NULL;
3b46e624 3308
7fd669a1
LC		 3309 cmd = monitor_find_command(cmdname);
3310 if (!cmd) {
d91d9bf6 3311 monitor_printf(mon, "unknown command: '%s'\n", cmdname);
55f81d96 3312 return NULL;
9307c4c1 3313 }
9307c4c1 3314
9307c4c1
FB		 3315 /* parse the parameters */
3316 typestr = cmd->args_type;
9dc39cba 3317 for(;;) {
4d76d2ba
LC		 3318 typestr = key_get_info(typestr, &key);
3319 if (!typestr)
9dc39cba 3320 break;
4d76d2ba 3321 c = *typestr;
9307c4c1
FB		 3322 typestr++;
3323 switch(c) {
3324 case 'F':
81d0912d 3325 case 'B':
9307c4c1
FB		 3326 case 's':
3327 {
3328 int ret;
3b46e624 3329
cd390083 3330 while (qemu_isspace(*p))
9307c4c1
FB		 3331 p++;
3332 if (*typestr == '?') {
3333 typestr++;
3334 if (*p == '\0') {
3335 /* no optional string: NULL argument */
53773581 3336 break;
9307c4c1
FB		 3337 }
3338 }
3339 ret = get_str(buf, sizeof(buf), &p);
3340 if (ret < 0) {
81d0912d
FB		 3341 switch(c) {
3342 case 'F':
376253ec
AL		 3343 monitor_printf(mon, "%s: filename expected\n",
3344 cmdname);
81d0912d
FB		 3345 break;
3346 case 'B':
376253ec
AL		 3347 monitor_printf(mon, "%s: block device name expected\n",
3348 cmdname);
81d0912d
FB		 3349 break;
3350 default:
376253ec 3351 monitor_printf(mon, "%s: string expected\n", cmdname);
81d0912d
FB		 3352 break;
3353 }
9307c4c1
FB		 3354 goto fail;
3355 }
53773581 3356 qdict_put(qdict, key, qstring_from_str(buf));
9307c4c1 3357 }
9dc39cba 3358 break;
361127df
MA		 3359 case 'O':
3360 {
3361 QemuOptsList *opts_list;
3362 QemuOpts *opts;
3363
3364 opts_list = qemu_find_opts(key);
3365 if (!opts_list || opts_list->desc->name) {
3366 goto bad_type;
3367 }
3368 while (qemu_isspace(*p)) {
3369 p++;
3370 }
3371 if (!*p)
3372 break;
3373 if (get_str(buf, sizeof(buf), &p) < 0) {
3374 goto fail;
3375 }
3376 opts = qemu_opts_parse(opts_list, buf, 1);
3377 if (!opts) {
3378 goto fail;
3379 }
3380 qemu_opts_to_qdict(opts, qdict);
3381 qemu_opts_del(opts);
3382 }
3383 break;
9307c4c1
FB		 3384 case '/':
3385 {
3386 int count, format, size;
3b46e624 3387
cd390083 3388 while (qemu_isspace(*p))
9307c4c1
FB		 3389 p++;
3390 if (*p == '/') {
3391 /* format found */
3392 p++;
3393 count = 1;
cd390083 3394 if (qemu_isdigit(*p)) {
9307c4c1 3395 count = 0;
cd390083 3396 while (qemu_isdigit(*p)) {
9307c4c1
FB		 3397 count = count * 10 + (*p - '0');
3398 p++;
3399 }
3400 }
3401 size = -1;
3402 format = -1;
3403 for(;;) {
3404 switch(*p) {
3405 case 'o':
3406 case 'd':
3407 case 'u':
3408 case 'x':
3409 case 'i':
3410 case 'c':
3411 format = *p++;
3412 break;
3413 case 'b':
3414 size = 1;
3415 p++;
3416 break;
3417 case 'h':
3418 size = 2;
3419 p++;
3420 break;
3421 case 'w':
3422 size = 4;
3423 p++;
3424 break;
3425 case 'g':
3426 case 'L':
3427 size = 8;
3428 p++;
3429 break;
3430 default:
3431 goto next;
3432 }
3433 }
3434 next:
cd390083 3435 if (*p != '\0' && !qemu_isspace(*p)) {
376253ec
AL		 3436 monitor_printf(mon, "invalid char in format: '%c'\n",
3437 *p);
9307c4c1
FB		 3438 goto fail;
3439 }
9307c4c1
FB		 3440 if (format < 0)
3441 format = default_fmt_format;
4c27ba27
FB		 3442 if (format != 'i') {
3443 /* for 'i', not specifying a size gives -1 as size */
3444 if (size < 0)
3445 size = default_fmt_size;
e90f009b 3446 default_fmt_size = size;
4c27ba27 3447 }
9307c4c1
FB		 3448 default_fmt_format = format;
3449 } else {
3450 count = 1;
3451 format = default_fmt_format;
4c27ba27
FB		 3452 if (format != 'i') {
3453 size = default_fmt_size;
3454 } else {
3455 size = -1;
3456 }
9307c4c1 3457 }
f7188bbe
LC		 3458 qdict_put(qdict, "count", qint_from_int(count));
3459 qdict_put(qdict, "format", qint_from_int(format));
3460 qdict_put(qdict, "size", qint_from_int(size));
9307c4c1 3461 }
9dc39cba 3462 break;
9307c4c1 3463 case 'i':
92a31b1f 3464 case 'l':
b6e098d7 3465 case 'M':
9307c4c1 3466 {
c2efc95d 3467 int64_t val;
7743e588 3468
cd390083 3469 while (qemu_isspace(*p))
9307c4c1 3470 p++;
3440557b 3471 if (*typestr == '?' || *typestr == '.') {
3440557b 3472 if (*typestr == '?') {
53773581
LC		 3473 if (*p == '\0') {
3474 typestr++;
3475 break;
3476 }
3440557b
FB		 3477 } else {
3478 if (*p == '.') {
3479 p++;
cd390083 3480 while (qemu_isspace(*p))
3440557b 3481 p++;
3440557b 3482 } else {
53773581
LC		 3483 typestr++;
3484 break;
3440557b
FB		 3485 }
3486 }
13224a87 3487 typestr++;
9307c4c1 3488 }
376253ec 3489 if (get_expr(mon, &val, &p))
9307c4c1 3490 goto fail;
675ebef9
LC		 3491 /* Check if 'i' is greater than 32-bit */
3492 if ((c == 'i') && ((val >> 32) & 0xffffffff)) {
3493 monitor_printf(mon, "\'%s\' has failed: ", cmdname);
3494 monitor_printf(mon, "integer is for 32-bit values\n");
3495 goto fail;
b6e098d7
LC		 3496 } else if (c == 'M') {
3497 val <<= 20;
675ebef9 3498 }
53773581 3499 qdict_put(qdict, key, qint_from_int(val));
9307c4c1
FB		 3500 }
3501 break;
ee9545da 3502 case 'f':
fccfb11e 3503 case 'T':
3350a4dd
MA		 3504 {
3505 double val;
3506
3507 while (qemu_isspace(*p))
3508 p++;
3509 if (*typestr == '?') {
3510 typestr++;
3511 if (*p == '\0') {
3512 break;
3513 }
3514 }
3515 if (get_double(mon, &val, &p) < 0) {
3516 goto fail;
3517 }
ee9545da 3518 if (c == 'f' && *p) {
3350a4dd
MA		 3519 switch (*p) {
3520 case 'K': case 'k':
3521 val *= 1 << 10; p++; break;
3522 case 'M': case 'm':
3523 val *= 1 << 20; p++; break;
3524 case 'G': case 'g':
3525 val *= 1 << 30; p++; break;
3526 }
3527 }
fccfb11e
MA		 3528 if (c == 'T' && p[0] && p[1] == 's') {
3529 switch (*p) {
3530 case 'm':
3531 val /= 1e3; p += 2; break;
3532 case 'u':
3533 val /= 1e6; p += 2; break;
3534 case 'n':
3535 val /= 1e9; p += 2; break;
3536 }
3537 }
3350a4dd
MA		 3538 if (*p && !qemu_isspace(*p)) {
3539 monitor_printf(mon, "Unknown unit suffix\n");
3540 goto fail;
3541 }
3542 qdict_put(qdict, key, qfloat_from_double(val));
3543 }
3544 break;
942cd1f2
MA		 3545 case 'b':
3546 {
3547 const char *beg;
3548 int val;
3549
3550 while (qemu_isspace(*p)) {
3551 p++;
3552 }
3553 beg = p;
3554 while (qemu_isgraph(*p)) {
3555 p++;
3556 }
3557 if (p - beg == 2 && !memcmp(beg, "on", p - beg)) {
3558 val = 1;
3559 } else if (p - beg == 3 && !memcmp(beg, "off", p - beg)) {
3560 val = 0;
3561 } else {
3562 monitor_printf(mon, "Expected 'on' or 'off'\n");
3563 goto fail;
3564 }
3565 qdict_put(qdict, key, qbool_from_int(val));
3566 }
3567 break;
9307c4c1
FB		 3568 case '-':
3569 {
fbc3d96c 3570 const char *tmp = p;
eb159d13 3571 int skip_key = 0;
9307c4c1 3572 /* option */
3b46e624 3573
9307c4c1
FB		 3574 c = *typestr++;
3575 if (c == '\0')
3576 goto bad_type;
cd390083 3577 while (qemu_isspace(*p))
9307c4c1 3578 p++;
9307c4c1
FB		 3579 if (*p == '-') {
3580 p++;
fbc3d96c 3581 if(c != *p) {
3582 if(!is_valid_option(p, typestr)) {
3583
3584 monitor_printf(mon, "%s: unsupported option -%c\n",
3585 cmdname, *p);
3586 goto fail;
3587 } else {
3588 skip_key = 1;
3589 }
3590 }
3591 if(skip_key) {
3592 p = tmp;
3593 } else {
eb159d13 3594 /* has option */
fbc3d96c 3595 p++;
eb159d13 3596 qdict_put(qdict, key, qbool_from_int(1));
9307c4c1 3597 }
9307c4c1 3598 }
9307c4c1
FB		 3599 }
3600 break;
3601 default:
3602 bad_type:
376253ec 3603 monitor_printf(mon, "%s: unknown type '%c'\n", cmdname, c);
9307c4c1
FB		 3604 goto fail;
3605 }
4d76d2ba
LC		 3606 qemu_free(key);
3607 key = NULL;
9dc39cba 3608 }
9307c4c1 3609 /* check that all arguments were parsed */
cd390083 3610 while (qemu_isspace(*p))
9307c4c1
FB		 3611 p++;
3612 if (*p != '\0') {
376253ec
AL		 3613 monitor_printf(mon, "%s: extraneous characters at the end of line\n",
3614 cmdname);
9307c4c1 3615 goto fail;
9dc39cba 3616 }
9307c4c1 3617
55f81d96 3618 return cmd;
ac7531ec 3619
55f81d96 3620fail:
4d76d2ba 3621 qemu_free(key);
55f81d96
LC		 3622 return NULL;
3623}
3624
d6f46833
MA		 3625void monitor_set_error(Monitor *mon, QError *qerror)
3626{
3627 /* report only the first error */
3628 if (!mon->error) {
3629 mon->error = qerror;
3630 } else {
3631 MON_DEBUG("Additional error report at %s:%d\n",
3632 qerror->file, qerror->linenr);
3633 QDECREF(qerror);
3634 }
3635}
3636
940cc30d
AL		 3637static int is_async_return(const QObject *data)
3638{
82617d7c
LC		 3639 if (data && qobject_type(data) == QTYPE_QDICT) {
3640 return qdict_haskey(qobject_to_qdict(data), "__mon_async");
3641 }
3642
3643 return 0;
940cc30d
AL		 3644}
3645
bb89c2e9
LC		 3646static void handler_audit(Monitor *mon, const mon_cmd_t *cmd, int ret)
3647{
cde0fc75
MA		 3648 if (monitor_ctrl_mode(mon)) {
3649 if (ret && !monitor_has_error(mon)) {
3650 /*
3651 * If it returns failure, it must have passed on error.
3652 *
3653 * Action: Report an internal error to the client if in QMP.
3654 */
ab5b027e 3655 qerror_report(QERR_UNDEFINED_ERROR);
cde0fc75
MA		 3656 MON_DEBUG("command '%s' returned failure but did not pass an error\n",
3657 cmd->name);
bb89c2e9 3658 }
bb89c2e9
LC		 3659
3660#ifdef CONFIG_DEBUG_MONITOR
cde0fc75
MA		 3661 if (!ret && monitor_has_error(mon)) {
3662 /*
3663 * If it returns success, it must not have passed an error.
3664 *
3665 * Action: Report the passed error to the client.
3666 */
3667 MON_DEBUG("command '%s' returned success but passed an error\n",
3668 cmd->name);
3669 }
10e4f606 3670
cde0fc75
MA		 3671 if (mon_print_count_get(mon) > 0 && strcmp(cmd->name, "info") != 0) {
3672 /*
3673 * Handlers should not call Monitor print functions.
3674 *
3675 * Action: Ignore them in QMP.
3676 *
3677 * (XXX: we don't check any 'info' or 'query' command here
3678 * because the user print function _is_ called by do_info(), hence
3679 * we will trigger this check. This problem will go away when we
3680 * make 'query' commands real and kill do_info())
3681 */
3682 MON_DEBUG("command '%s' called print functions %d time(s)\n",
3683 cmd->name, mon_print_count_get(mon));
3684 }
bb89c2e9 3685#endif
cde0fc75
MA		 3686 } else {
3687 assert(!monitor_has_error(mon));
3688 QDECREF(mon->error);
3689 mon->error = NULL;
3690 }
bb89c2e9
LC		 3691}
3692
99e2fc16
LC		 3693static void monitor_call_handler(Monitor *mon, const mon_cmd_t *cmd,
3694 const QDict *params)
3695{
bb89c2e9 3696 int ret;
99e2fc16
LC		 3697 QObject *data = NULL;
3698
10e4f606
LC		 3699 mon_print_count_init(mon);
3700
bb89c2e9
LC		 3701 ret = cmd->mhandler.cmd_new(mon, params, &data);
3702 handler_audit(mon, cmd, ret);
25b422eb 3703
940cc30d
AL		 3704 if (is_async_return(data)) {
3705 /*
3706 * Asynchronous commands have no initial return data but they can
3707 * generate errors. Data is returned via the async completion handler.
3708 */
3709 if (monitor_ctrl_mode(mon) && monitor_has_error(mon)) {
3710 monitor_protocol_emitter(mon, NULL);
3711 }
3712 } else if (monitor_ctrl_mode(mon)) {
25b422eb
LC		 3713 /* Monitor Protocol */
3714 monitor_protocol_emitter(mon, data);
3715 } else {
3716 /* User Protocol */
3717 if (data)
3718 cmd->user_print(mon, data);
3719 }
99e2fc16
LC		 3720
3721 qobject_decref(data);
3722}
3723
f3c157c4 3724static void handle_user_command(Monitor *mon, const char *cmdline)
55f81d96 3725{
55f81d96 3726 QDict *qdict;
c227f099 3727 const mon_cmd_t *cmd;
55f81d96
LC		 3728
3729 qdict = qdict_new();
3730
590fb3b7 3731 cmd = monitor_parse_command(mon, cmdline, qdict);
13917bee
LC		 3732 if (!cmd)
3733 goto out;
3734
940cc30d
AL		 3735 if (monitor_handler_is_async(cmd)) {
3736 user_async_cmd_handler(mon, cmd, qdict);
3737 } else if (monitor_handler_ported(cmd)) {
99e2fc16 3738 monitor_call_handler(mon, cmd, qdict);
13917bee 3739 } else {
af4ce882 3740 cmd->mhandler.cmd(mon, qdict);
55f81d96
LC		 3741 }
3742
13917bee 3743out:
f7188bbe 3744 QDECREF(qdict);
9dc39cba
FB		 3745}
3746
81d0912d
FB		 3747static void cmd_completion(const char *name, const char *list)
3748{
3749 const char *p, *pstart;
3750 char cmd[128];
3751 int len;
3752
3753 p = list;
3754 for(;;) {
3755 pstart = p;
3756 p = strchr(p, '|');
3757 if (!p)
3758 p = pstart + strlen(pstart);
3759 len = p - pstart;
3760 if (len > sizeof(cmd) - 2)
3761 len = sizeof(cmd) - 2;
3762 memcpy(cmd, pstart, len);
3763 cmd[len] = '\0';
3764 if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
731b0364 3765 readline_add_completion(cur_mon->rs, cmd);
81d0912d
FB		 3766 }
3767 if (*p == '\0')
3768 break;
3769 p++;
3770 }
3771}
3772
3773static void file_completion(const char *input)
3774{
3775 DIR *ffs;
3776 struct dirent *d;
3777 char path[1024];
3778 char file[1024], file_prefix[1024];
3779 int input_path_len;
3780 const char *p;
3781
5fafdf24 3782 p = strrchr(input, '/');
81d0912d
FB		 3783 if (!p) {
3784 input_path_len = 0;
3785 pstrcpy(file_prefix, sizeof(file_prefix), input);
363a37d5 3786 pstrcpy(path, sizeof(path), ".");
81d0912d
FB		 3787 } else {
3788 input_path_len = p - input + 1;
3789 memcpy(path, input, input_path_len);
3790 if (input_path_len > sizeof(path) - 1)
3791 input_path_len = sizeof(path) - 1;
3792 path[input_path_len] = '\0';
3793 pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
3794 }
3795#ifdef DEBUG_COMPLETION
376253ec
AL		 3796 monitor_printf(cur_mon, "input='%s' path='%s' prefix='%s'\n",
3797 input, path, file_prefix);
81d0912d
FB		 3798#endif
3799 ffs = opendir(path);
3800 if (!ffs)
3801 return;
3802 for(;;) {
3803 struct stat sb;
3804 d = readdir(ffs);
3805 if (!d)
3806 break;
3807 if (strstart(d->d_name, file_prefix, NULL)) {
3808 memcpy(file, input, input_path_len);
363a37d5
BS		 3809 if (input_path_len < sizeof(file))
3810 pstrcpy(file + input_path_len, sizeof(file) - input_path_len,
3811 d->d_name);
81d0912d
FB		 3812 /* stat the file to find out if it's a directory.
3813 * In that case add a slash to speed up typing long paths
3814 */
3815 stat(file, &sb);
3816 if(S_ISDIR(sb.st_mode))
363a37d5 3817 pstrcat(file, sizeof(file), "/");
731b0364 3818 readline_add_completion(cur_mon->rs, file);
81d0912d
FB		 3819 }
3820 }
3821 closedir(ffs);
3822}
3823
51de9760 3824static void block_completion_it(void *opaque, BlockDriverState *bs)
81d0912d 3825{
51de9760 3826 const char *name = bdrv_get_device_name(bs);
81d0912d
FB		 3827 const char *input = opaque;
3828
3829 if (input[0] == '\0' ||
3830 !strncmp(name, (char *)input, strlen(input))) {
731b0364 3831 readline_add_completion(cur_mon->rs, name);
81d0912d
FB		 3832 }
3833}
3834
3835/* NOTE: this parser is an approximate form of the real command parser */
3836static void parse_cmdline(const char *cmdline,
3837 int *pnb_args, char **args)
3838{
3839 const char *p;
3840 int nb_args, ret;
3841 char buf[1024];
3842
3843 p = cmdline;
3844 nb_args = 0;
3845 for(;;) {
cd390083 3846 while (qemu_isspace(*p))
81d0912d
FB		 3847 p++;
3848 if (*p == '\0')
3849 break;
3850 if (nb_args >= MAX_ARGS)
3851 break;
3852 ret = get_str(buf, sizeof(buf), &p);
3853 args[nb_args] = qemu_strdup(buf);
3854 nb_args++;
3855 if (ret < 0)
3856 break;
3857 }
3858 *pnb_args = nb_args;
3859}
3860
4d76d2ba
LC		 3861static const char *next_arg_type(const char *typestr)
3862{
3863 const char *p = strchr(typestr, ':');
3864 return (p != NULL ? ++p : typestr);
3865}
3866
4c36ba32 3867static void monitor_find_completion(const char *cmdline)
81d0912d
FB		 3868{
3869 const char *cmdname;
3870 char *args[MAX_ARGS];
3871 int nb_args, i, len;
3872 const char *ptype, *str;
c227f099 3873 const mon_cmd_t *cmd;
64866c3d 3874 const KeyDef *key;
81d0912d
FB		 3875
3876 parse_cmdline(cmdline, &nb_args, args);
3877#ifdef DEBUG_COMPLETION
3878 for(i = 0; i < nb_args; i++) {
376253ec 3879 monitor_printf(cur_mon, "arg%d = '%s'\n", i, (char *)args[i]);
81d0912d
FB		 3880 }
3881#endif
3882
3883 /* if the line ends with a space, it means we want to complete the
3884 next arg */
3885 len = strlen(cmdline);
cd390083 3886 if (len > 0 && qemu_isspace(cmdline[len - 1])) {
03a63484
JK		 3887 if (nb_args >= MAX_ARGS) {
3888 goto cleanup;
3889 }
81d0912d
FB		 3890 args[nb_args++] = qemu_strdup("");
3891 }
3892 if (nb_args <= 1) {
3893 /* command completion */
3894 if (nb_args == 0)
3895 cmdname = "";
3896 else
3897 cmdname = args[0];
731b0364 3898 readline_set_completion_index(cur_mon->rs, strlen(cmdname));
376253ec 3899 for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
81d0912d
FB		 3900 cmd_completion(cmdname, cmd->name);
3901 }
3902 } else {
3903 /* find the command */
03a63484
JK		 3904 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
3905 if (compare_cmd(args[0], cmd->name)) {
3906 break;
3907 }
81d0912d 3908 }
03a63484
JK		 3909 if (!cmd->name) {
3910 goto cleanup;
3911 }
3912
4d76d2ba 3913 ptype = next_arg_type(cmd->args_type);
81d0912d
FB		 3914 for(i = 0; i < nb_args - 2; i++) {
3915 if (*ptype != '\0') {
4d76d2ba 3916 ptype = next_arg_type(ptype);
81d0912d 3917 while (*ptype == '?')
4d76d2ba 3918 ptype = next_arg_type(ptype);
81d0912d
FB		 3919 }
3920 }
3921 str = args[nb_args - 1];
2a1704a7 3922 if (*ptype == '-' && ptype[1] != '\0') {
3b6dbf27 3923 ptype = next_arg_type(ptype);
2a1704a7 3924 }
81d0912d
FB		 3925 switch(*ptype) {
3926 case 'F':
3927 /* file completion */
731b0364 3928 readline_set_completion_index(cur_mon->rs, strlen(str));
81d0912d
FB		 3929 file_completion(str);
3930 break;
3931 case 'B':
3932 /* block device name completion */
731b0364 3933 readline_set_completion_index(cur_mon->rs, strlen(str));
81d0912d
FB		 3934 bdrv_iterate(block_completion_it, (void *)str);
3935 break;
7fe48483
FB		 3936 case 's':
3937 /* XXX: more generic ? */
3938 if (!strcmp(cmd->name, "info")) {
731b0364 3939 readline_set_completion_index(cur_mon->rs, strlen(str));
7fe48483
FB		 3940 for(cmd = info_cmds; cmd->name != NULL; cmd++) {
3941 cmd_completion(str, cmd->name);
3942 }
64866c3d 3943 } else if (!strcmp(cmd->name, "sendkey")) {
e600d1ef
BS		 3944 char *sep = strrchr(str, '-');
3945 if (sep)
3946 str = sep + 1;
731b0364 3947 readline_set_completion_index(cur_mon->rs, strlen(str));
64866c3d
FB		 3948 for(key = key_defs; key->name != NULL; key++) {
3949 cmd_completion(str, key->name);
3950 }
f3353c6b
JK		 3951 } else if (!strcmp(cmd->name, "help|?")) {
3952 readline_set_completion_index(cur_mon->rs, strlen(str));
3953 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
3954 cmd_completion(str, cmd->name);
3955 }
7fe48483
FB		 3956 }
3957 break;
81d0912d
FB		 3958 default:
3959 break;
3960 }
3961 }
03a63484
JK		 3962
3963cleanup:
3964 for (i = 0; i < nb_args; i++) {
81d0912d 3965 qemu_free(args[i]);
03a63484 3966 }
81d0912d
FB		 3967}
3968
731b0364 3969static int monitor_can_read(void *opaque)
9dc39cba 3970{
731b0364
AL		 3971 Monitor *mon = opaque;
3972
c62313bb 3973 return (mon->suspend_cnt == 0) ? 1 : 0;
9dc39cba
FB		 3974}
3975
09069b19
LC		 3976static int invalid_qmp_mode(const Monitor *mon, const char *cmd_name)
3977{
3978 int is_cap = compare_cmd(cmd_name, "qmp_capabilities");
3979 return (qmp_cmd_mode(mon) ? is_cap : !is_cap);
3980}
3981
4af9193a
LC		 3982/*
3983 * Argument validation rules:
3984 *
3985 * 1. The argument must exist in cmd_args qdict
3986 * 2. The argument type must be the expected one
3987 *
3988 * Special case: If the argument doesn't exist in cmd_args and
3989 * the QMP_ACCEPT_UNKNOWNS flag is set, then the
3990 * checking is skipped for it.
3991 */
3992static int check_client_args_type(const QDict *client_args,
3993 const QDict *cmd_args, int flags)
3994{
3995 const QDictEntry *ent;
3996
3997 for (ent = qdict_first(client_args); ent;ent = qdict_next(client_args,ent)){
3998 QObject *obj;
3999 QString *arg_type;
4000 const QObject *client_arg = qdict_entry_value(ent);
4001 const char *client_arg_name = qdict_entry_key(ent);
4002
4003 obj = qdict_get(cmd_args, client_arg_name);
4004 if (!obj) {
4005 if (flags & QMP_ACCEPT_UNKNOWNS) {
4006 /* handler accepts unknowns */
4007 continue;
4008 }
4009 /* client arg doesn't exist */
4010 qerror_report(QERR_INVALID_PARAMETER, client_arg_name);
4011 return -1;
4012 }
4013
4014 arg_type = qobject_to_qstring(obj);
4015 assert(arg_type != NULL);
4016
4017 /* check if argument's type is correct */
4018 switch (qstring_get_str(arg_type)[0]) {
4019 case 'F':
4020 case 'B':
4021 case 's':
4022 if (qobject_type(client_arg) != QTYPE_QSTRING) {
4023 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4024 "string");
4025 return -1;
4026 }
4027 break;
4028 case 'i':
4029 case 'l':
4030 case 'M':
4031 if (qobject_type(client_arg) != QTYPE_QINT) {
4032 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4033 "int");
4034 return -1;
4035 }
4036 break;
4037 case 'f':
4038 case 'T':
4039 if (qobject_type(client_arg) != QTYPE_QINT &&
4040 qobject_type(client_arg) != QTYPE_QFLOAT) {
4041 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4042 "number");
4043 return -1;
4044 }
4045 break;
4046 case 'b':
4047 case '-':
4048 if (qobject_type(client_arg) != QTYPE_QBOOL) {
4049 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4050 "bool");
4051 return -1;
4052 }
4053 break;
4054 case 'O':
4055 assert(flags & QMP_ACCEPT_UNKNOWNS);
4056 break;
4057 case '/':
4058 case '.':
4059 /*
4060 * These types are not supported by QMP and thus are not
4061 * handled here. Fall through.
4062 */
4063 default:
4064 abort();
4065 }
4066 }
4067
4068 return 0;
4069}
4070
2dbc8db0
LC		 4071/*
4072 * - Check if the client has passed all mandatory args
4073 * - Set special flags for argument validation
4074 */
4075static int check_mandatory_args(const QDict *cmd_args,
4076 const QDict *client_args, int *flags)
4077{
4078 const QDictEntry *ent;
4079
4080 for (ent = qdict_first(cmd_args); ent; ent = qdict_next(cmd_args, ent)) {
4081 const char *cmd_arg_name = qdict_entry_key(ent);
4082 QString *type = qobject_to_qstring(qdict_entry_value(ent));
4083 assert(type != NULL);
4084
4085 if (qstring_get_str(type)[0] == 'O') {
4086 assert((*flags & QMP_ACCEPT_UNKNOWNS) == 0);
4087 *flags |= QMP_ACCEPT_UNKNOWNS;
4088 } else if (qstring_get_str(type)[0] != '-' &&
4089 qstring_get_str(type)[1] != '?' &&
4090 !qdict_haskey(client_args, cmd_arg_name)) {
4091 qerror_report(QERR_MISSING_PARAMETER, cmd_arg_name);
4092 return -1;
4093 }
4094 }
4095
4096 return 0;
4097}
4098
4099static QDict *qdict_from_args_type(const char *args_type)
4100{
4101 int i;
4102 QDict *qdict;
4103 QString *key, *type, *cur_qs;
4104
4105 assert(args_type != NULL);
4106
4107 qdict = qdict_new();
4108
4109 if (args_type == NULL || args_type[0] == '\0') {
4110 /* no args, empty qdict */
4111 goto out;
4112 }
4113
4114 key = qstring_new();
4115 type = qstring_new();
4116
4117 cur_qs = key;
4118
4119 for (i = 0;; i++) {
4120 switch (args_type[i]) {
4121 case ',':
4122 case '\0':
4123 qdict_put(qdict, qstring_get_str(key), type);
4124 QDECREF(key);
4125 if (args_type[i] == '\0') {
4126 goto out;
4127 }
4128 type = qstring_new(); /* qdict has ref */
4129 cur_qs = key = qstring_new();
4130 break;
4131 case ':':
4132 cur_qs = type;
4133 break;
4134 default:
4135 qstring_append_chr(cur_qs, args_type[i]);
4136 break;
4137 }
4138 }
4139
4140out:
4141 return qdict;
4142}
4143
4144/*
4145 * Client argument checking rules:
4146 *
4147 * 1. Client must provide all mandatory arguments
4af9193a
LC		 4148 * 2. Each argument provided by the client must be expected
4149 * 3. Each argument provided by the client must have the type expected
4150 * by the command
2dbc8db0
LC		 4151 */
4152static int qmp_check_client_args(const mon_cmd_t *cmd, QDict *client_args)
4153{
4154 int flags, err;
4155 QDict *cmd_args;
4156
4157 cmd_args = qdict_from_args_type(cmd->args_type);
4158
4159 flags = 0;
4160 err = check_mandatory_args(cmd_args, client_args, &flags);
4161 if (err) {
4162 goto out;
4163 }
4164
4af9193a 4165 err = check_client_args_type(client_args, cmd_args, flags);
2dbc8db0
LC		 4166
4167out:
4168 QDECREF(cmd_args);
4169 return err;
4170}
4171
5fa737a4
LC		 4172static void handle_qmp_command(JSONMessageParser *parser, QList *tokens)
4173{
4174 int err;
4175 QObject *obj;
4176 QDict *input, *args;
5fa737a4
LC		 4177 const mon_cmd_t *cmd;
4178 Monitor *mon = cur_mon;
5e23f480 4179 const char *cmd_name, *info_item;
5fa737a4
LC		 4180
4181 args = NULL;
5fa737a4
LC		 4182
4183 obj = json_parser_parse(tokens, NULL);
4184 if (!obj) {
4185 // FIXME: should be triggered in json_parser_parse()
ab5b027e 4186 qerror_report(QERR_JSON_PARSING);
5fa737a4
LC		 4187 goto err_out;
4188 } else if (qobject_type(obj) != QTYPE_QDICT) {
ab5b027e 4189 qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "object");
5fa737a4
LC		 4190 qobject_decref(obj);
4191 goto err_out;
4192 }
4193
4194 input = qobject_to_qdict(obj);
4195
4196 mon->mc->id = qdict_get(input, "id");
4197 qobject_incref(mon->mc->id);
4198
4199 obj = qdict_get(input, "execute");
4200 if (!obj) {
ab5b027e 4201 qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "execute");
5fa737a4
LC		 4202 goto err_input;
4203 } else if (qobject_type(obj) != QTYPE_QSTRING) {
88f7db84 4204 qerror_report(QERR_QMP_BAD_INPUT_OBJECT_MEMBER, "execute", "string");
5fa737a4
LC		 4205 goto err_input;
4206 }
4207
4208 cmd_name = qstring_get_str(qobject_to_qstring(obj));
5e23f480 4209
09069b19 4210 if (invalid_qmp_mode(mon, cmd_name)) {
ab5b027e 4211 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
09069b19
LC		 4212 goto err_input;
4213 }
4214
5e23f480
LC		 4215 /*
4216 * XXX: We need this special case until we get info handlers
4217 * converted into 'query-' commands
4218 */
4219 if (compare_cmd(cmd_name, "info")) {
ab5b027e 4220 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
5fa737a4 4221 goto err_input;
5e23f480
LC		 4222 } else if (strstart(cmd_name, "query-", &info_item)) {
4223 cmd = monitor_find_command("info");
4224 qdict_put_obj(input, "arguments",
4225 qobject_from_jsonf("{ 'item': %s }", info_item));
4226 } else {
4227 cmd = monitor_find_command(cmd_name);
43e713ce 4228 if (!cmd || !monitor_handler_ported(cmd)) {
ab5b027e 4229 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
5e23f480
LC		 4230 goto err_input;
4231 }
5fa737a4
LC		 4232 }
4233
4234 obj = qdict_get(input, "arguments");
4235 if (!obj) {
4236 args = qdict_new();
04f8c053
LC		 4237 } else if (qobject_type(obj) != QTYPE_QDICT) {
4238 qerror_report(QERR_QMP_BAD_INPUT_OBJECT_MEMBER, "arguments", "object");
4239 goto err_input;
5fa737a4
LC		 4240 } else {
4241 args = qobject_to_qdict(obj);
4242 QINCREF(args);
4243 }
4244
4245 QDECREF(input);
4246
2dbc8db0
LC		 4247 err = qmp_check_client_args(cmd, args);
4248 if (err < 0) {
4249 goto err_out;
4250 }
4251
940cc30d 4252 if (monitor_handler_is_async(cmd)) {
5af7bbae
LC		 4253 err = qmp_async_cmd_handler(mon, cmd, args);
4254 if (err) {
4255 /* emit the error response */
4256 goto err_out;
4257 }
940cc30d
AL		 4258 } else {
4259 monitor_call_handler(mon, cmd, args);
4260 }
5fa737a4
LC		 4261 goto out;
4262
4263err_input:
4264 QDECREF(input);
4265err_out:
4266 monitor_protocol_emitter(mon, NULL);
4267out:
4268 QDECREF(args);
5fa737a4
LC		 4269}
4270
9b57c02e
LC		 4271/**
4272 * monitor_control_read(): Read and handle QMP input
4273 */
4274static void monitor_control_read(void *opaque, const uint8_t *buf, int size)
4275{
4276 Monitor *old_mon = cur_mon;
4277
4278 cur_mon = opaque;
4279
5fa737a4 4280 json_message_parser_feed(&cur_mon->mc->parser, (const char *) buf, size);
9b57c02e
LC		 4281
4282 cur_mon = old_mon;
4283}
4284
731b0364 4285static void monitor_read(void *opaque, const uint8_t *buf, int size)
9dc39cba 4286{
731b0364 4287 Monitor *old_mon = cur_mon;
7e2515e8 4288 int i;
376253ec 4289
731b0364
AL		 4290 cur_mon = opaque;
4291
cde76ee1
AL		 4292 if (cur_mon->rs) {
4293 for (i = 0; i < size; i++)
4294 readline_handle_byte(cur_mon->rs, buf[i]);
4295 } else {
4296 if (size == 0 || buf[size - 1] != 0)
4297 monitor_printf(cur_mon, "corrupted command\n");
4298 else
f3c157c4 4299 handle_user_command(cur_mon, (char *)buf);
cde76ee1 4300 }
9dc39cba 4301
731b0364
AL		 4302 cur_mon = old_mon;
4303}
d8f44609 4304
376253ec 4305static void monitor_command_cb(Monitor *mon, const char *cmdline, void *opaque)
aa455485 4306{
731b0364 4307 monitor_suspend(mon);
f3c157c4 4308 handle_user_command(mon, cmdline);
731b0364 4309 monitor_resume(mon);
d8f44609
AL		 4310}
4311
cde76ee1 4312int monitor_suspend(Monitor *mon)
d8f44609 4313{
cde76ee1
AL		 4314 if (!mon->rs)
4315 return -ENOTTY;
731b0364 4316 mon->suspend_cnt++;
cde76ee1 4317 return 0;
d8f44609
AL		 4318}
4319
376253ec 4320void monitor_resume(Monitor *mon)
d8f44609 4321{
cde76ee1
AL		 4322 if (!mon->rs)
4323 return;
731b0364
AL		 4324 if (--mon->suspend_cnt == 0)
4325 readline_show_prompt(mon->rs);
aa455485
FB		 4326}
4327
ca9567e2
LC		 4328static QObject *get_qmp_greeting(void)
4329{
4330 QObject *ver;
4331
4332 do_info_version(NULL, &ver);
4333 return qobject_from_jsonf("{'QMP':{'version': %p,'capabilities': []}}",ver);
4334}
4335
9b57c02e
LC		 4336/**
4337 * monitor_control_event(): Print QMP gretting
4338 */
4339static void monitor_control_event(void *opaque, int event)
4340{
47116d1c
LC		 4341 QObject *data;
4342 Monitor *mon = opaque;
9b57c02e 4343
47116d1c
LC		 4344 switch (event) {
4345 case CHR_EVENT_OPENED:
4a7e1190 4346 mon->mc->command_mode = 0;
5fa737a4 4347 json_message_parser_init(&mon->mc->parser, handle_qmp_command);
ca9567e2 4348 data = get_qmp_greeting();
9b57c02e
LC		 4349 monitor_json_emitter(mon, data);
4350 qobject_decref(data);
47116d1c
LC		 4351 break;
4352 case CHR_EVENT_CLOSED:
4353 json_message_parser_destroy(&mon->mc->parser);
4354 break;
9b57c02e
LC		 4355 }
4356}
4357
731b0364 4358static void monitor_event(void *opaque, int event)
86e94dea 4359{
376253ec
AL		 4360 Monitor *mon = opaque;
4361
2724b180
AL		 4362 switch (event) {
4363 case CHR_EVENT_MUX_IN:
a7aec5da
GH		 4364 mon->mux_out = 0;
4365 if (mon->reset_seen) {
4366 readline_restart(mon->rs);
4367 monitor_resume(mon);
4368 monitor_flush(mon);
4369 } else {
4370 mon->suspend_cnt = 0;
4371 }
2724b180
AL		 4372 break;
4373
4374 case CHR_EVENT_MUX_OUT:
a7aec5da
GH		 4375 if (mon->reset_seen) {
4376 if (mon->suspend_cnt == 0) {
4377 monitor_printf(mon, "\n");
4378 }
4379 monitor_flush(mon);
4380 monitor_suspend(mon);
4381 } else {
4382 mon->suspend_cnt++;
4383 }
4384 mon->mux_out = 1;
2724b180 4385 break;
86e94dea 4386
b6b8df56 4387 case CHR_EVENT_OPENED:
2724b180
AL		 4388 monitor_printf(mon, "QEMU %s monitor - type 'help' for more "
4389 "information\n", QEMU_VERSION);
a7aec5da 4390 if (!mon->mux_out) {
2724b180 4391 readline_show_prompt(mon->rs);
a7aec5da
GH		 4392 }
4393 mon->reset_seen = 1;
2724b180
AL		 4394 break;
4395 }
86e94dea
TS		 4396}
4397
76655d6d
AL		 4398
4399/*
4400 * Local variables:
4401 * c-indent-level: 4
4402 * c-basic-offset: 4
4403 * tab-width: 8
4404 * End:
4405 */
4406
731b0364 4407void monitor_init(CharDriverState *chr, int flags)
aa455485 4408{
731b0364 4409 static int is_first_init = 1;
87127161 4410 Monitor *mon;
20d8a3ed
TS		 4411
4412 if (is_first_init) {
c8256f9d 4413 key_timer = qemu_new_timer(vm_clock, release_keys, NULL);
20d8a3ed
TS		 4414 is_first_init = 0;
4415 }
87127161
AL		 4416
4417 mon = qemu_mallocz(sizeof(*mon));
20d8a3ed 4418
87127161 4419 mon->chr = chr;
731b0364 4420 mon->flags = flags;
cde76ee1
AL		 4421 if (flags & MONITOR_USE_READLINE) {
4422 mon->rs = readline_init(mon, monitor_find_completion);
4423 monitor_read_command(mon, 0);
4424 }
87127161 4425
9b57c02e 4426 if (monitor_ctrl_mode(mon)) {
5fa737a4 4427 mon->mc = qemu_mallocz(sizeof(MonitorControl));
9b57c02e
LC		 4428 /* Control mode requires special handlers */
4429 qemu_chr_add_handlers(chr, monitor_can_read, monitor_control_read,
4430 monitor_control_event, mon);
4431 } else {
4432 qemu_chr_add_handlers(chr, monitor_can_read, monitor_read,
4433 monitor_event, mon);
4434 }
87127161 4435
72cf2d4f 4436 QLIST_INSERT_HEAD(&mon_list, mon, entry);
8631b608
MA		 4437 if (!default_mon || (flags & MONITOR_IS_DEFAULT))
4438 default_mon = mon;
aa455485
FB		 4439}
4440
376253ec 4441static void bdrv_password_cb(Monitor *mon, const char *password, void *opaque)
81d0912d 4442{
bb5fc20f
AL		 4443 BlockDriverState *bs = opaque;
4444 int ret = 0;
81d0912d 4445
bb5fc20f 4446 if (bdrv_set_key(bs, password) != 0) {
376253ec 4447 monitor_printf(mon, "invalid password\n");
bb5fc20f 4448 ret = -EPERM;
9dc39cba 4449 }
731b0364
AL		 4450 if (mon->password_completion_cb)
4451 mon->password_completion_cb(mon->password_opaque, ret);
bb5fc20f 4452
731b0364 4453 monitor_read_command(mon, 1);
9dc39cba 4454}
c0f4ce77 4455
0bbc47bb
LC		 4456int monitor_read_bdrv_key_start(Monitor *mon, BlockDriverState *bs,
4457 BlockDriverCompletionFunc *completion_cb,
4458 void *opaque)
c0f4ce77 4459{
cde76ee1
AL		 4460 int err;
4461
bb5fc20f
AL		 4462 if (!bdrv_key_required(bs)) {
4463 if (completion_cb)
4464 completion_cb(opaque, 0);
0bbc47bb 4465 return 0;
bb5fc20f 4466 }
c0f4ce77 4467
94171e11 4468 if (monitor_ctrl_mode(mon)) {
ab5b027e 4469 qerror_report(QERR_DEVICE_ENCRYPTED, bdrv_get_device_name(bs));
0bbc47bb 4470 return -1;
94171e11
LC		 4471 }
4472
376253ec
AL		 4473 monitor_printf(mon, "%s (%s) is encrypted.\n", bdrv_get_device_name(bs),
4474 bdrv_get_encrypted_filename(bs));
bb5fc20f 4475
731b0364
AL		 4476 mon->password_completion_cb = completion_cb;
4477 mon->password_opaque = opaque;
bb5fc20f 4478
cde76ee1
AL		 4479 err = monitor_read_password(mon, bdrv_password_cb, bs);
4480
4481 if (err && completion_cb)
4482 completion_cb(opaque, err);
0bbc47bb
LC		 4483
4484 return err;
c0f4ce77 4485}
Qemu copy for testing