Statistics
| Branch: | Revision:

root / monitor.c @ c01e6885

History | View | Annotate | Download (126.5 kB)

1
/*
2
 * QEMU monitor
3
 *
4
 * Copyright (c) 2003-2004 Fabrice Bellard
5
 *
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
 */
24
#include <dirent.h>
25
#include "hw/hw.h"
26
#include "hw/qdev.h"
27
#include "hw/usb.h"
28
#include "hw/pcmcia.h"
29
#include "hw/pc.h"
30
#include "hw/pci.h"
31
#include "hw/watchdog.h"
32
#include "hw/loader.h"
33
#include "gdbstub.h"
34
#include "net.h"
35
#include "net/slirp.h"
36
#include "qemu-char.h"
37
#include "sysemu.h"
38
#include "monitor.h"
39
#include "readline.h"
40
#include "console.h"
41
#include "blockdev.h"
42
#include "audio/audio.h"
43
#include "disas.h"
44
#include "balloon.h"
45
#include "qemu-timer.h"
46
#include "migration.h"
47
#include "kvm.h"
48
#include "acl.h"
49
#include "qint.h"
50
#include "qfloat.h"
51
#include "qlist.h"
52
#include "qbool.h"
53
#include "qstring.h"
54
#include "qjson.h"
55
#include "json-streamer.h"
56
#include "json-parser.h"
57
#include "osdep.h"
58
#include "exec-all.h"
59
#ifdef CONFIG_SIMPLE_TRACE
60
#include "trace.h"
61
#endif
62

    
63
//#define DEBUG
64
//#define DEBUG_COMPLETION
65

    
66
/*
67
 * Supported types:
68
 *
69
 * 'F'          filename
70
 * 'B'          block device name
71
 * 's'          string (accept optional quote)
72
 * 'O'          option string of the form NAME=VALUE,...
73
 *              parsed according to QemuOptsList given by its name
74
 *              Example: 'device:O' uses qemu_device_opts.
75
 *              Restriction: only lists with empty desc are supported
76
 *              TODO lift the restriction
77
 * 'i'          32 bit integer
78
 * 'l'          target long (32 or 64 bit)
79
 * 'M'          just like 'l', except in user mode the value is
80
 *              multiplied by 2^20 (think Mebibyte)
81
 * 'o'          octets (aka bytes)
82
 *              user mode accepts an optional T, t, G, g, M, m, K, k
83
 *              suffix, which multiplies the value by 2^40 for
84
 *              suffixes T and t, 2^30 for suffixes G and g, 2^20 for
85
 *              M and m, 2^10 for K and k
86
 * 'T'          double
87
 *              user mode accepts an optional ms, us, ns suffix,
88
 *              which divides the value by 1e3, 1e6, 1e9, respectively
89
 * '/'          optional gdb-like print format (like "/10x")
90
 *
91
 * '?'          optional type (for all types, except '/')
92
 * '.'          other form of optional type (for 'i' and 'l')
93
 * 'b'          boolean
94
 *              user mode accepts "on" or "off"
95
 * '-'          optional parameter (eg. '-f')
96
 *
97
 */
98

    
99
typedef struct MonitorCompletionData MonitorCompletionData;
100
struct MonitorCompletionData {
101
    Monitor *mon;
102
    void (*user_print)(Monitor *mon, const QObject *data);
103
};
104

    
105
typedef struct mon_cmd_t {
106
    const char *name;
107
    const char *args_type;
108
    const char *params;
109
    const char *help;
110
    void (*user_print)(Monitor *mon, const QObject *data);
111
    union {
112
        void (*info)(Monitor *mon);
113
        void (*info_new)(Monitor *mon, QObject **ret_data);
114
        int  (*info_async)(Monitor *mon, MonitorCompletion *cb, void *opaque);
115
        void (*cmd)(Monitor *mon, const QDict *qdict);
116
        int  (*cmd_new)(Monitor *mon, const QDict *params, QObject **ret_data);
117
        int  (*cmd_async)(Monitor *mon, const QDict *params,
118
                          MonitorCompletion *cb, void *opaque);
119
    } mhandler;
120
    int flags;
121
} mon_cmd_t;
122

    
123
/* file descriptors passed via SCM_RIGHTS */
124
typedef struct mon_fd_t mon_fd_t;
125
struct mon_fd_t {
126
    char *name;
127
    int fd;
128
    QLIST_ENTRY(mon_fd_t) next;
129
};
130

    
131
typedef struct MonitorControl {
132
    QObject *id;
133
    JSONMessageParser parser;
134
    int command_mode;
135
} MonitorControl;
136

    
137
struct Monitor {
138
    CharDriverState *chr;
139
    int mux_out;
140
    int reset_seen;
141
    int flags;
142
    int suspend_cnt;
143
    uint8_t outbuf[1024];
144
    int outbuf_index;
145
    ReadLineState *rs;
146
    MonitorControl *mc;
147
    CPUState *mon_cpu;
148
    BlockDriverCompletionFunc *password_completion_cb;
149
    void *password_opaque;
150
#ifdef CONFIG_DEBUG_MONITOR
151
    int print_calls_nr;
152
#endif
153
    QError *error;
154
    QLIST_HEAD(,mon_fd_t) fds;
155
    QLIST_ENTRY(Monitor) entry;
156
};
157

    
158
#ifdef CONFIG_DEBUG_MONITOR
159
#define MON_DEBUG(fmt, ...) do {    \
160
    fprintf(stderr, "Monitor: ");       \
161
    fprintf(stderr, fmt, ## __VA_ARGS__); } while (0)
162

    
163
static inline void mon_print_count_inc(Monitor *mon)
164
{
165
    mon->print_calls_nr++;
166
}
167

    
168
static inline void mon_print_count_init(Monitor *mon)
169
{
170
    mon->print_calls_nr = 0;
171
}
172

    
173
static inline int mon_print_count_get(const Monitor *mon)
174
{
175
    return mon->print_calls_nr;
176
}
177

    
178
#else /* !CONFIG_DEBUG_MONITOR */
179
#define MON_DEBUG(fmt, ...) do { } while (0)
180
static inline void mon_print_count_inc(Monitor *mon) { }
181
static inline void mon_print_count_init(Monitor *mon) { }
182
static inline int mon_print_count_get(const Monitor *mon) { return 0; }
183
#endif /* CONFIG_DEBUG_MONITOR */
184

    
185
/* QMP checker flags */
186
#define QMP_ACCEPT_UNKNOWNS 1
187

    
188
static QLIST_HEAD(mon_list, Monitor) mon_list;
189

    
190
static const mon_cmd_t mon_cmds[];
191
static const mon_cmd_t info_cmds[];
192

    
193
static const mon_cmd_t qmp_cmds[];
194
static const mon_cmd_t qmp_query_cmds[];
195

    
196
Monitor *cur_mon;
197
Monitor *default_mon;
198

    
199
static void monitor_command_cb(Monitor *mon, const char *cmdline,
200
                               void *opaque);
201

    
202
static inline int qmp_cmd_mode(const Monitor *mon)
203
{
204
    return (mon->mc ? mon->mc->command_mode : 0);
205
}
206

    
207
/* Return true if in control mode, false otherwise */
208
static inline int monitor_ctrl_mode(const Monitor *mon)
209
{
210
    return (mon->flags & MONITOR_USE_CONTROL);
211
}
212

    
213
/* Return non-zero iff we have a current monitor, and it is in QMP mode.  */
214
int monitor_cur_is_qmp(void)
215
{
216
    return cur_mon && monitor_ctrl_mode(cur_mon);
217
}
218

    
219
static void monitor_read_command(Monitor *mon, int show_prompt)
220
{
221
    if (!mon->rs)
222
        return;
223

    
224
    readline_start(mon->rs, "(qemu) ", 0, monitor_command_cb, NULL);
225
    if (show_prompt)
226
        readline_show_prompt(mon->rs);
227
}
228

    
229
static int monitor_read_password(Monitor *mon, ReadLineFunc *readline_func,
230
                                 void *opaque)
231
{
232
    if (monitor_ctrl_mode(mon)) {
233
        qerror_report(QERR_MISSING_PARAMETER, "password");
234
        return -EINVAL;
235
    } else if (mon->rs) {
236
        readline_start(mon->rs, "Password: ", 1, readline_func, opaque);
237
        /* prompt is printed on return from the command handler */
238
        return 0;
239
    } else {
240
        monitor_printf(mon, "terminal does not support password prompting\n");
241
        return -ENOTTY;
242
    }
243
}
244

    
245
void monitor_flush(Monitor *mon)
246
{
247
    if (mon && mon->outbuf_index != 0 && !mon->mux_out) {
248
        qemu_chr_write(mon->chr, mon->outbuf, mon->outbuf_index);
249
        mon->outbuf_index = 0;
250
    }
251
}
252

    
253
/* flush at every end of line or if the buffer is full */
254
static void monitor_puts(Monitor *mon, const char *str)
255
{
256
    char c;
257

    
258
    for(;;) {
259
        c = *str++;
260
        if (c == '\0')
261
            break;
262
        if (c == '\n')
263
            mon->outbuf[mon->outbuf_index++] = '\r';
264
        mon->outbuf[mon->outbuf_index++] = c;
265
        if (mon->outbuf_index >= (sizeof(mon->outbuf) - 1)
266
            || c == '\n')
267
            monitor_flush(mon);
268
    }
269
}
270

    
271
void monitor_vprintf(Monitor *mon, const char *fmt, va_list ap)
272
{
273
    char buf[4096];
274

    
275
    if (!mon)
276
        return;
277

    
278
    mon_print_count_inc(mon);
279

    
280
    if (monitor_ctrl_mode(mon)) {
281
        return;
282
    }
283

    
284
    vsnprintf(buf, sizeof(buf), fmt, ap);
285
    monitor_puts(mon, buf);
286
}
287

    
288
void monitor_printf(Monitor *mon, const char *fmt, ...)
289
{
290
    va_list ap;
291
    va_start(ap, fmt);
292
    monitor_vprintf(mon, fmt, ap);
293
    va_end(ap);
294
}
295

    
296
void monitor_print_filename(Monitor *mon, const char *filename)
297
{
298
    int i;
299

    
300
    for (i = 0; filename[i]; i++) {
301
        switch (filename[i]) {
302
        case ' ':
303
        case '"':
304
        case '\\':
305
            monitor_printf(mon, "\\%c", filename[i]);
306
            break;
307
        case '\t':
308
            monitor_printf(mon, "\\t");
309
            break;
310
        case '\r':
311
            monitor_printf(mon, "\\r");
312
            break;
313
        case '\n':
314
            monitor_printf(mon, "\\n");
315
            break;
316
        default:
317
            monitor_printf(mon, "%c", filename[i]);
318
            break;
319
        }
320
    }
321
}
322

    
323
static int GCC_FMT_ATTR(2, 3) monitor_fprintf(FILE *stream,
324
                                              const char *fmt, ...)
325
{
326
    va_list ap;
327
    va_start(ap, fmt);
328
    monitor_vprintf((Monitor *)stream, fmt, ap);
329
    va_end(ap);
330
    return 0;
331
}
332

    
333
static void monitor_user_noop(Monitor *mon, const QObject *data) { }
334

    
335
static inline int handler_is_qobject(const mon_cmd_t *cmd)
336
{
337
    return cmd->user_print != NULL;
338
}
339

    
340
static inline bool handler_is_async(const mon_cmd_t *cmd)
341
{
342
    return cmd->flags & MONITOR_CMD_ASYNC;
343
}
344

    
345
static inline int monitor_has_error(const Monitor *mon)
346
{
347
    return mon->error != NULL;
348
}
349

    
350
static void monitor_json_emitter(Monitor *mon, const QObject *data)
351
{
352
    QString *json;
353

    
354
    if (mon->flags & MONITOR_USE_PRETTY)
355
        json = qobject_to_json_pretty(data);
356
    else
357
        json = qobject_to_json(data);
358
    assert(json != NULL);
359

    
360
    qstring_append_chr(json, '\n');
361
    monitor_puts(mon, qstring_get_str(json));
362

    
363
    QDECREF(json);
364
}
365

    
366
static void monitor_protocol_emitter(Monitor *mon, QObject *data)
367
{
368
    QDict *qmp;
369

    
370
    qmp = qdict_new();
371

    
372
    if (!monitor_has_error(mon)) {
373
        /* success response */
374
        if (data) {
375
            qobject_incref(data);
376
            qdict_put_obj(qmp, "return", data);
377
        } else {
378
            /* return an empty QDict by default */
379
            qdict_put(qmp, "return", qdict_new());
380
        }
381
    } else {
382
        /* error response */
383
        qdict_put(mon->error->error, "desc", qerror_human(mon->error));
384
        qdict_put(qmp, "error", mon->error->error);
385
        QINCREF(mon->error->error);
386
        QDECREF(mon->error);
387
        mon->error = NULL;
388
    }
389

    
390
    if (mon->mc->id) {
391
        qdict_put_obj(qmp, "id", mon->mc->id);
392
        mon->mc->id = NULL;
393
    }
394

    
395
    monitor_json_emitter(mon, QOBJECT(qmp));
396
    QDECREF(qmp);
397
}
398

    
399
static void timestamp_put(QDict *qdict)
400
{
401
    int err;
402
    QObject *obj;
403
    qemu_timeval tv;
404

    
405
    err = qemu_gettimeofday(&tv);
406
    if (err < 0)
407
        return;
408

    
409
    obj = qobject_from_jsonf("{ 'seconds': %" PRId64 ", "
410
                                "'microseconds': %" PRId64 " }",
411
                                (int64_t) tv.tv_sec, (int64_t) tv.tv_usec);
412
    qdict_put_obj(qdict, "timestamp", obj);
413
}
414

    
415
/**
416
 * monitor_protocol_event(): Generate a Monitor event
417
 *
418
 * Event-specific data can be emitted through the (optional) 'data' parameter.
419
 */
420
void monitor_protocol_event(MonitorEvent event, QObject *data)
421
{
422
    QDict *qmp;
423
    const char *event_name;
424
    Monitor *mon;
425

    
426
    assert(event < QEVENT_MAX);
427

    
428
    switch (event) {
429
        case QEVENT_SHUTDOWN:
430
            event_name = "SHUTDOWN";
431
            break;
432
        case QEVENT_RESET:
433
            event_name = "RESET";
434
            break;
435
        case QEVENT_POWERDOWN:
436
            event_name = "POWERDOWN";
437
            break;
438
        case QEVENT_STOP:
439
            event_name = "STOP";
440
            break;
441
        case QEVENT_RESUME:
442
            event_name = "RESUME";
443
            break;
444
        case QEVENT_VNC_CONNECTED:
445
            event_name = "VNC_CONNECTED";
446
            break;
447
        case QEVENT_VNC_INITIALIZED:
448
            event_name = "VNC_INITIALIZED";
449
            break;
450
        case QEVENT_VNC_DISCONNECTED:
451
            event_name = "VNC_DISCONNECTED";
452
            break;
453
        case QEVENT_BLOCK_IO_ERROR:
454
            event_name = "BLOCK_IO_ERROR";
455
            break;
456
        case QEVENT_RTC_CHANGE:
457
            event_name = "RTC_CHANGE";
458
            break;
459
        case QEVENT_WATCHDOG:
460
            event_name = "WATCHDOG";
461
            break;
462
        default:
463
            abort();
464
            break;
465
    }
466

    
467
    qmp = qdict_new();
468
    timestamp_put(qmp);
469
    qdict_put(qmp, "event", qstring_from_str(event_name));
470
    if (data) {
471
        qobject_incref(data);
472
        qdict_put_obj(qmp, "data", data);
473
    }
474

    
475
    QLIST_FOREACH(mon, &mon_list, entry) {
476
        if (monitor_ctrl_mode(mon) && qmp_cmd_mode(mon)) {
477
            monitor_json_emitter(mon, QOBJECT(qmp));
478
        }
479
    }
480
    QDECREF(qmp);
481
}
482

    
483
static int do_qmp_capabilities(Monitor *mon, const QDict *params,
484
                               QObject **ret_data)
485
{
486
    /* Will setup QMP capabilities in the future */
487
    if (monitor_ctrl_mode(mon)) {
488
        mon->mc->command_mode = 1;
489
    }
490

    
491
    return 0;
492
}
493

    
494
static int mon_set_cpu(int cpu_index);
495
static void handle_user_command(Monitor *mon, const char *cmdline);
496

    
497
static int do_hmp_passthrough(Monitor *mon, const QDict *params,
498
                              QObject **ret_data)
499
{
500
    int ret = 0;
501
    Monitor *old_mon, hmp;
502
    CharDriverState mchar;
503

    
504
    memset(&hmp, 0, sizeof(hmp));
505
    qemu_chr_init_mem(&mchar);
506
    hmp.chr = &mchar;
507

    
508
    old_mon = cur_mon;
509
    cur_mon = &hmp;
510

    
511
    if (qdict_haskey(params, "cpu-index")) {
512
        ret = mon_set_cpu(qdict_get_int(params, "cpu-index"));
513
        if (ret < 0) {
514
            cur_mon = old_mon;
515
            qerror_report(QERR_INVALID_PARAMETER_VALUE, "cpu-index", "a CPU number");
516
            goto out;
517
        }
518
    }
519

    
520
    handle_user_command(&hmp, qdict_get_str(params, "command-line"));
521
    cur_mon = old_mon;
522

    
523
    if (qemu_chr_mem_osize(hmp.chr) > 0) {
524
        *ret_data = QOBJECT(qemu_chr_mem_to_qs(hmp.chr));
525
    }
526

    
527
out:
528
    qemu_chr_close_mem(hmp.chr);
529
    return ret;
530
}
531

    
532
static int compare_cmd(const char *name, const char *list)
533
{
534
    const char *p, *pstart;
535
    int len;
536
    len = strlen(name);
537
    p = list;
538
    for(;;) {
539
        pstart = p;
540
        p = strchr(p, '|');
541
        if (!p)
542
            p = pstart + strlen(pstart);
543
        if ((p - pstart) == len && !memcmp(pstart, name, len))
544
            return 1;
545
        if (*p == '\0')
546
            break;
547
        p++;
548
    }
549
    return 0;
550
}
551

    
552
static void help_cmd_dump(Monitor *mon, const mon_cmd_t *cmds,
553
                          const char *prefix, const char *name)
554
{
555
    const mon_cmd_t *cmd;
556

    
557
    for(cmd = cmds; cmd->name != NULL; cmd++) {
558
        if (!name || !strcmp(name, cmd->name))
559
            monitor_printf(mon, "%s%s %s -- %s\n", prefix, cmd->name,
560
                           cmd->params, cmd->help);
561
    }
562
}
563

    
564
static void help_cmd(Monitor *mon, const char *name)
565
{
566
    if (name && !strcmp(name, "info")) {
567
        help_cmd_dump(mon, info_cmds, "info ", NULL);
568
    } else {
569
        help_cmd_dump(mon, mon_cmds, "", name);
570
        if (name && !strcmp(name, "log")) {
571
            const CPULogItem *item;
572
            monitor_printf(mon, "Log items (comma separated):\n");
573
            monitor_printf(mon, "%-10s %s\n", "none", "remove all logs");
574
            for(item = cpu_log_items; item->mask != 0; item++) {
575
                monitor_printf(mon, "%-10s %s\n", item->name, item->help);
576
            }
577
        }
578
    }
579
}
580

    
581
static void do_help_cmd(Monitor *mon, const QDict *qdict)
582
{
583
    help_cmd(mon, qdict_get_try_str(qdict, "name"));
584
}
585

    
586
#ifdef CONFIG_SIMPLE_TRACE
587
static void do_change_trace_event_state(Monitor *mon, const QDict *qdict)
588
{
589
    const char *tp_name = qdict_get_str(qdict, "name");
590
    bool new_state = qdict_get_bool(qdict, "option");
591
    int ret = st_change_trace_event_state(tp_name, new_state);
592

    
593
    if (!ret) {
594
        monitor_printf(mon, "unknown event name \"%s\"\n", tp_name);
595
    }
596
}
597

    
598
static void do_trace_file(Monitor *mon, const QDict *qdict)
599
{
600
    const char *op = qdict_get_try_str(qdict, "op");
601
    const char *arg = qdict_get_try_str(qdict, "arg");
602

    
603
    if (!op) {
604
        st_print_trace_file_status((FILE *)mon, &monitor_fprintf);
605
    } else if (!strcmp(op, "on")) {
606
        st_set_trace_file_enabled(true);
607
    } else if (!strcmp(op, "off")) {
608
        st_set_trace_file_enabled(false);
609
    } else if (!strcmp(op, "flush")) {
610
        st_flush_trace_buffer();
611
    } else if (!strcmp(op, "set")) {
612
        if (arg) {
613
            st_set_trace_file(arg);
614
        }
615
    } else {
616
        monitor_printf(mon, "unexpected argument \"%s\"\n", op);
617
        help_cmd(mon, "trace-file");
618
    }
619
}
620
#endif
621

    
622
static void user_monitor_complete(void *opaque, QObject *ret_data)
623
{
624
    MonitorCompletionData *data = (MonitorCompletionData *)opaque; 
625

    
626
    if (ret_data) {
627
        data->user_print(data->mon, ret_data);
628
    }
629
    monitor_resume(data->mon);
630
    qemu_free(data);
631
}
632

    
633
static void qmp_monitor_complete(void *opaque, QObject *ret_data)
634
{
635
    monitor_protocol_emitter(opaque, ret_data);
636
}
637

    
638
static int qmp_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
639
                                 const QDict *params)
640
{
641
    return cmd->mhandler.cmd_async(mon, params, qmp_monitor_complete, mon);
642
}
643

    
644
static void qmp_async_info_handler(Monitor *mon, const mon_cmd_t *cmd)
645
{
646
    cmd->mhandler.info_async(mon, qmp_monitor_complete, mon);
647
}
648

    
649
static void user_async_cmd_handler(Monitor *mon, const mon_cmd_t *cmd,
650
                                   const QDict *params)
651
{
652
    int ret;
653

    
654
    MonitorCompletionData *cb_data = qemu_malloc(sizeof(*cb_data));
655
    cb_data->mon = mon;
656
    cb_data->user_print = cmd->user_print;
657
    monitor_suspend(mon);
658
    ret = cmd->mhandler.cmd_async(mon, params,
659
                                  user_monitor_complete, cb_data);
660
    if (ret < 0) {
661
        monitor_resume(mon);
662
        qemu_free(cb_data);
663
    }
664
}
665

    
666
static void user_async_info_handler(Monitor *mon, const mon_cmd_t *cmd)
667
{
668
    int ret;
669

    
670
    MonitorCompletionData *cb_data = qemu_malloc(sizeof(*cb_data));
671
    cb_data->mon = mon;
672
    cb_data->user_print = cmd->user_print;
673
    monitor_suspend(mon);
674
    ret = cmd->mhandler.info_async(mon, user_monitor_complete, cb_data);
675
    if (ret < 0) {
676
        monitor_resume(mon);
677
        qemu_free(cb_data);
678
    }
679
}
680

    
681
static void do_info(Monitor *mon, const QDict *qdict)
682
{
683
    const mon_cmd_t *cmd;
684
    const char *item = qdict_get_try_str(qdict, "item");
685

    
686
    if (!item) {
687
        goto help;
688
    }
689

    
690
    for (cmd = info_cmds; cmd->name != NULL; cmd++) {
691
        if (compare_cmd(item, cmd->name))
692
            break;
693
    }
694

    
695
    if (cmd->name == NULL) {
696
        goto help;
697
    }
698

    
699
    if (handler_is_async(cmd)) {
700
        user_async_info_handler(mon, cmd);
701
    } else if (handler_is_qobject(cmd)) {
702
        QObject *info_data = NULL;
703

    
704
        cmd->mhandler.info_new(mon, &info_data);
705
        if (info_data) {
706
            cmd->user_print(mon, info_data);
707
            qobject_decref(info_data);
708
        }
709
    } else {
710
        cmd->mhandler.info(mon);
711
    }
712

    
713
    return;
714

    
715
help:
716
    help_cmd(mon, "info");
717
}
718

    
719
static void do_info_version_print(Monitor *mon, const QObject *data)
720
{
721
    QDict *qdict;
722
    QDict *qemu;
723

    
724
    qdict = qobject_to_qdict(data);
725
    qemu = qdict_get_qdict(qdict, "qemu");
726

    
727
    monitor_printf(mon, "%" PRId64 ".%" PRId64 ".%" PRId64 "%s\n",
728
                  qdict_get_int(qemu, "major"),
729
                  qdict_get_int(qemu, "minor"),
730
                  qdict_get_int(qemu, "micro"),
731
                  qdict_get_str(qdict, "package"));
732
}
733

    
734
static void do_info_version(Monitor *mon, QObject **ret_data)
735
{
736
    const char *version = QEMU_VERSION;
737
    int major = 0, minor = 0, micro = 0;
738
    char *tmp;
739

    
740
    major = strtol(version, &tmp, 10);
741
    tmp++;
742
    minor = strtol(tmp, &tmp, 10);
743
    tmp++;
744
    micro = strtol(tmp, &tmp, 10);
745

    
746
    *ret_data = qobject_from_jsonf("{ 'qemu': { 'major': %d, 'minor': %d, \
747
        'micro': %d }, 'package': %s }", major, minor, micro, QEMU_PKGVERSION);
748
}
749

    
750
static void do_info_name_print(Monitor *mon, const QObject *data)
751
{
752
    QDict *qdict;
753

    
754
    qdict = qobject_to_qdict(data);
755
    if (qdict_size(qdict) == 0) {
756
        return;
757
    }
758

    
759
    monitor_printf(mon, "%s\n", qdict_get_str(qdict, "name"));
760
}
761

    
762
static void do_info_name(Monitor *mon, QObject **ret_data)
763
{
764
    *ret_data = qemu_name ? qobject_from_jsonf("{'name': %s }", qemu_name) :
765
                            qobject_from_jsonf("{}");
766
}
767

    
768
static QObject *get_cmd_dict(const char *name)
769
{
770
    const char *p;
771

    
772
    /* Remove '|' from some commands */
773
    p = strchr(name, '|');
774
    if (p) {
775
        p++;
776
    } else {
777
        p = name;
778
    }
779

    
780
    return qobject_from_jsonf("{ 'name': %s }", p);
781
}
782

    
783
static void do_info_commands(Monitor *mon, QObject **ret_data)
784
{
785
    QList *cmd_list;
786
    const mon_cmd_t *cmd;
787

    
788
    cmd_list = qlist_new();
789

    
790
    for (cmd = qmp_cmds; cmd->name != NULL; cmd++) {
791
        qlist_append_obj(cmd_list, get_cmd_dict(cmd->name));
792
    }
793

    
794
    for (cmd = qmp_query_cmds; cmd->name != NULL; cmd++) {
795
        char buf[128];
796
        snprintf(buf, sizeof(buf), "query-%s", cmd->name);
797
        qlist_append_obj(cmd_list, get_cmd_dict(buf));
798
    }
799

    
800
    *ret_data = QOBJECT(cmd_list);
801
}
802

    
803
static void do_info_uuid_print(Monitor *mon, const QObject *data)
804
{
805
    monitor_printf(mon, "%s\n", qdict_get_str(qobject_to_qdict(data), "UUID"));
806
}
807

    
808
static void do_info_uuid(Monitor *mon, QObject **ret_data)
809
{
810
    char uuid[64];
811

    
812
    snprintf(uuid, sizeof(uuid), UUID_FMT, qemu_uuid[0], qemu_uuid[1],
813
                   qemu_uuid[2], qemu_uuid[3], qemu_uuid[4], qemu_uuid[5],
814
                   qemu_uuid[6], qemu_uuid[7], qemu_uuid[8], qemu_uuid[9],
815
                   qemu_uuid[10], qemu_uuid[11], qemu_uuid[12], qemu_uuid[13],
816
                   qemu_uuid[14], qemu_uuid[15]);
817
    *ret_data = qobject_from_jsonf("{ 'UUID': %s }", uuid);
818
}
819

    
820
/* get the current CPU defined by the user */
821
static int mon_set_cpu(int cpu_index)
822
{
823
    CPUState *env;
824

    
825
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
826
        if (env->cpu_index == cpu_index) {
827
            cur_mon->mon_cpu = env;
828
            return 0;
829
        }
830
    }
831
    return -1;
832
}
833

    
834
static CPUState *mon_get_cpu(void)
835
{
836
    if (!cur_mon->mon_cpu) {
837
        mon_set_cpu(0);
838
    }
839
    cpu_synchronize_state(cur_mon->mon_cpu);
840
    return cur_mon->mon_cpu;
841
}
842

    
843
static void do_info_registers(Monitor *mon)
844
{
845
    CPUState *env;
846
    env = mon_get_cpu();
847
#ifdef TARGET_I386
848
    cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
849
                   X86_DUMP_FPU);
850
#else
851
    cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
852
                   0);
853
#endif
854
}
855

    
856
static void print_cpu_iter(QObject *obj, void *opaque)
857
{
858
    QDict *cpu;
859
    int active = ' ';
860
    Monitor *mon = opaque;
861

    
862
    assert(qobject_type(obj) == QTYPE_QDICT);
863
    cpu = qobject_to_qdict(obj);
864

    
865
    if (qdict_get_bool(cpu, "current")) {
866
        active = '*';
867
    }
868

    
869
    monitor_printf(mon, "%c CPU #%d: ", active, (int)qdict_get_int(cpu, "CPU"));
870

    
871
#if defined(TARGET_I386)
872
    monitor_printf(mon, "pc=0x" TARGET_FMT_lx,
873
                   (target_ulong) qdict_get_int(cpu, "pc"));
874
#elif defined(TARGET_PPC)
875
    monitor_printf(mon, "nip=0x" TARGET_FMT_lx,
876
                   (target_long) qdict_get_int(cpu, "nip"));
877
#elif defined(TARGET_SPARC)
878
    monitor_printf(mon, "pc=0x " TARGET_FMT_lx,
879
                   (target_long) qdict_get_int(cpu, "pc"));
880
    monitor_printf(mon, "npc=0x" TARGET_FMT_lx,
881
                   (target_long) qdict_get_int(cpu, "npc"));
882
#elif defined(TARGET_MIPS)
883
    monitor_printf(mon, "PC=0x" TARGET_FMT_lx,
884
                   (target_long) qdict_get_int(cpu, "PC"));
885
#endif
886

    
887
    if (qdict_get_bool(cpu, "halted")) {
888
        monitor_printf(mon, " (halted)");
889
    }
890

    
891
    monitor_printf(mon, "\n");
892
}
893

    
894
static void monitor_print_cpus(Monitor *mon, const QObject *data)
895
{
896
    QList *cpu_list;
897

    
898
    assert(qobject_type(data) == QTYPE_QLIST);
899
    cpu_list = qobject_to_qlist(data);
900
    qlist_iter(cpu_list, print_cpu_iter, mon);
901
}
902

    
903
static void do_info_cpus(Monitor *mon, QObject **ret_data)
904
{
905
    CPUState *env;
906
    QList *cpu_list;
907

    
908
    cpu_list = qlist_new();
909

    
910
    /* just to set the default cpu if not already done */
911
    mon_get_cpu();
912

    
913
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
914
        QDict *cpu;
915
        QObject *obj;
916

    
917
        cpu_synchronize_state(env);
918

    
919
        obj = qobject_from_jsonf("{ 'CPU': %d, 'current': %i, 'halted': %i }",
920
                                 env->cpu_index, env == mon->mon_cpu,
921
                                 env->halted);
922

    
923
        cpu = qobject_to_qdict(obj);
924

    
925
#if defined(TARGET_I386)
926
        qdict_put(cpu, "pc", qint_from_int(env->eip + env->segs[R_CS].base));
927
#elif defined(TARGET_PPC)
928
        qdict_put(cpu, "nip", qint_from_int(env->nip));
929
#elif defined(TARGET_SPARC)
930
        qdict_put(cpu, "pc", qint_from_int(env->pc));
931
        qdict_put(cpu, "npc", qint_from_int(env->npc));
932
#elif defined(TARGET_MIPS)
933
        qdict_put(cpu, "PC", qint_from_int(env->active_tc.PC));
934
#endif
935

    
936
        qlist_append(cpu_list, cpu);
937
    }
938

    
939
    *ret_data = QOBJECT(cpu_list);
940
}
941

    
942
static int do_cpu_set(Monitor *mon, const QDict *qdict, QObject **ret_data)
943
{
944
    int index = qdict_get_int(qdict, "index");
945
    if (mon_set_cpu(index) < 0) {
946
        qerror_report(QERR_INVALID_PARAMETER_VALUE, "index",
947
                      "a CPU number");
948
        return -1;
949
    }
950
    return 0;
951
}
952

    
953
static void do_info_jit(Monitor *mon)
954
{
955
    dump_exec_info((FILE *)mon, monitor_fprintf);
956
}
957

    
958
static void do_info_history(Monitor *mon)
959
{
960
    int i;
961
    const char *str;
962

    
963
    if (!mon->rs)
964
        return;
965
    i = 0;
966
    for(;;) {
967
        str = readline_get_history(mon->rs, i);
968
        if (!str)
969
            break;
970
        monitor_printf(mon, "%d: '%s'\n", i, str);
971
        i++;
972
    }
973
}
974

    
975
#if defined(TARGET_PPC)
976
/* XXX: not implemented in other targets */
977
static void do_info_cpu_stats(Monitor *mon)
978
{
979
    CPUState *env;
980

    
981
    env = mon_get_cpu();
982
    cpu_dump_statistics(env, (FILE *)mon, &monitor_fprintf, 0);
983
}
984
#endif
985

    
986
#if defined(CONFIG_SIMPLE_TRACE)
987
static void do_info_trace(Monitor *mon)
988
{
989
    st_print_trace((FILE *)mon, &monitor_fprintf);
990
}
991

    
992
static void do_info_trace_events(Monitor *mon)
993
{
994
    st_print_trace_events((FILE *)mon, &monitor_fprintf);
995
}
996
#endif
997

    
998
/**
999
 * do_quit(): Quit QEMU execution
1000
 */
1001
static int do_quit(Monitor *mon, const QDict *qdict, QObject **ret_data)
1002
{
1003
    monitor_suspend(mon);
1004
    no_shutdown = 0;
1005
    qemu_system_shutdown_request();
1006

    
1007
    return 0;
1008
}
1009

    
1010
static int change_vnc_password(const char *password)
1011
{
1012
    if (vnc_display_password(NULL, password) < 0) {
1013
        qerror_report(QERR_SET_PASSWD_FAILED);
1014
        return -1;
1015
    }
1016

    
1017
    return 0;
1018
}
1019

    
1020
static void change_vnc_password_cb(Monitor *mon, const char *password,
1021
                                   void *opaque)
1022
{
1023
    change_vnc_password(password);
1024
    monitor_read_command(mon, 1);
1025
}
1026

    
1027
static int do_change_vnc(Monitor *mon, const char *target, const char *arg)
1028
{
1029
    if (strcmp(target, "passwd") == 0 ||
1030
        strcmp(target, "password") == 0) {
1031
        if (arg) {
1032
            char password[9];
1033
            strncpy(password, arg, sizeof(password));
1034
            password[sizeof(password) - 1] = '\0';
1035
            return change_vnc_password(password);
1036
        } else {
1037
            return monitor_read_password(mon, change_vnc_password_cb, NULL);
1038
        }
1039
    } else {
1040
        if (vnc_display_open(NULL, target) < 0) {
1041
            qerror_report(QERR_VNC_SERVER_FAILED, target);
1042
            return -1;
1043
        }
1044
    }
1045

    
1046
    return 0;
1047
}
1048

    
1049
/**
1050
 * do_change(): Change a removable medium, or VNC configuration
1051
 */
1052
static int do_change(Monitor *mon, const QDict *qdict, QObject **ret_data)
1053
{
1054
    const char *device = qdict_get_str(qdict, "device");
1055
    const char *target = qdict_get_str(qdict, "target");
1056
    const char *arg = qdict_get_try_str(qdict, "arg");
1057
    int ret;
1058

    
1059
    if (strcmp(device, "vnc") == 0) {
1060
        ret = do_change_vnc(mon, target, arg);
1061
    } else {
1062
        ret = do_change_block(mon, device, target, arg);
1063
    }
1064

    
1065
    return ret;
1066
}
1067

    
1068
static int do_screen_dump(Monitor *mon, const QDict *qdict, QObject **ret_data)
1069
{
1070
    vga_hw_screen_dump(qdict_get_str(qdict, "filename"));
1071
    return 0;
1072
}
1073

    
1074
static void do_logfile(Monitor *mon, const QDict *qdict)
1075
{
1076
    cpu_set_log_filename(qdict_get_str(qdict, "filename"));
1077
}
1078

    
1079
static void do_log(Monitor *mon, const QDict *qdict)
1080
{
1081
    int mask;
1082
    const char *items = qdict_get_str(qdict, "items");
1083

    
1084
    if (!strcmp(items, "none")) {
1085
        mask = 0;
1086
    } else {
1087
        mask = cpu_str_to_log_mask(items);
1088
        if (!mask) {
1089
            help_cmd(mon, "log");
1090
            return;
1091
        }
1092
    }
1093
    cpu_set_log(mask);
1094
}
1095

    
1096
static void do_singlestep(Monitor *mon, const QDict *qdict)
1097
{
1098
    const char *option = qdict_get_try_str(qdict, "option");
1099
    if (!option || !strcmp(option, "on")) {
1100
        singlestep = 1;
1101
    } else if (!strcmp(option, "off")) {
1102
        singlestep = 0;
1103
    } else {
1104
        monitor_printf(mon, "unexpected option %s\n", option);
1105
    }
1106
}
1107

    
1108
/**
1109
 * do_stop(): Stop VM execution
1110
 */
1111
static int do_stop(Monitor *mon, const QDict *qdict, QObject **ret_data)
1112
{
1113
    vm_stop(EXCP_INTERRUPT);
1114
    return 0;
1115
}
1116

    
1117
static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs);
1118

    
1119
struct bdrv_iterate_context {
1120
    Monitor *mon;
1121
    int err;
1122
};
1123

    
1124
/**
1125
 * do_cont(): Resume emulation.
1126
 */
1127
static int do_cont(Monitor *mon, const QDict *qdict, QObject **ret_data)
1128
{
1129
    struct bdrv_iterate_context context = { mon, 0 };
1130

    
1131
    if (incoming_expected) {
1132
        qerror_report(QERR_MIGRATION_EXPECTED);
1133
        return -1;
1134
    }
1135
    bdrv_iterate(encrypted_bdrv_it, &context);
1136
    /* only resume the vm if all keys are set and valid */
1137
    if (!context.err) {
1138
        vm_start();
1139
        return 0;
1140
    } else {
1141
        return -1;
1142
    }
1143
}
1144

    
1145
static void bdrv_key_cb(void *opaque, int err)
1146
{
1147
    Monitor *mon = opaque;
1148

    
1149
    /* another key was set successfully, retry to continue */
1150
    if (!err)
1151
        do_cont(mon, NULL, NULL);
1152
}
1153

    
1154
static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs)
1155
{
1156
    struct bdrv_iterate_context *context = opaque;
1157

    
1158
    if (!context->err && bdrv_key_required(bs)) {
1159
        context->err = -EBUSY;
1160
        monitor_read_bdrv_key_start(context->mon, bs, bdrv_key_cb,
1161
                                    context->mon);
1162
    }
1163
}
1164

    
1165
static void do_gdbserver(Monitor *mon, const QDict *qdict)
1166
{
1167
    const char *device = qdict_get_try_str(qdict, "device");
1168
    if (!device)
1169
        device = "tcp::" DEFAULT_GDBSTUB_PORT;
1170
    if (gdbserver_start(device) < 0) {
1171
        monitor_printf(mon, "Could not open gdbserver on device '%s'\n",
1172
                       device);
1173
    } else if (strcmp(device, "none") == 0) {
1174
        monitor_printf(mon, "Disabled gdbserver\n");
1175
    } else {
1176
        monitor_printf(mon, "Waiting for gdb connection on device '%s'\n",
1177
                       device);
1178
    }
1179
}
1180

    
1181
static void do_watchdog_action(Monitor *mon, const QDict *qdict)
1182
{
1183
    const char *action = qdict_get_str(qdict, "action");
1184
    if (select_watchdog_action(action) == -1) {
1185
        monitor_printf(mon, "Unknown watchdog action '%s'\n", action);
1186
    }
1187
}
1188

    
1189
static void monitor_printc(Monitor *mon, int c)
1190
{
1191
    monitor_printf(mon, "'");
1192
    switch(c) {
1193
    case '\'':
1194
        monitor_printf(mon, "\\'");
1195
        break;
1196
    case '\\':
1197
        monitor_printf(mon, "\\\\");
1198
        break;
1199
    case '\n':
1200
        monitor_printf(mon, "\\n");
1201
        break;
1202
    case '\r':
1203
        monitor_printf(mon, "\\r");
1204
        break;
1205
    default:
1206
        if (c >= 32 && c <= 126) {
1207
            monitor_printf(mon, "%c", c);
1208
        } else {
1209
            monitor_printf(mon, "\\x%02x", c);
1210
        }
1211
        break;
1212
    }
1213
    monitor_printf(mon, "'");
1214
}
1215

    
1216
static void memory_dump(Monitor *mon, int count, int format, int wsize,
1217
                        target_phys_addr_t addr, int is_physical)
1218
{
1219
    CPUState *env;
1220
    int l, line_size, i, max_digits, len;
1221
    uint8_t buf[16];
1222
    uint64_t v;
1223

    
1224
    if (format == 'i') {
1225
        int flags;
1226
        flags = 0;
1227
        env = mon_get_cpu();
1228
#ifdef TARGET_I386
1229
        if (wsize == 2) {
1230
            flags = 1;
1231
        } else if (wsize == 4) {
1232
            flags = 0;
1233
        } else {
1234
            /* as default we use the current CS size */
1235
            flags = 0;
1236
            if (env) {
1237
#ifdef TARGET_X86_64
1238
                if ((env->efer & MSR_EFER_LMA) &&
1239
                    (env->segs[R_CS].flags & DESC_L_MASK))
1240
                    flags = 2;
1241
                else
1242
#endif
1243
                if (!(env->segs[R_CS].flags & DESC_B_MASK))
1244
                    flags = 1;
1245
            }
1246
        }
1247
#endif
1248
        monitor_disas(mon, env, addr, count, is_physical, flags);
1249
        return;
1250
    }
1251

    
1252
    len = wsize * count;
1253
    if (wsize == 1)
1254
        line_size = 8;
1255
    else
1256
        line_size = 16;
1257
    max_digits = 0;
1258

    
1259
    switch(format) {
1260
    case 'o':
1261
        max_digits = (wsize * 8 + 2) / 3;
1262
        break;
1263
    default:
1264
    case 'x':
1265
        max_digits = (wsize * 8) / 4;
1266
        break;
1267
    case 'u':
1268
    case 'd':
1269
        max_digits = (wsize * 8 * 10 + 32) / 33;
1270
        break;
1271
    case 'c':
1272
        wsize = 1;
1273
        break;
1274
    }
1275

    
1276
    while (len > 0) {
1277
        if (is_physical)
1278
            monitor_printf(mon, TARGET_FMT_plx ":", addr);
1279
        else
1280
            monitor_printf(mon, TARGET_FMT_lx ":", (target_ulong)addr);
1281
        l = len;
1282
        if (l > line_size)
1283
            l = line_size;
1284
        if (is_physical) {
1285
            cpu_physical_memory_rw(addr, buf, l, 0);
1286
        } else {
1287
            env = mon_get_cpu();
1288
            if (cpu_memory_rw_debug(env, addr, buf, l, 0) < 0) {
1289
                monitor_printf(mon, " Cannot access memory\n");
1290
                break;
1291
            }
1292
        }
1293
        i = 0;
1294
        while (i < l) {
1295
            switch(wsize) {
1296
            default:
1297
            case 1:
1298
                v = ldub_raw(buf + i);
1299
                break;
1300
            case 2:
1301
                v = lduw_raw(buf + i);
1302
                break;
1303
            case 4:
1304
                v = (uint32_t)ldl_raw(buf + i);
1305
                break;
1306
            case 8:
1307
                v = ldq_raw(buf + i);
1308
                break;
1309
            }
1310
            monitor_printf(mon, " ");
1311
            switch(format) {
1312
            case 'o':
1313
                monitor_printf(mon, "%#*" PRIo64, max_digits, v);
1314
                break;
1315
            case 'x':
1316
                monitor_printf(mon, "0x%0*" PRIx64, max_digits, v);
1317
                break;
1318
            case 'u':
1319
                monitor_printf(mon, "%*" PRIu64, max_digits, v);
1320
                break;
1321
            case 'd':
1322
                monitor_printf(mon, "%*" PRId64, max_digits, v);
1323
                break;
1324
            case 'c':
1325
                monitor_printc(mon, v);
1326
                break;
1327
            }
1328
            i += wsize;
1329
        }
1330
        monitor_printf(mon, "\n");
1331
        addr += l;
1332
        len -= l;
1333
    }
1334
}
1335

    
1336
static void do_memory_dump(Monitor *mon, const QDict *qdict)
1337
{
1338
    int count = qdict_get_int(qdict, "count");
1339
    int format = qdict_get_int(qdict, "format");
1340
    int size = qdict_get_int(qdict, "size");
1341
    target_long addr = qdict_get_int(qdict, "addr");
1342

    
1343
    memory_dump(mon, count, format, size, addr, 0);
1344
}
1345

    
1346
static void do_physical_memory_dump(Monitor *mon, const QDict *qdict)
1347
{
1348
    int count = qdict_get_int(qdict, "count");
1349
    int format = qdict_get_int(qdict, "format");
1350
    int size = qdict_get_int(qdict, "size");
1351
    target_phys_addr_t addr = qdict_get_int(qdict, "addr");
1352

    
1353
    memory_dump(mon, count, format, size, addr, 1);
1354
}
1355

    
1356
static void do_print(Monitor *mon, const QDict *qdict)
1357
{
1358
    int format = qdict_get_int(qdict, "format");
1359
    target_phys_addr_t val = qdict_get_int(qdict, "val");
1360

    
1361
#if TARGET_PHYS_ADDR_BITS == 32
1362
    switch(format) {
1363
    case 'o':
1364
        monitor_printf(mon, "%#o", val);
1365
        break;
1366
    case 'x':
1367
        monitor_printf(mon, "%#x", val);
1368
        break;
1369
    case 'u':
1370
        monitor_printf(mon, "%u", val);
1371
        break;
1372
    default:
1373
    case 'd':
1374
        monitor_printf(mon, "%d", val);
1375
        break;
1376
    case 'c':
1377
        monitor_printc(mon, val);
1378
        break;
1379
    }
1380
#else
1381
    switch(format) {
1382
    case 'o':
1383
        monitor_printf(mon, "%#" PRIo64, val);
1384
        break;
1385
    case 'x':
1386
        monitor_printf(mon, "%#" PRIx64, val);
1387
        break;
1388
    case 'u':
1389
        monitor_printf(mon, "%" PRIu64, val);
1390
        break;
1391
    default:
1392
    case 'd':
1393
        monitor_printf(mon, "%" PRId64, val);
1394
        break;
1395
    case 'c':
1396
        monitor_printc(mon, val);
1397
        break;
1398
    }
1399
#endif
1400
    monitor_printf(mon, "\n");
1401
}
1402

    
1403
static int do_memory_save(Monitor *mon, const QDict *qdict, QObject **ret_data)
1404
{
1405
    FILE *f;
1406
    uint32_t size = qdict_get_int(qdict, "size");
1407
    const char *filename = qdict_get_str(qdict, "filename");
1408
    target_long addr = qdict_get_int(qdict, "val");
1409
    uint32_t l;
1410
    CPUState *env;
1411
    uint8_t buf[1024];
1412
    int ret = -1;
1413

    
1414
    env = mon_get_cpu();
1415

    
1416
    f = fopen(filename, "wb");
1417
    if (!f) {
1418
        qerror_report(QERR_OPEN_FILE_FAILED, filename);
1419
        return -1;
1420
    }
1421
    while (size != 0) {
1422
        l = sizeof(buf);
1423
        if (l > size)
1424
            l = size;
1425
        cpu_memory_rw_debug(env, addr, buf, l, 0);
1426
        if (fwrite(buf, 1, l, f) != l) {
1427
            monitor_printf(mon, "fwrite() error in do_memory_save\n");
1428
            goto exit;
1429
        }
1430
        addr += l;
1431
        size -= l;
1432
    }
1433

    
1434
    ret = 0;
1435

    
1436
exit:
1437
    fclose(f);
1438
    return ret;
1439
}
1440

    
1441
static int do_physical_memory_save(Monitor *mon, const QDict *qdict,
1442
                                    QObject **ret_data)
1443
{
1444
    FILE *f;
1445
    uint32_t l;
1446
    uint8_t buf[1024];
1447
    uint32_t size = qdict_get_int(qdict, "size");
1448
    const char *filename = qdict_get_str(qdict, "filename");
1449
    target_phys_addr_t addr = qdict_get_int(qdict, "val");
1450
    int ret = -1;
1451

    
1452
    f = fopen(filename, "wb");
1453
    if (!f) {
1454
        qerror_report(QERR_OPEN_FILE_FAILED, filename);
1455
        return -1;
1456
    }
1457
    while (size != 0) {
1458
        l = sizeof(buf);
1459
        if (l > size)
1460
            l = size;
1461
        cpu_physical_memory_rw(addr, buf, l, 0);
1462
        if (fwrite(buf, 1, l, f) != l) {
1463
            monitor_printf(mon, "fwrite() error in do_physical_memory_save\n");
1464
            goto exit;
1465
        }
1466
        fflush(f);
1467
        addr += l;
1468
        size -= l;
1469
    }
1470

    
1471
    ret = 0;
1472

    
1473
exit:
1474
    fclose(f);
1475
    return ret;
1476
}
1477

    
1478
static void do_sum(Monitor *mon, const QDict *qdict)
1479
{
1480
    uint32_t addr;
1481
    uint8_t buf[1];
1482
    uint16_t sum;
1483
    uint32_t start = qdict_get_int(qdict, "start");
1484
    uint32_t size = qdict_get_int(qdict, "size");
1485

    
1486
    sum = 0;
1487
    for(addr = start; addr < (start + size); addr++) {
1488
        cpu_physical_memory_rw(addr, buf, 1, 0);
1489
        /* BSD sum algorithm ('sum' Unix command) */
1490
        sum = (sum >> 1) | (sum << 15);
1491
        sum += buf[0];
1492
    }
1493
    monitor_printf(mon, "%05d\n", sum);
1494
}
1495

    
1496
typedef struct {
1497
    int keycode;
1498
    const char *name;
1499
} KeyDef;
1500

    
1501
static const KeyDef key_defs[] = {
1502
    { 0x2a, "shift" },
1503
    { 0x36, "shift_r" },
1504

    
1505
    { 0x38, "alt" },
1506
    { 0xb8, "alt_r" },
1507
    { 0x64, "altgr" },
1508
    { 0xe4, "altgr_r" },
1509
    { 0x1d, "ctrl" },
1510
    { 0x9d, "ctrl_r" },
1511

    
1512
    { 0xdd, "menu" },
1513

    
1514
    { 0x01, "esc" },
1515

    
1516
    { 0x02, "1" },
1517
    { 0x03, "2" },
1518
    { 0x04, "3" },
1519
    { 0x05, "4" },
1520
    { 0x06, "5" },
1521
    { 0x07, "6" },
1522
    { 0x08, "7" },
1523
    { 0x09, "8" },
1524
    { 0x0a, "9" },
1525
    { 0x0b, "0" },
1526
    { 0x0c, "minus" },
1527
    { 0x0d, "equal" },
1528
    { 0x0e, "backspace" },
1529

    
1530
    { 0x0f, "tab" },
1531
    { 0x10, "q" },
1532
    { 0x11, "w" },
1533
    { 0x12, "e" },
1534
    { 0x13, "r" },
1535
    { 0x14, "t" },
1536
    { 0x15, "y" },
1537
    { 0x16, "u" },
1538
    { 0x17, "i" },
1539
    { 0x18, "o" },
1540
    { 0x19, "p" },
1541
    { 0x1a, "bracket_left" },
1542
    { 0x1b, "bracket_right" },
1543
    { 0x1c, "ret" },
1544

    
1545
    { 0x1e, "a" },
1546
    { 0x1f, "s" },
1547
    { 0x20, "d" },
1548
    { 0x21, "f" },
1549
    { 0x22, "g" },
1550
    { 0x23, "h" },
1551
    { 0x24, "j" },
1552
    { 0x25, "k" },
1553
    { 0x26, "l" },
1554
    { 0x27, "semicolon" },
1555
    { 0x28, "apostrophe" },
1556
    { 0x29, "grave_accent" },
1557

    
1558
    { 0x2b, "backslash" },
1559
    { 0x2c, "z" },
1560
    { 0x2d, "x" },
1561
    { 0x2e, "c" },
1562
    { 0x2f, "v" },
1563
    { 0x30, "b" },
1564
    { 0x31, "n" },
1565
    { 0x32, "m" },
1566
    { 0x33, "comma" },
1567
    { 0x34, "dot" },
1568
    { 0x35, "slash" },
1569

    
1570
    { 0x37, "asterisk" },
1571

    
1572
    { 0x39, "spc" },
1573
    { 0x3a, "caps_lock" },
1574
    { 0x3b, "f1" },
1575
    { 0x3c, "f2" },
1576
    { 0x3d, "f3" },
1577
    { 0x3e, "f4" },
1578
    { 0x3f, "f5" },
1579
    { 0x40, "f6" },
1580
    { 0x41, "f7" },
1581
    { 0x42, "f8" },
1582
    { 0x43, "f9" },
1583
    { 0x44, "f10" },
1584
    { 0x45, "num_lock" },
1585
    { 0x46, "scroll_lock" },
1586

    
1587
    { 0xb5, "kp_divide" },
1588
    { 0x37, "kp_multiply" },
1589
    { 0x4a, "kp_subtract" },
1590
    { 0x4e, "kp_add" },
1591
    { 0x9c, "kp_enter" },
1592
    { 0x53, "kp_decimal" },
1593
    { 0x54, "sysrq" },
1594

    
1595
    { 0x52, "kp_0" },
1596
    { 0x4f, "kp_1" },
1597
    { 0x50, "kp_2" },
1598
    { 0x51, "kp_3" },
1599
    { 0x4b, "kp_4" },
1600
    { 0x4c, "kp_5" },
1601
    { 0x4d, "kp_6" },
1602
    { 0x47, "kp_7" },
1603
    { 0x48, "kp_8" },
1604
    { 0x49, "kp_9" },
1605

    
1606
    { 0x56, "<" },
1607

    
1608
    { 0x57, "f11" },
1609
    { 0x58, "f12" },
1610

    
1611
    { 0xb7, "print" },
1612

    
1613
    { 0xc7, "home" },
1614
    { 0xc9, "pgup" },
1615
    { 0xd1, "pgdn" },
1616
    { 0xcf, "end" },
1617

    
1618
    { 0xcb, "left" },
1619
    { 0xc8, "up" },
1620
    { 0xd0, "down" },
1621
    { 0xcd, "right" },
1622

    
1623
    { 0xd2, "insert" },
1624
    { 0xd3, "delete" },
1625
#if defined(TARGET_SPARC) && !defined(TARGET_SPARC64)
1626
    { 0xf0, "stop" },
1627
    { 0xf1, "again" },
1628
    { 0xf2, "props" },
1629
    { 0xf3, "undo" },
1630
    { 0xf4, "front" },
1631
    { 0xf5, "copy" },
1632
    { 0xf6, "open" },
1633
    { 0xf7, "paste" },
1634
    { 0xf8, "find" },
1635
    { 0xf9, "cut" },
1636
    { 0xfa, "lf" },
1637
    { 0xfb, "help" },
1638
    { 0xfc, "meta_l" },
1639
    { 0xfd, "meta_r" },
1640
    { 0xfe, "compose" },
1641
#endif
1642
    { 0, NULL },
1643
};
1644

    
1645
static int get_keycode(const char *key)
1646
{
1647
    const KeyDef *p;
1648
    char *endp;
1649
    int ret;
1650

    
1651
    for(p = key_defs; p->name != NULL; p++) {
1652
        if (!strcmp(key, p->name))
1653
            return p->keycode;
1654
    }
1655
    if (strstart(key, "0x", NULL)) {
1656
        ret = strtoul(key, &endp, 0);
1657
        if (*endp == '\0' && ret >= 0x01 && ret <= 0xff)
1658
            return ret;
1659
    }
1660
    return -1;
1661
}
1662

    
1663
#define MAX_KEYCODES 16
1664
static uint8_t keycodes[MAX_KEYCODES];
1665
static int nb_pending_keycodes;
1666
static QEMUTimer *key_timer;
1667

    
1668
static void release_keys(void *opaque)
1669
{
1670
    int keycode;
1671

    
1672
    while (nb_pending_keycodes > 0) {
1673
        nb_pending_keycodes--;
1674
        keycode = keycodes[nb_pending_keycodes];
1675
        if (keycode & 0x80)
1676
            kbd_put_keycode(0xe0);
1677
        kbd_put_keycode(keycode | 0x80);
1678
    }
1679
}
1680

    
1681
static void do_sendkey(Monitor *mon, const QDict *qdict)
1682
{
1683
    char keyname_buf[16];
1684
    char *separator;
1685
    int keyname_len, keycode, i;
1686
    const char *string = qdict_get_str(qdict, "string");
1687
    int has_hold_time = qdict_haskey(qdict, "hold_time");
1688
    int hold_time = qdict_get_try_int(qdict, "hold_time", -1);
1689

    
1690
    if (nb_pending_keycodes > 0) {
1691
        qemu_del_timer(key_timer);
1692
        release_keys(NULL);
1693
    }
1694
    if (!has_hold_time)
1695
        hold_time = 100;
1696
    i = 0;
1697
    while (1) {
1698
        separator = strchr(string, '-');
1699
        keyname_len = separator ? separator - string : strlen(string);
1700
        if (keyname_len > 0) {
1701
            pstrcpy(keyname_buf, sizeof(keyname_buf), string);
1702
            if (keyname_len > sizeof(keyname_buf) - 1) {
1703
                monitor_printf(mon, "invalid key: '%s...'\n", keyname_buf);
1704
                return;
1705
            }
1706
            if (i == MAX_KEYCODES) {
1707
                monitor_printf(mon, "too many keys\n");
1708
                return;
1709
            }
1710
            keyname_buf[keyname_len] = 0;
1711
            keycode = get_keycode(keyname_buf);
1712
            if (keycode < 0) {
1713
                monitor_printf(mon, "unknown key: '%s'\n", keyname_buf);
1714
                return;
1715
            }
1716
            keycodes[i++] = keycode;
1717
        }
1718
        if (!separator)
1719
            break;
1720
        string = separator + 1;
1721
    }
1722
    nb_pending_keycodes = i;
1723
    /* key down events */
1724
    for (i = 0; i < nb_pending_keycodes; i++) {
1725
        keycode = keycodes[i];
1726
        if (keycode & 0x80)
1727
            kbd_put_keycode(0xe0);
1728
        kbd_put_keycode(keycode & 0x7f);
1729
    }
1730
    /* delayed key up events */
1731
    qemu_mod_timer(key_timer, qemu_get_clock(vm_clock) +
1732
                   muldiv64(get_ticks_per_sec(), hold_time, 1000));
1733
}
1734

    
1735
static int mouse_button_state;
1736

    
1737
static void do_mouse_move(Monitor *mon, const QDict *qdict)
1738
{
1739
    int dx, dy, dz;
1740
    const char *dx_str = qdict_get_str(qdict, "dx_str");
1741
    const char *dy_str = qdict_get_str(qdict, "dy_str");
1742
    const char *dz_str = qdict_get_try_str(qdict, "dz_str");
1743
    dx = strtol(dx_str, NULL, 0);
1744
    dy = strtol(dy_str, NULL, 0);
1745
    dz = 0;
1746
    if (dz_str)
1747
        dz = strtol(dz_str, NULL, 0);
1748
    kbd_mouse_event(dx, dy, dz, mouse_button_state);
1749
}
1750

    
1751
static void do_mouse_button(Monitor *mon, const QDict *qdict)
1752
{
1753
    int button_state = qdict_get_int(qdict, "button_state");
1754
    mouse_button_state = button_state;
1755
    kbd_mouse_event(0, 0, 0, mouse_button_state);
1756
}
1757

    
1758
static void do_ioport_read(Monitor *mon, const QDict *qdict)
1759
{
1760
    int size = qdict_get_int(qdict, "size");
1761
    int addr = qdict_get_int(qdict, "addr");
1762
    int has_index = qdict_haskey(qdict, "index");
1763
    uint32_t val;
1764
    int suffix;
1765

    
1766
    if (has_index) {
1767
        int index = qdict_get_int(qdict, "index");
1768
        cpu_outb(addr & IOPORTS_MASK, index & 0xff);
1769
        addr++;
1770
    }
1771
    addr &= 0xffff;
1772

    
1773
    switch(size) {
1774
    default:
1775
    case 1:
1776
        val = cpu_inb(addr);
1777
        suffix = 'b';
1778
        break;
1779
    case 2:
1780
        val = cpu_inw(addr);
1781
        suffix = 'w';
1782
        break;
1783
    case 4:
1784
        val = cpu_inl(addr);
1785
        suffix = 'l';
1786
        break;
1787
    }
1788
    monitor_printf(mon, "port%c[0x%04x] = %#0*x\n",
1789
                   suffix, addr, size * 2, val);
1790
}
1791

    
1792
static void do_ioport_write(Monitor *mon, const QDict *qdict)
1793
{
1794
    int size = qdict_get_int(qdict, "size");
1795
    int addr = qdict_get_int(qdict, "addr");
1796
    int val = qdict_get_int(qdict, "val");
1797

    
1798
    addr &= IOPORTS_MASK;
1799

    
1800
    switch (size) {
1801
    default:
1802
    case 1:
1803
        cpu_outb(addr, val);
1804
        break;
1805
    case 2:
1806
        cpu_outw(addr, val);
1807
        break;
1808
    case 4:
1809
        cpu_outl(addr, val);
1810
        break;
1811
    }
1812
}
1813

    
1814
static void do_boot_set(Monitor *mon, const QDict *qdict)
1815
{
1816
    int res;
1817
    const char *bootdevice = qdict_get_str(qdict, "bootdevice");
1818

    
1819
    res = qemu_boot_set(bootdevice);
1820
    if (res == 0) {
1821
        monitor_printf(mon, "boot device list now set to %s\n", bootdevice);
1822
    } else if (res > 0) {
1823
        monitor_printf(mon, "setting boot device list failed\n");
1824
    } else {
1825
        monitor_printf(mon, "no function defined to set boot device list for "
1826
                       "this architecture\n");
1827
    }
1828
}
1829

    
1830
/**
1831
 * do_system_reset(): Issue a machine reset
1832
 */
1833
static int do_system_reset(Monitor *mon, const QDict *qdict,
1834
                           QObject **ret_data)
1835
{
1836
    qemu_system_reset_request();
1837
    return 0;
1838
}
1839

    
1840
/**
1841
 * do_system_powerdown(): Issue a machine powerdown
1842
 */
1843
static int do_system_powerdown(Monitor *mon, const QDict *qdict,
1844
                               QObject **ret_data)
1845
{
1846
    qemu_system_powerdown_request();
1847
    return 0;
1848
}
1849

    
1850
#if defined(TARGET_I386)
1851
static void print_pte(Monitor *mon, uint32_t addr, uint32_t pte, uint32_t mask)
1852
{
1853
    monitor_printf(mon, "%08x: %08x %c%c%c%c%c%c%c%c\n",
1854
                   addr,
1855
                   pte & mask,
1856
                   pte & PG_GLOBAL_MASK ? 'G' : '-',
1857
                   pte & PG_PSE_MASK ? 'P' : '-',
1858
                   pte & PG_DIRTY_MASK ? 'D' : '-',
1859
                   pte & PG_ACCESSED_MASK ? 'A' : '-',
1860
                   pte & PG_PCD_MASK ? 'C' : '-',
1861
                   pte & PG_PWT_MASK ? 'T' : '-',
1862
                   pte & PG_USER_MASK ? 'U' : '-',
1863
                   pte & PG_RW_MASK ? 'W' : '-');
1864
}
1865

    
1866
static void tlb_info(Monitor *mon)
1867
{
1868
    CPUState *env;
1869
    int l1, l2;
1870
    uint32_t pgd, pde, pte;
1871

    
1872
    env = mon_get_cpu();
1873

    
1874
    if (!(env->cr[0] & CR0_PG_MASK)) {
1875
        monitor_printf(mon, "PG disabled\n");
1876
        return;
1877
    }
1878
    pgd = env->cr[3] & ~0xfff;
1879
    for(l1 = 0; l1 < 1024; l1++) {
1880
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1881
        pde = le32_to_cpu(pde);
1882
        if (pde & PG_PRESENT_MASK) {
1883
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1884
                print_pte(mon, (l1 << 22), pde, ~((1 << 20) - 1));
1885
            } else {
1886
                for(l2 = 0; l2 < 1024; l2++) {
1887
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1888
                                             (uint8_t *)&pte, 4);
1889
                    pte = le32_to_cpu(pte);
1890
                    if (pte & PG_PRESENT_MASK) {
1891
                        print_pte(mon, (l1 << 22) + (l2 << 12),
1892
                                  pte & ~PG_PSE_MASK,
1893
                                  ~0xfff);
1894
                    }
1895
                }
1896
            }
1897
        }
1898
    }
1899
}
1900

    
1901
static void mem_print(Monitor *mon, uint32_t *pstart, int *plast_prot,
1902
                      uint32_t end, int prot)
1903
{
1904
    int prot1;
1905
    prot1 = *plast_prot;
1906
    if (prot != prot1) {
1907
        if (*pstart != -1) {
1908
            monitor_printf(mon, "%08x-%08x %08x %c%c%c\n",
1909
                           *pstart, end, end - *pstart,
1910
                           prot1 & PG_USER_MASK ? 'u' : '-',
1911
                           'r',
1912
                           prot1 & PG_RW_MASK ? 'w' : '-');
1913
        }
1914
        if (prot != 0)
1915
            *pstart = end;
1916
        else
1917
            *pstart = -1;
1918
        *plast_prot = prot;
1919
    }
1920
}
1921

    
1922
static void mem_info(Monitor *mon)
1923
{
1924
    CPUState *env;
1925
    int l1, l2, prot, last_prot;
1926
    uint32_t pgd, pde, pte, start, end;
1927

    
1928
    env = mon_get_cpu();
1929

    
1930
    if (!(env->cr[0] & CR0_PG_MASK)) {
1931
        monitor_printf(mon, "PG disabled\n");
1932
        return;
1933
    }
1934
    pgd = env->cr[3] & ~0xfff;
1935
    last_prot = 0;
1936
    start = -1;
1937
    for(l1 = 0; l1 < 1024; l1++) {
1938
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1939
        pde = le32_to_cpu(pde);
1940
        end = l1 << 22;
1941
        if (pde & PG_PRESENT_MASK) {
1942
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1943
                prot = pde & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1944
                mem_print(mon, &start, &last_prot, end, prot);
1945
            } else {
1946
                for(l2 = 0; l2 < 1024; l2++) {
1947
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1948
                                             (uint8_t *)&pte, 4);
1949
                    pte = le32_to_cpu(pte);
1950
                    end = (l1 << 22) + (l2 << 12);
1951
                    if (pte & PG_PRESENT_MASK) {
1952
                        prot = pte & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1953
                    } else {
1954
                        prot = 0;
1955
                    }
1956
                    mem_print(mon, &start, &last_prot, end, prot);
1957
                }
1958
            }
1959
        } else {
1960
            prot = 0;
1961
            mem_print(mon, &start, &last_prot, end, prot);
1962
        }
1963
    }
1964
}
1965
#endif
1966

    
1967
#if defined(TARGET_SH4)
1968

    
1969
static void print_tlb(Monitor *mon, int idx, tlb_t *tlb)
1970
{
1971
    monitor_printf(mon, " tlb%i:\t"
1972
                   "asid=%hhu vpn=%x\tppn=%x\tsz=%hhu size=%u\t"
1973
                   "v=%hhu shared=%hhu cached=%hhu prot=%hhu "
1974
                   "dirty=%hhu writethrough=%hhu\n",
1975
                   idx,
1976
                   tlb->asid, tlb->vpn, tlb->ppn, tlb->sz, tlb->size,
1977
                   tlb->v, tlb->sh, tlb->c, tlb->pr,
1978
                   tlb->d, tlb->wt);
1979
}
1980

    
1981
static void tlb_info(Monitor *mon)
1982
{
1983
    CPUState *env = mon_get_cpu();
1984
    int i;
1985

    
1986
    monitor_printf (mon, "ITLB:\n");
1987
    for (i = 0 ; i < ITLB_SIZE ; i++)
1988
        print_tlb (mon, i, &env->itlb[i]);
1989
    monitor_printf (mon, "UTLB:\n");
1990
    for (i = 0 ; i < UTLB_SIZE ; i++)
1991
        print_tlb (mon, i, &env->utlb[i]);
1992
}
1993

    
1994
#endif
1995

    
1996
static void do_info_kvm_print(Monitor *mon, const QObject *data)
1997
{
1998
    QDict *qdict;
1999

    
2000
    qdict = qobject_to_qdict(data);
2001

    
2002
    monitor_printf(mon, "kvm support: ");
2003
    if (qdict_get_bool(qdict, "present")) {
2004
        monitor_printf(mon, "%s\n", qdict_get_bool(qdict, "enabled") ?
2005
                                    "enabled" : "disabled");
2006
    } else {
2007
        monitor_printf(mon, "not compiled\n");
2008
    }
2009
}
2010

    
2011
static void do_info_kvm(Monitor *mon, QObject **ret_data)
2012
{
2013
#ifdef CONFIG_KVM
2014
    *ret_data = qobject_from_jsonf("{ 'enabled': %i, 'present': true }",
2015
                                   kvm_enabled());
2016
#else
2017
    *ret_data = qobject_from_jsonf("{ 'enabled': false, 'present': false }");
2018
#endif
2019
}
2020

    
2021
static void do_info_numa(Monitor *mon)
2022
{
2023
    int i;
2024
    CPUState *env;
2025

    
2026
    monitor_printf(mon, "%d nodes\n", nb_numa_nodes);
2027
    for (i = 0; i < nb_numa_nodes; i++) {
2028
        monitor_printf(mon, "node %d cpus:", i);
2029
        for (env = first_cpu; env != NULL; env = env->next_cpu) {
2030
            if (env->numa_node == i) {
2031
                monitor_printf(mon, " %d", env->cpu_index);
2032
            }
2033
        }
2034
        monitor_printf(mon, "\n");
2035
        monitor_printf(mon, "node %d size: %" PRId64 " MB\n", i,
2036
            node_mem[i] >> 20);
2037
    }
2038
}
2039

    
2040
#ifdef CONFIG_PROFILER
2041

    
2042
int64_t qemu_time;
2043
int64_t dev_time;
2044

    
2045
static void do_info_profile(Monitor *mon)
2046
{
2047
    int64_t total;
2048
    total = qemu_time;
2049
    if (total == 0)
2050
        total = 1;
2051
    monitor_printf(mon, "async time  %" PRId64 " (%0.3f)\n",
2052
                   dev_time, dev_time / (double)get_ticks_per_sec());
2053
    monitor_printf(mon, "qemu time   %" PRId64 " (%0.3f)\n",
2054
                   qemu_time, qemu_time / (double)get_ticks_per_sec());
2055
    qemu_time = 0;
2056
    dev_time = 0;
2057
}
2058
#else
2059
static void do_info_profile(Monitor *mon)
2060
{
2061
    monitor_printf(mon, "Internal profiler not compiled\n");
2062
}
2063
#endif
2064

    
2065
/* Capture support */
2066
static QLIST_HEAD (capture_list_head, CaptureState) capture_head;
2067

    
2068
static void do_info_capture(Monitor *mon)
2069
{
2070
    int i;
2071
    CaptureState *s;
2072

    
2073
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
2074
        monitor_printf(mon, "[%d]: ", i);
2075
        s->ops.info (s->opaque);
2076
    }
2077
}
2078

    
2079
#ifdef HAS_AUDIO
2080
static void do_stop_capture(Monitor *mon, const QDict *qdict)
2081
{
2082
    int i;
2083
    int n = qdict_get_int(qdict, "n");
2084
    CaptureState *s;
2085

    
2086
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
2087
        if (i == n) {
2088
            s->ops.destroy (s->opaque);
2089
            QLIST_REMOVE (s, entries);
2090
            qemu_free (s);
2091
            return;
2092
        }
2093
    }
2094
}
2095

    
2096
static void do_wav_capture(Monitor *mon, const QDict *qdict)
2097
{
2098
    const char *path = qdict_get_str(qdict, "path");
2099
    int has_freq = qdict_haskey(qdict, "freq");
2100
    int freq = qdict_get_try_int(qdict, "freq", -1);
2101
    int has_bits = qdict_haskey(qdict, "bits");
2102
    int bits = qdict_get_try_int(qdict, "bits", -1);
2103
    int has_channels = qdict_haskey(qdict, "nchannels");
2104
    int nchannels = qdict_get_try_int(qdict, "nchannels", -1);
2105
    CaptureState *s;
2106

    
2107
    s = qemu_mallocz (sizeof (*s));
2108

    
2109
    freq = has_freq ? freq : 44100;
2110
    bits = has_bits ? bits : 16;
2111
    nchannels = has_channels ? nchannels : 2;
2112

    
2113
    if (wav_start_capture (s, path, freq, bits, nchannels)) {
2114
        monitor_printf(mon, "Faied to add wave capture\n");
2115
        qemu_free (s);
2116
    }
2117
    QLIST_INSERT_HEAD (&capture_head, s, entries);
2118
}
2119
#endif
2120

    
2121
#if defined(TARGET_I386)
2122
static void do_inject_nmi(Monitor *mon, const QDict *qdict)
2123
{
2124
    CPUState *env;
2125
    int cpu_index = qdict_get_int(qdict, "cpu_index");
2126

    
2127
    for (env = first_cpu; env != NULL; env = env->next_cpu)
2128
        if (env->cpu_index == cpu_index) {
2129
            cpu_interrupt(env, CPU_INTERRUPT_NMI);
2130
            break;
2131
        }
2132
}
2133
#endif
2134

    
2135
static void do_info_status_print(Monitor *mon, const QObject *data)
2136
{
2137
    QDict *qdict;
2138

    
2139
    qdict = qobject_to_qdict(data);
2140

    
2141
    monitor_printf(mon, "VM status: ");
2142
    if (qdict_get_bool(qdict, "running")) {
2143
        monitor_printf(mon, "running");
2144
        if (qdict_get_bool(qdict, "singlestep")) {
2145
            monitor_printf(mon, " (single step mode)");
2146
        }
2147
    } else {
2148
        monitor_printf(mon, "paused");
2149
    }
2150

    
2151
    monitor_printf(mon, "\n");
2152
}
2153

    
2154
static void do_info_status(Monitor *mon, QObject **ret_data)
2155
{
2156
    *ret_data = qobject_from_jsonf("{ 'running': %i, 'singlestep': %i }",
2157
                                    vm_running, singlestep);
2158
}
2159

    
2160
static qemu_acl *find_acl(Monitor *mon, const char *name)
2161
{
2162
    qemu_acl *acl = qemu_acl_find(name);
2163

    
2164
    if (!acl) {
2165
        monitor_printf(mon, "acl: unknown list '%s'\n", name);
2166
    }
2167
    return acl;
2168
}
2169

    
2170
static void do_acl_show(Monitor *mon, const QDict *qdict)
2171
{
2172
    const char *aclname = qdict_get_str(qdict, "aclname");
2173
    qemu_acl *acl = find_acl(mon, aclname);
2174
    qemu_acl_entry *entry;
2175
    int i = 0;
2176

    
2177
    if (acl) {
2178
        monitor_printf(mon, "policy: %s\n",
2179
                       acl->defaultDeny ? "deny" : "allow");
2180
        QTAILQ_FOREACH(entry, &acl->entries, next) {
2181
            i++;
2182
            monitor_printf(mon, "%d: %s %s\n", i,
2183
                           entry->deny ? "deny" : "allow", entry->match);
2184
        }
2185
    }
2186
}
2187

    
2188
static void do_acl_reset(Monitor *mon, const QDict *qdict)
2189
{
2190
    const char *aclname = qdict_get_str(qdict, "aclname");
2191
    qemu_acl *acl = find_acl(mon, aclname);
2192

    
2193
    if (acl) {
2194
        qemu_acl_reset(acl);
2195
        monitor_printf(mon, "acl: removed all rules\n");
2196
    }
2197
}
2198

    
2199
static void do_acl_policy(Monitor *mon, const QDict *qdict)
2200
{
2201
    const char *aclname = qdict_get_str(qdict, "aclname");
2202
    const char *policy = qdict_get_str(qdict, "policy");
2203
    qemu_acl *acl = find_acl(mon, aclname);
2204

    
2205
    if (acl) {
2206
        if (strcmp(policy, "allow") == 0) {
2207
            acl->defaultDeny = 0;
2208
            monitor_printf(mon, "acl: policy set to 'allow'\n");
2209
        } else if (strcmp(policy, "deny") == 0) {
2210
            acl->defaultDeny = 1;
2211
            monitor_printf(mon, "acl: policy set to 'deny'\n");
2212
        } else {
2213
            monitor_printf(mon, "acl: unknown policy '%s', "
2214
                           "expected 'deny' or 'allow'\n", policy);
2215
        }
2216
    }
2217
}
2218

    
2219
static void do_acl_add(Monitor *mon, const QDict *qdict)
2220
{
2221
    const char *aclname = qdict_get_str(qdict, "aclname");
2222
    const char *match = qdict_get_str(qdict, "match");
2223
    const char *policy = qdict_get_str(qdict, "policy");
2224
    int has_index = qdict_haskey(qdict, "index");
2225
    int index = qdict_get_try_int(qdict, "index", -1);
2226
    qemu_acl *acl = find_acl(mon, aclname);
2227
    int deny, ret;
2228

    
2229
    if (acl) {
2230
        if (strcmp(policy, "allow") == 0) {
2231
            deny = 0;
2232
        } else if (strcmp(policy, "deny") == 0) {
2233
            deny = 1;
2234
        } else {
2235
            monitor_printf(mon, "acl: unknown policy '%s', "
2236
                           "expected 'deny' or 'allow'\n", policy);
2237
            return;
2238
        }
2239
        if (has_index)
2240
            ret = qemu_acl_insert(acl, deny, match, index);
2241
        else
2242
            ret = qemu_acl_append(acl, deny, match);
2243
        if (ret < 0)
2244
            monitor_printf(mon, "acl: unable to add acl entry\n");
2245
        else
2246
            monitor_printf(mon, "acl: added rule at position %d\n", ret);
2247
    }
2248
}
2249

    
2250
static void do_acl_remove(Monitor *mon, const QDict *qdict)
2251
{
2252
    const char *aclname = qdict_get_str(qdict, "aclname");
2253
    const char *match = qdict_get_str(qdict, "match");
2254
    qemu_acl *acl = find_acl(mon, aclname);
2255
    int ret;
2256

    
2257
    if (acl) {
2258
        ret = qemu_acl_remove(acl, match);
2259
        if (ret < 0)
2260
            monitor_printf(mon, "acl: no matching acl entry\n");
2261
        else
2262
            monitor_printf(mon, "acl: removed rule at position %d\n", ret);
2263
    }
2264
}
2265

    
2266
#if defined(TARGET_I386)
2267
static void do_inject_mce(Monitor *mon, const QDict *qdict)
2268
{
2269
    CPUState *cenv;
2270
    int cpu_index = qdict_get_int(qdict, "cpu_index");
2271
    int bank = qdict_get_int(qdict, "bank");
2272
    uint64_t status = qdict_get_int(qdict, "status");
2273
    uint64_t mcg_status = qdict_get_int(qdict, "mcg_status");
2274
    uint64_t addr = qdict_get_int(qdict, "addr");
2275
    uint64_t misc = qdict_get_int(qdict, "misc");
2276

    
2277
    for (cenv = first_cpu; cenv != NULL; cenv = cenv->next_cpu)
2278
        if (cenv->cpu_index == cpu_index && cenv->mcg_cap) {
2279
            cpu_inject_x86_mce(cenv, bank, status, mcg_status, addr, misc);
2280
            break;
2281
        }
2282
}
2283
#endif
2284

    
2285
static int do_getfd(Monitor *mon, const QDict *qdict, QObject **ret_data)
2286
{
2287
    const char *fdname = qdict_get_str(qdict, "fdname");
2288
    mon_fd_t *monfd;
2289
    int fd;
2290

    
2291
    fd = qemu_chr_get_msgfd(mon->chr);
2292
    if (fd == -1) {
2293
        qerror_report(QERR_FD_NOT_SUPPLIED);
2294
        return -1;
2295
    }
2296

    
2297
    if (qemu_isdigit(fdname[0])) {
2298
        qerror_report(QERR_INVALID_PARAMETER_VALUE, "fdname",
2299
                      "a name not starting with a digit");
2300
        return -1;
2301
    }
2302

    
2303
    QLIST_FOREACH(monfd, &mon->fds, next) {
2304
        if (strcmp(monfd->name, fdname) != 0) {
2305
            continue;
2306
        }
2307

    
2308
        close(monfd->fd);
2309
        monfd->fd = fd;
2310
        return 0;
2311
    }
2312

    
2313
    monfd = qemu_mallocz(sizeof(mon_fd_t));
2314
    monfd->name = qemu_strdup(fdname);
2315
    monfd->fd = fd;
2316

    
2317
    QLIST_INSERT_HEAD(&mon->fds, monfd, next);
2318
    return 0;
2319
}
2320

    
2321
static int do_closefd(Monitor *mon, const QDict *qdict, QObject **ret_data)
2322
{
2323
    const char *fdname = qdict_get_str(qdict, "fdname");
2324
    mon_fd_t *monfd;
2325

    
2326
    QLIST_FOREACH(monfd, &mon->fds, next) {
2327
        if (strcmp(monfd->name, fdname) != 0) {
2328
            continue;
2329
        }
2330

    
2331
        QLIST_REMOVE(monfd, next);
2332
        close(monfd->fd);
2333
        qemu_free(monfd->name);
2334
        qemu_free(monfd);
2335
        return 0;
2336
    }
2337

    
2338
    qerror_report(QERR_FD_NOT_FOUND, fdname);
2339
    return -1;
2340
}
2341

    
2342
static void do_loadvm(Monitor *mon, const QDict *qdict)
2343
{
2344
    int saved_vm_running  = vm_running;
2345
    const char *name = qdict_get_str(qdict, "name");
2346

    
2347
    vm_stop(0);
2348

    
2349
    if (load_vmstate(name) == 0 && saved_vm_running) {
2350
        vm_start();
2351
    }
2352
}
2353

    
2354
int monitor_get_fd(Monitor *mon, const char *fdname)
2355
{
2356
    mon_fd_t *monfd;
2357

    
2358
    QLIST_FOREACH(monfd, &mon->fds, next) {
2359
        int fd;
2360

    
2361
        if (strcmp(monfd->name, fdname) != 0) {
2362
            continue;
2363
        }
2364

    
2365
        fd = monfd->fd;
2366

    
2367
        /* caller takes ownership of fd */
2368
        QLIST_REMOVE(monfd, next);
2369
        qemu_free(monfd->name);
2370
        qemu_free(monfd);
2371

    
2372
        return fd;
2373
    }
2374

    
2375
    return -1;
2376
}
2377

    
2378
static const mon_cmd_t mon_cmds[] = {
2379
#include "hmp-commands.h"
2380
    { NULL, NULL, },
2381
};
2382

    
2383
/* Please update hmp-commands.hx when adding or changing commands */
2384
static const mon_cmd_t info_cmds[] = {
2385
    {
2386
        .name       = "version",
2387
        .args_type  = "",
2388
        .params     = "",
2389
        .help       = "show the version of QEMU",
2390
        .user_print = do_info_version_print,
2391
        .mhandler.info_new = do_info_version,
2392
    },
2393
    {
2394
        .name       = "network",
2395
        .args_type  = "",
2396
        .params     = "",
2397
        .help       = "show the network state",
2398
        .mhandler.info = do_info_network,
2399
    },
2400
    {
2401
        .name       = "chardev",
2402
        .args_type  = "",
2403
        .params     = "",
2404
        .help       = "show the character devices",
2405
        .user_print = qemu_chr_info_print,
2406
        .mhandler.info_new = qemu_chr_info,
2407
    },
2408
    {
2409
        .name       = "block",
2410
        .args_type  = "",
2411
        .params     = "",
2412
        .help       = "show the block devices",
2413
        .user_print = bdrv_info_print,
2414
        .mhandler.info_new = bdrv_info,
2415
    },
2416
    {
2417
        .name       = "blockstats",
2418
        .args_type  = "",
2419
        .params     = "",
2420
        .help       = "show block device statistics",
2421
        .user_print = bdrv_stats_print,
2422
        .mhandler.info_new = bdrv_info_stats,
2423
    },
2424
    {
2425
        .name       = "registers",
2426
        .args_type  = "",
2427
        .params     = "",
2428
        .help       = "show the cpu registers",
2429
        .mhandler.info = do_info_registers,
2430
    },
2431
    {
2432
        .name       = "cpus",
2433
        .args_type  = "",
2434
        .params     = "",
2435
        .help       = "show infos for each CPU",
2436
        .user_print = monitor_print_cpus,
2437
        .mhandler.info_new = do_info_cpus,
2438
    },
2439
    {
2440
        .name       = "history",
2441
        .args_type  = "",
2442
        .params     = "",
2443
        .help       = "show the command line history",
2444
        .mhandler.info = do_info_history,
2445
    },
2446
    {
2447
        .name       = "irq",
2448
        .args_type  = "",
2449
        .params     = "",
2450
        .help       = "show the interrupts statistics (if available)",
2451
        .mhandler.info = irq_info,
2452
    },
2453
    {
2454
        .name       = "pic",
2455
        .args_type  = "",
2456
        .params     = "",
2457
        .help       = "show i8259 (PIC) state",
2458
        .mhandler.info = pic_info,
2459
    },
2460
    {
2461
        .name       = "pci",
2462
        .args_type  = "",
2463
        .params     = "",
2464
        .help       = "show PCI info",
2465
        .user_print = do_pci_info_print,
2466
        .mhandler.info_new = do_pci_info,
2467
    },
2468
#if defined(TARGET_I386) || defined(TARGET_SH4)
2469
    {
2470
        .name       = "tlb",
2471
        .args_type  = "",
2472
        .params     = "",
2473
        .help       = "show virtual to physical memory mappings",
2474
        .mhandler.info = tlb_info,
2475
    },
2476
#endif
2477
#if defined(TARGET_I386)
2478
    {
2479
        .name       = "mem",
2480
        .args_type  = "",
2481
        .params     = "",
2482
        .help       = "show the active virtual memory mappings",
2483
        .mhandler.info = mem_info,
2484
    },
2485
#endif
2486
    {
2487
        .name       = "jit",
2488
        .args_type  = "",
2489
        .params     = "",
2490
        .help       = "show dynamic compiler info",
2491
        .mhandler.info = do_info_jit,
2492
    },
2493
    {
2494
        .name       = "kvm",
2495
        .args_type  = "",
2496
        .params     = "",
2497
        .help       = "show KVM information",
2498
        .user_print = do_info_kvm_print,
2499
        .mhandler.info_new = do_info_kvm,
2500
    },
2501
    {
2502
        .name       = "numa",
2503
        .args_type  = "",
2504
        .params     = "",
2505
        .help       = "show NUMA information",
2506
        .mhandler.info = do_info_numa,
2507
    },
2508
    {
2509
        .name       = "usb",
2510
        .args_type  = "",
2511
        .params     = "",
2512
        .help       = "show guest USB devices",
2513
        .mhandler.info = usb_info,
2514
    },
2515
    {
2516
        .name       = "usbhost",
2517
        .args_type  = "",
2518
        .params     = "",
2519
        .help       = "show host USB devices",
2520
        .mhandler.info = usb_host_info,
2521
    },
2522
    {
2523
        .name       = "profile",
2524
        .args_type  = "",
2525
        .params     = "",
2526
        .help       = "show profiling information",
2527
        .mhandler.info = do_info_profile,
2528
    },
2529
    {
2530
        .name       = "capture",
2531
        .args_type  = "",
2532
        .params     = "",
2533
        .help       = "show capture information",
2534
        .mhandler.info = do_info_capture,
2535
    },
2536
    {
2537
        .name       = "snapshots",
2538
        .args_type  = "",
2539
        .params     = "",
2540
        .help       = "show the currently saved VM snapshots",
2541
        .mhandler.info = do_info_snapshots,
2542
    },
2543
    {
2544
        .name       = "status",
2545
        .args_type  = "",
2546
        .params     = "",
2547
        .help       = "show the current VM status (running|paused)",
2548
        .user_print = do_info_status_print,
2549
        .mhandler.info_new = do_info_status,
2550
    },
2551
    {
2552
        .name       = "pcmcia",
2553
        .args_type  = "",
2554
        .params     = "",
2555
        .help       = "show guest PCMCIA status",
2556
        .mhandler.info = pcmcia_info,
2557
    },
2558
    {
2559
        .name       = "mice",
2560
        .args_type  = "",
2561
        .params     = "",
2562
        .help       = "show which guest mouse is receiving events",
2563
        .user_print = do_info_mice_print,
2564
        .mhandler.info_new = do_info_mice,
2565
    },
2566
    {
2567
        .name       = "vnc",
2568
        .args_type  = "",
2569
        .params     = "",
2570
        .help       = "show the vnc server status",
2571
        .user_print = do_info_vnc_print,
2572
        .mhandler.info_new = do_info_vnc,
2573
    },
2574
    {
2575
        .name       = "name",
2576
        .args_type  = "",
2577
        .params     = "",
2578
        .help       = "show the current VM name",
2579
        .user_print = do_info_name_print,
2580
        .mhandler.info_new = do_info_name,
2581
    },
2582
    {
2583
        .name       = "uuid",
2584
        .args_type  = "",
2585
        .params     = "",
2586
        .help       = "show the current VM UUID",
2587
        .user_print = do_info_uuid_print,
2588
        .mhandler.info_new = do_info_uuid,
2589
    },
2590
#if defined(TARGET_PPC)
2591
    {
2592
        .name       = "cpustats",
2593
        .args_type  = "",
2594
        .params     = "",
2595
        .help       = "show CPU statistics",
2596
        .mhandler.info = do_info_cpu_stats,
2597
    },
2598
#endif
2599
#if defined(CONFIG_SLIRP)
2600
    {
2601
        .name       = "usernet",
2602
        .args_type  = "",
2603
        .params     = "",
2604
        .help       = "show user network stack connection states",
2605
        .mhandler.info = do_info_usernet,
2606
    },
2607
#endif
2608
    {
2609
        .name       = "migrate",
2610
        .args_type  = "",
2611
        .params     = "",
2612
        .help       = "show migration status",
2613
        .user_print = do_info_migrate_print,
2614
        .mhandler.info_new = do_info_migrate,
2615
    },
2616
    {
2617
        .name       = "balloon",
2618
        .args_type  = "",
2619
        .params     = "",
2620
        .help       = "show balloon information",
2621
        .user_print = monitor_print_balloon,
2622
        .mhandler.info_async = do_info_balloon,
2623
        .flags      = MONITOR_CMD_ASYNC,
2624
    },
2625
    {
2626
        .name       = "qtree",
2627
        .args_type  = "",
2628
        .params     = "",
2629
        .help       = "show device tree",
2630
        .mhandler.info = do_info_qtree,
2631
    },
2632
    {
2633
        .name       = "qdm",
2634
        .args_type  = "",
2635
        .params     = "",
2636
        .help       = "show qdev device model list",
2637
        .mhandler.info = do_info_qdm,
2638
    },
2639
    {
2640
        .name       = "roms",
2641
        .args_type  = "",
2642
        .params     = "",
2643
        .help       = "show roms",
2644
        .mhandler.info = do_info_roms,
2645
    },
2646
#if defined(CONFIG_SIMPLE_TRACE)
2647
    {
2648
        .name       = "trace",
2649
        .args_type  = "",
2650
        .params     = "",
2651
        .help       = "show current contents of trace buffer",
2652
        .mhandler.info = do_info_trace,
2653
    },
2654
    {
2655
        .name       = "trace-events",
2656
        .args_type  = "",
2657
        .params     = "",
2658
        .help       = "show available trace-events & their state",
2659
        .mhandler.info = do_info_trace_events,
2660
    },
2661
#endif
2662
    {
2663
        .name       = NULL,
2664
    },
2665
};
2666

    
2667
static const mon_cmd_t qmp_cmds[] = {
2668
#include "qmp-commands.h"
2669
    { /* NULL */ },
2670
};
2671

    
2672
static const mon_cmd_t qmp_query_cmds[] = {
2673
    {
2674
        .name       = "version",
2675
        .args_type  = "",
2676
        .params     = "",
2677
        .help       = "show the version of QEMU",
2678
        .user_print = do_info_version_print,
2679
        .mhandler.info_new = do_info_version,
2680
    },
2681
    {
2682
        .name       = "commands",
2683
        .args_type  = "",
2684
        .params     = "",
2685
        .help       = "list QMP available commands",
2686
        .user_print = monitor_user_noop,
2687
        .mhandler.info_new = do_info_commands,
2688
    },
2689
    {
2690
        .name       = "chardev",
2691
        .args_type  = "",
2692
        .params     = "",
2693
        .help       = "show the character devices",
2694
        .user_print = qemu_chr_info_print,
2695
        .mhandler.info_new = qemu_chr_info,
2696
    },
2697
    {
2698
        .name       = "block",
2699
        .args_type  = "",
2700
        .params     = "",
2701
        .help       = "show the block devices",
2702
        .user_print = bdrv_info_print,
2703
        .mhandler.info_new = bdrv_info,
2704
    },
2705
    {
2706
        .name       = "blockstats",
2707
        .args_type  = "",
2708
        .params     = "",
2709
        .help       = "show block device statistics",
2710
        .user_print = bdrv_stats_print,
2711
        .mhandler.info_new = bdrv_info_stats,
2712
    },
2713
    {
2714
        .name       = "cpus",
2715
        .args_type  = "",
2716
        .params     = "",
2717
        .help       = "show infos for each CPU",
2718
        .user_print = monitor_print_cpus,
2719
        .mhandler.info_new = do_info_cpus,
2720
    },
2721
    {
2722
        .name       = "pci",
2723
        .args_type  = "",
2724
        .params     = "",
2725
        .help       = "show PCI info",
2726
        .user_print = do_pci_info_print,
2727
        .mhandler.info_new = do_pci_info,
2728
    },
2729
    {
2730
        .name       = "kvm",
2731
        .args_type  = "",
2732
        .params     = "",
2733
        .help       = "show KVM information",
2734
        .user_print = do_info_kvm_print,
2735
        .mhandler.info_new = do_info_kvm,
2736
    },
2737
    {
2738
        .name       = "status",
2739
        .args_type  = "",
2740
        .params     = "",
2741
        .help       = "show the current VM status (running|paused)",
2742
        .user_print = do_info_status_print,
2743
        .mhandler.info_new = do_info_status,
2744
    },
2745
    {
2746
        .name       = "mice",
2747
        .args_type  = "",
2748
        .params     = "",
2749
        .help       = "show which guest mouse is receiving events",
2750
        .user_print = do_info_mice_print,
2751
        .mhandler.info_new = do_info_mice,
2752
    },
2753
    {
2754
        .name       = "vnc",
2755
        .args_type  = "",
2756
        .params     = "",
2757
        .help       = "show the vnc server status",
2758
        .user_print = do_info_vnc_print,
2759
        .mhandler.info_new = do_info_vnc,
2760
    },
2761
    {
2762
        .name       = "name",
2763
        .args_type  = "",
2764
        .params     = "",
2765
        .help       = "show the current VM name",
2766
        .user_print = do_info_name_print,
2767
        .mhandler.info_new = do_info_name,
2768
    },
2769
    {
2770
        .name       = "uuid",
2771
        .args_type  = "",
2772
        .params     = "",
2773
        .help       = "show the current VM UUID",
2774
        .user_print = do_info_uuid_print,
2775
        .mhandler.info_new = do_info_uuid,
2776
    },
2777
    {
2778
        .name       = "migrate",
2779
        .args_type  = "",
2780
        .params     = "",
2781
        .help       = "show migration status",
2782
        .user_print = do_info_migrate_print,
2783
        .mhandler.info_new = do_info_migrate,
2784
    },
2785
    {
2786
        .name       = "balloon",
2787
        .args_type  = "",
2788
        .params     = "",
2789
        .help       = "show balloon information",
2790
        .user_print = monitor_print_balloon,
2791
        .mhandler.info_async = do_info_balloon,
2792
        .flags      = MONITOR_CMD_ASYNC,
2793
    },
2794
    { /* NULL */ },
2795
};
2796

    
2797
/*******************************************************************/
2798

    
2799
static const char *pch;
2800
static jmp_buf expr_env;
2801

    
2802
#define MD_TLONG 0
2803
#define MD_I32   1
2804

    
2805
typedef struct MonitorDef {
2806
    const char *name;
2807
    int offset;
2808
    target_long (*get_value)(const struct MonitorDef *md, int val);
2809
    int type;
2810
} MonitorDef;
2811

    
2812
#if defined(TARGET_I386)
2813
static target_long monitor_get_pc (const struct MonitorDef *md, int val)
2814
{
2815
    CPUState *env = mon_get_cpu();
2816
    return env->eip + env->segs[R_CS].base;
2817
}
2818
#endif
2819

    
2820
#if defined(TARGET_PPC)
2821
static target_long monitor_get_ccr (const struct MonitorDef *md, int val)
2822
{
2823
    CPUState *env = mon_get_cpu();
2824
    unsigned int u;
2825
    int i;
2826

    
2827
    u = 0;
2828
    for (i = 0; i < 8; i++)
2829
        u |= env->crf[i] << (32 - (4 * i));
2830

    
2831
    return u;
2832
}
2833

    
2834
static target_long monitor_get_msr (const struct MonitorDef *md, int val)
2835
{
2836
    CPUState *env = mon_get_cpu();
2837
    return env->msr;
2838
}
2839

    
2840
static target_long monitor_get_xer (const struct MonitorDef *md, int val)
2841
{
2842
    CPUState *env = mon_get_cpu();
2843
    return env->xer;
2844
}
2845

    
2846
static target_long monitor_get_decr (const struct MonitorDef *md, int val)
2847
{
2848
    CPUState *env = mon_get_cpu();
2849
    return cpu_ppc_load_decr(env);
2850
}
2851

    
2852
static target_long monitor_get_tbu (const struct MonitorDef *md, int val)
2853
{
2854
    CPUState *env = mon_get_cpu();
2855
    return cpu_ppc_load_tbu(env);
2856
}
2857

    
2858
static target_long monitor_get_tbl (const struct MonitorDef *md, int val)
2859
{
2860
    CPUState *env = mon_get_cpu();
2861
    return cpu_ppc_load_tbl(env);
2862
}
2863
#endif
2864

    
2865
#if defined(TARGET_SPARC)
2866
#ifndef TARGET_SPARC64
2867
static target_long monitor_get_psr (const struct MonitorDef *md, int val)
2868
{
2869
    CPUState *env = mon_get_cpu();
2870

    
2871
    return cpu_get_psr(env);
2872
}
2873
#endif
2874

    
2875
static target_long monitor_get_reg(const struct MonitorDef *md, int val)
2876
{
2877
    CPUState *env = mon_get_cpu();
2878
    return env->regwptr[val];
2879
}
2880
#endif
2881

    
2882
static const MonitorDef monitor_defs[] = {
2883
#ifdef TARGET_I386
2884

    
2885
#define SEG(name, seg) \
2886
    { name, offsetof(CPUState, segs[seg].selector), NULL, MD_I32 },\
2887
    { name ".base", offsetof(CPUState, segs[seg].base) },\
2888
    { name ".limit", offsetof(CPUState, segs[seg].limit), NULL, MD_I32 },
2889

    
2890
    { "eax", offsetof(CPUState, regs[0]) },
2891
    { "ecx", offsetof(CPUState, regs[1]) },
2892
    { "edx", offsetof(CPUState, regs[2]) },
2893
    { "ebx", offsetof(CPUState, regs[3]) },
2894
    { "esp|sp", offsetof(CPUState, regs[4]) },
2895
    { "ebp|fp", offsetof(CPUState, regs[5]) },
2896
    { "esi", offsetof(CPUState, regs[6]) },
2897
    { "edi", offsetof(CPUState, regs[7]) },
2898
#ifdef TARGET_X86_64
2899
    { "r8", offsetof(CPUState, regs[8]) },
2900
    { "r9", offsetof(CPUState, regs[9]) },
2901
    { "r10", offsetof(CPUState, regs[10]) },
2902
    { "r11", offsetof(CPUState, regs[11]) },
2903
    { "r12", offsetof(CPUState, regs[12]) },
2904
    { "r13", offsetof(CPUState, regs[13]) },
2905
    { "r14", offsetof(CPUState, regs[14]) },
2906
    { "r15", offsetof(CPUState, regs[15]) },
2907
#endif
2908
    { "eflags", offsetof(CPUState, eflags) },
2909
    { "eip", offsetof(CPUState, eip) },
2910
    SEG("cs", R_CS)
2911
    SEG("ds", R_DS)
2912
    SEG("es", R_ES)
2913
    SEG("ss", R_SS)
2914
    SEG("fs", R_FS)
2915
    SEG("gs", R_GS)
2916
    { "pc", 0, monitor_get_pc, },
2917
#elif defined(TARGET_PPC)
2918
    /* General purpose registers */
2919
    { "r0", offsetof(CPUState, gpr[0]) },
2920
    { "r1", offsetof(CPUState, gpr[1]) },
2921
    { "r2", offsetof(CPUState, gpr[2]) },
2922
    { "r3", offsetof(CPUState, gpr[3]) },
2923
    { "r4", offsetof(CPUState, gpr[4]) },
2924
    { "r5", offsetof(CPUState, gpr[5]) },
2925
    { "r6", offsetof(CPUState, gpr[6]) },
2926
    { "r7", offsetof(CPUState, gpr[7]) },
2927
    { "r8", offsetof(CPUState, gpr[8]) },
2928
    { "r9", offsetof(CPUState, gpr[9]) },
2929
    { "r10", offsetof(CPUState, gpr[10]) },
2930
    { "r11", offsetof(CPUState, gpr[11]) },
2931
    { "r12", offsetof(CPUState, gpr[12]) },
2932
    { "r13", offsetof(CPUState, gpr[13]) },
2933
    { "r14", offsetof(CPUState, gpr[14]) },
2934
    { "r15", offsetof(CPUState, gpr[15]) },
2935
    { "r16", offsetof(CPUState, gpr[16]) },
2936
    { "r17", offsetof(CPUState, gpr[17]) },
2937
    { "r18", offsetof(CPUState, gpr[18]) },
2938
    { "r19", offsetof(CPUState, gpr[19]) },
2939
    { "r20", offsetof(CPUState, gpr[20]) },
2940
    { "r21", offsetof(CPUState, gpr[21]) },
2941
    { "r22", offsetof(CPUState, gpr[22]) },
2942
    { "r23", offsetof(CPUState, gpr[23]) },
2943
    { "r24", offsetof(CPUState, gpr[24]) },
2944
    { "r25", offsetof(CPUState, gpr[25]) },
2945
    { "r26", offsetof(CPUState, gpr[26]) },
2946
    { "r27", offsetof(CPUState, gpr[27]) },
2947
    { "r28", offsetof(CPUState, gpr[28]) },
2948
    { "r29", offsetof(CPUState, gpr[29]) },
2949
    { "r30", offsetof(CPUState, gpr[30]) },
2950
    { "r31", offsetof(CPUState, gpr[31]) },
2951
    /* Floating point registers */
2952
    { "f0", offsetof(CPUState, fpr[0]) },
2953
    { "f1", offsetof(CPUState, fpr[1]) },
2954
    { "f2", offsetof(CPUState, fpr[2]) },
2955
    { "f3", offsetof(CPUState, fpr[3]) },
2956
    { "f4", offsetof(CPUState, fpr[4]) },
2957
    { "f5", offsetof(CPUState, fpr[5]) },
2958
    { "f6", offsetof(CPUState, fpr[6]) },
2959
    { "f7", offsetof(CPUState, fpr[7]) },
2960
    { "f8", offsetof(CPUState, fpr[8]) },
2961
    { "f9", offsetof(CPUState, fpr[9]) },
2962
    { "f10", offsetof(CPUState, fpr[10]) },
2963
    { "f11", offsetof(CPUState, fpr[11]) },
2964
    { "f12", offsetof(CPUState, fpr[12]) },
2965
    { "f13", offsetof(CPUState, fpr[13]) },
2966
    { "f14", offsetof(CPUState, fpr[14]) },
2967
    { "f15", offsetof(CPUState, fpr[15]) },
2968
    { "f16", offsetof(CPUState, fpr[16]) },
2969
    { "f17", offsetof(CPUState, fpr[17]) },
2970
    { "f18", offsetof(CPUState, fpr[18]) },
2971
    { "f19", offsetof(CPUState, fpr[19]) },
2972
    { "f20", offsetof(CPUState, fpr[20]) },
2973
    { "f21", offsetof(CPUState, fpr[21]) },
2974
    { "f22", offsetof(CPUState, fpr[22]) },
2975
    { "f23", offsetof(CPUState, fpr[23]) },
2976
    { "f24", offsetof(CPUState, fpr[24]) },
2977
    { "f25", offsetof(CPUState, fpr[25]) },
2978
    { "f26", offsetof(CPUState, fpr[26]) },
2979
    { "f27", offsetof(CPUState, fpr[27]) },
2980
    { "f28", offsetof(CPUState, fpr[28]) },
2981
    { "f29", offsetof(CPUState, fpr[29]) },
2982
    { "f30", offsetof(CPUState, fpr[30]) },
2983
    { "f31", offsetof(CPUState, fpr[31]) },
2984
    { "fpscr", offsetof(CPUState, fpscr) },
2985
    /* Next instruction pointer */
2986
    { "nip|pc", offsetof(CPUState, nip) },
2987
    { "lr", offsetof(CPUState, lr) },
2988
    { "ctr", offsetof(CPUState, ctr) },
2989
    { "decr", 0, &monitor_get_decr, },
2990
    { "ccr", 0, &monitor_get_ccr, },
2991
    /* Machine state register */
2992
    { "msr", 0, &monitor_get_msr, },
2993
    { "xer", 0, &monitor_get_xer, },
2994
    { "tbu", 0, &monitor_get_tbu, },
2995
    { "tbl", 0, &monitor_get_tbl, },
2996
#if defined(TARGET_PPC64)
2997
    /* Address space register */
2998
    { "asr", offsetof(CPUState, asr) },
2999
#endif
3000
    /* Segment registers */
3001
    { "sdr1", offsetof(CPUState, sdr1) },
3002
    { "sr0", offsetof(CPUState, sr[0]) },
3003
    { "sr1", offsetof(CPUState, sr[1]) },
3004
    { "sr2", offsetof(CPUState, sr[2]) },
3005
    { "sr3", offsetof(CPUState, sr[3]) },
3006
    { "sr4", offsetof(CPUState, sr[4]) },
3007
    { "sr5", offsetof(CPUState, sr[5]) },
3008
    { "sr6", offsetof(CPUState, sr[6]) },
3009
    { "sr7", offsetof(CPUState, sr[7]) },
3010
    { "sr8", offsetof(CPUState, sr[8]) },
3011
    { "sr9", offsetof(CPUState, sr[9]) },
3012
    { "sr10", offsetof(CPUState, sr[10]) },
3013
    { "sr11", offsetof(CPUState, sr[11]) },
3014
    { "sr12", offsetof(CPUState, sr[12]) },
3015
    { "sr13", offsetof(CPUState, sr[13]) },
3016
    { "sr14", offsetof(CPUState, sr[14]) },
3017
    { "sr15", offsetof(CPUState, sr[15]) },
3018
    /* Too lazy to put BATs and SPRs ... */
3019
#elif defined(TARGET_SPARC)
3020
    { "g0", offsetof(CPUState, gregs[0]) },
3021
    { "g1", offsetof(CPUState, gregs[1]) },
3022
    { "g2", offsetof(CPUState, gregs[2]) },
3023
    { "g3", offsetof(CPUState, gregs[3]) },
3024
    { "g4", offsetof(CPUState, gregs[4]) },
3025
    { "g5", offsetof(CPUState, gregs[5]) },
3026
    { "g6", offsetof(CPUState, gregs[6]) },
3027
    { "g7", offsetof(CPUState, gregs[7]) },
3028
    { "o0", 0, monitor_get_reg },
3029
    { "o1", 1, monitor_get_reg },
3030
    { "o2", 2, monitor_get_reg },
3031
    { "o3", 3, monitor_get_reg },
3032
    { "o4", 4, monitor_get_reg },
3033
    { "o5", 5, monitor_get_reg },
3034
    { "o6", 6, monitor_get_reg },
3035
    { "o7", 7, monitor_get_reg },
3036
    { "l0", 8, monitor_get_reg },
3037
    { "l1", 9, monitor_get_reg },
3038
    { "l2", 10, monitor_get_reg },
3039
    { "l3", 11, monitor_get_reg },
3040
    { "l4", 12, monitor_get_reg },
3041
    { "l5", 13, monitor_get_reg },
3042
    { "l6", 14, monitor_get_reg },
3043
    { "l7", 15, monitor_get_reg },
3044
    { "i0", 16, monitor_get_reg },
3045
    { "i1", 17, monitor_get_reg },
3046
    { "i2", 18, monitor_get_reg },
3047
    { "i3", 19, monitor_get_reg },
3048
    { "i4", 20, monitor_get_reg },
3049
    { "i5", 21, monitor_get_reg },
3050
    { "i6", 22, monitor_get_reg },
3051
    { "i7", 23, monitor_get_reg },
3052
    { "pc", offsetof(CPUState, pc) },
3053
    { "npc", offsetof(CPUState, npc) },
3054
    { "y", offsetof(CPUState, y) },
3055
#ifndef TARGET_SPARC64
3056
    { "psr", 0, &monitor_get_psr, },
3057
    { "wim", offsetof(CPUState, wim) },
3058
#endif
3059
    { "tbr", offsetof(CPUState, tbr) },
3060
    { "fsr", offsetof(CPUState, fsr) },
3061
    { "f0", offsetof(CPUState, fpr[0]) },
3062
    { "f1", offsetof(CPUState, fpr[1]) },
3063
    { "f2", offsetof(CPUState, fpr[2]) },
3064
    { "f3", offsetof(CPUState, fpr[3]) },
3065
    { "f4", offsetof(CPUState, fpr[4]) },
3066
    { "f5", offsetof(CPUState, fpr[5]) },
3067
    { "f6", offsetof(CPUState, fpr[6]) },
3068
    { "f7", offsetof(CPUState, fpr[7]) },
3069
    { "f8", offsetof(CPUState, fpr[8]) },
3070
    { "f9", offsetof(CPUState, fpr[9]) },
3071
    { "f10", offsetof(CPUState, fpr[10]) },
3072
    { "f11", offsetof(CPUState, fpr[11]) },
3073
    { "f12", offsetof(CPUState, fpr[12]) },
3074
    { "f13", offsetof(CPUState, fpr[13]) },
3075
    { "f14", offsetof(CPUState, fpr[14]) },
3076
    { "f15", offsetof(CPUState, fpr[15]) },
3077
    { "f16", offsetof(CPUState, fpr[16]) },
3078
    { "f17", offsetof(CPUState, fpr[17]) },
3079
    { "f18", offsetof(CPUState, fpr[18]) },
3080
    { "f19", offsetof(CPUState, fpr[19]) },
3081
    { "f20", offsetof(CPUState, fpr[20]) },
3082
    { "f21", offsetof(CPUState, fpr[21]) },
3083
    { "f22", offsetof(CPUState, fpr[22]) },
3084
    { "f23", offsetof(CPUState, fpr[23]) },
3085
    { "f24", offsetof(CPUState, fpr[24]) },
3086
    { "f25", offsetof(CPUState, fpr[25]) },
3087
    { "f26", offsetof(CPUState, fpr[26]) },
3088
    { "f27", offsetof(CPUState, fpr[27]) },
3089
    { "f28", offsetof(CPUState, fpr[28]) },
3090
    { "f29", offsetof(CPUState, fpr[29]) },
3091
    { "f30", offsetof(CPUState, fpr[30]) },
3092
    { "f31", offsetof(CPUState, fpr[31]) },
3093
#ifdef TARGET_SPARC64
3094
    { "f32", offsetof(CPUState, fpr[32]) },
3095
    { "f34", offsetof(CPUState, fpr[34]) },
3096
    { "f36", offsetof(CPUState, fpr[36]) },
3097
    { "f38", offsetof(CPUState, fpr[38]) },
3098
    { "f40", offsetof(CPUState, fpr[40]) },
3099
    { "f42", offsetof(CPUState, fpr[42]) },
3100
    { "f44", offsetof(CPUState, fpr[44]) },
3101
    { "f46", offsetof(CPUState, fpr[46]) },
3102
    { "f48", offsetof(CPUState, fpr[48]) },
3103
    { "f50", offsetof(CPUState, fpr[50]) },
3104
    { "f52", offsetof(CPUState, fpr[52]) },
3105
    { "f54", offsetof(CPUState, fpr[54]) },
3106
    { "f56", offsetof(CPUState, fpr[56]) },
3107
    { "f58", offsetof(CPUState, fpr[58]) },
3108
    { "f60", offsetof(CPUState, fpr[60]) },
3109
    { "f62", offsetof(CPUState, fpr[62]) },
3110
    { "asi", offsetof(CPUState, asi) },
3111
    { "pstate", offsetof(CPUState, pstate) },
3112
    { "cansave", offsetof(CPUState, cansave) },
3113
    { "canrestore", offsetof(CPUState, canrestore) },
3114
    { "otherwin", offsetof(CPUState, otherwin) },
3115
    { "wstate", offsetof(CPUState, wstate) },
3116
    { "cleanwin", offsetof(CPUState, cleanwin) },
3117
    { "fprs", offsetof(CPUState, fprs) },
3118
#endif
3119
#endif
3120
    { NULL },
3121
};
3122

    
3123
static void expr_error(Monitor *mon, const char *msg)
3124
{
3125
    monitor_printf(mon, "%s\n", msg);
3126
    longjmp(expr_env, 1);
3127
}
3128

    
3129
/* return 0 if OK, -1 if not found */
3130
static int get_monitor_def(target_long *pval, const char *name)
3131
{
3132
    const MonitorDef *md;
3133
    void *ptr;
3134

    
3135
    for(md = monitor_defs; md->name != NULL; md++) {
3136
        if (compare_cmd(name, md->name)) {
3137
            if (md->get_value) {
3138
                *pval = md->get_value(md, md->offset);
3139
            } else {
3140
                CPUState *env = mon_get_cpu();
3141
                ptr = (uint8_t *)env + md->offset;
3142
                switch(md->type) {
3143
                case MD_I32:
3144
                    *pval = *(int32_t *)ptr;
3145
                    break;
3146
                case MD_TLONG:
3147
                    *pval = *(target_long *)ptr;
3148
                    break;
3149
                default:
3150
                    *pval = 0;
3151
                    break;
3152
                }
3153
            }
3154
            return 0;
3155
        }
3156
    }
3157
    return -1;
3158
}
3159

    
3160
static void next(void)
3161
{
3162
    if (*pch != '\0') {
3163
        pch++;
3164
        while (qemu_isspace(*pch))
3165
            pch++;
3166
    }
3167
}
3168

    
3169
static int64_t expr_sum(Monitor *mon);
3170

    
3171
static int64_t expr_unary(Monitor *mon)
3172
{
3173
    int64_t n;
3174
    char *p;
3175
    int ret;
3176

    
3177
    switch(*pch) {
3178
    case '+':
3179
        next();
3180
        n = expr_unary(mon);
3181
        break;
3182
    case '-':
3183
        next();
3184
        n = -expr_unary(mon);
3185
        break;
3186
    case '~':
3187
        next();
3188
        n = ~expr_unary(mon);
3189
        break;
3190
    case '(':
3191
        next();
3192
        n = expr_sum(mon);
3193
        if (*pch != ')') {
3194
            expr_error(mon, "')' expected");
3195
        }
3196
        next();
3197
        break;
3198
    case '\'':
3199
        pch++;
3200
        if (*pch == '\0')
3201
            expr_error(mon, "character constant expected");
3202
        n = *pch;
3203
        pch++;
3204
        if (*pch != '\'')
3205
            expr_error(mon, "missing terminating \' character");
3206
        next();
3207
        break;
3208
    case '$':
3209
        {
3210
            char buf[128], *q;
3211
            target_long reg=0;
3212

    
3213
            pch++;
3214
            q = buf;
3215
            while ((*pch >= 'a' && *pch <= 'z') ||
3216
                   (*pch >= 'A' && *pch <= 'Z') ||
3217
                   (*pch >= '0' && *pch <= '9') ||
3218
                   *pch == '_' || *pch == '.') {
3219
                if ((q - buf) < sizeof(buf) - 1)
3220
                    *q++ = *pch;
3221
                pch++;
3222
            }
3223
            while (qemu_isspace(*pch))
3224
                pch++;
3225
            *q = 0;
3226
            ret = get_monitor_def(&reg, buf);
3227
            if (ret < 0)
3228
                expr_error(mon, "unknown register");
3229
            n = reg;
3230
        }
3231
        break;
3232
    case '\0':
3233
        expr_error(mon, "unexpected end of expression");
3234
        n = 0;
3235
        break;
3236
    default:
3237
#if TARGET_PHYS_ADDR_BITS > 32
3238
        n = strtoull(pch, &p, 0);
3239
#else
3240
        n = strtoul(pch, &p, 0);
3241
#endif
3242
        if (pch == p) {
3243
            expr_error(mon, "invalid char in expression");
3244
        }
3245
        pch = p;
3246
        while (qemu_isspace(*pch))
3247
            pch++;
3248
        break;
3249
    }
3250
    return n;
3251
}
3252

    
3253

    
3254
static int64_t expr_prod(Monitor *mon)
3255
{
3256
    int64_t val, val2;
3257
    int op;
3258

    
3259
    val = expr_unary(mon);
3260
    for(;;) {
3261
        op = *pch;
3262
        if (op != '*' && op != '/' && op != '%')
3263
            break;
3264
        next();
3265
        val2 = expr_unary(mon);
3266
        switch(op) {
3267
        default:
3268
        case '*':
3269
            val *= val2;
3270
            break;
3271
        case '/':
3272
        case '%':
3273
            if (val2 == 0)
3274
                expr_error(mon, "division by zero");
3275
            if (op == '/')
3276
                val /= val2;
3277
            else
3278
                val %= val2;
3279
            break;
3280
        }
3281
    }
3282
    return val;
3283
}
3284

    
3285
static int64_t expr_logic(Monitor *mon)
3286
{
3287
    int64_t val, val2;
3288
    int op;
3289

    
3290
    val = expr_prod(mon);
3291
    for(;;) {
3292
        op = *pch;
3293
        if (op != '&' && op != '|' && op != '^')
3294
            break;
3295
        next();
3296
        val2 = expr_prod(mon);
3297
        switch(op) {
3298
        default:
3299
        case '&':
3300
            val &= val2;
3301
            break;
3302
        case '|':
3303
            val |= val2;
3304
            break;
3305
        case '^':
3306
            val ^= val2;
3307
            break;
3308
        }
3309
    }
3310
    return val;
3311
}
3312

    
3313
static int64_t expr_sum(Monitor *mon)
3314
{
3315
    int64_t val, val2;
3316
    int op;
3317

    
3318
    val = expr_logic(mon);
3319
    for(;;) {
3320
        op = *pch;
3321
        if (op != '+' && op != '-')
3322
            break;
3323
        next();
3324
        val2 = expr_logic(mon);
3325
        if (op == '+')
3326
            val += val2;
3327
        else
3328
            val -= val2;
3329
    }
3330
    return val;
3331
}
3332

    
3333
static int get_expr(Monitor *mon, int64_t *pval, const char **pp)
3334
{
3335
    pch = *pp;
3336
    if (setjmp(expr_env)) {
3337
        *pp = pch;
3338
        return -1;
3339
    }
3340
    while (qemu_isspace(*pch))
3341
        pch++;
3342
    *pval = expr_sum(mon);
3343
    *pp = pch;
3344
    return 0;
3345
}
3346

    
3347
static int get_double(Monitor *mon, double *pval, const char **pp)
3348
{
3349
    const char *p = *pp;
3350
    char *tailp;
3351
    double d;
3352

    
3353
    d = strtod(p, &tailp);
3354
    if (tailp == p) {
3355
        monitor_printf(mon, "Number expected\n");
3356
        return -1;
3357
    }
3358
    if (d != d || d - d != 0) {
3359
        /* NaN or infinity */
3360
        monitor_printf(mon, "Bad number\n");
3361
        return -1;
3362
    }
3363
    *pval = d;
3364
    *pp = tailp;
3365
    return 0;
3366
}
3367

    
3368
static int get_str(char *buf, int buf_size, const char **pp)
3369
{
3370
    const char *p;
3371
    char *q;
3372
    int c;
3373

    
3374
    q = buf;
3375
    p = *pp;
3376
    while (qemu_isspace(*p))
3377
        p++;
3378
    if (*p == '\0') {
3379
    fail:
3380
        *q = '\0';
3381
        *pp = p;
3382
        return -1;
3383
    }
3384
    if (*p == '\"') {
3385
        p++;
3386
        while (*p != '\0' && *p != '\"') {
3387
            if (*p == '\\') {
3388
                p++;
3389
                c = *p++;
3390
                switch(c) {
3391
                case 'n':
3392
                    c = '\n';
3393
                    break;
3394
                case 'r':
3395
                    c = '\r';
3396
                    break;
3397
                case '\\':
3398
                case '\'':
3399
                case '\"':
3400
                    break;
3401
                default:
3402
                    qemu_printf("unsupported escape code: '\\%c'\n", c);
3403
                    goto fail;
3404
                }
3405
                if ((q - buf) < buf_size - 1) {
3406
                    *q++ = c;
3407
                }
3408
            } else {
3409
                if ((q - buf) < buf_size - 1) {
3410
                    *q++ = *p;
3411
                }
3412
                p++;
3413
            }
3414
        }
3415
        if (*p != '\"') {
3416
            qemu_printf("unterminated string\n");
3417
            goto fail;
3418
        }
3419
        p++;
3420
    } else {
3421
        while (*p != '\0' && !qemu_isspace(*p)) {
3422
            if ((q - buf) < buf_size - 1) {
3423
                *q++ = *p;
3424
            }
3425
            p++;
3426
        }
3427
    }
3428
    *q = '\0';
3429
    *pp = p;
3430
    return 0;
3431
}
3432

    
3433
/*
3434
 * Store the command-name in cmdname, and return a pointer to
3435
 * the remaining of the command string.
3436
 */
3437
static const char *get_command_name(const char *cmdline,
3438
                                    char *cmdname, size_t nlen)
3439
{
3440
    size_t len;
3441
    const char *p, *pstart;
3442

    
3443
    p = cmdline;
3444
    while (qemu_isspace(*p))
3445
        p++;
3446
    if (*p == '\0')
3447
        return NULL;
3448
    pstart = p;
3449
    while (*p != '\0' && *p != '/' && !qemu_isspace(*p))
3450
        p++;
3451
    len = p - pstart;
3452
    if (len > nlen - 1)
3453
        len = nlen - 1;
3454
    memcpy(cmdname, pstart, len);
3455
    cmdname[len] = '\0';
3456
    return p;
3457
}
3458

    
3459
/**
3460
 * Read key of 'type' into 'key' and return the current
3461
 * 'type' pointer.
3462
 */
3463
static char *key_get_info(const char *type, char **key)
3464
{
3465
    size_t len;
3466
    char *p, *str;
3467

    
3468
    if (*type == ',')
3469
        type++;
3470

    
3471
    p = strchr(type, ':');
3472
    if (!p) {
3473
        *key = NULL;
3474
        return NULL;
3475
    }
3476
    len = p - type;
3477

    
3478
    str = qemu_malloc(len + 1);
3479
    memcpy(str, type, len);
3480
    str[len] = '\0';
3481

    
3482
    *key = str;
3483
    return ++p;
3484
}
3485

    
3486
static int default_fmt_format = 'x';
3487
static int default_fmt_size = 4;
3488

    
3489
#define MAX_ARGS 16
3490

    
3491
static int is_valid_option(const char *c, const char *typestr)
3492
{
3493
    char option[3];
3494
  
3495
    option[0] = '-';
3496
    option[1] = *c;
3497
    option[2] = '\0';
3498
  
3499
    typestr = strstr(typestr, option);
3500
    return (typestr != NULL);
3501
}
3502

    
3503
static const mon_cmd_t *search_dispatch_table(const mon_cmd_t *disp_table,
3504
                                              const char *cmdname)
3505
{
3506
    const mon_cmd_t *cmd;
3507

    
3508
    for (cmd = disp_table; cmd->name != NULL; cmd++) {
3509
        if (compare_cmd(cmdname, cmd->name)) {
3510
            return cmd;
3511
        }
3512
    }
3513

    
3514
    return NULL;
3515
}
3516

    
3517
static const mon_cmd_t *monitor_find_command(const char *cmdname)
3518
{
3519
    return search_dispatch_table(mon_cmds, cmdname);
3520
}
3521

    
3522
static const mon_cmd_t *qmp_find_query_cmd(const char *info_item)
3523
{
3524
    return search_dispatch_table(qmp_query_cmds, info_item);
3525
}
3526

    
3527
static const mon_cmd_t *qmp_find_cmd(const char *cmdname)
3528
{
3529
    return search_dispatch_table(qmp_cmds, cmdname);
3530
}
3531

    
3532
static const mon_cmd_t *monitor_parse_command(Monitor *mon,
3533
                                              const char *cmdline,
3534
                                              QDict *qdict)
3535
{
3536
    const char *p, *typestr;
3537
    int c;
3538
    const mon_cmd_t *cmd;
3539
    char cmdname[256];
3540
    char buf[1024];
3541
    char *key;
3542

    
3543
#ifdef DEBUG
3544
    monitor_printf(mon, "command='%s'\n", cmdline);
3545
#endif
3546

    
3547
    /* extract the command name */
3548
    p = get_command_name(cmdline, cmdname, sizeof(cmdname));
3549
    if (!p)
3550
        return NULL;
3551

    
3552
    cmd = monitor_find_command(cmdname);
3553
    if (!cmd) {
3554
        monitor_printf(mon, "unknown command: '%s'\n", cmdname);
3555
        return NULL;
3556
    }
3557

    
3558
    /* parse the parameters */
3559
    typestr = cmd->args_type;
3560
    for(;;) {
3561
        typestr = key_get_info(typestr, &key);
3562
        if (!typestr)
3563
            break;
3564
        c = *typestr;
3565
        typestr++;
3566
        switch(c) {
3567
        case 'F':
3568
        case 'B':
3569
        case 's':
3570
            {
3571
                int ret;
3572

    
3573
                while (qemu_isspace(*p))
3574
                    p++;
3575
                if (*typestr == '?') {
3576
                    typestr++;
3577
                    if (*p == '\0') {
3578
                        /* no optional string: NULL argument */
3579
                        break;
3580
                    }
3581
                }
3582
                ret = get_str(buf, sizeof(buf), &p);
3583
                if (ret < 0) {
3584
                    switch(c) {
3585
                    case 'F':
3586
                        monitor_printf(mon, "%s: filename expected\n",
3587
                                       cmdname);
3588
                        break;
3589
                    case 'B':
3590
                        monitor_printf(mon, "%s: block device name expected\n",
3591
                                       cmdname);
3592
                        break;
3593
                    default:
3594
                        monitor_printf(mon, "%s: string expected\n", cmdname);
3595
                        break;
3596
                    }
3597
                    goto fail;
3598
                }
3599
                qdict_put(qdict, key, qstring_from_str(buf));
3600
            }
3601
            break;
3602
        case 'O':
3603
            {
3604
                QemuOptsList *opts_list;
3605
                QemuOpts *opts;
3606

    
3607
                opts_list = qemu_find_opts(key);
3608
                if (!opts_list || opts_list->desc->name) {
3609
                    goto bad_type;
3610
                }
3611
                while (qemu_isspace(*p)) {
3612
                    p++;
3613
                }
3614
                if (!*p)
3615
                    break;
3616
                if (get_str(buf, sizeof(buf), &p) < 0) {
3617
                    goto fail;
3618
                }
3619
                opts = qemu_opts_parse(opts_list, buf, 1);
3620
                if (!opts) {
3621
                    goto fail;
3622
                }
3623
                qemu_opts_to_qdict(opts, qdict);
3624
                qemu_opts_del(opts);
3625
            }
3626
            break;
3627
        case '/':
3628
            {
3629
                int count, format, size;
3630

    
3631
                while (qemu_isspace(*p))
3632
                    p++;
3633
                if (*p == '/') {
3634
                    /* format found */
3635
                    p++;
3636
                    count = 1;
3637
                    if (qemu_isdigit(*p)) {
3638
                        count = 0;
3639
                        while (qemu_isdigit(*p)) {
3640
                            count = count * 10 + (*p - '0');
3641
                            p++;
3642
                        }
3643
                    }
3644
                    size = -1;
3645
                    format = -1;
3646
                    for(;;) {
3647
                        switch(*p) {
3648
                        case 'o':
3649
                        case 'd':
3650
                        case 'u':
3651
                        case 'x':
3652
                        case 'i':
3653
                        case 'c':
3654
                            format = *p++;
3655
                            break;
3656
                        case 'b':
3657
                            size = 1;
3658
                            p++;
3659
                            break;
3660
                        case 'h':
3661
                            size = 2;
3662
                            p++;
3663
                            break;
3664
                        case 'w':
3665
                            size = 4;
3666
                            p++;
3667
                            break;
3668
                        case 'g':
3669
                        case 'L':
3670
                            size = 8;
3671
                            p++;
3672
                            break;
3673
                        default:
3674
                            goto next;
3675
                        }
3676
                    }
3677
                next:
3678
                    if (*p != '\0' && !qemu_isspace(*p)) {
3679
                        monitor_printf(mon, "invalid char in format: '%c'\n",
3680
                                       *p);
3681
                        goto fail;
3682
                    }
3683
                    if (format < 0)
3684
                        format = default_fmt_format;
3685
                    if (format != 'i') {
3686
                        /* for 'i', not specifying a size gives -1 as size */
3687
                        if (size < 0)
3688
                            size = default_fmt_size;
3689
                        default_fmt_size = size;
3690
                    }
3691
                    default_fmt_format = format;
3692
                } else {
3693
                    count = 1;
3694
                    format = default_fmt_format;
3695
                    if (format != 'i') {
3696
                        size = default_fmt_size;
3697
                    } else {
3698
                        size = -1;
3699
                    }
3700
                }
3701
                qdict_put(qdict, "count", qint_from_int(count));
3702
                qdict_put(qdict, "format", qint_from_int(format));
3703
                qdict_put(qdict, "size", qint_from_int(size));
3704
            }
3705
            break;
3706
        case 'i':
3707
        case 'l':
3708
        case 'M':
3709
            {
3710
                int64_t val;
3711

    
3712
                while (qemu_isspace(*p))
3713
                    p++;
3714
                if (*typestr == '?' || *typestr == '.') {
3715
                    if (*typestr == '?') {
3716
                        if (*p == '\0') {
3717
                            typestr++;
3718
                            break;
3719
                        }
3720
                    } else {
3721
                        if (*p == '.') {
3722
                            p++;
3723
                            while (qemu_isspace(*p))
3724
                                p++;
3725
                        } else {
3726
                            typestr++;
3727
                            break;
3728
                        }
3729
                    }
3730
                    typestr++;
3731
                }
3732
                if (get_expr(mon, &val, &p))
3733
                    goto fail;
3734
                /* Check if 'i' is greater than 32-bit */
3735
                if ((c == 'i') && ((val >> 32) & 0xffffffff)) {
3736
                    monitor_printf(mon, "\'%s\' has failed: ", cmdname);
3737
                    monitor_printf(mon, "integer is for 32-bit values\n");
3738
                    goto fail;
3739
                } else if (c == 'M') {
3740
                    val <<= 20;
3741
                }
3742
                qdict_put(qdict, key, qint_from_int(val));
3743
            }
3744
            break;
3745
        case 'o':
3746
            {
3747
                ssize_t val;
3748
                char *end;
3749

    
3750
                while (qemu_isspace(*p)) {
3751
                    p++;
3752
                }
3753
                if (*typestr == '?') {
3754
                    typestr++;
3755
                    if (*p == '\0') {
3756
                        break;
3757
                    }
3758
                }
3759
                val = strtosz(p, &end);
3760
                if (val < 0) {
3761
                    monitor_printf(mon, "invalid size\n");
3762
                    goto fail;
3763
                }
3764
                qdict_put(qdict, key, qint_from_int(val));
3765
                p = end;
3766
            }
3767
            break;
3768
        case 'T':
3769
            {
3770
                double val;
3771

    
3772
                while (qemu_isspace(*p))
3773
                    p++;
3774
                if (*typestr == '?') {
3775
                    typestr++;
3776
                    if (*p == '\0') {
3777
                        break;
3778
                    }
3779
                }
3780
                if (get_double(mon, &val, &p) < 0) {
3781
                    goto fail;
3782
                }
3783
                if (p[0] && p[1] == 's') {
3784
                    switch (*p) {
3785
                    case 'm':
3786
                        val /= 1e3; p += 2; break;
3787
                    case 'u':
3788
                        val /= 1e6; p += 2; break;
3789
                    case 'n':
3790
                        val /= 1e9; p += 2; break;
3791
                    }
3792
                }
3793
                if (*p && !qemu_isspace(*p)) {
3794
                    monitor_printf(mon, "Unknown unit suffix\n");
3795
                    goto fail;
3796
                }
3797
                qdict_put(qdict, key, qfloat_from_double(val));
3798
            }
3799
            break;
3800
        case 'b':
3801
            {
3802
                const char *beg;
3803
                int val;
3804

    
3805
                while (qemu_isspace(*p)) {
3806
                    p++;
3807
                }
3808
                beg = p;
3809
                while (qemu_isgraph(*p)) {
3810
                    p++;
3811
                }
3812
                if (p - beg == 2 && !memcmp(beg, "on", p - beg)) {
3813
                    val = 1;
3814
                } else if (p - beg == 3 && !memcmp(beg, "off", p - beg)) {
3815
                    val = 0;
3816
                } else {
3817
                    monitor_printf(mon, "Expected 'on' or 'off'\n");
3818
                    goto fail;
3819
                }
3820
                qdict_put(qdict, key, qbool_from_int(val));
3821
            }
3822
            break;
3823
        case '-':
3824
            {
3825
                const char *tmp = p;
3826
                int skip_key = 0;
3827
                /* option */
3828

    
3829
                c = *typestr++;
3830
                if (c == '\0')
3831
                    goto bad_type;
3832
                while (qemu_isspace(*p))
3833
                    p++;
3834
                if (*p == '-') {
3835
                    p++;
3836
                    if(c != *p) {
3837
                        if(!is_valid_option(p, typestr)) {
3838
                  
3839
                            monitor_printf(mon, "%s: unsupported option -%c\n",
3840
                                           cmdname, *p);
3841
                            goto fail;
3842
                        } else {
3843
                            skip_key = 1;
3844
                        }
3845
                    }
3846
                    if(skip_key) {
3847
                        p = tmp;
3848
                    } else {
3849
                        /* has option */
3850
                        p++;
3851
                        qdict_put(qdict, key, qbool_from_int(1));
3852
                    }
3853
                }
3854
            }
3855
            break;
3856
        default:
3857
        bad_type:
3858
            monitor_printf(mon, "%s: unknown type '%c'\n", cmdname, c);
3859
            goto fail;
3860
        }
3861
        qemu_free(key);
3862
        key = NULL;
3863
    }
3864
    /* check that all arguments were parsed */
3865
    while (qemu_isspace(*p))
3866
        p++;
3867
    if (*p != '\0') {
3868
        monitor_printf(mon, "%s: extraneous characters at the end of line\n",
3869
                       cmdname);
3870
        goto fail;
3871
    }
3872

    
3873
    return cmd;
3874

    
3875
fail:
3876
    qemu_free(key);
3877
    return NULL;
3878
}
3879

    
3880
void monitor_set_error(Monitor *mon, QError *qerror)
3881
{
3882
    /* report only the first error */
3883
    if (!mon->error) {
3884
        mon->error = qerror;
3885
    } else {
3886
        MON_DEBUG("Additional error report at %s:%d\n",
3887
                  qerror->file, qerror->linenr);
3888
        QDECREF(qerror);
3889
    }
3890
}
3891

    
3892
static void handler_audit(Monitor *mon, const mon_cmd_t *cmd, int ret)
3893
{
3894
    if (monitor_ctrl_mode(mon)) {
3895
        if (ret && !monitor_has_error(mon)) {
3896
            /*
3897
             * If it returns failure, it must have passed on error.
3898
             *
3899
             * Action: Report an internal error to the client if in QMP.
3900
             */
3901
            qerror_report(QERR_UNDEFINED_ERROR);
3902
            MON_DEBUG("command '%s' returned failure but did not pass an error\n",
3903
                      cmd->name);
3904
        }
3905

    
3906
#ifdef CONFIG_DEBUG_MONITOR
3907
        if (!ret && monitor_has_error(mon)) {
3908
            /*
3909
             * If it returns success, it must not have passed an error.
3910
             *
3911
             * Action: Report the passed error to the client.
3912
             */
3913
            MON_DEBUG("command '%s' returned success but passed an error\n",
3914
                      cmd->name);
3915
        }
3916

    
3917
        if (mon_print_count_get(mon) > 0 && strcmp(cmd->name, "info") != 0) {
3918
            /*
3919
             * Handlers should not call Monitor print functions.
3920
             *
3921
             * Action: Ignore them in QMP.
3922
             *
3923
             * (XXX: we don't check any 'info' or 'query' command here
3924
             * because the user print function _is_ called by do_info(), hence
3925
             * we will trigger this check. This problem will go away when we
3926
             * make 'query' commands real and kill do_info())
3927
             */
3928
            MON_DEBUG("command '%s' called print functions %d time(s)\n",
3929
                      cmd->name, mon_print_count_get(mon));
3930
        }
3931
#endif
3932
    } else {
3933
        assert(!monitor_has_error(mon));
3934
        QDECREF(mon->error);
3935
        mon->error = NULL;
3936
    }
3937
}
3938

    
3939
static void handle_user_command(Monitor *mon, const char *cmdline)
3940
{
3941
    QDict *qdict;
3942
    const mon_cmd_t *cmd;
3943

    
3944
    qdict = qdict_new();
3945

    
3946
    cmd = monitor_parse_command(mon, cmdline, qdict);
3947
    if (!cmd)
3948
        goto out;
3949

    
3950
    if (handler_is_async(cmd)) {
3951
        user_async_cmd_handler(mon, cmd, qdict);
3952
    } else if (handler_is_qobject(cmd)) {
3953
        QObject *data = NULL;
3954

    
3955
        /* XXX: ignores the error code */
3956
        cmd->mhandler.cmd_new(mon, qdict, &data);
3957
        assert(!monitor_has_error(mon));
3958
        if (data) {
3959
            cmd->user_print(mon, data);
3960
            qobject_decref(data);
3961
        }
3962
    } else {
3963
        cmd->mhandler.cmd(mon, qdict);
3964
    }
3965

    
3966
out:
3967
    QDECREF(qdict);
3968
}
3969

    
3970
static void cmd_completion(const char *name, const char *list)
3971
{
3972
    const char *p, *pstart;
3973
    char cmd[128];
3974
    int len;
3975

    
3976
    p = list;
3977
    for(;;) {
3978
        pstart = p;
3979
        p = strchr(p, '|');
3980
        if (!p)
3981
            p = pstart + strlen(pstart);
3982
        len = p - pstart;
3983
        if (len > sizeof(cmd) - 2)
3984
            len = sizeof(cmd) - 2;
3985
        memcpy(cmd, pstart, len);
3986
        cmd[len] = '\0';
3987
        if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
3988
            readline_add_completion(cur_mon->rs, cmd);
3989
        }
3990
        if (*p == '\0')
3991
            break;
3992
        p++;
3993
    }
3994
}
3995

    
3996
static void file_completion(const char *input)
3997
{
3998
    DIR *ffs;
3999
    struct dirent *d;
4000
    char path[1024];
4001
    char file[1024], file_prefix[1024];
4002
    int input_path_len;
4003
    const char *p;
4004

    
4005
    p = strrchr(input, '/');
4006
    if (!p) {
4007
        input_path_len = 0;
4008
        pstrcpy(file_prefix, sizeof(file_prefix), input);
4009
        pstrcpy(path, sizeof(path), ".");
4010
    } else {
4011
        input_path_len = p - input + 1;
4012
        memcpy(path, input, input_path_len);
4013
        if (input_path_len > sizeof(path) - 1)
4014
            input_path_len = sizeof(path) - 1;
4015
        path[input_path_len] = '\0';
4016
        pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
4017
    }
4018
#ifdef DEBUG_COMPLETION
4019
    monitor_printf(cur_mon, "input='%s' path='%s' prefix='%s'\n",
4020
                   input, path, file_prefix);
4021
#endif
4022
    ffs = opendir(path);
4023
    if (!ffs)
4024
        return;
4025
    for(;;) {
4026
        struct stat sb;
4027
        d = readdir(ffs);
4028
        if (!d)
4029
            break;
4030

    
4031
        if (strcmp(d->d_name, ".") == 0 || strcmp(d->d_name, "..") == 0) {
4032
            continue;
4033
        }
4034

    
4035
        if (strstart(d->d_name, file_prefix, NULL)) {
4036
            memcpy(file, input, input_path_len);
4037
            if (input_path_len < sizeof(file))
4038
                pstrcpy(file + input_path_len, sizeof(file) - input_path_len,
4039
                        d->d_name);
4040
            /* stat the file to find out if it's a directory.
4041
             * In that case add a slash to speed up typing long paths
4042
             */
4043
            stat(file, &sb);
4044
            if(S_ISDIR(sb.st_mode))
4045
                pstrcat(file, sizeof(file), "/");
4046
            readline_add_completion(cur_mon->rs, file);
4047
        }
4048
    }
4049
    closedir(ffs);
4050
}
4051

    
4052
static void block_completion_it(void *opaque, BlockDriverState *bs)
4053
{
4054
    const char *name = bdrv_get_device_name(bs);
4055
    const char *input = opaque;
4056

    
4057
    if (input[0] == '\0' ||
4058
        !strncmp(name, (char *)input, strlen(input))) {
4059
        readline_add_completion(cur_mon->rs, name);
4060
    }
4061
}
4062

    
4063
/* NOTE: this parser is an approximate form of the real command parser */
4064
static void parse_cmdline(const char *cmdline,
4065
                         int *pnb_args, char **args)
4066
{
4067
    const char *p;
4068
    int nb_args, ret;
4069
    char buf[1024];
4070

    
4071
    p = cmdline;
4072
    nb_args = 0;
4073
    for(;;) {
4074
        while (qemu_isspace(*p))
4075
            p++;
4076
        if (*p == '\0')
4077
            break;
4078
        if (nb_args >= MAX_ARGS)
4079
            break;
4080
        ret = get_str(buf, sizeof(buf), &p);
4081
        args[nb_args] = qemu_strdup(buf);
4082
        nb_args++;
4083
        if (ret < 0)
4084
            break;
4085
    }
4086
    *pnb_args = nb_args;
4087
}
4088

    
4089
static const char *next_arg_type(const char *typestr)
4090
{
4091
    const char *p = strchr(typestr, ':');
4092
    return (p != NULL ? ++p : typestr);
4093
}
4094

    
4095
static void monitor_find_completion(const char *cmdline)
4096
{
4097
    const char *cmdname;
4098
    char *args[MAX_ARGS];
4099
    int nb_args, i, len;
4100
    const char *ptype, *str;
4101
    const mon_cmd_t *cmd;
4102
    const KeyDef *key;
4103

    
4104
    parse_cmdline(cmdline, &nb_args, args);
4105
#ifdef DEBUG_COMPLETION
4106
    for(i = 0; i < nb_args; i++) {
4107
        monitor_printf(cur_mon, "arg%d = '%s'\n", i, (char *)args[i]);
4108
    }
4109
#endif
4110

    
4111
    /* if the line ends with a space, it means we want to complete the
4112
       next arg */
4113
    len = strlen(cmdline);
4114
    if (len > 0 && qemu_isspace(cmdline[len - 1])) {
4115
        if (nb_args >= MAX_ARGS) {
4116
            goto cleanup;
4117
        }
4118
        args[nb_args++] = qemu_strdup("");
4119
    }
4120
    if (nb_args <= 1) {
4121
        /* command completion */
4122
        if (nb_args == 0)
4123
            cmdname = "";
4124
        else
4125
            cmdname = args[0];
4126
        readline_set_completion_index(cur_mon->rs, strlen(cmdname));
4127
        for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
4128
            cmd_completion(cmdname, cmd->name);
4129
        }
4130
    } else {
4131
        /* find the command */
4132
        for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
4133
            if (compare_cmd(args[0], cmd->name)) {
4134
                break;
4135
            }
4136
        }
4137
        if (!cmd->name) {
4138
            goto cleanup;
4139
        }
4140

    
4141
        ptype = next_arg_type(cmd->args_type);
4142
        for(i = 0; i < nb_args - 2; i++) {
4143
            if (*ptype != '\0') {
4144
                ptype = next_arg_type(ptype);
4145
                while (*ptype == '?')
4146
                    ptype = next_arg_type(ptype);
4147
            }
4148
        }
4149
        str = args[nb_args - 1];
4150
        if (*ptype == '-' && ptype[1] != '\0') {
4151
            ptype = next_arg_type(ptype);
4152
        }
4153
        switch(*ptype) {
4154
        case 'F':
4155
            /* file completion */
4156
            readline_set_completion_index(cur_mon->rs, strlen(str));
4157
            file_completion(str);
4158
            break;
4159
        case 'B':
4160
            /* block device name completion */
4161
            readline_set_completion_index(cur_mon->rs, strlen(str));
4162
            bdrv_iterate(block_completion_it, (void *)str);
4163
            break;
4164
        case 's':
4165
            /* XXX: more generic ? */
4166
            if (!strcmp(cmd->name, "info")) {
4167
                readline_set_completion_index(cur_mon->rs, strlen(str));
4168
                for(cmd = info_cmds; cmd->name != NULL; cmd++) {
4169
                    cmd_completion(str, cmd->name);
4170
                }
4171
            } else if (!strcmp(cmd->name, "sendkey")) {
4172
                char *sep = strrchr(str, '-');
4173
                if (sep)
4174
                    str = sep + 1;
4175
                readline_set_completion_index(cur_mon->rs, strlen(str));
4176
                for(key = key_defs; key->name != NULL; key++) {
4177
                    cmd_completion(str, key->name);
4178
                }
4179
            } else if (!strcmp(cmd->name, "help|?")) {
4180
                readline_set_completion_index(cur_mon->rs, strlen(str));
4181
                for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
4182
                    cmd_completion(str, cmd->name);
4183
                }
4184
            }
4185
            break;
4186
        default:
4187
            break;
4188
        }
4189
    }
4190

    
4191
cleanup:
4192
    for (i = 0; i < nb_args; i++) {
4193
        qemu_free(args[i]);
4194
    }
4195
}
4196

    
4197
static int monitor_can_read(void *opaque)
4198
{
4199
    Monitor *mon = opaque;
4200

    
4201
    return (mon->suspend_cnt == 0) ? 1 : 0;
4202
}
4203

    
4204
static int invalid_qmp_mode(const Monitor *mon, const char *cmd_name)
4205
{
4206
    int is_cap = compare_cmd(cmd_name, "qmp_capabilities");
4207
    return (qmp_cmd_mode(mon) ? is_cap : !is_cap);
4208
}
4209

    
4210
/*
4211
 * Argument validation rules:
4212
 *
4213
 * 1. The argument must exist in cmd_args qdict
4214
 * 2. The argument type must be the expected one
4215
 *
4216
 * Special case: If the argument doesn't exist in cmd_args and
4217
 *               the QMP_ACCEPT_UNKNOWNS flag is set, then the
4218
 *               checking is skipped for it.
4219
 */
4220
static int check_client_args_type(const QDict *client_args,
4221
                                  const QDict *cmd_args, int flags)
4222
{
4223
    const QDictEntry *ent;
4224

    
4225
    for (ent = qdict_first(client_args); ent;ent = qdict_next(client_args,ent)){
4226
        QObject *obj;
4227
        QString *arg_type;
4228
        const QObject *client_arg = qdict_entry_value(ent);
4229
        const char *client_arg_name = qdict_entry_key(ent);
4230

    
4231
        obj = qdict_get(cmd_args, client_arg_name);
4232
        if (!obj) {
4233
            if (flags & QMP_ACCEPT_UNKNOWNS) {
4234
                /* handler accepts unknowns */
4235
                continue;
4236
            }
4237
            /* client arg doesn't exist */
4238
            qerror_report(QERR_INVALID_PARAMETER, client_arg_name);
4239
            return -1;
4240
        }
4241

    
4242
        arg_type = qobject_to_qstring(obj);
4243
        assert(arg_type != NULL);
4244

    
4245
        /* check if argument's type is correct */
4246
        switch (qstring_get_str(arg_type)[0]) {
4247
        case 'F':
4248
        case 'B':
4249
        case 's':
4250
            if (qobject_type(client_arg) != QTYPE_QSTRING) {
4251
                qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4252
                              "string");
4253
                return -1;
4254
            }
4255
        break;
4256
        case 'i':
4257
        case 'l':
4258
        case 'M':
4259
        case 'o':
4260
            if (qobject_type(client_arg) != QTYPE_QINT) {
4261
                qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4262
                              "int");
4263
                return -1; 
4264
            }
4265
            break;
4266
        case 'T':
4267
            if (qobject_type(client_arg) != QTYPE_QINT &&
4268
                qobject_type(client_arg) != QTYPE_QFLOAT) {
4269
                qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4270
                              "number");
4271
               return -1; 
4272
            }
4273
            break;
4274
        case 'b':
4275
        case '-':
4276
            if (qobject_type(client_arg) != QTYPE_QBOOL) {
4277
                qerror_report(QERR_INVALID_PARAMETER_TYPE, client_arg_name,
4278
                              "bool");
4279
               return -1; 
4280
            }
4281
            break;
4282
        case 'O':
4283
            assert(flags & QMP_ACCEPT_UNKNOWNS);
4284
            break;
4285
        case '/':
4286
        case '.':
4287
            /*
4288
             * These types are not supported by QMP and thus are not
4289
             * handled here. Fall through.
4290
             */
4291
        default:
4292
            abort();
4293
        }
4294
    }
4295

    
4296
    return 0;
4297
}
4298

    
4299
/*
4300
 * - Check if the client has passed all mandatory args
4301
 * - Set special flags for argument validation
4302
 */
4303
static 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
        }
4322
    }
4323

    
4324
    return 0;
4325
}
4326

    
4327
static QDict *qdict_from_args_type(const char *args_type)
4328
{
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

    
4368
out:
4369
    return qdict;
4370
}
4371

    
4372
/*
4373
 * Client argument checking rules:
4374
 *
4375
 * 1. Client must provide all mandatory arguments
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
4379
 */
4380
static int qmp_check_client_args(const mon_cmd_t *cmd, QDict *client_args)
4381
{
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

    
4393
    err = check_client_args_type(client_args, cmd_args, flags);
4394

    
4395
out:
4396
    QDECREF(cmd_args);
4397
    return err;
4398
}
4399

    
4400
/*
4401
 * Input object checking rules
4402
 *
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
4409
 */
4410
static QDict *qmp_check_input_obj(QObject *input_obj)
4411
{
4412
    const QDictEntry *ent;
4413
    int has_exec_key = 0;
4414
    QDict *input_dict;
4415

    
4416
    if (qobject_type(input_obj) != QTYPE_QDICT) {
4417
        qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "object");
4418
        return NULL;
4419
    }
4420

    
4421
    input_dict = qobject_to_qdict(input_obj);
4422

    
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);
4426

    
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;
4432
            }
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;
4439
            }
4440
        } else if (!strcmp(arg_name, "id")) {
4441
            /* FIXME: check duplicated IDs for async commands */
4442
        } else {
4443
            qerror_report(QERR_QMP_EXTRA_MEMBER, arg_name);
4444
            return NULL;
4445
        }
4446
    }
4447

    
4448
    if (!has_exec_key) {
4449
        qerror_report(QERR_QMP_BAD_INPUT_OBJECT, "execute");
4450
        return NULL;
4451
    }
4452

    
4453
    return input_dict;
4454
}
4455

    
4456
static void qmp_call_query_cmd(Monitor *mon, const mon_cmd_t *cmd)
4457
{
4458
    QObject *ret_data = NULL;
4459

    
4460
    if (handler_is_async(cmd)) {
4461
        qmp_async_info_handler(mon, cmd);
4462
        if (monitor_has_error(mon)) {
4463
            monitor_protocol_emitter(mon, NULL);
4464
        }
4465
    } else {
4466
        cmd->mhandler.info_new(mon, &ret_data);
4467
        monitor_protocol_emitter(mon, ret_data);
4468
        qobject_decref(ret_data);
4469
    }
4470
}
4471

    
4472
static void qmp_call_cmd(Monitor *mon, const mon_cmd_t *cmd,
4473
                         const QDict *params)
4474
{
4475
    int ret;
4476
    QObject *data = NULL;
4477

    
4478
    mon_print_count_init(mon);
4479

    
4480
    ret = cmd->mhandler.cmd_new(mon, params, &data);
4481
    handler_audit(mon, cmd, ret);
4482
    monitor_protocol_emitter(mon, data);
4483
    qobject_decref(data);
4484
}
4485

    
4486
static void handle_qmp_command(JSONMessageParser *parser, QList *tokens)
4487
{
4488
    int err;
4489
    QObject *obj;
4490
    QDict *input, *args;
4491
    const mon_cmd_t *cmd;
4492
    Monitor *mon = cur_mon;
4493
    const char *cmd_name, *query_cmd;
4494

    
4495
    query_cmd = NULL;
4496
    args = input = NULL;
4497

    
4498
    obj = json_parser_parse(tokens, NULL);
4499
    if (!obj) {
4500
        // FIXME: should be triggered in json_parser_parse()
4501
        qerror_report(QERR_JSON_PARSING);
4502
        goto err_out;
4503
    }
4504

    
4505
    input = qmp_check_input_obj(obj);
4506
    if (!input) {
4507
        qobject_decref(obj);
4508
        goto err_out;
4509
    }
4510

    
4511
    mon->mc->id = qdict_get(input, "id");
4512
    qobject_incref(mon->mc->id);
4513

    
4514
    cmd_name = qdict_get_str(input, "execute");
4515
    if (invalid_qmp_mode(mon, cmd_name)) {
4516
        qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
4517
        goto err_out;
4518
    }
4519

    
4520
    if (strstart(cmd_name, "query-", &query_cmd)) {
4521
        cmd = qmp_find_query_cmd(query_cmd);
4522
    } else {
4523
        cmd = qmp_find_cmd(cmd_name);
4524
    }
4525

    
4526
    if (!cmd) {
4527
        qerror_report(QERR_COMMAND_NOT_FOUND, cmd_name);
4528
        goto err_out;
4529
    }
4530

    
4531
    obj = qdict_get(input, "arguments");
4532
    if (!obj) {
4533
        args = qdict_new();
4534
    } else {
4535
        args = qobject_to_qdict(obj);
4536
        QINCREF(args);
4537
    }
4538

    
4539
    err = qmp_check_client_args(cmd, args);
4540
    if (err < 0) {
4541
        goto err_out;
4542
    }
4543

    
4544
    if (query_cmd) {
4545
        qmp_call_query_cmd(mon, cmd);
4546
    } else if (handler_is_async(cmd)) {
4547
        err = qmp_async_cmd_handler(mon, cmd, args);
4548
        if (err) {
4549
            /* emit the error response */
4550
            goto err_out;
4551
        }
4552
    } else {
4553
        qmp_call_cmd(mon, cmd, args);
4554
    }
4555

    
4556
    goto out;
4557

    
4558
err_out:
4559
    monitor_protocol_emitter(mon, NULL);
4560
out:
4561
    QDECREF(input);
4562
    QDECREF(args);
4563
}
4564

    
4565
/**
4566
 * monitor_control_read(): Read and handle QMP input
4567
 */
4568
static void monitor_control_read(void *opaque, const uint8_t *buf, int size)
4569
{
4570
    Monitor *old_mon = cur_mon;
4571

    
4572
    cur_mon = opaque;
4573

    
4574
    json_message_parser_feed(&cur_mon->mc->parser, (const char *) buf, size);
4575

    
4576
    cur_mon = old_mon;
4577
}
4578

    
4579
static void monitor_read(void *opaque, const uint8_t *buf, int size)
4580
{
4581
    Monitor *old_mon = cur_mon;
4582
    int i;
4583

    
4584
    cur_mon = opaque;
4585

    
4586
    if (cur_mon->rs) {
4587
        for (i = 0; i < size; i++)
4588
            readline_handle_byte(cur_mon->rs, buf[i]);
4589
    } else {
4590
        if (size == 0 || buf[size - 1] != 0)
4591
            monitor_printf(cur_mon, "corrupted command\n");
4592
        else
4593
            handle_user_command(cur_mon, (char *)buf);
4594
    }
4595

    
4596
    cur_mon = old_mon;
4597
}
4598

    
4599
static void monitor_command_cb(Monitor *mon, const char *cmdline, void *opaque)
4600
{
4601
    monitor_suspend(mon);
4602
    handle_user_command(mon, cmdline);
4603
    monitor_resume(mon);
4604
}
4605

    
4606
int monitor_suspend(Monitor *mon)
4607
{
4608
    if (!mon->rs)
4609
        return -ENOTTY;
4610
    mon->suspend_cnt++;
4611
    return 0;
4612
}
4613

    
4614
void monitor_resume(Monitor *mon)
4615
{
4616
    if (!mon->rs)
4617
        return;
4618
    if (--mon->suspend_cnt == 0)
4619
        readline_show_prompt(mon->rs);
4620
}
4621

    
4622
static QObject *get_qmp_greeting(void)
4623
{
4624
    QObject *ver;
4625

    
4626
    do_info_version(NULL, &ver);
4627
    return qobject_from_jsonf("{'QMP':{'version': %p,'capabilities': []}}",ver);
4628
}
4629

    
4630
/**
4631
 * monitor_control_event(): Print QMP gretting
4632
 */
4633
static void monitor_control_event(void *opaque, int event)
4634
{
4635
    QObject *data;
4636
    Monitor *mon = opaque;
4637

    
4638
    switch (event) {
4639
    case CHR_EVENT_OPENED:
4640
        mon->mc->command_mode = 0;
4641
        json_message_parser_init(&mon->mc->parser, handle_qmp_command);
4642
        data = get_qmp_greeting();
4643
        monitor_json_emitter(mon, data);
4644
        qobject_decref(data);
4645
        break;
4646
    case CHR_EVENT_CLOSED:
4647
        json_message_parser_destroy(&mon->mc->parser);
4648
        break;
4649
    }
4650
}
4651

    
4652
static void monitor_event(void *opaque, int event)
4653
{
4654
    Monitor *mon = opaque;
4655

    
4656
    switch (event) {
4657
    case CHR_EVENT_MUX_IN:
4658
        mon->mux_out = 0;
4659
        if (mon->reset_seen) {
4660
            readline_restart(mon->rs);
4661
            monitor_resume(mon);
4662
            monitor_flush(mon);
4663
        } else {
4664
            mon->suspend_cnt = 0;
4665
        }
4666
        break;
4667

    
4668
    case CHR_EVENT_MUX_OUT:
4669
        if (mon->reset_seen) {
4670
            if (mon->suspend_cnt == 0) {
4671
                monitor_printf(mon, "\n");
4672
            }
4673
            monitor_flush(mon);
4674
            monitor_suspend(mon);
4675
        } else {
4676
            mon->suspend_cnt++;
4677
        }
4678
        mon->mux_out = 1;
4679
        break;
4680

    
4681
    case CHR_EVENT_OPENED:
4682
        monitor_printf(mon, "QEMU %s monitor - type 'help' for more "
4683
                       "information\n", QEMU_VERSION);
4684
        if (!mon->mux_out) {
4685
            readline_show_prompt(mon->rs);
4686
        }
4687
        mon->reset_seen = 1;
4688
        break;
4689
    }
4690
}
4691

    
4692

    
4693
/*
4694
 * Local variables:
4695
 *  c-indent-level: 4
4696
 *  c-basic-offset: 4
4697
 *  tab-width: 8
4698
 * End:
4699
 */
4700

    
4701
void monitor_init(CharDriverState *chr, int flags)
4702
{
4703
    static int is_first_init = 1;
4704
    Monitor *mon;
4705

    
4706
    if (is_first_init) {
4707
        key_timer = qemu_new_timer(vm_clock, release_keys, NULL);
4708
        is_first_init = 0;
4709
    }
4710

    
4711
    mon = qemu_mallocz(sizeof(*mon));
4712

    
4713
    mon->chr = chr;
4714
    mon->flags = flags;
4715
    if (flags & MONITOR_USE_READLINE) {
4716
        mon->rs = readline_init(mon, monitor_find_completion);
4717
        monitor_read_command(mon, 0);
4718
    }
4719

    
4720
    if (monitor_ctrl_mode(mon)) {
4721
        mon->mc = qemu_mallocz(sizeof(MonitorControl));
4722
        /* Control mode requires special handlers */
4723
        qemu_chr_add_handlers(chr, monitor_can_read, monitor_control_read,
4724
                              monitor_control_event, mon);
4725
    } else {
4726
        qemu_chr_add_handlers(chr, monitor_can_read, monitor_read,
4727
                              monitor_event, mon);
4728
    }
4729

    
4730
    QLIST_INSERT_HEAD(&mon_list, mon, entry);
4731
    if (!default_mon || (flags & MONITOR_IS_DEFAULT))
4732
        default_mon = mon;
4733
}
4734

    
4735
static void bdrv_password_cb(Monitor *mon, const char *password, void *opaque)
4736
{
4737
    BlockDriverState *bs = opaque;
4738
    int ret = 0;
4739

    
4740
    if (bdrv_set_key(bs, password) != 0) {
4741
        monitor_printf(mon, "invalid password\n");
4742
        ret = -EPERM;
4743
    }
4744
    if (mon->password_completion_cb)
4745
        mon->password_completion_cb(mon->password_opaque, ret);
4746

    
4747
    monitor_read_command(mon, 1);
4748
}
4749

    
4750
int monitor_read_bdrv_key_start(Monitor *mon, BlockDriverState *bs,
4751
                                BlockDriverCompletionFunc *completion_cb,
4752
                                void *opaque)
4753
{
4754
    int err;
4755

    
4756
    if (!bdrv_key_required(bs)) {
4757
        if (completion_cb)
4758
            completion_cb(opaque, 0);
4759
        return 0;
4760
    }
4761

    
4762
    if (monitor_ctrl_mode(mon)) {
4763
        qerror_report(QERR_DEVICE_ENCRYPTED, bdrv_get_device_name(bs));
4764
        return -1;
4765
    }
4766

    
4767
    monitor_printf(mon, "%s (%s) is encrypted.\n", bdrv_get_device_name(bs),
4768
                   bdrv_get_encrypted_filename(bs));
4769

    
4770
    mon->password_completion_cb = completion_cb;
4771
    mon->password_opaque = opaque;
4772

    
4773
    err = monitor_read_password(mon, bdrv_password_cb, bs);
4774

    
4775
    if (err && completion_cb)
4776
        completion_cb(opaque, err);
4777

    
4778
    return err;
4779
}