Statistics
| Branch: | Revision:

root / monitor.c @ ac72472b

History | View | Annotate | Download (85.8 kB)

1
/*
2
 * QEMU monitor
3
 *
4
 * Copyright (c) 2003-2004 Fabrice Bellard
5
 *
6
 * Permission is hereby granted, free of charge, to any person obtaining a copy
7
 * of this software and associated documentation files (the "Software"), to deal
8
 * in the Software without restriction, including without limitation the rights
9
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10
 * copies of the Software, and to permit persons to whom the Software is
11
 * furnished to do so, subject to the following conditions:
12
 *
13
 * The above copyright notice and this permission notice shall be included in
14
 * all copies or substantial portions of the Software.
15
 *
16
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22
 * THE SOFTWARE.
23
 */
24
#include <dirent.h>
25
#include "hw/hw.h"
26
#include "hw/qdev.h"
27
#include "hw/usb.h"
28
#include "hw/pcmcia.h"
29
#include "hw/pc.h"
30
#include "hw/pci.h"
31
#include "hw/watchdog.h"
32
#include "gdbstub.h"
33
#include "net.h"
34
#include "qemu-char.h"
35
#include "sysemu.h"
36
#include "monitor.h"
37
#include "readline.h"
38
#include "console.h"
39
#include "block.h"
40
#include "audio/audio.h"
41
#include "disas.h"
42
#include "balloon.h"
43
#include "qemu-timer.h"
44
#include "migration.h"
45
#include "kvm.h"
46
#include "acl.h"
47

    
48
//#define DEBUG
49
//#define DEBUG_COMPLETION
50

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

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

    
73
/* file descriptors passed via SCM_RIGHTS */
74
typedef struct mon_fd_t mon_fd_t;
75
struct mon_fd_t {
76
    char *name;
77
    int fd;
78
    LIST_ENTRY(mon_fd_t) next;
79
};
80

    
81
struct Monitor {
82
    CharDriverState *chr;
83
    int flags;
84
    int suspend_cnt;
85
    uint8_t outbuf[1024];
86
    int outbuf_index;
87
    ReadLineState *rs;
88
    CPUState *mon_cpu;
89
    BlockDriverCompletionFunc *password_completion_cb;
90
    void *password_opaque;
91
    LIST_HEAD(,mon_fd_t) fds;
92
    LIST_ENTRY(Monitor) entry;
93
};
94

    
95
static LIST_HEAD(mon_list, Monitor) mon_list;
96

    
97
static const mon_cmd_t mon_cmds[];
98
static const mon_cmd_t info_cmds[];
99

    
100
Monitor *cur_mon = NULL;
101

    
102
static void monitor_command_cb(Monitor *mon, const char *cmdline,
103
                               void *opaque);
104

    
105
static void monitor_read_command(Monitor *mon, int show_prompt)
106
{
107
    readline_start(mon->rs, "(qemu) ", 0, monitor_command_cb, NULL);
108
    if (show_prompt)
109
        readline_show_prompt(mon->rs);
110
}
111

    
112
static int monitor_read_password(Monitor *mon, ReadLineFunc *readline_func,
113
                                 void *opaque)
114
{
115
    if (mon->rs) {
116
        readline_start(mon->rs, "Password: ", 1, readline_func, opaque);
117
        /* prompt is printed on return from the command handler */
118
        return 0;
119
    } else {
120
        monitor_printf(mon, "terminal does not support password prompting\n");
121
        return -ENOTTY;
122
    }
123
}
124

    
125
void monitor_flush(Monitor *mon)
126
{
127
    if (mon && mon->outbuf_index != 0 && mon->chr->focus == 0) {
128
        qemu_chr_write(mon->chr, mon->outbuf, mon->outbuf_index);
129
        mon->outbuf_index = 0;
130
    }
131
}
132

    
133
/* flush at every end of line or if the buffer is full */
134
static void monitor_puts(Monitor *mon, const char *str)
135
{
136
    char c;
137

    
138
    if (!mon)
139
        return;
140

    
141
    for(;;) {
142
        c = *str++;
143
        if (c == '\0')
144
            break;
145
        if (c == '\n')
146
            mon->outbuf[mon->outbuf_index++] = '\r';
147
        mon->outbuf[mon->outbuf_index++] = c;
148
        if (mon->outbuf_index >= (sizeof(mon->outbuf) - 1)
149
            || c == '\n')
150
            monitor_flush(mon);
151
    }
152
}
153

    
154
void monitor_vprintf(Monitor *mon, const char *fmt, va_list ap)
155
{
156
    char buf[4096];
157
    vsnprintf(buf, sizeof(buf), fmt, ap);
158
    monitor_puts(mon, buf);
159
}
160

    
161
void monitor_printf(Monitor *mon, const char *fmt, ...)
162
{
163
    va_list ap;
164
    va_start(ap, fmt);
165
    monitor_vprintf(mon, fmt, ap);
166
    va_end(ap);
167
}
168

    
169
void monitor_print_filename(Monitor *mon, const char *filename)
170
{
171
    int i;
172

    
173
    for (i = 0; filename[i]; i++) {
174
        switch (filename[i]) {
175
        case ' ':
176
        case '"':
177
        case '\\':
178
            monitor_printf(mon, "\\%c", filename[i]);
179
            break;
180
        case '\t':
181
            monitor_printf(mon, "\\t");
182
            break;
183
        case '\r':
184
            monitor_printf(mon, "\\r");
185
            break;
186
        case '\n':
187
            monitor_printf(mon, "\\n");
188
            break;
189
        default:
190
            monitor_printf(mon, "%c", filename[i]);
191
            break;
192
        }
193
    }
194
}
195

    
196
static int monitor_fprintf(FILE *stream, const char *fmt, ...)
197
{
198
    va_list ap;
199
    va_start(ap, fmt);
200
    monitor_vprintf((Monitor *)stream, fmt, ap);
201
    va_end(ap);
202
    return 0;
203
}
204

    
205
static int compare_cmd(const char *name, const char *list)
206
{
207
    const char *p, *pstart;
208
    int len;
209
    len = strlen(name);
210
    p = list;
211
    for(;;) {
212
        pstart = p;
213
        p = strchr(p, '|');
214
        if (!p)
215
            p = pstart + strlen(pstart);
216
        if ((p - pstart) == len && !memcmp(pstart, name, len))
217
            return 1;
218
        if (*p == '\0')
219
            break;
220
        p++;
221
    }
222
    return 0;
223
}
224

    
225
static void help_cmd_dump(Monitor *mon, const mon_cmd_t *cmds,
226
                          const char *prefix, const char *name)
227
{
228
    const mon_cmd_t *cmd;
229

    
230
    for(cmd = cmds; cmd->name != NULL; cmd++) {
231
        if (!name || !strcmp(name, cmd->name))
232
            monitor_printf(mon, "%s%s %s -- %s\n", prefix, cmd->name,
233
                           cmd->params, cmd->help);
234
    }
235
}
236

    
237
static void help_cmd(Monitor *mon, const char *name)
238
{
239
    if (name && !strcmp(name, "info")) {
240
        help_cmd_dump(mon, info_cmds, "info ", NULL);
241
    } else {
242
        help_cmd_dump(mon, mon_cmds, "", name);
243
        if (name && !strcmp(name, "log")) {
244
            const CPULogItem *item;
245
            monitor_printf(mon, "Log items (comma separated):\n");
246
            monitor_printf(mon, "%-10s %s\n", "none", "remove all logs");
247
            for(item = cpu_log_items; item->mask != 0; item++) {
248
                monitor_printf(mon, "%-10s %s\n", item->name, item->help);
249
            }
250
        }
251
    }
252
}
253

    
254
static void do_commit(Monitor *mon, const char *device)
255
{
256
    int all_devices;
257
    DriveInfo *dinfo;
258

    
259
    all_devices = !strcmp(device, "all");
260
    TAILQ_FOREACH(dinfo, &drives, next) {
261
        if (!all_devices)
262
            if (strcmp(bdrv_get_device_name(dinfo->bdrv), device))
263
                continue;
264
        bdrv_commit(dinfo->bdrv);
265
    }
266
}
267

    
268
static void do_info(Monitor *mon, const char *item)
269
{
270
    const mon_cmd_t *cmd;
271
    void (*handler)(Monitor *);
272

    
273
    if (!item)
274
        goto help;
275
    for(cmd = info_cmds; cmd->name != NULL; cmd++) {
276
        if (compare_cmd(item, cmd->name))
277
            goto found;
278
    }
279
 help:
280
    help_cmd(mon, "info");
281
    return;
282
 found:
283
    handler = cmd->handler;
284
    handler(mon);
285
}
286

    
287
static void do_info_version(Monitor *mon)
288
{
289
    monitor_printf(mon, "%s\n", QEMU_VERSION QEMU_PKGVERSION);
290
}
291

    
292
static void do_info_name(Monitor *mon)
293
{
294
    if (qemu_name)
295
        monitor_printf(mon, "%s\n", qemu_name);
296
}
297

    
298
#if defined(TARGET_I386)
299
static void do_info_hpet(Monitor *mon)
300
{
301
    monitor_printf(mon, "HPET is %s by QEMU\n",
302
                   (no_hpet) ? "disabled" : "enabled");
303
}
304
#endif
305

    
306
static void do_info_uuid(Monitor *mon)
307
{
308
    monitor_printf(mon, UUID_FMT "\n", qemu_uuid[0], qemu_uuid[1],
309
                   qemu_uuid[2], qemu_uuid[3], qemu_uuid[4], qemu_uuid[5],
310
                   qemu_uuid[6], qemu_uuid[7], qemu_uuid[8], qemu_uuid[9],
311
                   qemu_uuid[10], qemu_uuid[11], qemu_uuid[12], qemu_uuid[13],
312
                   qemu_uuid[14], qemu_uuid[15]);
313
}
314

    
315
/* get the current CPU defined by the user */
316
static int mon_set_cpu(int cpu_index)
317
{
318
    CPUState *env;
319

    
320
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
321
        if (env->cpu_index == cpu_index) {
322
            cur_mon->mon_cpu = env;
323
            return 0;
324
        }
325
    }
326
    return -1;
327
}
328

    
329
static CPUState *mon_get_cpu(void)
330
{
331
    if (!cur_mon->mon_cpu) {
332
        mon_set_cpu(0);
333
    }
334
    cpu_synchronize_state(cur_mon->mon_cpu, 0);
335
    return cur_mon->mon_cpu;
336
}
337

    
338
static void do_info_registers(Monitor *mon)
339
{
340
    CPUState *env;
341
    env = mon_get_cpu();
342
    if (!env)
343
        return;
344
#ifdef TARGET_I386
345
    cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
346
                   X86_DUMP_FPU);
347
#else
348
    cpu_dump_state(env, (FILE *)mon, monitor_fprintf,
349
                   0);
350
#endif
351
}
352

    
353
static void do_info_cpus(Monitor *mon)
354
{
355
    CPUState *env;
356

    
357
    /* just to set the default cpu if not already done */
358
    mon_get_cpu();
359

    
360
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
361
        cpu_synchronize_state(env, 0);
362
        monitor_printf(mon, "%c CPU #%d:",
363
                       (env == mon->mon_cpu) ? '*' : ' ',
364
                       env->cpu_index);
365
#if defined(TARGET_I386)
366
        monitor_printf(mon, " pc=0x" TARGET_FMT_lx,
367
                       env->eip + env->segs[R_CS].base);
368
#elif defined(TARGET_PPC)
369
        monitor_printf(mon, " nip=0x" TARGET_FMT_lx, env->nip);
370
#elif defined(TARGET_SPARC)
371
        monitor_printf(mon, " pc=0x" TARGET_FMT_lx " npc=0x" TARGET_FMT_lx,
372
                       env->pc, env->npc);
373
#elif defined(TARGET_MIPS)
374
        monitor_printf(mon, " PC=0x" TARGET_FMT_lx, env->active_tc.PC);
375
#endif
376
        if (env->halted)
377
            monitor_printf(mon, " (halted)");
378
        monitor_printf(mon, "\n");
379
    }
380
}
381

    
382
static void do_cpu_set(Monitor *mon, int index)
383
{
384
    if (mon_set_cpu(index) < 0)
385
        monitor_printf(mon, "Invalid CPU index\n");
386
}
387

    
388
static void do_info_jit(Monitor *mon)
389
{
390
    dump_exec_info((FILE *)mon, monitor_fprintf);
391
}
392

    
393
static void do_info_history(Monitor *mon)
394
{
395
    int i;
396
    const char *str;
397

    
398
    if (!mon->rs)
399
        return;
400
    i = 0;
401
    for(;;) {
402
        str = readline_get_history(mon->rs, i);
403
        if (!str)
404
            break;
405
        monitor_printf(mon, "%d: '%s'\n", i, str);
406
        i++;
407
    }
408
}
409

    
410
#if defined(TARGET_PPC)
411
/* XXX: not implemented in other targets */
412
static void do_info_cpu_stats(Monitor *mon)
413
{
414
    CPUState *env;
415

    
416
    env = mon_get_cpu();
417
    cpu_dump_statistics(env, (FILE *)mon, &monitor_fprintf, 0);
418
}
419
#endif
420

    
421
static void do_quit(Monitor *mon)
422
{
423
    exit(0);
424
}
425

    
426
static int eject_device(Monitor *mon, BlockDriverState *bs, int force)
427
{
428
    if (bdrv_is_inserted(bs)) {
429
        if (!force) {
430
            if (!bdrv_is_removable(bs)) {
431
                monitor_printf(mon, "device is not removable\n");
432
                return -1;
433
            }
434
            if (bdrv_is_locked(bs)) {
435
                monitor_printf(mon, "device is locked\n");
436
                return -1;
437
            }
438
        }
439
        bdrv_close(bs);
440
    }
441
    return 0;
442
}
443

    
444
static void do_eject(Monitor *mon, int force, const char *filename)
445
{
446
    BlockDriverState *bs;
447

    
448
    bs = bdrv_find(filename);
449
    if (!bs) {
450
        monitor_printf(mon, "device not found\n");
451
        return;
452
    }
453
    eject_device(mon, bs, force);
454
}
455

    
456
static void do_change_block(Monitor *mon, const char *device,
457
                            const char *filename, const char *fmt)
458
{
459
    BlockDriverState *bs;
460
    BlockDriver *drv = NULL;
461

    
462
    bs = bdrv_find(device);
463
    if (!bs) {
464
        monitor_printf(mon, "device not found\n");
465
        return;
466
    }
467
    if (fmt) {
468
        drv = bdrv_find_format(fmt);
469
        if (!drv) {
470
            monitor_printf(mon, "invalid format %s\n", fmt);
471
            return;
472
        }
473
    }
474
    if (eject_device(mon, bs, 0) < 0)
475
        return;
476
    bdrv_open2(bs, filename, 0, drv);
477
    monitor_read_bdrv_key_start(mon, bs, NULL, NULL);
478
}
479

    
480
static void change_vnc_password_cb(Monitor *mon, const char *password,
481
                                   void *opaque)
482
{
483
    if (vnc_display_password(NULL, password) < 0)
484
        monitor_printf(mon, "could not set VNC server password\n");
485

    
486
    monitor_read_command(mon, 1);
487
}
488

    
489
static void do_change_vnc(Monitor *mon, const char *target, const char *arg)
490
{
491
    if (strcmp(target, "passwd") == 0 ||
492
        strcmp(target, "password") == 0) {
493
        if (arg) {
494
            char password[9];
495
            strncpy(password, arg, sizeof(password));
496
            password[sizeof(password) - 1] = '\0';
497
            change_vnc_password_cb(mon, password, NULL);
498
        } else {
499
            monitor_read_password(mon, change_vnc_password_cb, NULL);
500
        }
501
    } else {
502
        if (vnc_display_open(NULL, target) < 0)
503
            monitor_printf(mon, "could not start VNC server on %s\n", target);
504
    }
505
}
506

    
507
static void do_change(Monitor *mon, const char *device, const char *target,
508
                      const char *arg)
509
{
510
    if (strcmp(device, "vnc") == 0) {
511
        do_change_vnc(mon, target, arg);
512
    } else {
513
        do_change_block(mon, device, target, arg);
514
    }
515
}
516

    
517
static void do_screen_dump(Monitor *mon, const char *filename)
518
{
519
    vga_hw_screen_dump(filename);
520
}
521

    
522
static void do_logfile(Monitor *mon, const char *filename)
523
{
524
    cpu_set_log_filename(filename);
525
}
526

    
527
static void do_log(Monitor *mon, const char *items)
528
{
529
    int mask;
530

    
531
    if (!strcmp(items, "none")) {
532
        mask = 0;
533
    } else {
534
        mask = cpu_str_to_log_mask(items);
535
        if (!mask) {
536
            help_cmd(mon, "log");
537
            return;
538
        }
539
    }
540
    cpu_set_log(mask);
541
}
542

    
543
static void do_singlestep(Monitor *mon, const char *option)
544
{
545
    if (!option || !strcmp(option, "on")) {
546
        singlestep = 1;
547
    } else if (!strcmp(option, "off")) {
548
        singlestep = 0;
549
    } else {
550
        monitor_printf(mon, "unexpected option %s\n", option);
551
    }
552
}
553

    
554
static void do_stop(Monitor *mon)
555
{
556
    vm_stop(EXCP_INTERRUPT);
557
}
558

    
559
static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs);
560

    
561
struct bdrv_iterate_context {
562
    Monitor *mon;
563
    int err;
564
};
565

    
566
static void do_cont(Monitor *mon)
567
{
568
    struct bdrv_iterate_context context = { mon, 0 };
569

    
570
    bdrv_iterate(encrypted_bdrv_it, &context);
571
    /* only resume the vm if all keys are set and valid */
572
    if (!context.err)
573
        vm_start();
574
}
575

    
576
static void bdrv_key_cb(void *opaque, int err)
577
{
578
    Monitor *mon = opaque;
579

    
580
    /* another key was set successfully, retry to continue */
581
    if (!err)
582
        do_cont(mon);
583
}
584

    
585
static void encrypted_bdrv_it(void *opaque, BlockDriverState *bs)
586
{
587
    struct bdrv_iterate_context *context = opaque;
588

    
589
    if (!context->err && bdrv_key_required(bs)) {
590
        context->err = -EBUSY;
591
        monitor_read_bdrv_key_start(context->mon, bs, bdrv_key_cb,
592
                                    context->mon);
593
    }
594
}
595

    
596
static void do_gdbserver(Monitor *mon, const char *device)
597
{
598
    if (!device)
599
        device = "tcp::" DEFAULT_GDBSTUB_PORT;
600
    if (gdbserver_start(device) < 0) {
601
        monitor_printf(mon, "Could not open gdbserver on device '%s'\n",
602
                       device);
603
    } else if (strcmp(device, "none") == 0) {
604
        monitor_printf(mon, "Disabled gdbserver\n");
605
    } else {
606
        monitor_printf(mon, "Waiting for gdb connection on device '%s'\n",
607
                       device);
608
    }
609
}
610

    
611
static void do_watchdog_action(Monitor *mon, const char *action)
612
{
613
    if (select_watchdog_action(action) == -1) {
614
        monitor_printf(mon, "Unknown watchdog action '%s'\n", action);
615
    }
616
}
617

    
618
static void monitor_printc(Monitor *mon, int c)
619
{
620
    monitor_printf(mon, "'");
621
    switch(c) {
622
    case '\'':
623
        monitor_printf(mon, "\\'");
624
        break;
625
    case '\\':
626
        monitor_printf(mon, "\\\\");
627
        break;
628
    case '\n':
629
        monitor_printf(mon, "\\n");
630
        break;
631
    case '\r':
632
        monitor_printf(mon, "\\r");
633
        break;
634
    default:
635
        if (c >= 32 && c <= 126) {
636
            monitor_printf(mon, "%c", c);
637
        } else {
638
            monitor_printf(mon, "\\x%02x", c);
639
        }
640
        break;
641
    }
642
    monitor_printf(mon, "'");
643
}
644

    
645
static void memory_dump(Monitor *mon, int count, int format, int wsize,
646
                        target_phys_addr_t addr, int is_physical)
647
{
648
    CPUState *env;
649
    int nb_per_line, l, line_size, i, max_digits, len;
650
    uint8_t buf[16];
651
    uint64_t v;
652

    
653
    if (format == 'i') {
654
        int flags;
655
        flags = 0;
656
        env = mon_get_cpu();
657
        if (!env && !is_physical)
658
            return;
659
#ifdef TARGET_I386
660
        if (wsize == 2) {
661
            flags = 1;
662
        } else if (wsize == 4) {
663
            flags = 0;
664
        } else {
665
            /* as default we use the current CS size */
666
            flags = 0;
667
            if (env) {
668
#ifdef TARGET_X86_64
669
                if ((env->efer & MSR_EFER_LMA) &&
670
                    (env->segs[R_CS].flags & DESC_L_MASK))
671
                    flags = 2;
672
                else
673
#endif
674
                if (!(env->segs[R_CS].flags & DESC_B_MASK))
675
                    flags = 1;
676
            }
677
        }
678
#endif
679
        monitor_disas(mon, env, addr, count, is_physical, flags);
680
        return;
681
    }
682

    
683
    len = wsize * count;
684
    if (wsize == 1)
685
        line_size = 8;
686
    else
687
        line_size = 16;
688
    nb_per_line = line_size / wsize;
689
    max_digits = 0;
690

    
691
    switch(format) {
692
    case 'o':
693
        max_digits = (wsize * 8 + 2) / 3;
694
        break;
695
    default:
696
    case 'x':
697
        max_digits = (wsize * 8) / 4;
698
        break;
699
    case 'u':
700
    case 'd':
701
        max_digits = (wsize * 8 * 10 + 32) / 33;
702
        break;
703
    case 'c':
704
        wsize = 1;
705
        break;
706
    }
707

    
708
    while (len > 0) {
709
        if (is_physical)
710
            monitor_printf(mon, TARGET_FMT_plx ":", addr);
711
        else
712
            monitor_printf(mon, TARGET_FMT_lx ":", (target_ulong)addr);
713
        l = len;
714
        if (l > line_size)
715
            l = line_size;
716
        if (is_physical) {
717
            cpu_physical_memory_rw(addr, buf, l, 0);
718
        } else {
719
            env = mon_get_cpu();
720
            if (!env)
721
                break;
722
            if (cpu_memory_rw_debug(env, addr, buf, l, 0) < 0) {
723
                monitor_printf(mon, " Cannot access memory\n");
724
                break;
725
            }
726
        }
727
        i = 0;
728
        while (i < l) {
729
            switch(wsize) {
730
            default:
731
            case 1:
732
                v = ldub_raw(buf + i);
733
                break;
734
            case 2:
735
                v = lduw_raw(buf + i);
736
                break;
737
            case 4:
738
                v = (uint32_t)ldl_raw(buf + i);
739
                break;
740
            case 8:
741
                v = ldq_raw(buf + i);
742
                break;
743
            }
744
            monitor_printf(mon, " ");
745
            switch(format) {
746
            case 'o':
747
                monitor_printf(mon, "%#*" PRIo64, max_digits, v);
748
                break;
749
            case 'x':
750
                monitor_printf(mon, "0x%0*" PRIx64, max_digits, v);
751
                break;
752
            case 'u':
753
                monitor_printf(mon, "%*" PRIu64, max_digits, v);
754
                break;
755
            case 'd':
756
                monitor_printf(mon, "%*" PRId64, max_digits, v);
757
                break;
758
            case 'c':
759
                monitor_printc(mon, v);
760
                break;
761
            }
762
            i += wsize;
763
        }
764
        monitor_printf(mon, "\n");
765
        addr += l;
766
        len -= l;
767
    }
768
}
769

    
770
#if TARGET_LONG_BITS == 64
771
#define GET_TLONG(h, l) (((uint64_t)(h) << 32) | (l))
772
#else
773
#define GET_TLONG(h, l) (l)
774
#endif
775

    
776
static void do_memory_dump(Monitor *mon, int count, int format, int size,
777
                           uint32_t addrh, uint32_t addrl)
778
{
779
    target_long addr = GET_TLONG(addrh, addrl);
780
    memory_dump(mon, count, format, size, addr, 0);
781
}
782

    
783
#if TARGET_PHYS_ADDR_BITS > 32
784
#define GET_TPHYSADDR(h, l) (((uint64_t)(h) << 32) | (l))
785
#else
786
#define GET_TPHYSADDR(h, l) (l)
787
#endif
788

    
789
static void do_physical_memory_dump(Monitor *mon, int count, int format,
790
                                    int size, uint32_t addrh, uint32_t addrl)
791

    
792
{
793
    target_phys_addr_t addr = GET_TPHYSADDR(addrh, addrl);
794
    memory_dump(mon, count, format, size, addr, 1);
795
}
796

    
797
static void do_print(Monitor *mon, int count, int format, int size,
798
                     unsigned int valh, unsigned int vall)
799
{
800
    target_phys_addr_t val = GET_TPHYSADDR(valh, vall);
801
#if TARGET_PHYS_ADDR_BITS == 32
802
    switch(format) {
803
    case 'o':
804
        monitor_printf(mon, "%#o", val);
805
        break;
806
    case 'x':
807
        monitor_printf(mon, "%#x", val);
808
        break;
809
    case 'u':
810
        monitor_printf(mon, "%u", val);
811
        break;
812
    default:
813
    case 'd':
814
        monitor_printf(mon, "%d", val);
815
        break;
816
    case 'c':
817
        monitor_printc(mon, val);
818
        break;
819
    }
820
#else
821
    switch(format) {
822
    case 'o':
823
        monitor_printf(mon, "%#" PRIo64, val);
824
        break;
825
    case 'x':
826
        monitor_printf(mon, "%#" PRIx64, val);
827
        break;
828
    case 'u':
829
        monitor_printf(mon, "%" PRIu64, val);
830
        break;
831
    default:
832
    case 'd':
833
        monitor_printf(mon, "%" PRId64, val);
834
        break;
835
    case 'c':
836
        monitor_printc(mon, val);
837
        break;
838
    }
839
#endif
840
    monitor_printf(mon, "\n");
841
}
842

    
843
static void do_memory_save(Monitor *mon, unsigned int valh, unsigned int vall,
844
                           uint32_t size, const char *filename)
845
{
846
    FILE *f;
847
    target_long addr = GET_TLONG(valh, vall);
848
    uint32_t l;
849
    CPUState *env;
850
    uint8_t buf[1024];
851

    
852
    env = mon_get_cpu();
853
    if (!env)
854
        return;
855

    
856
    f = fopen(filename, "wb");
857
    if (!f) {
858
        monitor_printf(mon, "could not open '%s'\n", filename);
859
        return;
860
    }
861
    while (size != 0) {
862
        l = sizeof(buf);
863
        if (l > size)
864
            l = size;
865
        cpu_memory_rw_debug(env, addr, buf, l, 0);
866
        fwrite(buf, 1, l, f);
867
        addr += l;
868
        size -= l;
869
    }
870
    fclose(f);
871
}
872

    
873
static void do_physical_memory_save(Monitor *mon, unsigned int valh,
874
                                    unsigned int vall, uint32_t size,
875
                                    const char *filename)
876
{
877
    FILE *f;
878
    uint32_t l;
879
    uint8_t buf[1024];
880
    target_phys_addr_t addr = GET_TPHYSADDR(valh, vall); 
881

    
882
    f = fopen(filename, "wb");
883
    if (!f) {
884
        monitor_printf(mon, "could not open '%s'\n", filename);
885
        return;
886
    }
887
    while (size != 0) {
888
        l = sizeof(buf);
889
        if (l > size)
890
            l = size;
891
        cpu_physical_memory_rw(addr, buf, l, 0);
892
        fwrite(buf, 1, l, f);
893
        fflush(f);
894
        addr += l;
895
        size -= l;
896
    }
897
    fclose(f);
898
}
899

    
900
static void do_sum(Monitor *mon, uint32_t start, uint32_t size)
901
{
902
    uint32_t addr;
903
    uint8_t buf[1];
904
    uint16_t sum;
905

    
906
    sum = 0;
907
    for(addr = start; addr < (start + size); addr++) {
908
        cpu_physical_memory_rw(addr, buf, 1, 0);
909
        /* BSD sum algorithm ('sum' Unix command) */
910
        sum = (sum >> 1) | (sum << 15);
911
        sum += buf[0];
912
    }
913
    monitor_printf(mon, "%05d\n", sum);
914
}
915

    
916
typedef struct {
917
    int keycode;
918
    const char *name;
919
} KeyDef;
920

    
921
static const KeyDef key_defs[] = {
922
    { 0x2a, "shift" },
923
    { 0x36, "shift_r" },
924

    
925
    { 0x38, "alt" },
926
    { 0xb8, "alt_r" },
927
    { 0x64, "altgr" },
928
    { 0xe4, "altgr_r" },
929
    { 0x1d, "ctrl" },
930
    { 0x9d, "ctrl_r" },
931

    
932
    { 0xdd, "menu" },
933

    
934
    { 0x01, "esc" },
935

    
936
    { 0x02, "1" },
937
    { 0x03, "2" },
938
    { 0x04, "3" },
939
    { 0x05, "4" },
940
    { 0x06, "5" },
941
    { 0x07, "6" },
942
    { 0x08, "7" },
943
    { 0x09, "8" },
944
    { 0x0a, "9" },
945
    { 0x0b, "0" },
946
    { 0x0c, "minus" },
947
    { 0x0d, "equal" },
948
    { 0x0e, "backspace" },
949

    
950
    { 0x0f, "tab" },
951
    { 0x10, "q" },
952
    { 0x11, "w" },
953
    { 0x12, "e" },
954
    { 0x13, "r" },
955
    { 0x14, "t" },
956
    { 0x15, "y" },
957
    { 0x16, "u" },
958
    { 0x17, "i" },
959
    { 0x18, "o" },
960
    { 0x19, "p" },
961

    
962
    { 0x1c, "ret" },
963

    
964
    { 0x1e, "a" },
965
    { 0x1f, "s" },
966
    { 0x20, "d" },
967
    { 0x21, "f" },
968
    { 0x22, "g" },
969
    { 0x23, "h" },
970
    { 0x24, "j" },
971
    { 0x25, "k" },
972
    { 0x26, "l" },
973

    
974
    { 0x2c, "z" },
975
    { 0x2d, "x" },
976
    { 0x2e, "c" },
977
    { 0x2f, "v" },
978
    { 0x30, "b" },
979
    { 0x31, "n" },
980
    { 0x32, "m" },
981
    { 0x33, "comma" },
982
    { 0x34, "dot" },
983
    { 0x35, "slash" },
984

    
985
    { 0x37, "asterisk" },
986

    
987
    { 0x39, "spc" },
988
    { 0x3a, "caps_lock" },
989
    { 0x3b, "f1" },
990
    { 0x3c, "f2" },
991
    { 0x3d, "f3" },
992
    { 0x3e, "f4" },
993
    { 0x3f, "f5" },
994
    { 0x40, "f6" },
995
    { 0x41, "f7" },
996
    { 0x42, "f8" },
997
    { 0x43, "f9" },
998
    { 0x44, "f10" },
999
    { 0x45, "num_lock" },
1000
    { 0x46, "scroll_lock" },
1001

    
1002
    { 0xb5, "kp_divide" },
1003
    { 0x37, "kp_multiply" },
1004
    { 0x4a, "kp_subtract" },
1005
    { 0x4e, "kp_add" },
1006
    { 0x9c, "kp_enter" },
1007
    { 0x53, "kp_decimal" },
1008
    { 0x54, "sysrq" },
1009

    
1010
    { 0x52, "kp_0" },
1011
    { 0x4f, "kp_1" },
1012
    { 0x50, "kp_2" },
1013
    { 0x51, "kp_3" },
1014
    { 0x4b, "kp_4" },
1015
    { 0x4c, "kp_5" },
1016
    { 0x4d, "kp_6" },
1017
    { 0x47, "kp_7" },
1018
    { 0x48, "kp_8" },
1019
    { 0x49, "kp_9" },
1020

    
1021
    { 0x56, "<" },
1022

    
1023
    { 0x57, "f11" },
1024
    { 0x58, "f12" },
1025

    
1026
    { 0xb7, "print" },
1027

    
1028
    { 0xc7, "home" },
1029
    { 0xc9, "pgup" },
1030
    { 0xd1, "pgdn" },
1031
    { 0xcf, "end" },
1032

    
1033
    { 0xcb, "left" },
1034
    { 0xc8, "up" },
1035
    { 0xd0, "down" },
1036
    { 0xcd, "right" },
1037

    
1038
    { 0xd2, "insert" },
1039
    { 0xd3, "delete" },
1040
#if defined(TARGET_SPARC) && !defined(TARGET_SPARC64)
1041
    { 0xf0, "stop" },
1042
    { 0xf1, "again" },
1043
    { 0xf2, "props" },
1044
    { 0xf3, "undo" },
1045
    { 0xf4, "front" },
1046
    { 0xf5, "copy" },
1047
    { 0xf6, "open" },
1048
    { 0xf7, "paste" },
1049
    { 0xf8, "find" },
1050
    { 0xf9, "cut" },
1051
    { 0xfa, "lf" },
1052
    { 0xfb, "help" },
1053
    { 0xfc, "meta_l" },
1054
    { 0xfd, "meta_r" },
1055
    { 0xfe, "compose" },
1056
#endif
1057
    { 0, NULL },
1058
};
1059

    
1060
static int get_keycode(const char *key)
1061
{
1062
    const KeyDef *p;
1063
    char *endp;
1064
    int ret;
1065

    
1066
    for(p = key_defs; p->name != NULL; p++) {
1067
        if (!strcmp(key, p->name))
1068
            return p->keycode;
1069
    }
1070
    if (strstart(key, "0x", NULL)) {
1071
        ret = strtoul(key, &endp, 0);
1072
        if (*endp == '\0' && ret >= 0x01 && ret <= 0xff)
1073
            return ret;
1074
    }
1075
    return -1;
1076
}
1077

    
1078
#define MAX_KEYCODES 16
1079
static uint8_t keycodes[MAX_KEYCODES];
1080
static int nb_pending_keycodes;
1081
static QEMUTimer *key_timer;
1082

    
1083
static void release_keys(void *opaque)
1084
{
1085
    int keycode;
1086

    
1087
    while (nb_pending_keycodes > 0) {
1088
        nb_pending_keycodes--;
1089
        keycode = keycodes[nb_pending_keycodes];
1090
        if (keycode & 0x80)
1091
            kbd_put_keycode(0xe0);
1092
        kbd_put_keycode(keycode | 0x80);
1093
    }
1094
}
1095

    
1096
static void do_sendkey(Monitor *mon, const char *string, int has_hold_time,
1097
                       int hold_time)
1098
{
1099
    char keyname_buf[16];
1100
    char *separator;
1101
    int keyname_len, keycode, i;
1102

    
1103
    if (nb_pending_keycodes > 0) {
1104
        qemu_del_timer(key_timer);
1105
        release_keys(NULL);
1106
    }
1107
    if (!has_hold_time)
1108
        hold_time = 100;
1109
    i = 0;
1110
    while (1) {
1111
        separator = strchr(string, '-');
1112
        keyname_len = separator ? separator - string : strlen(string);
1113
        if (keyname_len > 0) {
1114
            pstrcpy(keyname_buf, sizeof(keyname_buf), string);
1115
            if (keyname_len > sizeof(keyname_buf) - 1) {
1116
                monitor_printf(mon, "invalid key: '%s...'\n", keyname_buf);
1117
                return;
1118
            }
1119
            if (i == MAX_KEYCODES) {
1120
                monitor_printf(mon, "too many keys\n");
1121
                return;
1122
            }
1123
            keyname_buf[keyname_len] = 0;
1124
            keycode = get_keycode(keyname_buf);
1125
            if (keycode < 0) {
1126
                monitor_printf(mon, "unknown key: '%s'\n", keyname_buf);
1127
                return;
1128
            }
1129
            keycodes[i++] = keycode;
1130
        }
1131
        if (!separator)
1132
            break;
1133
        string = separator + 1;
1134
    }
1135
    nb_pending_keycodes = i;
1136
    /* key down events */
1137
    for (i = 0; i < nb_pending_keycodes; i++) {
1138
        keycode = keycodes[i];
1139
        if (keycode & 0x80)
1140
            kbd_put_keycode(0xe0);
1141
        kbd_put_keycode(keycode & 0x7f);
1142
    }
1143
    /* delayed key up events */
1144
    qemu_mod_timer(key_timer, qemu_get_clock(vm_clock) +
1145
                    muldiv64(ticks_per_sec, hold_time, 1000));
1146
}
1147

    
1148
static int mouse_button_state;
1149

    
1150
static void do_mouse_move(Monitor *mon, const char *dx_str, const char *dy_str,
1151
                          const char *dz_str)
1152
{
1153
    int dx, dy, dz;
1154
    dx = strtol(dx_str, NULL, 0);
1155
    dy = strtol(dy_str, NULL, 0);
1156
    dz = 0;
1157
    if (dz_str)
1158
        dz = strtol(dz_str, NULL, 0);
1159
    kbd_mouse_event(dx, dy, dz, mouse_button_state);
1160
}
1161

    
1162
static void do_mouse_button(Monitor *mon, int button_state)
1163
{
1164
    mouse_button_state = button_state;
1165
    kbd_mouse_event(0, 0, 0, mouse_button_state);
1166
}
1167

    
1168
static void do_ioport_read(Monitor *mon, int count, int format, int size,
1169
                           int addr, int has_index, int index)
1170
{
1171
    uint32_t val;
1172
    int suffix;
1173

    
1174
    if (has_index) {
1175
        cpu_outb(NULL, addr & IOPORTS_MASK, index & 0xff);
1176
        addr++;
1177
    }
1178
    addr &= 0xffff;
1179

    
1180
    switch(size) {
1181
    default:
1182
    case 1:
1183
        val = cpu_inb(NULL, addr);
1184
        suffix = 'b';
1185
        break;
1186
    case 2:
1187
        val = cpu_inw(NULL, addr);
1188
        suffix = 'w';
1189
        break;
1190
    case 4:
1191
        val = cpu_inl(NULL, addr);
1192
        suffix = 'l';
1193
        break;
1194
    }
1195
    monitor_printf(mon, "port%c[0x%04x] = %#0*x\n",
1196
                   suffix, addr, size * 2, val);
1197
}
1198

    
1199
static void do_ioport_write(Monitor *mon, int count, int format, int size,
1200
                            int addr, int val)
1201
{
1202
    addr &= IOPORTS_MASK;
1203

    
1204
    switch (size) {
1205
    default:
1206
    case 1:
1207
        cpu_outb(NULL, addr, val);
1208
        break;
1209
    case 2:
1210
        cpu_outw(NULL, addr, val);
1211
        break;
1212
    case 4:
1213
        cpu_outl(NULL, addr, val);
1214
        break;
1215
    }
1216
}
1217

    
1218
static void do_boot_set(Monitor *mon, const char *bootdevice)
1219
{
1220
    int res;
1221

    
1222
    res = qemu_boot_set(bootdevice);
1223
    if (res == 0) {
1224
        monitor_printf(mon, "boot device list now set to %s\n", bootdevice);
1225
    } else if (res > 0) {
1226
        monitor_printf(mon, "setting boot device list failed\n");
1227
    } else {
1228
        monitor_printf(mon, "no function defined to set boot device list for "
1229
                       "this architecture\n");
1230
    }
1231
}
1232

    
1233
static void do_system_reset(Monitor *mon)
1234
{
1235
    qemu_system_reset_request();
1236
}
1237

    
1238
static void do_system_powerdown(Monitor *mon)
1239
{
1240
    qemu_system_powerdown_request();
1241
}
1242

    
1243
#if defined(TARGET_I386)
1244
static void print_pte(Monitor *mon, uint32_t addr, uint32_t pte, uint32_t mask)
1245
{
1246
    monitor_printf(mon, "%08x: %08x %c%c%c%c%c%c%c%c\n",
1247
                   addr,
1248
                   pte & mask,
1249
                   pte & PG_GLOBAL_MASK ? 'G' : '-',
1250
                   pte & PG_PSE_MASK ? 'P' : '-',
1251
                   pte & PG_DIRTY_MASK ? 'D' : '-',
1252
                   pte & PG_ACCESSED_MASK ? 'A' : '-',
1253
                   pte & PG_PCD_MASK ? 'C' : '-',
1254
                   pte & PG_PWT_MASK ? 'T' : '-',
1255
                   pte & PG_USER_MASK ? 'U' : '-',
1256
                   pte & PG_RW_MASK ? 'W' : '-');
1257
}
1258

    
1259
static void tlb_info(Monitor *mon)
1260
{
1261
    CPUState *env;
1262
    int l1, l2;
1263
    uint32_t pgd, pde, pte;
1264

    
1265
    env = mon_get_cpu();
1266
    if (!env)
1267
        return;
1268

    
1269
    if (!(env->cr[0] & CR0_PG_MASK)) {
1270
        monitor_printf(mon, "PG disabled\n");
1271
        return;
1272
    }
1273
    pgd = env->cr[3] & ~0xfff;
1274
    for(l1 = 0; l1 < 1024; l1++) {
1275
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1276
        pde = le32_to_cpu(pde);
1277
        if (pde & PG_PRESENT_MASK) {
1278
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1279
                print_pte(mon, (l1 << 22), pde, ~((1 << 20) - 1));
1280
            } else {
1281
                for(l2 = 0; l2 < 1024; l2++) {
1282
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1283
                                             (uint8_t *)&pte, 4);
1284
                    pte = le32_to_cpu(pte);
1285
                    if (pte & PG_PRESENT_MASK) {
1286
                        print_pte(mon, (l1 << 22) + (l2 << 12),
1287
                                  pte & ~PG_PSE_MASK,
1288
                                  ~0xfff);
1289
                    }
1290
                }
1291
            }
1292
        }
1293
    }
1294
}
1295

    
1296
static void mem_print(Monitor *mon, uint32_t *pstart, int *plast_prot,
1297
                      uint32_t end, int prot)
1298
{
1299
    int prot1;
1300
    prot1 = *plast_prot;
1301
    if (prot != prot1) {
1302
        if (*pstart != -1) {
1303
            monitor_printf(mon, "%08x-%08x %08x %c%c%c\n",
1304
                           *pstart, end, end - *pstart,
1305
                           prot1 & PG_USER_MASK ? 'u' : '-',
1306
                           'r',
1307
                           prot1 & PG_RW_MASK ? 'w' : '-');
1308
        }
1309
        if (prot != 0)
1310
            *pstart = end;
1311
        else
1312
            *pstart = -1;
1313
        *plast_prot = prot;
1314
    }
1315
}
1316

    
1317
static void mem_info(Monitor *mon)
1318
{
1319
    CPUState *env;
1320
    int l1, l2, prot, last_prot;
1321
    uint32_t pgd, pde, pte, start, end;
1322

    
1323
    env = mon_get_cpu();
1324
    if (!env)
1325
        return;
1326

    
1327
    if (!(env->cr[0] & CR0_PG_MASK)) {
1328
        monitor_printf(mon, "PG disabled\n");
1329
        return;
1330
    }
1331
    pgd = env->cr[3] & ~0xfff;
1332
    last_prot = 0;
1333
    start = -1;
1334
    for(l1 = 0; l1 < 1024; l1++) {
1335
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1336
        pde = le32_to_cpu(pde);
1337
        end = l1 << 22;
1338
        if (pde & PG_PRESENT_MASK) {
1339
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1340
                prot = pde & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1341
                mem_print(mon, &start, &last_prot, end, prot);
1342
            } else {
1343
                for(l2 = 0; l2 < 1024; l2++) {
1344
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1345
                                             (uint8_t *)&pte, 4);
1346
                    pte = le32_to_cpu(pte);
1347
                    end = (l1 << 22) + (l2 << 12);
1348
                    if (pte & PG_PRESENT_MASK) {
1349
                        prot = pte & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1350
                    } else {
1351
                        prot = 0;
1352
                    }
1353
                    mem_print(mon, &start, &last_prot, end, prot);
1354
                }
1355
            }
1356
        } else {
1357
            prot = 0;
1358
            mem_print(mon, &start, &last_prot, end, prot);
1359
        }
1360
    }
1361
}
1362
#endif
1363

    
1364
#if defined(TARGET_SH4)
1365

    
1366
static void print_tlb(Monitor *mon, int idx, tlb_t *tlb)
1367
{
1368
    monitor_printf(mon, " tlb%i:\t"
1369
                   "asid=%hhu vpn=%x\tppn=%x\tsz=%hhu size=%u\t"
1370
                   "v=%hhu shared=%hhu cached=%hhu prot=%hhu "
1371
                   "dirty=%hhu writethrough=%hhu\n",
1372
                   idx,
1373
                   tlb->asid, tlb->vpn, tlb->ppn, tlb->sz, tlb->size,
1374
                   tlb->v, tlb->sh, tlb->c, tlb->pr,
1375
                   tlb->d, tlb->wt);
1376
}
1377

    
1378
static void tlb_info(Monitor *mon)
1379
{
1380
    CPUState *env = mon_get_cpu();
1381
    int i;
1382

    
1383
    monitor_printf (mon, "ITLB:\n");
1384
    for (i = 0 ; i < ITLB_SIZE ; i++)
1385
        print_tlb (mon, i, &env->itlb[i]);
1386
    monitor_printf (mon, "UTLB:\n");
1387
    for (i = 0 ; i < UTLB_SIZE ; i++)
1388
        print_tlb (mon, i, &env->utlb[i]);
1389
}
1390

    
1391
#endif
1392

    
1393
static void do_info_kvm(Monitor *mon)
1394
{
1395
#ifdef CONFIG_KVM
1396
    monitor_printf(mon, "kvm support: ");
1397
    if (kvm_enabled())
1398
        monitor_printf(mon, "enabled\n");
1399
    else
1400
        monitor_printf(mon, "disabled\n");
1401
#else
1402
    monitor_printf(mon, "kvm support: not compiled\n");
1403
#endif
1404
}
1405

    
1406
static void do_info_numa(Monitor *mon)
1407
{
1408
    int i;
1409
    CPUState *env;
1410

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

    
1425
#ifdef CONFIG_PROFILER
1426

    
1427
static void do_info_profile(Monitor *mon)
1428
{
1429
    int64_t total;
1430
    total = qemu_time;
1431
    if (total == 0)
1432
        total = 1;
1433
    monitor_printf(mon, "async time  %" PRId64 " (%0.3f)\n",
1434
                   dev_time, dev_time / (double)ticks_per_sec);
1435
    monitor_printf(mon, "qemu time   %" PRId64 " (%0.3f)\n",
1436
                   qemu_time, qemu_time / (double)ticks_per_sec);
1437
    qemu_time = 0;
1438
    dev_time = 0;
1439
}
1440
#else
1441
static void do_info_profile(Monitor *mon)
1442
{
1443
    monitor_printf(mon, "Internal profiler not compiled\n");
1444
}
1445
#endif
1446

    
1447
/* Capture support */
1448
static LIST_HEAD (capture_list_head, CaptureState) capture_head;
1449

    
1450
static void do_info_capture(Monitor *mon)
1451
{
1452
    int i;
1453
    CaptureState *s;
1454

    
1455
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1456
        monitor_printf(mon, "[%d]: ", i);
1457
        s->ops.info (s->opaque);
1458
    }
1459
}
1460

    
1461
#ifdef HAS_AUDIO
1462
static void do_stop_capture(Monitor *mon, int n)
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
        if (i == n) {
1469
            s->ops.destroy (s->opaque);
1470
            LIST_REMOVE (s, entries);
1471
            qemu_free (s);
1472
            return;
1473
        }
1474
    }
1475
}
1476

    
1477
static void do_wav_capture(Monitor *mon, const char *path,
1478
                           int has_freq, int freq,
1479
                           int has_bits, int bits,
1480
                           int has_channels, int nchannels)
1481
{
1482
    CaptureState *s;
1483

    
1484
    s = qemu_mallocz (sizeof (*s));
1485

    
1486
    freq = has_freq ? freq : 44100;
1487
    bits = has_bits ? bits : 16;
1488
    nchannels = has_channels ? nchannels : 2;
1489

    
1490
    if (wav_start_capture (s, path, freq, bits, nchannels)) {
1491
        monitor_printf(mon, "Faied to add wave capture\n");
1492
        qemu_free (s);
1493
    }
1494
    LIST_INSERT_HEAD (&capture_head, s, entries);
1495
}
1496
#endif
1497

    
1498
#if defined(TARGET_I386)
1499
static void do_inject_nmi(Monitor *mon, int cpu_index)
1500
{
1501
    CPUState *env;
1502

    
1503
    for (env = first_cpu; env != NULL; env = env->next_cpu)
1504
        if (env->cpu_index == cpu_index) {
1505
            cpu_interrupt(env, CPU_INTERRUPT_NMI);
1506
            break;
1507
        }
1508
}
1509
#endif
1510

    
1511
static void do_info_status(Monitor *mon)
1512
{
1513
    if (vm_running) {
1514
        if (singlestep) {
1515
            monitor_printf(mon, "VM status: running (single step mode)\n");
1516
        } else {
1517
            monitor_printf(mon, "VM status: running\n");
1518
        }
1519
    } else
1520
       monitor_printf(mon, "VM status: paused\n");
1521
}
1522

    
1523

    
1524
static void do_balloon(Monitor *mon, int value)
1525
{
1526
    ram_addr_t target = value;
1527
    qemu_balloon(target << 20);
1528
}
1529

    
1530
static void do_info_balloon(Monitor *mon)
1531
{
1532
    ram_addr_t actual;
1533

    
1534
    actual = qemu_balloon_status();
1535
    if (kvm_enabled() && !kvm_has_sync_mmu())
1536
        monitor_printf(mon, "Using KVM without synchronous MMU, "
1537
                       "ballooning disabled\n");
1538
    else if (actual == 0)
1539
        monitor_printf(mon, "Ballooning not activated in VM\n");
1540
    else
1541
        monitor_printf(mon, "balloon: actual=%d\n", (int)(actual >> 20));
1542
}
1543

    
1544
static qemu_acl *find_acl(Monitor *mon, const char *name)
1545
{
1546
    qemu_acl *acl = qemu_acl_find(name);
1547

    
1548
    if (!acl) {
1549
        monitor_printf(mon, "acl: unknown list '%s'\n", name);
1550
    }
1551
    return acl;
1552
}
1553

    
1554
static void do_acl_show(Monitor *mon, const char *aclname)
1555
{
1556
    qemu_acl *acl = find_acl(mon, aclname);
1557
    qemu_acl_entry *entry;
1558
    int i = 0;
1559

    
1560
    if (acl) {
1561
        monitor_printf(mon, "policy: %s\n",
1562
                       acl->defaultDeny ? "deny" : "allow");
1563
        TAILQ_FOREACH(entry, &acl->entries, next) {
1564
            i++;
1565
            monitor_printf(mon, "%d: %s %s\n", i,
1566
                           entry->deny ? "deny" : "allow", entry->match);
1567
        }
1568
    }
1569
}
1570

    
1571
static void do_acl_reset(Monitor *mon, const char *aclname)
1572
{
1573
    qemu_acl *acl = find_acl(mon, aclname);
1574

    
1575
    if (acl) {
1576
        qemu_acl_reset(acl);
1577
        monitor_printf(mon, "acl: removed all rules\n");
1578
    }
1579
}
1580

    
1581
static void do_acl_policy(Monitor *mon, const char *aclname,
1582
                          const char *policy)
1583
{
1584
    qemu_acl *acl = find_acl(mon, aclname);
1585

    
1586
    if (acl) {
1587
        if (strcmp(policy, "allow") == 0) {
1588
            acl->defaultDeny = 0;
1589
            monitor_printf(mon, "acl: policy set to 'allow'\n");
1590
        } else if (strcmp(policy, "deny") == 0) {
1591
            acl->defaultDeny = 1;
1592
            monitor_printf(mon, "acl: policy set to 'deny'\n");
1593
        } else {
1594
            monitor_printf(mon, "acl: unknown policy '%s', "
1595
                           "expected 'deny' or 'allow'\n", policy);
1596
        }
1597
    }
1598
}
1599

    
1600
static void do_acl_add(Monitor *mon, const char *aclname,
1601
                       const char *match, const char *policy,
1602
                       int has_index, int index)
1603
{
1604
    qemu_acl *acl = find_acl(mon, aclname);
1605
    int deny, ret;
1606

    
1607
    if (acl) {
1608
        if (strcmp(policy, "allow") == 0) {
1609
            deny = 0;
1610
        } else if (strcmp(policy, "deny") == 0) {
1611
            deny = 1;
1612
        } else {
1613
            monitor_printf(mon, "acl: unknown policy '%s', "
1614
                           "expected 'deny' or 'allow'\n", policy);
1615
            return;
1616
        }
1617
        if (has_index)
1618
            ret = qemu_acl_insert(acl, deny, match, index);
1619
        else
1620
            ret = qemu_acl_append(acl, deny, match);
1621
        if (ret < 0)
1622
            monitor_printf(mon, "acl: unable to add acl entry\n");
1623
        else
1624
            monitor_printf(mon, "acl: added rule at position %d\n", ret);
1625
    }
1626
}
1627

    
1628
static void do_acl_remove(Monitor *mon, const char *aclname, const char *match)
1629
{
1630
    qemu_acl *acl = find_acl(mon, aclname);
1631
    int ret;
1632

    
1633
    if (acl) {
1634
        ret = qemu_acl_remove(acl, match);
1635
        if (ret < 0)
1636
            monitor_printf(mon, "acl: no matching acl entry\n");
1637
        else
1638
            monitor_printf(mon, "acl: removed rule at position %d\n", ret);
1639
    }
1640
}
1641

    
1642
#if defined(TARGET_I386)
1643
static void do_inject_mce(Monitor *mon,
1644
                          int cpu_index, int bank,
1645
                          unsigned status_hi, unsigned status_lo,
1646
                          unsigned mcg_status_hi, unsigned mcg_status_lo,
1647
                          unsigned addr_hi, unsigned addr_lo,
1648
                          unsigned misc_hi, unsigned misc_lo)
1649
{
1650
    CPUState *cenv;
1651
    uint64_t status = ((uint64_t)status_hi << 32) | status_lo;
1652
    uint64_t mcg_status = ((uint64_t)mcg_status_hi << 32) | mcg_status_lo;
1653
    uint64_t addr = ((uint64_t)addr_hi << 32) | addr_lo;
1654
    uint64_t misc = ((uint64_t)misc_hi << 32) | misc_lo;
1655

    
1656
    for (cenv = first_cpu; cenv != NULL; cenv = cenv->next_cpu)
1657
        if (cenv->cpu_index == cpu_index && cenv->mcg_cap) {
1658
            cpu_inject_x86_mce(cenv, bank, status, mcg_status, addr, misc);
1659
            break;
1660
        }
1661
}
1662
#endif
1663

    
1664
static void do_getfd(Monitor *mon, const char *fdname)
1665
{
1666
    mon_fd_t *monfd;
1667
    int fd;
1668

    
1669
    fd = qemu_chr_get_msgfd(mon->chr);
1670
    if (fd == -1) {
1671
        monitor_printf(mon, "getfd: no file descriptor supplied via SCM_RIGHTS\n");
1672
        return;
1673
    }
1674

    
1675
    if (qemu_isdigit(fdname[0])) {
1676
        monitor_printf(mon, "getfd: monitor names may not begin with a number\n");
1677
        return;
1678
    }
1679

    
1680
    fd = dup(fd);
1681
    if (fd == -1) {
1682
        monitor_printf(mon, "Failed to dup() file descriptor: %s\n",
1683
                       strerror(errno));
1684
        return;
1685
    }
1686

    
1687
    LIST_FOREACH(monfd, &mon->fds, next) {
1688
        if (strcmp(monfd->name, fdname) != 0) {
1689
            continue;
1690
        }
1691

    
1692
        close(monfd->fd);
1693
        monfd->fd = fd;
1694
        return;
1695
    }
1696

    
1697
    monfd = qemu_mallocz(sizeof(mon_fd_t));
1698
    monfd->name = qemu_strdup(fdname);
1699
    monfd->fd = fd;
1700

    
1701
    LIST_INSERT_HEAD(&mon->fds, monfd, next);
1702
}
1703

    
1704
static void do_closefd(Monitor *mon, const char *fdname)
1705
{
1706
    mon_fd_t *monfd;
1707

    
1708
    LIST_FOREACH(monfd, &mon->fds, next) {
1709
        if (strcmp(monfd->name, fdname) != 0) {
1710
            continue;
1711
        }
1712

    
1713
        LIST_REMOVE(monfd, next);
1714
        close(monfd->fd);
1715
        qemu_free(monfd->name);
1716
        qemu_free(monfd);
1717
        return;
1718
    }
1719

    
1720
    monitor_printf(mon, "Failed to find file descriptor named %s\n",
1721
                   fdname);
1722
}
1723

    
1724
int monitor_get_fd(Monitor *mon, const char *fdname)
1725
{
1726
    mon_fd_t *monfd;
1727

    
1728
    LIST_FOREACH(monfd, &mon->fds, next) {
1729
        int fd;
1730

    
1731
        if (strcmp(monfd->name, fdname) != 0) {
1732
            continue;
1733
        }
1734

    
1735
        fd = monfd->fd;
1736

    
1737
        /* caller takes ownership of fd */
1738
        LIST_REMOVE(monfd, next);
1739
        qemu_free(monfd->name);
1740
        qemu_free(monfd);
1741

    
1742
        return fd;
1743
    }
1744

    
1745
    return -1;
1746
}
1747

    
1748
static const mon_cmd_t mon_cmds[] = {
1749
#include "qemu-monitor.h"
1750
    { NULL, NULL, },
1751
};
1752

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

    
1833
/*******************************************************************/
1834

    
1835
static const char *pch;
1836
static jmp_buf expr_env;
1837

    
1838
#define MD_TLONG 0
1839
#define MD_I32   1
1840

    
1841
typedef struct MonitorDef {
1842
    const char *name;
1843
    int offset;
1844
    target_long (*get_value)(const struct MonitorDef *md, int val);
1845
    int type;
1846
} MonitorDef;
1847

    
1848
#if defined(TARGET_I386)
1849
static target_long monitor_get_pc (const struct MonitorDef *md, int val)
1850
{
1851
    CPUState *env = mon_get_cpu();
1852
    if (!env)
1853
        return 0;
1854
    return env->eip + env->segs[R_CS].base;
1855
}
1856
#endif
1857

    
1858
#if defined(TARGET_PPC)
1859
static target_long monitor_get_ccr (const struct MonitorDef *md, int val)
1860
{
1861
    CPUState *env = mon_get_cpu();
1862
    unsigned int u;
1863
    int i;
1864

    
1865
    if (!env)
1866
        return 0;
1867

    
1868
    u = 0;
1869
    for (i = 0; i < 8; i++)
1870
        u |= env->crf[i] << (32 - (4 * i));
1871

    
1872
    return u;
1873
}
1874

    
1875
static target_long monitor_get_msr (const struct MonitorDef *md, int val)
1876
{
1877
    CPUState *env = mon_get_cpu();
1878
    if (!env)
1879
        return 0;
1880
    return env->msr;
1881
}
1882

    
1883
static target_long monitor_get_xer (const struct MonitorDef *md, int val)
1884
{
1885
    CPUState *env = mon_get_cpu();
1886
    if (!env)
1887
        return 0;
1888
    return env->xer;
1889
}
1890

    
1891
static target_long monitor_get_decr (const struct MonitorDef *md, int val)
1892
{
1893
    CPUState *env = mon_get_cpu();
1894
    if (!env)
1895
        return 0;
1896
    return cpu_ppc_load_decr(env);
1897
}
1898

    
1899
static target_long monitor_get_tbu (const struct MonitorDef *md, int val)
1900
{
1901
    CPUState *env = mon_get_cpu();
1902
    if (!env)
1903
        return 0;
1904
    return cpu_ppc_load_tbu(env);
1905
}
1906

    
1907
static target_long monitor_get_tbl (const struct MonitorDef *md, int val)
1908
{
1909
    CPUState *env = mon_get_cpu();
1910
    if (!env)
1911
        return 0;
1912
    return cpu_ppc_load_tbl(env);
1913
}
1914
#endif
1915

    
1916
#if defined(TARGET_SPARC)
1917
#ifndef TARGET_SPARC64
1918
static target_long monitor_get_psr (const struct MonitorDef *md, int val)
1919
{
1920
    CPUState *env = mon_get_cpu();
1921
    if (!env)
1922
        return 0;
1923
    return GET_PSR(env);
1924
}
1925
#endif
1926

    
1927
static target_long monitor_get_reg(const struct MonitorDef *md, int val)
1928
{
1929
    CPUState *env = mon_get_cpu();
1930
    if (!env)
1931
        return 0;
1932
    return env->regwptr[val];
1933
}
1934
#endif
1935

    
1936
static const MonitorDef monitor_defs[] = {
1937
#ifdef TARGET_I386
1938

    
1939
#define SEG(name, seg) \
1940
    { name, offsetof(CPUState, segs[seg].selector), NULL, MD_I32 },\
1941
    { name ".base", offsetof(CPUState, segs[seg].base) },\
1942
    { name ".limit", offsetof(CPUState, segs[seg].limit), NULL, MD_I32 },
1943

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

    
2177
static void expr_error(Monitor *mon, const char *msg)
2178
{
2179
    monitor_printf(mon, "%s\n", msg);
2180
    longjmp(expr_env, 1);
2181
}
2182

    
2183
/* return 0 if OK, -1 if not found, -2 if no CPU defined */
2184
static int get_monitor_def(target_long *pval, const char *name)
2185
{
2186
    const MonitorDef *md;
2187
    void *ptr;
2188

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

    
2216
static void next(void)
2217
{
2218
    if (*pch != '\0') {
2219
        pch++;
2220
        while (qemu_isspace(*pch))
2221
            pch++;
2222
    }
2223
}
2224

    
2225
static int64_t expr_sum(Monitor *mon);
2226

    
2227
static int64_t expr_unary(Monitor *mon)
2228
{
2229
    int64_t n;
2230
    char *p;
2231
    int ret;
2232

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

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

    
2311

    
2312
static int64_t expr_prod(Monitor *mon)
2313
{
2314
    int64_t val, val2;
2315
    int op;
2316

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

    
2343
static int64_t expr_logic(Monitor *mon)
2344
{
2345
    int64_t val, val2;
2346
    int op;
2347

    
2348
    val = expr_prod(mon);
2349
    for(;;) {
2350
        op = *pch;
2351
        if (op != '&' && op != '|' && op != '^')
2352
            break;
2353
        next();
2354
        val2 = expr_prod(mon);
2355
        switch(op) {
2356
        default:
2357
        case '&':
2358
            val &= val2;
2359
            break;
2360
        case '|':
2361
            val |= val2;
2362
            break;
2363
        case '^':
2364
            val ^= val2;
2365
            break;
2366
        }
2367
    }
2368
    return val;
2369
}
2370

    
2371
static int64_t expr_sum(Monitor *mon)
2372
{
2373
    int64_t val, val2;
2374
    int op;
2375

    
2376
    val = expr_logic(mon);
2377
    for(;;) {
2378
        op = *pch;
2379
        if (op != '+' && op != '-')
2380
            break;
2381
        next();
2382
        val2 = expr_logic(mon);
2383
        if (op == '+')
2384
            val += val2;
2385
        else
2386
            val -= val2;
2387
    }
2388
    return val;
2389
}
2390

    
2391
static int get_expr(Monitor *mon, int64_t *pval, const char **pp)
2392
{
2393
    pch = *pp;
2394
    if (setjmp(expr_env)) {
2395
        *pp = pch;
2396
        return -1;
2397
    }
2398
    while (qemu_isspace(*pch))
2399
        pch++;
2400
    *pval = expr_sum(mon);
2401
    *pp = pch;
2402
    return 0;
2403
}
2404

    
2405
static int get_str(char *buf, int buf_size, const char **pp)
2406
{
2407
    const char *p;
2408
    char *q;
2409
    int c;
2410

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

    
2470
/*
2471
 * Store the command-name in cmdname, and return a pointer to
2472
 * the remaining of the command string.
2473
 */
2474
static const char *get_command_name(const char *cmdline,
2475
                                    char *cmdname, size_t nlen)
2476
{
2477
    size_t len;
2478
    const char *p, *pstart;
2479

    
2480
    p = cmdline;
2481
    while (qemu_isspace(*p))
2482
        p++;
2483
    if (*p == '\0')
2484
        return NULL;
2485
    pstart = p;
2486
    while (*p != '\0' && *p != '/' && !qemu_isspace(*p))
2487
        p++;
2488
    len = p - pstart;
2489
    if (len > nlen - 1)
2490
        len = nlen - 1;
2491
    memcpy(cmdname, pstart, len);
2492
    cmdname[len] = '\0';
2493
    return p;
2494
}
2495

    
2496
static int default_fmt_format = 'x';
2497
static int default_fmt_size = 4;
2498

    
2499
#define MAX_ARGS 16
2500

    
2501
static void monitor_handle_command(Monitor *mon, const char *cmdline)
2502
{
2503
    const char *p, *typestr;
2504
    int c, nb_args, i, has_arg;
2505
    const mon_cmd_t *cmd;
2506
    char cmdname[256];
2507
    char buf[1024];
2508
    void *str_allocated[MAX_ARGS];
2509
    void *args[MAX_ARGS];
2510
    void (*handler_0)(Monitor *mon);
2511
    void (*handler_1)(Monitor *mon, void *arg0);
2512
    void (*handler_2)(Monitor *mon, void *arg0, void *arg1);
2513
    void (*handler_3)(Monitor *mon, void *arg0, void *arg1, void *arg2);
2514
    void (*handler_4)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2515
                      void *arg3);
2516
    void (*handler_5)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2517
                      void *arg3, void *arg4);
2518
    void (*handler_6)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2519
                      void *arg3, void *arg4, void *arg5);
2520
    void (*handler_7)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2521
                      void *arg3, void *arg4, void *arg5, void *arg6);
2522
    void (*handler_8)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2523
                      void *arg3, void *arg4, void *arg5, void *arg6,
2524
                      void *arg7);
2525
    void (*handler_9)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2526
                      void *arg3, void *arg4, void *arg5, void *arg6,
2527
                      void *arg7, void *arg8);
2528
    void (*handler_10)(Monitor *mon, void *arg0, void *arg1, void *arg2,
2529
                       void *arg3, void *arg4, void *arg5, void *arg6,
2530
                       void *arg7, void *arg8, void *arg9);
2531

    
2532
#ifdef DEBUG
2533
    monitor_printf(mon, "command='%s'\n", cmdline);
2534
#endif
2535

    
2536
    /* extract the command name */
2537
    p = get_command_name(cmdline, cmdname, sizeof(cmdname));
2538
    if (!p)
2539
        return;
2540

    
2541
    /* find the command */
2542
    for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
2543
        if (compare_cmd(cmdname, cmd->name))
2544
            break;
2545
    }
2546

    
2547
    if (cmd->name == NULL) {
2548
        monitor_printf(mon, "unknown command: '%s'\n", cmdname);
2549
        return;
2550
    }
2551

    
2552
    for(i = 0; i < MAX_ARGS; i++)
2553
        str_allocated[i] = NULL;
2554

    
2555
    /* parse the parameters */
2556
    typestr = cmd->args_type;
2557
    nb_args = 0;
2558
    for(;;) {
2559
        c = *typestr;
2560
        if (c == '\0')
2561
            break;
2562
        typestr++;
2563
        switch(c) {
2564
        case 'F':
2565
        case 'B':
2566
        case 's':
2567
            {
2568
                int ret;
2569
                char *str;
2570

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

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

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

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

    
2785
    switch(nb_args) {
2786
    case 0:
2787
        handler_0 = cmd->handler;
2788
        handler_0(mon);
2789
        break;
2790
    case 1:
2791
        handler_1 = cmd->handler;
2792
        handler_1(mon, args[0]);
2793
        break;
2794
    case 2:
2795
        handler_2 = cmd->handler;
2796
        handler_2(mon, args[0], args[1]);
2797
        break;
2798
    case 3:
2799
        handler_3 = cmd->handler;
2800
        handler_3(mon, args[0], args[1], args[2]);
2801
        break;
2802
    case 4:
2803
        handler_4 = cmd->handler;
2804
        handler_4(mon, args[0], args[1], args[2], args[3]);
2805
        break;
2806
    case 5:
2807
        handler_5 = cmd->handler;
2808
        handler_5(mon, args[0], args[1], args[2], args[3], args[4]);
2809
        break;
2810
    case 6:
2811
        handler_6 = cmd->handler;
2812
        handler_6(mon, args[0], args[1], args[2], args[3], args[4], args[5]);
2813
        break;
2814
    case 7:
2815
        handler_7 = cmd->handler;
2816
        handler_7(mon, args[0], args[1], args[2], args[3], args[4], args[5],
2817
                  args[6]);
2818
        break;
2819
    case 8:
2820
        handler_8 = cmd->handler;
2821
        handler_8(mon, args[0], args[1], args[2], args[3], args[4], args[5],
2822
                  args[6], args[7]);
2823
        break;
2824
    case 9:
2825
        handler_9 = cmd->handler;
2826
        handler_9(mon, args[0], args[1], args[2], args[3], args[4], args[5],
2827
                  args[6], args[7], args[8]);
2828
        break;
2829
    case 10:
2830
        handler_10 = cmd->handler;
2831
        handler_10(mon, args[0], args[1], args[2], args[3], args[4], args[5],
2832
                   args[6], args[7], args[8], args[9]);
2833
        break;
2834
    default:
2835
        monitor_printf(mon, "unsupported number of arguments: %d\n", nb_args);
2836
        goto fail;
2837
    }
2838
 fail:
2839
    for(i = 0; i < MAX_ARGS; i++)
2840
        qemu_free(str_allocated[i]);
2841
}
2842

    
2843
static void cmd_completion(const char *name, const char *list)
2844
{
2845
    const char *p, *pstart;
2846
    char cmd[128];
2847
    int len;
2848

    
2849
    p = list;
2850
    for(;;) {
2851
        pstart = p;
2852
        p = strchr(p, '|');
2853
        if (!p)
2854
            p = pstart + strlen(pstart);
2855
        len = p - pstart;
2856
        if (len > sizeof(cmd) - 2)
2857
            len = sizeof(cmd) - 2;
2858
        memcpy(cmd, pstart, len);
2859
        cmd[len] = '\0';
2860
        if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
2861
            readline_add_completion(cur_mon->rs, cmd);
2862
        }
2863
        if (*p == '\0')
2864
            break;
2865
        p++;
2866
    }
2867
}
2868

    
2869
static void file_completion(const char *input)
2870
{
2871
    DIR *ffs;
2872
    struct dirent *d;
2873
    char path[1024];
2874
    char file[1024], file_prefix[1024];
2875
    int input_path_len;
2876
    const char *p;
2877

    
2878
    p = strrchr(input, '/');
2879
    if (!p) {
2880
        input_path_len = 0;
2881
        pstrcpy(file_prefix, sizeof(file_prefix), input);
2882
        pstrcpy(path, sizeof(path), ".");
2883
    } else {
2884
        input_path_len = p - input + 1;
2885
        memcpy(path, input, input_path_len);
2886
        if (input_path_len > sizeof(path) - 1)
2887
            input_path_len = sizeof(path) - 1;
2888
        path[input_path_len] = '\0';
2889
        pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
2890
    }
2891
#ifdef DEBUG_COMPLETION
2892
    monitor_printf(cur_mon, "input='%s' path='%s' prefix='%s'\n",
2893
                   input, path, file_prefix);
2894
#endif
2895
    ffs = opendir(path);
2896
    if (!ffs)
2897
        return;
2898
    for(;;) {
2899
        struct stat sb;
2900
        d = readdir(ffs);
2901
        if (!d)
2902
            break;
2903
        if (strstart(d->d_name, file_prefix, NULL)) {
2904
            memcpy(file, input, input_path_len);
2905
            if (input_path_len < sizeof(file))
2906
                pstrcpy(file + input_path_len, sizeof(file) - input_path_len,
2907
                        d->d_name);
2908
            /* stat the file to find out if it's a directory.
2909
             * In that case add a slash to speed up typing long paths
2910
             */
2911
            stat(file, &sb);
2912
            if(S_ISDIR(sb.st_mode))
2913
                pstrcat(file, sizeof(file), "/");
2914
            readline_add_completion(cur_mon->rs, file);
2915
        }
2916
    }
2917
    closedir(ffs);
2918
}
2919

    
2920
static void block_completion_it(void *opaque, BlockDriverState *bs)
2921
{
2922
    const char *name = bdrv_get_device_name(bs);
2923
    const char *input = opaque;
2924

    
2925
    if (input[0] == '\0' ||
2926
        !strncmp(name, (char *)input, strlen(input))) {
2927
        readline_add_completion(cur_mon->rs, name);
2928
    }
2929
}
2930

    
2931
/* NOTE: this parser is an approximate form of the real command parser */
2932
static void parse_cmdline(const char *cmdline,
2933
                         int *pnb_args, char **args)
2934
{
2935
    const char *p;
2936
    int nb_args, ret;
2937
    char buf[1024];
2938

    
2939
    p = cmdline;
2940
    nb_args = 0;
2941
    for(;;) {
2942
        while (qemu_isspace(*p))
2943
            p++;
2944
        if (*p == '\0')
2945
            break;
2946
        if (nb_args >= MAX_ARGS)
2947
            break;
2948
        ret = get_str(buf, sizeof(buf), &p);
2949
        args[nb_args] = qemu_strdup(buf);
2950
        nb_args++;
2951
        if (ret < 0)
2952
            break;
2953
    }
2954
    *pnb_args = nb_args;
2955
}
2956

    
2957
static void monitor_find_completion(const char *cmdline)
2958
{
2959
    const char *cmdname;
2960
    char *args[MAX_ARGS];
2961
    int nb_args, i, len;
2962
    const char *ptype, *str;
2963
    const mon_cmd_t *cmd;
2964
    const KeyDef *key;
2965

    
2966
    parse_cmdline(cmdline, &nb_args, args);
2967
#ifdef DEBUG_COMPLETION
2968
    for(i = 0; i < nb_args; i++) {
2969
        monitor_printf(cur_mon, "arg%d = '%s'\n", i, (char *)args[i]);
2970
    }
2971
#endif
2972

    
2973
    /* if the line ends with a space, it means we want to complete the
2974
       next arg */
2975
    len = strlen(cmdline);
2976
    if (len > 0 && qemu_isspace(cmdline[len - 1])) {
2977
        if (nb_args >= MAX_ARGS)
2978
            return;
2979
        args[nb_args++] = qemu_strdup("");
2980
    }
2981
    if (nb_args <= 1) {
2982
        /* command completion */
2983
        if (nb_args == 0)
2984
            cmdname = "";
2985
        else
2986
            cmdname = args[0];
2987
        readline_set_completion_index(cur_mon->rs, strlen(cmdname));
2988
        for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
2989
            cmd_completion(cmdname, cmd->name);
2990
        }
2991
    } else {
2992
        /* find the command */
2993
        for(cmd = mon_cmds; cmd->name != NULL; cmd++) {
2994
            if (compare_cmd(args[0], cmd->name))
2995
                goto found;
2996
        }
2997
        return;
2998
    found:
2999
        ptype = cmd->args_type;
3000
        for(i = 0; i < nb_args - 2; i++) {
3001
            if (*ptype != '\0') {
3002
                ptype++;
3003
                while (*ptype == '?')
3004
                    ptype++;
3005
            }
3006
        }
3007
        str = args[nb_args - 1];
3008
        if (*ptype == '-' && ptype[1] != '\0') {
3009
            ptype += 2;
3010
        }
3011
        switch(*ptype) {
3012
        case 'F':
3013
            /* file completion */
3014
            readline_set_completion_index(cur_mon->rs, strlen(str));
3015
            file_completion(str);
3016
            break;
3017
        case 'B':
3018
            /* block device name completion */
3019
            readline_set_completion_index(cur_mon->rs, strlen(str));
3020
            bdrv_iterate(block_completion_it, (void *)str);
3021
            break;
3022
        case 's':
3023
            /* XXX: more generic ? */
3024
            if (!strcmp(cmd->name, "info")) {
3025
                readline_set_completion_index(cur_mon->rs, strlen(str));
3026
                for(cmd = info_cmds; cmd->name != NULL; cmd++) {
3027
                    cmd_completion(str, cmd->name);
3028
                }
3029
            } else if (!strcmp(cmd->name, "sendkey")) {
3030
                char *sep = strrchr(str, '-');
3031
                if (sep)
3032
                    str = sep + 1;
3033
                readline_set_completion_index(cur_mon->rs, strlen(str));
3034
                for(key = key_defs; key->name != NULL; key++) {
3035
                    cmd_completion(str, key->name);
3036
                }
3037
            } else if (!strcmp(cmd->name, "help|?")) {
3038
                readline_set_completion_index(cur_mon->rs, strlen(str));
3039
                for (cmd = mon_cmds; cmd->name != NULL; cmd++) {
3040
                    cmd_completion(str, cmd->name);
3041
                }
3042
            }
3043
            break;
3044
        default:
3045
            break;
3046
        }
3047
    }
3048
    for(i = 0; i < nb_args; i++)
3049
        qemu_free(args[i]);
3050
}
3051

    
3052
static int monitor_can_read(void *opaque)
3053
{
3054
    Monitor *mon = opaque;
3055

    
3056
    return (mon->suspend_cnt == 0) ? 128 : 0;
3057
}
3058

    
3059
static void monitor_read(void *opaque, const uint8_t *buf, int size)
3060
{
3061
    Monitor *old_mon = cur_mon;
3062
    int i;
3063

    
3064
    cur_mon = opaque;
3065

    
3066
    if (cur_mon->rs) {
3067
        for (i = 0; i < size; i++)
3068
            readline_handle_byte(cur_mon->rs, buf[i]);
3069
    } else {
3070
        if (size == 0 || buf[size - 1] != 0)
3071
            monitor_printf(cur_mon, "corrupted command\n");
3072
        else
3073
            monitor_handle_command(cur_mon, (char *)buf);
3074
    }
3075

    
3076
    cur_mon = old_mon;
3077
}
3078

    
3079
static void monitor_command_cb(Monitor *mon, const char *cmdline, void *opaque)
3080
{
3081
    monitor_suspend(mon);
3082
    monitor_handle_command(mon, cmdline);
3083
    monitor_resume(mon);
3084
}
3085

    
3086
int monitor_suspend(Monitor *mon)
3087
{
3088
    if (!mon->rs)
3089
        return -ENOTTY;
3090
    mon->suspend_cnt++;
3091
    return 0;
3092
}
3093

    
3094
void monitor_resume(Monitor *mon)
3095
{
3096
    if (!mon->rs)
3097
        return;
3098
    if (--mon->suspend_cnt == 0)
3099
        readline_show_prompt(mon->rs);
3100
}
3101

    
3102
static void monitor_event(void *opaque, int event)
3103
{
3104
    Monitor *mon = opaque;
3105

    
3106
    switch (event) {
3107
    case CHR_EVENT_MUX_IN:
3108
        readline_restart(mon->rs);
3109
        monitor_resume(mon);
3110
        monitor_flush(mon);
3111
        break;
3112

    
3113
    case CHR_EVENT_MUX_OUT:
3114
        if (mon->suspend_cnt == 0)
3115
            monitor_printf(mon, "\n");
3116
        monitor_flush(mon);
3117
        monitor_suspend(mon);
3118
        break;
3119

    
3120
    case CHR_EVENT_RESET:
3121
        monitor_printf(mon, "QEMU %s monitor - type 'help' for more "
3122
                       "information\n", QEMU_VERSION);
3123
        if (mon->chr->focus == 0)
3124
            readline_show_prompt(mon->rs);
3125
        break;
3126
    }
3127
}
3128

    
3129

    
3130
/*
3131
 * Local variables:
3132
 *  c-indent-level: 4
3133
 *  c-basic-offset: 4
3134
 *  tab-width: 8
3135
 * End:
3136
 */
3137

    
3138
void monitor_init(CharDriverState *chr, int flags)
3139
{
3140
    static int is_first_init = 1;
3141
    Monitor *mon;
3142

    
3143
    if (is_first_init) {
3144
        key_timer = qemu_new_timer(vm_clock, release_keys, NULL);
3145
        is_first_init = 0;
3146
    }
3147

    
3148
    mon = qemu_mallocz(sizeof(*mon));
3149

    
3150
    mon->chr = chr;
3151
    mon->flags = flags;
3152
    if (mon->chr->focus != 0)
3153
        mon->suspend_cnt = 1; /* mux'ed monitors start suspended */
3154
    if (flags & MONITOR_USE_READLINE) {
3155
        mon->rs = readline_init(mon, monitor_find_completion);
3156
        monitor_read_command(mon, 0);
3157
    }
3158

    
3159
    qemu_chr_add_handlers(chr, monitor_can_read, monitor_read, monitor_event,
3160
                          mon);
3161

    
3162
    LIST_INSERT_HEAD(&mon_list, mon, entry);
3163
    if (!cur_mon || (flags & MONITOR_IS_DEFAULT))
3164
        cur_mon = mon;
3165
}
3166

    
3167
static void bdrv_password_cb(Monitor *mon, const char *password, void *opaque)
3168
{
3169
    BlockDriverState *bs = opaque;
3170
    int ret = 0;
3171

    
3172
    if (bdrv_set_key(bs, password) != 0) {
3173
        monitor_printf(mon, "invalid password\n");
3174
        ret = -EPERM;
3175
    }
3176
    if (mon->password_completion_cb)
3177
        mon->password_completion_cb(mon->password_opaque, ret);
3178

    
3179
    monitor_read_command(mon, 1);
3180
}
3181

    
3182
void monitor_read_bdrv_key_start(Monitor *mon, BlockDriverState *bs,
3183
                                 BlockDriverCompletionFunc *completion_cb,
3184
                                 void *opaque)
3185
{
3186
    int err;
3187

    
3188
    if (!bdrv_key_required(bs)) {
3189
        if (completion_cb)
3190
            completion_cb(opaque, 0);
3191
        return;
3192
    }
3193

    
3194
    monitor_printf(mon, "%s (%s) is encrypted.\n", bdrv_get_device_name(bs),
3195
                   bdrv_get_encrypted_filename(bs));
3196

    
3197
    mon->password_completion_cb = completion_cb;
3198
    mon->password_opaque = opaque;
3199

    
3200
    err = monitor_read_password(mon, bdrv_password_cb, bs);
3201

    
3202
    if (err && completion_cb)
3203
        completion_cb(opaque, err);
3204
}