]> git.proxmox.com Git - qemu.git/blame - monitor.c
fw_cfg: Splash image loader can overrun a stack variable, fix
[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"
a2cb15b0 30#include "hw/pci/pci.h"
9dd986cc 31#include "hw/watchdog.h"
45a50b16 32#include "hw/loader.h"
022c62cb 33#include "exec/gdbstub.h"
1422e32d 34#include "net/net.h"
68ac40d2 35#include "net/slirp.h"
927d4878 36#include "char/char.h"
7572150c 37#include "ui/qemu-spice.h"
9c17d615 38#include "sysemu/sysemu.h"
83c9089e
PB
39#include "monitor/monitor.h"
40#include "monitor/readline.h"
28ecbaee 41#include "ui/console.h"
9c17d615 42#include "sysemu/blockdev.h"
87ecb68b 43#include "audio/audio.h"
76cad711 44#include "disas/disas.h"
9c17d615 45#include "sysemu/balloon.h"
1de7afc9 46#include "qemu/timer.h"
caf71f86 47#include "migration/migration.h"
9c17d615 48#include "sysemu/kvm.h"
1de7afc9 49#include "qemu/acl.h"
7b1b5d19
PB
50#include "qapi/qmp/qint.h"
51#include "qapi/qmp/qfloat.h"
52#include "qapi/qmp/qlist.h"
53#include "qapi/qmp/qbool.h"
54#include "qapi/qmp/qstring.h"
55#include "qapi/qmp/qjson.h"
56#include "qapi/qmp/json-streamer.h"
57#include "qapi/qmp/json-parser.h"
1de7afc9 58#include "qemu/osdep.h"
2b41f10e 59#include "cpu.h"
89bd820a 60#include "trace.h"
31965ae2 61#include "trace/control.h"
6d8a764e 62#ifdef CONFIG_TRACE_SIMPLE
31965ae2 63#include "trace/simple.h"
22890ab5 64#endif
6f8c63fb 65#include "ui/qemu-spice.h"
022c62cb 66#include "exec/memory.h"
48a32bed
AL
67#include "qmp-commands.h"
68#include "hmp.h"
1de7afc9 69#include "qemu/thread.h"
6a5bd307 70
661f1929
JK
71/* for pic/irq_info */
72#if defined(TARGET_SPARC)
73#include "hw/sun4m.h"
74#endif
75#include "hw/lm32_pic.h"
76
9dc39cba 77//#define DEBUG
81d0912d 78//#define DEBUG_COMPLETION
9dc39cba 79
9307c4c1
FB
80/*
81 * Supported types:
5fafdf24 82 *
9307c4c1 83 * 'F' filename
81d0912d 84 * 'B' block device name
9307c4c1 85 * 's' string (accept optional quote)
361127df
MA
86 * 'O' option string of the form NAME=VALUE,...
87 * parsed according to QemuOptsList given by its name
88 * Example: 'device:O' uses qemu_device_opts.
89 * Restriction: only lists with empty desc are supported
90 * TODO lift the restriction
92a31b1f
FB
91 * 'i' 32 bit integer
92 * 'l' target long (32 or 64 bit)
91162849
LC
93 * 'M' Non-negative target long (32 or 64 bit), in user mode the
94 * value is multiplied by 2^20 (think Mebibyte)
dbc0c67f
JS
95 * 'o' octets (aka bytes)
96 * user mode accepts an optional T, t, G, g, M, m, K, k
97 * suffix, which multiplies the value by 2^40 for
98 * suffixes T and t, 2^30 for suffixes G and g, 2^20 for
99 * M and m, 2^10 for K and k
fccfb11e
MA
100 * 'T' double
101 * user mode accepts an optional ms, us, ns suffix,
102 * which divides the value by 1e3, 1e6, 1e9, respectively
9307c4c1
FB
103 * '/' optional gdb-like print format (like "/10x")
104 *
fb46660e
LC
105 * '?' optional type (for all types, except '/')
106 * '.' other form of optional type (for 'i' and 'l')
942cd1f2
MA
107 * 'b' boolean
108 * user mode accepts "on" or "off"
fb46660e 109 * '-' optional parameter (eg. '-f')
9307c4c1
FB
110 *
111 */
112
940cc30d
AL
113typedef struct MonitorCompletionData MonitorCompletionData;
114struct MonitorCompletionData {
115 Monitor *mon;
116 void (*user_print)(Monitor *mon, const QObject *data);
117};
118
c227f099 119typedef struct mon_cmd_t {
9dc39cba 120 const char *name;
9307c4c1 121 const char *args_type;
9dc39cba
FB
122 const char *params;
123 const char *help;
a2876f59 124 void (*user_print)(Monitor *mon, const QObject *data);
910df89d 125 union {
af4ce882 126 void (*cmd)(Monitor *mon, const QDict *qdict);
261394db 127 int (*cmd_new)(Monitor *mon, const QDict *params, QObject **ret_data);
940cc30d
AL
128 int (*cmd_async)(Monitor *mon, const QDict *params,
129 MonitorCompletion *cb, void *opaque);
910df89d 130 } mhandler;
8ac470c1 131 int flags;
5f3d335f
WX
132 /* @sub_table is a list of 2nd level of commands. If it do not exist,
133 * mhandler should be used. If it exist, sub_table[?].mhandler should be
134 * used, and mhandler of 1st level plays the role of help function.
135 */
136 struct mon_cmd_t *sub_table;
c227f099 137} mon_cmd_t;
9dc39cba 138
f07918fd 139/* file descriptors passed via SCM_RIGHTS */
c227f099
AL
140typedef struct mon_fd_t mon_fd_t;
141struct mon_fd_t {
f07918fd
MM
142 char *name;
143 int fd;
c227f099 144 QLIST_ENTRY(mon_fd_t) next;
f07918fd
MM
145};
146
ba1c048a
CB
147/* file descriptor associated with a file descriptor set */
148typedef struct MonFdsetFd MonFdsetFd;
149struct MonFdsetFd {
150 int fd;
151 bool removed;
152 char *opaque;
153 QLIST_ENTRY(MonFdsetFd) next;
154};
155
156/* file descriptor set containing fds passed via SCM_RIGHTS */
157typedef struct MonFdset MonFdset;
158struct MonFdset {
159 int64_t id;
160 QLIST_HEAD(, MonFdsetFd) fds;
adb696f3 161 QLIST_HEAD(, MonFdsetFd) dup_fds;
ba1c048a
CB
162 QLIST_ENTRY(MonFdset) next;
163};
164
5fa737a4
LC
165typedef struct MonitorControl {
166 QObject *id;
167 JSONMessageParser parser;
4a7e1190 168 int command_mode;
5fa737a4
LC
169} MonitorControl;
170
afeecec2
DB
171/*
172 * To prevent flooding clients, events can be throttled. The
173 * throttling is calculated globally, rather than per-Monitor
174 * instance.
175 */
176typedef struct MonitorEventState {
177 MonitorEvent event; /* Event being tracked */
178 int64_t rate; /* Period over which to throttle. 0 to disable */
179 int64_t last; /* Time at which event was last emitted */
180 QEMUTimer *timer; /* Timer for handling delayed events */
181 QObject *data; /* Event pending delayed dispatch */
182} MonitorEventState;
183
87127161
AL
184struct Monitor {
185 CharDriverState *chr;
a7aec5da
GH
186 int mux_out;
187 int reset_seen;
731b0364
AL
188 int flags;
189 int suspend_cnt;
190 uint8_t outbuf[1024];
191 int outbuf_index;
192 ReadLineState *rs;
5fa737a4 193 MonitorControl *mc;
9349b4f9 194 CPUArchState *mon_cpu;
731b0364
AL
195 BlockDriverCompletionFunc *password_completion_cb;
196 void *password_opaque;
8204a918 197 QError *error;
c227f099 198 QLIST_HEAD(,mon_fd_t) fds;
72cf2d4f 199 QLIST_ENTRY(Monitor) entry;
87127161
AL
200};
201
2dbc8db0
LC
202/* QMP checker flags */
203#define QMP_ACCEPT_UNKNOWNS 1
204
72cf2d4f 205static QLIST_HEAD(mon_list, Monitor) mon_list;
ba1c048a 206static QLIST_HEAD(mon_fdsets, MonFdset) mon_fdsets;
efb87c16 207static int mon_refcount;
7e2515e8 208
816f8925
WX
209static mon_cmd_t mon_cmds[];
210static mon_cmd_t info_cmds[];
9dc39cba 211
f36b4afb
LC
212static const mon_cmd_t qmp_cmds[];
213
8631b608
MA
214Monitor *cur_mon;
215Monitor *default_mon;
376253ec 216
731b0364
AL
217static void monitor_command_cb(Monitor *mon, const char *cmdline,
218 void *opaque);
83ab7950 219
09069b19
LC
220static inline int qmp_cmd_mode(const Monitor *mon)
221{
222 return (mon->mc ? mon->mc->command_mode : 0);
223}
224
418173c7
LC
225/* Return true if in control mode, false otherwise */
226static inline int monitor_ctrl_mode(const Monitor *mon)
227{
228 return (mon->flags & MONITOR_USE_CONTROL);
229}
230
6620d3ce
MA
231/* Return non-zero iff we have a current monitor, and it is in QMP mode. */
232int monitor_cur_is_qmp(void)
233{
234 return cur_mon && monitor_ctrl_mode(cur_mon);
235}
236
7060b478 237void monitor_read_command(Monitor *mon, int show_prompt)
731b0364 238{
183e6e52
LC
239 if (!mon->rs)
240 return;
241
731b0364
AL
242 readline_start(mon->rs, "(qemu) ", 0, monitor_command_cb, NULL);
243 if (show_prompt)
244 readline_show_prompt(mon->rs);
245}
6a00d601 246
7060b478
AL
247int monitor_read_password(Monitor *mon, ReadLineFunc *readline_func,
248 void *opaque)
bb5fc20f 249{
94171e11 250 if (monitor_ctrl_mode(mon)) {
ab5b027e 251 qerror_report(QERR_MISSING_PARAMETER, "password");
94171e11
LC
252 return -EINVAL;
253 } else if (mon->rs) {
cde76ee1
AL
254 readline_start(mon->rs, "Password: ", 1, readline_func, opaque);
255 /* prompt is printed on return from the command handler */
256 return 0;
257 } else {
258 monitor_printf(mon, "terminal does not support password prompting\n");
259 return -ENOTTY;
260 }
bb5fc20f
AL
261}
262
376253ec 263void monitor_flush(Monitor *mon)
7e2515e8 264{
a7aec5da 265 if (mon && mon->outbuf_index != 0 && !mon->mux_out) {
2cc6e0a1 266 qemu_chr_fe_write(mon->chr, mon->outbuf, mon->outbuf_index);
731b0364 267 mon->outbuf_index = 0;
7e2515e8
FB
268 }
269}
270
271/* flush at every end of line or if the buffer is full */
376253ec 272static void monitor_puts(Monitor *mon, const char *str)
7e2515e8 273{
60fe76f3 274 char c;
731b0364 275
7e2515e8 276 for(;;) {
51782344 277 assert(mon->outbuf_index < sizeof(mon->outbuf) - 1);
7e2515e8
FB
278 c = *str++;
279 if (c == '\0')
280 break;
7ba1260a 281 if (c == '\n')
731b0364
AL
282 mon->outbuf[mon->outbuf_index++] = '\r';
283 mon->outbuf[mon->outbuf_index++] = c;
284 if (mon->outbuf_index >= (sizeof(mon->outbuf) - 1)
285 || c == '\n')
376253ec 286 monitor_flush(mon);
7e2515e8
FB
287 }
288}
289
376253ec 290void monitor_vprintf(Monitor *mon, const char *fmt, va_list ap)
9dc39cba 291{
b8b08266
LC
292 char buf[4096];
293
2daa1191
LC
294 if (!mon)
295 return;
296
b8b08266 297 if (monitor_ctrl_mode(mon)) {
b8b08266 298 return;
4a29a85d 299 }
b8b08266
LC
300
301 vsnprintf(buf, sizeof(buf), fmt, ap);
302 monitor_puts(mon, buf);
9dc39cba
FB
303}
304
376253ec 305void monitor_printf(Monitor *mon, const char *fmt, ...)
9dc39cba 306{
7e2515e8
FB
307 va_list ap;
308 va_start(ap, fmt);
376253ec 309 monitor_vprintf(mon, fmt, ap);
7e2515e8 310 va_end(ap);
9dc39cba
FB
311}
312
376253ec 313void monitor_print_filename(Monitor *mon, const char *filename)
fef30743
TS
314{
315 int i;
316
317 for (i = 0; filename[i]; i++) {
28a76be8
AL
318 switch (filename[i]) {
319 case ' ':
320 case '"':
321 case '\\':
322 monitor_printf(mon, "\\%c", filename[i]);
323 break;
324 case '\t':
325 monitor_printf(mon, "\\t");
326 break;
327 case '\r':
328 monitor_printf(mon, "\\r");
329 break;
330 case '\n':
331 monitor_printf(mon, "\\n");
332 break;
333 default:
334 monitor_printf(mon, "%c", filename[i]);
335 break;
336 }
fef30743
TS
337 }
338}
339
8b7968f7
SW
340static int GCC_FMT_ATTR(2, 3) monitor_fprintf(FILE *stream,
341 const char *fmt, ...)
7fe48483
FB
342{
343 va_list ap;
344 va_start(ap, fmt);
376253ec 345 monitor_vprintf((Monitor *)stream, fmt, ap);
7fe48483
FB
346 va_end(ap);
347 return 0;
348}
349
13c7425e
LC
350static void monitor_user_noop(Monitor *mon, const QObject *data) { }
351
9e80721e 352static inline int handler_is_qobject(const mon_cmd_t *cmd)
13917bee
LC
353{
354 return cmd->user_print != NULL;
355}
356
4903de0c 357static inline bool handler_is_async(const mon_cmd_t *cmd)
940cc30d 358{
8ac470c1 359 return cmd->flags & MONITOR_CMD_ASYNC;
940cc30d
AL
360}
361
8204a918
LC
362static inline int monitor_has_error(const Monitor *mon)
363{
364 return mon->error != NULL;
365}
366
9b57c02e
LC
367static void monitor_json_emitter(Monitor *mon, const QObject *data)
368{
369 QString *json;
370
83a27d4d
LC
371 json = mon->flags & MONITOR_USE_PRETTY ? qobject_to_json_pretty(data) :
372 qobject_to_json(data);
9b57c02e
LC
373 assert(json != NULL);
374
b8b08266
LC
375 qstring_append_chr(json, '\n');
376 monitor_puts(mon, qstring_get_str(json));
4a29a85d 377
9b57c02e
LC
378 QDECREF(json);
379}
380
de253f14
LC
381static QDict *build_qmp_error_dict(const QError *err)
382{
383 QObject *obj;
384
385 obj = qobject_from_jsonf("{ 'error': { 'class': %s, 'desc': %p } }",
386 ErrorClass_lookup[err->err_class],
387 qerror_human(err));
388
389 return qobject_to_qdict(obj);
390}
391
25b422eb
LC
392static void monitor_protocol_emitter(Monitor *mon, QObject *data)
393{
394 QDict *qmp;
395
89bd820a
SH
396 trace_monitor_protocol_emitter(mon);
397
25b422eb
LC
398 if (!monitor_has_error(mon)) {
399 /* success response */
de253f14 400 qmp = qdict_new();
25b422eb
LC
401 if (data) {
402 qobject_incref(data);
403 qdict_put_obj(qmp, "return", data);
404 } else {
0abc6579
LC
405 /* return an empty QDict by default */
406 qdict_put(qmp, "return", qdict_new());
25b422eb
LC
407 }
408 } else {
409 /* error response */
de253f14 410 qmp = build_qmp_error_dict(mon->error);
25b422eb
LC
411 QDECREF(mon->error);
412 mon->error = NULL;
413 }
414
5fa737a4
LC
415 if (mon->mc->id) {
416 qdict_put_obj(qmp, "id", mon->mc->id);
417 mon->mc->id = NULL;
418 }
419
25b422eb
LC
420 monitor_json_emitter(mon, QOBJECT(qmp));
421 QDECREF(qmp);
422}
423
0d1ea871
LC
424static void timestamp_put(QDict *qdict)
425{
426 int err;
427 QObject *obj;
d08d6f04 428 qemu_timeval tv;
0d1ea871 429
d08d6f04 430 err = qemu_gettimeofday(&tv);
0d1ea871
LC
431 if (err < 0)
432 return;
433
434 obj = qobject_from_jsonf("{ 'seconds': %" PRId64 ", "
435 "'microseconds': %" PRId64 " }",
436 (int64_t) tv.tv_sec, (int64_t) tv.tv_usec);
0d1ea871
LC
437 qdict_put_obj(qdict, "timestamp", obj);
438}
439
4860853d
DB
440
441static const char *monitor_event_names[] = {
442 [QEVENT_SHUTDOWN] = "SHUTDOWN",
443 [QEVENT_RESET] = "RESET",
444 [QEVENT_POWERDOWN] = "POWERDOWN",
445 [QEVENT_STOP] = "STOP",
446 [QEVENT_RESUME] = "RESUME",
447 [QEVENT_VNC_CONNECTED] = "VNC_CONNECTED",
448 [QEVENT_VNC_INITIALIZED] = "VNC_INITIALIZED",
449 [QEVENT_VNC_DISCONNECTED] = "VNC_DISCONNECTED",
450 [QEVENT_BLOCK_IO_ERROR] = "BLOCK_IO_ERROR",
451 [QEVENT_RTC_CHANGE] = "RTC_CHANGE",
452 [QEVENT_WATCHDOG] = "WATCHDOG",
453 [QEVENT_SPICE_CONNECTED] = "SPICE_CONNECTED",
454 [QEVENT_SPICE_INITIALIZED] = "SPICE_INITIALIZED",
455 [QEVENT_SPICE_DISCONNECTED] = "SPICE_DISCONNECTED",
456 [QEVENT_BLOCK_JOB_COMPLETED] = "BLOCK_JOB_COMPLETED",
457 [QEVENT_BLOCK_JOB_CANCELLED] = "BLOCK_JOB_CANCELLED",
32c81a4a 458 [QEVENT_BLOCK_JOB_ERROR] = "BLOCK_JOB_ERROR",
a66a2a36 459 [QEVENT_BLOCK_JOB_READY] = "BLOCK_JOB_READY",
4860853d
DB
460 [QEVENT_DEVICE_TRAY_MOVED] = "DEVICE_TRAY_MOVED",
461 [QEVENT_SUSPEND] = "SUSPEND",
25df49f6 462 [QEVENT_SUSPEND_DISK] = "SUSPEND_DISK",
4860853d 463 [QEVENT_WAKEUP] = "WAKEUP",
973603a8 464 [QEVENT_BALLOON_CHANGE] = "BALLOON_CHANGE",
2fdd16e2 465 [QEVENT_SPICE_MIGRATE_COMPLETED] = "SPICE_MIGRATE_COMPLETED",
4860853d
DB
466};
467QEMU_BUILD_BUG_ON(ARRAY_SIZE(monitor_event_names) != QEVENT_MAX)
468
afeecec2
DB
469MonitorEventState monitor_event_state[QEVENT_MAX];
470QemuMutex monitor_event_state_lock;
471
472/*
473 * Emits the event to every monitor instance
474 */
475static void
476monitor_protocol_event_emit(MonitorEvent event,
477 QObject *data)
478{
479 Monitor *mon;
480
481 trace_monitor_protocol_event_emit(event, data);
482 QLIST_FOREACH(mon, &mon_list, entry) {
483 if (monitor_ctrl_mode(mon) && qmp_cmd_mode(mon)) {
484 monitor_json_emitter(mon, data);
485 }
486 }
487}
488
489
490/*
491 * Queue a new event for emission to Monitor instances,
492 * applying any rate limiting if required.
493 */
494static void
495monitor_protocol_event_queue(MonitorEvent event,
496 QObject *data)
497{
498 MonitorEventState *evstate;
499 int64_t now = qemu_get_clock_ns(rt_clock);
500 assert(event < QEVENT_MAX);
501
502 qemu_mutex_lock(&monitor_event_state_lock);
503 evstate = &(monitor_event_state[event]);
504 trace_monitor_protocol_event_queue(event,
505 data,
506 evstate->rate,
507 evstate->last,
508 now);
509
510 /* Rate limit of 0 indicates no throttling */
511 if (!evstate->rate) {
512 monitor_protocol_event_emit(event, data);
513 evstate->last = now;
514 } else {
515 int64_t delta = now - evstate->last;
516 if (evstate->data ||
517 delta < evstate->rate) {
518 /* If there's an existing event pending, replace
519 * it with the new event, otherwise schedule a
520 * timer for delayed emission
521 */
522 if (evstate->data) {
523 qobject_decref(evstate->data);
524 } else {
525 int64_t then = evstate->last + evstate->rate;
526 qemu_mod_timer_ns(evstate->timer, then);
527 }
528 evstate->data = data;
529 qobject_incref(evstate->data);
530 } else {
531 monitor_protocol_event_emit(event, data);
532 evstate->last = now;
533 }
534 }
535 qemu_mutex_unlock(&monitor_event_state_lock);
536}
537
538
539/*
540 * The callback invoked by QemuTimer when a delayed
541 * event is ready to be emitted
542 */
543static void monitor_protocol_event_handler(void *opaque)
544{
545 MonitorEventState *evstate = opaque;
546 int64_t now = qemu_get_clock_ns(rt_clock);
547
548 qemu_mutex_lock(&monitor_event_state_lock);
549
550 trace_monitor_protocol_event_handler(evstate->event,
551 evstate->data,
552 evstate->last,
553 now);
554 if (evstate->data) {
555 monitor_protocol_event_emit(evstate->event, evstate->data);
556 qobject_decref(evstate->data);
557 evstate->data = NULL;
558 }
559 evstate->last = now;
560 qemu_mutex_unlock(&monitor_event_state_lock);
561}
562
563
564/*
565 * @event: the event ID to be limited
566 * @rate: the rate limit in milliseconds
567 *
568 * Sets a rate limit on a particular event, so no
569 * more than 1 event will be emitted within @rate
570 * milliseconds
571 */
572static void
573monitor_protocol_event_throttle(MonitorEvent event,
574 int64_t rate)
575{
576 MonitorEventState *evstate;
577 assert(event < QEVENT_MAX);
578
579 evstate = &(monitor_event_state[event]);
580
581 trace_monitor_protocol_event_throttle(event, rate);
582 evstate->event = event;
583 evstate->rate = rate * SCALE_MS;
584 evstate->timer = qemu_new_timer(rt_clock,
585 SCALE_MS,
586 monitor_protocol_event_handler,
587 evstate);
588 evstate->last = 0;
589 evstate->data = NULL;
590}
591
592
593/* Global, one-time initializer to configure the rate limiting
594 * and initialize state */
595static void monitor_protocol_event_init(void)
596{
597 qemu_mutex_init(&monitor_event_state_lock);
598 /* Limit RTC & BALLOON events to 1 per second */
599 monitor_protocol_event_throttle(QEVENT_RTC_CHANGE, 1000);
600 monitor_protocol_event_throttle(QEVENT_BALLOON_CHANGE, 1000);
601 monitor_protocol_event_throttle(QEVENT_WATCHDOG, 1000);
602}
603
0d1ea871
LC
604/**
605 * monitor_protocol_event(): Generate a Monitor event
606 *
607 * Event-specific data can be emitted through the (optional) 'data' parameter.
608 */
609void monitor_protocol_event(MonitorEvent event, QObject *data)
610{
611 QDict *qmp;
612 const char *event_name;
0d1ea871 613
242cd003 614 assert(event < QEVENT_MAX);
0d1ea871 615
4860853d
DB
616 event_name = monitor_event_names[event];
617 assert(event_name != NULL);
0d1ea871
LC
618
619 qmp = qdict_new();
620 timestamp_put(qmp);
621 qdict_put(qmp, "event", qstring_from_str(event_name));
3d72f9a2
LC
622 if (data) {
623 qobject_incref(data);
0d1ea871 624 qdict_put_obj(qmp, "data", data);
3d72f9a2 625 }
0d1ea871 626
afeecec2
DB
627 trace_monitor_protocol_event(event, event_name, qmp);
628 monitor_protocol_event_queue(event, QOBJECT(qmp));
0d1ea871
LC
629 QDECREF(qmp);
630}
631
ef4b7eee
LC
632static int do_qmp_capabilities(Monitor *mon, const QDict *params,
633 QObject **ret_data)
4a7e1190
LC
634{
635 /* Will setup QMP capabilities in the future */
636 if (monitor_ctrl_mode(mon)) {
637 mon->mc->command_mode = 1;
638 }
ef4b7eee
LC
639
640 return 0;
4a7e1190
LC
641}
642
0268d97c
LC
643static void handle_user_command(Monitor *mon, const char *cmdline);
644
d51a67b4
LC
645char *qmp_human_monitor_command(const char *command_line, bool has_cpu_index,
646 int64_t cpu_index, Error **errp)
0268d97c 647{
d51a67b4 648 char *output = NULL;
0268d97c
LC
649 Monitor *old_mon, hmp;
650 CharDriverState mchar;
651
652 memset(&hmp, 0, sizeof(hmp));
653 qemu_chr_init_mem(&mchar);
654 hmp.chr = &mchar;
655
656 old_mon = cur_mon;
657 cur_mon = &hmp;
658
d51a67b4
LC
659 if (has_cpu_index) {
660 int ret = monitor_set_cpu(cpu_index);
0268d97c
LC
661 if (ret < 0) {
662 cur_mon = old_mon;
d51a67b4
LC
663 error_set(errp, QERR_INVALID_PARAMETER_VALUE, "cpu-index",
664 "a CPU number");
0268d97c
LC
665 goto out;
666 }
667 }
668
d51a67b4 669 handle_user_command(&hmp, command_line);
0268d97c
LC
670 cur_mon = old_mon;
671
672 if (qemu_chr_mem_osize(hmp.chr) > 0) {
d51a67b4
LC
673 QString *str = qemu_chr_mem_to_qs(hmp.chr);
674 output = g_strdup(qstring_get_str(str));
675 QDECREF(str);
676 } else {
677 output = g_strdup("");
0268d97c
LC
678 }
679
680out:
681 qemu_chr_close_mem(hmp.chr);
d51a67b4 682 return output;
0268d97c
LC
683}
684
9dc39cba
FB
685static int compare_cmd(const char *name, const char *list)
686{
687 const char *p, *pstart;
688 int len;
689 len = strlen(name);
690 p = list;
691 for(;;) {
692 pstart = p;
693 p = strchr(p, '|');
694 if (!p)
695 p = pstart + strlen(pstart);
696 if ((p - pstart) == len && !memcmp(pstart, name, len))
697 return 1;
698 if (*p == '\0')
699 break;
700 p++;
701 }
702 return 0;
703}
704
c227f099 705static void help_cmd_dump(Monitor *mon, const mon_cmd_t *cmds,
376253ec 706 const char *prefix, const char *name)
9dc39cba 707{
c227f099 708 const mon_cmd_t *cmd;
9dc39cba
FB
709
710 for(cmd = cmds; cmd->name != NULL; cmd++) {
711 if (!name || !strcmp(name, cmd->name))
376253ec
AL
712 monitor_printf(mon, "%s%s %s -- %s\n", prefix, cmd->name,
713 cmd->params, cmd->help);
9dc39cba
FB
714 }
715}
716
376253ec 717static void help_cmd(Monitor *mon, const char *name)
9dc39cba
FB
718{
719 if (name && !strcmp(name, "info")) {
376253ec 720 help_cmd_dump(mon, info_cmds, "info ", NULL);
9dc39cba 721 } else {
376253ec 722 help_cmd_dump(mon, mon_cmds, "", name);
f193c797 723 if (name && !strcmp(name, "log")) {
8662d656 724 const CPULogItem *item;
376253ec
AL
725 monitor_printf(mon, "Log items (comma separated):\n");
726 monitor_printf(mon, "%-10s %s\n", "none", "remove all logs");
f193c797 727 for(item = cpu_log_items; item->mask != 0; item++) {
376253ec 728 monitor_printf(mon, "%-10s %s\n", item->name, item->help);
f193c797
FB
729 }
730 }
9dc39cba
FB
731 }
732}
733
d54908a5 734static void do_help_cmd(Monitor *mon, const QDict *qdict)
38183186 735{
d54908a5 736 help_cmd(mon, qdict_get_try_str(qdict, "name"));
38183186
LC
737}
738
fc764105 739static void do_trace_event_set_state(Monitor *mon, const QDict *qdict)
22890ab5
PS
740{
741 const char *tp_name = qdict_get_str(qdict, "name");
742 bool new_state = qdict_get_bool(qdict, "option");
fc764105 743 int ret = trace_event_set_state(tp_name, new_state);
f871d689
BS
744
745 if (!ret) {
746 monitor_printf(mon, "unknown event name \"%s\"\n", tp_name);
747 }
22890ab5 748}
c5ceb523 749
c45a8168 750#ifdef CONFIG_TRACE_SIMPLE
c5ceb523
SH
751static void do_trace_file(Monitor *mon, const QDict *qdict)
752{
753 const char *op = qdict_get_try_str(qdict, "op");
754 const char *arg = qdict_get_try_str(qdict, "arg");
755
756 if (!op) {
757 st_print_trace_file_status((FILE *)mon, &monitor_fprintf);
758 } else if (!strcmp(op, "on")) {
759 st_set_trace_file_enabled(true);
760 } else if (!strcmp(op, "off")) {
761 st_set_trace_file_enabled(false);
762 } else if (!strcmp(op, "flush")) {
763 st_flush_trace_buffer();
764 } else if (!strcmp(op, "set")) {
765 if (arg) {
766 st_set_trace_file(arg);
767 }
768 } else {
769 monitor_printf(mon, "unexpected argument \"%s\"\n", op);
770 help_cmd(mon, "trace-file");
771 }
772}
22890ab5
PS
773#endif
774
940cc30d
AL
775static void user_monitor_complete(void *opaque, QObject *ret_data)
776{
777 MonitorCompletionData *data = (MonitorCompletionData *)opaque;
778
779 if (ret_data) {
780 data->user_print(data->mon, ret_data);
781 }
782 monitor_resume(data->mon);
7267c094 783 g_free(data);
940cc30d
AL
784}
785
786static void qmp_monitor_complete(void *opaque, QObject *ret_data)
787{
788 monitor_protocol_emitter(opaque, ret_data);
789}
790
5af7bbae
LC
791static int qmp_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
792 const QDict *params)
940cc30d 793{
5af7bbae 794 return cmd->mhandler.cmd_async(mon, params, qmp_monitor_complete, mon);
940cc30d
AL
795}
796
940cc30d
AL
797static void user_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
798 const QDict *params)
799{
800 int ret;
801
7267c094 802 MonitorCompletionData *cb_data = g_malloc(sizeof(*cb_data));
940cc30d
AL
803 cb_data->mon = mon;
804 cb_data->user_print = cmd->user_print;
805 monitor_suspend(mon);
806 ret = cmd->mhandler.cmd_async(mon, params,
807 user_monitor_complete, cb_data);
808 if (ret < 0) {
809 monitor_resume(mon);
7267c094 810 g_free(cb_data);
940cc30d
AL
811 }
812}
813
84c44613 814static void do_info_help(Monitor *mon, const QDict *qdict)
9dc39cba 815{
13c7425e 816 help_cmd(mon, "info");
9dc39cba
FB
817}
818
aa9b79bc 819CommandInfoList *qmp_query_commands(Error **errp)
e3bba9d0 820{
aa9b79bc 821 CommandInfoList *info, *cmd_list = NULL;
e3bba9d0
LC
822 const mon_cmd_t *cmd;
823
f36b4afb 824 for (cmd = qmp_cmds; cmd->name != NULL; cmd++) {
40e5a01d
LC
825 info = g_malloc0(sizeof(*info));
826 info->value = g_malloc0(sizeof(*info->value));
827 info->value->name = g_strdup(cmd->name);
e3bba9d0 828
aa9b79bc
LC
829 info->next = cmd_list;
830 cmd_list = info;
e3bba9d0
LC
831 }
832
aa9b79bc 833 return cmd_list;
a36e69dd
TS
834}
835
4860853d
DB
836EventInfoList *qmp_query_events(Error **errp)
837{
838 EventInfoList *info, *ev_list = NULL;
839 MonitorEvent e;
840
841 for (e = 0 ; e < QEVENT_MAX ; e++) {
842 const char *event_name = monitor_event_names[e];
843 assert(event_name != NULL);
844 info = g_malloc0(sizeof(*info));
845 info->value = g_malloc0(sizeof(*info->value));
846 info->value->name = g_strdup(event_name);
847
848 info->next = ev_list;
849 ev_list = info;
850 }
851
852 return ev_list;
853}
854
b025c8b4
LC
855/* set the current CPU defined by the user */
856int monitor_set_cpu(int cpu_index)
6a00d601 857{
9349b4f9 858 CPUArchState *env;
55e5c285 859 CPUState *cpu;
6a00d601 860
55e5c285
AF
861 for (env = first_cpu; env != NULL; env = env->next_cpu) {
862 cpu = ENV_GET_CPU(env);
863 if (cpu->cpu_index == cpu_index) {
731b0364 864 cur_mon->mon_cpu = env;
6a00d601
FB
865 return 0;
866 }
867 }
868 return -1;
869}
870
9349b4f9 871static CPUArchState *mon_get_cpu(void)
6a00d601 872{
731b0364 873 if (!cur_mon->mon_cpu) {
b025c8b4 874 monitor_set_cpu(0);
6a00d601 875 }
4c0960c0 876 cpu_synchronize_state(cur_mon->mon_cpu);
731b0364 877 return cur_mon->mon_cpu;
6a00d601
FB
878}
879
99b7796f
LC
880int monitor_get_cpu_index(void)
881{
55e5c285
AF
882 CPUState *cpu = ENV_GET_CPU(mon_get_cpu());
883 return cpu->cpu_index;
99b7796f
LC
884}
885
84f2d0ea 886static void do_info_registers(Monitor *mon, const QDict *qdict)
9307c4c1 887{
9349b4f9 888 CPUArchState *env;
6a00d601 889 env = mon_get_cpu();
6fd2a026 890 cpu_dump_state(env, (FILE *)mon, monitor_fprintf, CPU_DUMP_FPU);
9307c4c1
FB
891}
892
84f2d0ea 893static void do_info_jit(Monitor *mon, const QDict *qdict)
e3db7226 894{
376253ec 895 dump_exec_info((FILE *)mon, monitor_fprintf);
e3db7226
FB
896}
897
84f2d0ea 898static void do_info_history(Monitor *mon, const QDict *qdict)
aa455485
FB
899{
900 int i;
7e2515e8 901 const char *str;
3b46e624 902
cde76ee1
AL
903 if (!mon->rs)
904 return;
7e2515e8
FB
905 i = 0;
906 for(;;) {
731b0364 907 str = readline_get_history(mon->rs, i);
7e2515e8
FB
908 if (!str)
909 break;
376253ec 910 monitor_printf(mon, "%d: '%s'\n", i, str);
8e3a9fd2 911 i++;
aa455485
FB
912 }
913}
914
76a66253
JM
915#if defined(TARGET_PPC)
916/* XXX: not implemented in other targets */
84f2d0ea 917static void do_info_cpu_stats(Monitor *mon, const QDict *qdict)
76a66253 918{
9349b4f9 919 CPUArchState *env;
76a66253
JM
920
921 env = mon_get_cpu();
376253ec 922 cpu_dump_statistics(env, (FILE *)mon, &monitor_fprintf, 0);
76a66253
JM
923}
924#endif
925
84f2d0ea 926static void do_trace_print_events(Monitor *mon, const QDict *qdict)
22890ab5 927{
fc764105 928 trace_print_events((FILE *)mon, &monitor_fprintf);
22890ab5 929}
22890ab5 930
edc5cb1a
YH
931static int client_migrate_info(Monitor *mon, const QDict *qdict,
932 MonitorCompletion cb, void *opaque)
e866e239
GH
933{
934 const char *protocol = qdict_get_str(qdict, "protocol");
935 const char *hostname = qdict_get_str(qdict, "hostname");
936 const char *subject = qdict_get_try_str(qdict, "cert-subject");
937 int port = qdict_get_try_int(qdict, "port", -1);
938 int tls_port = qdict_get_try_int(qdict, "tls-port", -1);
939 int ret;
940
941 if (strcmp(protocol, "spice") == 0) {
942 if (!using_spice) {
943 qerror_report(QERR_DEVICE_NOT_ACTIVE, "spice");
944 return -1;
945 }
946
6ec5dae5
YH
947 if (port == -1 && tls_port == -1) {
948 qerror_report(QERR_MISSING_PARAMETER, "port/tls-port");
949 return -1;
950 }
951
edc5cb1a
YH
952 ret = qemu_spice_migrate_info(hostname, port, tls_port, subject,
953 cb, opaque);
e866e239
GH
954 if (ret != 0) {
955 qerror_report(QERR_UNDEFINED_ERROR);
956 return -1;
957 }
958 return 0;
959 }
960
961 qerror_report(QERR_INVALID_PARAMETER, "protocol");
962 return -1;
963}
964
d54908a5 965static void do_logfile(Monitor *mon, const QDict *qdict)
e735b91c 966{
d54908a5 967 cpu_set_log_filename(qdict_get_str(qdict, "filename"));
e735b91c
PB
968}
969
d54908a5 970static void do_log(Monitor *mon, const QDict *qdict)
f193c797
FB
971{
972 int mask;
d54908a5 973 const char *items = qdict_get_str(qdict, "items");
3b46e624 974
9307c4c1 975 if (!strcmp(items, "none")) {
f193c797
FB
976 mask = 0;
977 } else {
9307c4c1 978 mask = cpu_str_to_log_mask(items);
f193c797 979 if (!mask) {
376253ec 980 help_cmd(mon, "log");
f193c797
FB
981 return;
982 }
983 }
984 cpu_set_log(mask);
985}
986
d54908a5 987static void do_singlestep(Monitor *mon, const QDict *qdict)
1b530a6d 988{
d54908a5 989 const char *option = qdict_get_try_str(qdict, "option");
1b530a6d
AJ
990 if (!option || !strcmp(option, "on")) {
991 singlestep = 1;
992 } else if (!strcmp(option, "off")) {
993 singlestep = 0;
994 } else {
995 monitor_printf(mon, "unexpected option %s\n", option);
996 }
997}
998
d54908a5 999static void do_gdbserver(Monitor *mon, const QDict *qdict)
59030a8c 1000{
d54908a5 1001 const char *device = qdict_get_try_str(qdict, "device");
59030a8c
AL
1002 if (!device)
1003 device = "tcp::" DEFAULT_GDBSTUB_PORT;
1004 if (gdbserver_start(device) < 0) {
1005 monitor_printf(mon, "Could not open gdbserver on device '%s'\n",
1006 device);
1007 } else if (strcmp(device, "none") == 0) {
36556b20 1008 monitor_printf(mon, "Disabled gdbserver\n");
8a7ddc38 1009 } else {
59030a8c
AL
1010 monitor_printf(mon, "Waiting for gdb connection on device '%s'\n",
1011 device);
8a7ddc38
FB
1012 }
1013}
1014
d54908a5 1015static void do_watchdog_action(Monitor *mon, const QDict *qdict)
9dd986cc 1016{
d54908a5 1017 const char *action = qdict_get_str(qdict, "action");
9dd986cc
RJ
1018 if (select_watchdog_action(action) == -1) {
1019 monitor_printf(mon, "Unknown watchdog action '%s'\n", action);
1020 }
1021}
1022
376253ec 1023static void monitor_printc(Monitor *mon, int c)
9307c4c1 1024{
376253ec 1025 monitor_printf(mon, "'");
9307c4c1
FB
1026 switch(c) {
1027 case '\'':
376253ec 1028 monitor_printf(mon, "\\'");
9307c4c1
FB
1029 break;
1030 case '\\':
376253ec 1031 monitor_printf(mon, "\\\\");
9307c4c1
FB
1032 break;
1033 case '\n':
376253ec 1034 monitor_printf(mon, "\\n");
9307c4c1
FB
1035 break;
1036 case '\r':
376253ec 1037 monitor_printf(mon, "\\r");
9307c4c1
FB
1038 break;
1039 default:
1040 if (c >= 32 && c <= 126) {
376253ec 1041 monitor_printf(mon, "%c", c);
9307c4c1 1042 } else {
376253ec 1043 monitor_printf(mon, "\\x%02x", c);
9307c4c1
FB
1044 }
1045 break;
1046 }
376253ec 1047 monitor_printf(mon, "'");
9307c4c1
FB
1048}
1049
376253ec 1050static void memory_dump(Monitor *mon, int count, int format, int wsize,
a8170e5e 1051 hwaddr addr, int is_physical)
9307c4c1 1052{
9349b4f9 1053 CPUArchState *env;
23842aab 1054 int l, line_size, i, max_digits, len;
9307c4c1
FB
1055 uint8_t buf[16];
1056 uint64_t v;
1057
1058 if (format == 'i') {
1059 int flags;
1060 flags = 0;
6a00d601 1061 env = mon_get_cpu();
9307c4c1 1062#ifdef TARGET_I386
4c27ba27 1063 if (wsize == 2) {
9307c4c1 1064 flags = 1;
4c27ba27
FB
1065 } else if (wsize == 4) {
1066 flags = 0;
1067 } else {
6a15fd12 1068 /* as default we use the current CS size */
4c27ba27 1069 flags = 0;
6a15fd12
FB
1070 if (env) {
1071#ifdef TARGET_X86_64
5fafdf24 1072 if ((env->efer & MSR_EFER_LMA) &&
6a15fd12
FB
1073 (env->segs[R_CS].flags & DESC_L_MASK))
1074 flags = 2;
1075 else
1076#endif
1077 if (!(env->segs[R_CS].flags & DESC_B_MASK))
1078 flags = 1;
1079 }
4c27ba27
FB
1080 }
1081#endif
376253ec 1082 monitor_disas(mon, env, addr, count, is_physical, flags);
9307c4c1
FB
1083 return;
1084 }
1085
1086 len = wsize * count;
1087 if (wsize == 1)
1088 line_size = 8;
1089 else
1090 line_size = 16;
9307c4c1
FB
1091 max_digits = 0;
1092
1093 switch(format) {
1094 case 'o':
1095 max_digits = (wsize * 8 + 2) / 3;
1096 break;
1097 default:
1098 case 'x':
1099 max_digits = (wsize * 8) / 4;
1100 break;
1101 case 'u':
1102 case 'd':
1103 max_digits = (wsize * 8 * 10 + 32) / 33;
1104 break;
1105 case 'c':
1106 wsize = 1;
1107 break;
1108 }
1109
1110 while (len > 0) {
7743e588 1111 if (is_physical)
376253ec 1112 monitor_printf(mon, TARGET_FMT_plx ":", addr);
7743e588 1113 else
376253ec 1114 monitor_printf(mon, TARGET_FMT_lx ":", (target_ulong)addr);
9307c4c1
FB
1115 l = len;
1116 if (l > line_size)
1117 l = line_size;
1118 if (is_physical) {
54f7b4a3 1119 cpu_physical_memory_read(addr, buf, l);
9307c4c1 1120 } else {
6a00d601 1121 env = mon_get_cpu();
c8f79b67 1122 if (cpu_memory_rw_debug(env, addr, buf, l, 0) < 0) {
376253ec 1123 monitor_printf(mon, " Cannot access memory\n");
c8f79b67
AL
1124 break;
1125 }
9307c4c1 1126 }
5fafdf24 1127 i = 0;
9307c4c1
FB
1128 while (i < l) {
1129 switch(wsize) {
1130 default:
1131 case 1:
1132 v = ldub_raw(buf + i);
1133 break;
1134 case 2:
1135 v = lduw_raw(buf + i);
1136 break;
1137 case 4:
92a31b1f 1138 v = (uint32_t)ldl_raw(buf + i);
9307c4c1
FB
1139 break;
1140 case 8:
1141 v = ldq_raw(buf + i);
1142 break;
1143 }
376253ec 1144 monitor_printf(mon, " ");
9307c4c1
FB
1145 switch(format) {
1146 case 'o':
376253ec 1147 monitor_printf(mon, "%#*" PRIo64, max_digits, v);
9307c4c1
FB
1148 break;
1149 case 'x':
376253ec 1150 monitor_printf(mon, "0x%0*" PRIx64, max_digits, v);
9307c4c1
FB
1151 break;
1152 case 'u':
376253ec 1153 monitor_printf(mon, "%*" PRIu64, max_digits, v);
9307c4c1
FB
1154 break;
1155 case 'd':
376253ec 1156 monitor_printf(mon, "%*" PRId64, max_digits, v);
9307c4c1
FB
1157 break;
1158 case 'c':
376253ec 1159 monitor_printc(mon, v);
9307c4c1
FB
1160 break;
1161 }
1162 i += wsize;
1163 }
376253ec 1164 monitor_printf(mon, "\n");
9307c4c1
FB
1165 addr += l;
1166 len -= l;
1167 }
1168}
1169
1bd1442e 1170static void do_memory_dump(Monitor *mon, const QDict *qdict)
9307c4c1 1171{
1bd1442e
LC
1172 int count = qdict_get_int(qdict, "count");
1173 int format = qdict_get_int(qdict, "format");
1174 int size = qdict_get_int(qdict, "size");
1175 target_long addr = qdict_get_int(qdict, "addr");
1176
376253ec 1177 memory_dump(mon, count, format, size, addr, 0);
9307c4c1
FB
1178}
1179
1bd1442e 1180static void do_physical_memory_dump(Monitor *mon, const QDict *qdict)
9307c4c1 1181{
1bd1442e
LC
1182 int count = qdict_get_int(qdict, "count");
1183 int format = qdict_get_int(qdict, "format");
1184 int size = qdict_get_int(qdict, "size");
a8170e5e 1185 hwaddr addr = qdict_get_int(qdict, "addr");
1bd1442e 1186
376253ec 1187 memory_dump(mon, count, format, size, addr, 1);
9307c4c1
FB
1188}
1189
1bd1442e 1190static void do_print(Monitor *mon, const QDict *qdict)
9307c4c1 1191{
1bd1442e 1192 int format = qdict_get_int(qdict, "format");
a8170e5e 1193 hwaddr val = qdict_get_int(qdict, "val");
1bd1442e 1194
9307c4c1
FB
1195 switch(format) {
1196 case 'o':
a8170e5e 1197 monitor_printf(mon, "%#" HWADDR_PRIo, val);
9307c4c1
FB
1198 break;
1199 case 'x':
a8170e5e 1200 monitor_printf(mon, "%#" HWADDR_PRIx, val);
9307c4c1
FB
1201 break;
1202 case 'u':
a8170e5e 1203 monitor_printf(mon, "%" HWADDR_PRIu, val);
9307c4c1
FB
1204 break;
1205 default:
1206 case 'd':
a8170e5e 1207 monitor_printf(mon, "%" HWADDR_PRId, val);
9307c4c1
FB
1208 break;
1209 case 'c':
376253ec 1210 monitor_printc(mon, val);
9307c4c1
FB
1211 break;
1212 }
376253ec 1213 monitor_printf(mon, "\n");
9307c4c1
FB
1214}
1215
f18c16de 1216static void do_sum(Monitor *mon, const QDict *qdict)
e4cf1adc
FB
1217{
1218 uint32_t addr;
e4cf1adc 1219 uint16_t sum;
f18c16de
LC
1220 uint32_t start = qdict_get_int(qdict, "start");
1221 uint32_t size = qdict_get_int(qdict, "size");
e4cf1adc
FB
1222
1223 sum = 0;
1224 for(addr = start; addr < (start + size); addr++) {
54f7b4a3 1225 uint8_t val = ldub_phys(addr);
e4cf1adc
FB
1226 /* BSD sum algorithm ('sum' Unix command) */
1227 sum = (sum >> 1) | (sum << 15);
54f7b4a3 1228 sum += val;
e4cf1adc 1229 }
376253ec 1230 monitor_printf(mon, "%05d\n", sum);
e4cf1adc
FB
1231}
1232
13224a87
FB
1233static int mouse_button_state;
1234
1d4daa91 1235static void do_mouse_move(Monitor *mon, const QDict *qdict)
13224a87
FB
1236{
1237 int dx, dy, dz;
1d4daa91
LC
1238 const char *dx_str = qdict_get_str(qdict, "dx_str");
1239 const char *dy_str = qdict_get_str(qdict, "dy_str");
1240 const char *dz_str = qdict_get_try_str(qdict, "dz_str");
13224a87
FB
1241 dx = strtol(dx_str, NULL, 0);
1242 dy = strtol(dy_str, NULL, 0);
1243 dz = 0;
5fafdf24 1244 if (dz_str)
13224a87
FB
1245 dz = strtol(dz_str, NULL, 0);
1246 kbd_mouse_event(dx, dy, dz, mouse_button_state);
1247}
1248
d54908a5 1249static void do_mouse_button(Monitor *mon, const QDict *qdict)
13224a87 1250{
d54908a5 1251 int button_state = qdict_get_int(qdict, "button_state");
13224a87
FB
1252 mouse_button_state = button_state;
1253 kbd_mouse_event(0, 0, 0, mouse_button_state);
1254}
1255
aa93e39c 1256static void do_ioport_read(Monitor *mon, const QDict *qdict)
3440557b 1257{
aa93e39c
LC
1258 int size = qdict_get_int(qdict, "size");
1259 int addr = qdict_get_int(qdict, "addr");
1260 int has_index = qdict_haskey(qdict, "index");
3440557b
FB
1261 uint32_t val;
1262 int suffix;
1263
1264 if (has_index) {
aa93e39c 1265 int index = qdict_get_int(qdict, "index");
afcea8cb 1266 cpu_outb(addr & IOPORTS_MASK, index & 0xff);
3440557b
FB
1267 addr++;
1268 }
1269 addr &= 0xffff;
1270
1271 switch(size) {
1272 default:
1273 case 1:
afcea8cb 1274 val = cpu_inb(addr);
3440557b
FB
1275 suffix = 'b';
1276 break;
1277 case 2:
afcea8cb 1278 val = cpu_inw(addr);
3440557b
FB
1279 suffix = 'w';
1280 break;
1281 case 4:
afcea8cb 1282 val = cpu_inl(addr);
3440557b
FB
1283 suffix = 'l';
1284 break;
1285 }
376253ec
AL
1286 monitor_printf(mon, "port%c[0x%04x] = %#0*x\n",
1287 suffix, addr, size * 2, val);
3440557b 1288}
a3a91a35 1289
1bd1442e 1290static void do_ioport_write(Monitor *mon, const QDict *qdict)
f114784f 1291{
1bd1442e
LC
1292 int size = qdict_get_int(qdict, "size");
1293 int addr = qdict_get_int(qdict, "addr");
1294 int val = qdict_get_int(qdict, "val");
1295
f114784f
JK
1296 addr &= IOPORTS_MASK;
1297
1298 switch (size) {
1299 default:
1300 case 1:
afcea8cb 1301 cpu_outb(addr, val);
f114784f
JK
1302 break;
1303 case 2:
afcea8cb 1304 cpu_outw(addr, val);
f114784f
JK
1305 break;
1306 case 4:
afcea8cb 1307 cpu_outl(addr, val);
f114784f
JK
1308 break;
1309 }
1310}
1311
d54908a5 1312static void do_boot_set(Monitor *mon, const QDict *qdict)
0ecdffbb
AJ
1313{
1314 int res;
d54908a5 1315 const char *bootdevice = qdict_get_str(qdict, "bootdevice");
0ecdffbb 1316
76e30d0f
JK
1317 res = qemu_boot_set(bootdevice);
1318 if (res == 0) {
1319 monitor_printf(mon, "boot device list now set to %s\n", bootdevice);
1320 } else if (res > 0) {
1321 monitor_printf(mon, "setting boot device list failed\n");
0ecdffbb 1322 } else {
376253ec
AL
1323 monitor_printf(mon, "no function defined to set boot device list for "
1324 "this architecture\n");
0ecdffbb
AJ
1325 }
1326}
1327
b86bda5b 1328#if defined(TARGET_I386)
a8170e5e
AK
1329static void print_pte(Monitor *mon, hwaddr addr,
1330 hwaddr pte,
1331 hwaddr mask)
b86bda5b 1332{
d65aaf37
BS
1333#ifdef TARGET_X86_64
1334 if (addr & (1ULL << 47)) {
1335 addr |= -1LL << 48;
1336 }
1337#endif
1338 monitor_printf(mon, TARGET_FMT_plx ": " TARGET_FMT_plx
1339 " %c%c%c%c%c%c%c%c%c\n",
376253ec
AL
1340 addr,
1341 pte & mask,
d65aaf37 1342 pte & PG_NX_MASK ? 'X' : '-',
376253ec
AL
1343 pte & PG_GLOBAL_MASK ? 'G' : '-',
1344 pte & PG_PSE_MASK ? 'P' : '-',
1345 pte & PG_DIRTY_MASK ? 'D' : '-',
1346 pte & PG_ACCESSED_MASK ? 'A' : '-',
1347 pte & PG_PCD_MASK ? 'C' : '-',
1348 pte & PG_PWT_MASK ? 'T' : '-',
1349 pte & PG_USER_MASK ? 'U' : '-',
1350 pte & PG_RW_MASK ? 'W' : '-');
b86bda5b
FB
1351}
1352
9349b4f9 1353static void tlb_info_32(Monitor *mon, CPUArchState *env)
b86bda5b 1354{
94ac5cd2 1355 unsigned int l1, l2;
b86bda5b
FB
1356 uint32_t pgd, pde, pte;
1357
b86bda5b
FB
1358 pgd = env->cr[3] & ~0xfff;
1359 for(l1 = 0; l1 < 1024; l1++) {
b8b79323 1360 cpu_physical_memory_read(pgd + l1 * 4, &pde, 4);
b86bda5b
FB
1361 pde = le32_to_cpu(pde);
1362 if (pde & PG_PRESENT_MASK) {
1363 if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
d65aaf37
BS
1364 /* 4M pages */
1365 print_pte(mon, (l1 << 22), pde, ~((1 << 21) - 1));
b86bda5b
FB
1366 } else {
1367 for(l2 = 0; l2 < 1024; l2++) {
b8b79323 1368 cpu_physical_memory_read((pde & ~0xfff) + l2 * 4, &pte, 4);
b86bda5b
FB
1369 pte = le32_to_cpu(pte);
1370 if (pte & PG_PRESENT_MASK) {
376253ec 1371 print_pte(mon, (l1 << 22) + (l2 << 12),
5fafdf24 1372 pte & ~PG_PSE_MASK,
b86bda5b
FB
1373 ~0xfff);
1374 }
1375 }
1376 }
1377 }
1378 }
1379}
1380
9349b4f9 1381static void tlb_info_pae32(Monitor *mon, CPUArchState *env)
d65aaf37 1382{
94ac5cd2 1383 unsigned int l1, l2, l3;
d65aaf37
BS
1384 uint64_t pdpe, pde, pte;
1385 uint64_t pdp_addr, pd_addr, pt_addr;
1386
1387 pdp_addr = env->cr[3] & ~0x1f;
1388 for (l1 = 0; l1 < 4; l1++) {
b8b79323 1389 cpu_physical_memory_read(pdp_addr + l1 * 8, &pdpe, 8);
d65aaf37
BS
1390 pdpe = le64_to_cpu(pdpe);
1391 if (pdpe & PG_PRESENT_MASK) {
1392 pd_addr = pdpe & 0x3fffffffff000ULL;
1393 for (l2 = 0; l2 < 512; l2++) {
b8b79323 1394 cpu_physical_memory_read(pd_addr + l2 * 8, &pde, 8);
d65aaf37
BS
1395 pde = le64_to_cpu(pde);
1396 if (pde & PG_PRESENT_MASK) {
1397 if (pde & PG_PSE_MASK) {
1398 /* 2M pages with PAE, CR4.PSE is ignored */
1399 print_pte(mon, (l1 << 30 ) + (l2 << 21), pde,
a8170e5e 1400 ~((hwaddr)(1 << 20) - 1));
d65aaf37
BS
1401 } else {
1402 pt_addr = pde & 0x3fffffffff000ULL;
1403 for (l3 = 0; l3 < 512; l3++) {
b8b79323 1404 cpu_physical_memory_read(pt_addr + l3 * 8, &pte, 8);
d65aaf37
BS
1405 pte = le64_to_cpu(pte);
1406 if (pte & PG_PRESENT_MASK) {
1407 print_pte(mon, (l1 << 30 ) + (l2 << 21)
1408 + (l3 << 12),
1409 pte & ~PG_PSE_MASK,
a8170e5e 1410 ~(hwaddr)0xfff);
d65aaf37
BS
1411 }
1412 }
1413 }
1414 }
1415 }
1416 }
1417 }
1418}
1419
1420#ifdef TARGET_X86_64
9349b4f9 1421static void tlb_info_64(Monitor *mon, CPUArchState *env)
d65aaf37
BS
1422{
1423 uint64_t l1, l2, l3, l4;
1424 uint64_t pml4e, pdpe, pde, pte;
1425 uint64_t pml4_addr, pdp_addr, pd_addr, pt_addr;
1426
1427 pml4_addr = env->cr[3] & 0x3fffffffff000ULL;
1428 for (l1 = 0; l1 < 512; l1++) {
b8b79323 1429 cpu_physical_memory_read(pml4_addr + l1 * 8, &pml4e, 8);
d65aaf37
BS
1430 pml4e = le64_to_cpu(pml4e);
1431 if (pml4e & PG_PRESENT_MASK) {
1432 pdp_addr = pml4e & 0x3fffffffff000ULL;
1433 for (l2 = 0; l2 < 512; l2++) {
b8b79323 1434 cpu_physical_memory_read(pdp_addr + l2 * 8, &pdpe, 8);
d65aaf37
BS
1435 pdpe = le64_to_cpu(pdpe);
1436 if (pdpe & PG_PRESENT_MASK) {
1437 if (pdpe & PG_PSE_MASK) {
1438 /* 1G pages, CR4.PSE is ignored */
1439 print_pte(mon, (l1 << 39) + (l2 << 30), pdpe,
1440 0x3ffffc0000000ULL);
1441 } else {
1442 pd_addr = pdpe & 0x3fffffffff000ULL;
1443 for (l3 = 0; l3 < 512; l3++) {
b8b79323 1444 cpu_physical_memory_read(pd_addr + l3 * 8, &pde, 8);
d65aaf37
BS
1445 pde = le64_to_cpu(pde);
1446 if (pde & PG_PRESENT_MASK) {
1447 if (pde & PG_PSE_MASK) {
1448 /* 2M pages, CR4.PSE is ignored */
1449 print_pte(mon, (l1 << 39) + (l2 << 30) +
1450 (l3 << 21), pde,
1451 0x3ffffffe00000ULL);
1452 } else {
1453 pt_addr = pde & 0x3fffffffff000ULL;
1454 for (l4 = 0; l4 < 512; l4++) {
1455 cpu_physical_memory_read(pt_addr
1456 + l4 * 8,
b8b79323 1457 &pte, 8);
d65aaf37
BS
1458 pte = le64_to_cpu(pte);
1459 if (pte & PG_PRESENT_MASK) {
1460 print_pte(mon, (l1 << 39) +
1461 (l2 << 30) +
1462 (l3 << 21) + (l4 << 12),
1463 pte & ~PG_PSE_MASK,
1464 0x3fffffffff000ULL);
1465 }
1466 }
1467 }
1468 }
1469 }
1470 }
1471 }
1472 }
1473 }
1474 }
1475}
1476#endif
1477
84f2d0ea 1478static void tlb_info(Monitor *mon, const QDict *qdict)
d65aaf37 1479{
9349b4f9 1480 CPUArchState *env;
d65aaf37
BS
1481
1482 env = mon_get_cpu();
1483
1484 if (!(env->cr[0] & CR0_PG_MASK)) {
1485 monitor_printf(mon, "PG disabled\n");
1486 return;
1487 }
1488 if (env->cr[4] & CR4_PAE_MASK) {
1489#ifdef TARGET_X86_64
1490 if (env->hflags & HF_LMA_MASK) {
1491 tlb_info_64(mon, env);
1492 } else
1493#endif
1494 {
1495 tlb_info_pae32(mon, env);
1496 }
1497 } else {
1498 tlb_info_32(mon, env);
1499 }
1500}
1501
a8170e5e 1502static void mem_print(Monitor *mon, hwaddr *pstart,
1b3cba6e 1503 int *plast_prot,
a8170e5e 1504 hwaddr end, int prot)
b86bda5b 1505{
9746b15b
FB
1506 int prot1;
1507 prot1 = *plast_prot;
1508 if (prot != prot1) {
b86bda5b 1509 if (*pstart != -1) {
1b3cba6e
BS
1510 monitor_printf(mon, TARGET_FMT_plx "-" TARGET_FMT_plx " "
1511 TARGET_FMT_plx " %c%c%c\n",
376253ec
AL
1512 *pstart, end, end - *pstart,
1513 prot1 & PG_USER_MASK ? 'u' : '-',
1514 'r',
1515 prot1 & PG_RW_MASK ? 'w' : '-');
b86bda5b
FB
1516 }
1517 if (prot != 0)
1518 *pstart = end;
1519 else
1520 *pstart = -1;
1521 *plast_prot = prot;
1522 }
1523}
1524
9349b4f9 1525static void mem_info_32(Monitor *mon, CPUArchState *env)
b86bda5b 1526{
b49ca72d
AC
1527 unsigned int l1, l2;
1528 int prot, last_prot;
1b3cba6e 1529 uint32_t pgd, pde, pte;
a8170e5e 1530 hwaddr start, end;
6a00d601 1531
b86bda5b
FB
1532 pgd = env->cr[3] & ~0xfff;
1533 last_prot = 0;
1534 start = -1;
1535 for(l1 = 0; l1 < 1024; l1++) {
b8b79323 1536 cpu_physical_memory_read(pgd + l1 * 4, &pde, 4);
b86bda5b
FB
1537 pde = le32_to_cpu(pde);
1538 end = l1 << 22;
1539 if (pde & PG_PRESENT_MASK) {
1540 if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1541 prot = pde & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
376253ec 1542 mem_print(mon, &start, &last_prot, end, prot);
b86bda5b
FB
1543 } else {
1544 for(l2 = 0; l2 < 1024; l2++) {
b8b79323 1545 cpu_physical_memory_read((pde & ~0xfff) + l2 * 4, &pte, 4);
b86bda5b
FB
1546 pte = le32_to_cpu(pte);
1547 end = (l1 << 22) + (l2 << 12);
1548 if (pte & PG_PRESENT_MASK) {
c76c8416
AC
1549 prot = pte & pde &
1550 (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
b86bda5b
FB
1551 } else {
1552 prot = 0;
1553 }
376253ec 1554 mem_print(mon, &start, &last_prot, end, prot);
b86bda5b
FB
1555 }
1556 }
1557 } else {
1558 prot = 0;
376253ec 1559 mem_print(mon, &start, &last_prot, end, prot);
b86bda5b
FB
1560 }
1561 }
8a94b8ca 1562 /* Flush last range */
a8170e5e 1563 mem_print(mon, &start, &last_prot, (hwaddr)1 << 32, 0);
b86bda5b 1564}
1b3cba6e 1565
9349b4f9 1566static void mem_info_pae32(Monitor *mon, CPUArchState *env)
1b3cba6e 1567{
b49ca72d
AC
1568 unsigned int l1, l2, l3;
1569 int prot, last_prot;
1b3cba6e
BS
1570 uint64_t pdpe, pde, pte;
1571 uint64_t pdp_addr, pd_addr, pt_addr;
a8170e5e 1572 hwaddr start, end;
1b3cba6e
BS
1573
1574 pdp_addr = env->cr[3] & ~0x1f;
1575 last_prot = 0;
1576 start = -1;
1577 for (l1 = 0; l1 < 4; l1++) {
b8b79323 1578 cpu_physical_memory_read(pdp_addr + l1 * 8, &pdpe, 8);
1b3cba6e
BS
1579 pdpe = le64_to_cpu(pdpe);
1580 end = l1 << 30;
1581 if (pdpe & PG_PRESENT_MASK) {
1582 pd_addr = pdpe & 0x3fffffffff000ULL;
1583 for (l2 = 0; l2 < 512; l2++) {
b8b79323 1584 cpu_physical_memory_read(pd_addr + l2 * 8, &pde, 8);
1b3cba6e
BS
1585 pde = le64_to_cpu(pde);
1586 end = (l1 << 30) + (l2 << 21);
1587 if (pde & PG_PRESENT_MASK) {
1588 if (pde & PG_PSE_MASK) {
1589 prot = pde & (PG_USER_MASK | PG_RW_MASK |
1590 PG_PRESENT_MASK);
1591 mem_print(mon, &start, &last_prot, end, prot);
1592 } else {
1593 pt_addr = pde & 0x3fffffffff000ULL;
1594 for (l3 = 0; l3 < 512; l3++) {
b8b79323 1595 cpu_physical_memory_read(pt_addr + l3 * 8, &pte, 8);
1b3cba6e
BS
1596 pte = le64_to_cpu(pte);
1597 end = (l1 << 30) + (l2 << 21) + (l3 << 12);
1598 if (pte & PG_PRESENT_MASK) {
c76c8416
AC
1599 prot = pte & pde & (PG_USER_MASK | PG_RW_MASK |
1600 PG_PRESENT_MASK);
1b3cba6e
BS
1601 } else {
1602 prot = 0;
1603 }
1604 mem_print(mon, &start, &last_prot, end, prot);
1605 }
1606 }
1607 } else {
1608 prot = 0;
1609 mem_print(mon, &start, &last_prot, end, prot);
1610 }
1611 }
1612 } else {
1613 prot = 0;
1614 mem_print(mon, &start, &last_prot, end, prot);
1615 }
1616 }
8a94b8ca 1617 /* Flush last range */
a8170e5e 1618 mem_print(mon, &start, &last_prot, (hwaddr)1 << 32, 0);
1b3cba6e
BS
1619}
1620
1621
1622#ifdef TARGET_X86_64
9349b4f9 1623static void mem_info_64(Monitor *mon, CPUArchState *env)
1b3cba6e
BS
1624{
1625 int prot, last_prot;
1626 uint64_t l1, l2, l3, l4;
1627 uint64_t pml4e, pdpe, pde, pte;
1628 uint64_t pml4_addr, pdp_addr, pd_addr, pt_addr, start, end;
1629
1630 pml4_addr = env->cr[3] & 0x3fffffffff000ULL;
1631 last_prot = 0;
1632 start = -1;
1633 for (l1 = 0; l1 < 512; l1++) {
b8b79323 1634 cpu_physical_memory_read(pml4_addr + l1 * 8, &pml4e, 8);
1b3cba6e
BS
1635 pml4e = le64_to_cpu(pml4e);
1636 end = l1 << 39;
1637 if (pml4e & PG_PRESENT_MASK) {
1638 pdp_addr = pml4e & 0x3fffffffff000ULL;
1639 for (l2 = 0; l2 < 512; l2++) {
b8b79323 1640 cpu_physical_memory_read(pdp_addr + l2 * 8, &pdpe, 8);
1b3cba6e
BS
1641 pdpe = le64_to_cpu(pdpe);
1642 end = (l1 << 39) + (l2 << 30);
1643 if (pdpe & PG_PRESENT_MASK) {
1644 if (pdpe & PG_PSE_MASK) {
2d5b5074
BS
1645 prot = pdpe & (PG_USER_MASK | PG_RW_MASK |
1646 PG_PRESENT_MASK);
c76c8416 1647 prot &= pml4e;
1b3cba6e
BS
1648 mem_print(mon, &start, &last_prot, end, prot);
1649 } else {
1650 pd_addr = pdpe & 0x3fffffffff000ULL;
1651 for (l3 = 0; l3 < 512; l3++) {
b8b79323 1652 cpu_physical_memory_read(pd_addr + l3 * 8, &pde, 8);
1b3cba6e
BS
1653 pde = le64_to_cpu(pde);
1654 end = (l1 << 39) + (l2 << 30) + (l3 << 21);
1655 if (pde & PG_PRESENT_MASK) {
1656 if (pde & PG_PSE_MASK) {
1657 prot = pde & (PG_USER_MASK | PG_RW_MASK |
1658 PG_PRESENT_MASK);
c76c8416 1659 prot &= pml4e & pdpe;
1b3cba6e
BS
1660 mem_print(mon, &start, &last_prot, end, prot);
1661 } else {
1662 pt_addr = pde & 0x3fffffffff000ULL;
1663 for (l4 = 0; l4 < 512; l4++) {
1664 cpu_physical_memory_read(pt_addr
1665 + l4 * 8,
b8b79323 1666 &pte, 8);
1b3cba6e
BS
1667 pte = le64_to_cpu(pte);
1668 end = (l1 << 39) + (l2 << 30) +
1669 (l3 << 21) + (l4 << 12);
1670 if (pte & PG_PRESENT_MASK) {
1671 prot = pte & (PG_USER_MASK | PG_RW_MASK |
1672 PG_PRESENT_MASK);
c76c8416 1673 prot &= pml4e & pdpe & pde;
1b3cba6e
BS
1674 } else {
1675 prot = 0;
1676 }
1677 mem_print(mon, &start, &last_prot, end, prot);
1678 }
1679 }
1680 } else {
1681 prot = 0;
1682 mem_print(mon, &start, &last_prot, end, prot);
1683 }
1684 }
1685 }
1686 } else {
1687 prot = 0;
1688 mem_print(mon, &start, &last_prot, end, prot);
1689 }
1690 }
1691 } else {
1692 prot = 0;
1693 mem_print(mon, &start, &last_prot, end, prot);
1694 }
1695 }
8a94b8ca 1696 /* Flush last range */
a8170e5e 1697 mem_print(mon, &start, &last_prot, (hwaddr)1 << 48, 0);
1b3cba6e
BS
1698}
1699#endif
1700
84f2d0ea 1701static void mem_info(Monitor *mon, const QDict *qdict)
1b3cba6e 1702{
9349b4f9 1703 CPUArchState *env;
1b3cba6e
BS
1704
1705 env = mon_get_cpu();
1706
1707 if (!(env->cr[0] & CR0_PG_MASK)) {
1708 monitor_printf(mon, "PG disabled\n");
1709 return;
1710 }
1711 if (env->cr[4] & CR4_PAE_MASK) {
1712#ifdef TARGET_X86_64
1713 if (env->hflags & HF_LMA_MASK) {
1714 mem_info_64(mon, env);
1715 } else
1716#endif
1717 {
1718 mem_info_pae32(mon, env);
1719 }
1720 } else {
1721 mem_info_32(mon, env);
1722 }
1723}
b86bda5b
FB
1724#endif
1725
7c664e2f
AJ
1726#if defined(TARGET_SH4)
1727
376253ec 1728static void print_tlb(Monitor *mon, int idx, tlb_t *tlb)
7c664e2f 1729{
376253ec
AL
1730 monitor_printf(mon, " tlb%i:\t"
1731 "asid=%hhu vpn=%x\tppn=%x\tsz=%hhu size=%u\t"
1732 "v=%hhu shared=%hhu cached=%hhu prot=%hhu "
1733 "dirty=%hhu writethrough=%hhu\n",
1734 idx,
1735 tlb->asid, tlb->vpn, tlb->ppn, tlb->sz, tlb->size,
1736 tlb->v, tlb->sh, tlb->c, tlb->pr,
1737 tlb->d, tlb->wt);
7c664e2f
AJ
1738}
1739
84f2d0ea 1740static void tlb_info(Monitor *mon, const QDict *qdict)
7c664e2f 1741{
9349b4f9 1742 CPUArchState *env = mon_get_cpu();
7c664e2f
AJ
1743 int i;
1744
376253ec 1745 monitor_printf (mon, "ITLB:\n");
7c664e2f 1746 for (i = 0 ; i < ITLB_SIZE ; i++)
376253ec
AL
1747 print_tlb (mon, i, &env->itlb[i]);
1748 monitor_printf (mon, "UTLB:\n");
7c664e2f 1749 for (i = 0 ; i < UTLB_SIZE ; i++)
376253ec 1750 print_tlb (mon, i, &env->utlb[i]);
7c664e2f
AJ
1751}
1752
1753#endif
1754
692f737c 1755#if defined(TARGET_SPARC) || defined(TARGET_PPC) || defined(TARGET_XTENSA)
84f2d0ea 1756static void tlb_info(Monitor *mon, const QDict *qdict)
d41160a3 1757{
9349b4f9 1758 CPUArchState *env1 = mon_get_cpu();
d41160a3
BS
1759
1760 dump_mmu((FILE*)mon, (fprintf_function)monitor_printf, env1);
1761}
1762#endif
1763
84f2d0ea 1764static void do_info_mtree(Monitor *mon, const QDict *qdict)
314e2987
BS
1765{
1766 mtree_info((fprintf_function)monitor_printf, mon);
1767}
1768
84f2d0ea 1769static void do_info_numa(Monitor *mon, const QDict *qdict)
030ea37b 1770{
b28b6230 1771 int i;
9349b4f9 1772 CPUArchState *env;
1b1ed8dc 1773 CPUState *cpu;
030ea37b
AL
1774
1775 monitor_printf(mon, "%d nodes\n", nb_numa_nodes);
1776 for (i = 0; i < nb_numa_nodes; i++) {
1777 monitor_printf(mon, "node %d cpus:", i);
1778 for (env = first_cpu; env != NULL; env = env->next_cpu) {
1b1ed8dc
AF
1779 cpu = ENV_GET_CPU(env);
1780 if (cpu->numa_node == i) {
55e5c285 1781 monitor_printf(mon, " %d", cpu->cpu_index);
030ea37b
AL
1782 }
1783 }
1784 monitor_printf(mon, "\n");
1785 monitor_printf(mon, "node %d size: %" PRId64 " MB\n", i,
1786 node_mem[i] >> 20);
1787 }
1788}
1789
5f1ce948
FB
1790#ifdef CONFIG_PROFILER
1791
e9a6625e
AJ
1792int64_t qemu_time;
1793int64_t dev_time;
1794
84f2d0ea 1795static void do_info_profile(Monitor *mon, const QDict *qdict)
5f1ce948
FB
1796{
1797 int64_t total;
1798 total = qemu_time;
1799 if (total == 0)
1800 total = 1;
376253ec 1801 monitor_printf(mon, "async time %" PRId64 " (%0.3f)\n",
6ee093c9 1802 dev_time, dev_time / (double)get_ticks_per_sec());
376253ec 1803 monitor_printf(mon, "qemu time %" PRId64 " (%0.3f)\n",
6ee093c9 1804 qemu_time, qemu_time / (double)get_ticks_per_sec());
5f1ce948 1805 qemu_time = 0;
5f1ce948 1806 dev_time = 0;
5f1ce948
FB
1807}
1808#else
84f2d0ea 1809static void do_info_profile(Monitor *mon, const QDict *qdict)
5f1ce948 1810{
376253ec 1811 monitor_printf(mon, "Internal profiler not compiled\n");
5f1ce948
FB
1812}
1813#endif
1814
ec36b695 1815/* Capture support */
72cf2d4f 1816static QLIST_HEAD (capture_list_head, CaptureState) capture_head;
ec36b695 1817
84f2d0ea 1818static void do_info_capture(Monitor *mon, const QDict *qdict)
ec36b695
FB
1819{
1820 int i;
1821 CaptureState *s;
1822
1823 for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
376253ec 1824 monitor_printf(mon, "[%d]: ", i);
ec36b695
FB
1825 s->ops.info (s->opaque);
1826 }
1827}
1828
2313086a 1829#ifdef HAS_AUDIO
d54908a5 1830static void do_stop_capture(Monitor *mon, const QDict *qdict)
ec36b695
FB
1831{
1832 int i;
d54908a5 1833 int n = qdict_get_int(qdict, "n");
ec36b695
FB
1834 CaptureState *s;
1835
1836 for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1837 if (i == n) {
1838 s->ops.destroy (s->opaque);
72cf2d4f 1839 QLIST_REMOVE (s, entries);
7267c094 1840 g_free (s);
ec36b695
FB
1841 return;
1842 }
1843 }
1844}
1845
c1925484
LC
1846static void do_wav_capture(Monitor *mon, const QDict *qdict)
1847{
1848 const char *path = qdict_get_str(qdict, "path");
1849 int has_freq = qdict_haskey(qdict, "freq");
1850 int freq = qdict_get_try_int(qdict, "freq", -1);
1851 int has_bits = qdict_haskey(qdict, "bits");
1852 int bits = qdict_get_try_int(qdict, "bits", -1);
1853 int has_channels = qdict_haskey(qdict, "nchannels");
1854 int nchannels = qdict_get_try_int(qdict, "nchannels", -1);
ec36b695
FB
1855 CaptureState *s;
1856
7267c094 1857 s = g_malloc0 (sizeof (*s));
ec36b695
FB
1858
1859 freq = has_freq ? freq : 44100;
1860 bits = has_bits ? bits : 16;
1861 nchannels = has_channels ? nchannels : 2;
1862
1863 if (wav_start_capture (s, path, freq, bits, nchannels)) {
d00b2618 1864 monitor_printf(mon, "Failed to add wave capture\n");
7267c094 1865 g_free (s);
d00b2618 1866 return;
ec36b695 1867 }
72cf2d4f 1868 QLIST_INSERT_HEAD (&capture_head, s, entries);
ec36b695
FB
1869}
1870#endif
1871
15dfcd45 1872static qemu_acl *find_acl(Monitor *mon, const char *name)
76655d6d 1873{
15dfcd45 1874 qemu_acl *acl = qemu_acl_find(name);
76655d6d 1875
76655d6d 1876 if (!acl) {
15dfcd45 1877 monitor_printf(mon, "acl: unknown list '%s'\n", name);
76655d6d 1878 }
15dfcd45
JK
1879 return acl;
1880}
1881
d54908a5 1882static void do_acl_show(Monitor *mon, const QDict *qdict)
15dfcd45 1883{
d54908a5 1884 const char *aclname = qdict_get_str(qdict, "aclname");
15dfcd45
JK
1885 qemu_acl *acl = find_acl(mon, aclname);
1886 qemu_acl_entry *entry;
1887 int i = 0;
76655d6d 1888
15dfcd45 1889 if (acl) {
28a76be8 1890 monitor_printf(mon, "policy: %s\n",
76655d6d 1891 acl->defaultDeny ? "deny" : "allow");
72cf2d4f 1892 QTAILQ_FOREACH(entry, &acl->entries, next) {
28a76be8
AL
1893 i++;
1894 monitor_printf(mon, "%d: %s %s\n", i,
15dfcd45 1895 entry->deny ? "deny" : "allow", entry->match);
28a76be8 1896 }
15dfcd45
JK
1897 }
1898}
1899
d54908a5 1900static void do_acl_reset(Monitor *mon, const QDict *qdict)
15dfcd45 1901{
d54908a5 1902 const char *aclname = qdict_get_str(qdict, "aclname");
15dfcd45
JK
1903 qemu_acl *acl = find_acl(mon, aclname);
1904
1905 if (acl) {
28a76be8
AL
1906 qemu_acl_reset(acl);
1907 monitor_printf(mon, "acl: removed all rules\n");
15dfcd45
JK
1908 }
1909}
1910
f18c16de 1911static void do_acl_policy(Monitor *mon, const QDict *qdict)
15dfcd45 1912{
f18c16de
LC
1913 const char *aclname = qdict_get_str(qdict, "aclname");
1914 const char *policy = qdict_get_str(qdict, "policy");
15dfcd45 1915 qemu_acl *acl = find_acl(mon, aclname);
28a76be8 1916
15dfcd45
JK
1917 if (acl) {
1918 if (strcmp(policy, "allow") == 0) {
28a76be8
AL
1919 acl->defaultDeny = 0;
1920 monitor_printf(mon, "acl: policy set to 'allow'\n");
15dfcd45 1921 } else if (strcmp(policy, "deny") == 0) {
28a76be8
AL
1922 acl->defaultDeny = 1;
1923 monitor_printf(mon, "acl: policy set to 'deny'\n");
1924 } else {
15dfcd45
JK
1925 monitor_printf(mon, "acl: unknown policy '%s', "
1926 "expected 'deny' or 'allow'\n", policy);
28a76be8 1927 }
15dfcd45
JK
1928 }
1929}
28a76be8 1930
1bd1442e 1931static void do_acl_add(Monitor *mon, const QDict *qdict)
15dfcd45 1932{
1bd1442e
LC
1933 const char *aclname = qdict_get_str(qdict, "aclname");
1934 const char *match = qdict_get_str(qdict, "match");
1935 const char *policy = qdict_get_str(qdict, "policy");
1936 int has_index = qdict_haskey(qdict, "index");
1937 int index = qdict_get_try_int(qdict, "index", -1);
15dfcd45
JK
1938 qemu_acl *acl = find_acl(mon, aclname);
1939 int deny, ret;
1940
1941 if (acl) {
1942 if (strcmp(policy, "allow") == 0) {
1943 deny = 0;
1944 } else if (strcmp(policy, "deny") == 0) {
1945 deny = 1;
1946 } else {
1947 monitor_printf(mon, "acl: unknown policy '%s', "
1948 "expected 'deny' or 'allow'\n", policy);
28a76be8
AL
1949 return;
1950 }
28a76be8
AL
1951 if (has_index)
1952 ret = qemu_acl_insert(acl, deny, match, index);
1953 else
1954 ret = qemu_acl_append(acl, deny, match);
1955 if (ret < 0)
1956 monitor_printf(mon, "acl: unable to add acl entry\n");
1957 else
1958 monitor_printf(mon, "acl: added rule at position %d\n", ret);
15dfcd45
JK
1959 }
1960}
28a76be8 1961
f18c16de 1962static void do_acl_remove(Monitor *mon, const QDict *qdict)
15dfcd45 1963{
f18c16de
LC
1964 const char *aclname = qdict_get_str(qdict, "aclname");
1965 const char *match = qdict_get_str(qdict, "match");
15dfcd45
JK
1966 qemu_acl *acl = find_acl(mon, aclname);
1967 int ret;
28a76be8 1968
15dfcd45 1969 if (acl) {
28a76be8
AL
1970 ret = qemu_acl_remove(acl, match);
1971 if (ret < 0)
1972 monitor_printf(mon, "acl: no matching acl entry\n");
1973 else
1974 monitor_printf(mon, "acl: removed rule at position %d\n", ret);
76655d6d
AL
1975 }
1976}
1977
79c4f6b0 1978#if defined(TARGET_I386)
37b7ad48 1979static void do_inject_mce(Monitor *mon, const QDict *qdict)
79c4f6b0 1980{
8c5cf3b6
AF
1981 X86CPU *cpu;
1982 CPUX86State *cenv;
55e5c285 1983 CPUState *cs;
37b7ad48
LC
1984 int cpu_index = qdict_get_int(qdict, "cpu_index");
1985 int bank = qdict_get_int(qdict, "bank");
1986 uint64_t status = qdict_get_int(qdict, "status");
1987 uint64_t mcg_status = qdict_get_int(qdict, "mcg_status");
1988 uint64_t addr = qdict_get_int(qdict, "addr");
1989 uint64_t misc = qdict_get_int(qdict, "misc");
747461c7 1990 int flags = MCE_INJECT_UNCOND_AO;
79c4f6b0 1991
747461c7
JK
1992 if (qdict_get_try_bool(qdict, "broadcast", 0)) {
1993 flags |= MCE_INJECT_BROADCAST;
1994 }
31ce5e0c 1995 for (cenv = first_cpu; cenv != NULL; cenv = cenv->next_cpu) {
8c5cf3b6 1996 cpu = x86_env_get_cpu(cenv);
55e5c285
AF
1997 cs = CPU(cpu);
1998 if (cs->cpu_index == cpu_index) {
8c5cf3b6 1999 cpu_x86_inject_mce(mon, cpu, bank, status, mcg_status, addr, misc,
747461c7 2000 flags);
79c4f6b0
HY
2001 break;
2002 }
31ce5e0c 2003 }
79c4f6b0
HY
2004}
2005#endif
2006
208c9d1b 2007void qmp_getfd(const char *fdname, Error **errp)
f07918fd 2008{
c227f099 2009 mon_fd_t *monfd;
f07918fd
MM
2010 int fd;
2011
208c9d1b 2012 fd = qemu_chr_fe_get_msgfd(cur_mon->chr);
f07918fd 2013 if (fd == -1) {
208c9d1b
CB
2014 error_set(errp, QERR_FD_NOT_SUPPLIED);
2015 return;
f07918fd
MM
2016 }
2017
2018 if (qemu_isdigit(fdname[0])) {
208c9d1b
CB
2019 error_set(errp, QERR_INVALID_PARAMETER_VALUE, "fdname",
2020 "a name not starting with a digit");
2021 return;
f07918fd
MM
2022 }
2023
208c9d1b 2024 QLIST_FOREACH(monfd, &cur_mon->fds, next) {
f07918fd
MM
2025 if (strcmp(monfd->name, fdname) != 0) {
2026 continue;
2027 }
2028
2029 close(monfd->fd);
2030 monfd->fd = fd;
208c9d1b 2031 return;
f07918fd
MM
2032 }
2033
7267c094
AL
2034 monfd = g_malloc0(sizeof(mon_fd_t));
2035 monfd->name = g_strdup(fdname);
f07918fd
MM
2036 monfd->fd = fd;
2037
208c9d1b 2038 QLIST_INSERT_HEAD(&cur_mon->fds, monfd, next);
f07918fd
MM
2039}
2040
208c9d1b 2041void qmp_closefd(const char *fdname, Error **errp)
f07918fd 2042{
c227f099 2043 mon_fd_t *monfd;
f07918fd 2044
208c9d1b 2045 QLIST_FOREACH(monfd, &cur_mon->fds, next) {
f07918fd
MM
2046 if (strcmp(monfd->name, fdname) != 0) {
2047 continue;
2048 }
2049
72cf2d4f 2050 QLIST_REMOVE(monfd, next);
f07918fd 2051 close(monfd->fd);
7267c094
AL
2052 g_free(monfd->name);
2053 g_free(monfd);
208c9d1b 2054 return;
f07918fd
MM
2055 }
2056
208c9d1b 2057 error_set(errp, QERR_FD_NOT_FOUND, fdname);
f07918fd
MM
2058}
2059
d54908a5 2060static void do_loadvm(Monitor *mon, const QDict *qdict)
c8d41b2c 2061{
1354869c 2062 int saved_vm_running = runstate_is_running();
d54908a5 2063 const char *name = qdict_get_str(qdict, "name");
c8d41b2c 2064
0461d5a6 2065 vm_stop(RUN_STATE_RESTORE_VM);
c8d41b2c 2066
f0aa7a8b 2067 if (load_vmstate(name) == 0 && saved_vm_running) {
c8d41b2c 2068 vm_start();
f0aa7a8b 2069 }
c8d41b2c
JQ
2070}
2071
a9940fc4 2072int monitor_get_fd(Monitor *mon, const char *fdname, Error **errp)
7768e04c 2073{
c227f099 2074 mon_fd_t *monfd;
7768e04c 2075
72cf2d4f 2076 QLIST_FOREACH(monfd, &mon->fds, next) {
7768e04c
MM
2077 int fd;
2078
2079 if (strcmp(monfd->name, fdname) != 0) {
2080 continue;
2081 }
2082
2083 fd = monfd->fd;
2084
2085 /* caller takes ownership of fd */
72cf2d4f 2086 QLIST_REMOVE(monfd, next);
7267c094
AL
2087 g_free(monfd->name);
2088 g_free(monfd);
7768e04c
MM
2089
2090 return fd;
2091 }
2092
a9940fc4 2093 error_setg(errp, "File descriptor named '%s' has not been found", fdname);
7768e04c
MM
2094 return -1;
2095}
2096
ba1c048a
CB
2097static void monitor_fdset_cleanup(MonFdset *mon_fdset)
2098{
2099 MonFdsetFd *mon_fdset_fd;
2100 MonFdsetFd *mon_fdset_fd_next;
2101
2102 QLIST_FOREACH_SAFE(mon_fdset_fd, &mon_fdset->fds, next, mon_fdset_fd_next) {
ebe52b59
CB
2103 if ((mon_fdset_fd->removed ||
2104 (QLIST_EMPTY(&mon_fdset->dup_fds) && mon_refcount == 0)) &&
2105 runstate_is_running()) {
ba1c048a
CB
2106 close(mon_fdset_fd->fd);
2107 g_free(mon_fdset_fd->opaque);
2108 QLIST_REMOVE(mon_fdset_fd, next);
2109 g_free(mon_fdset_fd);
2110 }
2111 }
2112
adb696f3 2113 if (QLIST_EMPTY(&mon_fdset->fds) && QLIST_EMPTY(&mon_fdset->dup_fds)) {
ba1c048a
CB
2114 QLIST_REMOVE(mon_fdset, next);
2115 g_free(mon_fdset);
2116 }
2117}
2118
efb87c16
CB
2119static void monitor_fdsets_cleanup(void)
2120{
2121 MonFdset *mon_fdset;
2122 MonFdset *mon_fdset_next;
2123
2124 QLIST_FOREACH_SAFE(mon_fdset, &mon_fdsets, next, mon_fdset_next) {
2125 monitor_fdset_cleanup(mon_fdset);
2126 }
2127}
2128
ba1c048a
CB
2129AddfdInfo *qmp_add_fd(bool has_fdset_id, int64_t fdset_id, bool has_opaque,
2130 const char *opaque, Error **errp)
2131{
2132 int fd;
2133 Monitor *mon = cur_mon;
ba1c048a
CB
2134 AddfdInfo *fdinfo;
2135
2136 fd = qemu_chr_fe_get_msgfd(mon->chr);
2137 if (fd == -1) {
2138 error_set(errp, QERR_FD_NOT_SUPPLIED);
2139 goto error;
2140 }
2141
e446f70d
CB
2142 fdinfo = monitor_fdset_add_fd(fd, has_fdset_id, fdset_id,
2143 has_opaque, opaque, errp);
2144 if (fdinfo) {
2145 return fdinfo;
ba1c048a 2146 }
ba1c048a
CB
2147
2148error:
2149 if (fd != -1) {
2150 close(fd);
2151 }
2152 return NULL;
2153}
2154
2155void qmp_remove_fd(int64_t fdset_id, bool has_fd, int64_t fd, Error **errp)
2156{
2157 MonFdset *mon_fdset;
2158 MonFdsetFd *mon_fdset_fd;
2159 char fd_str[60];
2160
2161 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2162 if (mon_fdset->id != fdset_id) {
2163 continue;
2164 }
2165 QLIST_FOREACH(mon_fdset_fd, &mon_fdset->fds, next) {
2166 if (has_fd) {
2167 if (mon_fdset_fd->fd != fd) {
2168 continue;
2169 }
2170 mon_fdset_fd->removed = true;
2171 break;
2172 } else {
2173 mon_fdset_fd->removed = true;
2174 }
2175 }
2176 if (has_fd && !mon_fdset_fd) {
2177 goto error;
2178 }
2179 monitor_fdset_cleanup(mon_fdset);
2180 return;
2181 }
2182
2183error:
2184 if (has_fd) {
2185 snprintf(fd_str, sizeof(fd_str), "fdset-id:%" PRId64 ", fd:%" PRId64,
2186 fdset_id, fd);
2187 } else {
2188 snprintf(fd_str, sizeof(fd_str), "fdset-id:%" PRId64, fdset_id);
2189 }
2190 error_set(errp, QERR_FD_NOT_FOUND, fd_str);
2191}
2192
2193FdsetInfoList *qmp_query_fdsets(Error **errp)
2194{
2195 MonFdset *mon_fdset;
2196 MonFdsetFd *mon_fdset_fd;
2197 FdsetInfoList *fdset_list = NULL;
2198
2199 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2200 FdsetInfoList *fdset_info = g_malloc0(sizeof(*fdset_info));
2201 FdsetFdInfoList *fdsetfd_list = NULL;
2202
2203 fdset_info->value = g_malloc0(sizeof(*fdset_info->value));
2204 fdset_info->value->fdset_id = mon_fdset->id;
2205
2206 QLIST_FOREACH(mon_fdset_fd, &mon_fdset->fds, next) {
2207 FdsetFdInfoList *fdsetfd_info;
2208
2209 fdsetfd_info = g_malloc0(sizeof(*fdsetfd_info));
2210 fdsetfd_info->value = g_malloc0(sizeof(*fdsetfd_info->value));
2211 fdsetfd_info->value->fd = mon_fdset_fd->fd;
2212 if (mon_fdset_fd->opaque) {
2213 fdsetfd_info->value->has_opaque = true;
2214 fdsetfd_info->value->opaque = g_strdup(mon_fdset_fd->opaque);
2215 } else {
2216 fdsetfd_info->value->has_opaque = false;
2217 }
2218
2219 fdsetfd_info->next = fdsetfd_list;
2220 fdsetfd_list = fdsetfd_info;
2221 }
2222
2223 fdset_info->value->fds = fdsetfd_list;
2224
2225 fdset_info->next = fdset_list;
2226 fdset_list = fdset_info;
2227 }
2228
2229 return fdset_list;
2230}
2231
e446f70d
CB
2232AddfdInfo *monitor_fdset_add_fd(int fd, bool has_fdset_id, int64_t fdset_id,
2233 bool has_opaque, const char *opaque,
2234 Error **errp)
2235{
2236 MonFdset *mon_fdset = NULL;
2237 MonFdsetFd *mon_fdset_fd;
2238 AddfdInfo *fdinfo;
2239
2240 if (has_fdset_id) {
2241 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2242 /* Break if match found or match impossible due to ordering by ID */
2243 if (fdset_id <= mon_fdset->id) {
2244 if (fdset_id < mon_fdset->id) {
2245 mon_fdset = NULL;
2246 }
2247 break;
2248 }
2249 }
2250 }
2251
2252 if (mon_fdset == NULL) {
2253 int64_t fdset_id_prev = -1;
2254 MonFdset *mon_fdset_cur = QLIST_FIRST(&mon_fdsets);
2255
2256 if (has_fdset_id) {
2257 if (fdset_id < 0) {
2258 error_set(errp, QERR_INVALID_PARAMETER_VALUE, "fdset-id",
2259 "a non-negative value");
2260 return NULL;
2261 }
2262 /* Use specified fdset ID */
2263 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2264 mon_fdset_cur = mon_fdset;
2265 if (fdset_id < mon_fdset_cur->id) {
2266 break;
2267 }
2268 }
2269 } else {
2270 /* Use first available fdset ID */
2271 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2272 mon_fdset_cur = mon_fdset;
2273 if (fdset_id_prev == mon_fdset_cur->id - 1) {
2274 fdset_id_prev = mon_fdset_cur->id;
2275 continue;
2276 }
2277 break;
2278 }
2279 }
2280
2281 mon_fdset = g_malloc0(sizeof(*mon_fdset));
2282 if (has_fdset_id) {
2283 mon_fdset->id = fdset_id;
2284 } else {
2285 mon_fdset->id = fdset_id_prev + 1;
2286 }
2287
2288 /* The fdset list is ordered by fdset ID */
2289 if (!mon_fdset_cur) {
2290 QLIST_INSERT_HEAD(&mon_fdsets, mon_fdset, next);
2291 } else if (mon_fdset->id < mon_fdset_cur->id) {
2292 QLIST_INSERT_BEFORE(mon_fdset_cur, mon_fdset, next);
2293 } else {
2294 QLIST_INSERT_AFTER(mon_fdset_cur, mon_fdset, next);
2295 }
2296 }
2297
2298 mon_fdset_fd = g_malloc0(sizeof(*mon_fdset_fd));
2299 mon_fdset_fd->fd = fd;
2300 mon_fdset_fd->removed = false;
2301 if (has_opaque) {
2302 mon_fdset_fd->opaque = g_strdup(opaque);
2303 }
2304 QLIST_INSERT_HEAD(&mon_fdset->fds, mon_fdset_fd, next);
2305
2306 fdinfo = g_malloc0(sizeof(*fdinfo));
2307 fdinfo->fdset_id = mon_fdset->id;
2308 fdinfo->fd = mon_fdset_fd->fd;
2309
2310 return fdinfo;
2311}
2312
adb696f3
CB
2313int monitor_fdset_get_fd(int64_t fdset_id, int flags)
2314{
b2dc64c3 2315#ifndef _WIN32
adb696f3
CB
2316 MonFdset *mon_fdset;
2317 MonFdsetFd *mon_fdset_fd;
2318 int mon_fd_flags;
2319
adb696f3
CB
2320 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2321 if (mon_fdset->id != fdset_id) {
2322 continue;
2323 }
2324 QLIST_FOREACH(mon_fdset_fd, &mon_fdset->fds, next) {
2325 mon_fd_flags = fcntl(mon_fdset_fd->fd, F_GETFL);
2326 if (mon_fd_flags == -1) {
2327 return -1;
2328 }
2329
2330 if ((flags & O_ACCMODE) == (mon_fd_flags & O_ACCMODE)) {
2331 return mon_fdset_fd->fd;
2332 }
2333 }
2334 errno = EACCES;
2335 return -1;
2336 }
2337#endif
2338
2339 errno = ENOENT;
2340 return -1;
2341}
2342
2343int monitor_fdset_dup_fd_add(int64_t fdset_id, int dup_fd)
2344{
2345 MonFdset *mon_fdset;
2346 MonFdsetFd *mon_fdset_fd_dup;
2347
2348 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2349 if (mon_fdset->id != fdset_id) {
2350 continue;
2351 }
2352 QLIST_FOREACH(mon_fdset_fd_dup, &mon_fdset->dup_fds, next) {
2353 if (mon_fdset_fd_dup->fd == dup_fd) {
2354 return -1;
2355 }
2356 }
2357 mon_fdset_fd_dup = g_malloc0(sizeof(*mon_fdset_fd_dup));
2358 mon_fdset_fd_dup->fd = dup_fd;
2359 QLIST_INSERT_HEAD(&mon_fdset->dup_fds, mon_fdset_fd_dup, next);
2360 return 0;
2361 }
2362 return -1;
2363}
2364
2365static int monitor_fdset_dup_fd_find_remove(int dup_fd, bool remove)
2366{
2367 MonFdset *mon_fdset;
2368 MonFdsetFd *mon_fdset_fd_dup;
2369
2370 QLIST_FOREACH(mon_fdset, &mon_fdsets, next) {
2371 QLIST_FOREACH(mon_fdset_fd_dup, &mon_fdset->dup_fds, next) {
2372 if (mon_fdset_fd_dup->fd == dup_fd) {
2373 if (remove) {
2374 QLIST_REMOVE(mon_fdset_fd_dup, next);
2375 if (QLIST_EMPTY(&mon_fdset->dup_fds)) {
2376 monitor_fdset_cleanup(mon_fdset);
2377 }
2378 }
2379 return mon_fdset->id;
2380 }
2381 }
2382 }
2383 return -1;
2384}
2385
2386int monitor_fdset_dup_fd_find(int dup_fd)
2387{
2388 return monitor_fdset_dup_fd_find_remove(dup_fd, false);
2389}
2390
2391int monitor_fdset_dup_fd_remove(int dup_fd)
2392{
2393 return monitor_fdset_dup_fd_find_remove(dup_fd, true);
2394}
2395
a96ed02f
NB
2396int monitor_handle_fd_param(Monitor *mon, const char *fdname)
2397{
2398 int fd;
a9940fc4 2399 Error *local_err = NULL;
a96ed02f
NB
2400
2401 if (!qemu_isdigit(fdname[0]) && mon) {
2402
a9940fc4 2403 fd = monitor_get_fd(mon, fdname, &local_err);
a96ed02f 2404 if (fd == -1) {
a9940fc4
PB
2405 qerror_report_err(local_err);
2406 error_free(local_err);
a96ed02f
NB
2407 return -1;
2408 }
2409 } else {
2410 fd = qemu_parse_fd(fdname);
2411 }
2412
2413 return fd;
2414}
2415
acd0a093 2416/* Please update hmp-commands.hx when adding or changing commands */
816f8925 2417static mon_cmd_t info_cmds[] = {
d7f9b689
LC
2418 {
2419 .name = "version",
2420 .args_type = "",
d7f9b689
LC
2421 .params = "",
2422 .help = "show the version of QEMU",
5f11cb00 2423 .mhandler.cmd = hmp_info_version,
d7f9b689
LC
2424 },
2425 {
2426 .name = "network",
2427 .args_type = "",
d7f9b689
LC
2428 .params = "",
2429 .help = "show the network state",
5f11cb00 2430 .mhandler.cmd = do_info_network,
d7f9b689
LC
2431 },
2432 {
2433 .name = "chardev",
2434 .args_type = "",
d7f9b689
LC
2435 .params = "",
2436 .help = "show the character devices",
5f11cb00 2437 .mhandler.cmd = hmp_info_chardev,
d7f9b689
LC
2438 },
2439 {
2440 .name = "block",
2441 .args_type = "",
d7f9b689
LC
2442 .params = "",
2443 .help = "show the block devices",
5f11cb00 2444 .mhandler.cmd = hmp_info_block,
d7f9b689
LC
2445 },
2446 {
2447 .name = "blockstats",
2448 .args_type = "",
d7f9b689
LC
2449 .params = "",
2450 .help = "show block device statistics",
5f11cb00 2451 .mhandler.cmd = hmp_info_blockstats,
d7f9b689 2452 },
fb5458cd
SH
2453 {
2454 .name = "block-jobs",
2455 .args_type = "",
2456 .params = "",
2457 .help = "show progress of ongoing block device operations",
5f11cb00 2458 .mhandler.cmd = hmp_info_block_jobs,
fb5458cd 2459 },
d7f9b689
LC
2460 {
2461 .name = "registers",
2462 .args_type = "",
d7f9b689
LC
2463 .params = "",
2464 .help = "show the cpu registers",
5f11cb00 2465 .mhandler.cmd = do_info_registers,
d7f9b689
LC
2466 },
2467 {
2468 .name = "cpus",
2469 .args_type = "",
d7f9b689
LC
2470 .params = "",
2471 .help = "show infos for each CPU",
5f11cb00 2472 .mhandler.cmd = hmp_info_cpus,
d7f9b689
LC
2473 },
2474 {
2475 .name = "history",
2476 .args_type = "",
d7f9b689
LC
2477 .params = "",
2478 .help = "show the command line history",
5f11cb00 2479 .mhandler.cmd = do_info_history,
d7f9b689 2480 },
661f1929
JK
2481#if defined(TARGET_I386) || defined(TARGET_PPC) || defined(TARGET_MIPS) || \
2482 defined(TARGET_LM32) || (defined(TARGET_SPARC) && !defined(TARGET_SPARC64))
d7f9b689
LC
2483 {
2484 .name = "irq",
2485 .args_type = "",
d7f9b689
LC
2486 .params = "",
2487 .help = "show the interrupts statistics (if available)",
661f1929 2488#ifdef TARGET_SPARC
5f11cb00 2489 .mhandler.cmd = sun4m_irq_info,
661f1929 2490#elif defined(TARGET_LM32)
5f11cb00 2491 .mhandler.cmd = lm32_irq_info,
661f1929 2492#else
5f11cb00 2493 .mhandler.cmd = irq_info,
661f1929 2494#endif
d7f9b689
LC
2495 },
2496 {
2497 .name = "pic",
2498 .args_type = "",
d7f9b689
LC
2499 .params = "",
2500 .help = "show i8259 (PIC) state",
661f1929 2501#ifdef TARGET_SPARC
5f11cb00 2502 .mhandler.cmd = sun4m_pic_info,
661f1929 2503#elif defined(TARGET_LM32)
5f11cb00 2504 .mhandler.cmd = lm32_do_pic_info,
661f1929 2505#else
5f11cb00 2506 .mhandler.cmd = pic_info,
661f1929 2507#endif
d7f9b689 2508 },
661f1929 2509#endif
d7f9b689
LC
2510 {
2511 .name = "pci",
2512 .args_type = "",
d7f9b689
LC
2513 .params = "",
2514 .help = "show PCI info",
5f11cb00 2515 .mhandler.cmd = hmp_info_pci,
d7f9b689 2516 },
bebabbc7 2517#if defined(TARGET_I386) || defined(TARGET_SH4) || defined(TARGET_SPARC) || \
692f737c 2518 defined(TARGET_PPC) || defined(TARGET_XTENSA)
d7f9b689
LC
2519 {
2520 .name = "tlb",
2521 .args_type = "",
d7f9b689
LC
2522 .params = "",
2523 .help = "show virtual to physical memory mappings",
5f11cb00 2524 .mhandler.cmd = tlb_info,
d7f9b689 2525 },
7c664e2f
AJ
2526#endif
2527#if defined(TARGET_I386)
d7f9b689
LC
2528 {
2529 .name = "mem",
2530 .args_type = "",
d7f9b689
LC
2531 .params = "",
2532 .help = "show the active virtual memory mappings",
5f11cb00 2533 .mhandler.cmd = mem_info,
d7f9b689 2534 },
b86bda5b 2535#endif
314e2987
BS
2536 {
2537 .name = "mtree",
2538 .args_type = "",
2539 .params = "",
2540 .help = "show memory tree",
5f11cb00 2541 .mhandler.cmd = do_info_mtree,
314e2987 2542 },
d7f9b689
LC
2543 {
2544 .name = "jit",
2545 .args_type = "",
d7f9b689
LC
2546 .params = "",
2547 .help = "show dynamic compiler info",
5f11cb00 2548 .mhandler.cmd = do_info_jit,
d7f9b689
LC
2549 },
2550 {
2551 .name = "kvm",
2552 .args_type = "",
d7f9b689
LC
2553 .params = "",
2554 .help = "show KVM information",
5f11cb00 2555 .mhandler.cmd = hmp_info_kvm,
d7f9b689
LC
2556 },
2557 {
2558 .name = "numa",
2559 .args_type = "",
d7f9b689
LC
2560 .params = "",
2561 .help = "show NUMA information",
5f11cb00 2562 .mhandler.cmd = do_info_numa,
d7f9b689
LC
2563 },
2564 {
2565 .name = "usb",
2566 .args_type = "",
d7f9b689
LC
2567 .params = "",
2568 .help = "show guest USB devices",
5f11cb00 2569 .mhandler.cmd = usb_info,
d7f9b689
LC
2570 },
2571 {
2572 .name = "usbhost",
2573 .args_type = "",
d7f9b689
LC
2574 .params = "",
2575 .help = "show host USB devices",
5f11cb00 2576 .mhandler.cmd = usb_host_info,
d7f9b689
LC
2577 },
2578 {
2579 .name = "profile",
2580 .args_type = "",
d7f9b689
LC
2581 .params = "",
2582 .help = "show profiling information",
5f11cb00 2583 .mhandler.cmd = do_info_profile,
d7f9b689
LC
2584 },
2585 {
2586 .name = "capture",
2587 .args_type = "",
d7f9b689
LC
2588 .params = "",
2589 .help = "show capture information",
5f11cb00 2590 .mhandler.cmd = do_info_capture,
d7f9b689
LC
2591 },
2592 {
2593 .name = "snapshots",
2594 .args_type = "",
d7f9b689
LC
2595 .params = "",
2596 .help = "show the currently saved VM snapshots",
5f11cb00 2597 .mhandler.cmd = do_info_snapshots,
d7f9b689
LC
2598 },
2599 {
2600 .name = "status",
2601 .args_type = "",
d7f9b689
LC
2602 .params = "",
2603 .help = "show the current VM status (running|paused)",
5f11cb00 2604 .mhandler.cmd = hmp_info_status,
d7f9b689
LC
2605 },
2606 {
2607 .name = "pcmcia",
2608 .args_type = "",
d7f9b689
LC
2609 .params = "",
2610 .help = "show guest PCMCIA status",
5f11cb00 2611 .mhandler.cmd = pcmcia_info,
d7f9b689
LC
2612 },
2613 {
2614 .name = "mice",
2615 .args_type = "",
d7f9b689
LC
2616 .params = "",
2617 .help = "show which guest mouse is receiving events",
5f11cb00 2618 .mhandler.cmd = hmp_info_mice,
d7f9b689
LC
2619 },
2620 {
2621 .name = "vnc",
2622 .args_type = "",
d7f9b689
LC
2623 .params = "",
2624 .help = "show the vnc server status",
5f11cb00 2625 .mhandler.cmd = hmp_info_vnc,
d7f9b689 2626 },
cb42a870
GH
2627#if defined(CONFIG_SPICE)
2628 {
2629 .name = "spice",
2630 .args_type = "",
2631 .params = "",
2632 .help = "show the spice server status",
5f11cb00 2633 .mhandler.cmd = hmp_info_spice,
cb42a870
GH
2634 },
2635#endif
d7f9b689
LC
2636 {
2637 .name = "name",
2638 .args_type = "",
d7f9b689
LC
2639 .params = "",
2640 .help = "show the current VM name",
5f11cb00 2641 .mhandler.cmd = hmp_info_name,
d7f9b689
LC
2642 },
2643 {
2644 .name = "uuid",
2645 .args_type = "",
d7f9b689
LC
2646 .params = "",
2647 .help = "show the current VM UUID",
5f11cb00 2648 .mhandler.cmd = hmp_info_uuid,
d7f9b689 2649 },
76a66253 2650#if defined(TARGET_PPC)
d7f9b689
LC
2651 {
2652 .name = "cpustats",
2653 .args_type = "",
d7f9b689
LC
2654 .params = "",
2655 .help = "show CPU statistics",
5f11cb00 2656 .mhandler.cmd = do_info_cpu_stats,
d7f9b689 2657 },
76a66253 2658#endif
31a60e22 2659#if defined(CONFIG_SLIRP)
d7f9b689
LC
2660 {
2661 .name = "usernet",
2662 .args_type = "",
d7f9b689
LC
2663 .params = "",
2664 .help = "show user network stack connection states",
5f11cb00 2665 .mhandler.cmd = do_info_usernet,
d7f9b689 2666 },
31a60e22 2667#endif
d7f9b689
LC
2668 {
2669 .name = "migrate",
2670 .args_type = "",
d7f9b689
LC
2671 .params = "",
2672 .help = "show migration status",
5f11cb00 2673 .mhandler.cmd = hmp_info_migrate,
d7f9b689 2674 },
bbf6da32
OW
2675 {
2676 .name = "migrate_capabilities",
2677 .args_type = "",
2678 .params = "",
2679 .help = "show current migration capabilities",
5f11cb00 2680 .mhandler.cmd = hmp_info_migrate_capabilities,
bbf6da32 2681 },
9e1ba4cc
OW
2682 {
2683 .name = "migrate_cache_size",
2684 .args_type = "",
2685 .params = "",
2686 .help = "show current migration xbzrle cache size",
5f11cb00 2687 .mhandler.cmd = hmp_info_migrate_cache_size,
9e1ba4cc 2688 },
d7f9b689
LC
2689 {
2690 .name = "balloon",
2691 .args_type = "",
d7f9b689
LC
2692 .params = "",
2693 .help = "show balloon information",
5f11cb00 2694 .mhandler.cmd = hmp_info_balloon,
d7f9b689
LC
2695 },
2696 {
2697 .name = "qtree",
2698 .args_type = "",
d7f9b689
LC
2699 .params = "",
2700 .help = "show device tree",
5f11cb00 2701 .mhandler.cmd = do_info_qtree,
d7f9b689
LC
2702 },
2703 {
2704 .name = "qdm",
2705 .args_type = "",
d7f9b689
LC
2706 .params = "",
2707 .help = "show qdev device model list",
5f11cb00 2708 .mhandler.cmd = do_info_qdm,
d7f9b689
LC
2709 },
2710 {
2711 .name = "roms",
2712 .args_type = "",
d7f9b689
LC
2713 .params = "",
2714 .help = "show roms",
5f11cb00 2715 .mhandler.cmd = do_info_roms,
d7f9b689 2716 },
22890ab5
PS
2717 {
2718 .name = "trace-events",
2719 .args_type = "",
2720 .params = "",
2721 .help = "show available trace-events & their state",
5f11cb00 2722 .mhandler.cmd = do_trace_print_events,
22890ab5 2723 },
d7f9b689
LC
2724 {
2725 .name = NULL,
2726 },
9dc39cba
FB
2727};
2728
a13ced59
WX
2729/* mon_cmds and info_cmds would be sorted at runtime */
2730static mon_cmd_t mon_cmds[] = {
2731#include "hmp-commands.h"
2732 { NULL, NULL, },
2733};
2734
f36b4afb 2735static const mon_cmd_t qmp_cmds[] = {
e3193601 2736#include "qmp-commands-old.h"
f36b4afb
LC
2737 { /* NULL */ },
2738};
2739
9307c4c1
FB
2740/*******************************************************************/
2741
2742static const char *pch;
2743static jmp_buf expr_env;
2744
92a31b1f
FB
2745#define MD_TLONG 0
2746#define MD_I32 1
2747
9307c4c1
FB
2748typedef struct MonitorDef {
2749 const char *name;
2750 int offset;
8662d656 2751 target_long (*get_value)(const struct MonitorDef *md, int val);
92a31b1f 2752 int type;
9307c4c1
FB
2753} MonitorDef;
2754
57206fd4 2755#if defined(TARGET_I386)
8662d656 2756static target_long monitor_get_pc (const struct MonitorDef *md, int val)
57206fd4 2757{
9349b4f9 2758 CPUArchState *env = mon_get_cpu();
6a00d601 2759 return env->eip + env->segs[R_CS].base;
57206fd4
FB
2760}
2761#endif
2762
a541f297 2763#if defined(TARGET_PPC)
8662d656 2764static target_long monitor_get_ccr (const struct MonitorDef *md, int val)
a541f297 2765{
9349b4f9 2766 CPUArchState *env = mon_get_cpu();
a541f297
FB
2767 unsigned int u;
2768 int i;
2769
2770 u = 0;
2771 for (i = 0; i < 8; i++)
28a76be8 2772 u |= env->crf[i] << (32 - (4 * i));
a541f297
FB
2773
2774 return u;
2775}
2776
8662d656 2777static target_long monitor_get_msr (const struct MonitorDef *md, int val)
a541f297 2778{
9349b4f9 2779 CPUArchState *env = mon_get_cpu();
0411a972 2780 return env->msr;
a541f297
FB
2781}
2782
8662d656 2783static target_long monitor_get_xer (const struct MonitorDef *md, int val)
a541f297 2784{
9349b4f9 2785 CPUArchState *env = mon_get_cpu();
3d7b417e 2786 return env->xer;
a541f297 2787}
9fddaa0c 2788
8662d656 2789static target_long monitor_get_decr (const struct MonitorDef *md, int val)
9fddaa0c 2790{
9349b4f9 2791 CPUArchState *env = mon_get_cpu();
6a00d601 2792 return cpu_ppc_load_decr(env);
9fddaa0c
FB
2793}
2794
8662d656 2795static target_long monitor_get_tbu (const struct MonitorDef *md, int val)
9fddaa0c 2796{
9349b4f9 2797 CPUArchState *env = mon_get_cpu();
6a00d601 2798 return cpu_ppc_load_tbu(env);
9fddaa0c
FB
2799}
2800
8662d656 2801static target_long monitor_get_tbl (const struct MonitorDef *md, int val)
9fddaa0c 2802{
9349b4f9 2803 CPUArchState *env = mon_get_cpu();
6a00d601 2804 return cpu_ppc_load_tbl(env);
9fddaa0c 2805}
a541f297
FB
2806#endif
2807
e95c8d51 2808#if defined(TARGET_SPARC)
7b936c0c 2809#ifndef TARGET_SPARC64
8662d656 2810static target_long monitor_get_psr (const struct MonitorDef *md, int val)
e95c8d51 2811{
9349b4f9 2812 CPUArchState *env = mon_get_cpu();
5a834bb4
BS
2813
2814 return cpu_get_psr(env);
e95c8d51 2815}
7b936c0c 2816#endif
e95c8d51 2817
8662d656 2818static target_long monitor_get_reg(const struct MonitorDef *md, int val)
e95c8d51 2819{
9349b4f9 2820 CPUArchState *env = mon_get_cpu();
6a00d601 2821 return env->regwptr[val];
e95c8d51
FB
2822}
2823#endif
2824
8662d656 2825static const MonitorDef monitor_defs[] = {
9307c4c1 2826#ifdef TARGET_I386
57206fd4
FB
2827
2828#define SEG(name, seg) \
e59d167f
AF
2829 { name, offsetof(CPUX86State, segs[seg].selector), NULL, MD_I32 },\
2830 { name ".base", offsetof(CPUX86State, segs[seg].base) },\
2831 { name ".limit", offsetof(CPUX86State, segs[seg].limit), NULL, MD_I32 },
2832
2833 { "eax", offsetof(CPUX86State, regs[0]) },
2834 { "ecx", offsetof(CPUX86State, regs[1]) },
2835 { "edx", offsetof(CPUX86State, regs[2]) },
2836 { "ebx", offsetof(CPUX86State, regs[3]) },
2837 { "esp|sp", offsetof(CPUX86State, regs[4]) },
2838 { "ebp|fp", offsetof(CPUX86State, regs[5]) },
2839 { "esi", offsetof(CPUX86State, regs[6]) },
2840 { "edi", offsetof(CPUX86State, regs[7]) },
92a31b1f 2841#ifdef TARGET_X86_64
e59d167f
AF
2842 { "r8", offsetof(CPUX86State, regs[8]) },
2843 { "r9", offsetof(CPUX86State, regs[9]) },
2844 { "r10", offsetof(CPUX86State, regs[10]) },
2845 { "r11", offsetof(CPUX86State, regs[11]) },
2846 { "r12", offsetof(CPUX86State, regs[12]) },
2847 { "r13", offsetof(CPUX86State, regs[13]) },
2848 { "r14", offsetof(CPUX86State, regs[14]) },
2849 { "r15", offsetof(CPUX86State, regs[15]) },
92a31b1f 2850#endif
e59d167f
AF
2851 { "eflags", offsetof(CPUX86State, eflags) },
2852 { "eip", offsetof(CPUX86State, eip) },
57206fd4
FB
2853 SEG("cs", R_CS)
2854 SEG("ds", R_DS)
2855 SEG("es", R_ES)
01038d2a 2856 SEG("ss", R_SS)
57206fd4
FB
2857 SEG("fs", R_FS)
2858 SEG("gs", R_GS)
2859 { "pc", 0, monitor_get_pc, },
a541f297 2860#elif defined(TARGET_PPC)
ff937dba 2861 /* General purpose registers */
e59d167f
AF
2862 { "r0", offsetof(CPUPPCState, gpr[0]) },
2863 { "r1", offsetof(CPUPPCState, gpr[1]) },
2864 { "r2", offsetof(CPUPPCState, gpr[2]) },
2865 { "r3", offsetof(CPUPPCState, gpr[3]) },
2866 { "r4", offsetof(CPUPPCState, gpr[4]) },
2867 { "r5", offsetof(CPUPPCState, gpr[5]) },
2868 { "r6", offsetof(CPUPPCState, gpr[6]) },
2869 { "r7", offsetof(CPUPPCState, gpr[7]) },
2870 { "r8", offsetof(CPUPPCState, gpr[8]) },
2871 { "r9", offsetof(CPUPPCState, gpr[9]) },
2872 { "r10", offsetof(CPUPPCState, gpr[10]) },
2873 { "r11", offsetof(CPUPPCState, gpr[11]) },
2874 { "r12", offsetof(CPUPPCState, gpr[12]) },
2875 { "r13", offsetof(CPUPPCState, gpr[13]) },
2876 { "r14", offsetof(CPUPPCState, gpr[14]) },
2877 { "r15", offsetof(CPUPPCState, gpr[15]) },
2878 { "r16", offsetof(CPUPPCState, gpr[16]) },
2879 { "r17", offsetof(CPUPPCState, gpr[17]) },
2880 { "r18", offsetof(CPUPPCState, gpr[18]) },
2881 { "r19", offsetof(CPUPPCState, gpr[19]) },
2882 { "r20", offsetof(CPUPPCState, gpr[20]) },
2883 { "r21", offsetof(CPUPPCState, gpr[21]) },
2884 { "r22", offsetof(CPUPPCState, gpr[22]) },
2885 { "r23", offsetof(CPUPPCState, gpr[23]) },
2886 { "r24", offsetof(CPUPPCState, gpr[24]) },
2887 { "r25", offsetof(CPUPPCState, gpr[25]) },
2888 { "r26", offsetof(CPUPPCState, gpr[26]) },
2889 { "r27", offsetof(CPUPPCState, gpr[27]) },
2890 { "r28", offsetof(CPUPPCState, gpr[28]) },
2891 { "r29", offsetof(CPUPPCState, gpr[29]) },
2892 { "r30", offsetof(CPUPPCState, gpr[30]) },
2893 { "r31", offsetof(CPUPPCState, gpr[31]) },
ff937dba 2894 /* Floating point registers */
e59d167f
AF
2895 { "f0", offsetof(CPUPPCState, fpr[0]) },
2896 { "f1", offsetof(CPUPPCState, fpr[1]) },
2897 { "f2", offsetof(CPUPPCState, fpr[2]) },
2898 { "f3", offsetof(CPUPPCState, fpr[3]) },
2899 { "f4", offsetof(CPUPPCState, fpr[4]) },
2900 { "f5", offsetof(CPUPPCState, fpr[5]) },
2901 { "f6", offsetof(CPUPPCState, fpr[6]) },
2902 { "f7", offsetof(CPUPPCState, fpr[7]) },
2903 { "f8", offsetof(CPUPPCState, fpr[8]) },
2904 { "f9", offsetof(CPUPPCState, fpr[9]) },
2905 { "f10", offsetof(CPUPPCState, fpr[10]) },
2906 { "f11", offsetof(CPUPPCState, fpr[11]) },
2907 { "f12", offsetof(CPUPPCState, fpr[12]) },
2908 { "f13", offsetof(CPUPPCState, fpr[13]) },
2909 { "f14", offsetof(CPUPPCState, fpr[14]) },
2910 { "f15", offsetof(CPUPPCState, fpr[15]) },
2911 { "f16", offsetof(CPUPPCState, fpr[16]) },
2912 { "f17", offsetof(CPUPPCState, fpr[17]) },
2913 { "f18", offsetof(CPUPPCState, fpr[18]) },
2914 { "f19", offsetof(CPUPPCState, fpr[19]) },
2915 { "f20", offsetof(CPUPPCState, fpr[20]) },
2916 { "f21", offsetof(CPUPPCState, fpr[21]) },
2917 { "f22", offsetof(CPUPPCState, fpr[22]) },
2918 { "f23", offsetof(CPUPPCState, fpr[23]) },
2919 { "f24", offsetof(CPUPPCState, fpr[24]) },
2920 { "f25", offsetof(CPUPPCState, fpr[25]) },
2921 { "f26", offsetof(CPUPPCState, fpr[26]) },
2922 { "f27", offsetof(CPUPPCState, fpr[27]) },
2923 { "f28", offsetof(CPUPPCState, fpr[28]) },
2924 { "f29", offsetof(CPUPPCState, fpr[29]) },
2925 { "f30", offsetof(CPUPPCState, fpr[30]) },
2926 { "f31", offsetof(CPUPPCState, fpr[31]) },
2927 { "fpscr", offsetof(CPUPPCState, fpscr) },
ff937dba 2928 /* Next instruction pointer */
e59d167f
AF
2929 { "nip|pc", offsetof(CPUPPCState, nip) },
2930 { "lr", offsetof(CPUPPCState, lr) },
2931 { "ctr", offsetof(CPUPPCState, ctr) },
9fddaa0c 2932 { "decr", 0, &monitor_get_decr, },
a541f297 2933 { "ccr", 0, &monitor_get_ccr, },
ff937dba 2934 /* Machine state register */
a541f297
FB
2935 { "msr", 0, &monitor_get_msr, },
2936 { "xer", 0, &monitor_get_xer, },
9fddaa0c
FB
2937 { "tbu", 0, &monitor_get_tbu, },
2938 { "tbl", 0, &monitor_get_tbl, },
ff937dba
JM
2939#if defined(TARGET_PPC64)
2940 /* Address space register */
e59d167f 2941 { "asr", offsetof(CPUPPCState, asr) },
ff937dba
JM
2942#endif
2943 /* Segment registers */
e59d167f
AF
2944 { "sdr1", offsetof(CPUPPCState, spr[SPR_SDR1]) },
2945 { "sr0", offsetof(CPUPPCState, sr[0]) },
2946 { "sr1", offsetof(CPUPPCState, sr[1]) },
2947 { "sr2", offsetof(CPUPPCState, sr[2]) },
2948 { "sr3", offsetof(CPUPPCState, sr[3]) },
2949 { "sr4", offsetof(CPUPPCState, sr[4]) },
2950 { "sr5", offsetof(CPUPPCState, sr[5]) },
2951 { "sr6", offsetof(CPUPPCState, sr[6]) },
2952 { "sr7", offsetof(CPUPPCState, sr[7]) },
2953 { "sr8", offsetof(CPUPPCState, sr[8]) },
2954 { "sr9", offsetof(CPUPPCState, sr[9]) },
2955 { "sr10", offsetof(CPUPPCState, sr[10]) },
2956 { "sr11", offsetof(CPUPPCState, sr[11]) },
2957 { "sr12", offsetof(CPUPPCState, sr[12]) },
2958 { "sr13", offsetof(CPUPPCState, sr[13]) },
2959 { "sr14", offsetof(CPUPPCState, sr[14]) },
2960 { "sr15", offsetof(CPUPPCState, sr[15]) },
90dc8812 2961 /* Too lazy to put BATs... */
e59d167f
AF
2962 { "pvr", offsetof(CPUPPCState, spr[SPR_PVR]) },
2963
2964 { "srr0", offsetof(CPUPPCState, spr[SPR_SRR0]) },
2965 { "srr1", offsetof(CPUPPCState, spr[SPR_SRR1]) },
2966 { "sprg0", offsetof(CPUPPCState, spr[SPR_SPRG0]) },
2967 { "sprg1", offsetof(CPUPPCState, spr[SPR_SPRG1]) },
2968 { "sprg2", offsetof(CPUPPCState, spr[SPR_SPRG2]) },
2969 { "sprg3", offsetof(CPUPPCState, spr[SPR_SPRG3]) },
2970 { "sprg4", offsetof(CPUPPCState, spr[SPR_SPRG4]) },
2971 { "sprg5", offsetof(CPUPPCState, spr[SPR_SPRG5]) },
2972 { "sprg6", offsetof(CPUPPCState, spr[SPR_SPRG6]) },
2973 { "sprg7", offsetof(CPUPPCState, spr[SPR_SPRG7]) },
2974 { "pid", offsetof(CPUPPCState, spr[SPR_BOOKE_PID]) },
2975 { "csrr0", offsetof(CPUPPCState, spr[SPR_BOOKE_CSRR0]) },
2976 { "csrr1", offsetof(CPUPPCState, spr[SPR_BOOKE_CSRR1]) },
2977 { "esr", offsetof(CPUPPCState, spr[SPR_BOOKE_ESR]) },
2978 { "dear", offsetof(CPUPPCState, spr[SPR_BOOKE_DEAR]) },
2979 { "mcsr", offsetof(CPUPPCState, spr[SPR_BOOKE_MCSR]) },
2980 { "tsr", offsetof(CPUPPCState, spr[SPR_BOOKE_TSR]) },
2981 { "tcr", offsetof(CPUPPCState, spr[SPR_BOOKE_TCR]) },
2982 { "vrsave", offsetof(CPUPPCState, spr[SPR_VRSAVE]) },
2983 { "pir", offsetof(CPUPPCState, spr[SPR_BOOKE_PIR]) },
2984 { "mcsrr0", offsetof(CPUPPCState, spr[SPR_BOOKE_MCSRR0]) },
2985 { "mcsrr1", offsetof(CPUPPCState, spr[SPR_BOOKE_MCSRR1]) },
2986 { "decar", offsetof(CPUPPCState, spr[SPR_BOOKE_DECAR]) },
2987 { "ivpr", offsetof(CPUPPCState, spr[SPR_BOOKE_IVPR]) },
2988 { "epcr", offsetof(CPUPPCState, spr[SPR_BOOKE_EPCR]) },
2989 { "sprg8", offsetof(CPUPPCState, spr[SPR_BOOKE_SPRG8]) },
2990 { "ivor0", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR0]) },
2991 { "ivor1", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR1]) },
2992 { "ivor2", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR2]) },
2993 { "ivor3", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR3]) },
2994 { "ivor4", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR4]) },
2995 { "ivor5", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR5]) },
2996 { "ivor6", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR6]) },
2997 { "ivor7", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR7]) },
2998 { "ivor8", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR8]) },
2999 { "ivor9", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR9]) },
3000 { "ivor10", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR10]) },
3001 { "ivor11", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR11]) },
3002 { "ivor12", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR12]) },
3003 { "ivor13", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR13]) },
3004 { "ivor14", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR14]) },
3005 { "ivor15", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR15]) },
3006 { "ivor32", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR32]) },
3007 { "ivor33", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR33]) },
3008 { "ivor34", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR34]) },
3009 { "ivor35", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR35]) },
3010 { "ivor36", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR36]) },
3011 { "ivor37", offsetof(CPUPPCState, spr[SPR_BOOKE_IVOR37]) },
3012 { "mas0", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS0]) },
3013 { "mas1", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS1]) },
3014 { "mas2", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS2]) },
3015 { "mas3", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS3]) },
3016 { "mas4", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS4]) },
3017 { "mas6", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS6]) },
3018 { "mas7", offsetof(CPUPPCState, spr[SPR_BOOKE_MAS7]) },
3019 { "mmucfg", offsetof(CPUPPCState, spr[SPR_MMUCFG]) },
3020 { "tlb0cfg", offsetof(CPUPPCState, spr[SPR_BOOKE_TLB0CFG]) },
3021 { "tlb1cfg", offsetof(CPUPPCState, spr[SPR_BOOKE_TLB1CFG]) },
3022 { "epr", offsetof(CPUPPCState, spr[SPR_BOOKE_EPR]) },
3023 { "eplc", offsetof(CPUPPCState, spr[SPR_BOOKE_EPLC]) },
3024 { "epsc", offsetof(CPUPPCState, spr[SPR_BOOKE_EPSC]) },
3025 { "svr", offsetof(CPUPPCState, spr[SPR_E500_SVR]) },
3026 { "mcar", offsetof(CPUPPCState, spr[SPR_Exxx_MCAR]) },
3027 { "pid1", offsetof(CPUPPCState, spr[SPR_BOOKE_PID1]) },
3028 { "pid2", offsetof(CPUPPCState, spr[SPR_BOOKE_PID2]) },
3029 { "hid0", offsetof(CPUPPCState, spr[SPR_HID0]) },
90dc8812 3030
e95c8d51 3031#elif defined(TARGET_SPARC)
e59d167f
AF
3032 { "g0", offsetof(CPUSPARCState, gregs[0]) },
3033 { "g1", offsetof(CPUSPARCState, gregs[1]) },
3034 { "g2", offsetof(CPUSPARCState, gregs[2]) },
3035 { "g3", offsetof(CPUSPARCState, gregs[3]) },
3036 { "g4", offsetof(CPUSPARCState, gregs[4]) },
3037 { "g5", offsetof(CPUSPARCState, gregs[5]) },
3038 { "g6", offsetof(CPUSPARCState, gregs[6]) },
3039 { "g7", offsetof(CPUSPARCState, gregs[7]) },
e95c8d51
FB
3040 { "o0", 0, monitor_get_reg },
3041 { "o1", 1, monitor_get_reg },
3042 { "o2", 2, monitor_get_reg },
3043 { "o3", 3, monitor_get_reg },
3044 { "o4", 4, monitor_get_reg },
3045 { "o5", 5, monitor_get_reg },
3046 { "o6", 6, monitor_get_reg },
3047 { "o7", 7, monitor_get_reg },
3048 { "l0", 8, monitor_get_reg },
3049 { "l1", 9, monitor_get_reg },
3050 { "l2", 10, monitor_get_reg },
3051 { "l3", 11, monitor_get_reg },
3052 { "l4", 12, monitor_get_reg },
3053 { "l5", 13, monitor_get_reg },
3054 { "l6", 14, monitor_get_reg },
3055 { "l7", 15, monitor_get_reg },
3056 { "i0", 16, monitor_get_reg },
3057 { "i1", 17, monitor_get_reg },
3058 { "i2", 18, monitor_get_reg },
3059 { "i3", 19, monitor_get_reg },
3060 { "i4", 20, monitor_get_reg },
3061 { "i5", 21, monitor_get_reg },
3062 { "i6", 22, monitor_get_reg },
3063 { "i7", 23, monitor_get_reg },
e59d167f
AF
3064 { "pc", offsetof(CPUSPARCState, pc) },
3065 { "npc", offsetof(CPUSPARCState, npc) },
3066 { "y", offsetof(CPUSPARCState, y) },
7b936c0c 3067#ifndef TARGET_SPARC64
e95c8d51 3068 { "psr", 0, &monitor_get_psr, },
e59d167f 3069 { "wim", offsetof(CPUSPARCState, wim) },
7b936c0c 3070#endif
e59d167f
AF
3071 { "tbr", offsetof(CPUSPARCState, tbr) },
3072 { "fsr", offsetof(CPUSPARCState, fsr) },
3073 { "f0", offsetof(CPUSPARCState, fpr[0].l.upper) },
3074 { "f1", offsetof(CPUSPARCState, fpr[0].l.lower) },
3075 { "f2", offsetof(CPUSPARCState, fpr[1].l.upper) },
3076 { "f3", offsetof(CPUSPARCState, fpr[1].l.lower) },
3077 { "f4", offsetof(CPUSPARCState, fpr[2].l.upper) },
3078 { "f5", offsetof(CPUSPARCState, fpr[2].l.lower) },
3079 { "f6", offsetof(CPUSPARCState, fpr[3].l.upper) },
3080 { "f7", offsetof(CPUSPARCState, fpr[3].l.lower) },
3081 { "f8", offsetof(CPUSPARCState, fpr[4].l.upper) },
3082 { "f9", offsetof(CPUSPARCState, fpr[4].l.lower) },
3083 { "f10", offsetof(CPUSPARCState, fpr[5].l.upper) },
3084 { "f11", offsetof(CPUSPARCState, fpr[5].l.lower) },
3085 { "f12", offsetof(CPUSPARCState, fpr[6].l.upper) },
3086 { "f13", offsetof(CPUSPARCState, fpr[6].l.lower) },
3087 { "f14", offsetof(CPUSPARCState, fpr[7].l.upper) },
3088 { "f15", offsetof(CPUSPARCState, fpr[7].l.lower) },
3089 { "f16", offsetof(CPUSPARCState, fpr[8].l.upper) },
3090 { "f17", offsetof(CPUSPARCState, fpr[8].l.lower) },
3091 { "f18", offsetof(CPUSPARCState, fpr[9].l.upper) },
3092 { "f19", offsetof(CPUSPARCState, fpr[9].l.lower) },
3093 { "f20", offsetof(CPUSPARCState, fpr[10].l.upper) },
3094 { "f21", offsetof(CPUSPARCState, fpr[10].l.lower) },
3095 { "f22", offsetof(CPUSPARCState, fpr[11].l.upper) },
3096 { "f23", offsetof(CPUSPARCState, fpr[11].l.lower) },
3097 { "f24", offsetof(CPUSPARCState, fpr[12].l.upper) },
3098 { "f25", offsetof(CPUSPARCState, fpr[12].l.lower) },
3099 { "f26", offsetof(CPUSPARCState, fpr[13].l.upper) },
3100 { "f27", offsetof(CPUSPARCState, fpr[13].l.lower) },
3101 { "f28", offsetof(CPUSPARCState, fpr[14].l.upper) },
3102 { "f29", offsetof(CPUSPARCState, fpr[14].l.lower) },
3103 { "f30", offsetof(CPUSPARCState, fpr[15].l.upper) },
3104 { "f31", offsetof(CPUSPARCState, fpr[15].l.lower) },
7b936c0c 3105#ifdef TARGET_SPARC64
e59d167f
AF
3106 { "f32", offsetof(CPUSPARCState, fpr[16]) },
3107 { "f34", offsetof(CPUSPARCState, fpr[17]) },
3108 { "f36", offsetof(CPUSPARCState, fpr[18]) },
3109 { "f38", offsetof(CPUSPARCState, fpr[19]) },
3110 { "f40", offsetof(CPUSPARCState, fpr[20]) },
3111 { "f42", offsetof(CPUSPARCState, fpr[21]) },
3112 { "f44", offsetof(CPUSPARCState, fpr[22]) },
3113 { "f46", offsetof(CPUSPARCState, fpr[23]) },
3114 { "f48", offsetof(CPUSPARCState, fpr[24]) },
3115 { "f50", offsetof(CPUSPARCState, fpr[25]) },
3116 { "f52", offsetof(CPUSPARCState, fpr[26]) },
3117 { "f54", offsetof(CPUSPARCState, fpr[27]) },
3118 { "f56", offsetof(CPUSPARCState, fpr[28]) },
3119 { "f58", offsetof(CPUSPARCState, fpr[29]) },
3120 { "f60", offsetof(CPUSPARCState, fpr[30]) },
3121 { "f62", offsetof(CPUSPARCState, fpr[31]) },
3122 { "asi", offsetof(CPUSPARCState, asi) },
3123 { "pstate", offsetof(CPUSPARCState, pstate) },
3124 { "cansave", offsetof(CPUSPARCState, cansave) },
3125 { "canrestore", offsetof(CPUSPARCState, canrestore) },
3126 { "otherwin", offsetof(CPUSPARCState, otherwin) },
3127 { "wstate", offsetof(CPUSPARCState, wstate) },
3128 { "cleanwin", offsetof(CPUSPARCState, cleanwin) },
3129 { "fprs", offsetof(CPUSPARCState, fprs) },
7b936c0c 3130#endif
9307c4c1
FB
3131#endif
3132 { NULL },
3133};
3134
376253ec 3135static void expr_error(Monitor *mon, const char *msg)
9dc39cba 3136{
376253ec 3137 monitor_printf(mon, "%s\n", msg);
9307c4c1
FB
3138 longjmp(expr_env, 1);
3139}
3140
09b9418c 3141/* return 0 if OK, -1 if not found */
92a31b1f 3142static int get_monitor_def(target_long *pval, const char *name)
9307c4c1 3143{
8662d656 3144 const MonitorDef *md;
92a31b1f
FB
3145 void *ptr;
3146
9307c4c1
FB
3147 for(md = monitor_defs; md->name != NULL; md++) {
3148 if (compare_cmd(name, md->name)) {
3149 if (md->get_value) {
e95c8d51 3150 *pval = md->get_value(md, md->offset);
9307c4c1 3151 } else {
9349b4f9 3152 CPUArchState *env = mon_get_cpu();
6a00d601 3153 ptr = (uint8_t *)env + md->offset;
92a31b1f
FB
3154 switch(md->type) {
3155 case MD_I32:
3156 *pval = *(int32_t *)ptr;
3157 break;
3158 case MD_TLONG:
3159 *pval = *(target_long *)ptr;
3160 break;
3161 default:
3162 *pval = 0;
3163 break;
3164 }
9307c4c1
FB
3165 }
3166 return 0;
3167 }
3168 }
3169 return -1;
3170}
3171
3172static void next(void)
3173{
660f11be 3174 if (*pch != '\0') {
9307c4c1 3175 pch++;
cd390083 3176 while (qemu_isspace(*pch))
9307c4c1
FB
3177 pch++;
3178 }
3179}
3180
376253ec 3181static int64_t expr_sum(Monitor *mon);
9307c4c1 3182
376253ec 3183static int64_t expr_unary(Monitor *mon)
9307c4c1 3184{
c2efc95d 3185 int64_t n;
9307c4c1 3186 char *p;
6a00d601 3187 int ret;
9307c4c1
FB
3188
3189 switch(*pch) {
3190 case '+':
3191 next();
376253ec 3192 n = expr_unary(mon);
9307c4c1
FB
3193 break;
3194 case '-':
3195 next();
376253ec 3196 n = -expr_unary(mon);
9307c4c1
FB
3197 break;
3198 case '~':
3199 next();
376253ec 3200 n = ~expr_unary(mon);
9307c4c1
FB
3201 break;
3202 case '(':
3203 next();
376253ec 3204 n = expr_sum(mon);
9307c4c1 3205 if (*pch != ')') {
376253ec 3206 expr_error(mon, "')' expected");
9307c4c1
FB
3207 }
3208 next();
3209 break;
81d0912d
FB
3210 case '\'':
3211 pch++;
3212 if (*pch == '\0')
376253ec 3213 expr_error(mon, "character constant expected");
81d0912d
FB
3214 n = *pch;
3215 pch++;
3216 if (*pch != '\'')
376253ec 3217 expr_error(mon, "missing terminating \' character");
81d0912d
FB
3218 next();
3219 break;
9307c4c1
FB
3220 case '$':
3221 {
3222 char buf[128], *q;
69b34976 3223 target_long reg=0;
3b46e624 3224
9307c4c1
FB
3225 pch++;
3226 q = buf;
3227 while ((*pch >= 'a' && *pch <= 'z') ||
3228 (*pch >= 'A' && *pch <= 'Z') ||
3229 (*pch >= '0' && *pch <= '9') ||
57206fd4 3230 *pch == '_' || *pch == '.') {
9307c4c1
FB
3231 if ((q - buf) < sizeof(buf) - 1)
3232 *q++ = *pch;
3233 pch++;
3234 }
cd390083 3235 while (qemu_isspace(*pch))
9307c4c1
FB
3236 pch++;
3237 *q = 0;
7743e588 3238 ret = get_monitor_def(&reg, buf);
09b9418c 3239 if (ret < 0)
376253ec 3240 expr_error(mon, "unknown register");
7743e588 3241 n = reg;
9307c4c1
FB
3242 }
3243 break;
3244 case '\0':
376253ec 3245 expr_error(mon, "unexpected end of expression");
9307c4c1
FB
3246 n = 0;
3247 break;
3248 default:
6b0e33be 3249 errno = 0;
4f4fbf77 3250 n = strtoull(pch, &p, 0);
6b0e33be
LC
3251 if (errno == ERANGE) {
3252 expr_error(mon, "number too large");
3253 }
9307c4c1 3254 if (pch == p) {
376253ec 3255 expr_error(mon, "invalid char in expression");
9307c4c1
FB
3256 }
3257 pch = p;
cd390083 3258 while (qemu_isspace(*pch))
9307c4c1
FB
3259 pch++;
3260 break;
3261 }
3262 return n;
3263}
3264
3265
376253ec 3266static int64_t expr_prod(Monitor *mon)
9307c4c1 3267{
c2efc95d 3268 int64_t val, val2;
92a31b1f 3269 int op;
3b46e624 3270
376253ec 3271 val = expr_unary(mon);
9307c4c1
FB
3272 for(;;) {
3273 op = *pch;
3274 if (op != '*' && op != '/' && op != '%')
3275 break;
3276 next();
376253ec 3277 val2 = expr_unary(mon);
9307c4c1
FB
3278 switch(op) {
3279 default:
3280 case '*':
3281 val *= val2;
3282 break;
3283 case '/':
3284 case '%':
5fafdf24 3285 if (val2 == 0)
376253ec 3286 expr_error(mon, "division by zero");
9307c4c1
FB
3287 if (op == '/')
3288 val /= val2;
3289 else
3290 val %= val2;
3291 break;
3292 }
3293 }
3294 return val;
3295}
3296
376253ec 3297static int64_t expr_logic(Monitor *mon)
9307c4c1 3298{
c2efc95d 3299 int64_t val, val2;
92a31b1f 3300 int op;
9307c4c1 3301
376253ec 3302 val = expr_prod(mon);
9307c4c1
FB
3303 for(;;) {
3304 op = *pch;
3305 if (op != '&' && op != '|' && op != '^')
3306 break;
3307 next();
376253ec 3308 val2 = expr_prod(mon);
9307c4c1
FB
3309 switch(op) {
3310 default:
3311 case '&':
3312 val &= val2;
3313 break;
3314 case '|':
3315 val |= val2;
3316 break;
3317 case '^':
3318 val ^= val2;
3319 break;
3320 }
3321 }
3322 return val;
3323}
3324
376253ec 3325static int64_t expr_sum(Monitor *mon)
9307c4c1 3326{
c2efc95d 3327 int64_t val, val2;
92a31b1f 3328 int op;
9307c4c1 3329
376253ec 3330 val = expr_logic(mon);
9307c4c1
FB
3331 for(;;) {
3332 op = *pch;
3333 if (op != '+' && op != '-')
3334 break;
3335 next();
376253ec 3336 val2 = expr_logic(mon);
9307c4c1
FB
3337 if (op == '+')
3338 val += val2;
3339 else
3340 val -= val2;
3341 }
3342 return val;
3343}
3344
376253ec 3345static int get_expr(Monitor *mon, int64_t *pval, const char **pp)
9307c4c1
FB
3346{
3347 pch = *pp;
3348 if (setjmp(expr_env)) {
3349 *pp = pch;
3350 return -1;
3351 }
cd390083 3352 while (qemu_isspace(*pch))
9307c4c1 3353 pch++;
376253ec 3354 *pval = expr_sum(mon);
9307c4c1
FB
3355 *pp = pch;
3356 return 0;
3357}
3358
3350a4dd
MA
3359static int get_double(Monitor *mon, double *pval, const char **pp)
3360{
3361 const char *p = *pp;
3362 char *tailp;
3363 double d;
3364
3365 d = strtod(p, &tailp);
3366 if (tailp == p) {
3367 monitor_printf(mon, "Number expected\n");
3368 return -1;
3369 }
3370 if (d != d || d - d != 0) {
3371 /* NaN or infinity */
3372 monitor_printf(mon, "Bad number\n");
3373 return -1;
3374 }
3375 *pval = d;
3376 *pp = tailp;
3377 return 0;
3378}
3379
9307c4c1
FB
3380static int get_str(char *buf, int buf_size, const char **pp)
3381{
3382 const char *p;
3383 char *q;
3384 int c;
3385
81d0912d 3386 q = buf;
9307c4c1 3387 p = *pp;
cd390083 3388 while (qemu_isspace(*p))
9307c4c1
FB
3389 p++;
3390 if (*p == '\0') {
3391 fail:
81d0912d 3392 *q = '\0';
9307c4c1
FB
3393 *pp = p;
3394 return -1;
3395 }
9307c4c1
FB
3396 if (*p == '\"') {
3397 p++;
3398 while (*p != '\0' && *p != '\"') {
3399 if (*p == '\\') {
3400 p++;
3401 c = *p++;
3402 switch(c) {
3403 case 'n':
3404 c = '\n';
3405 break;
3406 case 'r':
3407 c = '\r';
3408 break;
3409 case '\\':
3410 case '\'':
3411 case '\"':
3412 break;
3413 default:
3414 qemu_printf("unsupported escape code: '\\%c'\n", c);
3415 goto fail;
3416 }
3417 if ((q - buf) < buf_size - 1) {
3418 *q++ = c;
3419 }
3420 } else {
3421 if ((q - buf) < buf_size - 1) {
3422 *q++ = *p;
3423 }
3424 p++;
3425 }
3426 }
3427 if (*p != '\"') {
5b60212f 3428 qemu_printf("unterminated string\n");
9307c4c1
FB
3429 goto fail;
3430 }
3431 p++;
3432 } else {
cd390083 3433 while (*p != '\0' && !qemu_isspace(*p)) {
9307c4c1
FB
3434 if ((q - buf) < buf_size - 1) {
3435 *q++ = *p;
3436 }
3437 p++;
3438 }
9307c4c1 3439 }
81d0912d 3440 *q = '\0';
9307c4c1
FB
3441 *pp = p;
3442 return 0;
3443}
3444
4590fd80
LC
3445/*
3446 * Store the command-name in cmdname, and return a pointer to
3447 * the remaining of the command string.
3448 */
3449static const char *get_command_name(const char *cmdline,
3450 char *cmdname, size_t nlen)
3451{
3452 size_t len;
3453 const char *p, *pstart;
3454
3455 p = cmdline;
3456 while (qemu_isspace(*p))
3457 p++;
3458 if (*p == '\0')
3459 return NULL;
3460 pstart = p;
3461 while (*p != '\0' && *p != '/' && !qemu_isspace(*p))
3462 p++;
3463 len = p - pstart;
3464 if (len > nlen - 1)
3465 len = nlen - 1;
3466 memcpy(cmdname, pstart, len);
3467 cmdname[len] = '\0';
3468 return p;
3469}
3470
4d76d2ba
LC
3471/**
3472 * Read key of 'type' into 'key' and return the current
3473 * 'type' pointer.
3474 */
3475static char *key_get_info(const char *type, char **key)
3476{
3477 size_t len;
3478 char *p, *str;
3479
3480 if (*type == ',')
3481 type++;
3482
3483 p = strchr(type, ':');
3484 if (!p) {
3485 *key = NULL;
3486 return NULL;
3487 }
3488 len = p - type;
3489
7267c094 3490 str = g_malloc(len + 1);
4d76d2ba
LC
3491 memcpy(str, type, len);
3492 str[len] = '\0';
3493
3494 *key = str;
3495 return ++p;
3496}
3497
9307c4c1
FB
3498static int default_fmt_format = 'x';
3499static int default_fmt_size = 4;
3500
3501#define MAX_ARGS 16
3502
fbc3d96c 3503static int is_valid_option(const char *c, const char *typestr)
3504{
3505 char option[3];
3506
3507 option[0] = '-';
3508 option[1] = *c;
3509 option[2] = '\0';
3510
3511 typestr = strstr(typestr, option);
3512 return (typestr != NULL);
3513}
3514
945c5ac8
LC
3515static const mon_cmd_t *search_dispatch_table(const mon_cmd_t *disp_table,
3516 const char *cmdname)
7fd669a1
LC
3517{
3518 const mon_cmd_t *cmd;
3519
945c5ac8 3520 for (cmd = disp_table; cmd->name != NULL; cmd++) {
7fd669a1
LC
3521 if (compare_cmd(cmdname, cmd->name)) {
3522 return cmd;
3523 }
3524 }
3525
3526 return NULL;
3527}
3528
bead3ce1
LC
3529static const mon_cmd_t *qmp_find_cmd(const char *cmdname)
3530{
f36b4afb 3531 return search_dispatch_table(qmp_cmds, cmdname);
bead3ce1
LC
3532}
3533
5f3d335f
WX
3534/*
3535 * Parse @cmdline according to command table @table.
3536 * If @cmdline is blank, return NULL.
3537 * If it can't be parsed, report to @mon, and return NULL.
3538 * Else, insert command arguments into @qdict, and return the command.
3539 * If sub-command table exist, and if @cmdline contains addtional string for
3540 * sub-command, this function will try search sub-command table. if no
3541 * addtional string for sub-command exist, this function will return the found
3542 * one in @table.
3543 * Do not assume the returned command points into @table! It doesn't
3544 * when the command is a sub-command.
3545 */
c227f099 3546static const mon_cmd_t *monitor_parse_command(Monitor *mon,
55f81d96 3547 const char *cmdline,
5f3d335f
WX
3548 int start,
3549 mon_cmd_t *table,
55f81d96 3550 QDict *qdict)
9307c4c1 3551{
4590fd80 3552 const char *p, *typestr;
53773581 3553 int c;
c227f099 3554 const mon_cmd_t *cmd;
9307c4c1
FB
3555 char cmdname[256];
3556 char buf[1024];
4d76d2ba 3557 char *key;
9dc39cba
FB
3558
3559#ifdef DEBUG
5f3d335f 3560 monitor_printf(mon, "command='%s', start='%d'\n", cmdline, start);
9dc39cba 3561#endif
3b46e624 3562
9307c4c1 3563 /* extract the command name */
5f3d335f 3564 p = get_command_name(cmdline + start, cmdname, sizeof(cmdname));
4590fd80 3565 if (!p)
55f81d96 3566 return NULL;
3b46e624 3567
5f3d335f 3568 cmd = search_dispatch_table(table, cmdname);
7fd669a1 3569 if (!cmd) {
5f3d335f
WX
3570 monitor_printf(mon, "unknown command: '%.*s'\n",
3571 (int)(p - cmdline), cmdline);
55f81d96 3572 return NULL;
9307c4c1 3573 }
9307c4c1 3574
5f3d335f
WX
3575 /* filter out following useless space */
3576 while (qemu_isspace(*p)) {
3577 p++;
3578 }
3579 /* search sub command */
3580 if (cmd->sub_table != NULL) {
3581 /* check if user set additional command */
3582 if (*p == '\0') {
3583 return cmd;
3584 }
3585 return monitor_parse_command(mon, cmdline, p - cmdline,
3586 cmd->sub_table, qdict);
3587 }
3588
9307c4c1
FB
3589 /* parse the parameters */
3590 typestr = cmd->args_type;
9dc39cba 3591 for(;;) {
4d76d2ba
LC
3592 typestr = key_get_info(typestr, &key);
3593 if (!typestr)
9dc39cba 3594 break;
4d76d2ba 3595 c = *typestr;
9307c4c1
FB
3596 typestr++;
3597 switch(c) {
3598 case 'F':
81d0912d 3599 case 'B':
9307c4c1
FB
3600 case 's':
3601 {
3602 int ret;
3b46e624 3603
cd390083 3604 while (qemu_isspace(*p))
9307c4c1
FB
3605 p++;
3606 if (*typestr == '?') {
3607 typestr++;
3608 if (*p == '\0') {
3609 /* no optional string: NULL argument */
53773581 3610 break;
9307c4c1
FB
3611 }
3612 }
3613 ret = get_str(buf, sizeof(buf), &p);
3614 if (ret < 0) {
81d0912d
FB
3615 switch(c) {
3616 case 'F':
376253ec
AL
3617 monitor_printf(mon, "%s: filename expected\n",
3618 cmdname);
81d0912d
FB
3619 break;
3620 case 'B':
376253ec
AL
3621 monitor_printf(mon, "%s: block device name expected\n",
3622 cmdname);
81d0912d
FB
3623 break;
3624 default:
376253ec 3625 monitor_printf(mon, "%s: string expected\n", cmdname);
81d0912d
FB
3626 break;
3627 }
9307c4c1
FB
3628 goto fail;
3629 }
53773581 3630 qdict_put(qdict, key, qstring_from_str(buf));
9307c4c1 3631 }
9dc39cba 3632 break;
361127df
MA
3633 case 'O':
3634 {
3635 QemuOptsList *opts_list;
3636 QemuOpts *opts;
3637
3638 opts_list = qemu_find_opts(key);
3639 if (!opts_list || opts_list->desc->name) {
3640 goto bad_type;
3641 }
3642 while (qemu_isspace(*p)) {
3643 p++;
3644 }
3645 if (!*p)
3646 break;
3647 if (get_str(buf, sizeof(buf), &p) < 0) {
3648 goto fail;
3649 }
3650 opts = qemu_opts_parse(opts_list, buf, 1);
3651 if (!opts) {
3652 goto fail;
3653 }
3654 qemu_opts_to_qdict(opts, qdict);
3655 qemu_opts_del(opts);
3656 }
3657 break;
9307c4c1
FB
3658 case '/':
3659 {
3660 int count, format, size;
3b46e624 3661
cd390083 3662 while (qemu_isspace(*p))
9307c4c1
FB
3663 p++;
3664 if (*p == '/') {
3665 /* format found */
3666 p++;
3667 count = 1;
cd390083 3668 if (qemu_isdigit(*p)) {
9307c4c1 3669 count = 0;
cd390083 3670 while (qemu_isdigit(*p)) {
9307c4c1
FB
3671 count = count * 10 + (*p - '0');
3672 p++;
3673 }
3674 }
3675 size = -1;
3676 format = -1;
3677 for(;;) {
3678 switch(*p) {
3679 case 'o':
3680 case 'd':
3681 case 'u':
3682 case 'x':
3683 case 'i':
3684 case 'c':
3685 format = *p++;
3686 break;
3687 case 'b':
3688 size = 1;
3689 p++;
3690 break;
3691 case 'h':
3692 size = 2;
3693 p++;
3694 break;
3695 case 'w':
3696 size = 4;
3697 p++;
3698 break;
3699 case 'g':
3700 case 'L':
3701 size = 8;
3702 p++;
3703 break;
3704 default:
3705 goto next;
3706 }
3707 }
3708 next:
cd390083 3709 if (*p != '\0' && !qemu_isspace(*p)) {
376253ec
AL
3710 monitor_printf(mon, "invalid char in format: '%c'\n",
3711 *p);
9307c4c1
FB
3712 goto fail;
3713 }
9307c4c1
FB
3714 if (format < 0)
3715 format = default_fmt_format;
4c27ba27
FB
3716 if (format != 'i') {
3717 /* for 'i', not specifying a size gives -1 as size */
3718 if (size < 0)
3719 size = default_fmt_size;
e90f009b 3720 default_fmt_size = size;
4c27ba27 3721 }
9307c4c1
FB
3722 default_fmt_format = format;
3723 } else {
3724 count = 1;
3725 format = default_fmt_format;
4c27ba27
FB
3726 if (format != 'i') {
3727 size = default_fmt_size;
3728 } else {
3729 size = -1;
3730 }
9307c4c1 3731 }
f7188bbe
LC
3732 qdict_put(qdict, "count", qint_from_int(count));
3733 qdict_put(qdict, "format", qint_from_int(format));
3734 qdict_put(qdict, "size", qint_from_int(size));
9307c4c1 3735 }
9dc39cba 3736 break;
9307c4c1 3737 case 'i':
92a31b1f 3738 case 'l':
b6e098d7 3739 case 'M':
9307c4c1 3740 {
c2efc95d 3741 int64_t val;
7743e588 3742
cd390083 3743 while (qemu_isspace(*p))
9307c4c1 3744 p++;
3440557b 3745 if (*typestr == '?' || *typestr == '.') {
3440557b 3746 if (*typestr == '?') {
53773581
LC
3747 if (*p == '\0') {
3748 typestr++;
3749 break;
3750 }
3440557b
FB
3751 } else {
3752 if (*p == '.') {
3753 p++;
cd390083 3754 while (qemu_isspace(*p))
3440557b 3755 p++;
3440557b 3756 } else {
53773581
LC
3757 typestr++;
3758 break;
3440557b
FB
3759 }
3760 }
13224a87 3761 typestr++;
9307c4c1 3762 }
376253ec 3763 if (get_expr(mon, &val, &p))
9307c4c1 3764 goto fail;
675ebef9
LC
3765 /* Check if 'i' is greater than 32-bit */
3766 if ((c == 'i') && ((val >> 32) & 0xffffffff)) {
3767 monitor_printf(mon, "\'%s\' has failed: ", cmdname);
3768 monitor_printf(mon, "integer is for 32-bit values\n");
3769 goto fail;
b6e098d7 3770 } else if (c == 'M') {
91162849
LC
3771 if (val < 0) {
3772 monitor_printf(mon, "enter a positive value\n");
3773 goto fail;
3774 }
b6e098d7 3775 val <<= 20;
675ebef9 3776 }
53773581 3777 qdict_put(qdict, key, qint_from_int(val));
9307c4c1
FB
3778 }
3779 break;
dbc0c67f
JS
3780 case 'o':
3781 {
70b4f4bb 3782 int64_t val;
dbc0c67f
JS
3783 char *end;
3784
3785 while (qemu_isspace(*p)) {
3786 p++;
3787 }
3788 if (*typestr == '?') {
3789 typestr++;
3790 if (*p == '\0') {
3791 break;
3792 }
3793 }
3794 val = strtosz(p, &end);
3795 if (val < 0) {
3796 monitor_printf(mon, "invalid size\n");
3797 goto fail;
3798 }
3799 qdict_put(qdict, key, qint_from_int(val));
3800 p = end;
3801 }
3802 break;
fccfb11e 3803 case 'T':
3350a4dd
MA
3804 {
3805 double val;
3806
3807 while (qemu_isspace(*p))
3808 p++;
3809 if (*typestr == '?') {
3810 typestr++;
3811 if (*p == '\0') {
3812 break;
3813 }
3814 }
3815 if (get_double(mon, &val, &p) < 0) {
3816 goto fail;
3817 }
07de3e60 3818 if (p[0] && p[1] == 's') {
fccfb11e
MA
3819 switch (*p) {
3820 case 'm':
3821 val /= 1e3; p += 2; break;
3822 case 'u':
3823 val /= 1e6; p += 2; break;
3824 case 'n':
3825 val /= 1e9; p += 2; break;
3826 }
3827 }
3350a4dd
MA
3828 if (*p && !qemu_isspace(*p)) {
3829 monitor_printf(mon, "Unknown unit suffix\n");
3830 goto fail;
3831 }
3832 qdict_put(qdict, key, qfloat_from_double(val));
3833 }
3834 break;
942cd1f2
MA
3835 case 'b':
3836 {
3837 const char *beg;
3838 int val;
3839
3840 while (qemu_isspace(*p)) {
3841 p++;
3842 }
3843 beg = p;
3844 while (qemu_isgraph(*p)) {
3845 p++;
3846 }
3847 if (p - beg == 2 && !memcmp(beg, "on", p - beg)) {
3848 val = 1;
3849 } else if (p - beg == 3 && !memcmp(beg, "off", p - beg)) {
3850 val = 0;
3851 } else {
3852 monitor_printf(mon, "Expected 'on' or 'off'\n");
3853 goto fail;
3854 }
3855 qdict_put(qdict, key, qbool_from_int(val));
3856 }
3857 break;
9307c4c1
FB
3858 case '-':
3859 {
fbc3d96c 3860 const char *tmp = p;
eb159d13 3861 int skip_key = 0;
9307c4c1 3862 /* option */
3b46e624 3863
9307c4c1
FB
3864 c = *typestr++;
3865 if (c == '\0')
3866 goto bad_type;
cd390083 3867 while (qemu_isspace(*p))
9307c4c1 3868 p++;
9307c4c1
FB
3869 if (*p == '-') {
3870 p++;
fbc3d96c 3871 if(c != *p) {
3872 if(!is_valid_option(p, typestr)) {
3873
3874 monitor_printf(mon, "%s: unsupported option -%c\n",
3875 cmdname, *p);
3876 goto fail;
3877 } else {
3878 skip_key = 1;
3879 }
3880 }
3881 if(skip_key) {
3882 p = tmp;
3883 } else {
eb159d13 3884 /* has option */
fbc3d96c 3885 p++;
eb159d13 3886 qdict_put(qdict, key, qbool_from_int(1));
9307c4c1 3887 }
9307c4c1 3888 }
9307c4c1
FB
3889 }
3890 break;
3891 default:
3892 bad_type:
376253ec 3893 monitor_printf(mon, "%s: unknown type '%c'\n", cmdname, c);
9307c4c1
FB
3894 goto fail;
3895 }
7267c094 3896 g_free(key);
4d76d2ba 3897 key = NULL;
9dc39cba 3898 }
9307c4c1 3899 /* check that all arguments were parsed */
cd390083 3900 while (qemu_isspace(*p))
9307c4c1
FB
3901 p++;
3902 if (*p != '\0') {
376253ec
AL
3903 monitor_printf(mon, "%s: extraneous characters at the end of line\n",
3904 cmdname);
9307c4c1 3905 goto fail;
9dc39cba 3906 }
9307c4c1 3907
55f81d96 3908 return cmd;
ac7531ec 3909
55f81d96 3910fail:
7267c094 3911 g_free(key);
55f81d96
LC
3912 return NULL;
3913}
3914
d6f46833
MA
3915void monitor_set_error(Monitor *mon, QError *qerror)
3916{
3917 /* report only the first error */
3918 if (!mon->error) {
3919 mon->error = qerror;
3920 } else {
d6f46833
MA
3921 QDECREF(qerror);
3922 }
3923}
3924
bb89c2e9
LC
3925static void handler_audit(Monitor *mon, const mon_cmd_t *cmd, int ret)
3926{
6d441430
LC
3927 if (ret && !monitor_has_error(mon)) {
3928 /*
3929 * If it returns failure, it must have passed on error.
3930 *
3931 * Action: Report an internal error to the client if in QMP.
3932 */
3933 qerror_report(QERR_UNDEFINED_ERROR);
6d441430 3934 }
bb89c2e9
LC
3935}
3936
f3c157c4 3937static void handle_user_command(Monitor *mon, const char *cmdline)
55f81d96 3938{
55f81d96 3939 QDict *qdict;
c227f099 3940 const mon_cmd_t *cmd;
55f81d96
LC
3941
3942 qdict = qdict_new();
3943
5f3d335f 3944 cmd = monitor_parse_command(mon, cmdline, 0, mon_cmds, qdict);
13917bee
LC
3945 if (!cmd)
3946 goto out;
3947
4903de0c 3948 if (handler_is_async(cmd)) {
940cc30d 3949 user_async_cmd_handler(mon, cmd, qdict);
9e80721e 3950 } else if (handler_is_qobject(cmd)) {
de79ba6f
LC
3951 QObject *data = NULL;
3952
3953 /* XXX: ignores the error code */
3954 cmd->mhandler.cmd_new(mon, qdict, &data);
3955 assert(!monitor_has_error(mon));
3956 if (data) {
3957 cmd->user_print(mon, data);
3958 qobject_decref(data);
3959 }
13917bee 3960 } else {
af4ce882 3961 cmd->mhandler.cmd(mon, qdict);
55f81d96
LC
3962 }
3963
13917bee 3964out:
f7188bbe 3965 QDECREF(qdict);
9dc39cba
FB
3966}
3967
81d0912d
FB
3968static void cmd_completion(const char *name, const char *list)
3969{
3970 const char *p, *pstart;
3971 char cmd[128];
3972 int len;
3973
3974 p = list;
3975 for(;;) {
3976 pstart = p;
3977 p = strchr(p, '|');
3978 if (!p)
3979 p = pstart + strlen(pstart);
3980 len = p - pstart;
3981 if (len > sizeof(cmd) - 2)
3982 len = sizeof(cmd) - 2;
3983 memcpy(cmd, pstart, len);
3984 cmd[len] = '\0';
3985 if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
731b0364 3986 readline_add_completion(cur_mon->rs, cmd);
81d0912d
FB
3987 }
3988 if (*p == '\0')
3989 break;
3990 p++;
3991 }
3992}
3993
3994static void file_completion(const char *input)
3995{
3996 DIR *ffs;
3997 struct dirent *d;
3998 char path[1024];
3999 char file[1024], file_prefix[1024];
4000 int input_path_len;
4001 const char *p;
4002
5fafdf24 4003 p = strrchr(input, '/');
81d0912d
FB
4004 if (!p) {
4005 input_path_len = 0;
4006 pstrcpy(file_prefix, sizeof(file_prefix), input);
363a37d5 4007 pstrcpy(path, sizeof(path), ".");
81d0912d
FB
4008 } else {
4009 input_path_len = p - input + 1;
4010 memcpy(path, input, input_path_len);
4011 if (input_path_len > sizeof(path) - 1)
4012 input_path_len = sizeof(path) - 1;
4013 path[input_path_len] = '\0';
4014 pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
4015 }
4016#ifdef DEBUG_COMPLETION
376253ec
AL
4017 monitor_printf(cur_mon, "input='%s' path='%s' prefix='%s'\n",
4018 input, path, file_prefix);
81d0912d
FB
4019#endif
4020 ffs = opendir(path);
4021 if (!ffs)
4022 return;
4023 for(;;) {
4024 struct stat sb;
4025 d = readdir(ffs);
4026 if (!d)
4027 break;
46c7fc18
KK
4028
4029 if (strcmp(d->d_name, ".") == 0 || strcmp(d->d_name, "..") == 0) {
4030 continue;
4031 }
4032
81d0912d
FB
4033 if (strstart(d->d_name, file_prefix, NULL)) {
4034 memcpy(file, input, input_path_len);
363a37d5
BS
4035 if (input_path_len < sizeof(file))
4036 pstrcpy(file + input_path_len, sizeof(file) - input_path_len,
4037 d->d_name);
81d0912d
FB
4038 /* stat the file to find out if it's a directory.
4039 * In that case add a slash to speed up typing long paths
4040 */
c951d9a6 4041 if (stat(file, &sb) == 0 && S_ISDIR(sb.st_mode)) {
363a37d5 4042 pstrcat(file, sizeof(file), "/");
c951d9a6 4043 }
731b0364 4044 readline_add_completion(cur_mon->rs, file);
81d0912d
FB
4045 }
4046 }
4047 closedir(ffs);
4048}
4049
51de9760 4050static void block_completion_it(void *opaque, BlockDriverState *bs)
81d0912d 4051{
51de9760 4052 const char *name = bdrv_get_device_name(bs);
81d0912d
FB
4053 const char *input = opaque;
4054
4055 if (input[0] == '\0' ||
4056 !strncmp(name, (char *)input, strlen(input))) {
731b0364 4057 readline_add_completion(cur_mon->rs, name);
81d0912d
FB
4058 }
4059}
4060
4061/* NOTE: this parser is an approximate form of the real command parser */
4062static void parse_cmdline(const char *cmdline,
4063 int *pnb_args, char **args)
4064{
4065 const char *p;
4066 int nb_args, ret;
4067 char buf[1024];
4068
4069 p = cmdline;
4070 nb_args = 0;
4071 for(;;) {
cd390083 4072 while (qemu_isspace(*p))
81d0912d
FB
4073 p++;
4074 if (*p == '\0')
4075 break;
4076 if (nb_args >= MAX_ARGS)
4077 break;
4078 ret = get_str(buf, sizeof(buf), &p);
7267c094 4079 args[nb_args] = g_strdup(buf);
81d0912d
FB
4080 nb_args++;
4081 if (ret < 0)
4082 break;
4083 }
4084 *pnb_args = nb_args;
4085}
4086
4d76d2ba
LC
4087static const char *next_arg_type(const char *typestr)
4088{
4089 const char *p = strchr(typestr, ':');
4090 return (p != NULL ? ++p : typestr);
4091}
4092
4c36ba32 4093static void monitor_find_completion(const char *cmdline)
81d0912d
FB
4094{
4095 const char *cmdname;
4096 char *args[MAX_ARGS];
4097 int nb_args, i, len;
4098 const char *ptype, *str;
c227f099 4099 const mon_cmd_t *cmd;
81d0912d
FB
4100
4101 parse_cmdline(cmdline, &nb_args, args);
4102#ifdef DEBUG_COMPLETION
4103 for(i = 0; i < nb_args; i++) {
376253ec 4104 monitor_printf(cur_mon, "arg%d = '%s'\n", i, (char *)args[i]);
81d0912d
FB
4105 }
4106#endif
4107
4108 /* if the line ends with a space, it means we want to complete the
4109 next arg */
4110 len = strlen(cmdline);
cd390083 4111 if (len > 0 && qemu_isspace(cmdline[len - 1])) {
03a63484
JK
4112 if (nb_args >= MAX_ARGS) {
4113 goto cleanup;
4114 }
7267c094 4115 args[nb_args++] = g_strdup("");
81d0912d
FB
4116 }
4117 if (nb_args <= 1) {
4118 /* command completion */
4119 if (nb_args == 0)
4120 cmdname = "";
4121 else
4122 cmdname = args[0];
731b0364 4123 readline_set_completion_index(cur_mon->rs, strlen(cmdname));
376253ec 4124 for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
81d0912d
FB
4125 cmd_completion(cmdname, cmd->name);
4126 }
4127 } else {
4128 /* find the command */
03a63484
JK
4129 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
4130 if (compare_cmd(args[0], cmd->name)) {
4131 break;
4132 }
81d0912d 4133 }
03a63484
JK
4134 if (!cmd->name) {
4135 goto cleanup;
4136 }
4137
4d76d2ba 4138 ptype = next_arg_type(cmd->args_type);
81d0912d
FB
4139 for(i = 0; i < nb_args - 2; i++) {
4140 if (*ptype != '\0') {
4d76d2ba 4141 ptype = next_arg_type(ptype);
81d0912d 4142 while (*ptype == '?')
4d76d2ba 4143 ptype = next_arg_type(ptype);
81d0912d
FB
4144 }
4145 }
4146 str = args[nb_args - 1];
2a1704a7 4147 if (*ptype == '-' && ptype[1] != '\0') {
3b6dbf27 4148 ptype = next_arg_type(ptype);
2a1704a7 4149 }
81d0912d
FB
4150 switch(*ptype) {
4151 case 'F':
4152 /* file completion */
731b0364 4153 readline_set_completion_index(cur_mon->rs, strlen(str));
81d0912d
FB
4154 file_completion(str);
4155 break;
4156 case 'B':
4157 /* block device name completion */
731b0364 4158 readline_set_completion_index(cur_mon->rs, strlen(str));
81d0912d
FB
4159 bdrv_iterate(block_completion_it, (void *)str);
4160 break;
7fe48483
FB
4161 case 's':
4162 /* XXX: more generic ? */
4163 if (!strcmp(cmd->name, "info")) {
731b0364 4164 readline_set_completion_index(cur_mon->rs, strlen(str));
7fe48483
FB
4165 for(cmd = info_cmds; cmd->name != NULL; cmd++) {
4166 cmd_completion(str, cmd->name);
4167 }
64866c3d 4168 } else if (!strcmp(cmd->name, "sendkey")) {
e600d1ef
BS
4169 char *sep = strrchr(str, '-');
4170 if (sep)
4171 str = sep + 1;
731b0364 4172 readline_set_completion_index(cur_mon->rs, strlen(str));
1048c88f
AK
4173 for (i = 0; i < Q_KEY_CODE_MAX; i++) {
4174 cmd_completion(str, QKeyCode_lookup[i]);
64866c3d 4175 }
f3353c6b
JK
4176 } else if (!strcmp(cmd->name, "help|?")) {
4177 readline_set_completion_index(cur_mon->rs, strlen(str));
4178 for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
4179 cmd_completion(str, cmd->name);
4180 }
7fe48483
FB
4181 }
4182 break;
81d0912d
FB
4183 default:
4184 break;
4185 }
4186 }
03a63484
JK
4187
4188cleanup:
4189 for (i = 0; i < nb_args; i++) {
7267c094 4190 g_free(args[i]);
03a63484 4191 }
81d0912d
FB
4192}
4193
731b0364 4194static int monitor_can_read(void *opaque)
9dc39cba 4195{
731b0364
AL
4196 Monitor *mon = opaque;
4197
c62313bb 4198 return (mon->suspend_cnt == 0) ? 1 : 0;
9dc39cba
FB
4199}
4200
09069b19 4201static int invalid_qmp_mode(const Monitor *mon, const char *cmd_name)
5fa737a4 4202{
09069b19
LC
4203 int is_cap = compare_cmd(cmd_name, "qmp_capabilities");
4204 return (qmp_cmd_mode(mon) ? is_cap : !is_cap);
5fa737a4
LC
4205}
4206
4af9193a
LC
4207/*
4208 * Argument validation rules:
4209 *
4210 * 1. The argument must exist in cmd_args qdict
4211 * 2. The argument type must be the expected one
4212 *
4213 * Special case: If the argument doesn't exist in cmd_args and
4214 * the QMP_ACCEPT_UNKNOWNS flag is set, then the
4215 * checking is skipped for it.
4216 */
4217static int check_client_args_type(const QDict *client_args,
4218 const QDict *cmd_args, int flags)
5fa737a4 4219{
4af9193a 4220 const QDictEntry *ent;
5fa737a4 4221
4af9193a
LC
4222 for (ent = qdict_first(client_args); ent;ent = qdict_next(client_args,ent)){
4223 QObject *obj;
4224 QString *arg_type;
4225 const QObject *client_arg = qdict_entry_value(ent);
4226 const char *client_arg_name = qdict_entry_key(ent);
4227
4228 obj = qdict_get(cmd_args, client_arg_name);
4229 if (!obj) {
4230 if (flags & QMP_ACCEPT_UNKNOWNS) {
4231 /* handler accepts unknowns */
4232 continue;
4233 }
4234 /* client arg doesn't exist */
4235 qerror_report(QERR_INVALID_PARAMETER, client_arg_name);
4236 return -1;
4237 }
5fa737a4 4238
4af9193a
LC
4239 arg_type = qobject_to_qstring(obj);
4240 assert(arg_type != NULL);
5fa737a4 4241
4af9193a
LC
4242 /* check if argument's type is correct */
4243 switch (qstring_get_str(arg_type)[0]) {
5fa737a4
LC
4244 case 'F':
4245 case 'B':
4246 case 's':
4af9193a
LC
4247 if (qobject_type(client_arg) != QTYPE_QSTRING) {
4248 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4249 "string");
5fa737a4
LC
4250 return -1;
4251 }
4af9193a 4252 break;
5fa737a4
LC
4253 case 'i':
4254 case 'l':
b6e098d7 4255 case 'M':
dbc0c67f 4256 case 'o':
4af9193a
LC
4257 if (qobject_type(client_arg) != QTYPE_QINT) {
4258 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4259 "int");
4260 return -1;
5fa737a4
LC
4261 }
4262 break;
fccfb11e 4263 case 'T':
4af9193a
LC
4264 if (qobject_type(client_arg) != QTYPE_QINT &&
4265 qobject_type(client_arg) != QTYPE_QFLOAT) {
4266 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4267 "number");
4268 return -1;
3350a4dd
MA
4269 }
4270 break;
942cd1f2 4271 case 'b':
5fa737a4 4272 case '-':
4af9193a
LC
4273 if (qobject_type(client_arg) != QTYPE_QBOOL) {
4274 qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4275 "bool");
4276 return -1;
5fa737a4
LC
4277 }
4278 break;
361127df 4279 case 'O':
4af9193a
LC
4280 assert(flags & QMP_ACCEPT_UNKNOWNS);
4281 break;
b9f8978c
PB
4282 case 'q':
4283 /* Any QObject can be passed. */
4284 break;
4af9193a
LC
4285 case '/':
4286 case '.':
4287 /*
4288 * These types are not supported by QMP and thus are not
4289 * handled here. Fall through.
4290 */
5fa737a4 4291 default:
5fa737a4 4292 abort();
4af9193a
LC
4293 }
4294 }
4295
4296 return 0;
4297}
4298
2dbc8db0
LC
4299/*
4300 * - Check if the client has passed all mandatory args
4301 * - Set special flags for argument validation
4302 */
4303static int check_mandatory_args(const QDict *cmd_args,
4304 const QDict *client_args, int *flags)
4305{
4306 const QDictEntry *ent;
4307
4308 for (ent = qdict_first(cmd_args); ent; ent = qdict_next(cmd_args, ent)) {
4309 const char *cmd_arg_name = qdict_entry_key(ent);
4310 QString *type = qobject_to_qstring(qdict_entry_value(ent));
4311 assert(type != NULL);
4312
4313 if (qstring_get_str(type)[0] == 'O') {
4314 assert((*flags & QMP_ACCEPT_UNKNOWNS) == 0);
4315 *flags |= QMP_ACCEPT_UNKNOWNS;
4316 } else if (qstring_get_str(type)[0] != '-' &&
4317 qstring_get_str(type)[1] != '?' &&
4318 !qdict_haskey(client_args, cmd_arg_name)) {
4319 qerror_report(QERR_MISSING_PARAMETER, cmd_arg_name);
4320 return -1;
4321 }
5fa737a4
LC
4322 }
4323
4324 return 0;
4325}
4326
2dbc8db0 4327static QDict *qdict_from_args_type(const char *args_type)
5fa737a4 4328{
2dbc8db0
LC
4329 int i;
4330 QDict *qdict;
4331 QString *key, *type, *cur_qs;
4332
4333 assert(args_type != NULL);
4334
4335 qdict = qdict_new();
4336
4337 if (args_type == NULL || args_type[0] == '\0') {
4338 /* no args, empty qdict */
4339 goto out;
4340 }
4341
4342 key = qstring_new();
4343 type = qstring_new();
4344
4345 cur_qs = key;
4346
4347 for (i = 0;; i++) {
4348 switch (args_type[i]) {
4349 case ',':
4350 case '\0':
4351 qdict_put(qdict, qstring_get_str(key), type);
4352 QDECREF(key);
4353 if (args_type[i] == '\0') {
4354 goto out;
4355 }
4356 type = qstring_new(); /* qdict has ref */
4357 cur_qs = key = qstring_new();
4358 break;
4359 case ':':
4360 cur_qs = type;
4361 break;
4362 default:
4363 qstring_append_chr(cur_qs, args_type[i]);
4364 break;
4365 }
4366 }
4367
4368out:
4369 return qdict;
5fa737a4
LC
4370}
4371
2dbc8db0
LC
4372/*
4373 * Client argument checking rules:
4374 *
4375 * 1. Client must provide all mandatory arguments
4af9193a
LC
4376 * 2. Each argument provided by the client must be expected
4377 * 3. Each argument provided by the client must have the type expected
4378 * by the command
2dbc8db0
LC
4379 */
4380static int qmp_check_client_args(const mon_cmd_t *cmd, QDict *client_args)
361127df 4381{
2dbc8db0
LC
4382 int flags, err;
4383 QDict *cmd_args;
4384
4385 cmd_args = qdict_from_args_type(cmd->args_type);
4386
4387 flags = 0;
4388 err = check_mandatory_args(cmd_args, client_args, &flags);
4389 if (err) {
4390 goto out;
4391 }
4392
4af9193a 4393 err = check_client_args_type(client_args, cmd_args, flags);
2dbc8db0
LC
4394
4395out:
4396 QDECREF(cmd_args);
4397 return err;
361127df
MA
4398}
4399
5fa737a4 4400/*
c917c8f3 4401 * Input object checking rules
5fa737a4 4402 *
c917c8f3
LC
4403 * 1. Input object must be a dict
4404 * 2. The "execute" key must exist
4405 * 3. The "execute" key must be a string
4406 * 4. If the "arguments" key exists, it must be a dict
4407 * 5. If the "id" key exists, it can be anything (ie. json-value)
4408 * 6. Any argument not listed above is considered invalid
5fa737a4 4409 */
c917c8f3 4410static QDict *qmp_check_input_obj(QObject *input_obj)
5fa737a4 4411{
c917c8f3
LC
4412 const QDictEntry *ent;
4413 int has_exec_key = 0;
4414 QDict *input_dict;
5fa737a4 4415
c917c8f3
LC
4416 if (qobject_type(input_obj) != QTYPE_QDICT) {
4417 qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "object");
4418 return NULL;
5fa737a4
LC
4419 }
4420
c917c8f3 4421 input_dict = qobject_to_qdict(input_obj);
5fa737a4 4422
c917c8f3
LC
4423 for (ent = qdict_first(input_dict); ent; ent = qdict_next(input_dict, ent)){
4424 const char *arg_name = qdict_entry_key(ent);
4425 const QObject *arg_obj = qdict_entry_value(ent);
5fa737a4 4426
c917c8f3
LC
4427 if (!strcmp(arg_name, "execute")) {
4428 if (qobject_type(arg_obj) != QTYPE_QSTRING) {
4429 qerror_report(QERR_QMP_BAD_INPUT_OBJECT_MEMBER, "execute",
4430 "string");
4431 return NULL;
361127df 4432 }
c917c8f3
LC
4433 has_exec_key = 1;
4434 } else if (!strcmp(arg_name, "arguments")) {
4435 if (qobject_type(arg_obj) != QTYPE_QDICT) {
4436 qerror_report(QERR_QMP_BAD_INPUT_OBJECT_MEMBER, "arguments",
4437 "object");
4438 return NULL;
5fa737a4 4439 }
c917c8f3
LC
4440 } else if (!strcmp(arg_name, "id")) {
4441 /* FIXME: check duplicated IDs for async commands */
5fa737a4 4442 } else {
c917c8f3
LC
4443 qerror_report(QERR_QMP_EXTRA_MEMBER, arg_name);
4444 return NULL;
5fa737a4
LC
4445 }
4446 }
4447
c917c8f3
LC
4448 if (!has_exec_key) {
4449 qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "execute");
4450 return NULL;
4451 }
5fa737a4 4452
c917c8f3 4453 return input_dict;
09069b19
LC
4454}
4455
fc29df75
LC
4456static void qmp_call_cmd(Monitor *mon, const mon_cmd_t *cmd,
4457 const QDict *params)
4458{
4459 int ret;
4460 QObject *data = NULL;
4461
fc29df75
LC
4462 ret = cmd->mhandler.cmd_new(mon, params, &data);
4463 handler_audit(mon, cmd, ret);
4464 monitor_protocol_emitter(mon, data);
4465 qobject_decref(data);
4466}
4467
5fa737a4
LC
4468static void handle_qmp_command(JSONMessageParser *parser, QList *tokens)
4469{
4470 int err;
4471 QObject *obj;
4472 QDict *input, *args;
5fa737a4 4473 const mon_cmd_t *cmd;
40e5a01d 4474 const char *cmd_name;
5fa737a4
LC
4475 Monitor *mon = cur_mon;
4476
e4940c60 4477 args = input = NULL;
5fa737a4
LC
4478
4479 obj = json_parser_parse(tokens, NULL);
4480 if (!obj) {
4481 // FIXME: should be triggered in json_parser_parse()
ab5b027e 4482 qerror_report(QERR_JSON_PARSING);
5fa737a4 4483 goto err_out;
5fa737a4
LC
4484 }
4485
c917c8f3
LC
4486 input = qmp_check_input_obj(obj);
4487 if (!input) {
5fa737a4
LC
4488 qobject_decref(obj);
4489 goto err_out;
4490 }
4491
5fa737a4
LC
4492 mon->mc->id = qdict_get(input, "id");
4493 qobject_incref(mon->mc->id);
4494
0bbab46d 4495 cmd_name = qdict_get_str(input, "execute");
89bd820a 4496 trace_handle_qmp_command(mon, cmd_name);
09069b19 4497 if (invalid_qmp_mode(mon, cmd_name)) {
ab5b027e 4498 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
e4940c60 4499 goto err_out;
09069b19
LC
4500 }
4501
e3193601 4502 cmd = qmp_find_cmd(cmd_name);
d1249eaa 4503 if (!cmd) {
ab5b027e 4504 qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
e4940c60 4505 goto err_out;
5fa737a4
LC
4506 }
4507
4508 obj = qdict_get(input, "arguments");
4509 if (!obj) {
4510 args = qdict_new();
4511 } else {
4512 args = qobject_to_qdict(obj);
4513 QINCREF(args);
4514 }
4515
2dbc8db0 4516 err = qmp_check_client_args(cmd, args);
5fa737a4
LC
4517 if (err < 0) {
4518 goto err_out;
4519 }
4520
40e5a01d 4521 if (handler_is_async(cmd)) {
5af7bbae
LC
4522 err = qmp_async_cmd_handler(mon, cmd, args);
4523 if (err) {
4524 /* emit the error response */
4525 goto err_out;
4526 }
940cc30d 4527 } else {
fc29df75 4528 qmp_call_cmd(mon, cmd, args);
940cc30d 4529 }
e4940c60 4530
5fa737a4
LC
4531 goto out;
4532
5fa737a4
LC
4533err_out:
4534 monitor_protocol_emitter(mon, NULL);
4535out:
e4940c60 4536 QDECREF(input);
5fa737a4 4537 QDECREF(args);
5fa737a4
LC
4538}
4539
9b57c02e
LC
4540/**
4541 * monitor_control_read(): Read and handle QMP input
4542 */
4543static void monitor_control_read(void *opaque, const uint8_t *buf, int size)
4544{
4545 Monitor *old_mon = cur_mon;
4546
4547 cur_mon = opaque;
4548
5fa737a4 4549 json_message_parser_feed(&cur_mon->mc->parser, (const char *) buf, size);
9b57c02e
LC
4550
4551 cur_mon = old_mon;
4552}
4553
731b0364 4554static void monitor_read(void *opaque, const uint8_t *buf, int size)
9dc39cba 4555{
731b0364 4556 Monitor *old_mon = cur_mon;
7e2515e8 4557 int i;
376253ec 4558
731b0364
AL
4559 cur_mon = opaque;
4560
cde76ee1
AL
4561 if (cur_mon->rs) {
4562 for (i = 0; i < size; i++)
4563 readline_handle_byte(cur_mon->rs, buf[i]);
4564 } else {
4565 if (size == 0 || buf[size - 1] != 0)
4566 monitor_printf(cur_mon, "corrupted command\n");
4567 else
f3c157c4 4568 handle_user_command(cur_mon, (char *)buf);
cde76ee1 4569 }
9dc39cba 4570
731b0364
AL
4571 cur_mon = old_mon;
4572}
d8f44609 4573
376253ec 4574static void monitor_command_cb(Monitor *mon, const char *cmdline, void *opaque)
aa455485 4575{
731b0364 4576 monitor_suspend(mon);
f3c157c4 4577 handle_user_command(mon, cmdline);
731b0364 4578 monitor_resume(mon);
d8f44609
AL
4579}
4580
cde76ee1 4581int monitor_suspend(Monitor *mon)
d8f44609 4582{
cde76ee1
AL
4583 if (!mon->rs)
4584 return -ENOTTY;
731b0364 4585 mon->suspend_cnt++;
cde76ee1 4586 return 0;
d8f44609
AL
4587}
4588
376253ec 4589void monitor_resume(Monitor *mon)
d8f44609 4590{
cde76ee1
AL
4591 if (!mon->rs)
4592 return;
731b0364
AL
4593 if (--mon->suspend_cnt == 0)
4594 readline_show_prompt(mon->rs);
aa455485
FB
4595}
4596
ca9567e2
LC
4597static QObject *get_qmp_greeting(void)
4598{
b9c15f16 4599 QObject *ver = NULL;
ca9567e2 4600
b9c15f16 4601 qmp_marshal_input_query_version(NULL, NULL, &ver);
ca9567e2
LC
4602 return qobject_from_jsonf("{'QMP':{'version': %p,'capabilities': []}}",ver);
4603}
4604
9b57c02e
LC
4605/**
4606 * monitor_control_event(): Print QMP gretting
4607 */
4608static void monitor_control_event(void *opaque, int event)
4609{
47116d1c
LC
4610 QObject *data;
4611 Monitor *mon = opaque;
9b57c02e 4612
47116d1c
LC
4613 switch (event) {
4614 case CHR_EVENT_OPENED:
4a7e1190 4615 mon->mc->command_mode = 0;
ca9567e2 4616 data = get_qmp_greeting();
9b57c02e
LC
4617 monitor_json_emitter(mon, data);
4618 qobject_decref(data);
efb87c16 4619 mon_refcount++;
47116d1c
LC
4620 break;
4621 case CHR_EVENT_CLOSED:
4622 json_message_parser_destroy(&mon->mc->parser);
58617a79 4623 json_message_parser_init(&mon->mc->parser, handle_qmp_command);
efb87c16
CB
4624 mon_refcount--;
4625 monitor_fdsets_cleanup();
47116d1c 4626 break;
9b57c02e
LC
4627 }
4628}
4629
731b0364 4630static void monitor_event(void *opaque, int event)
86e94dea 4631{
376253ec
AL
4632 Monitor *mon = opaque;
4633
2724b180
AL
4634 switch (event) {
4635 case CHR_EVENT_MUX_IN:
a7aec5da
GH
4636 mon->mux_out = 0;
4637 if (mon->reset_seen) {
4638 readline_restart(mon->rs);
4639 monitor_resume(mon);
4640 monitor_flush(mon);
4641 } else {
4642 mon->suspend_cnt = 0;
4643 }
2724b180
AL
4644 break;
4645
4646 case CHR_EVENT_MUX_OUT:
a7aec5da
GH
4647 if (mon->reset_seen) {
4648 if (mon->suspend_cnt == 0) {
4649 monitor_printf(mon, "\n");
4650 }
4651 monitor_flush(mon);
4652 monitor_suspend(mon);
4653 } else {
4654 mon->suspend_cnt++;
4655 }
4656 mon->mux_out = 1;
2724b180 4657 break;
86e94dea 4658
b6b8df56 4659 case CHR_EVENT_OPENED:
2724b180
AL
4660 monitor_printf(mon, "QEMU %s monitor - type 'help' for more "
4661 "information\n", QEMU_VERSION);
a7aec5da 4662 if (!mon->mux_out) {
2724b180 4663 readline_show_prompt(mon->rs);
a7aec5da
GH
4664 }
4665 mon->reset_seen = 1;
efb87c16
CB
4666 mon_refcount++;
4667 break;
4668
4669 case CHR_EVENT_CLOSED:
4670 mon_refcount--;
4671 monitor_fdsets_cleanup();
2724b180
AL
4672 break;
4673 }
86e94dea
TS
4674}
4675
816f8925
WX
4676static int
4677compare_mon_cmd(const void *a, const void *b)
4678{
4679 return strcmp(((const mon_cmd_t *)a)->name,
4680 ((const mon_cmd_t *)b)->name);
4681}
4682
4683static void sortcmdlist(void)
4684{
4685 int array_num;
4686 int elem_size = sizeof(mon_cmd_t);
4687
4688 array_num = sizeof(mon_cmds)/elem_size-1;
4689 qsort((void *)mon_cmds, array_num, elem_size, compare_mon_cmd);
4690
4691 array_num = sizeof(info_cmds)/elem_size-1;
4692 qsort((void *)info_cmds, array_num, elem_size, compare_mon_cmd);
4693}
4694
76655d6d
AL
4695
4696/*
4697 * Local variables:
4698 * c-indent-level: 4
4699 * c-basic-offset: 4
4700 * tab-width: 8
4701 * End:
4702 */
4703
731b0364 4704void monitor_init(CharDriverState *chr, int flags)
aa455485 4705{
731b0364 4706 static int is_first_init = 1;
87127161 4707 Monitor *mon;
20d8a3ed
TS
4708
4709 if (is_first_init) {
afeecec2 4710 monitor_protocol_event_init();
20d8a3ed
TS
4711 is_first_init = 0;
4712 }
87127161 4713
7267c094 4714 mon = g_malloc0(sizeof(*mon));
20d8a3ed 4715
87127161 4716 mon->chr = chr;
731b0364 4717 mon->flags = flags;
cde76ee1
AL
4718 if (flags & MONITOR_USE_READLINE) {
4719 mon->rs = readline_init(mon, monitor_find_completion);
4720 monitor_read_command(mon, 0);
4721 }
87127161 4722
9b57c02e 4723 if (monitor_ctrl_mode(mon)) {
7267c094 4724 mon->mc = g_malloc0(sizeof(MonitorControl));
9b57c02e
LC
4725 /* Control mode requires special handlers */
4726 qemu_chr_add_handlers(chr, monitor_can_read, monitor_control_read,
4727 monitor_control_event, mon);
15f31519 4728 qemu_chr_fe_set_echo(chr, true);
26efaca3
AL
4729
4730 json_message_parser_init(&mon->mc->parser, handle_qmp_command);
9b57c02e
LC
4731 } else {
4732 qemu_chr_add_handlers(chr, monitor_can_read, monitor_read,
4733 monitor_event, mon);
4734 }
87127161 4735
72cf2d4f 4736 QLIST_INSERT_HEAD(&mon_list, mon, entry);
8631b608
MA
4737 if (!default_mon || (flags & MONITOR_IS_DEFAULT))
4738 default_mon = mon;
816f8925
WX
4739
4740 sortcmdlist();
aa455485
FB
4741}
4742
376253ec 4743static void bdrv_password_cb(Monitor *mon, const char *password, void *opaque)
81d0912d 4744{
bb5fc20f
AL
4745 BlockDriverState *bs = opaque;
4746 int ret = 0;
81d0912d 4747
bb5fc20f 4748 if (bdrv_set_key(bs, password) != 0) {
376253ec 4749 monitor_printf(mon, "invalid password\n");
bb5fc20f 4750 ret = -EPERM;
9dc39cba 4751 }
731b0364
AL
4752 if (mon->password_completion_cb)
4753 mon->password_completion_cb(mon->password_opaque, ret);
bb5fc20f 4754
731b0364 4755 monitor_read_command(mon, 1);
9dc39cba 4756}
c0f4ce77 4757
7060b478
AL
4758ReadLineState *monitor_get_rs(Monitor *mon)
4759{
4760 return mon->rs;
4761}
4762
0bbc47bb
LC
4763int monitor_read_bdrv_key_start(Monitor *mon, BlockDriverState *bs,
4764 BlockDriverCompletionFunc *completion_cb,
4765 void *opaque)
c0f4ce77 4766{
cde76ee1
AL
4767 int err;
4768
bb5fc20f
AL
4769 if (!bdrv_key_required(bs)) {
4770 if (completion_cb)
4771 completion_cb(opaque, 0);
0bbc47bb 4772 return 0;
bb5fc20f 4773 }
c0f4ce77 4774
94171e11 4775 if (monitor_ctrl_mode(mon)) {
903a8814
LC
4776 qerror_report(QERR_DEVICE_ENCRYPTED, bdrv_get_device_name(bs),
4777 bdrv_get_encrypted_filename(bs));
0bbc47bb 4778 return -1;
94171e11
LC
4779 }
4780
376253ec
AL
4781 monitor_printf(mon, "%s (%s) is encrypted.\n", bdrv_get_device_name(bs),
4782 bdrv_get_encrypted_filename(bs));
bb5fc20f 4783
731b0364
AL
4784 mon->password_completion_cb = completion_cb;
4785 mon->password_opaque = opaque;
bb5fc20f 4786
cde76ee1
AL
4787 err = monitor_read_password(mon, bdrv_password_cb, bs);
4788
4789 if (err && completion_cb)
4790 completion_cb(opaque, err);
0bbc47bb
LC
4791
4792 return err;
c0f4ce77 4793}
e42e818b
LC
4794
4795int monitor_read_block_device_key(Monitor *mon, const char *device,
4796 BlockDriverCompletionFunc *completion_cb,
4797 void *opaque)
4798{
4799 BlockDriverState *bs;
4800
4801 bs = bdrv_find(device);
4802 if (!bs) {
4803 monitor_printf(mon, "Device not found %s\n", device);
4804 return -1;
4805 }
4806
4807 return monitor_read_bdrv_key_start(mon, bs, completion_cb, opaque);
4808}
4d454574
PB
4809
4810QemuOptsList qemu_mon_opts = {
4811 .name = "mon",
4812 .implied_opt_name = "chardev",
4813 .head = QTAILQ_HEAD_INITIALIZER(qemu_mon_opts.head),
4814 .desc = {
4815 {
4816 .name = "mode",
4817 .type = QEMU_OPT_STRING,
4818 },{
4819 .name = "chardev",
4820 .type = QEMU_OPT_STRING,
4821 },{
4822 .name = "default",
4823 .type = QEMU_OPT_BOOL,
4824 },{
4825 .name = "pretty",
4826 .type = QEMU_OPT_BOOL,
4827 },
4828 { /* end of list */ }
4829 },
4830};