Statistics
| Branch: | Revision:

root / monitor.c @ 9c22a623

History | View | Annotate | Download (88 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/usb.h"
27
#include "hw/pcmcia.h"
28
#include "hw/pc.h"
29
#include "hw/pci.h"
30
#include "gdbstub.h"
31
#include "net.h"
32
#include "qemu-char.h"
33
#include "sysemu.h"
34
#include "monitor.h"
35
#include "readline.h"
36
#include "console.h"
37
#include "block.h"
38
#include "audio/audio.h"
39
#include "disas.h"
40
#include "balloon.h"
41
#include "qemu-timer.h"
42
#include "migration.h"
43
#include "kvm.h"
44
#include "acl.h"
45

    
46
//#define DEBUG
47
//#define DEBUG_COMPLETION
48

    
49
/*
50
 * Supported types:
51
 *
52
 * 'F'          filename
53
 * 'B'          block device name
54
 * 's'          string (accept optional quote)
55
 * 'i'          32 bit integer
56
 * 'l'          target long (32 or 64 bit)
57
 * '/'          optional gdb-like print format (like "/10x")
58
 *
59
 * '?'          optional type (for 'F', 's' and 'i')
60
 *
61
 */
62

    
63
typedef struct mon_cmd_t {
64
    const char *name;
65
    const char *args_type;
66
    void *handler;
67
    const char *params;
68
    const char *help;
69
} mon_cmd_t;
70

    
71
struct Monitor {
72
    CharDriverState *chr;
73
    int flags;
74
    int suspend_cnt;
75
    uint8_t outbuf[1024];
76
    int outbuf_index;
77
    ReadLineState *rs;
78
    CPUState *mon_cpu;
79
    BlockDriverCompletionFunc *password_completion_cb;
80
    void *password_opaque;
81
    LIST_ENTRY(Monitor) entry;
82
};
83

    
84
static LIST_HEAD(mon_list, Monitor) mon_list;
85

    
86
static const mon_cmd_t mon_cmds[];
87
static const mon_cmd_t info_cmds[];
88

    
89
Monitor *cur_mon = NULL;
90

    
91
static void monitor_command_cb(Monitor *mon, const char *cmdline,
92
                               void *opaque);
93

    
94
static void monitor_read_command(Monitor *mon, int show_prompt)
95
{
96
    readline_start(mon->rs, "(qemu) ", 0, monitor_command_cb, NULL);
97
    if (show_prompt)
98
        readline_show_prompt(mon->rs);
99
}
100

    
101
static int monitor_read_password(Monitor *mon, ReadLineFunc *readline_func,
102
                                 void *opaque)
103
{
104
    if (mon->rs) {
105
        readline_start(mon->rs, "Password: ", 1, readline_func, opaque);
106
        /* prompt is printed on return from the command handler */
107
        return 0;
108
    } else {
109
        monitor_printf(mon, "terminal does not support password prompting\n");
110
        return -ENOTTY;
111
    }
112
}
113

    
114
void monitor_flush(Monitor *mon)
115
{
116
    if (mon && mon->outbuf_index != 0 && mon->chr->focus == 0) {
117
        qemu_chr_write(mon->chr, mon->outbuf, mon->outbuf_index);
118
        mon->outbuf_index = 0;
119
    }
120
}
121

    
122
/* flush at every end of line or if the buffer is full */
123
static void monitor_puts(Monitor *mon, const char *str)
124
{
125
    char c;
126

    
127
    if (!mon)
128
        return;
129

    
130
    for(;;) {
131
        c = *str++;
132
        if (c == '\0')
133
            break;
134
        if (c == '\n')
135
            mon->outbuf[mon->outbuf_index++] = '\r';
136
        mon->outbuf[mon->outbuf_index++] = c;
137
        if (mon->outbuf_index >= (sizeof(mon->outbuf) - 1)
138
            || c == '\n')
139
            monitor_flush(mon);
140
    }
141
}
142

    
143
void monitor_vprintf(Monitor *mon, const char *fmt, va_list ap)
144
{
145
    char buf[4096];
146
    vsnprintf(buf, sizeof(buf), fmt, ap);
147
    monitor_puts(mon, buf);
148
}
149

    
150
void monitor_printf(Monitor *mon, const char *fmt, ...)
151
{
152
    va_list ap;
153
    va_start(ap, fmt);
154
    monitor_vprintf(mon, fmt, ap);
155
    va_end(ap);
156
}
157

    
158
void monitor_print_filename(Monitor *mon, const char *filename)
159
{
160
    int i;
161

    
162
    for (i = 0; filename[i]; i++) {
163
        switch (filename[i]) {
164
        case ' ':
165
        case '"':
166
        case '\\':
167
            monitor_printf(mon, "\\%c", filename[i]);
168
            break;
169
        case '\t':
170
            monitor_printf(mon, "\\t");
171
            break;
172
        case '\r':
173
            monitor_printf(mon, "\\r");
174
            break;
175
        case '\n':
176
            monitor_printf(mon, "\\n");
177
            break;
178
        default:
179
            monitor_printf(mon, "%c", filename[i]);
180
            break;
181
        }
182
    }
183
}
184

    
185
static int monitor_fprintf(FILE *stream, const char *fmt, ...)
186
{
187
    va_list ap;
188
    va_start(ap, fmt);
189
    monitor_vprintf((Monitor *)stream, fmt, ap);
190
    va_end(ap);
191
    return 0;
192
}
193

    
194
static int compare_cmd(const char *name, const char *list)
195
{
196
    const char *p, *pstart;
197
    int len;
198
    len = strlen(name);
199
    p = list;
200
    for(;;) {
201
        pstart = p;
202
        p = strchr(p, '|');
203
        if (!p)
204
            p = pstart + strlen(pstart);
205
        if ((p - pstart) == len && !memcmp(pstart, name, len))
206
            return 1;
207
        if (*p == '\0')
208
            break;
209
        p++;
210
    }
211
    return 0;
212
}
213

    
214
static void help_cmd_dump(Monitor *mon, const mon_cmd_t *cmds,
215
                          const char *prefix, const char *name)
216
{
217
    const mon_cmd_t *cmd;
218

    
219
    for(cmd = cmds; cmd->name != NULL; cmd++) {
220
        if (!name || !strcmp(name, cmd->name))
221
            monitor_printf(mon, "%s%s %s -- %s\n", prefix, cmd->name,
222
                           cmd->params, cmd->help);
223
    }
224
}
225

    
226
static void help_cmd(Monitor *mon, const char *name)
227
{
228
    if (name && !strcmp(name, "info")) {
229
        help_cmd_dump(mon, info_cmds, "info ", NULL);
230
    } else {
231
        help_cmd_dump(mon, mon_cmds, "", name);
232
        if (name && !strcmp(name, "log")) {
233
            const CPULogItem *item;
234
            monitor_printf(mon, "Log items (comma separated):\n");
235
            monitor_printf(mon, "%-10s %s\n", "none", "remove all logs");
236
            for(item = cpu_log_items; item->mask != 0; item++) {
237
                monitor_printf(mon, "%-10s %s\n", item->name, item->help);
238
            }
239
        }
240
    }
241
}
242

    
243
static void do_commit(Monitor *mon, const char *device)
244
{
245
    int i, all_devices;
246

    
247
    all_devices = !strcmp(device, "all");
248
    for (i = 0; i < nb_drives; i++) {
249
            if (all_devices ||
250
                !strcmp(bdrv_get_device_name(drives_table[i].bdrv), device))
251
                bdrv_commit(drives_table[i].bdrv);
252
    }
253
}
254

    
255
static void do_info(Monitor *mon, const char *item)
256
{
257
    const mon_cmd_t *cmd;
258
    void (*handler)(Monitor *);
259

    
260
    if (!item)
261
        goto help;
262
    for(cmd = info_cmds; cmd->name != NULL; cmd++) {
263
        if (compare_cmd(item, cmd->name))
264
            goto found;
265
    }
266
 help:
267
    help_cmd(mon, "info");
268
    return;
269
 found:
270
    handler = cmd->handler;
271
    handler(mon);
272
}
273

    
274
static void do_info_version(Monitor *mon)
275
{
276
    monitor_printf(mon, "%s\n", QEMU_VERSION QEMU_PKGVERSION);
277
}
278

    
279
static void do_info_name(Monitor *mon)
280
{
281
    if (qemu_name)
282
        monitor_printf(mon, "%s\n", qemu_name);
283
}
284

    
285
#if defined(TARGET_I386)
286
static void do_info_hpet(Monitor *mon)
287
{
288
    monitor_printf(mon, "HPET is %s by QEMU\n",
289
                   (no_hpet) ? "disabled" : "enabled");
290
}
291
#endif
292

    
293
static void do_info_uuid(Monitor *mon)
294
{
295
    monitor_printf(mon, UUID_FMT "\n", qemu_uuid[0], qemu_uuid[1],
296
                   qemu_uuid[2], qemu_uuid[3], qemu_uuid[4], qemu_uuid[5],
297
                   qemu_uuid[6], qemu_uuid[7], qemu_uuid[8], qemu_uuid[9],
298
                   qemu_uuid[10], qemu_uuid[11], qemu_uuid[12], qemu_uuid[13],
299
                   qemu_uuid[14], qemu_uuid[15]);
300
}
301

    
302
/* get the current CPU defined by the user */
303
static int mon_set_cpu(int cpu_index)
304
{
305
    CPUState *env;
306

    
307
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
308
        if (env->cpu_index == cpu_index) {
309
            cur_mon->mon_cpu = env;
310
            return 0;
311
        }
312
    }
313
    return -1;
314
}
315

    
316
static CPUState *mon_get_cpu(void)
317
{
318
    if (!cur_mon->mon_cpu) {
319
        mon_set_cpu(0);
320
    }
321
    cpu_synchronize_state(cur_mon->mon_cpu, 0);
322
    return cur_mon->mon_cpu;
323
}
324

    
325
static void do_info_registers(Monitor *mon)
326
{
327
    CPUState *env;
328
    env = mon_get_cpu();
329
    if (!env)
330
        return;
331
#ifdef TARGET_I386
332
    cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
333
                   X86_DUMP_FPU);
334
#else
335
    cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
336
                   0);
337
#endif
338
}
339

    
340
static void do_info_cpus(Monitor *mon)
341
{
342
    CPUState *env;
343

    
344
    /* just to set the default cpu if not already done */
345
    mon_get_cpu();
346

    
347
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
348
        cpu_synchronize_state(env, 0);
349
        monitor_printf(mon, "%c CPU #%d:",
350
                       (env == mon->mon_cpu) ? '*' : ' ',
351
                       env->cpu_index);
352
#if defined(TARGET_I386)
353
        monitor_printf(mon, " pc=0x" TARGET_FMT_lx,
354
                       env->eip + env->segs[R_CS].base);
355
#elif defined(TARGET_PPC)
356
        monitor_printf(mon, " nip=0x" TARGET_FMT_lx, env->nip);
357
#elif defined(TARGET_SPARC)
358
        monitor_printf(mon, " pc=0x" TARGET_FMT_lx " npc=0x" TARGET_FMT_lx,
359
                       env->pc, env->npc);
360
#elif defined(TARGET_MIPS)
361
        monitor_printf(mon, " PC=0x" TARGET_FMT_lx, env->active_tc.PC);
362
#endif
363
        if (env->halted)
364
            monitor_printf(mon, " (halted)");
365
        monitor_printf(mon, "\n");
366
    }
367
}
368

    
369
static void do_cpu_set(Monitor *mon, int index)
370
{
371
    if (mon_set_cpu(index) < 0)
372
        monitor_printf(mon, "Invalid CPU index\n");
373
}
374

    
375
static void do_info_jit(Monitor *mon)
376
{
377
    dump_exec_info((FILE *)mon, monitor_fprintf);
378
}
379

    
380
static void do_info_history(Monitor *mon)
381
{
382
    int i;
383
    const char *str;
384

    
385
    if (!mon->rs)
386
        return;
387
    i = 0;
388
    for(;;) {
389
        str = readline_get_history(mon->rs, i);
390
        if (!str)
391
            break;
392
        monitor_printf(mon, "%d: '%s'\n", i, str);
393
        i++;
394
    }
395
}
396

    
397
#if defined(TARGET_PPC)
398
/* XXX: not implemented in other targets */
399
static void do_info_cpu_stats(Monitor *mon)
400
{
401
    CPUState *env;
402

    
403
    env = mon_get_cpu();
404
    cpu_dump_statistics(env, (FILE *)mon, &monitor_fprintf, 0);
405
}
406
#endif
407

    
408
static void do_quit(Monitor *mon)
409
{
410
    exit(0);
411
}
412

    
413
static int eject_device(Monitor *mon, BlockDriverState *bs, int force)
414
{
415
    if (bdrv_is_inserted(bs)) {
416
        if (!force) {
417
            if (!bdrv_is_removable(bs)) {
418
                monitor_printf(mon, "device is not removable\n");
419
                return -1;
420
            }
421
            if (bdrv_is_locked(bs)) {
422
                monitor_printf(mon, "device is locked\n");
423
                return -1;
424
            }
425
        }
426
        bdrv_close(bs);
427
    }
428
    return 0;
429
}
430

    
431
static void do_eject(Monitor *mon, int force, const char *filename)
432
{
433
    BlockDriverState *bs;
434

    
435
    bs = bdrv_find(filename);
436
    if (!bs) {
437
        monitor_printf(mon, "device not found\n");
438
        return;
439
    }
440
    eject_device(mon, bs, force);
441
}
442

    
443
static void do_change_block(Monitor *mon, const char *device,
444
                            const char *filename, const char *fmt)
445
{
446
    BlockDriverState *bs;
447
    BlockDriver *drv = NULL;
448

    
449
    bs = bdrv_find(device);
450
    if (!bs) {
451
        monitor_printf(mon, "device not found\n");
452
        return;
453
    }
454
    if (fmt) {
455
        drv = bdrv_find_format(fmt);
456
        if (!drv) {
457
            monitor_printf(mon, "invalid format %s\n", fmt);
458
            return;
459
        }
460
    }
461
    if (eject_device(mon, bs, 0) < 0)
462
        return;
463
    bdrv_open2(bs, filename, 0, drv);
464
    monitor_read_bdrv_key_start(mon, bs, NULL, NULL);
465
}
466

    
467
static void change_vnc_password_cb(Monitor *mon, const char *password,
468
                                   void *opaque)
469
{
470
    if (vnc_display_password(NULL, password) < 0)
471
        monitor_printf(mon, "could not set VNC server password\n");
472

    
473
    monitor_read_command(mon, 1);
474
}
475

    
476
static void do_change_vnc(Monitor *mon, const char *target, const char *arg)
477
{
478
    if (strcmp(target, "passwd") == 0 ||
479
        strcmp(target, "password") == 0) {
480
        if (arg) {
481
            char password[9];
482
            strncpy(password, arg, sizeof(password));
483
            password[sizeof(password) - 1] = '\0';
484
            change_vnc_password_cb(mon, password, NULL);
485
        } else {
486
            monitor_read_password(mon, change_vnc_password_cb, NULL);
487
        }
488
    } else {
489
        if (vnc_display_open(NULL, target) < 0)
490
            monitor_printf(mon, "could not start VNC server on %s\n", target);
491
    }
492
}
493

    
494
static void do_change(Monitor *mon, const char *device, const char *target,
495
                      const char *arg)
496
{
497
    if (strcmp(device, "vnc") == 0) {
498
        do_change_vnc(mon, target, arg);
499
    } else {
500
        do_change_block(mon, device, target, arg);
501
    }
502
}
503

    
504
static void do_screen_dump(Monitor *mon, const char *filename)
505
{
506
    vga_hw_screen_dump(filename);
507
}
508

    
509
static void do_logfile(Monitor *mon, const char *filename)
510
{
511
    cpu_set_log_filename(filename);
512
}
513

    
514
static void do_log(Monitor *mon, const char *items)
515
{
516
    int mask;
517

    
518
    if (!strcmp(items, "none")) {
519
        mask = 0;
520
    } else {
521
        mask = cpu_str_to_log_mask(items);
522
        if (!mask) {
523
            help_cmd(mon, "log");
524
            return;
525
        }
526
    }
527
    cpu_set_log(mask);
528
}
529

    
530
static void do_singlestep(Monitor *mon, const char *option)
531
{
532
    if (!option || !strcmp(option, "on")) {
533
        singlestep = 1;
534
    } else if (!strcmp(option, "off")) {
535
        singlestep = 0;
536
    } else {
537
        monitor_printf(mon, "unexpected option %s\n", option);
538
    }
539
}
540

    
541
static void do_stop(Monitor *mon)
542
{
543
    vm_stop(EXCP_INTERRUPT);
544
}
545

    
546
static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs);
547

    
548
struct bdrv_iterate_context {
549
    Monitor *mon;
550
    int err;
551
};
552

    
553
static void do_cont(Monitor *mon)
554
{
555
    struct bdrv_iterate_context context = { mon, 0 };
556

    
557
    bdrv_iterate(encrypted_bdrv_it, &context);
558
    /* only resume the vm if all keys are set and valid */
559
    if (!context.err)
560
        vm_start();
561
}
562

    
563
static void bdrv_key_cb(void *opaque, int err)
564
{
565
    Monitor *mon = opaque;
566

    
567
    /* another key was set successfully, retry to continue */
568
    if (!err)
569
        do_cont(mon);
570
}
571

    
572
static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs)
573
{
574
    struct bdrv_iterate_context *context = opaque;
575

    
576
    if (!context->err && bdrv_key_required(bs)) {
577
        context->err = -EBUSY;
578
        monitor_read_bdrv_key_start(context->mon, bs, bdrv_key_cb,
579
                                    context->mon);
580
    }
581
}
582

    
583
#ifdef CONFIG_GDBSTUB
584
static void do_gdbserver(Monitor *mon, const char *device)
585
{
586
    if (!device)
587
        device = "tcp::" DEFAULT_GDBSTUB_PORT;
588
    if (gdbserver_start(device) < 0) {
589
        monitor_printf(mon, "Could not open gdbserver on device '%s'\n",
590
                       device);
591
    } else if (strcmp(device, "none") == 0) {
592
        monitor_printf(mon, "Disabled gdbserver\n");
593
    } else {
594
        monitor_printf(mon, "Waiting for gdb connection on device '%s'\n",
595
                       device);
596
    }
597
}
598
#endif
599

    
600
static void monitor_printc(Monitor *mon, int c)
601
{
602
    monitor_printf(mon, "'");
603
    switch(c) {
604
    case '\'':
605
        monitor_printf(mon, "\\'");
606
        break;
607
    case '\\':
608
        monitor_printf(mon, "\\\\");
609
        break;
610
    case '\n':
611
        monitor_printf(mon, "\\n");
612
        break;
613
    case '\r':
614
        monitor_printf(mon, "\\r");
615
        break;
616
    default:
617
        if (c >= 32 && c <= 126) {
618
            monitor_printf(mon, "%c", c);
619
        } else {
620
            monitor_printf(mon, "\\x%02x", c);
621
        }
622
        break;
623
    }
624
    monitor_printf(mon, "'");
625
}
626

    
627
static void memory_dump(Monitor *mon, int count, int format, int wsize,
628
                        target_phys_addr_t addr, int is_physical)
629
{
630
    CPUState *env;
631
    int nb_per_line, l, line_size, i, max_digits, len;
632
    uint8_t buf[16];
633
    uint64_t v;
634

    
635
    if (format == 'i') {
636
        int flags;
637
        flags = 0;
638
        env = mon_get_cpu();
639
        if (!env && !is_physical)
640
            return;
641
#ifdef TARGET_I386
642
        if (wsize == 2) {
643
            flags = 1;
644
        } else if (wsize == 4) {
645
            flags = 0;
646
        } else {
647
            /* as default we use the current CS size */
648
            flags = 0;
649
            if (env) {
650
#ifdef TARGET_X86_64
651
                if ((env->efer & MSR_EFER_LMA) &&
652
                    (env->segs[R_CS].flags & DESC_L_MASK))
653
                    flags = 2;
654
                else
655
#endif
656
                if (!(env->segs[R_CS].flags & DESC_B_MASK))
657
                    flags = 1;
658
            }
659
        }
660
#endif
661
        monitor_disas(mon, env, addr, count, is_physical, flags);
662
        return;
663
    }
664

    
665
    len = wsize * count;
666
    if (wsize == 1)
667
        line_size = 8;
668
    else
669
        line_size = 16;
670
    nb_per_line = line_size / wsize;
671
    max_digits = 0;
672

    
673
    switch(format) {
674
    case 'o':
675
        max_digits = (wsize * 8 + 2) / 3;
676
        break;
677
    default:
678
    case 'x':
679
        max_digits = (wsize * 8) / 4;
680
        break;
681
    case 'u':
682
    case 'd':
683
        max_digits = (wsize * 8 * 10 + 32) / 33;
684
        break;
685
    case 'c':
686
        wsize = 1;
687
        break;
688
    }
689

    
690
    while (len > 0) {
691
        if (is_physical)
692
            monitor_printf(mon, TARGET_FMT_plx ":", addr);
693
        else
694
            monitor_printf(mon, TARGET_FMT_lx ":", (target_ulong)addr);
695
        l = len;
696
        if (l > line_size)
697
            l = line_size;
698
        if (is_physical) {
699
            cpu_physical_memory_rw(addr, buf, l, 0);
700
        } else {
701
            env = mon_get_cpu();
702
            if (!env)
703
                break;
704
            if (cpu_memory_rw_debug(env, addr, buf, l, 0) < 0) {
705
                monitor_printf(mon, " Cannot access memory\n");
706
                break;
707
            }
708
        }
709
        i = 0;
710
        while (i < l) {
711
            switch(wsize) {
712
            default:
713
            case 1:
714
                v = ldub_raw(buf + i);
715
                break;
716
            case 2:
717
                v = lduw_raw(buf + i);
718
                break;
719
            case 4:
720
                v = (uint32_t)ldl_raw(buf + i);
721
                break;
722
            case 8:
723
                v = ldq_raw(buf + i);
724
                break;
725
            }
726
            monitor_printf(mon, " ");
727
            switch(format) {
728
            case 'o':
729
                monitor_printf(mon, "%#*" PRIo64, max_digits, v);
730
                break;
731
            case 'x':
732
                monitor_printf(mon, "0x%0*" PRIx64, max_digits, v);
733
                break;
734
            case 'u':
735
                monitor_printf(mon, "%*" PRIu64, max_digits, v);
736
                break;
737
            case 'd':
738
                monitor_printf(mon, "%*" PRId64, max_digits, v);
739
                break;
740
            case 'c':
741
                monitor_printc(mon, v);
742
                break;
743
            }
744
            i += wsize;
745
        }
746
        monitor_printf(mon, "\n");
747
        addr += l;
748
        len -= l;
749
    }
750
}
751

    
752
#if TARGET_LONG_BITS == 64
753
#define GET_TLONG(h, l) (((uint64_t)(h) << 32) | (l))
754
#else
755
#define GET_TLONG(h, l) (l)
756
#endif
757

    
758
static void do_memory_dump(Monitor *mon, int count, int format, int size,
759
                           uint32_t addrh, uint32_t addrl)
760
{
761
    target_long addr = GET_TLONG(addrh, addrl);
762
    memory_dump(mon, count, format, size, addr, 0);
763
}
764

    
765
#if TARGET_PHYS_ADDR_BITS > 32
766
#define GET_TPHYSADDR(h, l) (((uint64_t)(h) << 32) | (l))
767
#else
768
#define GET_TPHYSADDR(h, l) (l)
769
#endif
770

    
771
static void do_physical_memory_dump(Monitor *mon, int count, int format,
772
                                    int size, uint32_t addrh, uint32_t addrl)
773

    
774
{
775
    target_phys_addr_t addr = GET_TPHYSADDR(addrh, addrl);
776
    memory_dump(mon, count, format, size, addr, 1);
777
}
778

    
779
static void do_print(Monitor *mon, int count, int format, int size,
780
                     unsigned int valh, unsigned int vall)
781
{
782
    target_phys_addr_t val = GET_TPHYSADDR(valh, vall);
783
#if TARGET_PHYS_ADDR_BITS == 32
784
    switch(format) {
785
    case 'o':
786
        monitor_printf(mon, "%#o", val);
787
        break;
788
    case 'x':
789
        monitor_printf(mon, "%#x", val);
790
        break;
791
    case 'u':
792
        monitor_printf(mon, "%u", val);
793
        break;
794
    default:
795
    case 'd':
796
        monitor_printf(mon, "%d", val);
797
        break;
798
    case 'c':
799
        monitor_printc(mon, val);
800
        break;
801
    }
802
#else
803
    switch(format) {
804
    case 'o':
805
        monitor_printf(mon, "%#" PRIo64, val);
806
        break;
807
    case 'x':
808
        monitor_printf(mon, "%#" PRIx64, val);
809
        break;
810
    case 'u':
811
        monitor_printf(mon, "%" PRIu64, val);
812
        break;
813
    default:
814
    case 'd':
815
        monitor_printf(mon, "%" PRId64, val);
816
        break;
817
    case 'c':
818
        monitor_printc(mon, val);
819
        break;
820
    }
821
#endif
822
    monitor_printf(mon, "\n");
823
}
824

    
825
static void do_memory_save(Monitor *mon, unsigned int valh, unsigned int vall,
826
                           uint32_t size, const char *filename)
827
{
828
    FILE *f;
829
    target_long addr = GET_TLONG(valh, vall);
830
    uint32_t l;
831
    CPUState *env;
832
    uint8_t buf[1024];
833

    
834
    env = mon_get_cpu();
835
    if (!env)
836
        return;
837

    
838
    f = fopen(filename, "wb");
839
    if (!f) {
840
        monitor_printf(mon, "could not open '%s'\n", filename);
841
        return;
842
    }
843
    while (size != 0) {
844
        l = sizeof(buf);
845
        if (l > size)
846
            l = size;
847
        cpu_memory_rw_debug(env, addr, buf, l, 0);
848
        fwrite(buf, 1, l, f);
849
        addr += l;
850
        size -= l;
851
    }
852
    fclose(f);
853
}
854

    
855
static void do_physical_memory_save(Monitor *mon, unsigned int valh,
856
                                    unsigned int vall, uint32_t size,
857
                                    const char *filename)
858
{
859
    FILE *f;
860
    uint32_t l;
861
    uint8_t buf[1024];
862
    target_phys_addr_t addr = GET_TPHYSADDR(valh, vall); 
863

    
864
    f = fopen(filename, "wb");
865
    if (!f) {
866
        monitor_printf(mon, "could not open '%s'\n", filename);
867
        return;
868
    }
869
    while (size != 0) {
870
        l = sizeof(buf);
871
        if (l > size)
872
            l = size;
873
        cpu_physical_memory_rw(addr, buf, l, 0);
874
        fwrite(buf, 1, l, f);
875
        fflush(f);
876
        addr += l;
877
        size -= l;
878
    }
879
    fclose(f);
880
}
881

    
882
static void do_sum(Monitor *mon, uint32_t start, uint32_t size)
883
{
884
    uint32_t addr;
885
    uint8_t buf[1];
886
    uint16_t sum;
887

    
888
    sum = 0;
889
    for(addr = start; addr < (start + size); addr++) {
890
        cpu_physical_memory_rw(addr, buf, 1, 0);
891
        /* BSD sum algorithm ('sum' Unix command) */
892
        sum = (sum >> 1) | (sum << 15);
893
        sum += buf[0];
894
    }
895
    monitor_printf(mon, "%05d\n", sum);
896
}
897

    
898
typedef struct {
899
    int keycode;
900
    const char *name;
901
} KeyDef;
902

    
903
static const KeyDef key_defs[] = {
904
    { 0x2a, "shift" },
905
    { 0x36, "shift_r" },
906

    
907
    { 0x38, "alt" },
908
    { 0xb8, "alt_r" },
909
    { 0x64, "altgr" },
910
    { 0xe4, "altgr_r" },
911
    { 0x1d, "ctrl" },
912
    { 0x9d, "ctrl_r" },
913

    
914
    { 0xdd, "menu" },
915

    
916
    { 0x01, "esc" },
917

    
918
    { 0x02, "1" },
919
    { 0x03, "2" },
920
    { 0x04, "3" },
921
    { 0x05, "4" },
922
    { 0x06, "5" },
923
    { 0x07, "6" },
924
    { 0x08, "7" },
925
    { 0x09, "8" },
926
    { 0x0a, "9" },
927
    { 0x0b, "0" },
928
    { 0x0c, "minus" },
929
    { 0x0d, "equal" },
930
    { 0x0e, "backspace" },
931

    
932
    { 0x0f, "tab" },
933
    { 0x10, "q" },
934
    { 0x11, "w" },
935
    { 0x12, "e" },
936
    { 0x13, "r" },
937
    { 0x14, "t" },
938
    { 0x15, "y" },
939
    { 0x16, "u" },
940
    { 0x17, "i" },
941
    { 0x18, "o" },
942
    { 0x19, "p" },
943

    
944
    { 0x1c, "ret" },
945

    
946
    { 0x1e, "a" },
947
    { 0x1f, "s" },
948
    { 0x20, "d" },
949
    { 0x21, "f" },
950
    { 0x22, "g" },
951
    { 0x23, "h" },
952
    { 0x24, "j" },
953
    { 0x25, "k" },
954
    { 0x26, "l" },
955

    
956
    { 0x2c, "z" },
957
    { 0x2d, "x" },
958
    { 0x2e, "c" },
959
    { 0x2f, "v" },
960
    { 0x30, "b" },
961
    { 0x31, "n" },
962
    { 0x32, "m" },
963
    { 0x33, "comma" },
964
    { 0x34, "dot" },
965
    { 0x35, "slash" },
966

    
967
    { 0x37, "asterisk" },
968

    
969
    { 0x39, "spc" },
970
    { 0x3a, "caps_lock" },
971
    { 0x3b, "f1" },
972
    { 0x3c, "f2" },
973
    { 0x3d, "f3" },
974
    { 0x3e, "f4" },
975
    { 0x3f, "f5" },
976
    { 0x40, "f6" },
977
    { 0x41, "f7" },
978
    { 0x42, "f8" },
979
    { 0x43, "f9" },
980
    { 0x44, "f10" },
981
    { 0x45, "num_lock" },
982
    { 0x46, "scroll_lock" },
983

    
984
    { 0xb5, "kp_divide" },
985
    { 0x37, "kp_multiply" },
986
    { 0x4a, "kp_subtract" },
987
    { 0x4e, "kp_add" },
988
    { 0x9c, "kp_enter" },
989
    { 0x53, "kp_decimal" },
990
    { 0x54, "sysrq" },
991

    
992
    { 0x52, "kp_0" },
993
    { 0x4f, "kp_1" },
994
    { 0x50, "kp_2" },
995
    { 0x51, "kp_3" },
996
    { 0x4b, "kp_4" },
997
    { 0x4c, "kp_5" },
998
    { 0x4d, "kp_6" },
999
    { 0x47, "kp_7" },
1000
    { 0x48, "kp_8" },
1001
    { 0x49, "kp_9" },
1002

    
1003
    { 0x56, "<" },
1004

    
1005
    { 0x57, "f11" },
1006
    { 0x58, "f12" },
1007

    
1008
    { 0xb7, "print" },
1009

    
1010
    { 0xc7, "home" },
1011
    { 0xc9, "pgup" },
1012
    { 0xd1, "pgdn" },
1013
    { 0xcf, "end" },
1014

    
1015
    { 0xcb, "left" },
1016
    { 0xc8, "up" },
1017
    { 0xd0, "down" },
1018
    { 0xcd, "right" },
1019

    
1020
    { 0xd2, "insert" },
1021
    { 0xd3, "delete" },
1022
#if defined(TARGET_SPARC) && !defined(TARGET_SPARC64)
1023
    { 0xf0, "stop" },
1024
    { 0xf1, "again" },
1025
    { 0xf2, "props" },
1026
    { 0xf3, "undo" },
1027
    { 0xf4, "front" },
1028
    { 0xf5, "copy" },
1029
    { 0xf6, "open" },
1030
    { 0xf7, "paste" },
1031
    { 0xf8, "find" },
1032
    { 0xf9, "cut" },
1033
    { 0xfa, "lf" },
1034
    { 0xfb, "help" },
1035
    { 0xfc, "meta_l" },
1036
    { 0xfd, "meta_r" },
1037
    { 0xfe, "compose" },
1038
#endif
1039
    { 0, NULL },
1040
};
1041

    
1042
static int get_keycode(const char *key)
1043
{
1044
    const KeyDef *p;
1045
    char *endp;
1046
    int ret;
1047

    
1048
    for(p = key_defs; p->name != NULL; p++) {
1049
        if (!strcmp(key, p->name))
1050
            return p->keycode;
1051
    }
1052
    if (strstart(key, "0x", NULL)) {
1053
        ret = strtoul(key, &endp, 0);
1054
        if (*endp == '\0' && ret >= 0x01 && ret <= 0xff)
1055
            return ret;
1056
    }
1057
    return -1;
1058
}
1059

    
1060
#define MAX_KEYCODES 16
1061
static uint8_t keycodes[MAX_KEYCODES];
1062
static int nb_pending_keycodes;
1063
static QEMUTimer *key_timer;
1064

    
1065
static void release_keys(void *opaque)
1066
{
1067
    int keycode;
1068

    
1069
    while (nb_pending_keycodes > 0) {
1070
        nb_pending_keycodes--;
1071
        keycode = keycodes[nb_pending_keycodes];
1072
        if (keycode & 0x80)
1073
            kbd_put_keycode(0xe0);
1074
        kbd_put_keycode(keycode | 0x80);
1075
    }
1076
}
1077

    
1078
static void do_sendkey(Monitor *mon, const char *string, int has_hold_time,
1079
                       int hold_time)
1080
{
1081
    char keyname_buf[16];
1082
    char *separator;
1083
    int keyname_len, keycode, i;
1084

    
1085
    if (nb_pending_keycodes > 0) {
1086
        qemu_del_timer(key_timer);
1087
        release_keys(NULL);
1088
    }
1089
    if (!has_hold_time)
1090
        hold_time = 100;
1091
    i = 0;
1092
    while (1) {
1093
        separator = strchr(string, '-');
1094
        keyname_len = separator ? separator - string : strlen(string);
1095
        if (keyname_len > 0) {
1096
            pstrcpy(keyname_buf, sizeof(keyname_buf), string);
1097
            if (keyname_len > sizeof(keyname_buf) - 1) {
1098
                monitor_printf(mon, "invalid key: '%s...'\n", keyname_buf);
1099
                return;
1100
            }
1101
            if (i == MAX_KEYCODES) {
1102
                monitor_printf(mon, "too many keys\n");
1103
                return;
1104
            }
1105
            keyname_buf[keyname_len] = 0;
1106
            keycode = get_keycode(keyname_buf);
1107
            if (keycode < 0) {
1108
                monitor_printf(mon, "unknown key: '%s'\n", keyname_buf);
1109
                return;
1110
            }
1111
            keycodes[i++] = keycode;
1112
        }
1113
        if (!separator)
1114
            break;
1115
        string = separator + 1;
1116
    }
1117
    nb_pending_keycodes = i;
1118
    /* key down events */
1119
    for (i = 0; i < nb_pending_keycodes; i++) {
1120
        keycode = keycodes[i];
1121
        if (keycode & 0x80)
1122
            kbd_put_keycode(0xe0);
1123
        kbd_put_keycode(keycode & 0x7f);
1124
    }
1125
    /* delayed key up events */
1126
    qemu_mod_timer(key_timer, qemu_get_clock(vm_clock) +
1127
                    muldiv64(ticks_per_sec, hold_time, 1000));
1128
}
1129

    
1130
static int mouse_button_state;
1131

    
1132
static void do_mouse_move(Monitor *mon, const char *dx_str, const char *dy_str,
1133
                          const char *dz_str)
1134
{
1135
    int dx, dy, dz;
1136
    dx = strtol(dx_str, NULL, 0);
1137
    dy = strtol(dy_str, NULL, 0);
1138
    dz = 0;
1139
    if (dz_str)
1140
        dz = strtol(dz_str, NULL, 0);
1141
    kbd_mouse_event(dx, dy, dz, mouse_button_state);
1142
}
1143

    
1144
static void do_mouse_button(Monitor *mon, int button_state)
1145
{
1146
    mouse_button_state = button_state;
1147
    kbd_mouse_event(0, 0, 0, mouse_button_state);
1148
}
1149

    
1150
static void do_ioport_read(Monitor *mon, int count, int format, int size,
1151
                           int addr, int has_index, int index)
1152
{
1153
    uint32_t val;
1154
    int suffix;
1155

    
1156
    if (has_index) {
1157
        cpu_outb(NULL, addr & 0xffff, index & 0xff);
1158
        addr++;
1159
    }
1160
    addr &= 0xffff;
1161

    
1162
    switch(size) {
1163
    default:
1164
    case 1:
1165
        val = cpu_inb(NULL, addr);
1166
        suffix = 'b';
1167
        break;
1168
    case 2:
1169
        val = cpu_inw(NULL, addr);
1170
        suffix = 'w';
1171
        break;
1172
    case 4:
1173
        val = cpu_inl(NULL, addr);
1174
        suffix = 'l';
1175
        break;
1176
    }
1177
    monitor_printf(mon, "port%c[0x%04x] = %#0*x\n",
1178
                   suffix, addr, size * 2, val);
1179
}
1180

    
1181
/* boot_set handler */
1182
static QEMUBootSetHandler *qemu_boot_set_handler = NULL;
1183
static void *boot_opaque;
1184

    
1185
void qemu_register_boot_set(QEMUBootSetHandler *func, void *opaque)
1186
{
1187
    qemu_boot_set_handler = func;
1188
    boot_opaque = opaque;
1189
}
1190

    
1191
static void do_boot_set(Monitor *mon, const char *bootdevice)
1192
{
1193
    int res;
1194

    
1195
    if (qemu_boot_set_handler)  {
1196
        res = qemu_boot_set_handler(boot_opaque, bootdevice);
1197
        if (res == 0)
1198
            monitor_printf(mon, "boot device list now set to %s\n",
1199
                           bootdevice);
1200
        else
1201
            monitor_printf(mon, "setting boot device list failed with "
1202
                           "error %i\n", res);
1203
    } else {
1204
        monitor_printf(mon, "no function defined to set boot device list for "
1205
                       "this architecture\n");
1206
    }
1207
}
1208

    
1209
static void do_system_reset(Monitor *mon)
1210
{
1211
    qemu_system_reset_request();
1212
}
1213

    
1214
static void do_system_powerdown(Monitor *mon)
1215
{
1216
    qemu_system_powerdown_request();
1217
}
1218

    
1219
#if defined(TARGET_I386)
1220
static void print_pte(Monitor *mon, uint32_t addr, uint32_t pte, uint32_t mask)
1221
{
1222
    monitor_printf(mon, "%08x: %08x %c%c%c%c%c%c%c%c\n",
1223
                   addr,
1224
                   pte & mask,
1225
                   pte & PG_GLOBAL_MASK ? 'G' : '-',
1226
                   pte & PG_PSE_MASK ? 'P' : '-',
1227
                   pte & PG_DIRTY_MASK ? 'D' : '-',
1228
                   pte & PG_ACCESSED_MASK ? 'A' : '-',
1229
                   pte & PG_PCD_MASK ? 'C' : '-',
1230
                   pte & PG_PWT_MASK ? 'T' : '-',
1231
                   pte & PG_USER_MASK ? 'U' : '-',
1232
                   pte & PG_RW_MASK ? 'W' : '-');
1233
}
1234

    
1235
static void tlb_info(Monitor *mon)
1236
{
1237
    CPUState *env;
1238
    int l1, l2;
1239
    uint32_t pgd, pde, pte;
1240

    
1241
    env = mon_get_cpu();
1242
    if (!env)
1243
        return;
1244

    
1245
    if (!(env->cr[0] & CR0_PG_MASK)) {
1246
        monitor_printf(mon, "PG disabled\n");
1247
        return;
1248
    }
1249
    pgd = env->cr[3] & ~0xfff;
1250
    for(l1 = 0; l1 < 1024; l1++) {
1251
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1252
        pde = le32_to_cpu(pde);
1253
        if (pde & PG_PRESENT_MASK) {
1254
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1255
                print_pte(mon, (l1 << 22), pde, ~((1 << 20) - 1));
1256
            } else {
1257
                for(l2 = 0; l2 < 1024; l2++) {
1258
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1259
                                             (uint8_t *)&pte, 4);
1260
                    pte = le32_to_cpu(pte);
1261
                    if (pte & PG_PRESENT_MASK) {
1262
                        print_pte(mon, (l1 << 22) + (l2 << 12),
1263
                                  pte & ~PG_PSE_MASK,
1264
                                  ~0xfff);
1265
                    }
1266
                }
1267
            }
1268
        }
1269
    }
1270
}
1271

    
1272
static void mem_print(Monitor *mon, uint32_t *pstart, int *plast_prot,
1273
                      uint32_t end, int prot)
1274
{
1275
    int prot1;
1276
    prot1 = *plast_prot;
1277
    if (prot != prot1) {
1278
        if (*pstart != -1) {
1279
            monitor_printf(mon, "%08x-%08x %08x %c%c%c\n",
1280
                           *pstart, end, end - *pstart,
1281
                           prot1 & PG_USER_MASK ? 'u' : '-',
1282
                           'r',
1283
                           prot1 & PG_RW_MASK ? 'w' : '-');
1284
        }
1285
        if (prot != 0)
1286
            *pstart = end;
1287
        else
1288
            *pstart = -1;
1289
        *plast_prot = prot;
1290
    }
1291
}
1292

    
1293
static void mem_info(Monitor *mon)
1294
{
1295
    CPUState *env;
1296
    int l1, l2, prot, last_prot;
1297
    uint32_t pgd, pde, pte, start, end;
1298

    
1299
    env = mon_get_cpu();
1300
    if (!env)
1301
        return;
1302

    
1303
    if (!(env->cr[0] & CR0_PG_MASK)) {
1304
        monitor_printf(mon, "PG disabled\n");
1305
        return;
1306
    }
1307
    pgd = env->cr[3] & ~0xfff;
1308
    last_prot = 0;
1309
    start = -1;
1310
    for(l1 = 0; l1 < 1024; l1++) {
1311
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1312
        pde = le32_to_cpu(pde);
1313
        end = l1 << 22;
1314
        if (pde & PG_PRESENT_MASK) {
1315
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1316
                prot = pde & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1317
                mem_print(mon, &start, &last_prot, end, prot);
1318
            } else {
1319
                for(l2 = 0; l2 < 1024; l2++) {
1320
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1321
                                             (uint8_t *)&pte, 4);
1322
                    pte = le32_to_cpu(pte);
1323
                    end = (l1 << 22) + (l2 << 12);
1324
                    if (pte & PG_PRESENT_MASK) {
1325
                        prot = pte & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1326
                    } else {
1327
                        prot = 0;
1328
                    }
1329
                    mem_print(mon, &start, &last_prot, end, prot);
1330
                }
1331
            }
1332
        } else {
1333
            prot = 0;
1334
            mem_print(mon, &start, &last_prot, end, prot);
1335
        }
1336
    }
1337
}
1338
#endif
1339

    
1340
#if defined(TARGET_SH4)
1341

    
1342
static void print_tlb(Monitor *mon, int idx, tlb_t *tlb)
1343
{
1344
    monitor_printf(mon, " tlb%i:\t"
1345
                   "asid=%hhu vpn=%x\tppn=%x\tsz=%hhu size=%u\t"
1346
                   "v=%hhu shared=%hhu cached=%hhu prot=%hhu "
1347
                   "dirty=%hhu writethrough=%hhu\n",
1348
                   idx,
1349
                   tlb->asid, tlb->vpn, tlb->ppn, tlb->sz, tlb->size,
1350
                   tlb->v, tlb->sh, tlb->c, tlb->pr,
1351
                   tlb->d, tlb->wt);
1352
}
1353

    
1354
static void tlb_info(Monitor *mon)
1355
{
1356
    CPUState *env = mon_get_cpu();
1357
    int i;
1358

    
1359
    monitor_printf (mon, "ITLB:\n");
1360
    for (i = 0 ; i < ITLB_SIZE ; i++)
1361
        print_tlb (mon, i, &env->itlb[i]);
1362
    monitor_printf (mon, "UTLB:\n");
1363
    for (i = 0 ; i < UTLB_SIZE ; i++)
1364
        print_tlb (mon, i, &env->utlb[i]);
1365
}
1366

    
1367
#endif
1368

    
1369
static void do_info_kqemu(Monitor *mon)
1370
{
1371
#ifdef CONFIG_KQEMU
1372
    CPUState *env;
1373
    int val;
1374
    val = 0;
1375
    env = mon_get_cpu();
1376
    if (!env) {
1377
        monitor_printf(mon, "No cpu initialized yet");
1378
        return;
1379
    }
1380
    val = env->kqemu_enabled;
1381
    monitor_printf(mon, "kqemu support: ");
1382
    switch(val) {
1383
    default:
1384
    case 0:
1385
        monitor_printf(mon, "disabled\n");
1386
        break;
1387
    case 1:
1388
        monitor_printf(mon, "enabled for user code\n");
1389
        break;
1390
    case 2:
1391
        monitor_printf(mon, "enabled for user and kernel code\n");
1392
        break;
1393
    }
1394
#else
1395
    monitor_printf(mon, "kqemu support: not compiled\n");
1396
#endif
1397
}
1398

    
1399
static void do_info_kvm(Monitor *mon)
1400
{
1401
#ifdef CONFIG_KVM
1402
    monitor_printf(mon, "kvm support: ");
1403
    if (kvm_enabled())
1404
        monitor_printf(mon, "enabled\n");
1405
    else
1406
        monitor_printf(mon, "disabled\n");
1407
#else
1408
    monitor_printf(mon, "kvm support: not compiled\n");
1409
#endif
1410
}
1411

    
1412
static void do_info_numa(Monitor *mon)
1413
{
1414
    int i;
1415
    CPUState *env;
1416

    
1417
    monitor_printf(mon, "%d nodes\n", nb_numa_nodes);
1418
    for (i = 0; i < nb_numa_nodes; i++) {
1419
        monitor_printf(mon, "node %d cpus:", i);
1420
        for (env = first_cpu; env != NULL; env = env->next_cpu) {
1421
            if (env->numa_node == i) {
1422
                monitor_printf(mon, " %d", env->cpu_index);
1423
            }
1424
        }
1425
        monitor_printf(mon, "\n");
1426
        monitor_printf(mon, "node %d size: %" PRId64 " MB\n", i,
1427
            node_mem[i] >> 20);
1428
    }
1429
}
1430

    
1431
#ifdef CONFIG_PROFILER
1432

    
1433
int64_t kqemu_time;
1434
int64_t qemu_time;
1435
int64_t kqemu_exec_count;
1436
int64_t dev_time;
1437
int64_t kqemu_ret_int_count;
1438
int64_t kqemu_ret_excp_count;
1439
int64_t kqemu_ret_intr_count;
1440

    
1441
static void do_info_profile(Monitor *mon)
1442
{
1443
    int64_t total;
1444
    total = qemu_time;
1445
    if (total == 0)
1446
        total = 1;
1447
    monitor_printf(mon, "async time  %" PRId64 " (%0.3f)\n",
1448
                   dev_time, dev_time / (double)ticks_per_sec);
1449
    monitor_printf(mon, "qemu time   %" PRId64 " (%0.3f)\n",
1450
                   qemu_time, qemu_time / (double)ticks_per_sec);
1451
    monitor_printf(mon, "kqemu time  %" PRId64 " (%0.3f %0.1f%%) count=%"
1452
                        PRId64 " int=%" PRId64 " excp=%" PRId64 " intr=%"
1453
                        PRId64 "\n",
1454
                   kqemu_time, kqemu_time / (double)ticks_per_sec,
1455
                   kqemu_time / (double)total * 100.0,
1456
                   kqemu_exec_count,
1457
                   kqemu_ret_int_count,
1458
                   kqemu_ret_excp_count,
1459
                   kqemu_ret_intr_count);
1460
    qemu_time = 0;
1461
    kqemu_time = 0;
1462
    kqemu_exec_count = 0;
1463
    dev_time = 0;
1464
    kqemu_ret_int_count = 0;
1465
    kqemu_ret_excp_count = 0;
1466
    kqemu_ret_intr_count = 0;
1467
#ifdef CONFIG_KQEMU
1468
    kqemu_record_dump();
1469
#endif
1470
}
1471
#else
1472
static void do_info_profile(Monitor *mon)
1473
{
1474
    monitor_printf(mon, "Internal profiler not compiled\n");
1475
}
1476
#endif
1477

    
1478
/* Capture support */
1479
static LIST_HEAD (capture_list_head, CaptureState) capture_head;
1480

    
1481
static void do_info_capture(Monitor *mon)
1482
{
1483
    int i;
1484
    CaptureState *s;
1485

    
1486
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1487
        monitor_printf(mon, "[%d]: ", i);
1488
        s->ops.info (s->opaque);
1489
    }
1490
}
1491

    
1492
static void do_stop_capture(Monitor *mon, int n)
1493
{
1494
    int i;
1495
    CaptureState *s;
1496

    
1497
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1498
        if (i == n) {
1499
            s->ops.destroy (s->opaque);
1500
            LIST_REMOVE (s, entries);
1501
            qemu_free (s);
1502
            return;
1503
        }
1504
    }
1505
}
1506

    
1507
#ifdef HAS_AUDIO
1508
static void do_wav_capture(Monitor *mon, const char *path,
1509
                           int has_freq, int freq,
1510
                           int has_bits, int bits,
1511
                           int has_channels, int nchannels)
1512
{
1513
    CaptureState *s;
1514

    
1515
    s = qemu_mallocz (sizeof (*s));
1516

    
1517
    freq = has_freq ? freq : 44100;
1518
    bits = has_bits ? bits : 16;
1519
    nchannels = has_channels ? nchannels : 2;
1520

    
1521
    if (wav_start_capture (s, path, freq, bits, nchannels)) {
1522
        monitor_printf(mon, "Faied to add wave capture\n");
1523
        qemu_free (s);
1524
    }
1525
    LIST_INSERT_HEAD (&capture_head, s, entries);
1526
}
1527
#endif
1528

    
1529
#if defined(TARGET_I386)
1530
static void do_inject_nmi(Monitor *mon, int cpu_index)
1531
{
1532
    CPUState *env;
1533

    
1534
    for (env = first_cpu; env != NULL; env = env->next_cpu)
1535
        if (env->cpu_index == cpu_index) {
1536
            cpu_interrupt(env, CPU_INTERRUPT_NMI);
1537
            break;
1538
        }
1539
}
1540
#endif
1541

    
1542
static void do_info_status(Monitor *mon)
1543
{
1544
    if (vm_running) {
1545
        if (singlestep) {
1546
            monitor_printf(mon, "VM status: running (single step mode)\n");
1547
        } else {
1548
            monitor_printf(mon, "VM status: running\n");
1549
        }
1550
    } else
1551
       monitor_printf(mon, "VM status: paused\n");
1552
}
1553

    
1554

    
1555
static void do_balloon(Monitor *mon, int value)
1556
{
1557
    ram_addr_t target = value;
1558
    qemu_balloon(target << 20);
1559
}
1560

    
1561
static void do_info_balloon(Monitor *mon)
1562
{
1563
    ram_addr_t actual;
1564

    
1565
    actual = qemu_balloon_status();
1566
    if (kvm_enabled() && !kvm_has_sync_mmu())
1567
        monitor_printf(mon, "Using KVM without synchronous MMU, "
1568
                       "ballooning disabled\n");
1569
    else if (actual == 0)
1570
        monitor_printf(mon, "Ballooning not activated in VM\n");
1571
    else
1572
        monitor_printf(mon, "balloon: actual=%d\n", (int)(actual >> 20));
1573
}
1574

    
1575
static void do_acl(Monitor *mon,
1576
                   const char *command,
1577
                   const char *aclname,
1578
                   const char *match,
1579
                   int has_index,
1580
                   int index)
1581
{
1582
    qemu_acl *acl;
1583

    
1584
    acl = qemu_acl_find(aclname);
1585
    if (!acl) {
1586
        monitor_printf(mon, "acl: unknown list '%s'\n", aclname);
1587
        return;
1588
    }
1589

    
1590
    if (strcmp(command, "show") == 0) {
1591
        int i = 0;
1592
        qemu_acl_entry *entry;
1593
        monitor_printf(mon, "policy: %s\n",
1594
                       acl->defaultDeny ? "deny" : "allow");
1595
        TAILQ_FOREACH(entry, &acl->entries, next) {
1596
            i++;
1597
            monitor_printf(mon, "%d: %s %s\n", i,
1598
                           entry->deny ? "deny" : "allow",
1599
                           entry->match);
1600
        }
1601
    } else if (strcmp(command, "reset") == 0) {
1602
        qemu_acl_reset(acl);
1603
        monitor_printf(mon, "acl: removed all rules\n");
1604
    } else if (strcmp(command, "policy") == 0) {
1605
        if (!match) {
1606
            monitor_printf(mon, "acl: missing policy parameter\n");
1607
            return;
1608
        }
1609

    
1610
        if (strcmp(match, "allow") == 0) {
1611
            acl->defaultDeny = 0;
1612
            monitor_printf(mon, "acl: policy set to 'allow'\n");
1613
        } else if (strcmp(match, "deny") == 0) {
1614
            acl->defaultDeny = 1;
1615
            monitor_printf(mon, "acl: policy set to 'deny'\n");
1616
        } else {
1617
            monitor_printf(mon, "acl: unknown policy '%s', expected 'deny' or 'allow'\n", match);
1618
        }
1619
    } else if ((strcmp(command, "allow") == 0) ||
1620
               (strcmp(command, "deny") == 0)) {
1621
        int deny = strcmp(command, "deny") == 0 ? 1 : 0;
1622
        int ret;
1623

    
1624
        if (!match) {
1625
            monitor_printf(mon, "acl: missing match parameter\n");
1626
            return;
1627
        }
1628

    
1629
        if (has_index)
1630
            ret = qemu_acl_insert(acl, deny, match, index);
1631
        else
1632
            ret = qemu_acl_append(acl, deny, match);
1633
        if (ret < 0)
1634
            monitor_printf(mon, "acl: unable to add acl entry\n");
1635
        else
1636
            monitor_printf(mon, "acl: added rule at position %d\n", ret);
1637
    } else if (strcmp(command, "remove") == 0) {
1638
        int ret;
1639

    
1640
        if (!match) {
1641
            monitor_printf(mon, "acl: missing match parameter\n");
1642
            return;
1643
        }
1644

    
1645
        ret = qemu_acl_remove(acl, match);
1646
        if (ret < 0)
1647
            monitor_printf(mon, "acl: no matching acl entry\n");
1648
        else
1649
            monitor_printf(mon, "acl: removed rule at position %d\n", ret);
1650
    } else {
1651
        monitor_printf(mon, "acl: unknown command '%s'\n", command);
1652
    }
1653
}
1654

    
1655
/* Please update qemu-doc.texi when adding or changing commands */
1656
static const mon_cmd_t mon_cmds[] = {
1657
    { "help|?", "s?", help_cmd,
1658
      "[cmd]", "show the help" },
1659
    { "commit", "s", do_commit,
1660
      "device|all", "commit changes to the disk images (if -snapshot is used) or backing files" },
1661
    { "info", "s?", do_info,
1662
      "[subcommand]", "show various information about the system state" },
1663
    { "q|quit", "", do_quit,
1664
      "", "quit the emulator" },
1665
    { "eject", "-fB", do_eject,
1666
      "[-f] device", "eject a removable medium (use -f to force it)" },
1667
    { "change", "BFs?", do_change,
1668
      "device filename [format]", "change a removable medium, optional format" },
1669
    { "screendump", "F", do_screen_dump,
1670
      "filename", "save screen into PPM image 'filename'" },
1671
    { "logfile", "F", do_logfile,
1672
      "filename", "output logs to 'filename'" },
1673
    { "log", "s", do_log,
1674
      "item1[,...]", "activate logging of the specified items to '/tmp/qemu.log'" },
1675
    { "savevm", "s?", do_savevm,
1676
      "[tag|id]", "save a VM snapshot. If no tag or id are provided, a new snapshot is created" },
1677
    { "loadvm", "s", do_loadvm,
1678
      "tag|id", "restore a VM snapshot from its tag or id" },
1679
    { "delvm", "s", do_delvm,
1680
      "tag|id", "delete a VM snapshot from its tag or id" },
1681
    { "singlestep", "s?", do_singlestep,
1682
      "[on|off]", "run emulation in singlestep mode or switch to normal mode", },
1683
    { "stop", "", do_stop,
1684
      "", "stop emulation", },
1685
    { "c|cont", "", do_cont,
1686
      "", "resume emulation", },
1687
#ifdef CONFIG_GDBSTUB
1688
    { "gdbserver", "s?", do_gdbserver,
1689
      "[device]", "start gdbserver on given device (default 'tcp::1234'), stop with 'none'", },
1690
#endif
1691
    { "x", "/l", do_memory_dump,
1692
      "/fmt addr", "virtual memory dump starting at 'addr'", },
1693
    { "xp", "/l", do_physical_memory_dump,
1694
      "/fmt addr", "physical memory dump starting at 'addr'", },
1695
    { "p|print", "/l", do_print,
1696
      "/fmt expr", "print expression value (use $reg for CPU register access)", },
1697
    { "i", "/ii.", do_ioport_read,
1698
      "/fmt addr", "I/O port read" },
1699

    
1700
    { "sendkey", "si?", do_sendkey,
1701
      "keys [hold_ms]", "send keys to the VM (e.g. 'sendkey ctrl-alt-f1', default hold time=100 ms)" },
1702
    { "system_reset", "", do_system_reset,
1703
      "", "reset the system" },
1704
    { "system_powerdown", "", do_system_powerdown,
1705
      "", "send system power down event" },
1706
    { "sum", "ii", do_sum,
1707
      "addr size", "compute the checksum of a memory region" },
1708
    { "usb_add", "s", do_usb_add,
1709
      "device", "add USB device (e.g. 'host:bus.addr' or 'host:vendor_id:product_id')" },
1710
    { "usb_del", "s", do_usb_del,
1711
      "device", "remove USB device 'bus.addr'" },
1712
    { "cpu", "i", do_cpu_set,
1713
      "index", "set the default CPU" },
1714
    { "mouse_move", "sss?", do_mouse_move,
1715
      "dx dy [dz]", "send mouse move events" },
1716
    { "mouse_button", "i", do_mouse_button,
1717
      "state", "change mouse button state (1=L, 2=M, 4=R)" },
1718
    { "mouse_set", "i", do_mouse_set,
1719
      "index", "set which mouse device receives events" },
1720
#ifdef HAS_AUDIO
1721
    { "wavcapture", "si?i?i?", do_wav_capture,
1722
      "path [frequency [bits [channels]]]",
1723
      "capture audio to a wave file (default frequency=44100 bits=16 channels=2)" },
1724
#endif
1725
    { "stopcapture", "i", do_stop_capture,
1726
      "capture index", "stop capture" },
1727
    { "memsave", "lis", do_memory_save,
1728
      "addr size file", "save to disk virtual memory dump starting at 'addr' of size 'size'", },
1729
    { "pmemsave", "lis", do_physical_memory_save,
1730
      "addr size file", "save to disk physical memory dump starting at 'addr' of size 'size'", },
1731
    { "boot_set", "s", do_boot_set,
1732
      "bootdevice", "define new values for the boot device list" },
1733
#if defined(TARGET_I386)
1734
    { "nmi", "i", do_inject_nmi,
1735
      "cpu", "inject an NMI on the given CPU", },
1736
#endif
1737
    { "migrate", "-ds", do_migrate,
1738
      "[-d] uri", "migrate to URI (using -d to not wait for completion)" },
1739
    { "migrate_cancel", "", do_migrate_cancel,
1740
      "", "cancel the current VM migration" },
1741
    { "migrate_set_speed", "s", do_migrate_set_speed,
1742
      "value", "set maximum speed (in bytes) for migrations" },
1743
#if defined(TARGET_I386)
1744
    { "drive_add", "ss", drive_hot_add, "pci_addr=[[<domain>:]<bus>:]<slot>\n"
1745
                                         "[file=file][,if=type][,bus=n]\n"
1746
                                        "[,unit=m][,media=d][index=i]\n"
1747
                                        "[,cyls=c,heads=h,secs=s[,trans=t]]\n"
1748
                                        "[snapshot=on|off][,cache=on|off]",
1749
                                        "add drive to PCI storage controller" },
1750
    { "pci_add", "sss", pci_device_hot_add, "pci_addr=auto|[[<domain>:]<bus>:]<slot> nic|storage [[vlan=n][,macaddr=addr][,model=type]] [file=file][,if=type][,bus=nr]...", "hot-add PCI device" },
1751
    { "pci_del", "s", pci_device_hot_remove, "pci_addr=[[<domain>:]<bus>:]<slot>", "hot remove PCI device" },
1752
#endif
1753
    { "host_net_add", "ss?", net_host_device_add,
1754
      "tap|user|socket|vde|dump [options]", "add host VLAN client" },
1755
    { "host_net_remove", "is", net_host_device_remove,
1756
      "vlan_id name", "remove host VLAN client" },
1757
#ifdef CONFIG_SLIRP
1758
    { "host_net_redir", "s", net_slirp_redir,
1759
      "[tcp|udp]:host-port:[guest-host]:guest-port", "redirect TCP or UDP connections from host to guest (requires -net user)" },
1760
#endif
1761
    { "balloon", "i", do_balloon,
1762
      "target", "request VM to change it's memory allocation (in MB)" },
1763
    { "set_link", "ss", do_set_link,
1764
      "name up|down", "change the link status of a network adapter" },
1765
    { "acl", "sss?i?", do_acl, "<command> <aclname> [<match> [<index>]]\n",
1766
                               "acl show vnc.username\n"
1767
                               "acl policy vnc.username deny\n"
1768
                               "acl allow vnc.username fred\n"
1769
                               "acl deny vnc.username bob\n"
1770
                               "acl reset vnc.username\n" },
1771
    { NULL, NULL, },
1772
};
1773

    
1774
/* Please update qemu-doc.texi when adding or changing commands */
1775
static const mon_cmd_t info_cmds[] = {
1776
    { "version", "", do_info_version,
1777
      "", "show the version of QEMU" },
1778
    { "network", "", do_info_network,
1779
      "", "show the network state" },
1780
    { "chardev", "", qemu_chr_info,
1781
      "", "show the character devices" },
1782
    { "block", "", bdrv_info,
1783
      "", "show the block devices" },
1784
    { "blockstats", "", bdrv_info_stats,
1785
      "", "show block device statistics" },
1786
    { "registers", "", do_info_registers,
1787
      "", "show the cpu registers" },
1788
    { "cpus", "", do_info_cpus,
1789
      "", "show infos for each CPU" },
1790
    { "history", "", do_info_history,
1791
      "", "show the command line history", },
1792
    { "irq", "", irq_info,
1793
      "", "show the interrupts statistics (if available)", },
1794
    { "pic", "", pic_info,
1795
      "", "show i8259 (PIC) state", },
1796
    { "pci", "", pci_info,
1797
      "", "show PCI info", },
1798
#if defined(TARGET_I386) || defined(TARGET_SH4)
1799
    { "tlb", "", tlb_info,
1800
      "", "show virtual to physical memory mappings", },
1801
#endif
1802
#if defined(TARGET_I386)
1803
    { "mem", "", mem_info,
1804
      "", "show the active virtual memory mappings", },
1805
    { "hpet", "", do_info_hpet,
1806
      "", "show state of HPET", },
1807
#endif
1808
    { "jit", "", do_info_jit,
1809
      "", "show dynamic compiler info", },
1810
    { "kqemu", "", do_info_kqemu,
1811
      "", "show KQEMU information", },
1812
    { "kvm", "", do_info_kvm,
1813
      "", "show KVM information", },
1814
    { "numa", "", do_info_numa,
1815
      "", "show NUMA information", },
1816
    { "usb", "", usb_info,
1817
      "", "show guest USB devices", },
1818
    { "usbhost", "", usb_host_info,
1819
      "", "show host USB devices", },
1820
    { "profile", "", do_info_profile,
1821
      "", "show profiling information", },
1822
    { "capture", "", do_info_capture,
1823
      "", "show capture information" },
1824
    { "snapshots", "", do_info_snapshots,
1825
      "", "show the currently saved VM snapshots" },
1826
    { "status", "", do_info_status,
1827
      "", "show the current VM status (running|paused)" },
1828
    { "pcmcia", "", pcmcia_info,
1829
      "", "show guest PCMCIA status" },
1830
    { "mice", "", do_info_mice,
1831
      "", "show which guest mouse is receiving events" },
1832
    { "vnc", "", do_info_vnc,
1833
      "", "show the vnc server status"},
1834
    { "name", "", do_info_name,
1835
      "", "show the current VM name" },
1836
    { "uuid", "", do_info_uuid,
1837
      "", "show the current VM UUID" },
1838
#if defined(TARGET_PPC)
1839
    { "cpustats", "", do_info_cpu_stats,
1840
      "", "show CPU statistics", },
1841
#endif
1842
#if defined(CONFIG_SLIRP)
1843
    { "slirp", "", do_info_slirp,
1844
      "", "show SLIRP statistics", },
1845
#endif
1846
    { "migrate", "", do_info_migrate, "", "show migration status" },
1847
    { "balloon", "", do_info_balloon,
1848
      "", "show balloon information" },
1849
    { NULL, NULL, },
1850
};
1851

    
1852
/*******************************************************************/
1853

    
1854
static const char *pch;
1855
static jmp_buf expr_env;
1856

    
1857
#define MD_TLONG 0
1858
#define MD_I32   1
1859

    
1860
typedef struct MonitorDef {
1861
    const char *name;
1862
    int offset;
1863
    target_long (*get_value)(const struct MonitorDef *md, int val);
1864
    int type;
1865
} MonitorDef;
1866

    
1867
#if defined(TARGET_I386)
1868
static target_long monitor_get_pc (const struct MonitorDef *md, int val)
1869
{
1870
    CPUState *env = mon_get_cpu();
1871
    if (!env)
1872
        return 0;
1873
    return env->eip + env->segs[R_CS].base;
1874
}
1875
#endif
1876

    
1877
#if defined(TARGET_PPC)
1878
static target_long monitor_get_ccr (const struct MonitorDef *md, int val)
1879
{
1880
    CPUState *env = mon_get_cpu();
1881
    unsigned int u;
1882
    int i;
1883

    
1884
    if (!env)
1885
        return 0;
1886

    
1887
    u = 0;
1888
    for (i = 0; i < 8; i++)
1889
        u |= env->crf[i] << (32 - (4 * i));
1890

    
1891
    return u;
1892
}
1893

    
1894
static target_long monitor_get_msr (const struct MonitorDef *md, int val)
1895
{
1896
    CPUState *env = mon_get_cpu();
1897
    if (!env)
1898
        return 0;
1899
    return env->msr;
1900
}
1901

    
1902
static target_long monitor_get_xer (const struct MonitorDef *md, int val)
1903
{
1904
    CPUState *env = mon_get_cpu();
1905
    if (!env)
1906
        return 0;
1907
    return env->xer;
1908
}
1909

    
1910
static target_long monitor_get_decr (const struct MonitorDef *md, int val)
1911
{
1912
    CPUState *env = mon_get_cpu();
1913
    if (!env)
1914
        return 0;
1915
    return cpu_ppc_load_decr(env);
1916
}
1917

    
1918
static target_long monitor_get_tbu (const struct MonitorDef *md, int val)
1919
{
1920
    CPUState *env = mon_get_cpu();
1921
    if (!env)
1922
        return 0;
1923
    return cpu_ppc_load_tbu(env);
1924
}
1925

    
1926
static target_long monitor_get_tbl (const struct MonitorDef *md, int val)
1927
{
1928
    CPUState *env = mon_get_cpu();
1929
    if (!env)
1930
        return 0;
1931
    return cpu_ppc_load_tbl(env);
1932
}
1933
#endif
1934

    
1935
#if defined(TARGET_SPARC)
1936
#ifndef TARGET_SPARC64
1937
static target_long monitor_get_psr (const struct MonitorDef *md, int val)
1938
{
1939
    CPUState *env = mon_get_cpu();
1940
    if (!env)
1941
        return 0;
1942
    return GET_PSR(env);
1943
}
1944
#endif
1945

    
1946
static target_long monitor_get_reg(const struct MonitorDef *md, int val)
1947
{
1948
    CPUState *env = mon_get_cpu();
1949
    if (!env)
1950
        return 0;
1951
    return env->regwptr[val];
1952
}
1953
#endif
1954

    
1955
static const MonitorDef monitor_defs[] = {
1956
#ifdef TARGET_I386
1957

    
1958
#define SEG(name, seg) \
1959
    { name, offsetof(CPUState, segs[seg].selector), NULL, MD_I32 },\
1960
    { name ".base", offsetof(CPUState, segs[seg].base) },\
1961
    { name ".limit", offsetof(CPUState, segs[seg].limit), NULL, MD_I32 },
1962

    
1963
    { "eax", offsetof(CPUState, regs[0]) },
1964
    { "ecx", offsetof(CPUState, regs[1]) },
1965
    { "edx", offsetof(CPUState, regs[2]) },
1966
    { "ebx", offsetof(CPUState, regs[3]) },
1967
    { "esp|sp", offsetof(CPUState, regs[4]) },
1968
    { "ebp|fp", offsetof(CPUState, regs[5]) },
1969
    { "esi", offsetof(CPUState, regs[6]) },
1970
    { "edi", offsetof(CPUState, regs[7]) },
1971
#ifdef TARGET_X86_64
1972
    { "r8", offsetof(CPUState, regs[8]) },
1973
    { "r9", offsetof(CPUState, regs[9]) },
1974
    { "r10", offsetof(CPUState, regs[10]) },
1975
    { "r11", offsetof(CPUState, regs[11]) },
1976
    { "r12", offsetof(CPUState, regs[12]) },
1977
    { "r13", offsetof(CPUState, regs[13]) },
1978
    { "r14", offsetof(CPUState, regs[14]) },
1979
    { "r15", offsetof(CPUState, regs[15]) },
1980
#endif
1981
    { "eflags", offsetof(CPUState, eflags) },
1982
    { "eip", offsetof(CPUState, eip) },
1983
    SEG("cs", R_CS)
1984
    SEG("ds", R_DS)
1985
    SEG("es", R_ES)
1986
    SEG("ss", R_SS)
1987
    SEG("fs", R_FS)
1988
    SEG("gs", R_GS)
1989
    { "pc", 0, monitor_get_pc, },
1990
#elif defined(TARGET_PPC)
1991
    /* General purpose registers */
1992
    { "r0", offsetof(CPUState, gpr[0]) },
1993
    { "r1", offsetof(CPUState, gpr[1]) },
1994
    { "r2", offsetof(CPUState, gpr[2]) },
1995
    { "r3", offsetof(CPUState, gpr[3]) },
1996
    { "r4", offsetof(CPUState, gpr[4]) },
1997
    { "r5", offsetof(CPUState, gpr[5]) },
1998
    { "r6", offsetof(CPUState, gpr[6]) },
1999
    { "r7", offsetof(CPUState, gpr[7]) },
2000
    { "r8", offsetof(CPUState, gpr[8]) },
2001
    { "r9", offsetof(CPUState, gpr[9]) },
2002
    { "r10", offsetof(CPUState, gpr[10]) },
2003
    { "r11", offsetof(CPUState, gpr[11]) },
2004
    { "r12", offsetof(CPUState, gpr[12]) },
2005
    { "r13", offsetof(CPUState, gpr[13]) },
2006
    { "r14", offsetof(CPUState, gpr[14]) },
2007
    { "r15", offsetof(CPUState, gpr[15]) },
2008
    { "r16", offsetof(CPUState, gpr[16]) },
2009
    { "r17", offsetof(CPUState, gpr[17]) },
2010
    { "r18", offsetof(CPUState, gpr[18]) },
2011
    { "r19", offsetof(CPUState, gpr[19]) },
2012
    { "r20", offsetof(CPUState, gpr[20]) },
2013
    { "r21", offsetof(CPUState, gpr[21]) },
2014
    { "r22", offsetof(CPUState, gpr[22]) },
2015
    { "r23", offsetof(CPUState, gpr[23]) },
2016
    { "r24", offsetof(CPUState, gpr[24]) },
2017
    { "r25", offsetof(CPUState, gpr[25]) },
2018
    { "r26", offsetof(CPUState, gpr[26]) },
2019
    { "r27", offsetof(CPUState, gpr[27]) },
2020
    { "r28", offsetof(CPUState, gpr[28]) },
2021
    { "r29", offsetof(CPUState, gpr[29]) },
2022
    { "r30", offsetof(CPUState, gpr[30]) },
2023
    { "r31", offsetof(CPUState, gpr[31]) },
2024
    /* Floating point registers */
2025
    { "f0", offsetof(CPUState, fpr[0]) },
2026
    { "f1", offsetof(CPUState, fpr[1]) },
2027
    { "f2", offsetof(CPUState, fpr[2]) },
2028
    { "f3", offsetof(CPUState, fpr[3]) },
2029
    { "f4", offsetof(CPUState, fpr[4]) },
2030
    { "f5", offsetof(CPUState, fpr[5]) },
2031
    { "f6", offsetof(CPUState, fpr[6]) },
2032
    { "f7", offsetof(CPUState, fpr[7]) },
2033
    { "f8", offsetof(CPUState, fpr[8]) },
2034
    { "f9", offsetof(CPUState, fpr[9]) },
2035
    { "f10", offsetof(CPUState, fpr[10]) },
2036
    { "f11", offsetof(CPUState, fpr[11]) },
2037
    { "f12", offsetof(CPUState, fpr[12]) },
2038
    { "f13", offsetof(CPUState, fpr[13]) },
2039
    { "f14", offsetof(CPUState, fpr[14]) },
2040
    { "f15", offsetof(CPUState, fpr[15]) },
2041
    { "f16", offsetof(CPUState, fpr[16]) },
2042
    { "f17", offsetof(CPUState, fpr[17]) },
2043
    { "f18", offsetof(CPUState, fpr[18]) },
2044
    { "f19", offsetof(CPUState, fpr[19]) },
2045
    { "f20", offsetof(CPUState, fpr[20]) },
2046
    { "f21", offsetof(CPUState, fpr[21]) },
2047
    { "f22", offsetof(CPUState, fpr[22]) },
2048
    { "f23", offsetof(CPUState, fpr[23]) },
2049
    { "f24", offsetof(CPUState, fpr[24]) },
2050
    { "f25", offsetof(CPUState, fpr[25]) },
2051
    { "f26", offsetof(CPUState, fpr[26]) },
2052
    { "f27", offsetof(CPUState, fpr[27]) },
2053
    { "f28", offsetof(CPUState, fpr[28]) },
2054
    { "f29", offsetof(CPUState, fpr[29]) },
2055
    { "f30", offsetof(CPUState, fpr[30]) },
2056
    { "f31", offsetof(CPUState, fpr[31]) },
2057
    { "fpscr", offsetof(CPUState, fpscr) },
2058
    /* Next instruction pointer */
2059
    { "nip|pc", offsetof(CPUState, nip) },
2060
    { "lr", offsetof(CPUState, lr) },
2061
    { "ctr", offsetof(CPUState, ctr) },
2062
    { "decr", 0, &monitor_get_decr, },
2063
    { "ccr", 0, &monitor_get_ccr, },
2064
    /* Machine state register */
2065
    { "msr", 0, &monitor_get_msr, },
2066
    { "xer", 0, &monitor_get_xer, },
2067
    { "tbu", 0, &monitor_get_tbu, },
2068
    { "tbl", 0, &monitor_get_tbl, },
2069
#if defined(TARGET_PPC64)
2070
    /* Address space register */
2071
    { "asr", offsetof(CPUState, asr) },
2072
#endif
2073
    /* Segment registers */
2074
    { "sdr1", offsetof(CPUState, sdr1) },
2075
    { "sr0", offsetof(CPUState, sr[0]) },
2076
    { "sr1", offsetof(CPUState, sr[1]) },
2077
    { "sr2", offsetof(CPUState, sr[2]) },
2078
    { "sr3", offsetof(CPUState, sr[3]) },
2079
    { "sr4", offsetof(CPUState, sr[4]) },
2080
    { "sr5", offsetof(CPUState, sr[5]) },
2081
    { "sr6", offsetof(CPUState, sr[6]) },
2082
    { "sr7", offsetof(CPUState, sr[7]) },
2083
    { "sr8", offsetof(CPUState, sr[8]) },
2084
    { "sr9", offsetof(CPUState, sr[9]) },
2085
    { "sr10", offsetof(CPUState, sr[10]) },
2086
    { "sr11", offsetof(CPUState, sr[11]) },
2087
    { "sr12", offsetof(CPUState, sr[12]) },
2088
    { "sr13", offsetof(CPUState, sr[13]) },
2089
    { "sr14", offsetof(CPUState, sr[14]) },
2090
    { "sr15", offsetof(CPUState, sr[15]) },
2091
    /* Too lazy to put BATs and SPRs ... */
2092
#elif defined(TARGET_SPARC)
2093
    { "g0", offsetof(CPUState, gregs[0]) },
2094
    { "g1", offsetof(CPUState, gregs[1]) },
2095
    { "g2", offsetof(CPUState, gregs[2]) },
2096
    { "g3", offsetof(CPUState, gregs[3]) },
2097
    { "g4", offsetof(CPUState, gregs[4]) },
2098
    { "g5", offsetof(CPUState, gregs[5]) },
2099
    { "g6", offsetof(CPUState, gregs[6]) },
2100
    { "g7", offsetof(CPUState, gregs[7]) },
2101
    { "o0", 0, monitor_get_reg },
2102
    { "o1", 1, monitor_get_reg },
2103
    { "o2", 2, monitor_get_reg },
2104
    { "o3", 3, monitor_get_reg },
2105
    { "o4", 4, monitor_get_reg },
2106
    { "o5", 5, monitor_get_reg },
2107
    { "o6", 6, monitor_get_reg },
2108
    { "o7", 7, monitor_get_reg },
2109
    { "l0", 8, monitor_get_reg },
2110
    { "l1", 9, monitor_get_reg },
2111
    { "l2", 10, monitor_get_reg },
2112
    { "l3", 11, monitor_get_reg },
2113
    { "l4", 12, monitor_get_reg },
2114
    { "l5", 13, monitor_get_reg },
2115
    { "l6", 14, monitor_get_reg },
2116
    { "l7", 15, monitor_get_reg },
2117
    { "i0", 16, monitor_get_reg },
2118
    { "i1", 17, monitor_get_reg },
2119
    { "i2", 18, monitor_get_reg },
2120
    { "i3", 19, monitor_get_reg },
2121
    { "i4", 20, monitor_get_reg },
2122
    { "i5", 21, monitor_get_reg },
2123
    { "i6", 22, monitor_get_reg },
2124
    { "i7", 23, monitor_get_reg },
2125
    { "pc", offsetof(CPUState, pc) },
2126
    { "npc", offsetof(CPUState, npc) },
2127
    { "y", offsetof(CPUState, y) },
2128
#ifndef TARGET_SPARC64
2129
    { "psr", 0, &monitor_get_psr, },
2130
    { "wim", offsetof(CPUState, wim) },
2131
#endif
2132
    { "tbr", offsetof(CPUState, tbr) },
2133
    { "fsr", offsetof(CPUState, fsr) },
2134
    { "f0", offsetof(CPUState, fpr[0]) },
2135
    { "f1", offsetof(CPUState, fpr[1]) },
2136
    { "f2", offsetof(CPUState, fpr[2]) },
2137
    { "f3", offsetof(CPUState, fpr[3]) },
2138
    { "f4", offsetof(CPUState, fpr[4]) },
2139
    { "f5", offsetof(CPUState, fpr[5]) },
2140
    { "f6", offsetof(CPUState, fpr[6]) },
2141
    { "f7", offsetof(CPUState, fpr[7]) },
2142
    { "f8", offsetof(CPUState, fpr[8]) },
2143
    { "f9", offsetof(CPUState, fpr[9]) },
2144
    { "f10", offsetof(CPUState, fpr[10]) },
2145
    { "f11", offsetof(CPUState, fpr[11]) },
2146
    { "f12", offsetof(CPUState, fpr[12]) },
2147
    { "f13", offsetof(CPUState, fpr[13]) },
2148
    { "f14", offsetof(CPUState, fpr[14]) },
2149
    { "f15", offsetof(CPUState, fpr[15]) },
2150
    { "f16", offsetof(CPUState, fpr[16]) },
2151
    { "f17", offsetof(CPUState, fpr[17]) },
2152
    { "f18", offsetof(CPUState, fpr[18]) },
2153
    { "f19", offsetof(CPUState, fpr[19]) },
2154
    { "f20", offsetof(CPUState, fpr[20]) },
2155
    { "f21", offsetof(CPUState, fpr[21]) },
2156
    { "f22", offsetof(CPUState, fpr[22]) },
2157
    { "f23", offsetof(CPUState, fpr[23]) },
2158
    { "f24", offsetof(CPUState, fpr[24]) },
2159
    { "f25", offsetof(CPUState, fpr[25]) },
2160
    { "f26", offsetof(CPUState, fpr[26]) },
2161
    { "f27", offsetof(CPUState, fpr[27]) },
2162
    { "f28", offsetof(CPUState, fpr[28]) },
2163
    { "f29", offsetof(CPUState, fpr[29]) },
2164
    { "f30", offsetof(CPUState, fpr[30]) },
2165
    { "f31", offsetof(CPUState, fpr[31]) },
2166
#ifdef TARGET_SPARC64
2167
    { "f32", offsetof(CPUState, fpr[32]) },
2168
    { "f34", offsetof(CPUState, fpr[34]) },
2169
    { "f36", offsetof(CPUState, fpr[36]) },
2170
    { "f38", offsetof(CPUState, fpr[38]) },
2171
    { "f40", offsetof(CPUState, fpr[40]) },
2172
    { "f42", offsetof(CPUState, fpr[42]) },
2173
    { "f44", offsetof(CPUState, fpr[44]) },
2174
    { "f46", offsetof(CPUState, fpr[46]) },
2175
    { "f48", offsetof(CPUState, fpr[48]) },
2176
    { "f50", offsetof(CPUState, fpr[50]) },
2177
    { "f52", offsetof(CPUState, fpr[52]) },
2178
    { "f54", offsetof(CPUState, fpr[54]) },
2179
    { "f56", offsetof(CPUState, fpr[56]) },
2180
    { "f58", offsetof(CPUState, fpr[58]) },
2181
    { "f60", offsetof(CPUState, fpr[60]) },
2182
    { "f62", offsetof(CPUState, fpr[62]) },
2183
    { "asi", offsetof(CPUState, asi) },
2184
    { "pstate", offsetof(CPUState, pstate) },
2185
    { "cansave", offsetof(CPUState, cansave) },
2186
    { "canrestore", offsetof(CPUState, canrestore) },
2187
    { "otherwin", offsetof(CPUState, otherwin) },
2188
    { "wstate", offsetof(CPUState, wstate) },
2189
    { "cleanwin", offsetof(CPUState, cleanwin) },
2190
    { "fprs", offsetof(CPUState, fprs) },
2191
#endif
2192
#endif
2193
    { NULL },
2194
};
2195

    
2196
static void expr_error(Monitor *mon, const char *msg)
2197
{
2198
    monitor_printf(mon, "%s\n", msg);
2199
    longjmp(expr_env, 1);
2200
}
2201

    
2202
/* return 0 if OK, -1 if not found, -2 if no CPU defined */
2203
static int get_monitor_def(target_long *pval, const char *name)
2204
{
2205
    const MonitorDef *md;
2206
    void *ptr;
2207

    
2208
    for(md = monitor_defs; md->name != NULL; md++) {
2209
        if (compare_cmd(name, md->name)) {
2210
            if (md->get_value) {
2211
                *pval = md->get_value(md, md->offset);
2212
            } else {
2213
                CPUState *env = mon_get_cpu();
2214
                if (!env)
2215
                    return -2;
2216
                ptr = (uint8_t *)env + md->offset;
2217
                switch(md->type) {
2218
                case MD_I32:
2219
                    *pval = *(int32_t *)ptr;
2220
                    break;
2221
                case MD_TLONG:
2222
                    *pval = *(target_long *)ptr;
2223
                    break;
2224
                default:
2225
                    *pval = 0;
2226
                    break;
2227
                }
2228
            }
2229
            return 0;
2230
        }
2231
    }
2232
    return -1;
2233
}
2234

    
2235
static void next(void)
2236
{
2237
    if (pch != '\0') {
2238
        pch++;
2239
        while (qemu_isspace(*pch))
2240
            pch++;
2241
    }
2242
}
2243

    
2244
static int64_t expr_sum(Monitor *mon);
2245

    
2246
static int64_t expr_unary(Monitor *mon)
2247
{
2248
    int64_t n;
2249
    char *p;
2250
    int ret;
2251

    
2252
    switch(*pch) {
2253
    case '+':
2254
        next();
2255
        n = expr_unary(mon);
2256
        break;
2257
    case '-':
2258
        next();
2259
        n = -expr_unary(mon);
2260
        break;
2261
    case '~':
2262
        next();
2263
        n = ~expr_unary(mon);
2264
        break;
2265
    case '(':
2266
        next();
2267
        n = expr_sum(mon);
2268
        if (*pch != ')') {
2269
            expr_error(mon, "')' expected");
2270
        }
2271
        next();
2272
        break;
2273
    case '\'':
2274
        pch++;
2275
        if (*pch == '\0')
2276
            expr_error(mon, "character constant expected");
2277
        n = *pch;
2278
        pch++;
2279
        if (*pch != '\'')
2280
            expr_error(mon, "missing terminating \' character");
2281
        next();
2282
        break;
2283
    case '$':
2284
        {
2285
            char buf[128], *q;
2286
            target_long reg=0;
2287

    
2288
            pch++;
2289
            q = buf;
2290
            while ((*pch >= 'a' && *pch <= 'z') ||
2291
                   (*pch >= 'A' && *pch <= 'Z') ||
2292
                   (*pch >= '0' && *pch <= '9') ||
2293
                   *pch == '_' || *pch == '.') {
2294
                if ((q - buf) < sizeof(buf) - 1)
2295
                    *q++ = *pch;
2296
                pch++;
2297
            }
2298
            while (qemu_isspace(*pch))
2299
                pch++;
2300
            *q = 0;
2301
            ret = get_monitor_def(&reg, buf);
2302
            if (ret == -1)
2303
                expr_error(mon, "unknown register");
2304
            else if (ret == -2)
2305
                expr_error(mon, "no cpu defined");
2306
            n = reg;
2307
        }
2308
        break;
2309
    case '\0':
2310
        expr_error(mon, "unexpected end of expression");
2311
        n = 0;
2312
        break;
2313
    default:
2314
#if TARGET_PHYS_ADDR_BITS > 32
2315
        n = strtoull(pch, &p, 0);
2316
#else
2317
        n = strtoul(pch, &p, 0);
2318
#endif
2319
        if (pch == p) {
2320
            expr_error(mon, "invalid char in expression");
2321
        }
2322
        pch = p;
2323
        while (qemu_isspace(*pch))
2324
            pch++;
2325
        break;
2326
    }
2327
    return n;
2328
}
2329

    
2330

    
2331
static int64_t expr_prod(Monitor *mon)
2332
{
2333
    int64_t val, val2;
2334
    int op;
2335

    
2336
    val = expr_unary(mon);
2337
    for(;;) {
2338
        op = *pch;
2339
        if (op != '*' && op != '/' && op != '%')
2340
            break;
2341
        next();
2342
        val2 = expr_unary(mon);
2343
        switch(op) {
2344
        default:
2345
        case '*':
2346
            val *= val2;
2347
            break;
2348
        case '/':
2349
        case '%':
2350
            if (val2 == 0)
2351
                expr_error(mon, "division by zero");
2352
            if (op == '/')
2353
                val /= val2;
2354
            else
2355
                val %= val2;
2356
            break;
2357
        }
2358
    }
2359
    return val;
2360
}
2361

    
2362
static int64_t expr_logic(Monitor *mon)
2363
{
2364
    int64_t val, val2;
2365
    int op;
2366

    
2367
    val = expr_prod(mon);
2368
    for(;;) {
2369
        op = *pch;
2370
        if (op != '&' && op != '|' && op != '^')
2371
            break;
2372
        next();
2373
        val2 = expr_prod(mon);
2374
        switch(op) {
2375
        default:
2376
        case '&':
2377
            val &= val2;
2378
            break;
2379
        case '|':
2380
            val |= val2;
2381
            break;
2382
        case '^':
2383
            val ^= val2;
2384
            break;
2385
        }
2386
    }
2387
    return val;
2388
}
2389

    
2390
static int64_t expr_sum(Monitor *mon)
2391
{
2392
    int64_t val, val2;
2393
    int op;
2394

    
2395
    val = expr_logic(mon);
2396
    for(;;) {
2397
        op = *pch;
2398
        if (op != '+' && op != '-')
2399
            break;
2400
        next();
2401
        val2 = expr_logic(mon);
2402
        if (op == '+')
2403
            val += val2;
2404
        else
2405
            val -= val2;
2406
    }
2407
    return val;
2408
}
2409

    
2410
static int get_expr(Monitor *mon, int64_t *pval, const char **pp)
2411
{
2412
    pch = *pp;
2413
    if (setjmp(expr_env)) {
2414
        *pp = pch;
2415
        return -1;
2416
    }
2417
    while (qemu_isspace(*pch))
2418
        pch++;
2419
    *pval = expr_sum(mon);
2420
    *pp = pch;
2421
    return 0;
2422
}
2423

    
2424
static int get_str(char *buf, int buf_size, const char **pp)
2425
{
2426
    const char *p;
2427
    char *q;
2428
    int c;
2429

    
2430
    q = buf;
2431
    p = *pp;
2432
    while (qemu_isspace(*p))
2433
        p++;
2434
    if (*p == '\0') {
2435
    fail:
2436
        *q = '\0';
2437
        *pp = p;
2438
        return -1;
2439
    }
2440
    if (*p == '\"') {
2441
        p++;
2442
        while (*p != '\0' && *p != '\"') {
2443
            if (*p == '\\') {
2444
                p++;
2445
                c = *p++;
2446
                switch(c) {
2447
                case 'n':
2448
                    c = '\n';
2449
                    break;
2450
                case 'r':
2451
                    c = '\r';
2452
                    break;
2453
                case '\\':
2454
                case '\'':
2455
                case '\"':
2456
                    break;
2457
                default:
2458
                    qemu_printf("unsupported escape code: '\\%c'\n", c);
2459
                    goto fail;
2460
                }
2461
                if ((q - buf) < buf_size - 1) {
2462
                    *q++ = c;
2463
                }
2464
            } else {
2465
                if ((q - buf) < buf_size - 1) {
2466
                    *q++ = *p;
2467
                }
2468
                p++;
2469
            }
2470
        }
2471
        if (*p != '\"') {
2472
            qemu_printf("unterminated string\n");
2473
            goto fail;
2474
        }
2475
        p++;
2476
    } else {
2477
        while (*p != '\0' && !qemu_isspace(*p)) {
2478
            if ((q - buf) < buf_size - 1) {
2479
                *q++ = *p;
2480
            }
2481
            p++;
2482
        }
2483
    }
2484
    *q = '\0';
2485
    *pp = p;
2486
    return 0;
2487
}
2488

    
2489
static int default_fmt_format = 'x';
2490
static int default_fmt_size = 4;
2491

    
2492
#define MAX_ARGS 16
2493

    
2494
static void monitor_handle_command(Monitor *mon, const char *cmdline)
2495
{
2496
    const char *p, *pstart, *typestr;
2497
    char *q;
2498
    int c, nb_args, len, i, has_arg;
2499
    const mon_cmd_t *cmd;
2500
    char cmdname[256];
2501
    char buf[1024];
2502
    void *str_allocated[MAX_ARGS];
2503
    void *args[MAX_ARGS];
2504
    void (*handler_0)(Monitor *mon);
2505
    void (*handler_1)(Monitor *mon, void *arg0);
2506
    void (*handler_2)(Monitor *mon, void *arg0, void *arg1);
2507
    void (*handler_3)(Monitor *mon, void *arg0, void *arg1, void *arg2);
2508
    void (*handler_4)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2509
                      void *arg3);
2510
    void (*handler_5)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2511
                      void *arg3, void *arg4);
2512
    void (*handler_6)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2513
                      void *arg3, void *arg4, void *arg5);
2514
    void (*handler_7)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2515
                      void *arg3, void *arg4, void *arg5, void *arg6);
2516

    
2517
#ifdef DEBUG
2518
    monitor_printf(mon, "command='%s'\n", cmdline);
2519
#endif
2520

    
2521
    /* extract the command name */
2522
    p = cmdline;
2523
    q = cmdname;
2524
    while (qemu_isspace(*p))
2525
        p++;
2526
    if (*p == '\0')
2527
        return;
2528
    pstart = p;
2529
    while (*p != '\0' && *p != '/' && !qemu_isspace(*p))
2530
        p++;
2531
    len = p - pstart;
2532
    if (len > sizeof(cmdname) - 1)
2533
        len = sizeof(cmdname) - 1;
2534
    memcpy(cmdname, pstart, len);
2535
    cmdname[len] = '\0';
2536

    
2537
    /* find the command */
2538
    for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
2539
        if (compare_cmd(cmdname, cmd->name))
2540
            goto found;
2541
    }
2542
    monitor_printf(mon, "unknown command: '%s'\n", cmdname);
2543
    return;
2544
 found:
2545

    
2546
    for(i = 0; i < MAX_ARGS; i++)
2547
        str_allocated[i] = NULL;
2548

    
2549
    /* parse the parameters */
2550
    typestr = cmd->args_type;
2551
    nb_args = 0;
2552
    for(;;) {
2553
        c = *typestr;
2554
        if (c == '\0')
2555
            break;
2556
        typestr++;
2557
        switch(c) {
2558
        case 'F':
2559
        case 'B':
2560
        case 's':
2561
            {
2562
                int ret;
2563
                char *str;
2564

    
2565
                while (qemu_isspace(*p))
2566
                    p++;
2567
                if (*typestr == '?') {
2568
                    typestr++;
2569
                    if (*p == '\0') {
2570
                        /* no optional string: NULL argument */
2571
                        str = NULL;
2572
                        goto add_str;
2573
                    }
2574
                }
2575
                ret = get_str(buf, sizeof(buf), &p);
2576
                if (ret < 0) {
2577
                    switch(c) {
2578
                    case 'F':
2579
                        monitor_printf(mon, "%s: filename expected\n",
2580
                                       cmdname);
2581
                        break;
2582
                    case 'B':
2583
                        monitor_printf(mon, "%s: block device name expected\n",
2584
                                       cmdname);
2585
                        break;
2586
                    default:
2587
                        monitor_printf(mon, "%s: string expected\n", cmdname);
2588
                        break;
2589
                    }
2590
                    goto fail;
2591
                }
2592
                str = qemu_malloc(strlen(buf) + 1);
2593
                pstrcpy(str, sizeof(buf), buf);
2594
                str_allocated[nb_args] = str;
2595
            add_str:
2596
                if (nb_args >= MAX_ARGS) {
2597
                error_args:
2598
                    monitor_printf(mon, "%s: too many arguments\n", cmdname);
2599
                    goto fail;
2600
                }
2601
                args[nb_args++] = str;
2602
            }
2603
            break;
2604
        case '/':
2605
            {
2606
                int count, format, size;
2607

    
2608
                while (qemu_isspace(*p))
2609
                    p++;
2610
                if (*p == '/') {
2611
                    /* format found */
2612
                    p++;
2613
                    count = 1;
2614
                    if (qemu_isdigit(*p)) {
2615
                        count = 0;
2616
                        while (qemu_isdigit(*p)) {
2617
                            count = count * 10 + (*p - '0');
2618
                            p++;
2619
                        }
2620
                    }
2621
                    size = -1;
2622
                    format = -1;
2623
                    for(;;) {
2624
                        switch(*p) {
2625
                        case 'o':
2626
                        case 'd':
2627
                        case 'u':
2628
                        case 'x':
2629
                        case 'i':
2630
                        case 'c':
2631
                            format = *p++;
2632
                            break;
2633
                        case 'b':
2634
                            size = 1;
2635
                            p++;
2636
                            break;
2637
                        case 'h':
2638
                            size = 2;
2639
                            p++;
2640
                            break;
2641
                        case 'w':
2642
                            size = 4;
2643
                            p++;
2644
                            break;
2645
                        case 'g':
2646
                        case 'L':
2647
                            size = 8;
2648
                            p++;
2649
                            break;
2650
                        default:
2651
                            goto next;
2652
                        }
2653
                    }
2654
                next:
2655
                    if (*p != '\0' && !qemu_isspace(*p)) {
2656
                        monitor_printf(mon, "invalid char in format: '%c'\n",
2657
                                       *p);
2658
                        goto fail;
2659
                    }
2660
                    if (format < 0)
2661
                        format = default_fmt_format;
2662
                    if (format != 'i') {
2663
                        /* for 'i', not specifying a size gives -1 as size */
2664
                        if (size < 0)
2665
                            size = default_fmt_size;
2666
                        default_fmt_size = size;
2667
                    }
2668
                    default_fmt_format = format;
2669
                } else {
2670
                    count = 1;
2671
                    format = default_fmt_format;
2672
                    if (format != 'i') {
2673
                        size = default_fmt_size;
2674
                    } else {
2675
                        size = -1;
2676
                    }
2677
                }
2678
                if (nb_args + 3 > MAX_ARGS)
2679
                    goto error_args;
2680
                args[nb_args++] = (void*)(long)count;
2681
                args[nb_args++] = (void*)(long)format;
2682
                args[nb_args++] = (void*)(long)size;
2683
            }
2684
            break;
2685
        case 'i':
2686
        case 'l':
2687
            {
2688
                int64_t val;
2689

    
2690
                while (qemu_isspace(*p))
2691
                    p++;
2692
                if (*typestr == '?' || *typestr == '.') {
2693
                    if (*typestr == '?') {
2694
                        if (*p == '\0')
2695
                            has_arg = 0;
2696
                        else
2697
                            has_arg = 1;
2698
                    } else {
2699
                        if (*p == '.') {
2700
                            p++;
2701
                            while (qemu_isspace(*p))
2702
                                p++;
2703
                            has_arg = 1;
2704
                        } else {
2705
                            has_arg = 0;
2706
                        }
2707
                    }
2708
                    typestr++;
2709
                    if (nb_args >= MAX_ARGS)
2710
                        goto error_args;
2711
                    args[nb_args++] = (void *)(long)has_arg;
2712
                    if (!has_arg) {
2713
                        if (nb_args >= MAX_ARGS)
2714
                            goto error_args;
2715
                        val = -1;
2716
                        goto add_num;
2717
                    }
2718
                }
2719
                if (get_expr(mon, &val, &p))
2720
                    goto fail;
2721
            add_num:
2722
                if (c == 'i') {
2723
                    if (nb_args >= MAX_ARGS)
2724
                        goto error_args;
2725
                    args[nb_args++] = (void *)(long)val;
2726
                } else {
2727
                    if ((nb_args + 1) >= MAX_ARGS)
2728
                        goto error_args;
2729
#if TARGET_PHYS_ADDR_BITS > 32
2730
                    args[nb_args++] = (void *)(long)((val >> 32) & 0xffffffff);
2731
#else
2732
                    args[nb_args++] = (void *)0;
2733
#endif
2734
                    args[nb_args++] = (void *)(long)(val & 0xffffffff);
2735
                }
2736
            }
2737
            break;
2738
        case '-':
2739
            {
2740
                int has_option;
2741
                /* option */
2742

    
2743
                c = *typestr++;
2744
                if (c == '\0')
2745
                    goto bad_type;
2746
                while (qemu_isspace(*p))
2747
                    p++;
2748
                has_option = 0;
2749
                if (*p == '-') {
2750
                    p++;
2751
                    if (*p != c) {
2752
                        monitor_printf(mon, "%s: unsupported option -%c\n",
2753
                                       cmdname, *p);
2754
                        goto fail;
2755
                    }
2756
                    p++;
2757
                    has_option = 1;
2758
                }
2759
                if (nb_args >= MAX_ARGS)
2760
                    goto error_args;
2761
                args[nb_args++] = (void *)(long)has_option;
2762
            }
2763
            break;
2764
        default:
2765
        bad_type:
2766
            monitor_printf(mon, "%s: unknown type '%c'\n", cmdname, c);
2767
            goto fail;
2768
        }
2769
    }
2770
    /* check that all arguments were parsed */
2771
    while (qemu_isspace(*p))
2772
        p++;
2773
    if (*p != '\0') {
2774
        monitor_printf(mon, "%s: extraneous characters at the end of line\n",
2775
                       cmdname);
2776
        goto fail;
2777
    }
2778

    
2779
    switch(nb_args) {
2780
    case 0:
2781
        handler_0 = cmd->handler;
2782
        handler_0(mon);
2783
        break;
2784
    case 1:
2785
        handler_1 = cmd->handler;
2786
        handler_1(mon, args[0]);
2787
        break;
2788
    case 2:
2789
        handler_2 = cmd->handler;
2790
        handler_2(mon, args[0], args[1]);
2791
        break;
2792
    case 3:
2793
        handler_3 = cmd->handler;
2794
        handler_3(mon, args[0], args[1], args[2]);
2795
        break;
2796
    case 4:
2797
        handler_4 = cmd->handler;
2798
        handler_4(mon, args[0], args[1], args[2], args[3]);
2799
        break;
2800
    case 5:
2801
        handler_5 = cmd->handler;
2802
        handler_5(mon, args[0], args[1], args[2], args[3], args[4]);
2803
        break;
2804
    case 6:
2805
        handler_6 = cmd->handler;
2806
        handler_6(mon, args[0], args[1], args[2], args[3], args[4], args[5]);
2807
        break;
2808
    case 7:
2809
        handler_7 = cmd->handler;
2810
        handler_7(mon, args[0], args[1], args[2], args[3], args[4], args[5],
2811
                  args[6]);
2812
        break;
2813
    default:
2814
        monitor_printf(mon, "unsupported number of arguments: %d\n", nb_args);
2815
        goto fail;
2816
    }
2817
 fail:
2818
    for(i = 0; i < MAX_ARGS; i++)
2819
        qemu_free(str_allocated[i]);
2820
    return;
2821
}
2822

    
2823
static void cmd_completion(const char *name, const char *list)
2824
{
2825
    const char *p, *pstart;
2826
    char cmd[128];
2827
    int len;
2828

    
2829
    p = list;
2830
    for(;;) {
2831
        pstart = p;
2832
        p = strchr(p, '|');
2833
        if (!p)
2834
            p = pstart + strlen(pstart);
2835
        len = p - pstart;
2836
        if (len > sizeof(cmd) - 2)
2837
            len = sizeof(cmd) - 2;
2838
        memcpy(cmd, pstart, len);
2839
        cmd[len] = '\0';
2840
        if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
2841
            readline_add_completion(cur_mon->rs, cmd);
2842
        }
2843
        if (*p == '\0')
2844
            break;
2845
        p++;
2846
    }
2847
}
2848

    
2849
static void file_completion(const char *input)
2850
{
2851
    DIR *ffs;
2852
    struct dirent *d;
2853
    char path[1024];
2854
    char file[1024], file_prefix[1024];
2855
    int input_path_len;
2856
    const char *p;
2857

    
2858
    p = strrchr(input, '/');
2859
    if (!p) {
2860
        input_path_len = 0;
2861
        pstrcpy(file_prefix, sizeof(file_prefix), input);
2862
        pstrcpy(path, sizeof(path), ".");
2863
    } else {
2864
        input_path_len = p - input + 1;
2865
        memcpy(path, input, input_path_len);
2866
        if (input_path_len > sizeof(path) - 1)
2867
            input_path_len = sizeof(path) - 1;
2868
        path[input_path_len] = '\0';
2869
        pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
2870
    }
2871
#ifdef DEBUG_COMPLETION
2872
    monitor_printf(cur_mon, "input='%s' path='%s' prefix='%s'\n",
2873
                   input, path, file_prefix);
2874
#endif
2875
    ffs = opendir(path);
2876
    if (!ffs)
2877
        return;
2878
    for(;;) {
2879
        struct stat sb;
2880
        d = readdir(ffs);
2881
        if (!d)
2882
            break;
2883
        if (strstart(d->d_name, file_prefix, NULL)) {
2884
            memcpy(file, input, input_path_len);
2885
            if (input_path_len < sizeof(file))
2886
                pstrcpy(file + input_path_len, sizeof(file) - input_path_len,
2887
                        d->d_name);
2888
            /* stat the file to find out if it's a directory.
2889
             * In that case add a slash to speed up typing long paths
2890
             */
2891
            stat(file, &sb);
2892
            if(S_ISDIR(sb.st_mode))
2893
                pstrcat(file, sizeof(file), "/");
2894
            readline_add_completion(cur_mon->rs, file);
2895
        }
2896
    }
2897
    closedir(ffs);
2898
}
2899

    
2900
static void block_completion_it(void *opaque, BlockDriverState *bs)
2901
{
2902
    const char *name = bdrv_get_device_name(bs);
2903
    const char *input = opaque;
2904

    
2905
    if (input[0] == '\0' ||
2906
        !strncmp(name, (char *)input, strlen(input))) {
2907
        readline_add_completion(cur_mon->rs, name);
2908
    }
2909
}
2910

    
2911
/* NOTE: this parser is an approximate form of the real command parser */
2912
static void parse_cmdline(const char *cmdline,
2913
                         int *pnb_args, char **args)
2914
{
2915
    const char *p;
2916
    int nb_args, ret;
2917
    char buf[1024];
2918

    
2919
    p = cmdline;
2920
    nb_args = 0;
2921
    for(;;) {
2922
        while (qemu_isspace(*p))
2923
            p++;
2924
        if (*p == '\0')
2925
            break;
2926
        if (nb_args >= MAX_ARGS)
2927
            break;
2928
        ret = get_str(buf, sizeof(buf), &p);
2929
        args[nb_args] = qemu_strdup(buf);
2930
        nb_args++;
2931
        if (ret < 0)
2932
            break;
2933
    }
2934
    *pnb_args = nb_args;
2935
}
2936

    
2937
static void monitor_find_completion(const char *cmdline)
2938
{
2939
    const char *cmdname;
2940
    char *args[MAX_ARGS];
2941
    int nb_args, i, len;
2942
    const char *ptype, *str;
2943
    const mon_cmd_t *cmd;
2944
    const KeyDef *key;
2945

    
2946
    parse_cmdline(cmdline, &nb_args, args);
2947
#ifdef DEBUG_COMPLETION
2948
    for(i = 0; i < nb_args; i++) {
2949
        monitor_printf(cur_mon, "arg%d = '%s'\n", i, (char *)args[i]);
2950
    }
2951
#endif
2952

    
2953
    /* if the line ends with a space, it means we want to complete the
2954
       next arg */
2955
    len = strlen(cmdline);
2956
    if (len > 0 && qemu_isspace(cmdline[len - 1])) {
2957
        if (nb_args >= MAX_ARGS)
2958
            return;
2959
        args[nb_args++] = qemu_strdup("");
2960
    }
2961
    if (nb_args <= 1) {
2962
        /* command completion */
2963
        if (nb_args == 0)
2964
            cmdname = "";
2965
        else
2966
            cmdname = args[0];
2967
        readline_set_completion_index(cur_mon->rs, strlen(cmdname));
2968
        for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
2969
            cmd_completion(cmdname, cmd->name);
2970
        }
2971
    } else {
2972
        /* find the command */
2973
        for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
2974
            if (compare_cmd(args[0], cmd->name))
2975
                goto found;
2976
        }
2977
        return;
2978
    found:
2979
        ptype = cmd->args_type;
2980
        for(i = 0; i < nb_args - 2; i++) {
2981
            if (*ptype != '\0') {
2982
                ptype++;
2983
                while (*ptype == '?')
2984
                    ptype++;
2985
            }
2986
        }
2987
        str = args[nb_args - 1];
2988
        switch(*ptype) {
2989
        case 'F':
2990
            /* file completion */
2991
            readline_set_completion_index(cur_mon->rs, strlen(str));
2992
            file_completion(str);
2993
            break;
2994
        case 'B':
2995
            /* block device name completion */
2996
            readline_set_completion_index(cur_mon->rs, strlen(str));
2997
            bdrv_iterate(block_completion_it, (void *)str);
2998
            break;
2999
        case 's':
3000
            /* XXX: more generic ? */
3001
            if (!strcmp(cmd->name, "info")) {
3002
                readline_set_completion_index(cur_mon->rs, strlen(str));
3003
                for(cmd = info_cmds; cmd->name != NULL; cmd++) {
3004
                    cmd_completion(str, cmd->name);
3005
                }
3006
            } else if (!strcmp(cmd->name, "sendkey")) {
3007
                char *sep = strrchr(str, '-');
3008
                if (sep)
3009
                    str = sep + 1;
3010
                readline_set_completion_index(cur_mon->rs, strlen(str));
3011
                for(key = key_defs; key->name != NULL; key++) {
3012
                    cmd_completion(str, key->name);
3013
                }
3014
            }
3015
            break;
3016
        default:
3017
            break;
3018
        }
3019
    }
3020
    for(i = 0; i < nb_args; i++)
3021
        qemu_free(args[i]);
3022
}
3023

    
3024
static int monitor_can_read(void *opaque)
3025
{
3026
    Monitor *mon = opaque;
3027

    
3028
    return (mon->suspend_cnt == 0) ? 128 : 0;
3029
}
3030

    
3031
static void monitor_read(void *opaque, const uint8_t *buf, int size)
3032
{
3033
    Monitor *old_mon = cur_mon;
3034
    int i;
3035

    
3036
    cur_mon = opaque;
3037

    
3038
    if (cur_mon->rs) {
3039
        for (i = 0; i < size; i++)
3040
            readline_handle_byte(cur_mon->rs, buf[i]);
3041
    } else {
3042
        if (size == 0 || buf[size - 1] != 0)
3043
            monitor_printf(cur_mon, "corrupted command\n");
3044
        else
3045
            monitor_handle_command(cur_mon, (char *)buf);
3046
    }
3047

    
3048
    cur_mon = old_mon;
3049
}
3050

    
3051
static void monitor_command_cb(Monitor *mon, const char *cmdline, void *opaque)
3052
{
3053
    monitor_suspend(mon);
3054
    monitor_handle_command(mon, cmdline);
3055
    monitor_resume(mon);
3056
}
3057

    
3058
int monitor_suspend(Monitor *mon)
3059
{
3060
    if (!mon->rs)
3061
        return -ENOTTY;
3062
    mon->suspend_cnt++;
3063
    return 0;
3064
}
3065

    
3066
void monitor_resume(Monitor *mon)
3067
{
3068
    if (!mon->rs)
3069
        return;
3070
    if (--mon->suspend_cnt == 0)
3071
        readline_show_prompt(mon->rs);
3072
}
3073

    
3074
static void monitor_event(void *opaque, int event)
3075
{
3076
    Monitor *mon = opaque;
3077

    
3078
    switch (event) {
3079
    case CHR_EVENT_MUX_IN:
3080
        readline_restart(mon->rs);
3081
        monitor_resume(mon);
3082
        monitor_flush(mon);
3083
        break;
3084

    
3085
    case CHR_EVENT_MUX_OUT:
3086
        if (mon->suspend_cnt == 0)
3087
            monitor_printf(mon, "\n");
3088
        monitor_flush(mon);
3089
        monitor_suspend(mon);
3090
        break;
3091

    
3092
    case CHR_EVENT_RESET:
3093
        monitor_printf(mon, "QEMU %s monitor - type 'help' for more "
3094
                       "information\n", QEMU_VERSION);
3095
        if (mon->chr->focus == 0)
3096
            readline_show_prompt(mon->rs);
3097
        break;
3098
    }
3099
}
3100

    
3101

    
3102
/*
3103
 * Local variables:
3104
 *  c-indent-level: 4
3105
 *  c-basic-offset: 4
3106
 *  tab-width: 8
3107
 * End:
3108
 */
3109

    
3110
void monitor_init(CharDriverState *chr, int flags)
3111
{
3112
    static int is_first_init = 1;
3113
    Monitor *mon;
3114

    
3115
    if (is_first_init) {
3116
        key_timer = qemu_new_timer(vm_clock, release_keys, NULL);
3117
        is_first_init = 0;
3118
    }
3119

    
3120
    mon = qemu_mallocz(sizeof(*mon));
3121

    
3122
    mon->chr = chr;
3123
    mon->flags = flags;
3124
    if (mon->chr->focus != 0)
3125
        mon->suspend_cnt = 1; /* mux'ed monitors start suspended */
3126
    if (flags & MONITOR_USE_READLINE) {
3127
        mon->rs = readline_init(mon, monitor_find_completion);
3128
        monitor_read_command(mon, 0);
3129
    }
3130

    
3131
    qemu_chr_add_handlers(chr, monitor_can_read, monitor_read, monitor_event,
3132
                          mon);
3133

    
3134
    LIST_INSERT_HEAD(&mon_list, mon, entry);
3135
    if (!cur_mon || (flags & MONITOR_IS_DEFAULT))
3136
        cur_mon = mon;
3137
}
3138

    
3139
static void bdrv_password_cb(Monitor *mon, const char *password, void *opaque)
3140
{
3141
    BlockDriverState *bs = opaque;
3142
    int ret = 0;
3143

    
3144
    if (bdrv_set_key(bs, password) != 0) {
3145
        monitor_printf(mon, "invalid password\n");
3146
        ret = -EPERM;
3147
    }
3148
    if (mon->password_completion_cb)
3149
        mon->password_completion_cb(mon->password_opaque, ret);
3150

    
3151
    monitor_read_command(mon, 1);
3152
}
3153

    
3154
void monitor_read_bdrv_key_start(Monitor *mon, BlockDriverState *bs,
3155
                                 BlockDriverCompletionFunc *completion_cb,
3156
                                 void *opaque)
3157
{
3158
    int err;
3159

    
3160
    if (!bdrv_key_required(bs)) {
3161
        if (completion_cb)
3162
            completion_cb(opaque, 0);
3163
        return;
3164
    }
3165

    
3166
    monitor_printf(mon, "%s (%s) is encrypted.\n", bdrv_get_device_name(bs),
3167
                   bdrv_get_encrypted_filename(bs));
3168

    
3169
    mon->password_completion_cb = completion_cb;
3170
    mon->password_opaque = opaque;
3171

    
3172
    err = monitor_read_password(mon, bdrv_password_cb, bs);
3173

    
3174
    if (err && completion_cb)
3175
        completion_cb(opaque, err);
3176
}