Statistics
| Branch: | Revision:

root / monitor.c @ ce5232c5

History | View | Annotate | Download (69.4 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 "hw/hw.h"
25
#include "hw/usb.h"
26
#include "hw/pcmcia.h"
27
#include "hw/pc.h"
28
#include "hw/pci.h"
29
#include "gdbstub.h"
30
#include "net.h"
31
#include "qemu-char.h"
32
#include "sysemu.h"
33
#include "console.h"
34
#include "block.h"
35
#include "audio/audio.h"
36
#include "disas.h"
37
#include <dirent.h>
38

    
39
#ifdef CONFIG_PROFILER
40
#include "qemu-timer.h" /* for ticks_per_sec */
41
#endif
42

    
43
//#define DEBUG
44
//#define DEBUG_COMPLETION
45

    
46
#ifndef offsetof
47
#define offsetof(type, field) ((size_t) &((type *)0)->field)
48
#endif
49

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

    
64
typedef struct term_cmd_t {
65
    const char *name;
66
    const char *args_type;
67
    void (*handler)();
68
    const char *params;
69
    const char *help;
70
} term_cmd_t;
71

    
72
#define MAX_MON 4
73
static CharDriverState *monitor_hd[MAX_MON];
74
static int hide_banner;
75

    
76
static term_cmd_t term_cmds[];
77
static term_cmd_t info_cmds[];
78

    
79
static uint8_t term_outbuf[1024];
80
static int term_outbuf_index;
81

    
82
static void monitor_start_input(void);
83

    
84
CPUState *mon_cpu = NULL;
85

    
86
void term_flush(void)
87
{
88
    int i;
89
    if (term_outbuf_index > 0) {
90
        for (i = 0; i < MAX_MON; i++)
91
            if (monitor_hd[i] && monitor_hd[i]->focus == 0)
92
                qemu_chr_write(monitor_hd[i], term_outbuf, term_outbuf_index);
93
        term_outbuf_index = 0;
94
    }
95
}
96

    
97
/* flush at every end of line or if the buffer is full */
98
void term_puts(const char *str)
99
{
100
    char c;
101
    for(;;) {
102
        c = *str++;
103
        if (c == '\0')
104
            break;
105
        if (c == '\n')
106
            term_outbuf[term_outbuf_index++] = '\r';
107
        term_outbuf[term_outbuf_index++] = c;
108
        if (term_outbuf_index >= (sizeof(term_outbuf) - 1) ||
109
            c == '\n')
110
            term_flush();
111
    }
112
}
113

    
114
void term_vprintf(const char *fmt, va_list ap)
115
{
116
    char buf[4096];
117
    vsnprintf(buf, sizeof(buf), fmt, ap);
118
    term_puts(buf);
119
}
120

    
121
void term_printf(const char *fmt, ...)
122
{
123
    va_list ap;
124
    va_start(ap, fmt);
125
    term_vprintf(fmt, ap);
126
    va_end(ap);
127
}
128

    
129
void term_print_filename(const char *filename)
130
{
131
    int i;
132

    
133
    for (i = 0; filename[i]; i++) {
134
        switch (filename[i]) {
135
        case ' ':
136
        case '"':
137
        case '\\':
138
            term_printf("\\%c", filename[i]);
139
            break;
140
        case '\t':
141
            term_printf("\\t");
142
            break;
143
        case '\r':
144
            term_printf("\\r");
145
            break;
146
        case '\n':
147
            term_printf("\\n");
148
            break;
149
        default:
150
            term_printf("%c", filename[i]);
151
            break;
152
        }
153
    }
154
}
155

    
156
static int monitor_fprintf(FILE *stream, const char *fmt, ...)
157
{
158
    va_list ap;
159
    va_start(ap, fmt);
160
    term_vprintf(fmt, ap);
161
    va_end(ap);
162
    return 0;
163
}
164

    
165
static int compare_cmd(const char *name, const char *list)
166
{
167
    const char *p, *pstart;
168
    int len;
169
    len = strlen(name);
170
    p = list;
171
    for(;;) {
172
        pstart = p;
173
        p = strchr(p, '|');
174
        if (!p)
175
            p = pstart + strlen(pstart);
176
        if ((p - pstart) == len && !memcmp(pstart, name, len))
177
            return 1;
178
        if (*p == '\0')
179
            break;
180
        p++;
181
    }
182
    return 0;
183
}
184

    
185
static void help_cmd1(term_cmd_t *cmds, const char *prefix, const char *name)
186
{
187
    term_cmd_t *cmd;
188

    
189
    for(cmd = cmds; cmd->name != NULL; cmd++) {
190
        if (!name || !strcmp(name, cmd->name))
191
            term_printf("%s%s %s -- %s\n", prefix, cmd->name, cmd->params, cmd->help);
192
    }
193
}
194

    
195
static void help_cmd(const char *name)
196
{
197
    if (name && !strcmp(name, "info")) {
198
        help_cmd1(info_cmds, "info ", NULL);
199
    } else {
200
        help_cmd1(term_cmds, "", name);
201
        if (name && !strcmp(name, "log")) {
202
            CPULogItem *item;
203
            term_printf("Log items (comma separated):\n");
204
            term_printf("%-10s %s\n", "none", "remove all logs");
205
            for(item = cpu_log_items; item->mask != 0; item++) {
206
                term_printf("%-10s %s\n", item->name, item->help);
207
            }
208
        }
209
    }
210
}
211

    
212
static void do_help(const char *name)
213
{
214
    help_cmd(name);
215
}
216

    
217
static void do_commit(const char *device)
218
{
219
    int i, all_devices;
220

    
221
    all_devices = !strcmp(device, "all");
222
    for (i = 0; i < nb_drives; i++) {
223
            if (all_devices ||
224
                !strcmp(bdrv_get_device_name(drives_table[i].bdrv), device))
225
                bdrv_commit(drives_table[i].bdrv);
226
    }
227
}
228

    
229
static void do_info(const char *item)
230
{
231
    term_cmd_t *cmd;
232

    
233
    if (!item)
234
        goto help;
235
    for(cmd = info_cmds; cmd->name != NULL; cmd++) {
236
        if (compare_cmd(item, cmd->name))
237
            goto found;
238
    }
239
 help:
240
    help_cmd("info");
241
    return;
242
 found:
243
    cmd->handler();
244
}
245

    
246
static void do_info_version(void)
247
{
248
  term_printf("%s\n", QEMU_VERSION);
249
}
250

    
251
static void do_info_name(void)
252
{
253
    if (qemu_name)
254
        term_printf("%s\n", qemu_name);
255
}
256

    
257
static void do_info_block(void)
258
{
259
    bdrv_info();
260
}
261

    
262
static void do_info_blockstats(void)
263
{
264
    bdrv_info_stats();
265
}
266

    
267
/* get the current CPU defined by the user */
268
static int mon_set_cpu(int cpu_index)
269
{
270
    CPUState *env;
271

    
272
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
273
        if (env->cpu_index == cpu_index) {
274
            mon_cpu = env;
275
            return 0;
276
        }
277
    }
278
    return -1;
279
}
280

    
281
static CPUState *mon_get_cpu(void)
282
{
283
    if (!mon_cpu) {
284
        mon_set_cpu(0);
285
    }
286
    return mon_cpu;
287
}
288

    
289
static void do_info_registers(void)
290
{
291
    CPUState *env;
292
    env = mon_get_cpu();
293
    if (!env)
294
        return;
295
#ifdef TARGET_I386
296
    cpu_dump_state(env, NULL, monitor_fprintf,
297
                   X86_DUMP_FPU);
298
#else
299
    cpu_dump_state(env, NULL, monitor_fprintf,
300
                   0);
301
#endif
302
}
303

    
304
static void do_info_cpus(void)
305
{
306
    CPUState *env;
307

    
308
    /* just to set the default cpu if not already done */
309
    mon_get_cpu();
310

    
311
    for(env = first_cpu; env != NULL; env = env->next_cpu) {
312
        term_printf("%c CPU #%d:",
313
                    (env == mon_cpu) ? '*' : ' ',
314
                    env->cpu_index);
315
#if defined(TARGET_I386)
316
        term_printf(" pc=0x" TARGET_FMT_lx, env->eip + env->segs[R_CS].base);
317
#elif defined(TARGET_PPC)
318
        term_printf(" nip=0x" TARGET_FMT_lx, env->nip);
319
#elif defined(TARGET_SPARC)
320
        term_printf(" pc=0x" TARGET_FMT_lx " npc=0x" TARGET_FMT_lx, env->pc, env->npc);
321
#elif defined(TARGET_MIPS)
322
        term_printf(" PC=0x" TARGET_FMT_lx, env->PC[env->current_tc]);
323
#endif
324
        if (env->halted)
325
            term_printf(" (halted)");
326
        term_printf("\n");
327
    }
328
}
329

    
330
static void do_cpu_set(int index)
331
{
332
    if (mon_set_cpu(index) < 0)
333
        term_printf("Invalid CPU index\n");
334
}
335

    
336
static void do_info_jit(void)
337
{
338
    dump_exec_info(NULL, monitor_fprintf);
339
}
340

    
341
static void do_info_history (void)
342
{
343
    int i;
344
    const char *str;
345

    
346
    i = 0;
347
    for(;;) {
348
        str = readline_get_history(i);
349
        if (!str)
350
            break;
351
        term_printf("%d: '%s'\n", i, str);
352
        i++;
353
    }
354
}
355

    
356
#if defined(TARGET_PPC)
357
/* XXX: not implemented in other targets */
358
static void do_info_cpu_stats (void)
359
{
360
    CPUState *env;
361

    
362
    env = mon_get_cpu();
363
    cpu_dump_statistics(env, NULL, &monitor_fprintf, 0);
364
}
365
#endif
366

    
367
static void do_quit(void)
368
{
369
    exit(0);
370
}
371

    
372
static int eject_device(BlockDriverState *bs, int force)
373
{
374
    if (bdrv_is_inserted(bs)) {
375
        if (!force) {
376
            if (!bdrv_is_removable(bs)) {
377
                term_printf("device is not removable\n");
378
                return -1;
379
            }
380
            if (bdrv_is_locked(bs)) {
381
                term_printf("device is locked\n");
382
                return -1;
383
            }
384
        }
385
        bdrv_close(bs);
386
    }
387
    return 0;
388
}
389

    
390
static void do_eject(int force, const char *filename)
391
{
392
    BlockDriverState *bs;
393

    
394
    bs = bdrv_find(filename);
395
    if (!bs) {
396
        term_printf("device not found\n");
397
        return;
398
    }
399
    eject_device(bs, force);
400
}
401

    
402
static void do_change_block(const char *device, const char *filename)
403
{
404
    BlockDriverState *bs;
405

    
406
    bs = bdrv_find(device);
407
    if (!bs) {
408
        term_printf("device not found\n");
409
        return;
410
    }
411
    if (eject_device(bs, 0) < 0)
412
        return;
413
    bdrv_open(bs, filename, 0);
414
    qemu_key_check(bs, filename);
415
}
416

    
417
static void do_change_vnc(const char *target)
418
{
419
    if (strcmp(target, "passwd") == 0 ||
420
        strcmp(target, "password") == 0) {
421
        char password[9];
422
        monitor_readline("Password: ", 1, password, sizeof(password)-1);
423
        password[sizeof(password)-1] = '\0';
424
        if (vnc_display_password(NULL, password) < 0)
425
            term_printf("could not set VNC server password\n");
426
    } else {
427
        if (vnc_display_open(NULL, target) < 0)
428
            term_printf("could not start VNC server on %s\n", target);
429
    }
430
}
431

    
432
static void do_change(const char *device, const char *target)
433
{
434
    if (strcmp(device, "vnc") == 0) {
435
        do_change_vnc(target);
436
    } else {
437
        do_change_block(device, target);
438
    }
439
}
440

    
441
static void do_screen_dump(const char *filename)
442
{
443
    vga_hw_screen_dump(filename);
444
}
445

    
446
static void do_logfile(const char *filename)
447
{
448
    cpu_set_log_filename(filename);
449
}
450

    
451
static void do_log(const char *items)
452
{
453
    int mask;
454

    
455
    if (!strcmp(items, "none")) {
456
        mask = 0;
457
    } else {
458
        mask = cpu_str_to_log_mask(items);
459
        if (!mask) {
460
            help_cmd("log");
461
            return;
462
        }
463
    }
464
    cpu_set_log(mask);
465
}
466

    
467
static void do_stop(void)
468
{
469
    vm_stop(EXCP_INTERRUPT);
470
}
471

    
472
static void do_cont(void)
473
{
474
    vm_start();
475
}
476

    
477
#ifdef CONFIG_GDBSTUB
478
static void do_gdbserver(const char *port)
479
{
480
    if (!port)
481
        port = DEFAULT_GDBSTUB_PORT;
482
    if (gdbserver_start(port) < 0) {
483
        qemu_printf("Could not open gdbserver socket on port '%s'\n", port);
484
    } else {
485
        qemu_printf("Waiting gdb connection on port '%s'\n", port);
486
    }
487
}
488
#endif
489

    
490
static void term_printc(int c)
491
{
492
    term_printf("'");
493
    switch(c) {
494
    case '\'':
495
        term_printf("\\'");
496
        break;
497
    case '\\':
498
        term_printf("\\\\");
499
        break;
500
    case '\n':
501
        term_printf("\\n");
502
        break;
503
    case '\r':
504
        term_printf("\\r");
505
        break;
506
    default:
507
        if (c >= 32 && c <= 126) {
508
            term_printf("%c", c);
509
        } else {
510
            term_printf("\\x%02x", c);
511
        }
512
        break;
513
    }
514
    term_printf("'");
515
}
516

    
517
static void memory_dump(int count, int format, int wsize,
518
                        target_phys_addr_t addr, int is_physical)
519
{
520
    CPUState *env;
521
    int nb_per_line, l, line_size, i, max_digits, len;
522
    uint8_t buf[16];
523
    uint64_t v;
524

    
525
    if (format == 'i') {
526
        int flags;
527
        flags = 0;
528
        env = mon_get_cpu();
529
        if (!env && !is_physical)
530
            return;
531
#ifdef TARGET_I386
532
        if (wsize == 2) {
533
            flags = 1;
534
        } else if (wsize == 4) {
535
            flags = 0;
536
        } else {
537
            /* as default we use the current CS size */
538
            flags = 0;
539
            if (env) {
540
#ifdef TARGET_X86_64
541
                if ((env->efer & MSR_EFER_LMA) &&
542
                    (env->segs[R_CS].flags & DESC_L_MASK))
543
                    flags = 2;
544
                else
545
#endif
546
                if (!(env->segs[R_CS].flags & DESC_B_MASK))
547
                    flags = 1;
548
            }
549
        }
550
#endif
551
        monitor_disas(env, addr, count, is_physical, flags);
552
        return;
553
    }
554

    
555
    len = wsize * count;
556
    if (wsize == 1)
557
        line_size = 8;
558
    else
559
        line_size = 16;
560
    nb_per_line = line_size / wsize;
561
    max_digits = 0;
562

    
563
    switch(format) {
564
    case 'o':
565
        max_digits = (wsize * 8 + 2) / 3;
566
        break;
567
    default:
568
    case 'x':
569
        max_digits = (wsize * 8) / 4;
570
        break;
571
    case 'u':
572
    case 'd':
573
        max_digits = (wsize * 8 * 10 + 32) / 33;
574
        break;
575
    case 'c':
576
        wsize = 1;
577
        break;
578
    }
579

    
580
    while (len > 0) {
581
        if (is_physical)
582
            term_printf(TARGET_FMT_plx ":", addr);
583
        else
584
            term_printf(TARGET_FMT_lx ":", (target_ulong)addr);
585
        l = len;
586
        if (l > line_size)
587
            l = line_size;
588
        if (is_physical) {
589
            cpu_physical_memory_rw(addr, buf, l, 0);
590
        } else {
591
            env = mon_get_cpu();
592
            if (!env)
593
                break;
594
            cpu_memory_rw_debug(env, addr, buf, l, 0);
595
        }
596
        i = 0;
597
        while (i < l) {
598
            switch(wsize) {
599
            default:
600
            case 1:
601
                v = ldub_raw(buf + i);
602
                break;
603
            case 2:
604
                v = lduw_raw(buf + i);
605
                break;
606
            case 4:
607
                v = (uint32_t)ldl_raw(buf + i);
608
                break;
609
            case 8:
610
                v = ldq_raw(buf + i);
611
                break;
612
            }
613
            term_printf(" ");
614
            switch(format) {
615
            case 'o':
616
                term_printf("%#*" PRIo64, max_digits, v);
617
                break;
618
            case 'x':
619
                term_printf("0x%0*" PRIx64, max_digits, v);
620
                break;
621
            case 'u':
622
                term_printf("%*" PRIu64, max_digits, v);
623
                break;
624
            case 'd':
625
                term_printf("%*" PRId64, max_digits, v);
626
                break;
627
            case 'c':
628
                term_printc(v);
629
                break;
630
            }
631
            i += wsize;
632
        }
633
        term_printf("\n");
634
        addr += l;
635
        len -= l;
636
    }
637
}
638

    
639
#if TARGET_LONG_BITS == 64
640
#define GET_TLONG(h, l) (((uint64_t)(h) << 32) | (l))
641
#else
642
#define GET_TLONG(h, l) (l)
643
#endif
644

    
645
static void do_memory_dump(int count, int format, int size,
646
                           uint32_t addrh, uint32_t addrl)
647
{
648
    target_long addr = GET_TLONG(addrh, addrl);
649
    memory_dump(count, format, size, addr, 0);
650
}
651

    
652
#if TARGET_PHYS_ADDR_BITS > 32
653
#define GET_TPHYSADDR(h, l) (((uint64_t)(h) << 32) | (l))
654
#else
655
#define GET_TPHYSADDR(h, l) (l)
656
#endif
657

    
658
static void do_physical_memory_dump(int count, int format, int size,
659
                                    uint32_t addrh, uint32_t addrl)
660

    
661
{
662
    target_phys_addr_t addr = GET_TPHYSADDR(addrh, addrl);
663
    memory_dump(count, format, size, addr, 1);
664
}
665

    
666
static void do_print(int count, int format, int size, unsigned int valh, unsigned int vall)
667
{
668
    target_phys_addr_t val = GET_TPHYSADDR(valh, vall);
669
#if TARGET_PHYS_ADDR_BITS == 32
670
    switch(format) {
671
    case 'o':
672
        term_printf("%#o", val);
673
        break;
674
    case 'x':
675
        term_printf("%#x", val);
676
        break;
677
    case 'u':
678
        term_printf("%u", val);
679
        break;
680
    default:
681
    case 'd':
682
        term_printf("%d", val);
683
        break;
684
    case 'c':
685
        term_printc(val);
686
        break;
687
    }
688
#else
689
    switch(format) {
690
    case 'o':
691
        term_printf("%#" PRIo64, val);
692
        break;
693
    case 'x':
694
        term_printf("%#" PRIx64, val);
695
        break;
696
    case 'u':
697
        term_printf("%" PRIu64, val);
698
        break;
699
    default:
700
    case 'd':
701
        term_printf("%" PRId64, val);
702
        break;
703
    case 'c':
704
        term_printc(val);
705
        break;
706
    }
707
#endif
708
    term_printf("\n");
709
}
710

    
711
static void do_memory_save(unsigned int valh, unsigned int vall,
712
                           uint32_t size, const char *filename)
713
{
714
    FILE *f;
715
    target_long addr = GET_TLONG(valh, vall);
716
    uint32_t l;
717
    CPUState *env;
718
    uint8_t buf[1024];
719

    
720
    env = mon_get_cpu();
721
    if (!env)
722
        return;
723

    
724
    f = fopen(filename, "wb");
725
    if (!f) {
726
        term_printf("could not open '%s'\n", filename);
727
        return;
728
    }
729
    while (size != 0) {
730
        l = sizeof(buf);
731
        if (l > size)
732
            l = size;
733
        cpu_memory_rw_debug(env, addr, buf, l, 0);
734
        fwrite(buf, 1, l, f);
735
        addr += l;
736
        size -= l;
737
    }
738
    fclose(f);
739
}
740

    
741
static void do_physical_memory_save(unsigned int valh, unsigned int vall,
742
                                    uint32_t size, const char *filename)
743
{
744
    FILE *f;
745
    uint32_t l;
746
    uint8_t buf[1024];
747
    target_phys_addr_t addr = GET_TPHYSADDR(valh, vall); 
748

    
749
    f = fopen(filename, "wb");
750
    if (!f) {
751
        term_printf("could not open '%s'\n", filename);
752
        return;
753
    }
754
    while (size != 0) {
755
        l = sizeof(buf);
756
        if (l > size)
757
            l = size;
758
        cpu_physical_memory_rw(addr, buf, l, 0);
759
        fwrite(buf, 1, l, f);
760
        fflush(f);
761
        addr += l;
762
        size -= l;
763
    }
764
    fclose(f);
765
}
766

    
767
static void do_sum(uint32_t start, uint32_t size)
768
{
769
    uint32_t addr;
770
    uint8_t buf[1];
771
    uint16_t sum;
772

    
773
    sum = 0;
774
    for(addr = start; addr < (start + size); addr++) {
775
        cpu_physical_memory_rw(addr, buf, 1, 0);
776
        /* BSD sum algorithm ('sum' Unix command) */
777
        sum = (sum >> 1) | (sum << 15);
778
        sum += buf[0];
779
    }
780
    term_printf("%05d\n", sum);
781
}
782

    
783
typedef struct {
784
    int keycode;
785
    const char *name;
786
} KeyDef;
787

    
788
static const KeyDef key_defs[] = {
789
    { 0x2a, "shift" },
790
    { 0x36, "shift_r" },
791

    
792
    { 0x38, "alt" },
793
    { 0xb8, "alt_r" },
794
    { 0x1d, "ctrl" },
795
    { 0x9d, "ctrl_r" },
796

    
797
    { 0xdd, "menu" },
798

    
799
    { 0x01, "esc" },
800

    
801
    { 0x02, "1" },
802
    { 0x03, "2" },
803
    { 0x04, "3" },
804
    { 0x05, "4" },
805
    { 0x06, "5" },
806
    { 0x07, "6" },
807
    { 0x08, "7" },
808
    { 0x09, "8" },
809
    { 0x0a, "9" },
810
    { 0x0b, "0" },
811
    { 0x0c, "minus" },
812
    { 0x0d, "equal" },
813
    { 0x0e, "backspace" },
814

    
815
    { 0x0f, "tab" },
816
    { 0x10, "q" },
817
    { 0x11, "w" },
818
    { 0x12, "e" },
819
    { 0x13, "r" },
820
    { 0x14, "t" },
821
    { 0x15, "y" },
822
    { 0x16, "u" },
823
    { 0x17, "i" },
824
    { 0x18, "o" },
825
    { 0x19, "p" },
826

    
827
    { 0x1c, "ret" },
828

    
829
    { 0x1e, "a" },
830
    { 0x1f, "s" },
831
    { 0x20, "d" },
832
    { 0x21, "f" },
833
    { 0x22, "g" },
834
    { 0x23, "h" },
835
    { 0x24, "j" },
836
    { 0x25, "k" },
837
    { 0x26, "l" },
838

    
839
    { 0x2c, "z" },
840
    { 0x2d, "x" },
841
    { 0x2e, "c" },
842
    { 0x2f, "v" },
843
    { 0x30, "b" },
844
    { 0x31, "n" },
845
    { 0x32, "m" },
846

    
847
    { 0x37, "asterisk" },
848

    
849
    { 0x39, "spc" },
850
    { 0x3a, "caps_lock" },
851
    { 0x3b, "f1" },
852
    { 0x3c, "f2" },
853
    { 0x3d, "f3" },
854
    { 0x3e, "f4" },
855
    { 0x3f, "f5" },
856
    { 0x40, "f6" },
857
    { 0x41, "f7" },
858
    { 0x42, "f8" },
859
    { 0x43, "f9" },
860
    { 0x44, "f10" },
861
    { 0x45, "num_lock" },
862
    { 0x46, "scroll_lock" },
863

    
864
    { 0xb5, "kp_divide" },
865
    { 0x37, "kp_multiply" },
866
    { 0x4a, "kp_subtract" },
867
    { 0x4e, "kp_add" },
868
    { 0x9c, "kp_enter" },
869
    { 0x53, "kp_decimal" },
870

    
871
    { 0x52, "kp_0" },
872
    { 0x4f, "kp_1" },
873
    { 0x50, "kp_2" },
874
    { 0x51, "kp_3" },
875
    { 0x4b, "kp_4" },
876
    { 0x4c, "kp_5" },
877
    { 0x4d, "kp_6" },
878
    { 0x47, "kp_7" },
879
    { 0x48, "kp_8" },
880
    { 0x49, "kp_9" },
881

    
882
    { 0x56, "<" },
883

    
884
    { 0x57, "f11" },
885
    { 0x58, "f12" },
886

    
887
    { 0xb7, "print" },
888

    
889
    { 0xc7, "home" },
890
    { 0xc9, "pgup" },
891
    { 0xd1, "pgdn" },
892
    { 0xcf, "end" },
893

    
894
    { 0xcb, "left" },
895
    { 0xc8, "up" },
896
    { 0xd0, "down" },
897
    { 0xcd, "right" },
898

    
899
    { 0xd2, "insert" },
900
    { 0xd3, "delete" },
901
    { 0, NULL },
902
};
903

    
904
static int get_keycode(const char *key)
905
{
906
    const KeyDef *p;
907
    char *endp;
908
    int ret;
909

    
910
    for(p = key_defs; p->name != NULL; p++) {
911
        if (!strcmp(key, p->name))
912
            return p->keycode;
913
    }
914
    if (strstart(key, "0x", NULL)) {
915
        ret = strtoul(key, &endp, 0);
916
        if (*endp == '\0' && ret >= 0x01 && ret <= 0xff)
917
            return ret;
918
    }
919
    return -1;
920
}
921

    
922
static void do_send_key(const char *string)
923
{
924
    char keybuf[16], *q;
925
    uint8_t keycodes[16];
926
    const char *p;
927
    int nb_keycodes, keycode, i;
928

    
929
    nb_keycodes = 0;
930
    p = string;
931
    while (*p != '\0') {
932
        q = keybuf;
933
        while (*p != '\0' && *p != '-') {
934
            if ((q - keybuf) < sizeof(keybuf) - 1) {
935
                *q++ = *p;
936
            }
937
            p++;
938
        }
939
        *q = '\0';
940
        keycode = get_keycode(keybuf);
941
        if (keycode < 0) {
942
            term_printf("unknown key: '%s'\n", keybuf);
943
            return;
944
        }
945
        keycodes[nb_keycodes++] = keycode;
946
        if (*p == '\0')
947
            break;
948
        p++;
949
    }
950
    /* key down events */
951
    for(i = 0; i < nb_keycodes; i++) {
952
        keycode = keycodes[i];
953
        if (keycode & 0x80)
954
            kbd_put_keycode(0xe0);
955
        kbd_put_keycode(keycode & 0x7f);
956
    }
957
    /* key up events */
958
    for(i = nb_keycodes - 1; i >= 0; i--) {
959
        keycode = keycodes[i];
960
        if (keycode & 0x80)
961
            kbd_put_keycode(0xe0);
962
        kbd_put_keycode(keycode | 0x80);
963
    }
964
}
965

    
966
static int mouse_button_state;
967

    
968
static void do_mouse_move(const char *dx_str, const char *dy_str,
969
                          const char *dz_str)
970
{
971
    int dx, dy, dz;
972
    dx = strtol(dx_str, NULL, 0);
973
    dy = strtol(dy_str, NULL, 0);
974
    dz = 0;
975
    if (dz_str)
976
        dz = strtol(dz_str, NULL, 0);
977
    kbd_mouse_event(dx, dy, dz, mouse_button_state);
978
}
979

    
980
static void do_mouse_button(int button_state)
981
{
982
    mouse_button_state = button_state;
983
    kbd_mouse_event(0, 0, 0, mouse_button_state);
984
}
985

    
986
static void do_ioport_read(int count, int format, int size, int addr, int has_index, int index)
987
{
988
    uint32_t val;
989
    int suffix;
990

    
991
    if (has_index) {
992
        cpu_outb(NULL, addr & 0xffff, index & 0xff);
993
        addr++;
994
    }
995
    addr &= 0xffff;
996

    
997
    switch(size) {
998
    default:
999
    case 1:
1000
        val = cpu_inb(NULL, addr);
1001
        suffix = 'b';
1002
        break;
1003
    case 2:
1004
        val = cpu_inw(NULL, addr);
1005
        suffix = 'w';
1006
        break;
1007
    case 4:
1008
        val = cpu_inl(NULL, addr);
1009
        suffix = 'l';
1010
        break;
1011
    }
1012
    term_printf("port%c[0x%04x] = %#0*x\n",
1013
                suffix, addr, size * 2, val);
1014
}
1015

    
1016
static void do_boot_set(const char *bootdevice)
1017
{
1018
    int res;
1019

    
1020
    if (qemu_boot_set_handler)  {
1021
        res = qemu_boot_set_handler(bootdevice);
1022
        if (res == 0)
1023
            term_printf("boot device list now set to %s\n", bootdevice);
1024
        else
1025
            term_printf("setting boot device list failed with error %i\n", res);
1026
    } else {
1027
        term_printf("no function defined to set boot device list for this architecture\n");
1028
    }
1029
}
1030

    
1031
static void do_system_reset(void)
1032
{
1033
    qemu_system_reset_request();
1034
}
1035

    
1036
static void do_system_powerdown(void)
1037
{
1038
    qemu_system_powerdown_request();
1039
}
1040

    
1041
#if defined(TARGET_I386)
1042
static void print_pte(uint32_t addr, uint32_t pte, uint32_t mask)
1043
{
1044
    term_printf("%08x: %08x %c%c%c%c%c%c%c%c\n",
1045
                addr,
1046
                pte & mask,
1047
                pte & PG_GLOBAL_MASK ? 'G' : '-',
1048
                pte & PG_PSE_MASK ? 'P' : '-',
1049
                pte & PG_DIRTY_MASK ? 'D' : '-',
1050
                pte & PG_ACCESSED_MASK ? 'A' : '-',
1051
                pte & PG_PCD_MASK ? 'C' : '-',
1052
                pte & PG_PWT_MASK ? 'T' : '-',
1053
                pte & PG_USER_MASK ? 'U' : '-',
1054
                pte & PG_RW_MASK ? 'W' : '-');
1055
}
1056

    
1057
static void tlb_info(void)
1058
{
1059
    CPUState *env;
1060
    int l1, l2;
1061
    uint32_t pgd, pde, pte;
1062

    
1063
    env = mon_get_cpu();
1064
    if (!env)
1065
        return;
1066

    
1067
    if (!(env->cr[0] & CR0_PG_MASK)) {
1068
        term_printf("PG disabled\n");
1069
        return;
1070
    }
1071
    pgd = env->cr[3] & ~0xfff;
1072
    for(l1 = 0; l1 < 1024; l1++) {
1073
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1074
        pde = le32_to_cpu(pde);
1075
        if (pde & PG_PRESENT_MASK) {
1076
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1077
                print_pte((l1 << 22), pde, ~((1 << 20) - 1));
1078
            } else {
1079
                for(l2 = 0; l2 < 1024; l2++) {
1080
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1081
                                             (uint8_t *)&pte, 4);
1082
                    pte = le32_to_cpu(pte);
1083
                    if (pte & PG_PRESENT_MASK) {
1084
                        print_pte((l1 << 22) + (l2 << 12),
1085
                                  pte & ~PG_PSE_MASK,
1086
                                  ~0xfff);
1087
                    }
1088
                }
1089
            }
1090
        }
1091
    }
1092
}
1093

    
1094
static void mem_print(uint32_t *pstart, int *plast_prot,
1095
                      uint32_t end, int prot)
1096
{
1097
    int prot1;
1098
    prot1 = *plast_prot;
1099
    if (prot != prot1) {
1100
        if (*pstart != -1) {
1101
            term_printf("%08x-%08x %08x %c%c%c\n",
1102
                        *pstart, end, end - *pstart,
1103
                        prot1 & PG_USER_MASK ? 'u' : '-',
1104
                        'r',
1105
                        prot1 & PG_RW_MASK ? 'w' : '-');
1106
        }
1107
        if (prot != 0)
1108
            *pstart = end;
1109
        else
1110
            *pstart = -1;
1111
        *plast_prot = prot;
1112
    }
1113
}
1114

    
1115
static void mem_info(void)
1116
{
1117
    CPUState *env;
1118
    int l1, l2, prot, last_prot;
1119
    uint32_t pgd, pde, pte, start, end;
1120

    
1121
    env = mon_get_cpu();
1122
    if (!env)
1123
        return;
1124

    
1125
    if (!(env->cr[0] & CR0_PG_MASK)) {
1126
        term_printf("PG disabled\n");
1127
        return;
1128
    }
1129
    pgd = env->cr[3] & ~0xfff;
1130
    last_prot = 0;
1131
    start = -1;
1132
    for(l1 = 0; l1 < 1024; l1++) {
1133
        cpu_physical_memory_read(pgd + l1 * 4, (uint8_t *)&pde, 4);
1134
        pde = le32_to_cpu(pde);
1135
        end = l1 << 22;
1136
        if (pde & PG_PRESENT_MASK) {
1137
            if ((pde & PG_PSE_MASK) && (env->cr[4] & CR4_PSE_MASK)) {
1138
                prot = pde & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1139
                mem_print(&start, &last_prot, end, prot);
1140
            } else {
1141
                for(l2 = 0; l2 < 1024; l2++) {
1142
                    cpu_physical_memory_read((pde & ~0xfff) + l2 * 4,
1143
                                             (uint8_t *)&pte, 4);
1144
                    pte = le32_to_cpu(pte);
1145
                    end = (l1 << 22) + (l2 << 12);
1146
                    if (pte & PG_PRESENT_MASK) {
1147
                        prot = pte & (PG_USER_MASK | PG_RW_MASK | PG_PRESENT_MASK);
1148
                    } else {
1149
                        prot = 0;
1150
                    }
1151
                    mem_print(&start, &last_prot, end, prot);
1152
                }
1153
            }
1154
        } else {
1155
            prot = 0;
1156
            mem_print(&start, &last_prot, end, prot);
1157
        }
1158
    }
1159
}
1160
#endif
1161

    
1162
static void do_info_kqemu(void)
1163
{
1164
#ifdef USE_KQEMU
1165
    CPUState *env;
1166
    int val;
1167
    val = 0;
1168
    env = mon_get_cpu();
1169
    if (!env) {
1170
        term_printf("No cpu initialized yet");
1171
        return;
1172
    }
1173
    val = env->kqemu_enabled;
1174
    term_printf("kqemu support: ");
1175
    switch(val) {
1176
    default:
1177
    case 0:
1178
        term_printf("disabled\n");
1179
        break;
1180
    case 1:
1181
        term_printf("enabled for user code\n");
1182
        break;
1183
    case 2:
1184
        term_printf("enabled for user and kernel code\n");
1185
        break;
1186
    }
1187
#else
1188
    term_printf("kqemu support: not compiled\n");
1189
#endif
1190
}
1191

    
1192
#ifdef CONFIG_PROFILER
1193

    
1194
int64_t kqemu_time;
1195
int64_t qemu_time;
1196
int64_t kqemu_exec_count;
1197
int64_t dev_time;
1198
int64_t kqemu_ret_int_count;
1199
int64_t kqemu_ret_excp_count;
1200
int64_t kqemu_ret_intr_count;
1201

    
1202
static void do_info_profile(void)
1203
{
1204
    int64_t total;
1205
    total = qemu_time;
1206
    if (total == 0)
1207
        total = 1;
1208
    term_printf("async time  %" PRId64 " (%0.3f)\n",
1209
                dev_time, dev_time / (double)ticks_per_sec);
1210
    term_printf("qemu time   %" PRId64 " (%0.3f)\n",
1211
                qemu_time, qemu_time / (double)ticks_per_sec);
1212
    term_printf("kqemu time  %" PRId64 " (%0.3f %0.1f%%) count=%" PRId64 " int=%" PRId64 " excp=%" PRId64 " intr=%" PRId64 "\n",
1213
                kqemu_time, kqemu_time / (double)ticks_per_sec,
1214
                kqemu_time / (double)total * 100.0,
1215
                kqemu_exec_count,
1216
                kqemu_ret_int_count,
1217
                kqemu_ret_excp_count,
1218
                kqemu_ret_intr_count);
1219
    qemu_time = 0;
1220
    kqemu_time = 0;
1221
    kqemu_exec_count = 0;
1222
    dev_time = 0;
1223
    kqemu_ret_int_count = 0;
1224
    kqemu_ret_excp_count = 0;
1225
    kqemu_ret_intr_count = 0;
1226
#ifdef USE_KQEMU
1227
    kqemu_record_dump();
1228
#endif
1229
}
1230
#else
1231
static void do_info_profile(void)
1232
{
1233
    term_printf("Internal profiler not compiled\n");
1234
}
1235
#endif
1236

    
1237
/* Capture support */
1238
static LIST_HEAD (capture_list_head, CaptureState) capture_head;
1239

    
1240
static void do_info_capture (void)
1241
{
1242
    int i;
1243
    CaptureState *s;
1244

    
1245
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1246
        term_printf ("[%d]: ", i);
1247
        s->ops.info (s->opaque);
1248
    }
1249
}
1250

    
1251
static void do_stop_capture (int n)
1252
{
1253
    int i;
1254
    CaptureState *s;
1255

    
1256
    for (s = capture_head.lh_first, i = 0; s; s = s->entries.le_next, ++i) {
1257
        if (i == n) {
1258
            s->ops.destroy (s->opaque);
1259
            LIST_REMOVE (s, entries);
1260
            qemu_free (s);
1261
            return;
1262
        }
1263
    }
1264
}
1265

    
1266
#ifdef HAS_AUDIO
1267
int wav_start_capture (CaptureState *s, const char *path, int freq,
1268
                       int bits, int nchannels);
1269

    
1270
static void do_wav_capture (const char *path,
1271
                            int has_freq, int freq,
1272
                            int has_bits, int bits,
1273
                            int has_channels, int nchannels)
1274
{
1275
    CaptureState *s;
1276

    
1277
    s = qemu_mallocz (sizeof (*s));
1278
    if (!s) {
1279
        term_printf ("Not enough memory to add wave capture\n");
1280
        return;
1281
    }
1282

    
1283
    freq = has_freq ? freq : 44100;
1284
    bits = has_bits ? bits : 16;
1285
    nchannels = has_channels ? nchannels : 2;
1286

    
1287
    if (wav_start_capture (s, path, freq, bits, nchannels)) {
1288
        term_printf ("Faied to add wave capture\n");
1289
        qemu_free (s);
1290
    }
1291
    LIST_INSERT_HEAD (&capture_head, s, entries);
1292
}
1293
#endif
1294

    
1295
#if defined(TARGET_I386)
1296
static void do_inject_nmi(int cpu_index)
1297
{
1298
    CPUState *env;
1299

    
1300
    for (env = first_cpu; env != NULL; env = env->next_cpu)
1301
        if (env->cpu_index == cpu_index) {
1302
            cpu_interrupt(env, CPU_INTERRUPT_NMI);
1303
            break;
1304
        }
1305
}
1306
#endif
1307

    
1308
static term_cmd_t term_cmds[] = {
1309
    { "help|?", "s?", do_help,
1310
      "[cmd]", "show the help" },
1311
    { "commit", "s", do_commit,
1312
      "device|all", "commit changes to the disk images (if -snapshot is used) or backing files" },
1313
    { "info", "s?", do_info,
1314
      "subcommand", "show various information about the system state" },
1315
    { "q|quit", "", do_quit,
1316
      "", "quit the emulator" },
1317
    { "eject", "-fB", do_eject,
1318
      "[-f] device", "eject a removable medium (use -f to force it)" },
1319
    { "change", "BF", do_change,
1320
      "device filename", "change a removable medium" },
1321
    { "screendump", "F", do_screen_dump,
1322
      "filename", "save screen into PPM image 'filename'" },
1323
    { "logfile", "F", do_logfile,
1324
      "filename", "output logs to 'filename'" },
1325
    { "log", "s", do_log,
1326
      "item1[,...]", "activate logging of the specified items to '/tmp/qemu.log'" },
1327
    { "savevm", "s?", do_savevm,
1328
      "tag|id", "save a VM snapshot. If no tag or id are provided, a new snapshot is created" },
1329
    { "loadvm", "s", do_loadvm,
1330
      "tag|id", "restore a VM snapshot from its tag or id" },
1331
    { "delvm", "s", do_delvm,
1332
      "tag|id", "delete a VM snapshot from its tag or id" },
1333
    { "stop", "", do_stop,
1334
      "", "stop emulation", },
1335
    { "c|cont", "", do_cont,
1336
      "", "resume emulation", },
1337
#ifdef CONFIG_GDBSTUB
1338
    { "gdbserver", "s?", do_gdbserver,
1339
      "[port]", "start gdbserver session (default port=1234)", },
1340
#endif
1341
    { "x", "/l", do_memory_dump,
1342
      "/fmt addr", "virtual memory dump starting at 'addr'", },
1343
    { "xp", "/l", do_physical_memory_dump,
1344
      "/fmt addr", "physical memory dump starting at 'addr'", },
1345
    { "p|print", "/l", do_print,
1346
      "/fmt expr", "print expression value (use $reg for CPU register access)", },
1347
    { "i", "/ii.", do_ioport_read,
1348
      "/fmt addr", "I/O port read" },
1349

    
1350
    { "sendkey", "s", do_send_key,
1351
      "keys", "send keys to the VM (e.g. 'sendkey ctrl-alt-f1')" },
1352
    { "system_reset", "", do_system_reset,
1353
      "", "reset the system" },
1354
    { "system_powerdown", "", do_system_powerdown,
1355
      "", "send system power down event" },
1356
    { "sum", "ii", do_sum,
1357
      "addr size", "compute the checksum of a memory region" },
1358
    { "usb_add", "s", do_usb_add,
1359
      "device", "add USB device (e.g. 'host:bus.addr' or 'host:vendor_id:product_id')" },
1360
    { "usb_del", "s", do_usb_del,
1361
      "device", "remove USB device 'bus.addr'" },
1362
    { "cpu", "i", do_cpu_set,
1363
      "index", "set the default CPU" },
1364
    { "mouse_move", "sss?", do_mouse_move,
1365
      "dx dy [dz]", "send mouse move events" },
1366
    { "mouse_button", "i", do_mouse_button,
1367
      "state", "change mouse button state (1=L, 2=M, 4=R)" },
1368
    { "mouse_set", "i", do_mouse_set,
1369
      "index", "set which mouse device receives events" },
1370
#ifdef HAS_AUDIO
1371
    { "wavcapture", "si?i?i?", do_wav_capture,
1372
      "path [frequency bits channels]",
1373
      "capture audio to a wave file (default frequency=44100 bits=16 channels=2)" },
1374
#endif
1375
     { "stopcapture", "i", do_stop_capture,
1376
       "capture index", "stop capture" },
1377
    { "memsave", "lis", do_memory_save,
1378
      "addr size file", "save to disk virtual memory dump starting at 'addr' of size 'size'", },
1379
    { "pmemsave", "lis", do_physical_memory_save,
1380
      "addr size file", "save to disk physical memory dump starting at 'addr' of size 'size'", },
1381
    { "boot_set", "s", do_boot_set,
1382
      "bootdevice", "define new values for the boot device list" },
1383
#if defined(TARGET_I386)
1384
    { "nmi", "i", do_inject_nmi,
1385
      "cpu", "inject an NMI on the given CPU", },
1386
#endif
1387
    { NULL, NULL, },
1388
};
1389

    
1390
static term_cmd_t info_cmds[] = {
1391
    { "version", "", do_info_version,
1392
      "", "show the version of qemu" },
1393
    { "network", "", do_info_network,
1394
      "", "show the network state" },
1395
    { "block", "", do_info_block,
1396
      "", "show the block devices" },
1397
    { "blockstats", "", do_info_blockstats,
1398
      "", "show block device statistics" },
1399
    { "registers", "", do_info_registers,
1400
      "", "show the cpu registers" },
1401
    { "cpus", "", do_info_cpus,
1402
      "", "show infos for each CPU" },
1403
    { "history", "", do_info_history,
1404
      "", "show the command line history", },
1405
    { "irq", "", irq_info,
1406
      "", "show the interrupts statistics (if available)", },
1407
    { "pic", "", pic_info,
1408
      "", "show i8259 (PIC) state", },
1409
    { "pci", "", pci_info,
1410
      "", "show PCI info", },
1411
#if defined(TARGET_I386)
1412
    { "tlb", "", tlb_info,
1413
      "", "show virtual to physical memory mappings", },
1414
    { "mem", "", mem_info,
1415
      "", "show the active virtual memory mappings", },
1416
#endif
1417
    { "jit", "", do_info_jit,
1418
      "", "show dynamic compiler info", },
1419
    { "kqemu", "", do_info_kqemu,
1420
      "", "show kqemu information", },
1421
    { "usb", "", usb_info,
1422
      "", "show guest USB devices", },
1423
    { "usbhost", "", usb_host_info,
1424
      "", "show host USB devices", },
1425
    { "profile", "", do_info_profile,
1426
      "", "show profiling information", },
1427
    { "capture", "", do_info_capture,
1428
      "", "show capture information" },
1429
    { "snapshots", "", do_info_snapshots,
1430
      "", "show the currently saved VM snapshots" },
1431
    { "pcmcia", "", pcmcia_info,
1432
      "", "show guest PCMCIA status" },
1433
    { "mice", "", do_info_mice,
1434
      "", "show which guest mouse is receiving events" },
1435
    { "vnc", "", do_info_vnc,
1436
      "", "show the vnc server status"},
1437
    { "name", "", do_info_name,
1438
      "", "show the current VM name" },
1439
#if defined(TARGET_PPC)
1440
    { "cpustats", "", do_info_cpu_stats,
1441
      "", "show CPU statistics", },
1442
#endif
1443
#if defined(CONFIG_SLIRP)
1444
    { "slirp", "", do_info_slirp,
1445
      "", "show SLIRP statistics", },
1446
#endif
1447
    { NULL, NULL, },
1448
};
1449

    
1450
/*******************************************************************/
1451

    
1452
static const char *pch;
1453
static jmp_buf expr_env;
1454

    
1455
#define MD_TLONG 0
1456
#define MD_I32   1
1457

    
1458
typedef struct MonitorDef {
1459
    const char *name;
1460
    int offset;
1461
    target_long (*get_value)(struct MonitorDef *md, int val);
1462
    int type;
1463
} MonitorDef;
1464

    
1465
#if defined(TARGET_I386)
1466
static target_long monitor_get_pc (struct MonitorDef *md, int val)
1467
{
1468
    CPUState *env = mon_get_cpu();
1469
    if (!env)
1470
        return 0;
1471
    return env->eip + env->segs[R_CS].base;
1472
}
1473
#endif
1474

    
1475
#if defined(TARGET_PPC)
1476
static target_long monitor_get_ccr (struct MonitorDef *md, int val)
1477
{
1478
    CPUState *env = mon_get_cpu();
1479
    unsigned int u;
1480
    int i;
1481

    
1482
    if (!env)
1483
        return 0;
1484

    
1485
    u = 0;
1486
    for (i = 0; i < 8; i++)
1487
        u |= env->crf[i] << (32 - (4 * i));
1488

    
1489
    return u;
1490
}
1491

    
1492
static target_long monitor_get_msr (struct MonitorDef *md, int val)
1493
{
1494
    CPUState *env = mon_get_cpu();
1495
    if (!env)
1496
        return 0;
1497
    return env->msr;
1498
}
1499

    
1500
static target_long monitor_get_xer (struct MonitorDef *md, int val)
1501
{
1502
    CPUState *env = mon_get_cpu();
1503
    if (!env)
1504
        return 0;
1505
    return ppc_load_xer(env);
1506
}
1507

    
1508
static target_long monitor_get_decr (struct MonitorDef *md, int val)
1509
{
1510
    CPUState *env = mon_get_cpu();
1511
    if (!env)
1512
        return 0;
1513
    return cpu_ppc_load_decr(env);
1514
}
1515

    
1516
static target_long monitor_get_tbu (struct MonitorDef *md, int val)
1517
{
1518
    CPUState *env = mon_get_cpu();
1519
    if (!env)
1520
        return 0;
1521
    return cpu_ppc_load_tbu(env);
1522
}
1523

    
1524
static target_long monitor_get_tbl (struct MonitorDef *md, int val)
1525
{
1526
    CPUState *env = mon_get_cpu();
1527
    if (!env)
1528
        return 0;
1529
    return cpu_ppc_load_tbl(env);
1530
}
1531
#endif
1532

    
1533
#if defined(TARGET_SPARC)
1534
#ifndef TARGET_SPARC64
1535
static target_long monitor_get_psr (struct MonitorDef *md, int val)
1536
{
1537
    CPUState *env = mon_get_cpu();
1538
    if (!env)
1539
        return 0;
1540
    return GET_PSR(env);
1541
}
1542
#endif
1543

    
1544
static target_long monitor_get_reg(struct MonitorDef *md, int val)
1545
{
1546
    CPUState *env = mon_get_cpu();
1547
    if (!env)
1548
        return 0;
1549
    return env->regwptr[val];
1550
}
1551
#endif
1552

    
1553
static MonitorDef monitor_defs[] = {
1554
#ifdef TARGET_I386
1555

    
1556
#define SEG(name, seg) \
1557
    { name, offsetof(CPUState, segs[seg].selector), NULL, MD_I32 },\
1558
    { name ".base", offsetof(CPUState, segs[seg].base) },\
1559
    { name ".limit", offsetof(CPUState, segs[seg].limit), NULL, MD_I32 },
1560

    
1561
    { "eax", offsetof(CPUState, regs[0]) },
1562
    { "ecx", offsetof(CPUState, regs[1]) },
1563
    { "edx", offsetof(CPUState, regs[2]) },
1564
    { "ebx", offsetof(CPUState, regs[3]) },
1565
    { "esp|sp", offsetof(CPUState, regs[4]) },
1566
    { "ebp|fp", offsetof(CPUState, regs[5]) },
1567
    { "esi", offsetof(CPUState, regs[6]) },
1568
    { "edi", offsetof(CPUState, regs[7]) },
1569
#ifdef TARGET_X86_64
1570
    { "r8", offsetof(CPUState, regs[8]) },
1571
    { "r9", offsetof(CPUState, regs[9]) },
1572
    { "r10", offsetof(CPUState, regs[10]) },
1573
    { "r11", offsetof(CPUState, regs[11]) },
1574
    { "r12", offsetof(CPUState, regs[12]) },
1575
    { "r13", offsetof(CPUState, regs[13]) },
1576
    { "r14", offsetof(CPUState, regs[14]) },
1577
    { "r15", offsetof(CPUState, regs[15]) },
1578
#endif
1579
    { "eflags", offsetof(CPUState, eflags) },
1580
    { "eip", offsetof(CPUState, eip) },
1581
    SEG("cs", R_CS)
1582
    SEG("ds", R_DS)
1583
    SEG("es", R_ES)
1584
    SEG("ss", R_SS)
1585
    SEG("fs", R_FS)
1586
    SEG("gs", R_GS)
1587
    { "pc", 0, monitor_get_pc, },
1588
#elif defined(TARGET_PPC)
1589
    /* General purpose registers */
1590
    { "r0", offsetof(CPUState, gpr[0]) },
1591
    { "r1", offsetof(CPUState, gpr[1]) },
1592
    { "r2", offsetof(CPUState, gpr[2]) },
1593
    { "r3", offsetof(CPUState, gpr[3]) },
1594
    { "r4", offsetof(CPUState, gpr[4]) },
1595
    { "r5", offsetof(CPUState, gpr[5]) },
1596
    { "r6", offsetof(CPUState, gpr[6]) },
1597
    { "r7", offsetof(CPUState, gpr[7]) },
1598
    { "r8", offsetof(CPUState, gpr[8]) },
1599
    { "r9", offsetof(CPUState, gpr[9]) },
1600
    { "r10", offsetof(CPUState, gpr[10]) },
1601
    { "r11", offsetof(CPUState, gpr[11]) },
1602
    { "r12", offsetof(CPUState, gpr[12]) },
1603
    { "r13", offsetof(CPUState, gpr[13]) },
1604
    { "r14", offsetof(CPUState, gpr[14]) },
1605
    { "r15", offsetof(CPUState, gpr[15]) },
1606
    { "r16", offsetof(CPUState, gpr[16]) },
1607
    { "r17", offsetof(CPUState, gpr[17]) },
1608
    { "r18", offsetof(CPUState, gpr[18]) },
1609
    { "r19", offsetof(CPUState, gpr[19]) },
1610
    { "r20", offsetof(CPUState, gpr[20]) },
1611
    { "r21", offsetof(CPUState, gpr[21]) },
1612
    { "r22", offsetof(CPUState, gpr[22]) },
1613
    { "r23", offsetof(CPUState, gpr[23]) },
1614
    { "r24", offsetof(CPUState, gpr[24]) },
1615
    { "r25", offsetof(CPUState, gpr[25]) },
1616
    { "r26", offsetof(CPUState, gpr[26]) },
1617
    { "r27", offsetof(CPUState, gpr[27]) },
1618
    { "r28", offsetof(CPUState, gpr[28]) },
1619
    { "r29", offsetof(CPUState, gpr[29]) },
1620
    { "r30", offsetof(CPUState, gpr[30]) },
1621
    { "r31", offsetof(CPUState, gpr[31]) },
1622
    /* Floating point registers */
1623
    { "f0", offsetof(CPUState, fpr[0]) },
1624
    { "f1", offsetof(CPUState, fpr[1]) },
1625
    { "f2", offsetof(CPUState, fpr[2]) },
1626
    { "f3", offsetof(CPUState, fpr[3]) },
1627
    { "f4", offsetof(CPUState, fpr[4]) },
1628
    { "f5", offsetof(CPUState, fpr[5]) },
1629
    { "f6", offsetof(CPUState, fpr[6]) },
1630
    { "f7", offsetof(CPUState, fpr[7]) },
1631
    { "f8", offsetof(CPUState, fpr[8]) },
1632
    { "f9", offsetof(CPUState, fpr[9]) },
1633
    { "f10", offsetof(CPUState, fpr[10]) },
1634
    { "f11", offsetof(CPUState, fpr[11]) },
1635
    { "f12", offsetof(CPUState, fpr[12]) },
1636
    { "f13", offsetof(CPUState, fpr[13]) },
1637
    { "f14", offsetof(CPUState, fpr[14]) },
1638
    { "f15", offsetof(CPUState, fpr[15]) },
1639
    { "f16", offsetof(CPUState, fpr[16]) },
1640
    { "f17", offsetof(CPUState, fpr[17]) },
1641
    { "f18", offsetof(CPUState, fpr[18]) },
1642
    { "f19", offsetof(CPUState, fpr[19]) },
1643
    { "f20", offsetof(CPUState, fpr[20]) },
1644
    { "f21", offsetof(CPUState, fpr[21]) },
1645
    { "f22", offsetof(CPUState, fpr[22]) },
1646
    { "f23", offsetof(CPUState, fpr[23]) },
1647
    { "f24", offsetof(CPUState, fpr[24]) },
1648
    { "f25", offsetof(CPUState, fpr[25]) },
1649
    { "f26", offsetof(CPUState, fpr[26]) },
1650
    { "f27", offsetof(CPUState, fpr[27]) },
1651
    { "f28", offsetof(CPUState, fpr[28]) },
1652
    { "f29", offsetof(CPUState, fpr[29]) },
1653
    { "f30", offsetof(CPUState, fpr[30]) },
1654
    { "f31", offsetof(CPUState, fpr[31]) },
1655
    { "fpscr", offsetof(CPUState, fpscr) },
1656
    /* Next instruction pointer */
1657
    { "nip|pc", offsetof(CPUState, nip) },
1658
    { "lr", offsetof(CPUState, lr) },
1659
    { "ctr", offsetof(CPUState, ctr) },
1660
    { "decr", 0, &monitor_get_decr, },
1661
    { "ccr", 0, &monitor_get_ccr, },
1662
    /* Machine state register */
1663
    { "msr", 0, &monitor_get_msr, },
1664
    { "xer", 0, &monitor_get_xer, },
1665
    { "tbu", 0, &monitor_get_tbu, },
1666
    { "tbl", 0, &monitor_get_tbl, },
1667
#if defined(TARGET_PPC64)
1668
    /* Address space register */
1669
    { "asr", offsetof(CPUState, asr) },
1670
#endif
1671
    /* Segment registers */
1672
    { "sdr1", offsetof(CPUState, sdr1) },
1673
    { "sr0", offsetof(CPUState, sr[0]) },
1674
    { "sr1", offsetof(CPUState, sr[1]) },
1675
    { "sr2", offsetof(CPUState, sr[2]) },
1676
    { "sr3", offsetof(CPUState, sr[3]) },
1677
    { "sr4", offsetof(CPUState, sr[4]) },
1678
    { "sr5", offsetof(CPUState, sr[5]) },
1679
    { "sr6", offsetof(CPUState, sr[6]) },
1680
    { "sr7", offsetof(CPUState, sr[7]) },
1681
    { "sr8", offsetof(CPUState, sr[8]) },
1682
    { "sr9", offsetof(CPUState, sr[9]) },
1683
    { "sr10", offsetof(CPUState, sr[10]) },
1684
    { "sr11", offsetof(CPUState, sr[11]) },
1685
    { "sr12", offsetof(CPUState, sr[12]) },
1686
    { "sr13", offsetof(CPUState, sr[13]) },
1687
    { "sr14", offsetof(CPUState, sr[14]) },
1688
    { "sr15", offsetof(CPUState, sr[15]) },
1689
    /* Too lazy to put BATs and SPRs ... */
1690
#elif defined(TARGET_SPARC)
1691
    { "g0", offsetof(CPUState, gregs[0]) },
1692
    { "g1", offsetof(CPUState, gregs[1]) },
1693
    { "g2", offsetof(CPUState, gregs[2]) },
1694
    { "g3", offsetof(CPUState, gregs[3]) },
1695
    { "g4", offsetof(CPUState, gregs[4]) },
1696
    { "g5", offsetof(CPUState, gregs[5]) },
1697
    { "g6", offsetof(CPUState, gregs[6]) },
1698
    { "g7", offsetof(CPUState, gregs[7]) },
1699
    { "o0", 0, monitor_get_reg },
1700
    { "o1", 1, monitor_get_reg },
1701
    { "o2", 2, monitor_get_reg },
1702
    { "o3", 3, monitor_get_reg },
1703
    { "o4", 4, monitor_get_reg },
1704
    { "o5", 5, monitor_get_reg },
1705
    { "o6", 6, monitor_get_reg },
1706
    { "o7", 7, monitor_get_reg },
1707
    { "l0", 8, monitor_get_reg },
1708
    { "l1", 9, monitor_get_reg },
1709
    { "l2", 10, monitor_get_reg },
1710
    { "l3", 11, monitor_get_reg },
1711
    { "l4", 12, monitor_get_reg },
1712
    { "l5", 13, monitor_get_reg },
1713
    { "l6", 14, monitor_get_reg },
1714
    { "l7", 15, monitor_get_reg },
1715
    { "i0", 16, monitor_get_reg },
1716
    { "i1", 17, monitor_get_reg },
1717
    { "i2", 18, monitor_get_reg },
1718
    { "i3", 19, monitor_get_reg },
1719
    { "i4", 20, monitor_get_reg },
1720
    { "i5", 21, monitor_get_reg },
1721
    { "i6", 22, monitor_get_reg },
1722
    { "i7", 23, monitor_get_reg },
1723
    { "pc", offsetof(CPUState, pc) },
1724
    { "npc", offsetof(CPUState, npc) },
1725
    { "y", offsetof(CPUState, y) },
1726
#ifndef TARGET_SPARC64
1727
    { "psr", 0, &monitor_get_psr, },
1728
    { "wim", offsetof(CPUState, wim) },
1729
#endif
1730
    { "tbr", offsetof(CPUState, tbr) },
1731
    { "fsr", offsetof(CPUState, fsr) },
1732
    { "f0", offsetof(CPUState, fpr[0]) },
1733
    { "f1", offsetof(CPUState, fpr[1]) },
1734
    { "f2", offsetof(CPUState, fpr[2]) },
1735
    { "f3", offsetof(CPUState, fpr[3]) },
1736
    { "f4", offsetof(CPUState, fpr[4]) },
1737
    { "f5", offsetof(CPUState, fpr[5]) },
1738
    { "f6", offsetof(CPUState, fpr[6]) },
1739
    { "f7", offsetof(CPUState, fpr[7]) },
1740
    { "f8", offsetof(CPUState, fpr[8]) },
1741
    { "f9", offsetof(CPUState, fpr[9]) },
1742
    { "f10", offsetof(CPUState, fpr[10]) },
1743
    { "f11", offsetof(CPUState, fpr[11]) },
1744
    { "f12", offsetof(CPUState, fpr[12]) },
1745
    { "f13", offsetof(CPUState, fpr[13]) },
1746
    { "f14", offsetof(CPUState, fpr[14]) },
1747
    { "f15", offsetof(CPUState, fpr[15]) },
1748
    { "f16", offsetof(CPUState, fpr[16]) },
1749
    { "f17", offsetof(CPUState, fpr[17]) },
1750
    { "f18", offsetof(CPUState, fpr[18]) },
1751
    { "f19", offsetof(CPUState, fpr[19]) },
1752
    { "f20", offsetof(CPUState, fpr[20]) },
1753
    { "f21", offsetof(CPUState, fpr[21]) },
1754
    { "f22", offsetof(CPUState, fpr[22]) },
1755
    { "f23", offsetof(CPUState, fpr[23]) },
1756
    { "f24", offsetof(CPUState, fpr[24]) },
1757
    { "f25", offsetof(CPUState, fpr[25]) },
1758
    { "f26", offsetof(CPUState, fpr[26]) },
1759
    { "f27", offsetof(CPUState, fpr[27]) },
1760
    { "f28", offsetof(CPUState, fpr[28]) },
1761
    { "f29", offsetof(CPUState, fpr[29]) },
1762
    { "f30", offsetof(CPUState, fpr[30]) },
1763
    { "f31", offsetof(CPUState, fpr[31]) },
1764
#ifdef TARGET_SPARC64
1765
    { "f32", offsetof(CPUState, fpr[32]) },
1766
    { "f34", offsetof(CPUState, fpr[34]) },
1767
    { "f36", offsetof(CPUState, fpr[36]) },
1768
    { "f38", offsetof(CPUState, fpr[38]) },
1769
    { "f40", offsetof(CPUState, fpr[40]) },
1770
    { "f42", offsetof(CPUState, fpr[42]) },
1771
    { "f44", offsetof(CPUState, fpr[44]) },
1772
    { "f46", offsetof(CPUState, fpr[46]) },
1773
    { "f48", offsetof(CPUState, fpr[48]) },
1774
    { "f50", offsetof(CPUState, fpr[50]) },
1775
    { "f52", offsetof(CPUState, fpr[52]) },
1776
    { "f54", offsetof(CPUState, fpr[54]) },
1777
    { "f56", offsetof(CPUState, fpr[56]) },
1778
    { "f58", offsetof(CPUState, fpr[58]) },
1779
    { "f60", offsetof(CPUState, fpr[60]) },
1780
    { "f62", offsetof(CPUState, fpr[62]) },
1781
    { "asi", offsetof(CPUState, asi) },
1782
    { "pstate", offsetof(CPUState, pstate) },
1783
    { "cansave", offsetof(CPUState, cansave) },
1784
    { "canrestore", offsetof(CPUState, canrestore) },
1785
    { "otherwin", offsetof(CPUState, otherwin) },
1786
    { "wstate", offsetof(CPUState, wstate) },
1787
    { "cleanwin", offsetof(CPUState, cleanwin) },
1788
    { "fprs", offsetof(CPUState, fprs) },
1789
#endif
1790
#endif
1791
    { NULL },
1792
};
1793

    
1794
static void expr_error(const char *fmt)
1795
{
1796
    term_printf(fmt);
1797
    term_printf("\n");
1798
    longjmp(expr_env, 1);
1799
}
1800

    
1801
/* return 0 if OK, -1 if not found, -2 if no CPU defined */
1802
static int get_monitor_def(target_long *pval, const char *name)
1803
{
1804
    MonitorDef *md;
1805
    void *ptr;
1806

    
1807
    for(md = monitor_defs; md->name != NULL; md++) {
1808
        if (compare_cmd(name, md->name)) {
1809
            if (md->get_value) {
1810
                *pval = md->get_value(md, md->offset);
1811
            } else {
1812
                CPUState *env = mon_get_cpu();
1813
                if (!env)
1814
                    return -2;
1815
                ptr = (uint8_t *)env + md->offset;
1816
                switch(md->type) {
1817
                case MD_I32:
1818
                    *pval = *(int32_t *)ptr;
1819
                    break;
1820
                case MD_TLONG:
1821
                    *pval = *(target_long *)ptr;
1822
                    break;
1823
                default:
1824
                    *pval = 0;
1825
                    break;
1826
                }
1827
            }
1828
            return 0;
1829
        }
1830
    }
1831
    return -1;
1832
}
1833

    
1834
static void next(void)
1835
{
1836
    if (pch != '\0') {
1837
        pch++;
1838
        while (isspace(*pch))
1839
            pch++;
1840
    }
1841
}
1842

    
1843
static int64_t expr_sum(void);
1844

    
1845
static int64_t expr_unary(void)
1846
{
1847
    int64_t n;
1848
    char *p;
1849
    int ret;
1850

    
1851
    switch(*pch) {
1852
    case '+':
1853
        next();
1854
        n = expr_unary();
1855
        break;
1856
    case '-':
1857
        next();
1858
        n = -expr_unary();
1859
        break;
1860
    case '~':
1861
        next();
1862
        n = ~expr_unary();
1863
        break;
1864
    case '(':
1865
        next();
1866
        n = expr_sum();
1867
        if (*pch != ')') {
1868
            expr_error("')' expected");
1869
        }
1870
        next();
1871
        break;
1872
    case '\'':
1873
        pch++;
1874
        if (*pch == '\0')
1875
            expr_error("character constant expected");
1876
        n = *pch;
1877
        pch++;
1878
        if (*pch != '\'')
1879
            expr_error("missing terminating \' character");
1880
        next();
1881
        break;
1882
    case '$':
1883
        {
1884
            char buf[128], *q;
1885
            target_long reg=0;
1886

    
1887
            pch++;
1888
            q = buf;
1889
            while ((*pch >= 'a' && *pch <= 'z') ||
1890
                   (*pch >= 'A' && *pch <= 'Z') ||
1891
                   (*pch >= '0' && *pch <= '9') ||
1892
                   *pch == '_' || *pch == '.') {
1893
                if ((q - buf) < sizeof(buf) - 1)
1894
                    *q++ = *pch;
1895
                pch++;
1896
            }
1897
            while (isspace(*pch))
1898
                pch++;
1899
            *q = 0;
1900
            ret = get_monitor_def(&reg, buf);
1901
            if (ret == -1)
1902
                expr_error("unknown register");
1903
            else if (ret == -2)
1904
                expr_error("no cpu defined");
1905
            n = reg;
1906
        }
1907
        break;
1908
    case '\0':
1909
        expr_error("unexpected end of expression");
1910
        n = 0;
1911
        break;
1912
    default:
1913
#if TARGET_PHYS_ADDR_BITS > 32
1914
        n = strtoull(pch, &p, 0);
1915
#else
1916
        n = strtoul(pch, &p, 0);
1917
#endif
1918
        if (pch == p) {
1919
            expr_error("invalid char in expression");
1920
        }
1921
        pch = p;
1922
        while (isspace(*pch))
1923
            pch++;
1924
        break;
1925
    }
1926
    return n;
1927
}
1928

    
1929

    
1930
static int64_t expr_prod(void)
1931
{
1932
    int64_t val, val2;
1933
    int op;
1934

    
1935
    val = expr_unary();
1936
    for(;;) {
1937
        op = *pch;
1938
        if (op != '*' && op != '/' && op != '%')
1939
            break;
1940
        next();
1941
        val2 = expr_unary();
1942
        switch(op) {
1943
        default:
1944
        case '*':
1945
            val *= val2;
1946
            break;
1947
        case '/':
1948
        case '%':
1949
            if (val2 == 0)
1950
                expr_error("division by zero");
1951
            if (op == '/')
1952
                val /= val2;
1953
            else
1954
                val %= val2;
1955
            break;
1956
        }
1957
    }
1958
    return val;
1959
}
1960

    
1961
static int64_t expr_logic(void)
1962
{
1963
    int64_t val, val2;
1964
    int op;
1965

    
1966
    val = expr_prod();
1967
    for(;;) {
1968
        op = *pch;
1969
        if (op != '&' && op != '|' && op != '^')
1970
            break;
1971
        next();
1972
        val2 = expr_prod();
1973
        switch(op) {
1974
        default:
1975
        case '&':
1976
            val &= val2;
1977
            break;
1978
        case '|':
1979
            val |= val2;
1980
            break;
1981
        case '^':
1982
            val ^= val2;
1983
            break;
1984
        }
1985
    }
1986
    return val;
1987
}
1988

    
1989
static int64_t expr_sum(void)
1990
{
1991
    int64_t val, val2;
1992
    int op;
1993

    
1994
    val = expr_logic();
1995
    for(;;) {
1996
        op = *pch;
1997
        if (op != '+' && op != '-')
1998
            break;
1999
        next();
2000
        val2 = expr_logic();
2001
        if (op == '+')
2002
            val += val2;
2003
        else
2004
            val -= val2;
2005
    }
2006
    return val;
2007
}
2008

    
2009
static int get_expr(int64_t *pval, const char **pp)
2010
{
2011
    pch = *pp;
2012
    if (setjmp(expr_env)) {
2013
        *pp = pch;
2014
        return -1;
2015
    }
2016
    while (isspace(*pch))
2017
        pch++;
2018
    *pval = expr_sum();
2019
    *pp = pch;
2020
    return 0;
2021
}
2022

    
2023
static int get_str(char *buf, int buf_size, const char **pp)
2024
{
2025
    const char *p;
2026
    char *q;
2027
    int c;
2028

    
2029
    q = buf;
2030
    p = *pp;
2031
    while (isspace(*p))
2032
        p++;
2033
    if (*p == '\0') {
2034
    fail:
2035
        *q = '\0';
2036
        *pp = p;
2037
        return -1;
2038
    }
2039
    if (*p == '\"') {
2040
        p++;
2041
        while (*p != '\0' && *p != '\"') {
2042
            if (*p == '\\') {
2043
                p++;
2044
                c = *p++;
2045
                switch(c) {
2046
                case 'n':
2047
                    c = '\n';
2048
                    break;
2049
                case 'r':
2050
                    c = '\r';
2051
                    break;
2052
                case '\\':
2053
                case '\'':
2054
                case '\"':
2055
                    break;
2056
                default:
2057
                    qemu_printf("unsupported escape code: '\\%c'\n", c);
2058
                    goto fail;
2059
                }
2060
                if ((q - buf) < buf_size - 1) {
2061
                    *q++ = c;
2062
                }
2063
            } else {
2064
                if ((q - buf) < buf_size - 1) {
2065
                    *q++ = *p;
2066
                }
2067
                p++;
2068
            }
2069
        }
2070
        if (*p != '\"') {
2071
            qemu_printf("unterminated string\n");
2072
            goto fail;
2073
        }
2074
        p++;
2075
    } else {
2076
        while (*p != '\0' && !isspace(*p)) {
2077
            if ((q - buf) < buf_size - 1) {
2078
                *q++ = *p;
2079
            }
2080
            p++;
2081
        }
2082
    }
2083
    *q = '\0';
2084
    *pp = p;
2085
    return 0;
2086
}
2087

    
2088
static int default_fmt_format = 'x';
2089
static int default_fmt_size = 4;
2090

    
2091
#define MAX_ARGS 16
2092

    
2093
static void monitor_handle_command(const char *cmdline)
2094
{
2095
    const char *p, *pstart, *typestr;
2096
    char *q;
2097
    int c, nb_args, len, i, has_arg;
2098
    term_cmd_t *cmd;
2099
    char cmdname[256];
2100
    char buf[1024];
2101
    void *str_allocated[MAX_ARGS];
2102
    void *args[MAX_ARGS];
2103

    
2104
#ifdef DEBUG
2105
    term_printf("command='%s'\n", cmdline);
2106
#endif
2107

    
2108
    /* extract the command name */
2109
    p = cmdline;
2110
    q = cmdname;
2111
    while (isspace(*p))
2112
        p++;
2113
    if (*p == '\0')
2114
        return;
2115
    pstart = p;
2116
    while (*p != '\0' && *p != '/' && !isspace(*p))
2117
        p++;
2118
    len = p - pstart;
2119
    if (len > sizeof(cmdname) - 1)
2120
        len = sizeof(cmdname) - 1;
2121
    memcpy(cmdname, pstart, len);
2122
    cmdname[len] = '\0';
2123

    
2124
    /* find the command */
2125
    for(cmd = term_cmds; cmd->name != NULL; cmd++) {
2126
        if (compare_cmd(cmdname, cmd->name))
2127
            goto found;
2128
    }
2129
    term_printf("unknown command: '%s'\n", cmdname);
2130
    return;
2131
 found:
2132

    
2133
    for(i = 0; i < MAX_ARGS; i++)
2134
        str_allocated[i] = NULL;
2135

    
2136
    /* parse the parameters */
2137
    typestr = cmd->args_type;
2138
    nb_args = 0;
2139
    for(;;) {
2140
        c = *typestr;
2141
        if (c == '\0')
2142
            break;
2143
        typestr++;
2144
        switch(c) {
2145
        case 'F':
2146
        case 'B':
2147
        case 's':
2148
            {
2149
                int ret;
2150
                char *str;
2151

    
2152
                while (isspace(*p))
2153
                    p++;
2154
                if (*typestr == '?') {
2155
                    typestr++;
2156
                    if (*p == '\0') {
2157
                        /* no optional string: NULL argument */
2158
                        str = NULL;
2159
                        goto add_str;
2160
                    }
2161
                }
2162
                ret = get_str(buf, sizeof(buf), &p);
2163
                if (ret < 0) {
2164
                    switch(c) {
2165
                    case 'F':
2166
                        term_printf("%s: filename expected\n", cmdname);
2167
                        break;
2168
                    case 'B':
2169
                        term_printf("%s: block device name expected\n", cmdname);
2170
                        break;
2171
                    default:
2172
                        term_printf("%s: string expected\n", cmdname);
2173
                        break;
2174
                    }
2175
                    goto fail;
2176
                }
2177
                str = qemu_malloc(strlen(buf) + 1);
2178
                strcpy(str, buf);
2179
                str_allocated[nb_args] = str;
2180
            add_str:
2181
                if (nb_args >= MAX_ARGS) {
2182
                error_args:
2183
                    term_printf("%s: too many arguments\n", cmdname);
2184
                    goto fail;
2185
                }
2186
                args[nb_args++] = str;
2187
            }
2188
            break;
2189
        case '/':
2190
            {
2191
                int count, format, size;
2192

    
2193
                while (isspace(*p))
2194
                    p++;
2195
                if (*p == '/') {
2196
                    /* format found */
2197
                    p++;
2198
                    count = 1;
2199
                    if (isdigit(*p)) {
2200
                        count = 0;
2201
                        while (isdigit(*p)) {
2202
                            count = count * 10 + (*p - '0');
2203
                            p++;
2204
                        }
2205
                    }
2206
                    size = -1;
2207
                    format = -1;
2208
                    for(;;) {
2209
                        switch(*p) {
2210
                        case 'o':
2211
                        case 'd':
2212
                        case 'u':
2213
                        case 'x':
2214
                        case 'i':
2215
                        case 'c':
2216
                            format = *p++;
2217
                            break;
2218
                        case 'b':
2219
                            size = 1;
2220
                            p++;
2221
                            break;
2222
                        case 'h':
2223
                            size = 2;
2224
                            p++;
2225
                            break;
2226
                        case 'w':
2227
                            size = 4;
2228
                            p++;
2229
                            break;
2230
                        case 'g':
2231
                        case 'L':
2232
                            size = 8;
2233
                            p++;
2234
                            break;
2235
                        default:
2236
                            goto next;
2237
                        }
2238
                    }
2239
                next:
2240
                    if (*p != '\0' && !isspace(*p)) {
2241
                        term_printf("invalid char in format: '%c'\n", *p);
2242
                        goto fail;
2243
                    }
2244
                    if (format < 0)
2245
                        format = default_fmt_format;
2246
                    if (format != 'i') {
2247
                        /* for 'i', not specifying a size gives -1 as size */
2248
                        if (size < 0)
2249
                            size = default_fmt_size;
2250
                    }
2251
                    default_fmt_size = size;
2252
                    default_fmt_format = format;
2253
                } else {
2254
                    count = 1;
2255
                    format = default_fmt_format;
2256
                    if (format != 'i') {
2257
                        size = default_fmt_size;
2258
                    } else {
2259
                        size = -1;
2260
                    }
2261
                }
2262
                if (nb_args + 3 > MAX_ARGS)
2263
                    goto error_args;
2264
                args[nb_args++] = (void*)(long)count;
2265
                args[nb_args++] = (void*)(long)format;
2266
                args[nb_args++] = (void*)(long)size;
2267
            }
2268
            break;
2269
        case 'i':
2270
        case 'l':
2271
            {
2272
                int64_t val;
2273

    
2274
                while (isspace(*p))
2275
                    p++;
2276
                if (*typestr == '?' || *typestr == '.') {
2277
                    if (*typestr == '?') {
2278
                        if (*p == '\0')
2279
                            has_arg = 0;
2280
                        else
2281
                            has_arg = 1;
2282
                    } else {
2283
                        if (*p == '.') {
2284
                            p++;
2285
                            while (isspace(*p))
2286
                                p++;
2287
                            has_arg = 1;
2288
                        } else {
2289
                            has_arg = 0;
2290
                        }
2291
                    }
2292
                    typestr++;
2293
                    if (nb_args >= MAX_ARGS)
2294
                        goto error_args;
2295
                    args[nb_args++] = (void *)(long)has_arg;
2296
                    if (!has_arg) {
2297
                        if (nb_args >= MAX_ARGS)
2298
                            goto error_args;
2299
                        val = -1;
2300
                        goto add_num;
2301
                    }
2302
                }
2303
                if (get_expr(&val, &p))
2304
                    goto fail;
2305
            add_num:
2306
                if (c == 'i') {
2307
                    if (nb_args >= MAX_ARGS)
2308
                        goto error_args;
2309
                    args[nb_args++] = (void *)(long)val;
2310
                } else {
2311
                    if ((nb_args + 1) >= MAX_ARGS)
2312
                        goto error_args;
2313
#if TARGET_PHYS_ADDR_BITS > 32
2314
                    args[nb_args++] = (void *)(long)((val >> 32) & 0xffffffff);
2315
#else
2316
                    args[nb_args++] = (void *)0;
2317
#endif
2318
                    args[nb_args++] = (void *)(long)(val & 0xffffffff);
2319
                }
2320
            }
2321
            break;
2322
        case '-':
2323
            {
2324
                int has_option;
2325
                /* option */
2326

    
2327
                c = *typestr++;
2328
                if (c == '\0')
2329
                    goto bad_type;
2330
                while (isspace(*p))
2331
                    p++;
2332
                has_option = 0;
2333
                if (*p == '-') {
2334
                    p++;
2335
                    if (*p != c) {
2336
                        term_printf("%s: unsupported option -%c\n",
2337
                                    cmdname, *p);
2338
                        goto fail;
2339
                    }
2340
                    p++;
2341
                    has_option = 1;
2342
                }
2343
                if (nb_args >= MAX_ARGS)
2344
                    goto error_args;
2345
                args[nb_args++] = (void *)(long)has_option;
2346
            }
2347
            break;
2348
        default:
2349
        bad_type:
2350
            term_printf("%s: unknown type '%c'\n", cmdname, c);
2351
            goto fail;
2352
        }
2353
    }
2354
    /* check that all arguments were parsed */
2355
    while (isspace(*p))
2356
        p++;
2357
    if (*p != '\0') {
2358
        term_printf("%s: extraneous characters at the end of line\n",
2359
                    cmdname);
2360
        goto fail;
2361
    }
2362

    
2363
    switch(nb_args) {
2364
    case 0:
2365
        cmd->handler();
2366
        break;
2367
    case 1:
2368
        cmd->handler(args[0]);
2369
        break;
2370
    case 2:
2371
        cmd->handler(args[0], args[1]);
2372
        break;
2373
    case 3:
2374
        cmd->handler(args[0], args[1], args[2]);
2375
        break;
2376
    case 4:
2377
        cmd->handler(args[0], args[1], args[2], args[3]);
2378
        break;
2379
    case 5:
2380
        cmd->handler(args[0], args[1], args[2], args[3], args[4]);
2381
        break;
2382
    case 6:
2383
        cmd->handler(args[0], args[1], args[2], args[3], args[4], args[5]);
2384
        break;
2385
    case 7:
2386
        cmd->handler(args[0], args[1], args[2], args[3], args[4], args[5], args[6]);
2387
        break;
2388
    default:
2389
        term_printf("unsupported number of arguments: %d\n", nb_args);
2390
        goto fail;
2391
    }
2392
 fail:
2393
    for(i = 0; i < MAX_ARGS; i++)
2394
        qemu_free(str_allocated[i]);
2395
    return;
2396
}
2397

    
2398
static void cmd_completion(const char *name, const char *list)
2399
{
2400
    const char *p, *pstart;
2401
    char cmd[128];
2402
    int len;
2403

    
2404
    p = list;
2405
    for(;;) {
2406
        pstart = p;
2407
        p = strchr(p, '|');
2408
        if (!p)
2409
            p = pstart + strlen(pstart);
2410
        len = p - pstart;
2411
        if (len > sizeof(cmd) - 2)
2412
            len = sizeof(cmd) - 2;
2413
        memcpy(cmd, pstart, len);
2414
        cmd[len] = '\0';
2415
        if (name[0] == '\0' || !strncmp(name, cmd, strlen(name))) {
2416
            add_completion(cmd);
2417
        }
2418
        if (*p == '\0')
2419
            break;
2420
        p++;
2421
    }
2422
}
2423

    
2424
static void file_completion(const char *input)
2425
{
2426
    DIR *ffs;
2427
    struct dirent *d;
2428
    char path[1024];
2429
    char file[1024], file_prefix[1024];
2430
    int input_path_len;
2431
    const char *p;
2432

    
2433
    p = strrchr(input, '/');
2434
    if (!p) {
2435
        input_path_len = 0;
2436
        pstrcpy(file_prefix, sizeof(file_prefix), input);
2437
        strcpy(path, ".");
2438
    } else {
2439
        input_path_len = p - input + 1;
2440
        memcpy(path, input, input_path_len);
2441
        if (input_path_len > sizeof(path) - 1)
2442
            input_path_len = sizeof(path) - 1;
2443
        path[input_path_len] = '\0';
2444
        pstrcpy(file_prefix, sizeof(file_prefix), p + 1);
2445
    }
2446
#ifdef DEBUG_COMPLETION
2447
    term_printf("input='%s' path='%s' prefix='%s'\n", input, path, file_prefix);
2448
#endif
2449
    ffs = opendir(path);
2450
    if (!ffs)
2451
        return;
2452
    for(;;) {
2453
        struct stat sb;
2454
        d = readdir(ffs);
2455
        if (!d)
2456
            break;
2457
        if (strstart(d->d_name, file_prefix, NULL)) {
2458
            memcpy(file, input, input_path_len);
2459
            strcpy(file + input_path_len, d->d_name);
2460
            /* stat the file to find out if it's a directory.
2461
             * In that case add a slash to speed up typing long paths
2462
             */
2463
            stat(file, &sb);
2464
            if(S_ISDIR(sb.st_mode))
2465
                strcat(file, "/");
2466
            add_completion(file);
2467
        }
2468
    }
2469
    closedir(ffs);
2470
}
2471

    
2472
static void block_completion_it(void *opaque, const char *name)
2473
{
2474
    const char *input = opaque;
2475

    
2476
    if (input[0] == '\0' ||
2477
        !strncmp(name, (char *)input, strlen(input))) {
2478
        add_completion(name);
2479
    }
2480
}
2481

    
2482
/* NOTE: this parser is an approximate form of the real command parser */
2483
static void parse_cmdline(const char *cmdline,
2484
                         int *pnb_args, char **args)
2485
{
2486
    const char *p;
2487
    int nb_args, ret;
2488
    char buf[1024];
2489

    
2490
    p = cmdline;
2491
    nb_args = 0;
2492
    for(;;) {
2493
        while (isspace(*p))
2494
            p++;
2495
        if (*p == '\0')
2496
            break;
2497
        if (nb_args >= MAX_ARGS)
2498
            break;
2499
        ret = get_str(buf, sizeof(buf), &p);
2500
        args[nb_args] = qemu_strdup(buf);
2501
        nb_args++;
2502
        if (ret < 0)
2503
            break;
2504
    }
2505
    *pnb_args = nb_args;
2506
}
2507

    
2508
void readline_find_completion(const char *cmdline)
2509
{
2510
    const char *cmdname;
2511
    char *args[MAX_ARGS];
2512
    int nb_args, i, len;
2513
    const char *ptype, *str;
2514
    term_cmd_t *cmd;
2515
    const KeyDef *key;
2516

    
2517
    parse_cmdline(cmdline, &nb_args, args);
2518
#ifdef DEBUG_COMPLETION
2519
    for(i = 0; i < nb_args; i++) {
2520
        term_printf("arg%d = '%s'\n", i, (char *)args[i]);
2521
    }
2522
#endif
2523

    
2524
    /* if the line ends with a space, it means we want to complete the
2525
       next arg */
2526
    len = strlen(cmdline);
2527
    if (len > 0 && isspace(cmdline[len - 1])) {
2528
        if (nb_args >= MAX_ARGS)
2529
            return;
2530
        args[nb_args++] = qemu_strdup("");
2531
    }
2532
    if (nb_args <= 1) {
2533
        /* command completion */
2534
        if (nb_args == 0)
2535
            cmdname = "";
2536
        else
2537
            cmdname = args[0];
2538
        completion_index = strlen(cmdname);
2539
        for(cmd = term_cmds; cmd->name != NULL; cmd++) {
2540
            cmd_completion(cmdname, cmd->name);
2541
        }
2542
    } else {
2543
        /* find the command */
2544
        for(cmd = term_cmds; cmd->name != NULL; cmd++) {
2545
            if (compare_cmd(args[0], cmd->name))
2546
                goto found;
2547
        }
2548
        return;
2549
    found:
2550
        ptype = cmd->args_type;
2551
        for(i = 0; i < nb_args - 2; i++) {
2552
            if (*ptype != '\0') {
2553
                ptype++;
2554
                while (*ptype == '?')
2555
                    ptype++;
2556
            }
2557
        }
2558
        str = args[nb_args - 1];
2559
        switch(*ptype) {
2560
        case 'F':
2561
            /* file completion */
2562
            completion_index = strlen(str);
2563
            file_completion(str);
2564
            break;
2565
        case 'B':
2566
            /* block device name completion */
2567
            completion_index = strlen(str);
2568
            bdrv_iterate(block_completion_it, (void *)str);
2569
            break;
2570
        case 's':
2571
            /* XXX: more generic ? */
2572
            if (!strcmp(cmd->name, "info")) {
2573
                completion_index = strlen(str);
2574
                for(cmd = info_cmds; cmd->name != NULL; cmd++) {
2575
                    cmd_completion(str, cmd->name);
2576
                }
2577
            } else if (!strcmp(cmd->name, "sendkey")) {
2578
                completion_index = strlen(str);
2579
                for(key = key_defs; key->name != NULL; key++) {
2580
                    cmd_completion(str, key->name);
2581
                }
2582
            }
2583
            break;
2584
        default:
2585
            break;
2586
        }
2587
    }
2588
    for(i = 0; i < nb_args; i++)
2589
        qemu_free(args[i]);
2590
}
2591

    
2592
static int term_can_read(void *opaque)
2593
{
2594
    return 128;
2595
}
2596

    
2597
static void term_read(void *opaque, const uint8_t *buf, int size)
2598
{
2599
    int i;
2600
    for(i = 0; i < size; i++)
2601
        readline_handle_byte(buf[i]);
2602
}
2603

    
2604
static void monitor_start_input(void);
2605

    
2606
static void monitor_handle_command1(void *opaque, const char *cmdline)
2607
{
2608
    monitor_handle_command(cmdline);
2609
    monitor_start_input();
2610
}
2611

    
2612
static void monitor_start_input(void)
2613
{
2614
    readline_start("(qemu) ", 0, monitor_handle_command1, NULL);
2615
}
2616

    
2617
static void term_event(void *opaque, int event)
2618
{
2619
    if (event != CHR_EVENT_RESET)
2620
        return;
2621

    
2622
    if (!hide_banner)
2623
            term_printf("QEMU %s monitor - type 'help' for more information\n",
2624
                        QEMU_VERSION);
2625
    monitor_start_input();
2626
}
2627

    
2628
static int is_first_init = 1;
2629

    
2630
void monitor_init(CharDriverState *hd, int show_banner)
2631
{
2632
    int i;
2633

    
2634
    if (is_first_init) {
2635
        for (i = 0; i < MAX_MON; i++) {
2636
            monitor_hd[i] = NULL;
2637
        }
2638
        is_first_init = 0;
2639
    }
2640
    for (i = 0; i < MAX_MON; i++) {
2641
        if (monitor_hd[i] == NULL) {
2642
            monitor_hd[i] = hd;
2643
            break;
2644
        }
2645
    }
2646

    
2647
    hide_banner = !show_banner;
2648

    
2649
    qemu_chr_add_handlers(hd, term_can_read, term_read, term_event, NULL);
2650

    
2651
    readline_start("", 0, monitor_handle_command1, NULL);
2652
}
2653

    
2654
/* XXX: use threads ? */
2655
/* modal monitor readline */
2656
static int monitor_readline_started;
2657
static char *monitor_readline_buf;
2658
static int monitor_readline_buf_size;
2659

    
2660
static void monitor_readline_cb(void *opaque, const char *input)
2661
{
2662
    pstrcpy(monitor_readline_buf, monitor_readline_buf_size, input);
2663
    monitor_readline_started = 0;
2664
}
2665

    
2666
void monitor_readline(const char *prompt, int is_password,
2667
                      char *buf, int buf_size)
2668
{
2669
    int i;
2670

    
2671
    if (is_password) {
2672
        for (i = 0; i < MAX_MON; i++)
2673
            if (monitor_hd[i] && monitor_hd[i]->focus == 0)
2674
                qemu_chr_send_event(monitor_hd[i], CHR_EVENT_FOCUS);
2675
    }
2676
    readline_start(prompt, is_password, monitor_readline_cb, NULL);
2677
    monitor_readline_buf = buf;
2678
    monitor_readline_buf_size = buf_size;
2679
    monitor_readline_started = 1;
2680
    while (monitor_readline_started) {
2681
        main_loop_wait(10);
2682
    }
2683
}