Statistics
| Branch: | Revision:

root / monitor.c @ 956f1a0d

History | View | Annotate | Download (100.8 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 "qemu-char.h"
36
#include "sysemu.h"
37
#include "monitor.h"
38
#include "readline.h"
39
#include "console.h"
40
#include "block.h"
41
#include "audio/audio.h"
42
#include "disas.h"
43
#include "balloon.h"
44
#include "qemu-timer.h"
45
#include "migration.h"
46
#include "kvm.h"
47
#include "acl.h"
48
#include "qint.h"
49
#include "qlist.h"
50
#include "qdict.h"
51
#include "qstring.h"
52
#include "qerror.h"
53
#include "qjson.h"
54

    
55
//#define DEBUG
56
//#define DEBUG_COMPLETION
57

    
58
/*
59
 * Supported types:
60
 *
61
 * 'F'          filename
62
 * 'B'          block device name
63
 * 's'          string (accept optional quote)
64
 * 'i'          32 bit integer
65
 * 'l'          target long (32 or 64 bit)
66
 * '/'          optional gdb-like print format (like "/10x")
67
 *
68
 * '?'          optional type (for all types, except '/')
69
 * '.'          other form of optional type (for 'i' and 'l')
70
 * '-'          optional parameter (eg. '-f')
71
 *
72
 */
73

    
74
typedef struct mon_cmd_t {
75
    const char *name;
76
    const char *args_type;
77
    const char *params;
78
    const char *help;
79
    void (*user_print)(Monitor *mon, const QObject *data);
80
    union {
81
        void (*info)(Monitor *mon);
82
        void (*info_new)(Monitor *mon, QObject **ret_data);
83
        void (*cmd)(Monitor *mon, const QDict *qdict);
84
        void (*cmd_new)(Monitor *mon, const QDict *params, QObject **ret_data);
85
    } mhandler;
86
} mon_cmd_t;
87

    
88
/* file descriptors passed via SCM_RIGHTS */
89
typedef struct mon_fd_t mon_fd_t;
90
struct mon_fd_t {
91
    char *name;
92
    int fd;
93
    QLIST_ENTRY(mon_fd_t) next;
94
};
95

    
96
struct Monitor {
97
    CharDriverState *chr;
98
    int mux_out;
99
    int reset_seen;
100
    int flags;
101
    int suspend_cnt;
102
    uint8_t outbuf[1024];
103
    int outbuf_index;
104
    ReadLineState *rs;
105
    CPUState *mon_cpu;
106
    BlockDriverCompletionFunc *password_completion_cb;
107
    void *password_opaque;
108
    QError *error;
109
    QLIST_HEAD(,mon_fd_t) fds;
110
    QLIST_ENTRY(Monitor) entry;
111
};
112

    
113
static QLIST_HEAD(mon_list, Monitor) mon_list;
114

    
115
static const mon_cmd_t mon_cmds[];
116
static const mon_cmd_t info_cmds[];
117

    
118
Monitor *cur_mon = NULL;
119

    
120
static void monitor_command_cb(Monitor *mon, const char *cmdline,
121
                               void *opaque);
122

    
123
/* Return true if in control mode, false otherwise */
124
static inline int monitor_ctrl_mode(const Monitor *mon)
125
{
126
    return (mon->flags & MONITOR_USE_CONTROL);
127
}
128

    
129
static void monitor_read_command(Monitor *mon, int show_prompt)
130
{
131
    readline_start(mon->rs, "(qemu) ", 0, monitor_command_cb, NULL);
132
    if (show_prompt)
133
        readline_show_prompt(mon->rs);
134
}
135

    
136
static int monitor_read_password(Monitor *mon, ReadLineFunc *readline_func,
137
                                 void *opaque)
138
{
139
    if (mon->rs) {
140
        readline_start(mon->rs, "Password: ", 1, readline_func, opaque);
141
        /* prompt is printed on return from the command handler */
142
        return 0;
143
    } else {
144
        monitor_printf(mon, "terminal does not support password prompting\n");
145
        return -ENOTTY;
146
    }
147
}
148

    
149
void monitor_flush(Monitor *mon)
150
{
151
    if (mon && mon->outbuf_index != 0 && !mon->mux_out) {
152
        qemu_chr_write(mon->chr, mon->outbuf, mon->outbuf_index);
153
        mon->outbuf_index = 0;
154
    }
155
}
156

    
157
/* flush at every end of line or if the buffer is full */
158
static void monitor_puts(Monitor *mon, const char *str)
159
{
160
    char c;
161

    
162
    if (!mon)
163
        return;
164

    
165
    for(;;) {
166
        c = *str++;
167
        if (c == '\0')
168
            break;
169
        if (c == '\n')
170
            mon->outbuf[mon->outbuf_index++] = '\r';
171
        mon->outbuf[mon->outbuf_index++] = c;
172
        if (mon->outbuf_index >= (sizeof(mon->outbuf) - 1)
173
            || c == '\n')
174
            monitor_flush(mon);
175
    }
176
}
177

    
178
void monitor_vprintf(Monitor *mon, const char *fmt, va_list ap)
179
{
180
    char buf[4096];
181
    vsnprintf(buf, sizeof(buf), fmt, ap);
182
    monitor_puts(mon, buf);
183
}
184

    
185
void monitor_printf(Monitor *mon, const char *fmt, ...)
186
{
187
    va_list ap;
188
    va_start(ap, fmt);
189
    monitor_vprintf(mon, fmt, ap);
190
    va_end(ap);
191
}
192

    
193
void monitor_print_filename(Monitor *mon, const char *filename)
194
{
195
    int i;
196

    
197
    for (i = 0; filename[i]; i++) {
198
        switch (filename[i]) {
199
        case ' ':
200
        case '"':
201
        case '\\':
202
            monitor_printf(mon, "\\%c", filename[i]);
203
            break;
204
        case '\t':
205
            monitor_printf(mon, "\\t");
206
            break;
207
        case '\r':
208
            monitor_printf(mon, "\\r");
209
            break;
210
        case '\n':
211
            monitor_printf(mon, "\\n");
212
            break;
213
        default:
214
            monitor_printf(mon, "%c", filename[i]);
215
            break;
216
        }
217
    }
218
}
219

    
220
static int monitor_fprintf(FILE *stream, const char *fmt, ...)
221
{
222
    va_list ap;
223
    va_start(ap, fmt);
224
    monitor_vprintf((Monitor *)stream, fmt, ap);
225
    va_end(ap);
226
    return 0;
227
}
228

    
229
static void monitor_user_noop(Monitor *mon, const QObject *data) { }
230

    
231
static inline int monitor_handler_ported(const mon_cmd_t *cmd)
232
{
233
    return cmd->user_print != NULL;
234
}
235

    
236
static inline int monitor_has_error(const Monitor *mon)
237
{
238
    return mon->error != NULL;
239
}
240

    
241
static void monitor_print_qobject(Monitor *mon, const QObject *data)
242
{
243
    switch (qobject_type(data)) {
244
        case QTYPE_QSTRING:
245
            monitor_printf(mon, "%s",qstring_get_str(qobject_to_qstring(data)));
246
            break;
247
        case QTYPE_QINT:
248
            monitor_printf(mon, "%" PRId64,qint_get_int(qobject_to_qint(data)));
249
            break;
250
        default:
251
            monitor_printf(mon, "ERROR: unsupported type: %d",
252
                                                        qobject_type(data));
253
            break;
254
    }
255

    
256
    monitor_puts(mon, "\n");
257
}
258

    
259
static void monitor_json_emitter(Monitor *mon, const QObject *data)
260
{
261
    QString *json;
262

    
263
    json = qobject_to_json(data);
264
    assert(json != NULL);
265

    
266
    monitor_printf(mon, "%s\n", qstring_get_str(json));
267
    QDECREF(json);
268
}
269

    
270
static void monitor_protocol_emitter(Monitor *mon, QObject *data)
271
{
272
    QDict *qmp;
273

    
274
    qmp = qdict_new();
275

    
276
    if (!monitor_has_error(mon)) {
277
        /* success response */
278
        if (data) {
279
            qobject_incref(data);
280
            qdict_put_obj(qmp, "return", data);
281
        } else {
282
            qdict_put(qmp, "return", qstring_from_str("OK"));
283
        }
284
    } else {
285
        /* error response */
286
        qdict_put(qmp, "error", mon->error->error);
287
        QINCREF(mon->error->error);
288
        QDECREF(mon->error);
289
        mon->error = NULL;
290
    }
291

    
292
    monitor_json_emitter(mon, QOBJECT(qmp));
293
    QDECREF(qmp);
294
}
295

    
296
static int compare_cmd(const char *name, const char *list)
297
{
298
    const char *p, *pstart;
299
    int len;
300
    len = strlen(name);
301
    p = list;
302
    for(;;) {
303
        pstart = p;
304
        p = strchr(p, '|');
305
        if (!p)
306
            p = pstart + strlen(pstart);
307
        if ((p - pstart) == len && !memcmp(pstart, name, len))
308
            return 1;
309
        if (*p == '\0')
310
            break;
311
        p++;
312
    }
313
    return 0;
314
}
315

    
316
static void help_cmd_dump(Monitor *mon, const mon_cmd_t *cmds,
317
                          const char *prefix, const char *name)
318
{
319
    const mon_cmd_t *cmd;
320

    
321
    for(cmd = cmds; cmd->name != NULL; cmd++) {
322
        if (!name || !strcmp(name, cmd->name))
323
            monitor_printf(mon, "%s%s %s -- %s\n", prefix, cmd->name,
324
                           cmd->params, cmd->help);
325
    }
326
}
327

    
328
static void help_cmd(Monitor *mon, const char *name)
329
{
330
    if (name && !strcmp(name, "info")) {
331
        help_cmd_dump(mon, info_cmds, "info ", NULL);
332
    } else {
333
        help_cmd_dump(mon, mon_cmds, "", name);
334
        if (name && !strcmp(name, "log")) {
335
            const CPULogItem *item;
336
            monitor_printf(mon, "Log items (comma separated):\n");
337
            monitor_printf(mon, "%-10s %s\n", "none", "remove all logs");
338
            for(item = cpu_log_items; item->mask != 0; item++) {
339
                monitor_printf(mon, "%-10s %s\n", item->name, item->help);
340
            }
341
        }
342
    }
343
}
344

    
345
static void do_help_cmd(Monitor *mon, const QDict *qdict)
346
{
347
    help_cmd(mon, qdict_get_try_str(qdict, "name"));
348
}
349

    
350
static void do_commit(Monitor *mon, const QDict *qdict)
351
{
352
    int all_devices;
353
    DriveInfo *dinfo;
354
    const char *device = qdict_get_str(qdict, "device");
355

    
356
    all_devices = !strcmp(device, "all");
357
    QTAILQ_FOREACH(dinfo, &drives, next) {
358
        if (!all_devices)
359
            if (strcmp(bdrv_get_device_name(dinfo->bdrv), device))
360
                continue;
361
        bdrv_commit(dinfo->bdrv);
362
    }
363
}
364

    
365
static void do_info(Monitor *mon, const QDict *qdict, QObject **ret_data)
366
{
367
    const mon_cmd_t *cmd;
368
    const char *item = qdict_get_try_str(qdict, "item");
369

    
370
    if (!item) {
371
        assert(monitor_ctrl_mode(mon) == 0);
372
        goto help;
373
    }
374

    
375
    for (cmd = info_cmds; cmd->name != NULL; cmd++) {
376
        if (compare_cmd(item, cmd->name))
377
            break;
378
    }
379

    
380
    if (cmd->name == NULL) {
381
        if (monitor_ctrl_mode(mon)) {
382
            qemu_error_new(QERR_COMMAND_NOT_FOUND, item);
383
            return;
384
        }
385
        goto help;
386
    }
387

    
388
    if (monitor_handler_ported(cmd)) {
389
        cmd->mhandler.info_new(mon, ret_data);
390

    
391
        if (!monitor_ctrl_mode(mon)) {
392
            /*
393
             * User Protocol function is called here, Monitor Protocol is
394
             * handled by monitor_call_handler()
395
             */
396
            if (*ret_data)
397
                cmd->user_print(mon, *ret_data);
398
        }
399
    } else {
400
        if (monitor_ctrl_mode(mon)) {
401
            /* handler not converted yet */
402
            qemu_error_new(QERR_COMMAND_NOT_FOUND, item);
403
        } else {
404
            cmd->mhandler.info(mon);
405
        }
406
    }
407

    
408
    return;
409

    
410
help:
411
    help_cmd(mon, "info");
412
}
413

    
414
/**
415
 * do_info_version(): Show QEMU version
416
 */
417
static void do_info_version(Monitor *mon, QObject **ret_data)
418
{
419
    *ret_data = QOBJECT(qstring_from_str(QEMU_VERSION QEMU_PKGVERSION));
420
}
421

    
422
static void do_info_name(Monitor *mon)
423
{
424
    if (qemu_name)
425
        monitor_printf(mon, "%s\n", qemu_name);
426
}
427

    
428
/**
429
 * do_info_commands(): List QMP available commands
430
 *
431
 * Return a QList of QStrings.
432
 */
433
static void do_info_commands(Monitor *mon, QObject **ret_data)
434
{
435
    QList *cmd_list;
436
    const mon_cmd_t *cmd;
437

    
438
    cmd_list = qlist_new();
439

    
440
    for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
441
        if (monitor_handler_ported(cmd) && !compare_cmd(cmd->name, "info")) {
442
            qlist_append(cmd_list, qstring_from_str(cmd->name));
443
        }
444
    }
445

    
446
    for (cmd = info_cmds; cmd->name != NULL; cmd++) {
447
        if (monitor_handler_ported(cmd)) {
448
            char buf[128];
449
            snprintf(buf, sizeof(buf), "query-%s", cmd->name);
450
            qlist_append(cmd_list, qstring_from_str(buf));
451
        }
452
    }
453

    
454
    *ret_data = QOBJECT(cmd_list);
455
}
456

    
457
#if defined(TARGET_I386)
458
static void do_info_hpet(Monitor *mon)
459
{
460
    monitor_printf(mon, "HPET is %s by QEMU\n",
461
                   (no_hpet) ? "disabled" : "enabled");
462
}
463
#endif
464

    
465
static void do_info_uuid(Monitor *mon)
466
{
467
    monitor_printf(mon, UUID_FMT "\n", qemu_uuid[0], qemu_uuid[1],
468
                   qemu_uuid[2], qemu_uuid[3], qemu_uuid[4], qemu_uuid[5],
469
                   qemu_uuid[6], qemu_uuid[7], qemu_uuid[8], qemu_uuid[9],
470
                   qemu_uuid[10], qemu_uuid[11], qemu_uuid[12], qemu_uuid[13],
471
                   qemu_uuid[14], qemu_uuid[15]);
472
}
473

    
474
/* get the current CPU defined by the user */
475
static int mon_set_cpu(int cpu_index)
476
{
477
    CPUState *env;
478

    
479
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
480
        if (env->cpu_index == cpu_index) {
481
            cur_mon->mon_cpu = env;
482
            return 0;
483
        }
484
    }
485
    return -1;
486
}
487

    
488
static CPUState *mon_get_cpu(void)
489
{
490
    if (!cur_mon->mon_cpu) {
491
        mon_set_cpu(0);
492
    }
493
    cpu_synchronize_state(cur_mon->mon_cpu);
494
    return cur_mon->mon_cpu;
495
}
496

    
497
static void do_info_registers(Monitor *mon)
498
{
499
    CPUState *env;
500
    env = mon_get_cpu();
501
    if (!env)
502
        return;
503
#ifdef TARGET_I386
504
    cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
505
                   X86_DUMP_FPU);
506
#else
507
    cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
508
                   0);
509
#endif
510
}
511

    
512
static void print_cpu_iter(QObject *obj, void *opaque)
513
{
514
    QDict *cpu;
515
    int active = ' ';
516
    Monitor *mon = opaque;
517

    
518
    assert(qobject_type(obj) == QTYPE_QDICT);
519
    cpu = qobject_to_qdict(obj);
520

    
521
    if (strcmp(qdict_get_str(cpu, "current"), "yes") == 0)
522
        active = '*';
523

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

    
526
#if defined(TARGET_I386)
527
    monitor_printf(mon, "pc=0x" TARGET_FMT_lx,
528
                   (target_ulong) qdict_get_int(cpu, "pc"));
529
#elif defined(TARGET_PPC)
530
    monitor_printf(mon, "nip=0x" TARGET_FMT_lx,
531
                   (target_long) qdict_get_int(cpu, "nip"));
532
#elif defined(TARGET_SPARC)
533
    monitor_printf(mon, "pc=0x " TARGET_FMT_lx,
534
                   (target_long) qdict_get_int(cpu, "pc"));
535
    monitor_printf(mon, "npc=0x" TARGET_FMT_lx,
536
                   (target_long) qdict_get_int(cpu, "npc"));
537
#elif defined(TARGET_MIPS)
538
    monitor_printf(mon, "PC=0x" TARGET_FMT_lx,
539
                   (target_long) qdict_get_int(cpu, "PC"));
540
#endif
541

    
542
    if (strcmp(qdict_get_str(cpu, "halted"), "yes") == 0)
543
        monitor_printf(mon, " (halted)");
544

    
545
    monitor_printf(mon, "\n");
546
}
547

    
548
static void monitor_print_cpus(Monitor *mon, const QObject *data)
549
{
550
    QList *cpu_list;
551

    
552
    assert(qobject_type(data) == QTYPE_QLIST);
553
    cpu_list = qobject_to_qlist(data);
554
    qlist_iter(cpu_list, print_cpu_iter, mon);
555
}
556

    
557
/**
558
 * do_info_cpus(): Show CPU information
559
 *
560
 * Return a QList with a QDict for each CPU.
561
 *
562
 * For example:
563
 *
564
 * [ { "CPU": 0, "current": "yes", "pc": 0x..., "halted": "no" },
565
 *   { "CPU": 1, "current": "no",  "pc": 0x..., "halted": "yes" } ]
566
 */
567
static void do_info_cpus(Monitor *mon, QObject **ret_data)
568
{
569
    CPUState *env;
570
    QList *cpu_list;
571

    
572
    cpu_list = qlist_new();
573

    
574
    /* just to set the default cpu if not already done */
575
    mon_get_cpu();
576

    
577
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
578
        const char *answer;
579
        QDict *cpu = qdict_new();
580

    
581
        cpu_synchronize_state(env);
582

    
583
        qdict_put(cpu, "CPU", qint_from_int(env->cpu_index));
584
        answer = (env == mon->mon_cpu) ? "yes" : "no";
585
        qdict_put(cpu, "current", qstring_from_str(answer));
586

    
587
#if defined(TARGET_I386)
588
        qdict_put(cpu, "pc", qint_from_int(env->eip + env->segs[R_CS].base));
589
#elif defined(TARGET_PPC)
590
        qdict_put(cpu, "nip", qint_from_int(env->nip));
591
#elif defined(TARGET_SPARC)
592
        qdict_put(cpu, "pc", qint_from_int(env->pc));
593
        qdict_put(cpu, "npc", qint_from_int(env->npc));
594
#elif defined(TARGET_MIPS)
595
        qdict_put(cpu, "PC", qint_from_int(env->active_tc.PC));
596
#endif
597
        answer = env->halted ? "yes" : "no";
598
        qdict_put(cpu, "halted", qstring_from_str(answer));
599

    
600
        qlist_append(cpu_list, cpu);
601
    }
602

    
603
    *ret_data = QOBJECT(cpu_list);
604
}
605

    
606
static void do_cpu_set(Monitor *mon, const QDict *qdict)
607
{
608
    int index = qdict_get_int(qdict, "index");
609
    if (mon_set_cpu(index) < 0)
610
        monitor_printf(mon, "Invalid CPU index\n");
611
}
612

    
613
static void do_info_jit(Monitor *mon)
614
{
615
    dump_exec_info((FILE *)mon, monitor_fprintf);
616
}
617

    
618
static void do_info_history(Monitor *mon)
619
{
620
    int i;
621
    const char *str;
622

    
623
    if (!mon->rs)
624
        return;
625
    i = 0;
626
    for(;;) {
627
        str = readline_get_history(mon->rs, i);
628
        if (!str)
629
            break;
630
        monitor_printf(mon, "%d: '%s'\n", i, str);
631
        i++;
632
    }
633
}
634

    
635
#if defined(TARGET_PPC)
636
/* XXX: not implemented in other targets */
637
static void do_info_cpu_stats(Monitor *mon)
638
{
639
    CPUState *env;
640

    
641
    env = mon_get_cpu();
642
    cpu_dump_statistics(env, (FILE *)mon, &monitor_fprintf, 0);
643
}
644
#endif
645

    
646
/**
647
 * do_quit(): Quit QEMU execution
648
 */
649
static void do_quit(Monitor *mon, const QDict *qdict, QObject **ret_data)
650
{
651
    exit(0);
652
}
653

    
654
static int eject_device(Monitor *mon, BlockDriverState *bs, int force)
655
{
656
    if (bdrv_is_inserted(bs)) {
657
        if (!force) {
658
            if (!bdrv_is_removable(bs)) {
659
                monitor_printf(mon, "device is not removable\n");
660
                return -1;
661
            }
662
            if (bdrv_is_locked(bs)) {
663
                monitor_printf(mon, "device is locked\n");
664
                return -1;
665
            }
666
        }
667
        bdrv_close(bs);
668
    }
669
    return 0;
670
}
671

    
672
static void do_eject(Monitor *mon, const QDict *qdict, QObject **ret_data)
673
{
674
    BlockDriverState *bs;
675
    int force = qdict_get_int(qdict, "force");
676
    const char *filename = qdict_get_str(qdict, "filename");
677

    
678
    bs = bdrv_find(filename);
679
    if (!bs) {
680
        monitor_printf(mon, "device not found\n");
681
        return;
682
    }
683
    eject_device(mon, bs, force);
684
}
685

    
686
static void do_change_block(Monitor *mon, const char *device,
687
                            const char *filename, const char *fmt)
688
{
689
    BlockDriverState *bs;
690
    BlockDriver *drv = NULL;
691

    
692
    bs = bdrv_find(device);
693
    if (!bs) {
694
        monitor_printf(mon, "device not found\n");
695
        return;
696
    }
697
    if (fmt) {
698
        drv = bdrv_find_whitelisted_format(fmt);
699
        if (!drv) {
700
            monitor_printf(mon, "invalid format %s\n", fmt);
701
            return;
702
        }
703
    }
704
    if (eject_device(mon, bs, 0) < 0)
705
        return;
706
    bdrv_open2(bs, filename, 0, drv);
707
    monitor_read_bdrv_key_start(mon, bs, NULL, NULL);
708
}
709

    
710
static void change_vnc_password_cb(Monitor *mon, const char *password,
711
                                   void *opaque)
712
{
713
    if (vnc_display_password(NULL, password) < 0)
714
        monitor_printf(mon, "could not set VNC server password\n");
715

    
716
    monitor_read_command(mon, 1);
717
}
718

    
719
static void do_change_vnc(Monitor *mon, const char *target, const char *arg)
720
{
721
    if (strcmp(target, "passwd") == 0 ||
722
        strcmp(target, "password") == 0) {
723
        if (arg) {
724
            char password[9];
725
            strncpy(password, arg, sizeof(password));
726
            password[sizeof(password) - 1] = '\0';
727
            change_vnc_password_cb(mon, password, NULL);
728
        } else {
729
            monitor_read_password(mon, change_vnc_password_cb, NULL);
730
        }
731
    } else {
732
        if (vnc_display_open(NULL, target) < 0)
733
            monitor_printf(mon, "could not start VNC server on %s\n", target);
734
    }
735
}
736

    
737
static void do_change(Monitor *mon, const QDict *qdict)
738
{
739
    const char *device = qdict_get_str(qdict, "device");
740
    const char *target = qdict_get_str(qdict, "target");
741
    const char *arg = qdict_get_try_str(qdict, "arg");
742
    if (strcmp(device, "vnc") == 0) {
743
        do_change_vnc(mon, target, arg);
744
    } else {
745
        do_change_block(mon, device, target, arg);
746
    }
747
}
748

    
749
static void do_screen_dump(Monitor *mon, const QDict *qdict)
750
{
751
    vga_hw_screen_dump(qdict_get_str(qdict, "filename"));
752
}
753

    
754
static void do_logfile(Monitor *mon, const QDict *qdict)
755
{
756
    cpu_set_log_filename(qdict_get_str(qdict, "filename"));
757
}
758

    
759
static void do_log(Monitor *mon, const QDict *qdict)
760
{
761
    int mask;
762
    const char *items = qdict_get_str(qdict, "items");
763

    
764
    if (!strcmp(items, "none")) {
765
        mask = 0;
766
    } else {
767
        mask = cpu_str_to_log_mask(items);
768
        if (!mask) {
769
            help_cmd(mon, "log");
770
            return;
771
        }
772
    }
773
    cpu_set_log(mask);
774
}
775

    
776
static void do_singlestep(Monitor *mon, const QDict *qdict)
777
{
778
    const char *option = qdict_get_try_str(qdict, "option");
779
    if (!option || !strcmp(option, "on")) {
780
        singlestep = 1;
781
    } else if (!strcmp(option, "off")) {
782
        singlestep = 0;
783
    } else {
784
        monitor_printf(mon, "unexpected option %s\n", option);
785
    }
786
}
787

    
788
/**
789
 * do_stop(): Stop VM execution
790
 */
791
static void do_stop(Monitor *mon, const QDict *qdict, QObject **ret_data)
792
{
793
    vm_stop(EXCP_INTERRUPT);
794
}
795

    
796
static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs);
797

    
798
struct bdrv_iterate_context {
799
    Monitor *mon;
800
    int err;
801
};
802

    
803
/**
804
 * do_cont(): Resume emulation.
805
 */
806
static void do_cont(Monitor *mon, const QDict *qdict, QObject **ret_data)
807
{
808
    struct bdrv_iterate_context context = { mon, 0 };
809

    
810
    bdrv_iterate(encrypted_bdrv_it, &context);
811
    /* only resume the vm if all keys are set and valid */
812
    if (!context.err)
813
        vm_start();
814
}
815

    
816
static void bdrv_key_cb(void *opaque, int err)
817
{
818
    Monitor *mon = opaque;
819

    
820
    /* another key was set successfully, retry to continue */
821
    if (!err)
822
        do_cont(mon, NULL, NULL);
823
}
824

    
825
static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs)
826
{
827
    struct bdrv_iterate_context *context = opaque;
828

    
829
    if (!context->err && bdrv_key_required(bs)) {
830
        context->err = -EBUSY;
831
        monitor_read_bdrv_key_start(context->mon, bs, bdrv_key_cb,
832
                                    context->mon);
833
    }
834
}
835

    
836
static void do_gdbserver(Monitor *mon, const QDict *qdict)
837
{
838
    const char *device = qdict_get_try_str(qdict, "device");
839
    if (!device)
840
        device = "tcp::" DEFAULT_GDBSTUB_PORT;
841
    if (gdbserver_start(device) < 0) {
842
        monitor_printf(mon, "Could not open gdbserver on device '%s'\n",
843
                       device);
844
    } else if (strcmp(device, "none") == 0) {
845
        monitor_printf(mon, "Disabled gdbserver\n");
846
    } else {
847
        monitor_printf(mon, "Waiting for gdb connection on device '%s'\n",
848
                       device);
849
    }
850
}
851

    
852
static void do_watchdog_action(Monitor *mon, const QDict *qdict)
853
{
854
    const char *action = qdict_get_str(qdict, "action");
855
    if (select_watchdog_action(action) == -1) {
856
        monitor_printf(mon, "Unknown watchdog action '%s'\n", action);
857
    }
858
}
859

    
860
static void monitor_printc(Monitor *mon, int c)
861
{
862
    monitor_printf(mon, "'");
863
    switch(c) {
864
    case '\'':
865
        monitor_printf(mon, "\\'");
866
        break;
867
    case '\\':
868
        monitor_printf(mon, "\\\\");
869
        break;
870
    case '\n':
871
        monitor_printf(mon, "\\n");
872
        break;
873
    case '\r':
874
        monitor_printf(mon, "\\r");
875
        break;
876
    default:
877
        if (c >= 32 && c <= 126) {
878
            monitor_printf(mon, "%c", c);
879
        } else {
880
            monitor_printf(mon, "\\x%02x", c);
881
        }
882
        break;
883
    }
884
    monitor_printf(mon, "'");
885
}
886

    
887
static void memory_dump(Monitor *mon, int count, int format, int wsize,
888
                        target_phys_addr_t addr, int is_physical)
889
{
890
    CPUState *env;
891
    int nb_per_line, l, line_size, i, max_digits, len;
892
    uint8_t buf[16];
893
    uint64_t v;
894

    
895
    if (format == 'i') {
896
        int flags;
897
        flags = 0;
898
        env = mon_get_cpu();
899
        if (!env && !is_physical)
900
            return;
901
#ifdef TARGET_I386
902
        if (wsize == 2) {
903
            flags = 1;
904
        } else if (wsize == 4) {
905
            flags = 0;
906
        } else {
907
            /* as default we use the current CS size */
908
            flags = 0;
909
            if (env) {
910
#ifdef TARGET_X86_64
911
                if ((env->efer & MSR_EFER_LMA) &&
912
                    (env->segs[R_CS].flags & DESC_L_MASK))
913
                    flags = 2;
914
                else
915
#endif
916
                if (!(env->segs[R_CS].flags & DESC_B_MASK))
917
                    flags = 1;
918
            }
919
        }
920
#endif
921
        monitor_disas(mon, env, addr, count, is_physical, flags);
922
        return;
923
    }
924

    
925
    len = wsize * count;
926
    if (wsize == 1)
927
        line_size = 8;
928
    else
929
        line_size = 16;
930
    nb_per_line = line_size / wsize;
931
    max_digits = 0;
932

    
933
    switch(format) {
934
    case 'o':
935
        max_digits = (wsize * 8 + 2) / 3;
936
        break;
937
    default:
938
    case 'x':
939
        max_digits = (wsize * 8) / 4;
940
        break;
941
    case 'u':
942
    case 'd':
943
        max_digits = (wsize * 8 * 10 + 32) / 33;
944
        break;
945
    case 'c':
946
        wsize = 1;
947
        break;
948
    }
949

    
950
    while (len > 0) {
951
        if (is_physical)
952
            monitor_printf(mon, TARGET_FMT_plx ":", addr);
953
        else
954
            monitor_printf(mon, TARGET_FMT_lx ":", (target_ulong)addr);
955
        l = len;
956
        if (l > line_size)
957
            l = line_size;
958
        if (is_physical) {
959
            cpu_physical_memory_rw(addr, buf, l, 0);
960
        } else {
961
            env = mon_get_cpu();
962
            if (!env)
963
                break;
964
            if (cpu_memory_rw_debug(env, addr, buf, l, 0) < 0) {
965
                monitor_printf(mon, " Cannot access memory\n");
966
                break;
967
            }
968
        }
969
        i = 0;
970
        while (i < l) {
971
            switch(wsize) {
972
            default:
973
            case 1:
974
                v = ldub_raw(buf + i);
975
                break;
976
            case 2:
977
                v = lduw_raw(buf + i);
978
                break;
979
            case 4:
980
                v = (uint32_t)ldl_raw(buf + i);
981
                break;
982
            case 8:
983
                v = ldq_raw(buf + i);
984
                break;
985
            }
986
            monitor_printf(mon, " ");
987
            switch(format) {
988
            case 'o':
989
                monitor_printf(mon, "%#*" PRIo64, max_digits, v);
990
                break;
991
            case 'x':
992
                monitor_printf(mon, "0x%0*" PRIx64, max_digits, v);
993
                break;
994
            case 'u':
995
                monitor_printf(mon, "%*" PRIu64, max_digits, v);
996
                break;
997
            case 'd':
998
                monitor_printf(mon, "%*" PRId64, max_digits, v);
999
                break;
1000
            case 'c':
1001
                monitor_printc(mon, v);
1002
                break;
1003
            }
1004
            i += wsize;
1005
        }
1006
        monitor_printf(mon, "\n");
1007
        addr += l;
1008
        len -= l;
1009
    }
1010
}
1011

    
1012
static void do_memory_dump(Monitor *mon, const QDict *qdict)
1013
{
1014
    int count = qdict_get_int(qdict, "count");
1015
    int format = qdict_get_int(qdict, "format");
1016
    int size = qdict_get_int(qdict, "size");
1017
    target_long addr = qdict_get_int(qdict, "addr");
1018

    
1019
    memory_dump(mon, count, format, size, addr, 0);
1020
}
1021

    
1022
static void do_physical_memory_dump(Monitor *mon, const QDict *qdict)
1023
{
1024
    int count = qdict_get_int(qdict, "count");
1025
    int format = qdict_get_int(qdict, "format");
1026
    int size = qdict_get_int(qdict, "size");
1027
    target_phys_addr_t addr = qdict_get_int(qdict, "addr");
1028

    
1029
    memory_dump(mon, count, format, size, addr, 1);
1030
}
1031

    
1032
static void do_print(Monitor *mon, const QDict *qdict)
1033
{
1034
    int format = qdict_get_int(qdict, "format");
1035
    target_phys_addr_t val = qdict_get_int(qdict, "val");
1036

    
1037
#if TARGET_PHYS_ADDR_BITS == 32
1038
    switch(format) {
1039
    case 'o':
1040
        monitor_printf(mon, "%#o", val);
1041
        break;
1042
    case 'x':
1043
        monitor_printf(mon, "%#x", val);
1044
        break;
1045
    case 'u':
1046
        monitor_printf(mon, "%u", val);
1047
        break;
1048
    default:
1049
    case 'd':
1050
        monitor_printf(mon, "%d", val);
1051
        break;
1052
    case 'c':
1053
        monitor_printc(mon, val);
1054
        break;
1055
    }
1056
#else
1057
    switch(format) {
1058
    case 'o':
1059
        monitor_printf(mon, "%#" PRIo64, val);
1060
        break;
1061
    case 'x':
1062
        monitor_printf(mon, "%#" PRIx64, val);
1063
        break;
1064
    case 'u':
1065
        monitor_printf(mon, "%" PRIu64, val);
1066
        break;
1067
    default:
1068
    case 'd':
1069
        monitor_printf(mon, "%" PRId64, val);
1070
        break;
1071
    case 'c':
1072
        monitor_printc(mon, val);
1073
        break;
1074
    }
1075
#endif
1076
    monitor_printf(mon, "\n");
1077
}
1078

    
1079
static void do_memory_save(Monitor *mon, const QDict *qdict, QObject **ret_data)
1080
{
1081
    FILE *f;
1082
    uint32_t size = qdict_get_int(qdict, "size");
1083
    const char *filename = qdict_get_str(qdict, "filename");
1084
    target_long addr = qdict_get_int(qdict, "val");
1085
    uint32_t l;
1086
    CPUState *env;
1087
    uint8_t buf[1024];
1088

    
1089
    env = mon_get_cpu();
1090
    if (!env)
1091
        return;
1092

    
1093
    f = fopen(filename, "wb");
1094
    if (!f) {
1095
        monitor_printf(mon, "could not open '%s'\n", filename);
1096
        return;
1097
    }
1098
    while (size != 0) {
1099
        l = sizeof(buf);
1100
        if (l > size)
1101
            l = size;
1102
        cpu_memory_rw_debug(env, addr, buf, l, 0);
1103
        fwrite(buf, 1, l, f);
1104
        addr += l;
1105
        size -= l;
1106
    }
1107
    fclose(f);
1108
}
1109

    
1110
static void do_physical_memory_save(Monitor *mon, const QDict *qdict,
1111
                                    QObject **ret_data)
1112
{
1113
    FILE *f;
1114
    uint32_t l;
1115
    uint8_t buf[1024];
1116
    uint32_t size = qdict_get_int(qdict, "size");
1117
    const char *filename = qdict_get_str(qdict, "filename");
1118
    target_phys_addr_t addr = qdict_get_int(qdict, "val");
1119

    
1120
    f = fopen(filename, "wb");
1121
    if (!f) {
1122
        monitor_printf(mon, "could not open '%s'\n", filename);
1123
        return;
1124
    }
1125
    while (size != 0) {
1126
        l = sizeof(buf);
1127
        if (l > size)
1128
            l = size;
1129
        cpu_physical_memory_rw(addr, buf, l, 0);
1130
        fwrite(buf, 1, l, f);
1131
        fflush(f);
1132
        addr += l;
1133
        size -= l;
1134
    }
1135
    fclose(f);
1136
}
1137

    
1138
static void do_sum(Monitor *mon, const QDict *qdict)
1139
{
1140
    uint32_t addr;
1141
    uint8_t buf[1];
1142
    uint16_t sum;
1143
    uint32_t start = qdict_get_int(qdict, "start");
1144
    uint32_t size = qdict_get_int(qdict, "size");
1145

    
1146
    sum = 0;
1147
    for(addr = start; addr < (start + size); addr++) {
1148
        cpu_physical_memory_rw(addr, buf, 1, 0);
1149
        /* BSD sum algorithm ('sum' Unix command) */
1150
        sum = (sum >> 1) | (sum << 15);
1151
        sum += buf[0];
1152
    }
1153
    monitor_printf(mon, "%05d\n", sum);
1154
}
1155

    
1156
typedef struct {
1157
    int keycode;
1158
    const char *name;
1159
} KeyDef;
1160

    
1161
static const KeyDef key_defs[] = {
1162
    { 0x2a, "shift" },
1163
    { 0x36, "shift_r" },
1164

    
1165
    { 0x38, "alt" },
1166
    { 0xb8, "alt_r" },
1167
    { 0x64, "altgr" },
1168
    { 0xe4, "altgr_r" },
1169
    { 0x1d, "ctrl" },
1170
    { 0x9d, "ctrl_r" },
1171

    
1172
    { 0xdd, "menu" },
1173

    
1174
    { 0x01, "esc" },
1175

    
1176
    { 0x02, "1" },
1177
    { 0x03, "2" },
1178
    { 0x04, "3" },
1179
    { 0x05, "4" },
1180
    { 0x06, "5" },
1181
    { 0x07, "6" },
1182
    { 0x08, "7" },
1183
    { 0x09, "8" },
1184
    { 0x0a, "9" },
1185
    { 0x0b, "0" },
1186
    { 0x0c, "minus" },
1187
    { 0x0d, "equal" },
1188
    { 0x0e, "backspace" },
1189

    
1190
    { 0x0f, "tab" },
1191
    { 0x10, "q" },
1192
    { 0x11, "w" },
1193
    { 0x12, "e" },
1194
    { 0x13, "r" },
1195
    { 0x14, "t" },
1196
    { 0x15, "y" },
1197
    { 0x16, "u" },
1198
    { 0x17, "i" },
1199
    { 0x18, "o" },
1200
    { 0x19, "p" },
1201

    
1202
    { 0x1c, "ret" },
1203

    
1204
    { 0x1e, "a" },
1205
    { 0x1f, "s" },
1206
    { 0x20, "d" },
1207
    { 0x21, "f" },
1208
    { 0x22, "g" },
1209
    { 0x23, "h" },
1210
    { 0x24, "j" },
1211
    { 0x25, "k" },
1212
    { 0x26, "l" },
1213

    
1214
    { 0x2c, "z" },
1215
    { 0x2d, "x" },
1216
    { 0x2e, "c" },
1217
    { 0x2f, "v" },
1218
    { 0x30, "b" },
1219
    { 0x31, "n" },
1220
    { 0x32, "m" },
1221
    { 0x33, "comma" },
1222
    { 0x34, "dot" },
1223
    { 0x35, "slash" },
1224

    
1225
    { 0x37, "asterisk" },
1226

    
1227
    { 0x39, "spc" },
1228
    { 0x3a, "caps_lock" },
1229
    { 0x3b, "f1" },
1230
    { 0x3c, "f2" },
1231
    { 0x3d, "f3" },
1232
    { 0x3e, "f4" },
1233
    { 0x3f, "f5" },
1234
    { 0x40, "f6" },
1235
    { 0x41, "f7" },
1236
    { 0x42, "f8" },
1237
    { 0x43, "f9" },
1238
    { 0x44, "f10" },
1239
    { 0x45, "num_lock" },
1240
    { 0x46, "scroll_lock" },
1241

    
1242
    { 0xb5, "kp_divide" },
1243
    { 0x37, "kp_multiply" },
1244
    { 0x4a, "kp_subtract" },
1245
    { 0x4e, "kp_add" },
1246
    { 0x9c, "kp_enter" },
1247
    { 0x53, "kp_decimal" },
1248
    { 0x54, "sysrq" },
1249

    
1250
    { 0x52, "kp_0" },
1251
    { 0x4f, "kp_1" },
1252
    { 0x50, "kp_2" },
1253
    { 0x51, "kp_3" },
1254
    { 0x4b, "kp_4" },
1255
    { 0x4c, "kp_5" },
1256
    { 0x4d, "kp_6" },
1257
    { 0x47, "kp_7" },
1258
    { 0x48, "kp_8" },
1259
    { 0x49, "kp_9" },
1260

    
1261
    { 0x56, "<" },
1262

    
1263
    { 0x57, "f11" },
1264
    { 0x58, "f12" },
1265

    
1266
    { 0xb7, "print" },
1267

    
1268
    { 0xc7, "home" },
1269
    { 0xc9, "pgup" },
1270
    { 0xd1, "pgdn" },
1271
    { 0xcf, "end" },
1272

    
1273
    { 0xcb, "left" },
1274
    { 0xc8, "up" },
1275
    { 0xd0, "down" },
1276
    { 0xcd, "right" },
1277

    
1278
    { 0xd2, "insert" },
1279
    { 0xd3, "delete" },
1280
#if defined(TARGET_SPARC) && !defined(TARGET_SPARC64)
1281
    { 0xf0, "stop" },
1282
    { 0xf1, "again" },
1283
    { 0xf2, "props" },
1284
    { 0xf3, "undo" },
1285
    { 0xf4, "front" },
1286
    { 0xf5, "copy" },
1287
    { 0xf6, "open" },
1288
    { 0xf7, "paste" },
1289
    { 0xf8, "find" },
1290
    { 0xf9, "cut" },
1291
    { 0xfa, "lf" },
1292
    { 0xfb, "help" },
1293
    { 0xfc, "meta_l" },
1294
    { 0xfd, "meta_r" },
1295
    { 0xfe, "compose" },
1296
#endif
1297
    { 0, NULL },
1298
};
1299

    
1300
static int get_keycode(const char *key)
1301
{
1302
    const KeyDef *p;
1303
    char *endp;
1304
    int ret;
1305

    
1306
    for(p = key_defs; p->name != NULL; p++) {
1307
        if (!strcmp(key, p->name))
1308
            return p->keycode;
1309
    }
1310
    if (strstart(key, "0x", NULL)) {
1311
        ret = strtoul(key, &endp, 0);
1312
        if (*endp == '\0' && ret >= 0x01 && ret <= 0xff)
1313
            return ret;
1314
    }
1315
    return -1;
1316
}
1317

    
1318
#define MAX_KEYCODES 16
1319
static uint8_t keycodes[MAX_KEYCODES];
1320
static int nb_pending_keycodes;
1321
static QEMUTimer *key_timer;
1322

    
1323
static void release_keys(void *opaque)
1324
{
1325
    int keycode;
1326

    
1327
    while (nb_pending_keycodes > 0) {
1328
        nb_pending_keycodes--;
1329
        keycode = keycodes[nb_pending_keycodes];
1330
        if (keycode & 0x80)
1331
            kbd_put_keycode(0xe0);
1332
        kbd_put_keycode(keycode | 0x80);
1333
    }
1334
}
1335

    
1336
static void do_sendkey(Monitor *mon, const QDict *qdict)
1337
{
1338
    char keyname_buf[16];
1339
    char *separator;
1340
    int keyname_len, keycode, i;
1341
    const char *string = qdict_get_str(qdict, "string");
1342
    int has_hold_time = qdict_haskey(qdict, "hold_time");
1343
    int hold_time = qdict_get_try_int(qdict, "hold_time", -1);
1344

    
1345
    if (nb_pending_keycodes > 0) {
1346
        qemu_del_timer(key_timer);
1347
        release_keys(NULL);
1348
    }
1349
    if (!has_hold_time)
1350
        hold_time = 100;
1351
    i = 0;
1352
    while (1) {
1353
        separator = strchr(string, '-');
1354
        keyname_len = separator ? separator - string : strlen(string);
1355
        if (keyname_len > 0) {
1356
            pstrcpy(keyname_buf, sizeof(keyname_buf), string);
1357
            if (keyname_len > sizeof(keyname_buf) - 1) {
1358
                monitor_printf(mon, "invalid key: '%s...'\n", keyname_buf);
1359
                return;
1360
            }
1361
            if (i == MAX_KEYCODES) {
1362
                monitor_printf(mon, "too many keys\n");
1363
                return;
1364
            }
1365
            keyname_buf[keyname_len] = 0;
1366
            keycode = get_keycode(keyname_buf);
1367
            if (keycode < 0) {
1368
                monitor_printf(mon, "unknown key: '%s'\n", keyname_buf);
1369
                return;
1370
            }
1371
            keycodes[i++] = keycode;
1372
        }
1373
        if (!separator)
1374
            break;
1375
        string = separator + 1;
1376
    }
1377
    nb_pending_keycodes = i;
1378
    /* key down events */
1379
    for (i = 0; i < nb_pending_keycodes; i++) {
1380
        keycode = keycodes[i];
1381
        if (keycode & 0x80)
1382
            kbd_put_keycode(0xe0);
1383
        kbd_put_keycode(keycode & 0x7f);
1384
    }
1385
    /* delayed key up events */
1386
    qemu_mod_timer(key_timer, qemu_get_clock(vm_clock) +
1387
                   muldiv64(get_ticks_per_sec(), hold_time, 1000));
1388
}
1389

    
1390
static int mouse_button_state;
1391

    
1392
static void do_mouse_move(Monitor *mon, const QDict *qdict)
1393
{
1394
    int dx, dy, dz;
1395
    const char *dx_str = qdict_get_str(qdict, "dx_str");
1396
    const char *dy_str = qdict_get_str(qdict, "dy_str");
1397
    const char *dz_str = qdict_get_try_str(qdict, "dz_str");
1398
    dx = strtol(dx_str, NULL, 0);
1399
    dy = strtol(dy_str, NULL, 0);
1400
    dz = 0;
1401
    if (dz_str)
1402
        dz = strtol(dz_str, NULL, 0);
1403
    kbd_mouse_event(dx, dy, dz, mouse_button_state);
1404
}
1405

    
1406
static void do_mouse_button(Monitor *mon, const QDict *qdict)
1407
{
1408
    int button_state = qdict_get_int(qdict, "button_state");
1409
    mouse_button_state = button_state;
1410
    kbd_mouse_event(0, 0, 0, mouse_button_state);
1411
}
1412

    
1413
static void do_ioport_read(Monitor *mon, const QDict *qdict)
1414
{
1415
    int size = qdict_get_int(qdict, "size");
1416
    int addr = qdict_get_int(qdict, "addr");
1417
    int has_index = qdict_haskey(qdict, "index");
1418
    uint32_t val;
1419
    int suffix;
1420

    
1421
    if (has_index) {
1422
        int index = qdict_get_int(qdict, "index");
1423
        cpu_outb(addr & IOPORTS_MASK, index & 0xff);
1424
        addr++;
1425
    }
1426
    addr &= 0xffff;
1427

    
1428
    switch(size) {
1429
    default:
1430
    case 1:
1431
        val = cpu_inb(addr);
1432
        suffix = 'b';
1433
        break;
1434
    case 2:
1435
        val = cpu_inw(addr);
1436
        suffix = 'w';
1437
        break;
1438
    case 4:
1439
        val = cpu_inl(addr);
1440
        suffix = 'l';
1441
        break;
1442
    }
1443
    monitor_printf(mon, "port%c[0x%04x] = %#0*x\n",
1444
                   suffix, addr, size * 2, val);
1445
}
1446

    
1447
static void do_ioport_write(Monitor *mon, const QDict *qdict)
1448
{
1449
    int size = qdict_get_int(qdict, "size");
1450
    int addr = qdict_get_int(qdict, "addr");
1451
    int val = qdict_get_int(qdict, "val");
1452

    
1453
    addr &= IOPORTS_MASK;
1454

    
1455
    switch (size) {
1456
    default:
1457
    case 1:
1458
        cpu_outb(addr, val);
1459
        break;
1460
    case 2:
1461
        cpu_outw(addr, val);
1462
        break;
1463
    case 4:
1464
        cpu_outl(addr, val);
1465
        break;
1466
    }
1467
}
1468

    
1469
static void do_boot_set(Monitor *mon, const QDict *qdict)
1470
{
1471
    int res;
1472
    const char *bootdevice = qdict_get_str(qdict, "bootdevice");
1473

    
1474
    res = qemu_boot_set(bootdevice);
1475
    if (res == 0) {
1476
        monitor_printf(mon, "boot device list now set to %s\n", bootdevice);
1477
    } else if (res > 0) {
1478
        monitor_printf(mon, "setting boot device list failed\n");
1479
    } else {
1480
        monitor_printf(mon, "no function defined to set boot device list for "
1481
                       "this architecture\n");
1482
    }
1483
}
1484

    
1485
/**
1486
 * do_system_reset(): Issue a machine reset
1487
 */
1488
static void do_system_reset(Monitor *mon, const QDict *qdict,
1489
                            QObject **ret_data)
1490
{
1491
    qemu_system_reset_request();
1492
}
1493

    
1494
/**
1495
 * do_system_powerdown(): Issue a machine powerdown
1496
 */
1497
static void do_system_powerdown(Monitor *mon, const QDict *qdict,
1498
                                QObject **ret_data)
1499
{
1500
    qemu_system_powerdown_request();
1501
}
1502

    
1503
#if defined(TARGET_I386)
1504
static void print_pte(Monitor *mon, uint32_t addr, uint32_t pte, uint32_t mask)
1505
{
1506
    monitor_printf(mon, "%08x: %08x %c%c%c%c%c%c%c%c\n",
1507
                   addr,
1508
                   pte & mask,
1509
                   pte & PG_GLOBAL_MASK ? 'G' : '-',
1510
                   pte & PG_PSE_MASK ? 'P' : '-',
1511
                   pte & PG_DIRTY_MASK ? 'D' : '-',
1512
                   pte & PG_ACCESSED_MASK ? 'A' : '-',
1513
                   pte & PG_PCD_MASK ? 'C' : '-',
1514
                   pte & PG_PWT_MASK ? 'T' : '-',
1515
                   pte & PG_USER_MASK ? 'U' : '-',
1516
                   pte & PG_RW_MASK ? 'W' : '-');
1517
}
1518

    
1519
static void tlb_info(Monitor *mon)
1520
{
1521
    CPUState *env;
1522
    int l1, l2;
1523
    uint32_t pgd, pde, pte;
1524

    
1525
    env = mon_get_cpu();
1526
    if (!env)
1527
        return;
1528

    
1529
    if (!(env->cr[0] & CR0_PG_MASK)) {
1530
        monitor_printf(mon, "PG disabled\n");
1531
        return;
1532
    }
1533
    pgd = env->cr[3] & ~0xfff;
1534
    for(l1 = 0; l1 < 1024; l1++) {
1535
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1536
        pde = le32_to_cpu(pde);
1537
        if (pde & PG_PRESENT_MASK) {
1538
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1539
                print_pte(mon, (l1 << 22), pde, ~((1 << 20) - 1));
1540
            } else {
1541
                for(l2 = 0; l2 < 1024; l2++) {
1542
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1543
                                             (uint8_t *)&pte, 4);
1544
                    pte = le32_to_cpu(pte);
1545
                    if (pte & PG_PRESENT_MASK) {
1546
                        print_pte(mon, (l1 << 22) + (l2 << 12),
1547
                                  pte & ~PG_PSE_MASK,
1548
                                  ~0xfff);
1549
                    }
1550
                }
1551
            }
1552
        }
1553
    }
1554
}
1555

    
1556
static void mem_print(Monitor *mon, uint32_t *pstart, int *plast_prot,
1557
                      uint32_t end, int prot)
1558
{
1559
    int prot1;
1560
    prot1 = *plast_prot;
1561
    if (prot != prot1) {
1562
        if (*pstart != -1) {
1563
            monitor_printf(mon, "%08x-%08x %08x %c%c%c\n",
1564
                           *pstart, end, end - *pstart,
1565
                           prot1 & PG_USER_MASK ? 'u' : '-',
1566
                           'r',
1567
                           prot1 & PG_RW_MASK ? 'w' : '-');
1568
        }
1569
        if (prot != 0)
1570
            *pstart = end;
1571
        else
1572
            *pstart = -1;
1573
        *plast_prot = prot;
1574
    }
1575
}
1576

    
1577
static void mem_info(Monitor *mon)
1578
{
1579
    CPUState *env;
1580
    int l1, l2, prot, last_prot;
1581
    uint32_t pgd, pde, pte, start, end;
1582

    
1583
    env = mon_get_cpu();
1584
    if (!env)
1585
        return;
1586

    
1587
    if (!(env->cr[0] & CR0_PG_MASK)) {
1588
        monitor_printf(mon, "PG disabled\n");
1589
        return;
1590
    }
1591
    pgd = env->cr[3] & ~0xfff;
1592
    last_prot = 0;
1593
    start = -1;
1594
    for(l1 = 0; l1 < 1024; l1++) {
1595
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1596
        pde = le32_to_cpu(pde);
1597
        end = l1 << 22;
1598
        if (pde & PG_PRESENT_MASK) {
1599
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1600
                prot = pde & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1601
                mem_print(mon, &start, &last_prot, end, prot);
1602
            } else {
1603
                for(l2 = 0; l2 < 1024; l2++) {
1604
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1605
                                             (uint8_t *)&pte, 4);
1606
                    pte = le32_to_cpu(pte);
1607
                    end = (l1 << 22) + (l2 << 12);
1608
                    if (pte & PG_PRESENT_MASK) {
1609
                        prot = pte & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1610
                    } else {
1611
                        prot = 0;
1612
                    }
1613
                    mem_print(mon, &start, &last_prot, end, prot);
1614
                }
1615
            }
1616
        } else {
1617
            prot = 0;
1618
            mem_print(mon, &start, &last_prot, end, prot);
1619
        }
1620
    }
1621
}
1622
#endif
1623

    
1624
#if defined(TARGET_SH4)
1625

    
1626
static void print_tlb(Monitor *mon, int idx, tlb_t *tlb)
1627
{
1628
    monitor_printf(mon, " tlb%i:\t"
1629
                   "asid=%hhu vpn=%x\tppn=%x\tsz=%hhu size=%u\t"
1630
                   "v=%hhu shared=%hhu cached=%hhu prot=%hhu "
1631
                   "dirty=%hhu writethrough=%hhu\n",
1632
                   idx,
1633
                   tlb->asid, tlb->vpn, tlb->ppn, tlb->sz, tlb->size,
1634
                   tlb->v, tlb->sh, tlb->c, tlb->pr,
1635
                   tlb->d, tlb->wt);
1636
}
1637

    
1638
static void tlb_info(Monitor *mon)
1639
{
1640
    CPUState *env = mon_get_cpu();
1641
    int i;
1642

    
1643
    monitor_printf (mon, "ITLB:\n");
1644
    for (i = 0 ; i < ITLB_SIZE ; i++)
1645
        print_tlb (mon, i, &env->itlb[i]);
1646
    monitor_printf (mon, "UTLB:\n");
1647
    for (i = 0 ; i < UTLB_SIZE ; i++)
1648
        print_tlb (mon, i, &env->utlb[i]);
1649
}
1650

    
1651
#endif
1652

    
1653
static void do_info_kvm(Monitor *mon)
1654
{
1655
#ifdef CONFIG_KVM
1656
    monitor_printf(mon, "kvm support: ");
1657
    if (kvm_enabled())
1658
        monitor_printf(mon, "enabled\n");
1659
    else
1660
        monitor_printf(mon, "disabled\n");
1661
#else
1662
    monitor_printf(mon, "kvm support: not compiled\n");
1663
#endif
1664
}
1665

    
1666
static void do_info_numa(Monitor *mon)
1667
{
1668
    int i;
1669
    CPUState *env;
1670

    
1671
    monitor_printf(mon, "%d nodes\n", nb_numa_nodes);
1672
    for (i = 0; i < nb_numa_nodes; i++) {
1673
        monitor_printf(mon, "node %d cpus:", i);
1674
        for (env = first_cpu; env != NULL; env = env->next_cpu) {
1675
            if (env->numa_node == i) {
1676
                monitor_printf(mon, " %d", env->cpu_index);
1677
            }
1678
        }
1679
        monitor_printf(mon, "\n");
1680
        monitor_printf(mon, "node %d size: %" PRId64 " MB\n", i,
1681
            node_mem[i] >> 20);
1682
    }
1683
}
1684

    
1685
#ifdef CONFIG_PROFILER
1686

    
1687
int64_t qemu_time;
1688
int64_t dev_time;
1689

    
1690
static void do_info_profile(Monitor *mon)
1691
{
1692
    int64_t total;
1693
    total = qemu_time;
1694
    if (total == 0)
1695
        total = 1;
1696
    monitor_printf(mon, "async time  %" PRId64 " (%0.3f)\n",
1697
                   dev_time, dev_time / (double)get_ticks_per_sec());
1698
    monitor_printf(mon, "qemu time   %" PRId64 " (%0.3f)\n",
1699
                   qemu_time, qemu_time / (double)get_ticks_per_sec());
1700
    qemu_time = 0;
1701
    dev_time = 0;
1702
}
1703
#else
1704
static void do_info_profile(Monitor *mon)
1705
{
1706
    monitor_printf(mon, "Internal profiler not compiled\n");
1707
}
1708
#endif
1709

    
1710
/* Capture support */
1711
static QLIST_HEAD (capture_list_head, CaptureState) capture_head;
1712

    
1713
static void do_info_capture(Monitor *mon)
1714
{
1715
    int i;
1716
    CaptureState *s;
1717

    
1718
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1719
        monitor_printf(mon, "[%d]: ", i);
1720
        s->ops.info (s->opaque);
1721
    }
1722
}
1723

    
1724
#ifdef HAS_AUDIO
1725
static void do_stop_capture(Monitor *mon, const QDict *qdict)
1726
{
1727
    int i;
1728
    int n = qdict_get_int(qdict, "n");
1729
    CaptureState *s;
1730

    
1731
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1732
        if (i == n) {
1733
            s->ops.destroy (s->opaque);
1734
            QLIST_REMOVE (s, entries);
1735
            qemu_free (s);
1736
            return;
1737
        }
1738
    }
1739
}
1740

    
1741
static void do_wav_capture(Monitor *mon, const QDict *qdict)
1742
{
1743
    const char *path = qdict_get_str(qdict, "path");
1744
    int has_freq = qdict_haskey(qdict, "freq");
1745
    int freq = qdict_get_try_int(qdict, "freq", -1);
1746
    int has_bits = qdict_haskey(qdict, "bits");
1747
    int bits = qdict_get_try_int(qdict, "bits", -1);
1748
    int has_channels = qdict_haskey(qdict, "nchannels");
1749
    int nchannels = qdict_get_try_int(qdict, "nchannels", -1);
1750
    CaptureState *s;
1751

    
1752
    s = qemu_mallocz (sizeof (*s));
1753

    
1754
    freq = has_freq ? freq : 44100;
1755
    bits = has_bits ? bits : 16;
1756
    nchannels = has_channels ? nchannels : 2;
1757

    
1758
    if (wav_start_capture (s, path, freq, bits, nchannels)) {
1759
        monitor_printf(mon, "Faied to add wave capture\n");
1760
        qemu_free (s);
1761
    }
1762
    QLIST_INSERT_HEAD (&capture_head, s, entries);
1763
}
1764
#endif
1765

    
1766
#if defined(TARGET_I386)
1767
static void do_inject_nmi(Monitor *mon, const QDict *qdict)
1768
{
1769
    CPUState *env;
1770
    int cpu_index = qdict_get_int(qdict, "cpu_index");
1771

    
1772
    for (env = first_cpu; env != NULL; env = env->next_cpu)
1773
        if (env->cpu_index == cpu_index) {
1774
            cpu_interrupt(env, CPU_INTERRUPT_NMI);
1775
            break;
1776
        }
1777
}
1778
#endif
1779

    
1780
static void do_info_status(Monitor *mon)
1781
{
1782
    if (vm_running) {
1783
        if (singlestep) {
1784
            monitor_printf(mon, "VM status: running (single step mode)\n");
1785
        } else {
1786
            monitor_printf(mon, "VM status: running\n");
1787
        }
1788
    } else
1789
       monitor_printf(mon, "VM status: paused\n");
1790
}
1791

    
1792
/**
1793
 * do_balloon(): Request VM to change its memory allocation
1794
 */
1795
static void do_balloon(Monitor *mon, const QDict *qdict, QObject **ret_data)
1796
{
1797
    int value = qdict_get_int(qdict, "value");
1798
    ram_addr_t target = value;
1799
    qemu_balloon(target << 20);
1800
}
1801

    
1802
static void monitor_print_balloon(Monitor *mon, const QObject *data)
1803
{
1804
    monitor_printf(mon, "balloon: actual=%d\n",
1805
                                     (int)qint_get_int(qobject_to_qint(data)));
1806
}
1807

    
1808
/**
1809
 * do_info_balloon(): Balloon information
1810
 */
1811
static void do_info_balloon(Monitor *mon, QObject **ret_data)
1812
{
1813
    ram_addr_t actual;
1814

    
1815
    actual = qemu_balloon_status();
1816
    if (kvm_enabled() && !kvm_has_sync_mmu())
1817
        qemu_error_new(QERR_KVM_MISSING_CAP, "synchronous MMU", "balloon");
1818
    else if (actual == 0)
1819
        qemu_error_new(QERR_DEVICE_NOT_ACTIVE, "balloon");
1820
    else
1821
        *ret_data = QOBJECT(qint_from_int((int)(actual >> 20)));
1822
}
1823

    
1824
static qemu_acl *find_acl(Monitor *mon, const char *name)
1825
{
1826
    qemu_acl *acl = qemu_acl_find(name);
1827

    
1828
    if (!acl) {
1829
        monitor_printf(mon, "acl: unknown list '%s'\n", name);
1830
    }
1831
    return acl;
1832
}
1833

    
1834
static void do_acl_show(Monitor *mon, const QDict *qdict)
1835
{
1836
    const char *aclname = qdict_get_str(qdict, "aclname");
1837
    qemu_acl *acl = find_acl(mon, aclname);
1838
    qemu_acl_entry *entry;
1839
    int i = 0;
1840

    
1841
    if (acl) {
1842
        monitor_printf(mon, "policy: %s\n",
1843
                       acl->defaultDeny ? "deny" : "allow");
1844
        QTAILQ_FOREACH(entry, &acl->entries, next) {
1845
            i++;
1846
            monitor_printf(mon, "%d: %s %s\n", i,
1847
                           entry->deny ? "deny" : "allow", entry->match);
1848
        }
1849
    }
1850
}
1851

    
1852
static void do_acl_reset(Monitor *mon, const QDict *qdict)
1853
{
1854
    const char *aclname = qdict_get_str(qdict, "aclname");
1855
    qemu_acl *acl = find_acl(mon, aclname);
1856

    
1857
    if (acl) {
1858
        qemu_acl_reset(acl);
1859
        monitor_printf(mon, "acl: removed all rules\n");
1860
    }
1861
}
1862

    
1863
static void do_acl_policy(Monitor *mon, const QDict *qdict)
1864
{
1865
    const char *aclname = qdict_get_str(qdict, "aclname");
1866
    const char *policy = qdict_get_str(qdict, "policy");
1867
    qemu_acl *acl = find_acl(mon, aclname);
1868

    
1869
    if (acl) {
1870
        if (strcmp(policy, "allow") == 0) {
1871
            acl->defaultDeny = 0;
1872
            monitor_printf(mon, "acl: policy set to 'allow'\n");
1873
        } else if (strcmp(policy, "deny") == 0) {
1874
            acl->defaultDeny = 1;
1875
            monitor_printf(mon, "acl: policy set to 'deny'\n");
1876
        } else {
1877
            monitor_printf(mon, "acl: unknown policy '%s', "
1878
                           "expected 'deny' or 'allow'\n", policy);
1879
        }
1880
    }
1881
}
1882

    
1883
static void do_acl_add(Monitor *mon, const QDict *qdict)
1884
{
1885
    const char *aclname = qdict_get_str(qdict, "aclname");
1886
    const char *match = qdict_get_str(qdict, "match");
1887
    const char *policy = qdict_get_str(qdict, "policy");
1888
    int has_index = qdict_haskey(qdict, "index");
1889
    int index = qdict_get_try_int(qdict, "index", -1);
1890
    qemu_acl *acl = find_acl(mon, aclname);
1891
    int deny, ret;
1892

    
1893
    if (acl) {
1894
        if (strcmp(policy, "allow") == 0) {
1895
            deny = 0;
1896
        } else if (strcmp(policy, "deny") == 0) {
1897
            deny = 1;
1898
        } else {
1899
            monitor_printf(mon, "acl: unknown policy '%s', "
1900
                           "expected 'deny' or 'allow'\n", policy);
1901
            return;
1902
        }
1903
        if (has_index)
1904
            ret = qemu_acl_insert(acl, deny, match, index);
1905
        else
1906
            ret = qemu_acl_append(acl, deny, match);
1907
        if (ret < 0)
1908
            monitor_printf(mon, "acl: unable to add acl entry\n");
1909
        else
1910
            monitor_printf(mon, "acl: added rule at position %d\n", ret);
1911
    }
1912
}
1913

    
1914
static void do_acl_remove(Monitor *mon, const QDict *qdict)
1915
{
1916
    const char *aclname = qdict_get_str(qdict, "aclname");
1917
    const char *match = qdict_get_str(qdict, "match");
1918
    qemu_acl *acl = find_acl(mon, aclname);
1919
    int ret;
1920

    
1921
    if (acl) {
1922
        ret = qemu_acl_remove(acl, match);
1923
        if (ret < 0)
1924
            monitor_printf(mon, "acl: no matching acl entry\n");
1925
        else
1926
            monitor_printf(mon, "acl: removed rule at position %d\n", ret);
1927
    }
1928
}
1929

    
1930
#if defined(TARGET_I386)
1931
static void do_inject_mce(Monitor *mon, const QDict *qdict)
1932
{
1933
    CPUState *cenv;
1934
    int cpu_index = qdict_get_int(qdict, "cpu_index");
1935
    int bank = qdict_get_int(qdict, "bank");
1936
    uint64_t status = qdict_get_int(qdict, "status");
1937
    uint64_t mcg_status = qdict_get_int(qdict, "mcg_status");
1938
    uint64_t addr = qdict_get_int(qdict, "addr");
1939
    uint64_t misc = qdict_get_int(qdict, "misc");
1940

    
1941
    for (cenv = first_cpu; cenv != NULL; cenv = cenv->next_cpu)
1942
        if (cenv->cpu_index == cpu_index && cenv->mcg_cap) {
1943
            cpu_inject_x86_mce(cenv, bank, status, mcg_status, addr, misc);
1944
            break;
1945
        }
1946
}
1947
#endif
1948

    
1949
static void do_getfd(Monitor *mon, const QDict *qdict, QObject **ret_data)
1950
{
1951
    const char *fdname = qdict_get_str(qdict, "fdname");
1952
    mon_fd_t *monfd;
1953
    int fd;
1954

    
1955
    fd = qemu_chr_get_msgfd(mon->chr);
1956
    if (fd == -1) {
1957
        monitor_printf(mon, "getfd: no file descriptor supplied via SCM_RIGHTS\n");
1958
        return;
1959
    }
1960

    
1961
    if (qemu_isdigit(fdname[0])) {
1962
        monitor_printf(mon, "getfd: monitor names may not begin with a number\n");
1963
        return;
1964
    }
1965

    
1966
    fd = dup(fd);
1967
    if (fd == -1) {
1968
        monitor_printf(mon, "Failed to dup() file descriptor: %s\n",
1969
                       strerror(errno));
1970
        return;
1971
    }
1972

    
1973
    QLIST_FOREACH(monfd, &mon->fds, next) {
1974
        if (strcmp(monfd->name, fdname) != 0) {
1975
            continue;
1976
        }
1977

    
1978
        close(monfd->fd);
1979
        monfd->fd = fd;
1980
        return;
1981
    }
1982

    
1983
    monfd = qemu_mallocz(sizeof(mon_fd_t));
1984
    monfd->name = qemu_strdup(fdname);
1985
    monfd->fd = fd;
1986

    
1987
    QLIST_INSERT_HEAD(&mon->fds, monfd, next);
1988
}
1989

    
1990
static void do_closefd(Monitor *mon, const QDict *qdict, QObject **ret_data)
1991
{
1992
    const char *fdname = qdict_get_str(qdict, "fdname");
1993
    mon_fd_t *monfd;
1994

    
1995
    QLIST_FOREACH(monfd, &mon->fds, next) {
1996
        if (strcmp(monfd->name, fdname) != 0) {
1997
            continue;
1998
        }
1999

    
2000
        QLIST_REMOVE(monfd, next);
2001
        close(monfd->fd);
2002
        qemu_free(monfd->name);
2003
        qemu_free(monfd);
2004
        return;
2005
    }
2006

    
2007
    monitor_printf(mon, "Failed to find file descriptor named %s\n",
2008
                   fdname);
2009
}
2010

    
2011
static void do_loadvm(Monitor *mon, const QDict *qdict)
2012
{
2013
    int saved_vm_running  = vm_running;
2014
    const char *name = qdict_get_str(qdict, "name");
2015

    
2016
    vm_stop(0);
2017

    
2018
    if (load_vmstate(mon, name) >= 0 && saved_vm_running)
2019
        vm_start();
2020
}
2021

    
2022
int monitor_get_fd(Monitor *mon, const char *fdname)
2023
{
2024
    mon_fd_t *monfd;
2025

    
2026
    QLIST_FOREACH(monfd, &mon->fds, next) {
2027
        int fd;
2028

    
2029
        if (strcmp(monfd->name, fdname) != 0) {
2030
            continue;
2031
        }
2032

    
2033
        fd = monfd->fd;
2034

    
2035
        /* caller takes ownership of fd */
2036
        QLIST_REMOVE(monfd, next);
2037
        qemu_free(monfd->name);
2038
        qemu_free(monfd);
2039

    
2040
        return fd;
2041
    }
2042

    
2043
    return -1;
2044
}
2045

    
2046
static const mon_cmd_t mon_cmds[] = {
2047
#include "qemu-monitor.h"
2048
    { NULL, NULL, },
2049
};
2050

    
2051
/* Please update qemu-monitor.hx when adding or changing commands */
2052
static const mon_cmd_t info_cmds[] = {
2053
    {
2054
        .name       = "version",
2055
        .args_type  = "",
2056
        .params     = "",
2057
        .help       = "show the version of QEMU",
2058
        .user_print = monitor_print_qobject,
2059
        .mhandler.info_new = do_info_version,
2060
    },
2061
    {
2062
        .name       = "commands",
2063
        .args_type  = "",
2064
        .params     = "",
2065
        .help       = "list QMP available commands",
2066
        .user_print = monitor_user_noop,
2067
        .mhandler.info_new = do_info_commands,
2068
    },
2069
    {
2070
        .name       = "network",
2071
        .args_type  = "",
2072
        .params     = "",
2073
        .help       = "show the network state",
2074
        .mhandler.info = do_info_network,
2075
    },
2076
    {
2077
        .name       = "chardev",
2078
        .args_type  = "",
2079
        .params     = "",
2080
        .help       = "show the character devices",
2081
        .mhandler.info = qemu_chr_info,
2082
    },
2083
    {
2084
        .name       = "block",
2085
        .args_type  = "",
2086
        .params     = "",
2087
        .help       = "show the block devices",
2088
        .mhandler.info = bdrv_info,
2089
    },
2090
    {
2091
        .name       = "blockstats",
2092
        .args_type  = "",
2093
        .params     = "",
2094
        .help       = "show block device statistics",
2095
        .mhandler.info = bdrv_info_stats,
2096
    },
2097
    {
2098
        .name       = "registers",
2099
        .args_type  = "",
2100
        .params     = "",
2101
        .help       = "show the cpu registers",
2102
        .mhandler.info = do_info_registers,
2103
    },
2104
    {
2105
        .name       = "cpus",
2106
        .args_type  = "",
2107
        .params     = "",
2108
        .help       = "show infos for each CPU",
2109
        .user_print = monitor_print_cpus,
2110
        .mhandler.info_new = do_info_cpus,
2111
    },
2112
    {
2113
        .name       = "history",
2114
        .args_type  = "",
2115
        .params     = "",
2116
        .help       = "show the command line history",
2117
        .mhandler.info = do_info_history,
2118
    },
2119
    {
2120
        .name       = "irq",
2121
        .args_type  = "",
2122
        .params     = "",
2123
        .help       = "show the interrupts statistics (if available)",
2124
        .mhandler.info = irq_info,
2125
    },
2126
    {
2127
        .name       = "pic",
2128
        .args_type  = "",
2129
        .params     = "",
2130
        .help       = "show i8259 (PIC) state",
2131
        .mhandler.info = pic_info,
2132
    },
2133
    {
2134
        .name       = "pci",
2135
        .args_type  = "",
2136
        .params     = "",
2137
        .help       = "show PCI info",
2138
        .mhandler.info = pci_info,
2139
    },
2140
#if defined(TARGET_I386) || defined(TARGET_SH4)
2141
    {
2142
        .name       = "tlb",
2143
        .args_type  = "",
2144
        .params     = "",
2145
        .help       = "show virtual to physical memory mappings",
2146
        .mhandler.info = tlb_info,
2147
    },
2148
#endif
2149
#if defined(TARGET_I386)
2150
    {
2151
        .name       = "mem",
2152
        .args_type  = "",
2153
        .params     = "",
2154
        .help       = "show the active virtual memory mappings",
2155
        .mhandler.info = mem_info,
2156
    },
2157
    {
2158
        .name       = "hpet",
2159
        .args_type  = "",
2160
        .params     = "",
2161
        .help       = "show state of HPET",
2162
        .mhandler.info = do_info_hpet,
2163
    },
2164
#endif
2165
    {
2166
        .name       = "jit",
2167
        .args_type  = "",
2168
        .params     = "",
2169
        .help       = "show dynamic compiler info",
2170
        .mhandler.info = do_info_jit,
2171
    },
2172
    {
2173
        .name       = "kvm",
2174
        .args_type  = "",
2175
        .params     = "",
2176
        .help       = "show KVM information",
2177
        .mhandler.info = do_info_kvm,
2178
    },
2179
    {
2180
        .name       = "numa",
2181
        .args_type  = "",
2182
        .params     = "",
2183
        .help       = "show NUMA information",
2184
        .mhandler.info = do_info_numa,
2185
    },
2186
    {
2187
        .name       = "usb",
2188
        .args_type  = "",
2189
        .params     = "",
2190
        .help       = "show guest USB devices",
2191
        .mhandler.info = usb_info,
2192
    },
2193
    {
2194
        .name       = "usbhost",
2195
        .args_type  = "",
2196
        .params     = "",
2197
        .help       = "show host USB devices",
2198
        .mhandler.info = usb_host_info,
2199
    },
2200
    {
2201
        .name       = "profile",
2202
        .args_type  = "",
2203
        .params     = "",
2204
        .help       = "show profiling information",
2205
        .mhandler.info = do_info_profile,
2206
    },
2207
    {
2208
        .name       = "capture",
2209
        .args_type  = "",
2210
        .params     = "",
2211
        .help       = "show capture information",
2212
        .mhandler.info = do_info_capture,
2213
    },
2214
    {
2215
        .name       = "snapshots",
2216
        .args_type  = "",
2217
        .params     = "",
2218
        .help       = "show the currently saved VM snapshots",
2219
        .mhandler.info = do_info_snapshots,
2220
    },
2221
    {
2222
        .name       = "status",
2223
        .args_type  = "",
2224
        .params     = "",
2225
        .help       = "show the current VM status (running|paused)",
2226
        .mhandler.info = do_info_status,
2227
    },
2228
    {
2229
        .name       = "pcmcia",
2230
        .args_type  = "",
2231
        .params     = "",
2232
        .help       = "show guest PCMCIA status",
2233
        .mhandler.info = pcmcia_info,
2234
    },
2235
    {
2236
        .name       = "mice",
2237
        .args_type  = "",
2238
        .params     = "",
2239
        .help       = "show which guest mouse is receiving events",
2240
        .mhandler.info = do_info_mice,
2241
    },
2242
    {
2243
        .name       = "vnc",
2244
        .args_type  = "",
2245
        .params     = "",
2246
        .help       = "show the vnc server status",
2247
        .mhandler.info = do_info_vnc,
2248
    },
2249
    {
2250
        .name       = "name",
2251
        .args_type  = "",
2252
        .params     = "",
2253
        .help       = "show the current VM name",
2254
        .mhandler.info = do_info_name,
2255
    },
2256
    {
2257
        .name       = "uuid",
2258
        .args_type  = "",
2259
        .params     = "",
2260
        .help       = "show the current VM UUID",
2261
        .mhandler.info = do_info_uuid,
2262
    },
2263
#if defined(TARGET_PPC)
2264
    {
2265
        .name       = "cpustats",
2266
        .args_type  = "",
2267
        .params     = "",
2268
        .help       = "show CPU statistics",
2269
        .mhandler.info = do_info_cpu_stats,
2270
    },
2271
#endif
2272
#if defined(CONFIG_SLIRP)
2273
    {
2274
        .name       = "usernet",
2275
        .args_type  = "",
2276
        .params     = "",
2277
        .help       = "show user network stack connection states",
2278
        .mhandler.info = do_info_usernet,
2279
    },
2280
#endif
2281
    {
2282
        .name       = "migrate",
2283
        .args_type  = "",
2284
        .params     = "",
2285
        .help       = "show migration status",
2286
        .mhandler.info = do_info_migrate,
2287
    },
2288
    {
2289
        .name       = "balloon",
2290
        .args_type  = "",
2291
        .params     = "",
2292
        .help       = "show balloon information",
2293
        .user_print = monitor_print_balloon,
2294
        .mhandler.info_new = do_info_balloon,
2295
    },
2296
    {
2297
        .name       = "qtree",
2298
        .args_type  = "",
2299
        .params     = "",
2300
        .help       = "show device tree",
2301
        .mhandler.info = do_info_qtree,
2302
    },
2303
    {
2304
        .name       = "qdm",
2305
        .args_type  = "",
2306
        .params     = "",
2307
        .help       = "show qdev device model list",
2308
        .mhandler.info = do_info_qdm,
2309
    },
2310
    {
2311
        .name       = "roms",
2312
        .args_type  = "",
2313
        .params     = "",
2314
        .help       = "show roms",
2315
        .mhandler.info = do_info_roms,
2316
    },
2317
    {
2318
        .name       = NULL,
2319
    },
2320
};
2321

    
2322
/*******************************************************************/
2323

    
2324
static const char *pch;
2325
static jmp_buf expr_env;
2326

    
2327
#define MD_TLONG 0
2328
#define MD_I32   1
2329

    
2330
typedef struct MonitorDef {
2331
    const char *name;
2332
    int offset;
2333
    target_long (*get_value)(const struct MonitorDef *md, int val);
2334
    int type;
2335
} MonitorDef;
2336

    
2337
#if defined(TARGET_I386)
2338
static target_long monitor_get_pc (const struct MonitorDef *md, int val)
2339
{
2340
    CPUState *env = mon_get_cpu();
2341
    if (!env)
2342
        return 0;
2343
    return env->eip + env->segs[R_CS].base;
2344
}
2345
#endif
2346

    
2347
#if defined(TARGET_PPC)
2348
static target_long monitor_get_ccr (const struct MonitorDef *md, int val)
2349
{
2350
    CPUState *env = mon_get_cpu();
2351
    unsigned int u;
2352
    int i;
2353

    
2354
    if (!env)
2355
        return 0;
2356

    
2357
    u = 0;
2358
    for (i = 0; i < 8; i++)
2359
        u |= env->crf[i] << (32 - (4 * i));
2360

    
2361
    return u;
2362
}
2363

    
2364
static target_long monitor_get_msr (const struct MonitorDef *md, int val)
2365
{
2366
    CPUState *env = mon_get_cpu();
2367
    if (!env)
2368
        return 0;
2369
    return env->msr;
2370
}
2371

    
2372
static target_long monitor_get_xer (const struct MonitorDef *md, int val)
2373
{
2374
    CPUState *env = mon_get_cpu();
2375
    if (!env)
2376
        return 0;
2377
    return env->xer;
2378
}
2379

    
2380
static target_long monitor_get_decr (const struct MonitorDef *md, int val)
2381
{
2382
    CPUState *env = mon_get_cpu();
2383
    if (!env)
2384
        return 0;
2385
    return cpu_ppc_load_decr(env);
2386
}
2387

    
2388
static target_long monitor_get_tbu (const struct MonitorDef *md, int val)
2389
{
2390
    CPUState *env = mon_get_cpu();
2391
    if (!env)
2392
        return 0;
2393
    return cpu_ppc_load_tbu(env);
2394
}
2395

    
2396
static target_long monitor_get_tbl (const struct MonitorDef *md, int val)
2397
{
2398
    CPUState *env = mon_get_cpu();
2399
    if (!env)
2400
        return 0;
2401
    return cpu_ppc_load_tbl(env);
2402
}
2403
#endif
2404

    
2405
#if defined(TARGET_SPARC)
2406
#ifndef TARGET_SPARC64
2407
static target_long monitor_get_psr (const struct MonitorDef *md, int val)
2408
{
2409
    CPUState *env = mon_get_cpu();
2410
    if (!env)
2411
        return 0;
2412
    return GET_PSR(env);
2413
}
2414
#endif
2415

    
2416
static target_long monitor_get_reg(const struct MonitorDef *md, int val)
2417
{
2418
    CPUState *env = mon_get_cpu();
2419
    if (!env)
2420
        return 0;
2421
    return env->regwptr[val];
2422
}
2423
#endif
2424

    
2425
static const MonitorDef monitor_defs[] = {
2426
#ifdef TARGET_I386
2427

    
2428
#define SEG(name, seg) \
2429
    { name, offsetof(CPUState, segs[seg].selector), NULL, MD_I32 },\
2430
    { name ".base", offsetof(CPUState, segs[seg].base) },\
2431
    { name ".limit", offsetof(CPUState, segs[seg].limit), NULL, MD_I32 },
2432

    
2433
    { "eax", offsetof(CPUState, regs[0]) },
2434
    { "ecx", offsetof(CPUState, regs[1]) },
2435
    { "edx", offsetof(CPUState, regs[2]) },
2436
    { "ebx", offsetof(CPUState, regs[3]) },
2437
    { "esp|sp", offsetof(CPUState, regs[4]) },
2438
    { "ebp|fp", offsetof(CPUState, regs[5]) },
2439
    { "esi", offsetof(CPUState, regs[6]) },
2440
    { "edi", offsetof(CPUState, regs[7]) },
2441
#ifdef TARGET_X86_64
2442
    { "r8", offsetof(CPUState, regs[8]) },
2443
    { "r9", offsetof(CPUState, regs[9]) },
2444
    { "r10", offsetof(CPUState, regs[10]) },
2445
    { "r11", offsetof(CPUState, regs[11]) },
2446
    { "r12", offsetof(CPUState, regs[12]) },
2447
    { "r13", offsetof(CPUState, regs[13]) },
2448
    { "r14", offsetof(CPUState, regs[14]) },
2449
    { "r15", offsetof(CPUState, regs[15]) },
2450
#endif
2451
    { "eflags", offsetof(CPUState, eflags) },
2452
    { "eip", offsetof(CPUState, eip) },
2453
    SEG("cs", R_CS)
2454
    SEG("ds", R_DS)
2455
    SEG("es", R_ES)
2456
    SEG("ss", R_SS)
2457
    SEG("fs", R_FS)
2458
    SEG("gs", R_GS)
2459
    { "pc", 0, monitor_get_pc, },
2460
#elif defined(TARGET_PPC)
2461
    /* General purpose registers */
2462
    { "r0", offsetof(CPUState, gpr[0]) },
2463
    { "r1", offsetof(CPUState, gpr[1]) },
2464
    { "r2", offsetof(CPUState, gpr[2]) },
2465
    { "r3", offsetof(CPUState, gpr[3]) },
2466
    { "r4", offsetof(CPUState, gpr[4]) },
2467
    { "r5", offsetof(CPUState, gpr[5]) },
2468
    { "r6", offsetof(CPUState, gpr[6]) },
2469
    { "r7", offsetof(CPUState, gpr[7]) },
2470
    { "r8", offsetof(CPUState, gpr[8]) },
2471
    { "r9", offsetof(CPUState, gpr[9]) },
2472
    { "r10", offsetof(CPUState, gpr[10]) },
2473
    { "r11", offsetof(CPUState, gpr[11]) },
2474
    { "r12", offsetof(CPUState, gpr[12]) },
2475
    { "r13", offsetof(CPUState, gpr[13]) },
2476
    { "r14", offsetof(CPUState, gpr[14]) },
2477
    { "r15", offsetof(CPUState, gpr[15]) },
2478
    { "r16", offsetof(CPUState, gpr[16]) },
2479
    { "r17", offsetof(CPUState, gpr[17]) },
2480
    { "r18", offsetof(CPUState, gpr[18]) },
2481
    { "r19", offsetof(CPUState, gpr[19]) },
2482
    { "r20", offsetof(CPUState, gpr[20]) },
2483
    { "r21", offsetof(CPUState, gpr[21]) },
2484
    { "r22", offsetof(CPUState, gpr[22]) },
2485
    { "r23", offsetof(CPUState, gpr[23]) },
2486
    { "r24", offsetof(CPUState, gpr[24]) },
2487
    { "r25", offsetof(CPUState, gpr[25]) },
2488
    { "r26", offsetof(CPUState, gpr[26]) },
2489
    { "r27", offsetof(CPUState, gpr[27]) },
2490
    { "r28", offsetof(CPUState, gpr[28]) },
2491
    { "r29", offsetof(CPUState, gpr[29]) },
2492
    { "r30", offsetof(CPUState, gpr[30]) },
2493
    { "r31", offsetof(CPUState, gpr[31]) },
2494
    /* Floating point registers */
2495
    { "f0", offsetof(CPUState, fpr[0]) },
2496
    { "f1", offsetof(CPUState, fpr[1]) },
2497
    { "f2", offsetof(CPUState, fpr[2]) },
2498
    { "f3", offsetof(CPUState, fpr[3]) },
2499
    { "f4", offsetof(CPUState, fpr[4]) },
2500
    { "f5", offsetof(CPUState, fpr[5]) },
2501
    { "f6", offsetof(CPUState, fpr[6]) },
2502
    { "f7", offsetof(CPUState, fpr[7]) },
2503
    { "f8", offsetof(CPUState, fpr[8]) },
2504
    { "f9", offsetof(CPUState, fpr[9]) },
2505
    { "f10", offsetof(CPUState, fpr[10]) },
2506
    { "f11", offsetof(CPUState, fpr[11]) },
2507
    { "f12", offsetof(CPUState, fpr[12]) },
2508
    { "f13", offsetof(CPUState, fpr[13]) },
2509
    { "f14", offsetof(CPUState, fpr[14]) },
2510
    { "f15", offsetof(CPUState, fpr[15]) },
2511
    { "f16", offsetof(CPUState, fpr[16]) },
2512
    { "f17", offsetof(CPUState, fpr[17]) },
2513
    { "f18", offsetof(CPUState, fpr[18]) },
2514
    { "f19", offsetof(CPUState, fpr[19]) },
2515
    { "f20", offsetof(CPUState, fpr[20]) },
2516
    { "f21", offsetof(CPUState, fpr[21]) },
2517
    { "f22", offsetof(CPUState, fpr[22]) },
2518
    { "f23", offsetof(CPUState, fpr[23]) },
2519
    { "f24", offsetof(CPUState, fpr[24]) },
2520
    { "f25", offsetof(CPUState, fpr[25]) },
2521
    { "f26", offsetof(CPUState, fpr[26]) },
2522
    { "f27", offsetof(CPUState, fpr[27]) },
2523
    { "f28", offsetof(CPUState, fpr[28]) },
2524
    { "f29", offsetof(CPUState, fpr[29]) },
2525
    { "f30", offsetof(CPUState, fpr[30]) },
2526
    { "f31", offsetof(CPUState, fpr[31]) },
2527
    { "fpscr", offsetof(CPUState, fpscr) },
2528
    /* Next instruction pointer */
2529
    { "nip|pc", offsetof(CPUState, nip) },
2530
    { "lr", offsetof(CPUState, lr) },
2531
    { "ctr", offsetof(CPUState, ctr) },
2532
    { "decr", 0, &monitor_get_decr, },
2533
    { "ccr", 0, &monitor_get_ccr, },
2534
    /* Machine state register */
2535
    { "msr", 0, &monitor_get_msr, },
2536
    { "xer", 0, &monitor_get_xer, },
2537
    { "tbu", 0, &monitor_get_tbu, },
2538
    { "tbl", 0, &monitor_get_tbl, },
2539
#if defined(TARGET_PPC64)
2540
    /* Address space register */
2541
    { "asr", offsetof(CPUState, asr) },
2542
#endif
2543
    /* Segment registers */
2544
    { "sdr1", offsetof(CPUState, sdr1) },
2545
    { "sr0", offsetof(CPUState, sr[0]) },
2546
    { "sr1", offsetof(CPUState, sr[1]) },
2547
    { "sr2", offsetof(CPUState, sr[2]) },
2548
    { "sr3", offsetof(CPUState, sr[3]) },
2549
    { "sr4", offsetof(CPUState, sr[4]) },
2550
    { "sr5", offsetof(CPUState, sr[5]) },
2551
    { "sr6", offsetof(CPUState, sr[6]) },
2552
    { "sr7", offsetof(CPUState, sr[7]) },
2553
    { "sr8", offsetof(CPUState, sr[8]) },
2554
    { "sr9", offsetof(CPUState, sr[9]) },
2555
    { "sr10", offsetof(CPUState, sr[10]) },
2556
    { "sr11", offsetof(CPUState, sr[11]) },
2557
    { "sr12", offsetof(CPUState, sr[12]) },
2558
    { "sr13", offsetof(CPUState, sr[13]) },
2559
    { "sr14", offsetof(CPUState, sr[14]) },
2560
    { "sr15", offsetof(CPUState, sr[15]) },
2561
    /* Too lazy to put BATs and SPRs ... */
2562
#elif defined(TARGET_SPARC)
2563
    { "g0", offsetof(CPUState, gregs[0]) },
2564
    { "g1", offsetof(CPUState, gregs[1]) },
2565
    { "g2", offsetof(CPUState, gregs[2]) },
2566
    { "g3", offsetof(CPUState, gregs[3]) },
2567
    { "g4", offsetof(CPUState, gregs[4]) },
2568
    { "g5", offsetof(CPUState, gregs[5]) },
2569
    { "g6", offsetof(CPUState, gregs[6]) },
2570
    { "g7", offsetof(CPUState, gregs[7]) },
2571
    { "o0", 0, monitor_get_reg },
2572
    { "o1", 1, monitor_get_reg },
2573
    { "o2", 2, monitor_get_reg },
2574
    { "o3", 3, monitor_get_reg },
2575
    { "o4", 4, monitor_get_reg },
2576
    { "o5", 5, monitor_get_reg },
2577
    { "o6", 6, monitor_get_reg },
2578
    { "o7", 7, monitor_get_reg },
2579
    { "l0", 8, monitor_get_reg },
2580
    { "l1", 9, monitor_get_reg },
2581
    { "l2", 10, monitor_get_reg },
2582
    { "l3", 11, monitor_get_reg },
2583
    { "l4", 12, monitor_get_reg },
2584
    { "l5", 13, monitor_get_reg },
2585
    { "l6", 14, monitor_get_reg },
2586
    { "l7", 15, monitor_get_reg },
2587
    { "i0", 16, monitor_get_reg },
2588
    { "i1", 17, monitor_get_reg },
2589
    { "i2", 18, monitor_get_reg },
2590
    { "i3", 19, monitor_get_reg },
2591
    { "i4", 20, monitor_get_reg },
2592
    { "i5", 21, monitor_get_reg },
2593
    { "i6", 22, monitor_get_reg },
2594
    { "i7", 23, monitor_get_reg },
2595
    { "pc", offsetof(CPUState, pc) },
2596
    { "npc", offsetof(CPUState, npc) },
2597
    { "y", offsetof(CPUState, y) },
2598
#ifndef TARGET_SPARC64
2599
    { "psr", 0, &monitor_get_psr, },
2600
    { "wim", offsetof(CPUState, wim) },
2601
#endif
2602
    { "tbr", offsetof(CPUState, tbr) },
2603
    { "fsr", offsetof(CPUState, fsr) },
2604
    { "f0", offsetof(CPUState, fpr[0]) },
2605
    { "f1", offsetof(CPUState, fpr[1]) },
2606
    { "f2", offsetof(CPUState, fpr[2]) },
2607
    { "f3", offsetof(CPUState, fpr[3]) },
2608
    { "f4", offsetof(CPUState, fpr[4]) },
2609
    { "f5", offsetof(CPUState, fpr[5]) },
2610
    { "f6", offsetof(CPUState, fpr[6]) },
2611
    { "f7", offsetof(CPUState, fpr[7]) },
2612
    { "f8", offsetof(CPUState, fpr[8]) },
2613
    { "f9", offsetof(CPUState, fpr[9]) },
2614
    { "f10", offsetof(CPUState, fpr[10]) },
2615
    { "f11", offsetof(CPUState, fpr[11]) },
2616
    { "f12", offsetof(CPUState, fpr[12]) },
2617
    { "f13", offsetof(CPUState, fpr[13]) },
2618
    { "f14", offsetof(CPUState, fpr[14]) },
2619
    { "f15", offsetof(CPUState, fpr[15]) },
2620
    { "f16", offsetof(CPUState, fpr[16]) },
2621
    { "f17", offsetof(CPUState, fpr[17]) },
2622
    { "f18", offsetof(CPUState, fpr[18]) },
2623
    { "f19", offsetof(CPUState, fpr[19]) },
2624
    { "f20", offsetof(CPUState, fpr[20]) },
2625
    { "f21", offsetof(CPUState, fpr[21]) },
2626
    { "f22", offsetof(CPUState, fpr[22]) },
2627
    { "f23", offsetof(CPUState, fpr[23]) },
2628
    { "f24", offsetof(CPUState, fpr[24]) },
2629
    { "f25", offsetof(CPUState, fpr[25]) },
2630
    { "f26", offsetof(CPUState, fpr[26]) },
2631
    { "f27", offsetof(CPUState, fpr[27]) },
2632
    { "f28", offsetof(CPUState, fpr[28]) },
2633
    { "f29", offsetof(CPUState, fpr[29]) },
2634
    { "f30", offsetof(CPUState, fpr[30]) },
2635
    { "f31", offsetof(CPUState, fpr[31]) },
2636
#ifdef TARGET_SPARC64
2637
    { "f32", offsetof(CPUState, fpr[32]) },
2638
    { "f34", offsetof(CPUState, fpr[34]) },
2639
    { "f36", offsetof(CPUState, fpr[36]) },
2640
    { "f38", offsetof(CPUState, fpr[38]) },
2641
    { "f40", offsetof(CPUState, fpr[40]) },
2642
    { "f42", offsetof(CPUState, fpr[42]) },
2643
    { "f44", offsetof(CPUState, fpr[44]) },
2644
    { "f46", offsetof(CPUState, fpr[46]) },
2645
    { "f48", offsetof(CPUState, fpr[48]) },
2646
    { "f50", offsetof(CPUState, fpr[50]) },
2647
    { "f52", offsetof(CPUState, fpr[52]) },
2648
    { "f54", offsetof(CPUState, fpr[54]) },
2649
    { "f56", offsetof(CPUState, fpr[56]) },
2650
    { "f58", offsetof(CPUState, fpr[58]) },
2651
    { "f60", offsetof(CPUState, fpr[60]) },
2652
    { "f62", offsetof(CPUState, fpr[62]) },
2653
    { "asi", offsetof(CPUState, asi) },
2654
    { "pstate", offsetof(CPUState, pstate) },
2655
    { "cansave", offsetof(CPUState, cansave) },
2656
    { "canrestore", offsetof(CPUState, canrestore) },
2657
    { "otherwin", offsetof(CPUState, otherwin) },
2658
    { "wstate", offsetof(CPUState, wstate) },
2659
    { "cleanwin", offsetof(CPUState, cleanwin) },
2660
    { "fprs", offsetof(CPUState, fprs) },
2661
#endif
2662
#endif
2663
    { NULL },
2664
};
2665

    
2666
static void expr_error(Monitor *mon, const char *msg)
2667
{
2668
    monitor_printf(mon, "%s\n", msg);
2669
    longjmp(expr_env, 1);
2670
}
2671

    
2672
/* return 0 if OK, -1 if not found, -2 if no CPU defined */
2673
static int get_monitor_def(target_long *pval, const char *name)
2674
{
2675
    const MonitorDef *md;
2676
    void *ptr;
2677

    
2678
    for(md = monitor_defs; md->name != NULL; md++) {
2679
        if (compare_cmd(name, md->name)) {
2680
            if (md->get_value) {
2681
                *pval = md->get_value(md, md->offset);
2682
            } else {
2683
                CPUState *env = mon_get_cpu();
2684
                if (!env)
2685
                    return -2;
2686
                ptr = (uint8_t *)env + md->offset;
2687
                switch(md->type) {
2688
                case MD_I32:
2689
                    *pval = *(int32_t *)ptr;
2690
                    break;
2691
                case MD_TLONG:
2692
                    *pval = *(target_long *)ptr;
2693
                    break;
2694
                default:
2695
                    *pval = 0;
2696
                    break;
2697
                }
2698
            }
2699
            return 0;
2700
        }
2701
    }
2702
    return -1;
2703
}
2704

    
2705
static void next(void)
2706
{
2707
    if (*pch != '\0') {
2708
        pch++;
2709
        while (qemu_isspace(*pch))
2710
            pch++;
2711
    }
2712
}
2713

    
2714
static int64_t expr_sum(Monitor *mon);
2715

    
2716
static int64_t expr_unary(Monitor *mon)
2717
{
2718
    int64_t n;
2719
    char *p;
2720
    int ret;
2721

    
2722
    switch(*pch) {
2723
    case '+':
2724
        next();
2725
        n = expr_unary(mon);
2726
        break;
2727
    case '-':
2728
        next();
2729
        n = -expr_unary(mon);
2730
        break;
2731
    case '~':
2732
        next();
2733
        n = ~expr_unary(mon);
2734
        break;
2735
    case '(':
2736
        next();
2737
        n = expr_sum(mon);
2738
        if (*pch != ')') {
2739
            expr_error(mon, "')' expected");
2740
        }
2741
        next();
2742
        break;
2743
    case '\'':
2744
        pch++;
2745
        if (*pch == '\0')
2746
            expr_error(mon, "character constant expected");
2747
        n = *pch;
2748
        pch++;
2749
        if (*pch != '\'')
2750
            expr_error(mon, "missing terminating \' character");
2751
        next();
2752
        break;
2753
    case '$':
2754
        {
2755
            char buf[128], *q;
2756
            target_long reg=0;
2757

    
2758
            pch++;
2759
            q = buf;
2760
            while ((*pch >= 'a' && *pch <= 'z') ||
2761
                   (*pch >= 'A' && *pch <= 'Z') ||
2762
                   (*pch >= '0' && *pch <= '9') ||
2763
                   *pch == '_' || *pch == '.') {
2764
                if ((q - buf) < sizeof(buf) - 1)
2765
                    *q++ = *pch;
2766
                pch++;
2767
            }
2768
            while (qemu_isspace(*pch))
2769
                pch++;
2770
            *q = 0;
2771
            ret = get_monitor_def(&reg, buf);
2772
            if (ret == -1)
2773
                expr_error(mon, "unknown register");
2774
            else if (ret == -2)
2775
                expr_error(mon, "no cpu defined");
2776
            n = reg;
2777
        }
2778
        break;
2779
    case '\0':
2780
        expr_error(mon, "unexpected end of expression");
2781
        n = 0;
2782
        break;
2783
    default:
2784
#if TARGET_PHYS_ADDR_BITS > 32
2785
        n = strtoull(pch, &p, 0);
2786
#else
2787
        n = strtoul(pch, &p, 0);
2788
#endif
2789
        if (pch == p) {
2790
            expr_error(mon, "invalid char in expression");
2791
        }
2792
        pch = p;
2793
        while (qemu_isspace(*pch))
2794
            pch++;
2795
        break;
2796
    }
2797
    return n;
2798
}
2799

    
2800

    
2801
static int64_t expr_prod(Monitor *mon)
2802
{
2803
    int64_t val, val2;
2804
    int op;
2805

    
2806
    val = expr_unary(mon);
2807
    for(;;) {
2808
        op = *pch;
2809
        if (op != '*' && op != '/' && op != '%')
2810
            break;
2811
        next();
2812
        val2 = expr_unary(mon);
2813
        switch(op) {
2814
        default:
2815
        case '*':
2816
            val *= val2;
2817
            break;
2818
        case '/':
2819
        case '%':
2820
            if (val2 == 0)
2821
                expr_error(mon, "division by zero");
2822
            if (op == '/')
2823
                val /= val2;
2824
            else
2825
                val %= val2;
2826
            break;
2827
        }
2828
    }
2829
    return val;
2830
}
2831

    
2832
static int64_t expr_logic(Monitor *mon)
2833
{
2834
    int64_t val, val2;
2835
    int op;
2836

    
2837
    val = expr_prod(mon);
2838
    for(;;) {
2839
        op = *pch;
2840
        if (op != '&' && op != '|' && op != '^')
2841
            break;
2842
        next();
2843
        val2 = expr_prod(mon);
2844
        switch(op) {
2845
        default:
2846
        case '&':
2847
            val &= val2;
2848
            break;
2849
        case '|':
2850
            val |= val2;
2851
            break;
2852
        case '^':
2853
            val ^= val2;
2854
            break;
2855
        }
2856
    }
2857
    return val;
2858
}
2859

    
2860
static int64_t expr_sum(Monitor *mon)
2861
{
2862
    int64_t val, val2;
2863
    int op;
2864

    
2865
    val = expr_logic(mon);
2866
    for(;;) {
2867
        op = *pch;
2868
        if (op != '+' && op != '-')
2869
            break;
2870
        next();
2871
        val2 = expr_logic(mon);
2872
        if (op == '+')
2873
            val += val2;
2874
        else
2875
            val -= val2;
2876
    }
2877
    return val;
2878
}
2879

    
2880
static int get_expr(Monitor *mon, int64_t *pval, const char **pp)
2881
{
2882
    pch = *pp;
2883
    if (setjmp(expr_env)) {
2884
        *pp = pch;
2885
        return -1;
2886
    }
2887
    while (qemu_isspace(*pch))
2888
        pch++;
2889
    *pval = expr_sum(mon);
2890
    *pp = pch;
2891
    return 0;
2892
}
2893

    
2894
static int get_str(char *buf, int buf_size, const char **pp)
2895
{
2896
    const char *p;
2897
    char *q;
2898
    int c;
2899

    
2900
    q = buf;
2901
    p = *pp;
2902
    while (qemu_isspace(*p))
2903
        p++;
2904
    if (*p == '\0') {
2905
    fail:
2906
        *q = '\0';
2907
        *pp = p;
2908
        return -1;
2909
    }
2910
    if (*p == '\"') {
2911
        p++;
2912
        while (*p != '\0' && *p != '\"') {
2913
            if (*p == '\\') {
2914
                p++;
2915
                c = *p++;
2916
                switch(c) {
2917
                case 'n':
2918
                    c = '\n';
2919
                    break;
2920
                case 'r':
2921
                    c = '\r';
2922
                    break;
2923
                case '\\':
2924
                case '\'':
2925
                case '\"':
2926
                    break;
2927
                default:
2928
                    qemu_printf("unsupported escape code: '\\%c'\n", c);
2929
                    goto fail;
2930
                }
2931
                if ((q - buf) < buf_size - 1) {
2932
                    *q++ = c;
2933
                }
2934
            } else {
2935
                if ((q - buf) < buf_size - 1) {
2936
                    *q++ = *p;
2937
                }
2938
                p++;
2939
            }
2940
        }
2941
        if (*p != '\"') {
2942
            qemu_printf("unterminated string\n");
2943
            goto fail;
2944
        }
2945
        p++;
2946
    } else {
2947
        while (*p != '\0' && !qemu_isspace(*p)) {
2948
            if ((q - buf) < buf_size - 1) {
2949
                *q++ = *p;
2950
            }
2951
            p++;
2952
        }
2953
    }
2954
    *q = '\0';
2955
    *pp = p;
2956
    return 0;
2957
}
2958

    
2959
/*
2960
 * Store the command-name in cmdname, and return a pointer to
2961
 * the remaining of the command string.
2962
 */
2963
static const char *get_command_name(const char *cmdline,
2964
                                    char *cmdname, size_t nlen)
2965
{
2966
    size_t len;
2967
    const char *p, *pstart;
2968

    
2969
    p = cmdline;
2970
    while (qemu_isspace(*p))
2971
        p++;
2972
    if (*p == '\0')
2973
        return NULL;
2974
    pstart = p;
2975
    while (*p != '\0' && *p != '/' && !qemu_isspace(*p))
2976
        p++;
2977
    len = p - pstart;
2978
    if (len > nlen - 1)
2979
        len = nlen - 1;
2980
    memcpy(cmdname, pstart, len);
2981
    cmdname[len] = '\0';
2982
    return p;
2983
}
2984

    
2985
/**
2986
 * Read key of 'type' into 'key' and return the current
2987
 * 'type' pointer.
2988
 */
2989
static char *key_get_info(const char *type, char **key)
2990
{
2991
    size_t len;
2992
    char *p, *str;
2993

    
2994
    if (*type == ',')
2995
        type++;
2996

    
2997
    p = strchr(type, ':');
2998
    if (!p) {
2999
        *key = NULL;
3000
        return NULL;
3001
    }
3002
    len = p - type;
3003

    
3004
    str = qemu_malloc(len + 1);
3005
    memcpy(str, type, len);
3006
    str[len] = '\0';
3007

    
3008
    *key = str;
3009
    return ++p;
3010
}
3011

    
3012
static int default_fmt_format = 'x';
3013
static int default_fmt_size = 4;
3014

    
3015
#define MAX_ARGS 16
3016

    
3017
static int is_valid_option(const char *c, const char *typestr)
3018
{
3019
    char option[3];
3020
  
3021
    option[0] = '-';
3022
    option[1] = *c;
3023
    option[2] = '\0';
3024
  
3025
    typestr = strstr(typestr, option);
3026
    return (typestr != NULL);
3027
}
3028

    
3029
static const mon_cmd_t *monitor_find_command(const char *cmdname)
3030
{
3031
    const mon_cmd_t *cmd;
3032

    
3033
    for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
3034
        if (compare_cmd(cmdname, cmd->name)) {
3035
            return cmd;
3036
        }
3037
    }
3038

    
3039
    return NULL;
3040
}
3041

    
3042
static const mon_cmd_t *monitor_parse_command(Monitor *mon,
3043
                                              const char *cmdline,
3044
                                              QDict *qdict)
3045
{
3046
    const char *p, *typestr;
3047
    int c;
3048
    const mon_cmd_t *cmd;
3049
    char cmdname[256];
3050
    char buf[1024];
3051
    char *key;
3052

    
3053
#ifdef DEBUG
3054
    monitor_printf(mon, "command='%s'\n", cmdline);
3055
#endif
3056

    
3057
    /* extract the command name */
3058
    p = get_command_name(cmdline, cmdname, sizeof(cmdname));
3059
    if (!p)
3060
        return NULL;
3061

    
3062
    cmd = monitor_find_command(cmdname);
3063
    if (!cmd) {
3064
        monitor_printf(mon, "unknown command: '%s'\n", cmdname);
3065
        return NULL;
3066
    }
3067

    
3068
    /* parse the parameters */
3069
    typestr = cmd->args_type;
3070
    for(;;) {
3071
        typestr = key_get_info(typestr, &key);
3072
        if (!typestr)
3073
            break;
3074
        c = *typestr;
3075
        typestr++;
3076
        switch(c) {
3077
        case 'F':
3078
        case 'B':
3079
        case 's':
3080
            {
3081
                int ret;
3082

    
3083
                while (qemu_isspace(*p))
3084
                    p++;
3085
                if (*typestr == '?') {
3086
                    typestr++;
3087
                    if (*p == '\0') {
3088
                        /* no optional string: NULL argument */
3089
                        break;
3090
                    }
3091
                }
3092
                ret = get_str(buf, sizeof(buf), &p);
3093
                if (ret < 0) {
3094
                    switch(c) {
3095
                    case 'F':
3096
                        monitor_printf(mon, "%s: filename expected\n",
3097
                                       cmdname);
3098
                        break;
3099
                    case 'B':
3100
                        monitor_printf(mon, "%s: block device name expected\n",
3101
                                       cmdname);
3102
                        break;
3103
                    default:
3104
                        monitor_printf(mon, "%s: string expected\n", cmdname);
3105
                        break;
3106
                    }
3107
                    goto fail;
3108
                }
3109
                qdict_put(qdict, key, qstring_from_str(buf));
3110
            }
3111
            break;
3112
        case '/':
3113
            {
3114
                int count, format, size;
3115

    
3116
                while (qemu_isspace(*p))
3117
                    p++;
3118
                if (*p == '/') {
3119
                    /* format found */
3120
                    p++;
3121
                    count = 1;
3122
                    if (qemu_isdigit(*p)) {
3123
                        count = 0;
3124
                        while (qemu_isdigit(*p)) {
3125
                            count = count * 10 + (*p - '0');
3126
                            p++;
3127
                        }
3128
                    }
3129
                    size = -1;
3130
                    format = -1;
3131
                    for(;;) {
3132
                        switch(*p) {
3133
                        case 'o':
3134
                        case 'd':
3135
                        case 'u':
3136
                        case 'x':
3137
                        case 'i':
3138
                        case 'c':
3139
                            format = *p++;
3140
                            break;
3141
                        case 'b':
3142
                            size = 1;
3143
                            p++;
3144
                            break;
3145
                        case 'h':
3146
                            size = 2;
3147
                            p++;
3148
                            break;
3149
                        case 'w':
3150
                            size = 4;
3151
                            p++;
3152
                            break;
3153
                        case 'g':
3154
                        case 'L':
3155
                            size = 8;
3156
                            p++;
3157
                            break;
3158
                        default:
3159
                            goto next;
3160
                        }
3161
                    }
3162
                next:
3163
                    if (*p != '\0' && !qemu_isspace(*p)) {
3164
                        monitor_printf(mon, "invalid char in format: '%c'\n",
3165
                                       *p);
3166
                        goto fail;
3167
                    }
3168
                    if (format < 0)
3169
                        format = default_fmt_format;
3170
                    if (format != 'i') {
3171
                        /* for 'i', not specifying a size gives -1 as size */
3172
                        if (size < 0)
3173
                            size = default_fmt_size;
3174
                        default_fmt_size = size;
3175
                    }
3176
                    default_fmt_format = format;
3177
                } else {
3178
                    count = 1;
3179
                    format = default_fmt_format;
3180
                    if (format != 'i') {
3181
                        size = default_fmt_size;
3182
                    } else {
3183
                        size = -1;
3184
                    }
3185
                }
3186
                qdict_put(qdict, "count", qint_from_int(count));
3187
                qdict_put(qdict, "format", qint_from_int(format));
3188
                qdict_put(qdict, "size", qint_from_int(size));
3189
            }
3190
            break;
3191
        case 'i':
3192
        case 'l':
3193
            {
3194
                int64_t val;
3195

    
3196
                while (qemu_isspace(*p))
3197
                    p++;
3198
                if (*typestr == '?' || *typestr == '.') {
3199
                    if (*typestr == '?') {
3200
                        if (*p == '\0') {
3201
                            typestr++;
3202
                            break;
3203
                        }
3204
                    } else {
3205
                        if (*p == '.') {
3206
                            p++;
3207
                            while (qemu_isspace(*p))
3208
                                p++;
3209
                        } else {
3210
                            typestr++;
3211
                            break;
3212
                        }
3213
                    }
3214
                    typestr++;
3215
                }
3216
                if (get_expr(mon, &val, &p))
3217
                    goto fail;
3218
                /* Check if 'i' is greater than 32-bit */
3219
                if ((c == 'i') && ((val >> 32) & 0xffffffff)) {
3220
                    monitor_printf(mon, "\'%s\' has failed: ", cmdname);
3221
                    monitor_printf(mon, "integer is for 32-bit values\n");
3222
                    goto fail;
3223
                }
3224
                qdict_put(qdict, key, qint_from_int(val));
3225
            }
3226
            break;
3227
        case '-':
3228
            {
3229
                const char *tmp = p;
3230
                int has_option, skip_key = 0;
3231
                /* option */
3232

    
3233
                c = *typestr++;
3234
                if (c == '\0')
3235
                    goto bad_type;
3236
                while (qemu_isspace(*p))
3237
                    p++;
3238
                has_option = 0;
3239
                if (*p == '-') {
3240
                    p++;
3241
                    if(c != *p) {
3242
                        if(!is_valid_option(p, typestr)) {
3243
                  
3244
                            monitor_printf(mon, "%s: unsupported option -%c\n",
3245
                                           cmdname, *p);
3246
                            goto fail;
3247
                        } else {
3248
                            skip_key = 1;
3249
                        }
3250
                    }
3251
                    if(skip_key) {
3252
                        p = tmp;
3253
                    } else {
3254
                        p++;
3255
                        has_option = 1;
3256
                    }
3257
                }
3258
                qdict_put(qdict, key, qint_from_int(has_option));
3259
            }
3260
            break;
3261
        default:
3262
        bad_type:
3263
            monitor_printf(mon, "%s: unknown type '%c'\n", cmdname, c);
3264
            goto fail;
3265
        }
3266
        qemu_free(key);
3267
        key = NULL;
3268
    }
3269
    /* check that all arguments were parsed */
3270
    while (qemu_isspace(*p))
3271
        p++;
3272
    if (*p != '\0') {
3273
        monitor_printf(mon, "%s: extraneous characters at the end of line\n",
3274
                       cmdname);
3275
        goto fail;
3276
    }
3277

    
3278
    return cmd;
3279

    
3280
fail:
3281
    qemu_free(key);
3282
    return NULL;
3283
}
3284

    
3285
static void monitor_print_error(Monitor *mon)
3286
{
3287
    qerror_print(mon->error);
3288
    QDECREF(mon->error);
3289
    mon->error = NULL;
3290
}
3291

    
3292
static void monitor_call_handler(Monitor *mon, const mon_cmd_t *cmd,
3293
                                 const QDict *params)
3294
{
3295
    QObject *data = NULL;
3296

    
3297
    cmd->mhandler.cmd_new(mon, params, &data);
3298

    
3299
    if (monitor_ctrl_mode(mon)) {
3300
        /* Monitor Protocol */
3301
        monitor_protocol_emitter(mon, data);
3302
    } else {
3303
        /* User Protocol */
3304
         if (data)
3305
            cmd->user_print(mon, data);
3306
    }
3307

    
3308
    qobject_decref(data);
3309
}
3310

    
3311
static void handle_user_command(Monitor *mon, const char *cmdline)
3312
{
3313
    QDict *qdict;
3314
    const mon_cmd_t *cmd;
3315

    
3316
    qdict = qdict_new();
3317

    
3318
    cmd = monitor_parse_command(mon, cmdline, qdict);
3319
    if (!cmd)
3320
        goto out;
3321

    
3322
    qemu_errors_to_mon(mon);
3323

    
3324
    if (monitor_handler_ported(cmd)) {
3325
        monitor_call_handler(mon, cmd, qdict);
3326
    } else {
3327
        cmd->mhandler.cmd(mon, qdict);
3328
    }
3329

    
3330
    if (monitor_has_error(mon))
3331
        monitor_print_error(mon);
3332

    
3333
    qemu_errors_to_previous();
3334

    
3335
out:
3336
    QDECREF(qdict);
3337
}
3338

    
3339
static void cmd_completion(const char *name, const char *list)
3340
{
3341
    const char *p, *pstart;
3342
    char cmd[128];
3343
    int len;
3344

    
3345
    p = list;
3346
    for(;;) {
3347
        pstart = p;
3348
        p = strchr(p, '|');
3349
        if (!p)
3350
            p = pstart + strlen(pstart);
3351
        len = p - pstart;
3352
        if (len > sizeof(cmd) - 2)
3353
            len = sizeof(cmd) - 2;
3354
        memcpy(cmd, pstart, len);
3355
        cmd[len] = '\0';
3356
        if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
3357
            readline_add_completion(cur_mon->rs, cmd);
3358
        }
3359
        if (*p == '\0')
3360
            break;
3361
        p++;
3362
    }
3363
}
3364

    
3365
static void file_completion(const char *input)
3366
{
3367
    DIR *ffs;
3368
    struct dirent *d;
3369
    char path[1024];
3370
    char file[1024], file_prefix[1024];
3371
    int input_path_len;
3372
    const char *p;
3373

    
3374
    p = strrchr(input, '/');
3375
    if (!p) {
3376
        input_path_len = 0;
3377
        pstrcpy(file_prefix, sizeof(file_prefix), input);
3378
        pstrcpy(path, sizeof(path), ".");
3379
    } else {
3380
        input_path_len = p - input + 1;
3381
        memcpy(path, input, input_path_len);
3382
        if (input_path_len > sizeof(path) - 1)
3383
            input_path_len = sizeof(path) - 1;
3384
        path[input_path_len] = '\0';
3385
        pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
3386
    }
3387
#ifdef DEBUG_COMPLETION
3388
    monitor_printf(cur_mon, "input='%s' path='%s' prefix='%s'\n",
3389
                   input, path, file_prefix);
3390
#endif
3391
    ffs = opendir(path);
3392
    if (!ffs)
3393
        return;
3394
    for(;;) {
3395
        struct stat sb;
3396
        d = readdir(ffs);
3397
        if (!d)
3398
            break;
3399
        if (strstart(d->d_name, file_prefix, NULL)) {
3400
            memcpy(file, input, input_path_len);
3401
            if (input_path_len < sizeof(file))
3402
                pstrcpy(file + input_path_len, sizeof(file) - input_path_len,
3403
                        d->d_name);
3404
            /* stat the file to find out if it's a directory.
3405
             * In that case add a slash to speed up typing long paths
3406
             */
3407
            stat(file, &sb);
3408
            if(S_ISDIR(sb.st_mode))
3409
                pstrcat(file, sizeof(file), "/");
3410
            readline_add_completion(cur_mon->rs, file);
3411
        }
3412
    }
3413
    closedir(ffs);
3414
}
3415

    
3416
static void block_completion_it(void *opaque, BlockDriverState *bs)
3417
{
3418
    const char *name = bdrv_get_device_name(bs);
3419
    const char *input = opaque;
3420

    
3421
    if (input[0] == '\0' ||
3422
        !strncmp(name, (char *)input, strlen(input))) {
3423
        readline_add_completion(cur_mon->rs, name);
3424
    }
3425
}
3426

    
3427
/* NOTE: this parser is an approximate form of the real command parser */
3428
static void parse_cmdline(const char *cmdline,
3429
                         int *pnb_args, char **args)
3430
{
3431
    const char *p;
3432
    int nb_args, ret;
3433
    char buf[1024];
3434

    
3435
    p = cmdline;
3436
    nb_args = 0;
3437
    for(;;) {
3438
        while (qemu_isspace(*p))
3439
            p++;
3440
        if (*p == '\0')
3441
            break;
3442
        if (nb_args >= MAX_ARGS)
3443
            break;
3444
        ret = get_str(buf, sizeof(buf), &p);
3445
        args[nb_args] = qemu_strdup(buf);
3446
        nb_args++;
3447
        if (ret < 0)
3448
            break;
3449
    }
3450
    *pnb_args = nb_args;
3451
}
3452

    
3453
static const char *next_arg_type(const char *typestr)
3454
{
3455
    const char *p = strchr(typestr, ':');
3456
    return (p != NULL ? ++p : typestr);
3457
}
3458

    
3459
static void monitor_find_completion(const char *cmdline)
3460
{
3461
    const char *cmdname;
3462
    char *args[MAX_ARGS];
3463
    int nb_args, i, len;
3464
    const char *ptype, *str;
3465
    const mon_cmd_t *cmd;
3466
    const KeyDef *key;
3467

    
3468
    parse_cmdline(cmdline, &nb_args, args);
3469
#ifdef DEBUG_COMPLETION
3470
    for(i = 0; i < nb_args; i++) {
3471
        monitor_printf(cur_mon, "arg%d = '%s'\n", i, (char *)args[i]);
3472
    }
3473
#endif
3474

    
3475
    /* if the line ends with a space, it means we want to complete the
3476
       next arg */
3477
    len = strlen(cmdline);
3478
    if (len > 0 && qemu_isspace(cmdline[len - 1])) {
3479
        if (nb_args >= MAX_ARGS)
3480
            return;
3481
        args[nb_args++] = qemu_strdup("");
3482
    }
3483
    if (nb_args <= 1) {
3484
        /* command completion */
3485
        if (nb_args == 0)
3486
            cmdname = "";
3487
        else
3488
            cmdname = args[0];
3489
        readline_set_completion_index(cur_mon->rs, strlen(cmdname));
3490
        for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
3491
            cmd_completion(cmdname, cmd->name);
3492
        }
3493
    } else {
3494
        /* find the command */
3495
        for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
3496
            if (compare_cmd(args[0], cmd->name))
3497
                goto found;
3498
        }
3499
        return;
3500
    found:
3501
        ptype = next_arg_type(cmd->args_type);
3502
        for(i = 0; i < nb_args - 2; i++) {
3503
            if (*ptype != '\0') {
3504
                ptype = next_arg_type(ptype);
3505
                while (*ptype == '?')
3506
                    ptype = next_arg_type(ptype);
3507
            }
3508
        }
3509
        str = args[nb_args - 1];
3510
        if (*ptype == '-' && ptype[1] != '\0') {
3511
            ptype += 2;
3512
        }
3513
        switch(*ptype) {
3514
        case 'F':
3515
            /* file completion */
3516
            readline_set_completion_index(cur_mon->rs, strlen(str));
3517
            file_completion(str);
3518
            break;
3519
        case 'B':
3520
            /* block device name completion */
3521
            readline_set_completion_index(cur_mon->rs, strlen(str));
3522
            bdrv_iterate(block_completion_it, (void *)str);
3523
            break;
3524
        case 's':
3525
            /* XXX: more generic ? */
3526
            if (!strcmp(cmd->name, "info")) {
3527
                readline_set_completion_index(cur_mon->rs, strlen(str));
3528
                for(cmd = info_cmds; cmd->name != NULL; cmd++) {
3529
                    cmd_completion(str, cmd->name);
3530
                }
3531
            } else if (!strcmp(cmd->name, "sendkey")) {
3532
                char *sep = strrchr(str, '-');
3533
                if (sep)
3534
                    str = sep + 1;
3535
                readline_set_completion_index(cur_mon->rs, strlen(str));
3536
                for(key = key_defs; key->name != NULL; key++) {
3537
                    cmd_completion(str, key->name);
3538
                }
3539
            } else if (!strcmp(cmd->name, "help|?")) {
3540
                readline_set_completion_index(cur_mon->rs, strlen(str));
3541
                for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
3542
                    cmd_completion(str, cmd->name);
3543
                }
3544
            }
3545
            break;
3546
        default:
3547
            break;
3548
        }
3549
    }
3550
    for(i = 0; i < nb_args; i++)
3551
        qemu_free(args[i]);
3552
}
3553

    
3554
static int monitor_can_read(void *opaque)
3555
{
3556
    Monitor *mon = opaque;
3557

    
3558
    return (mon->suspend_cnt == 0) ? 128 : 0;
3559
}
3560

    
3561
/**
3562
 * monitor_control_read(): Read and handle QMP input
3563
 */
3564
static void monitor_control_read(void *opaque, const uint8_t *buf, int size)
3565
{
3566
    Monitor *old_mon = cur_mon;
3567

    
3568
    cur_mon = opaque;
3569

    
3570
    // TODO: read QMP input
3571

    
3572
    cur_mon = old_mon;
3573
}
3574

    
3575
static void monitor_read(void *opaque, const uint8_t *buf, int size)
3576
{
3577
    Monitor *old_mon = cur_mon;
3578
    int i;
3579

    
3580
    cur_mon = opaque;
3581

    
3582
    if (cur_mon->rs) {
3583
        for (i = 0; i < size; i++)
3584
            readline_handle_byte(cur_mon->rs, buf[i]);
3585
    } else {
3586
        if (size == 0 || buf[size - 1] != 0)
3587
            monitor_printf(cur_mon, "corrupted command\n");
3588
        else
3589
            handle_user_command(cur_mon, (char *)buf);
3590
    }
3591

    
3592
    cur_mon = old_mon;
3593
}
3594

    
3595
static void monitor_command_cb(Monitor *mon, const char *cmdline, void *opaque)
3596
{
3597
    monitor_suspend(mon);
3598
    handle_user_command(mon, cmdline);
3599
    monitor_resume(mon);
3600
}
3601

    
3602
int monitor_suspend(Monitor *mon)
3603
{
3604
    if (!mon->rs)
3605
        return -ENOTTY;
3606
    mon->suspend_cnt++;
3607
    return 0;
3608
}
3609

    
3610
void monitor_resume(Monitor *mon)
3611
{
3612
    if (!mon->rs)
3613
        return;
3614
    if (--mon->suspend_cnt == 0)
3615
        readline_show_prompt(mon->rs);
3616
}
3617

    
3618
/**
3619
 * monitor_control_event(): Print QMP gretting
3620
 */
3621
static void monitor_control_event(void *opaque, int event)
3622
{
3623
    if (event == CHR_EVENT_OPENED) {
3624
        QObject *data;
3625
        Monitor *mon = opaque;
3626

    
3627
        data = qobject_from_jsonf("{ 'QMP': { 'capabilities': [] } }");
3628
        assert(data != NULL);
3629

    
3630
        monitor_json_emitter(mon, data);
3631
        qobject_decref(data);
3632
    }
3633
}
3634

    
3635
static void monitor_event(void *opaque, int event)
3636
{
3637
    Monitor *mon = opaque;
3638

    
3639
    switch (event) {
3640
    case CHR_EVENT_MUX_IN:
3641
        mon->mux_out = 0;
3642
        if (mon->reset_seen) {
3643
            readline_restart(mon->rs);
3644
            monitor_resume(mon);
3645
            monitor_flush(mon);
3646
        } else {
3647
            mon->suspend_cnt = 0;
3648
        }
3649
        break;
3650

    
3651
    case CHR_EVENT_MUX_OUT:
3652
        if (mon->reset_seen) {
3653
            if (mon->suspend_cnt == 0) {
3654
                monitor_printf(mon, "\n");
3655
            }
3656
            monitor_flush(mon);
3657
            monitor_suspend(mon);
3658
        } else {
3659
            mon->suspend_cnt++;
3660
        }
3661
        mon->mux_out = 1;
3662
        break;
3663

    
3664
    case CHR_EVENT_OPENED:
3665
        monitor_printf(mon, "QEMU %s monitor - type 'help' for more "
3666
                       "information\n", QEMU_VERSION);
3667
        if (!mon->mux_out) {
3668
            readline_show_prompt(mon->rs);
3669
        }
3670
        mon->reset_seen = 1;
3671
        break;
3672
    }
3673
}
3674

    
3675

    
3676
/*
3677
 * Local variables:
3678
 *  c-indent-level: 4
3679
 *  c-basic-offset: 4
3680
 *  tab-width: 8
3681
 * End:
3682
 */
3683

    
3684
const char *monitor_cmdline_parse(const char *cmdline, int *flags)
3685
{
3686
    const char *dev;
3687

    
3688
    if (strstart(cmdline, "control,", &dev)) {
3689
        if (strstart(dev, "vc", NULL)) {
3690
            fprintf(stderr, "qemu: control mode is for low-level interaction ");
3691
            fprintf(stderr, "cannot be used with device 'vc'\n");
3692
            exit(1);
3693
        }
3694
        *flags &= ~MONITOR_USE_READLINE;
3695
        *flags |= MONITOR_USE_CONTROL;
3696
        return dev;
3697
    }
3698

    
3699
    return cmdline;
3700
}
3701

    
3702
void monitor_init(CharDriverState *chr, int flags)
3703
{
3704
    static int is_first_init = 1;
3705
    Monitor *mon;
3706

    
3707
    if (is_first_init) {
3708
        key_timer = qemu_new_timer(vm_clock, release_keys, NULL);
3709
        is_first_init = 0;
3710
    }
3711

    
3712
    mon = qemu_mallocz(sizeof(*mon));
3713

    
3714
    mon->chr = chr;
3715
    mon->flags = flags;
3716
    if (flags & MONITOR_USE_READLINE) {
3717
        mon->rs = readline_init(mon, monitor_find_completion);
3718
        monitor_read_command(mon, 0);
3719
    }
3720

    
3721
    if (monitor_ctrl_mode(mon)) {
3722
        /* Control mode requires special handlers */
3723
        qemu_chr_add_handlers(chr, monitor_can_read, monitor_control_read,
3724
                              monitor_control_event, mon);
3725
    } else {
3726
        qemu_chr_add_handlers(chr, monitor_can_read, monitor_read,
3727
                              monitor_event, mon);
3728
    }
3729

    
3730
    QLIST_INSERT_HEAD(&mon_list, mon, entry);
3731
    if (!cur_mon || (flags & MONITOR_IS_DEFAULT))
3732
        cur_mon = mon;
3733
}
3734

    
3735
static void bdrv_password_cb(Monitor *mon, const char *password, void *opaque)
3736
{
3737
    BlockDriverState *bs = opaque;
3738
    int ret = 0;
3739

    
3740
    if (bdrv_set_key(bs, password) != 0) {
3741
        monitor_printf(mon, "invalid password\n");
3742
        ret = -EPERM;
3743
    }
3744
    if (mon->password_completion_cb)
3745
        mon->password_completion_cb(mon->password_opaque, ret);
3746

    
3747
    monitor_read_command(mon, 1);
3748
}
3749

    
3750
void monitor_read_bdrv_key_start(Monitor *mon, BlockDriverState *bs,
3751
                                 BlockDriverCompletionFunc *completion_cb,
3752
                                 void *opaque)
3753
{
3754
    int err;
3755

    
3756
    if (!bdrv_key_required(bs)) {
3757
        if (completion_cb)
3758
            completion_cb(opaque, 0);
3759
        return;
3760
    }
3761

    
3762
    monitor_printf(mon, "%s (%s) is encrypted.\n", bdrv_get_device_name(bs),
3763
                   bdrv_get_encrypted_filename(bs));
3764

    
3765
    mon->password_completion_cb = completion_cb;
3766
    mon->password_opaque = opaque;
3767

    
3768
    err = monitor_read_password(mon, bdrv_password_cb, bs);
3769

    
3770
    if (err && completion_cb)
3771
        completion_cb(opaque, err);
3772
}
3773

    
3774
typedef struct QemuErrorSink QemuErrorSink;
3775
struct QemuErrorSink {
3776
    enum {
3777
        ERR_SINK_FILE,
3778
        ERR_SINK_MONITOR,
3779
    } dest;
3780
    union {
3781
        FILE    *fp;
3782
        Monitor *mon;
3783
    };
3784
    QemuErrorSink *previous;
3785
};
3786

    
3787
static QemuErrorSink *qemu_error_sink;
3788

    
3789
void qemu_errors_to_file(FILE *fp)
3790
{
3791
    QemuErrorSink *sink;
3792

    
3793
    sink = qemu_mallocz(sizeof(*sink));
3794
    sink->dest = ERR_SINK_FILE;
3795
    sink->fp = fp;
3796
    sink->previous = qemu_error_sink;
3797
    qemu_error_sink = sink;
3798
}
3799

    
3800
void qemu_errors_to_mon(Monitor *mon)
3801
{
3802
    QemuErrorSink *sink;
3803

    
3804
    sink = qemu_mallocz(sizeof(*sink));
3805
    sink->dest = ERR_SINK_MONITOR;
3806
    sink->mon = mon;
3807
    sink->previous = qemu_error_sink;
3808
    qemu_error_sink = sink;
3809
}
3810

    
3811
void qemu_errors_to_previous(void)
3812
{
3813
    QemuErrorSink *sink;
3814

    
3815
    assert(qemu_error_sink != NULL);
3816
    sink = qemu_error_sink;
3817
    qemu_error_sink = sink->previous;
3818
    qemu_free(sink);
3819
}
3820

    
3821
void qemu_error(const char *fmt, ...)
3822
{
3823
    va_list args;
3824

    
3825
    assert(qemu_error_sink != NULL);
3826
    switch (qemu_error_sink->dest) {
3827
    case ERR_SINK_FILE:
3828
        va_start(args, fmt);
3829
        vfprintf(qemu_error_sink->fp, fmt, args);
3830
        va_end(args);
3831
        break;
3832
    case ERR_SINK_MONITOR:
3833
        va_start(args, fmt);
3834
        monitor_vprintf(qemu_error_sink->mon, fmt, args);
3835
        va_end(args);
3836
        break;
3837
    }
3838
}
3839

    
3840
void qemu_error_internal(const char *file, int linenr, const char *func,
3841
                         const char *fmt, ...)
3842
{
3843
    va_list va;
3844
    QError *qerror;
3845

    
3846
    assert(qemu_error_sink != NULL);
3847

    
3848
    va_start(va, fmt);
3849
    qerror = qerror_from_info(file, linenr, func, fmt, &va);
3850
    va_end(va);
3851

    
3852
    switch (qemu_error_sink->dest) {
3853
    case ERR_SINK_FILE:
3854
        qerror_print(qerror);
3855
        QDECREF(qerror);
3856
        break;
3857
    case ERR_SINK_MONITOR:
3858
        assert(qemu_error_sink->mon->error == NULL);
3859
        qemu_error_sink->mon->error = qerror;
3860
        break;
3861
    }
3862
}