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