Statistics
| Branch: | Revision:

root / monitor.c @ 640f42e4

History | View | Annotate | Download (87.2 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
#ifdef CONFIG_PROFILER
1413

    
1414
int64_t kqemu_time;
1415
int64_t qemu_time;
1416
int64_t kqemu_exec_count;
1417
int64_t dev_time;
1418
int64_t kqemu_ret_int_count;
1419
int64_t kqemu_ret_excp_count;
1420
int64_t kqemu_ret_intr_count;
1421

    
1422
static void do_info_profile(Monitor *mon)
1423
{
1424
    int64_t total;
1425
    total = qemu_time;
1426
    if (total == 0)
1427
        total = 1;
1428
    monitor_printf(mon, "async time  %" PRId64 " (%0.3f)\n",
1429
                   dev_time, dev_time / (double)ticks_per_sec);
1430
    monitor_printf(mon, "qemu time   %" PRId64 " (%0.3f)\n",
1431
                   qemu_time, qemu_time / (double)ticks_per_sec);
1432
    monitor_printf(mon, "kqemu time  %" PRId64 " (%0.3f %0.1f%%) count=%"
1433
                        PRId64 " int=%" PRId64 " excp=%" PRId64 " intr=%"
1434
                        PRId64 "\n",
1435
                   kqemu_time, kqemu_time / (double)ticks_per_sec,
1436
                   kqemu_time / (double)total * 100.0,
1437
                   kqemu_exec_count,
1438
                   kqemu_ret_int_count,
1439
                   kqemu_ret_excp_count,
1440
                   kqemu_ret_intr_count);
1441
    qemu_time = 0;
1442
    kqemu_time = 0;
1443
    kqemu_exec_count = 0;
1444
    dev_time = 0;
1445
    kqemu_ret_int_count = 0;
1446
    kqemu_ret_excp_count = 0;
1447
    kqemu_ret_intr_count = 0;
1448
#ifdef CONFIG_KQEMU
1449
    kqemu_record_dump();
1450
#endif
1451
}
1452
#else
1453
static void do_info_profile(Monitor *mon)
1454
{
1455
    monitor_printf(mon, "Internal profiler not compiled\n");
1456
}
1457
#endif
1458

    
1459
/* Capture support */
1460
static LIST_HEAD (capture_list_head, CaptureState) capture_head;
1461

    
1462
static void do_info_capture(Monitor *mon)
1463
{
1464
    int i;
1465
    CaptureState *s;
1466

    
1467
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1468
        monitor_printf(mon, "[%d]: ", i);
1469
        s->ops.info (s->opaque);
1470
    }
1471
}
1472

    
1473
static void do_stop_capture(Monitor *mon, int n)
1474
{
1475
    int i;
1476
    CaptureState *s;
1477

    
1478
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1479
        if (i == n) {
1480
            s->ops.destroy (s->opaque);
1481
            LIST_REMOVE (s, entries);
1482
            qemu_free (s);
1483
            return;
1484
        }
1485
    }
1486
}
1487

    
1488
#ifdef HAS_AUDIO
1489
static void do_wav_capture(Monitor *mon, const char *path,
1490
                           int has_freq, int freq,
1491
                           int has_bits, int bits,
1492
                           int has_channels, int nchannels)
1493
{
1494
    CaptureState *s;
1495

    
1496
    s = qemu_mallocz (sizeof (*s));
1497

    
1498
    freq = has_freq ? freq : 44100;
1499
    bits = has_bits ? bits : 16;
1500
    nchannels = has_channels ? nchannels : 2;
1501

    
1502
    if (wav_start_capture (s, path, freq, bits, nchannels)) {
1503
        monitor_printf(mon, "Faied to add wave capture\n");
1504
        qemu_free (s);
1505
    }
1506
    LIST_INSERT_HEAD (&capture_head, s, entries);
1507
}
1508
#endif
1509

    
1510
#if defined(TARGET_I386)
1511
static void do_inject_nmi(Monitor *mon, int cpu_index)
1512
{
1513
    CPUState *env;
1514

    
1515
    for (env = first_cpu; env != NULL; env = env->next_cpu)
1516
        if (env->cpu_index == cpu_index) {
1517
            cpu_interrupt(env, CPU_INTERRUPT_NMI);
1518
            break;
1519
        }
1520
}
1521
#endif
1522

    
1523
static void do_info_status(Monitor *mon)
1524
{
1525
    if (vm_running) {
1526
        if (singlestep) {
1527
            monitor_printf(mon, "VM status: running (single step mode)\n");
1528
        } else {
1529
            monitor_printf(mon, "VM status: running\n");
1530
        }
1531
    } else
1532
       monitor_printf(mon, "VM status: paused\n");
1533
}
1534

    
1535

    
1536
static void do_balloon(Monitor *mon, int value)
1537
{
1538
    ram_addr_t target = value;
1539
    qemu_balloon(target << 20);
1540
}
1541

    
1542
static void do_info_balloon(Monitor *mon)
1543
{
1544
    ram_addr_t actual;
1545

    
1546
    actual = qemu_balloon_status();
1547
    if (kvm_enabled() && !kvm_has_sync_mmu())
1548
        monitor_printf(mon, "Using KVM without synchronous MMU, "
1549
                       "ballooning disabled\n");
1550
    else if (actual == 0)
1551
        monitor_printf(mon, "Ballooning not activated in VM\n");
1552
    else
1553
        monitor_printf(mon, "balloon: actual=%d\n", (int)(actual >> 20));
1554
}
1555

    
1556
static void do_acl(Monitor *mon,
1557
                   const char *command,
1558
                   const char *aclname,
1559
                   const char *match,
1560
                   int has_index,
1561
                   int index)
1562
{
1563
    qemu_acl *acl;
1564

    
1565
    acl = qemu_acl_find(aclname);
1566
    if (!acl) {
1567
        monitor_printf(mon, "acl: unknown list '%s'\n", aclname);
1568
        return;
1569
    }
1570

    
1571
    if (strcmp(command, "show") == 0) {
1572
        int i = 0;
1573
        qemu_acl_entry *entry;
1574
        monitor_printf(mon, "policy: %s\n",
1575
                       acl->defaultDeny ? "deny" : "allow");
1576
        TAILQ_FOREACH(entry, &acl->entries, next) {
1577
            i++;
1578
            monitor_printf(mon, "%d: %s %s\n", i,
1579
                           entry->deny ? "deny" : "allow",
1580
                           entry->match);
1581
        }
1582
    } else if (strcmp(command, "reset") == 0) {
1583
        qemu_acl_reset(acl);
1584
        monitor_printf(mon, "acl: removed all rules\n");
1585
    } else if (strcmp(command, "policy") == 0) {
1586
        if (!match) {
1587
            monitor_printf(mon, "acl: missing policy parameter\n");
1588
            return;
1589
        }
1590

    
1591
        if (strcmp(match, "allow") == 0) {
1592
            acl->defaultDeny = 0;
1593
            monitor_printf(mon, "acl: policy set to 'allow'\n");
1594
        } else if (strcmp(match, "deny") == 0) {
1595
            acl->defaultDeny = 1;
1596
            monitor_printf(mon, "acl: policy set to 'deny'\n");
1597
        } else {
1598
            monitor_printf(mon, "acl: unknown policy '%s', expected 'deny' or 'allow'\n", match);
1599
        }
1600
    } else if ((strcmp(command, "allow") == 0) ||
1601
               (strcmp(command, "deny") == 0)) {
1602
        int deny = strcmp(command, "deny") == 0 ? 1 : 0;
1603
        int ret;
1604

    
1605
        if (!match) {
1606
            monitor_printf(mon, "acl: missing match parameter\n");
1607
            return;
1608
        }
1609

    
1610
        if (has_index)
1611
            ret = qemu_acl_insert(acl, deny, match, index);
1612
        else
1613
            ret = qemu_acl_append(acl, deny, match);
1614
        if (ret < 0)
1615
            monitor_printf(mon, "acl: unable to add acl entry\n");
1616
        else
1617
            monitor_printf(mon, "acl: added rule at position %d\n", ret);
1618
    } else if (strcmp(command, "remove") == 0) {
1619
        int ret;
1620

    
1621
        if (!match) {
1622
            monitor_printf(mon, "acl: missing match parameter\n");
1623
            return;
1624
        }
1625

    
1626
        ret = qemu_acl_remove(acl, match);
1627
        if (ret < 0)
1628
            monitor_printf(mon, "acl: no matching acl entry\n");
1629
        else
1630
            monitor_printf(mon, "acl: removed rule at position %d\n", ret);
1631
    } else {
1632
        monitor_printf(mon, "acl: unknown command '%s'\n", command);
1633
    }
1634
}
1635

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

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

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

    
1827
/*******************************************************************/
1828

    
1829
static const char *pch;
1830
static jmp_buf expr_env;
1831

    
1832
#define MD_TLONG 0
1833
#define MD_I32   1
1834

    
1835
typedef struct MonitorDef {
1836
    const char *name;
1837
    int offset;
1838
    target_long (*get_value)(const struct MonitorDef *md, int val);
1839
    int type;
1840
} MonitorDef;
1841

    
1842
#if defined(TARGET_I386)
1843
static target_long monitor_get_pc (const struct MonitorDef *md, int val)
1844
{
1845
    CPUState *env = mon_get_cpu();
1846
    if (!env)
1847
        return 0;
1848
    return env->eip + env->segs[R_CS].base;
1849
}
1850
#endif
1851

    
1852
#if defined(TARGET_PPC)
1853
static target_long monitor_get_ccr (const struct MonitorDef *md, int val)
1854
{
1855
    CPUState *env = mon_get_cpu();
1856
    unsigned int u;
1857
    int i;
1858

    
1859
    if (!env)
1860
        return 0;
1861

    
1862
    u = 0;
1863
    for (i = 0; i < 8; i++)
1864
        u |= env->crf[i] << (32 - (4 * i));
1865

    
1866
    return u;
1867
}
1868

    
1869
static target_long monitor_get_msr (const struct MonitorDef *md, int val)
1870
{
1871
    CPUState *env = mon_get_cpu();
1872
    if (!env)
1873
        return 0;
1874
    return env->msr;
1875
}
1876

    
1877
static target_long monitor_get_xer (const struct MonitorDef *md, int val)
1878
{
1879
    CPUState *env = mon_get_cpu();
1880
    if (!env)
1881
        return 0;
1882
    return env->xer;
1883
}
1884

    
1885
static target_long monitor_get_decr (const struct MonitorDef *md, int val)
1886
{
1887
    CPUState *env = mon_get_cpu();
1888
    if (!env)
1889
        return 0;
1890
    return cpu_ppc_load_decr(env);
1891
}
1892

    
1893
static target_long monitor_get_tbu (const struct MonitorDef *md, int val)
1894
{
1895
    CPUState *env = mon_get_cpu();
1896
    if (!env)
1897
        return 0;
1898
    return cpu_ppc_load_tbu(env);
1899
}
1900

    
1901
static target_long monitor_get_tbl (const struct MonitorDef *md, int val)
1902
{
1903
    CPUState *env = mon_get_cpu();
1904
    if (!env)
1905
        return 0;
1906
    return cpu_ppc_load_tbl(env);
1907
}
1908
#endif
1909

    
1910
#if defined(TARGET_SPARC)
1911
#ifndef TARGET_SPARC64
1912
static target_long monitor_get_psr (const struct MonitorDef *md, int val)
1913
{
1914
    CPUState *env = mon_get_cpu();
1915
    if (!env)
1916
        return 0;
1917
    return GET_PSR(env);
1918
}
1919
#endif
1920

    
1921
static target_long monitor_get_reg(const struct MonitorDef *md, int val)
1922
{
1923
    CPUState *env = mon_get_cpu();
1924
    if (!env)
1925
        return 0;
1926
    return env->regwptr[val];
1927
}
1928
#endif
1929

    
1930
static const MonitorDef monitor_defs[] = {
1931
#ifdef TARGET_I386
1932

    
1933
#define SEG(name, seg) \
1934
    { name, offsetof(CPUState, segs[seg].selector), NULL, MD_I32 },\
1935
    { name ".base", offsetof(CPUState, segs[seg].base) },\
1936
    { name ".limit", offsetof(CPUState, segs[seg].limit), NULL, MD_I32 },
1937

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

    
2171
static void expr_error(Monitor *mon, const char *msg)
2172
{
2173
    monitor_printf(mon, "%s\n", msg);
2174
    longjmp(expr_env, 1);
2175
}
2176

    
2177
/* return 0 if OK, -1 if not found, -2 if no CPU defined */
2178
static int get_monitor_def(target_long *pval, const char *name)
2179
{
2180
    const MonitorDef *md;
2181
    void *ptr;
2182

    
2183
    for(md = monitor_defs; md->name != NULL; md++) {
2184
        if (compare_cmd(name, md->name)) {
2185
            if (md->get_value) {
2186
                *pval = md->get_value(md, md->offset);
2187
            } else {
2188
                CPUState *env = mon_get_cpu();
2189
                if (!env)
2190
                    return -2;
2191
                ptr = (uint8_t *)env + md->offset;
2192
                switch(md->type) {
2193
                case MD_I32:
2194
                    *pval = *(int32_t *)ptr;
2195
                    break;
2196
                case MD_TLONG:
2197
                    *pval = *(target_long *)ptr;
2198
                    break;
2199
                default:
2200
                    *pval = 0;
2201
                    break;
2202
                }
2203
            }
2204
            return 0;
2205
        }
2206
    }
2207
    return -1;
2208
}
2209

    
2210
static void next(void)
2211
{
2212
    if (pch != '\0') {
2213
        pch++;
2214
        while (qemu_isspace(*pch))
2215
            pch++;
2216
    }
2217
}
2218

    
2219
static int64_t expr_sum(Monitor *mon);
2220

    
2221
static int64_t expr_unary(Monitor *mon)
2222
{
2223
    int64_t n;
2224
    char *p;
2225
    int ret;
2226

    
2227
    switch(*pch) {
2228
    case '+':
2229
        next();
2230
        n = expr_unary(mon);
2231
        break;
2232
    case '-':
2233
        next();
2234
        n = -expr_unary(mon);
2235
        break;
2236
    case '~':
2237
        next();
2238
        n = ~expr_unary(mon);
2239
        break;
2240
    case '(':
2241
        next();
2242
        n = expr_sum(mon);
2243
        if (*pch != ')') {
2244
            expr_error(mon, "')' expected");
2245
        }
2246
        next();
2247
        break;
2248
    case '\'':
2249
        pch++;
2250
        if (*pch == '\0')
2251
            expr_error(mon, "character constant expected");
2252
        n = *pch;
2253
        pch++;
2254
        if (*pch != '\'')
2255
            expr_error(mon, "missing terminating \' character");
2256
        next();
2257
        break;
2258
    case '$':
2259
        {
2260
            char buf[128], *q;
2261
            target_long reg=0;
2262

    
2263
            pch++;
2264
            q = buf;
2265
            while ((*pch >= 'a' && *pch <= 'z') ||
2266
                   (*pch >= 'A' && *pch <= 'Z') ||
2267
                   (*pch >= '0' && *pch <= '9') ||
2268
                   *pch == '_' || *pch == '.') {
2269
                if ((q - buf) < sizeof(buf) - 1)
2270
                    *q++ = *pch;
2271
                pch++;
2272
            }
2273
            while (qemu_isspace(*pch))
2274
                pch++;
2275
            *q = 0;
2276
            ret = get_monitor_def(&reg, buf);
2277
            if (ret == -1)
2278
                expr_error(mon, "unknown register");
2279
            else if (ret == -2)
2280
                expr_error(mon, "no cpu defined");
2281
            n = reg;
2282
        }
2283
        break;
2284
    case '\0':
2285
        expr_error(mon, "unexpected end of expression");
2286
        n = 0;
2287
        break;
2288
    default:
2289
#if TARGET_PHYS_ADDR_BITS > 32
2290
        n = strtoull(pch, &p, 0);
2291
#else
2292
        n = strtoul(pch, &p, 0);
2293
#endif
2294
        if (pch == p) {
2295
            expr_error(mon, "invalid char in expression");
2296
        }
2297
        pch = p;
2298
        while (qemu_isspace(*pch))
2299
            pch++;
2300
        break;
2301
    }
2302
    return n;
2303
}
2304

    
2305

    
2306
static int64_t expr_prod(Monitor *mon)
2307
{
2308
    int64_t val, val2;
2309
    int op;
2310

    
2311
    val = expr_unary(mon);
2312
    for(;;) {
2313
        op = *pch;
2314
        if (op != '*' && op != '/' && op != '%')
2315
            break;
2316
        next();
2317
        val2 = expr_unary(mon);
2318
        switch(op) {
2319
        default:
2320
        case '*':
2321
            val *= val2;
2322
            break;
2323
        case '/':
2324
        case '%':
2325
            if (val2 == 0)
2326
                expr_error(mon, "division by zero");
2327
            if (op == '/')
2328
                val /= val2;
2329
            else
2330
                val %= val2;
2331
            break;
2332
        }
2333
    }
2334
    return val;
2335
}
2336

    
2337
static int64_t expr_logic(Monitor *mon)
2338
{
2339
    int64_t val, val2;
2340
    int op;
2341

    
2342
    val = expr_prod(mon);
2343
    for(;;) {
2344
        op = *pch;
2345
        if (op != '&' && op != '|' && op != '^')
2346
            break;
2347
        next();
2348
        val2 = expr_prod(mon);
2349
        switch(op) {
2350
        default:
2351
        case '&':
2352
            val &= val2;
2353
            break;
2354
        case '|':
2355
            val |= val2;
2356
            break;
2357
        case '^':
2358
            val ^= val2;
2359
            break;
2360
        }
2361
    }
2362
    return val;
2363
}
2364

    
2365
static int64_t expr_sum(Monitor *mon)
2366
{
2367
    int64_t val, val2;
2368
    int op;
2369

    
2370
    val = expr_logic(mon);
2371
    for(;;) {
2372
        op = *pch;
2373
        if (op != '+' && op != '-')
2374
            break;
2375
        next();
2376
        val2 = expr_logic(mon);
2377
        if (op == '+')
2378
            val += val2;
2379
        else
2380
            val -= val2;
2381
    }
2382
    return val;
2383
}
2384

    
2385
static int get_expr(Monitor *mon, int64_t *pval, const char **pp)
2386
{
2387
    pch = *pp;
2388
    if (setjmp(expr_env)) {
2389
        *pp = pch;
2390
        return -1;
2391
    }
2392
    while (qemu_isspace(*pch))
2393
        pch++;
2394
    *pval = expr_sum(mon);
2395
    *pp = pch;
2396
    return 0;
2397
}
2398

    
2399
static int get_str(char *buf, int buf_size, const char **pp)
2400
{
2401
    const char *p;
2402
    char *q;
2403
    int c;
2404

    
2405
    q = buf;
2406
    p = *pp;
2407
    while (qemu_isspace(*p))
2408
        p++;
2409
    if (*p == '\0') {
2410
    fail:
2411
        *q = '\0';
2412
        *pp = p;
2413
        return -1;
2414
    }
2415
    if (*p == '\"') {
2416
        p++;
2417
        while (*p != '\0' && *p != '\"') {
2418
            if (*p == '\\') {
2419
                p++;
2420
                c = *p++;
2421
                switch(c) {
2422
                case 'n':
2423
                    c = '\n';
2424
                    break;
2425
                case 'r':
2426
                    c = '\r';
2427
                    break;
2428
                case '\\':
2429
                case '\'':
2430
                case '\"':
2431
                    break;
2432
                default:
2433
                    qemu_printf("unsupported escape code: '\\%c'\n", c);
2434
                    goto fail;
2435
                }
2436
                if ((q - buf) < buf_size - 1) {
2437
                    *q++ = c;
2438
                }
2439
            } else {
2440
                if ((q - buf) < buf_size - 1) {
2441
                    *q++ = *p;
2442
                }
2443
                p++;
2444
            }
2445
        }
2446
        if (*p != '\"') {
2447
            qemu_printf("unterminated string\n");
2448
            goto fail;
2449
        }
2450
        p++;
2451
    } else {
2452
        while (*p != '\0' && !qemu_isspace(*p)) {
2453
            if ((q - buf) < buf_size - 1) {
2454
                *q++ = *p;
2455
            }
2456
            p++;
2457
        }
2458
    }
2459
    *q = '\0';
2460
    *pp = p;
2461
    return 0;
2462
}
2463

    
2464
static int default_fmt_format = 'x';
2465
static int default_fmt_size = 4;
2466

    
2467
#define MAX_ARGS 16
2468

    
2469
static void monitor_handle_command(Monitor *mon, const char *cmdline)
2470
{
2471
    const char *p, *pstart, *typestr;
2472
    char *q;
2473
    int c, nb_args, len, i, has_arg;
2474
    const mon_cmd_t *cmd;
2475
    char cmdname[256];
2476
    char buf[1024];
2477
    void *str_allocated[MAX_ARGS];
2478
    void *args[MAX_ARGS];
2479
    void (*handler_0)(Monitor *mon);
2480
    void (*handler_1)(Monitor *mon, void *arg0);
2481
    void (*handler_2)(Monitor *mon, void *arg0, void *arg1);
2482
    void (*handler_3)(Monitor *mon, void *arg0, void *arg1, void *arg2);
2483
    void (*handler_4)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2484
                      void *arg3);
2485
    void (*handler_5)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2486
                      void *arg3, void *arg4);
2487
    void (*handler_6)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2488
                      void *arg3, void *arg4, void *arg5);
2489
    void (*handler_7)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2490
                      void *arg3, void *arg4, void *arg5, void *arg6);
2491

    
2492
#ifdef DEBUG
2493
    monitor_printf(mon, "command='%s'\n", cmdline);
2494
#endif
2495

    
2496
    /* extract the command name */
2497
    p = cmdline;
2498
    q = cmdname;
2499
    while (qemu_isspace(*p))
2500
        p++;
2501
    if (*p == '\0')
2502
        return;
2503
    pstart = p;
2504
    while (*p != '\0' && *p != '/' && !qemu_isspace(*p))
2505
        p++;
2506
    len = p - pstart;
2507
    if (len > sizeof(cmdname) - 1)
2508
        len = sizeof(cmdname) - 1;
2509
    memcpy(cmdname, pstart, len);
2510
    cmdname[len] = '\0';
2511

    
2512
    /* find the command */
2513
    for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
2514
        if (compare_cmd(cmdname, cmd->name))
2515
            goto found;
2516
    }
2517
    monitor_printf(mon, "unknown command: '%s'\n", cmdname);
2518
    return;
2519
 found:
2520

    
2521
    for(i = 0; i < MAX_ARGS; i++)
2522
        str_allocated[i] = NULL;
2523

    
2524
    /* parse the parameters */
2525
    typestr = cmd->args_type;
2526
    nb_args = 0;
2527
    for(;;) {
2528
        c = *typestr;
2529
        if (c == '\0')
2530
            break;
2531
        typestr++;
2532
        switch(c) {
2533
        case 'F':
2534
        case 'B':
2535
        case 's':
2536
            {
2537
                int ret;
2538
                char *str;
2539

    
2540
                while (qemu_isspace(*p))
2541
                    p++;
2542
                if (*typestr == '?') {
2543
                    typestr++;
2544
                    if (*p == '\0') {
2545
                        /* no optional string: NULL argument */
2546
                        str = NULL;
2547
                        goto add_str;
2548
                    }
2549
                }
2550
                ret = get_str(buf, sizeof(buf), &p);
2551
                if (ret < 0) {
2552
                    switch(c) {
2553
                    case 'F':
2554
                        monitor_printf(mon, "%s: filename expected\n",
2555
                                       cmdname);
2556
                        break;
2557
                    case 'B':
2558
                        monitor_printf(mon, "%s: block device name expected\n",
2559
                                       cmdname);
2560
                        break;
2561
                    default:
2562
                        monitor_printf(mon, "%s: string expected\n", cmdname);
2563
                        break;
2564
                    }
2565
                    goto fail;
2566
                }
2567
                str = qemu_malloc(strlen(buf) + 1);
2568
                pstrcpy(str, sizeof(buf), buf);
2569
                str_allocated[nb_args] = str;
2570
            add_str:
2571
                if (nb_args >= MAX_ARGS) {
2572
                error_args:
2573
                    monitor_printf(mon, "%s: too many arguments\n", cmdname);
2574
                    goto fail;
2575
                }
2576
                args[nb_args++] = str;
2577
            }
2578
            break;
2579
        case '/':
2580
            {
2581
                int count, format, size;
2582

    
2583
                while (qemu_isspace(*p))
2584
                    p++;
2585
                if (*p == '/') {
2586
                    /* format found */
2587
                    p++;
2588
                    count = 1;
2589
                    if (qemu_isdigit(*p)) {
2590
                        count = 0;
2591
                        while (qemu_isdigit(*p)) {
2592
                            count = count * 10 + (*p - '0');
2593
                            p++;
2594
                        }
2595
                    }
2596
                    size = -1;
2597
                    format = -1;
2598
                    for(;;) {
2599
                        switch(*p) {
2600
                        case 'o':
2601
                        case 'd':
2602
                        case 'u':
2603
                        case 'x':
2604
                        case 'i':
2605
                        case 'c':
2606
                            format = *p++;
2607
                            break;
2608
                        case 'b':
2609
                            size = 1;
2610
                            p++;
2611
                            break;
2612
                        case 'h':
2613
                            size = 2;
2614
                            p++;
2615
                            break;
2616
                        case 'w':
2617
                            size = 4;
2618
                            p++;
2619
                            break;
2620
                        case 'g':
2621
                        case 'L':
2622
                            size = 8;
2623
                            p++;
2624
                            break;
2625
                        default:
2626
                            goto next;
2627
                        }
2628
                    }
2629
                next:
2630
                    if (*p != '\0' && !qemu_isspace(*p)) {
2631
                        monitor_printf(mon, "invalid char in format: '%c'\n",
2632
                                       *p);
2633
                        goto fail;
2634
                    }
2635
                    if (format < 0)
2636
                        format = default_fmt_format;
2637
                    if (format != 'i') {
2638
                        /* for 'i', not specifying a size gives -1 as size */
2639
                        if (size < 0)
2640
                            size = default_fmt_size;
2641
                        default_fmt_size = size;
2642
                    }
2643
                    default_fmt_format = format;
2644
                } else {
2645
                    count = 1;
2646
                    format = default_fmt_format;
2647
                    if (format != 'i') {
2648
                        size = default_fmt_size;
2649
                    } else {
2650
                        size = -1;
2651
                    }
2652
                }
2653
                if (nb_args + 3 > MAX_ARGS)
2654
                    goto error_args;
2655
                args[nb_args++] = (void*)(long)count;
2656
                args[nb_args++] = (void*)(long)format;
2657
                args[nb_args++] = (void*)(long)size;
2658
            }
2659
            break;
2660
        case 'i':
2661
        case 'l':
2662
            {
2663
                int64_t val;
2664

    
2665
                while (qemu_isspace(*p))
2666
                    p++;
2667
                if (*typestr == '?' || *typestr == '.') {
2668
                    if (*typestr == '?') {
2669
                        if (*p == '\0')
2670
                            has_arg = 0;
2671
                        else
2672
                            has_arg = 1;
2673
                    } else {
2674
                        if (*p == '.') {
2675
                            p++;
2676
                            while (qemu_isspace(*p))
2677
                                p++;
2678
                            has_arg = 1;
2679
                        } else {
2680
                            has_arg = 0;
2681
                        }
2682
                    }
2683
                    typestr++;
2684
                    if (nb_args >= MAX_ARGS)
2685
                        goto error_args;
2686
                    args[nb_args++] = (void *)(long)has_arg;
2687
                    if (!has_arg) {
2688
                        if (nb_args >= MAX_ARGS)
2689
                            goto error_args;
2690
                        val = -1;
2691
                        goto add_num;
2692
                    }
2693
                }
2694
                if (get_expr(mon, &val, &p))
2695
                    goto fail;
2696
            add_num:
2697
                if (c == 'i') {
2698
                    if (nb_args >= MAX_ARGS)
2699
                        goto error_args;
2700
                    args[nb_args++] = (void *)(long)val;
2701
                } else {
2702
                    if ((nb_args + 1) >= MAX_ARGS)
2703
                        goto error_args;
2704
#if TARGET_PHYS_ADDR_BITS > 32
2705
                    args[nb_args++] = (void *)(long)((val >> 32) & 0xffffffff);
2706
#else
2707
                    args[nb_args++] = (void *)0;
2708
#endif
2709
                    args[nb_args++] = (void *)(long)(val & 0xffffffff);
2710
                }
2711
            }
2712
            break;
2713
        case '-':
2714
            {
2715
                int has_option;
2716
                /* option */
2717

    
2718
                c = *typestr++;
2719
                if (c == '\0')
2720
                    goto bad_type;
2721
                while (qemu_isspace(*p))
2722
                    p++;
2723
                has_option = 0;
2724
                if (*p == '-') {
2725
                    p++;
2726
                    if (*p != c) {
2727
                        monitor_printf(mon, "%s: unsupported option -%c\n",
2728
                                       cmdname, *p);
2729
                        goto fail;
2730
                    }
2731
                    p++;
2732
                    has_option = 1;
2733
                }
2734
                if (nb_args >= MAX_ARGS)
2735
                    goto error_args;
2736
                args[nb_args++] = (void *)(long)has_option;
2737
            }
2738
            break;
2739
        default:
2740
        bad_type:
2741
            monitor_printf(mon, "%s: unknown type '%c'\n", cmdname, c);
2742
            goto fail;
2743
        }
2744
    }
2745
    /* check that all arguments were parsed */
2746
    while (qemu_isspace(*p))
2747
        p++;
2748
    if (*p != '\0') {
2749
        monitor_printf(mon, "%s: extraneous characters at the end of line\n",
2750
                       cmdname);
2751
        goto fail;
2752
    }
2753

    
2754
    switch(nb_args) {
2755
    case 0:
2756
        handler_0 = cmd->handler;
2757
        handler_0(mon);
2758
        break;
2759
    case 1:
2760
        handler_1 = cmd->handler;
2761
        handler_1(mon, args[0]);
2762
        break;
2763
    case 2:
2764
        handler_2 = cmd->handler;
2765
        handler_2(mon, args[0], args[1]);
2766
        break;
2767
    case 3:
2768
        handler_3 = cmd->handler;
2769
        handler_3(mon, args[0], args[1], args[2]);
2770
        break;
2771
    case 4:
2772
        handler_4 = cmd->handler;
2773
        handler_4(mon, args[0], args[1], args[2], args[3]);
2774
        break;
2775
    case 5:
2776
        handler_5 = cmd->handler;
2777
        handler_5(mon, args[0], args[1], args[2], args[3], args[4]);
2778
        break;
2779
    case 6:
2780
        handler_6 = cmd->handler;
2781
        handler_6(mon, args[0], args[1], args[2], args[3], args[4], args[5]);
2782
        break;
2783
    case 7:
2784
        handler_7 = cmd->handler;
2785
        handler_7(mon, args[0], args[1], args[2], args[3], args[4], args[5],
2786
                  args[6]);
2787
        break;
2788
    default:
2789
        monitor_printf(mon, "unsupported number of arguments: %d\n", nb_args);
2790
        goto fail;
2791
    }
2792
 fail:
2793
    for(i = 0; i < MAX_ARGS; i++)
2794
        qemu_free(str_allocated[i]);
2795
    return;
2796
}
2797

    
2798
static void cmd_completion(const char *name, const char *list)
2799
{
2800
    const char *p, *pstart;
2801
    char cmd[128];
2802
    int len;
2803

    
2804
    p = list;
2805
    for(;;) {
2806
        pstart = p;
2807
        p = strchr(p, '|');
2808
        if (!p)
2809
            p = pstart + strlen(pstart);
2810
        len = p - pstart;
2811
        if (len > sizeof(cmd) - 2)
2812
            len = sizeof(cmd) - 2;
2813
        memcpy(cmd, pstart, len);
2814
        cmd[len] = '\0';
2815
        if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
2816
            readline_add_completion(cur_mon->rs, cmd);
2817
        }
2818
        if (*p == '\0')
2819
            break;
2820
        p++;
2821
    }
2822
}
2823

    
2824
static void file_completion(const char *input)
2825
{
2826
    DIR *ffs;
2827
    struct dirent *d;
2828
    char path[1024];
2829
    char file[1024], file_prefix[1024];
2830
    int input_path_len;
2831
    const char *p;
2832

    
2833
    p = strrchr(input, '/');
2834
    if (!p) {
2835
        input_path_len = 0;
2836
        pstrcpy(file_prefix, sizeof(file_prefix), input);
2837
        pstrcpy(path, sizeof(path), ".");
2838
    } else {
2839
        input_path_len = p - input + 1;
2840
        memcpy(path, input, input_path_len);
2841
        if (input_path_len > sizeof(path) - 1)
2842
            input_path_len = sizeof(path) - 1;
2843
        path[input_path_len] = '\0';
2844
        pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
2845
    }
2846
#ifdef DEBUG_COMPLETION
2847
    monitor_printf(cur_mon, "input='%s' path='%s' prefix='%s'\n",
2848
                   input, path, file_prefix);
2849
#endif
2850
    ffs = opendir(path);
2851
    if (!ffs)
2852
        return;
2853
    for(;;) {
2854
        struct stat sb;
2855
        d = readdir(ffs);
2856
        if (!d)
2857
            break;
2858
        if (strstart(d->d_name, file_prefix, NULL)) {
2859
            memcpy(file, input, input_path_len);
2860
            if (input_path_len < sizeof(file))
2861
                pstrcpy(file + input_path_len, sizeof(file) - input_path_len,
2862
                        d->d_name);
2863
            /* stat the file to find out if it's a directory.
2864
             * In that case add a slash to speed up typing long paths
2865
             */
2866
            stat(file, &sb);
2867
            if(S_ISDIR(sb.st_mode))
2868
                pstrcat(file, sizeof(file), "/");
2869
            readline_add_completion(cur_mon->rs, file);
2870
        }
2871
    }
2872
    closedir(ffs);
2873
}
2874

    
2875
static void block_completion_it(void *opaque, BlockDriverState *bs)
2876
{
2877
    const char *name = bdrv_get_device_name(bs);
2878
    const char *input = opaque;
2879

    
2880
    if (input[0] == '\0' ||
2881
        !strncmp(name, (char *)input, strlen(input))) {
2882
        readline_add_completion(cur_mon->rs, name);
2883
    }
2884
}
2885

    
2886
/* NOTE: this parser is an approximate form of the real command parser */
2887
static void parse_cmdline(const char *cmdline,
2888
                         int *pnb_args, char **args)
2889
{
2890
    const char *p;
2891
    int nb_args, ret;
2892
    char buf[1024];
2893

    
2894
    p = cmdline;
2895
    nb_args = 0;
2896
    for(;;) {
2897
        while (qemu_isspace(*p))
2898
            p++;
2899
        if (*p == '\0')
2900
            break;
2901
        if (nb_args >= MAX_ARGS)
2902
            break;
2903
        ret = get_str(buf, sizeof(buf), &p);
2904
        args[nb_args] = qemu_strdup(buf);
2905
        nb_args++;
2906
        if (ret < 0)
2907
            break;
2908
    }
2909
    *pnb_args = nb_args;
2910
}
2911

    
2912
static void monitor_find_completion(const char *cmdline)
2913
{
2914
    const char *cmdname;
2915
    char *args[MAX_ARGS];
2916
    int nb_args, i, len;
2917
    const char *ptype, *str;
2918
    const mon_cmd_t *cmd;
2919
    const KeyDef *key;
2920

    
2921
    parse_cmdline(cmdline, &nb_args, args);
2922
#ifdef DEBUG_COMPLETION
2923
    for(i = 0; i < nb_args; i++) {
2924
        monitor_printf(cur_mon, "arg%d = '%s'\n", i, (char *)args[i]);
2925
    }
2926
#endif
2927

    
2928
    /* if the line ends with a space, it means we want to complete the
2929
       next arg */
2930
    len = strlen(cmdline);
2931
    if (len > 0 && qemu_isspace(cmdline[len - 1])) {
2932
        if (nb_args >= MAX_ARGS)
2933
            return;
2934
        args[nb_args++] = qemu_strdup("");
2935
    }
2936
    if (nb_args <= 1) {
2937
        /* command completion */
2938
        if (nb_args == 0)
2939
            cmdname = "";
2940
        else
2941
            cmdname = args[0];
2942
        readline_set_completion_index(cur_mon->rs, strlen(cmdname));
2943
        for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
2944
            cmd_completion(cmdname, cmd->name);
2945
        }
2946
    } else {
2947
        /* find the command */
2948
        for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
2949
            if (compare_cmd(args[0], cmd->name))
2950
                goto found;
2951
        }
2952
        return;
2953
    found:
2954
        ptype = cmd->args_type;
2955
        for(i = 0; i < nb_args - 2; i++) {
2956
            if (*ptype != '\0') {
2957
                ptype++;
2958
                while (*ptype == '?')
2959
                    ptype++;
2960
            }
2961
        }
2962
        str = args[nb_args - 1];
2963
        switch(*ptype) {
2964
        case 'F':
2965
            /* file completion */
2966
            readline_set_completion_index(cur_mon->rs, strlen(str));
2967
            file_completion(str);
2968
            break;
2969
        case 'B':
2970
            /* block device name completion */
2971
            readline_set_completion_index(cur_mon->rs, strlen(str));
2972
            bdrv_iterate(block_completion_it, (void *)str);
2973
            break;
2974
        case 's':
2975
            /* XXX: more generic ? */
2976
            if (!strcmp(cmd->name, "info")) {
2977
                readline_set_completion_index(cur_mon->rs, strlen(str));
2978
                for(cmd = info_cmds; cmd->name != NULL; cmd++) {
2979
                    cmd_completion(str, cmd->name);
2980
                }
2981
            } else if (!strcmp(cmd->name, "sendkey")) {
2982
                char *sep = strrchr(str, '-');
2983
                if (sep)
2984
                    str = sep + 1;
2985
                readline_set_completion_index(cur_mon->rs, strlen(str));
2986
                for(key = key_defs; key->name != NULL; key++) {
2987
                    cmd_completion(str, key->name);
2988
                }
2989
            }
2990
            break;
2991
        default:
2992
            break;
2993
        }
2994
    }
2995
    for(i = 0; i < nb_args; i++)
2996
        qemu_free(args[i]);
2997
}
2998

    
2999
static int monitor_can_read(void *opaque)
3000
{
3001
    Monitor *mon = opaque;
3002

    
3003
    return (mon->suspend_cnt == 0) ? 128 : 0;
3004
}
3005

    
3006
static void monitor_read(void *opaque, const uint8_t *buf, int size)
3007
{
3008
    Monitor *old_mon = cur_mon;
3009
    int i;
3010

    
3011
    cur_mon = opaque;
3012

    
3013
    if (cur_mon->rs) {
3014
        for (i = 0; i < size; i++)
3015
            readline_handle_byte(cur_mon->rs, buf[i]);
3016
    } else {
3017
        if (size == 0 || buf[size - 1] != 0)
3018
            monitor_printf(cur_mon, "corrupted command\n");
3019
        else
3020
            monitor_handle_command(cur_mon, (char *)buf);
3021
    }
3022

    
3023
    cur_mon = old_mon;
3024
}
3025

    
3026
static void monitor_command_cb(Monitor *mon, const char *cmdline, void *opaque)
3027
{
3028
    monitor_suspend(mon);
3029
    monitor_handle_command(mon, cmdline);
3030
    monitor_resume(mon);
3031
}
3032

    
3033
int monitor_suspend(Monitor *mon)
3034
{
3035
    if (!mon->rs)
3036
        return -ENOTTY;
3037
    mon->suspend_cnt++;
3038
    return 0;
3039
}
3040

    
3041
void monitor_resume(Monitor *mon)
3042
{
3043
    if (!mon->rs)
3044
        return;
3045
    if (--mon->suspend_cnt == 0)
3046
        readline_show_prompt(mon->rs);
3047
}
3048

    
3049
static void monitor_event(void *opaque, int event)
3050
{
3051
    Monitor *mon = opaque;
3052

    
3053
    switch (event) {
3054
    case CHR_EVENT_MUX_IN:
3055
        readline_restart(mon->rs);
3056
        monitor_resume(mon);
3057
        monitor_flush(mon);
3058
        break;
3059

    
3060
    case CHR_EVENT_MUX_OUT:
3061
        if (mon->suspend_cnt == 0)
3062
            monitor_printf(mon, "\n");
3063
        monitor_flush(mon);
3064
        monitor_suspend(mon);
3065
        break;
3066

    
3067
    case CHR_EVENT_RESET:
3068
        monitor_printf(mon, "QEMU %s monitor - type 'help' for more "
3069
                       "information\n", QEMU_VERSION);
3070
        if (mon->chr->focus == 0)
3071
            readline_show_prompt(mon->rs);
3072
        break;
3073
    }
3074
}
3075

    
3076

    
3077
/*
3078
 * Local variables:
3079
 *  c-indent-level: 4
3080
 *  c-basic-offset: 4
3081
 *  tab-width: 8
3082
 * End:
3083
 */
3084

    
3085
void monitor_init(CharDriverState *chr, int flags)
3086
{
3087
    static int is_first_init = 1;
3088
    Monitor *mon;
3089

    
3090
    if (is_first_init) {
3091
        key_timer = qemu_new_timer(vm_clock, release_keys, NULL);
3092
        is_first_init = 0;
3093
    }
3094

    
3095
    mon = qemu_mallocz(sizeof(*mon));
3096

    
3097
    mon->chr = chr;
3098
    mon->flags = flags;
3099
    if (mon->chr->focus != 0)
3100
        mon->suspend_cnt = 1; /* mux'ed monitors start suspended */
3101
    if (flags & MONITOR_USE_READLINE) {
3102
        mon->rs = readline_init(mon, monitor_find_completion);
3103
        monitor_read_command(mon, 0);
3104
    }
3105

    
3106
    qemu_chr_add_handlers(chr, monitor_can_read, monitor_read, monitor_event,
3107
                          mon);
3108

    
3109
    LIST_INSERT_HEAD(&mon_list, mon, entry);
3110
    if (!cur_mon || (flags & MONITOR_IS_DEFAULT))
3111
        cur_mon = mon;
3112
}
3113

    
3114
static void bdrv_password_cb(Monitor *mon, const char *password, void *opaque)
3115
{
3116
    BlockDriverState *bs = opaque;
3117
    int ret = 0;
3118

    
3119
    if (bdrv_set_key(bs, password) != 0) {
3120
        monitor_printf(mon, "invalid password\n");
3121
        ret = -EPERM;
3122
    }
3123
    if (mon->password_completion_cb)
3124
        mon->password_completion_cb(mon->password_opaque, ret);
3125

    
3126
    monitor_read_command(mon, 1);
3127
}
3128

    
3129
void monitor_read_bdrv_key_start(Monitor *mon, BlockDriverState *bs,
3130
                                 BlockDriverCompletionFunc *completion_cb,
3131
                                 void *opaque)
3132
{
3133
    int err;
3134

    
3135
    if (!bdrv_key_required(bs)) {
3136
        if (completion_cb)
3137
            completion_cb(opaque, 0);
3138
        return;
3139
    }
3140

    
3141
    monitor_printf(mon, "%s (%s) is encrypted.\n", bdrv_get_device_name(bs),
3142
                   bdrv_get_encrypted_filename(bs));
3143

    
3144
    mon->password_completion_cb = completion_cb;
3145
    mon->password_opaque = opaque;
3146

    
3147
    err = monitor_read_password(mon, bdrv_password_cb, bs);
3148

    
3149
    if (err && completion_cb)
3150
        completion_cb(opaque, err);
3151
}