1 |
|
/* |
2 |
< |
* mon.cpp - mon main program |
2 |
> |
* mon.cpp - cxmon main program |
3 |
|
* |
4 |
< |
* mon (C) 1997-2000 Christian Bauer, Marc Hellwig |
4 |
> |
* cxmon (C) 1997-2002 Christian Bauer, Marc Hellwig |
5 |
|
* |
6 |
|
* This program is free software; you can redistribute it and/or modify |
7 |
|
* it under the terms of the GNU General Public License as published by |
24 |
|
#include <stdlib.h> |
25 |
|
#include <signal.h> |
26 |
|
#include <ctype.h> |
27 |
+ |
#include <string> |
28 |
+ |
#include <map> |
29 |
|
|
30 |
|
#if defined(HAVE_READLINE_H) |
31 |
|
extern "C" { |
49 |
|
|
50 |
|
#include "mon.h" |
51 |
|
#include "mon_cmd.h" |
52 |
+ |
#include "mon_lowmem.h" |
53 |
|
|
54 |
|
#ifndef VERSION |
55 |
|
#define VERSION "2" |
96 |
|
|
97 |
|
|
98 |
|
// List of variables |
99 |
< |
struct Variable { |
100 |
< |
Variable *next; // Pointer to next variable (must be first element of struct) |
98 |
< |
char *name; // Variable name |
99 |
< |
uint32 value; // Variable value |
100 |
< |
}; |
101 |
< |
|
102 |
< |
static Variable *first_var; // Pointer to first variable |
99 |
> |
typedef std::map<std::string, uint32> var_map; |
100 |
> |
static var_map vars; |
101 |
|
|
102 |
|
|
103 |
|
// Prototypes |
119 |
|
static bool add_expr(uint32 *number); |
120 |
|
static bool mul_expr(uint32 *number); |
121 |
|
static bool factor(uint32 *number); |
124 |
– |
static Variable *lookup_var(const char *s); |
125 |
– |
static Variable *insert_var(const char *s); |
126 |
– |
static void remove_var(const char *s); |
122 |
|
|
123 |
|
|
124 |
|
/* |
394 |
|
return T_NULL; |
395 |
|
|
396 |
|
do { |
397 |
+ |
c = tolower(c); |
398 |
|
if (c < 'a') |
399 |
|
i = (i << 4) + (c - '0'); |
400 |
|
else |
703 |
|
return true; |
704 |
|
|
705 |
|
case T_NAME:{ |
706 |
< |
Variable *var; |
707 |
< |
if ((var = lookup_var(mon_name)) != NULL) { |
708 |
< |
*number = var->value; |
706 |
> |
var_map::const_iterator v = vars.find(mon_name); |
707 |
> |
if (v == vars.end()) |
708 |
> |
return false; |
709 |
> |
else { |
710 |
> |
*number = v->second; |
711 |
|
mon_get_token(); |
712 |
|
return true; |
713 |
< |
} else |
716 |
< |
return false; |
713 |
> |
} |
714 |
|
} |
715 |
|
|
716 |
|
case T_DOT: |
770 |
|
|
771 |
|
|
772 |
|
/* |
776 |
– |
* Lookup the value of a variable |
777 |
– |
*/ |
778 |
– |
|
779 |
– |
static Variable *lookup_var(const char *s) |
780 |
– |
{ |
781 |
– |
// Lookup variable |
782 |
– |
for (Variable *var=first_var; var; var=var->next) |
783 |
– |
if (!strcmp(s, var->name)) |
784 |
– |
return var; |
785 |
– |
|
786 |
– |
// Not found, error |
787 |
– |
mon_error("Undefined variable"); |
788 |
– |
return NULL; |
789 |
– |
} |
790 |
– |
|
791 |
– |
|
792 |
– |
/* |
793 |
– |
* Insert new variable (or redefine old) |
794 |
– |
*/ |
795 |
– |
|
796 |
– |
static Variable *insert_var(const char *s) |
797 |
– |
{ |
798 |
– |
// Lookup variable |
799 |
– |
for (Variable *var=first_var; var; var=var->next) |
800 |
– |
if (!strcmp(s, var->name)) |
801 |
– |
return var; |
802 |
– |
|
803 |
– |
// Insert new variable |
804 |
– |
Variable *var = new Variable; |
805 |
– |
var->name = strdup(s); |
806 |
– |
var->next = first_var; |
807 |
– |
first_var = var; |
808 |
– |
return var; |
809 |
– |
} |
810 |
– |
|
811 |
– |
|
812 |
– |
/* |
813 |
– |
* Remove variable |
814 |
– |
*/ |
815 |
– |
|
816 |
– |
static void remove_var(const char *s) |
817 |
– |
{ |
818 |
– |
Variable *var, *prev = (Variable *)&first_var; |
819 |
– |
|
820 |
– |
// Lookup variable and remove it |
821 |
– |
for (var=prev->next; var; prev=var, var=var->next) |
822 |
– |
if (!strcmp(s, var->name)) { |
823 |
– |
prev->next = var->next; |
824 |
– |
free(var->name); |
825 |
– |
free(var); |
826 |
– |
return; |
827 |
– |
} |
828 |
– |
} |
829 |
– |
|
830 |
– |
|
831 |
– |
/* |
773 |
|
* Set/clear/show variables |
774 |
|
* set [var[=value]] |
775 |
|
*/ |
779 |
|
if (mon_token == T_END) { |
780 |
|
|
781 |
|
// Show all variables |
782 |
< |
if (first_var == NULL) |
782 |
> |
if (vars.empty()) |
783 |
|
fprintf(monout, "No variables defined\n"); |
784 |
< |
else |
785 |
< |
for (Variable *v=first_var; v; v=v->next) |
786 |
< |
fprintf(monout, "%s = %08x\n", v->name, v->value); |
784 |
> |
else { |
785 |
> |
var_map::const_iterator v = vars.begin(), end = vars.end(); |
786 |
> |
for (v=vars.begin(); v!=end; ++v) |
787 |
> |
fprintf(monout, "%s = %08x\n", v->first.c_str(), v->second); |
788 |
> |
} |
789 |
|
|
790 |
|
} else if (mon_token == T_NAME) { |
791 |
< |
char var_name[256]; |
849 |
< |
strcpy(var_name, mon_name); |
791 |
> |
std::string var_name = mon_name; |
792 |
|
mon_get_token(); |
793 |
|
if (mon_token == T_ASSIGN) { |
794 |
|
|
801 |
|
mon_error("Too many arguments"); |
802 |
|
return; |
803 |
|
} |
804 |
< |
insert_var(var_name)->value = value; |
804 |
> |
vars[var_name] = value; |
805 |
|
|
806 |
|
} else if (mon_token == T_END) { |
807 |
|
|
808 |
|
// Clear variable |
809 |
< |
remove_var(var_name); |
809 |
> |
vars.erase(var_name); |
810 |
|
|
811 |
|
} else |
812 |
|
mon_error("'=' expected"); |
822 |
|
|
823 |
|
static void clear_vars(void) |
824 |
|
{ |
825 |
< |
Variable *var, *next; |
884 |
< |
for (var=first_var; var; var=next) { |
885 |
< |
free(var->name); |
886 |
< |
next = var->next; |
887 |
< |
free(var); |
888 |
< |
} |
889 |
< |
first_var = NULL; |
825 |
> |
vars.clear(); |
826 |
|
} |
827 |
|
|
828 |
|
|
1014 |
|
mon_add_command("d", disassemble_ppc, "d [start [end]] Disassemble PowerPC code\n"); |
1015 |
|
mon_add_command("d65", disassemble_6502, "d65 [start [end]] Disassemble 6502 code\n"); |
1016 |
|
mon_add_command("d68", disassemble_680x0, "d68 [start [end]] Disassemble 680x0 code\n"); |
1017 |
< |
mon_add_command("d80", disassemble_8080, "d80 [start [end]] Disassemble 8080 code\n"); |
1017 |
> |
mon_add_command("d80", disassemble_z80, "d80 [start [end]] Disassemble Z80 code\n"); |
1018 |
|
mon_add_command("d86", disassemble_80x86_32, "d86 [start [end]] Disassemble 80x86 (32-bit) code\n"); |
1019 |
< |
mon_add_command("d8086", disassemble_80x86_16, "d86 [start [end]] Disassemble 80x86 (16-bit) code\n"); |
1019 |
> |
mon_add_command("d8086", disassemble_80x86_16, "d8086 [start [end]] Disassemble 80x86 (16-bit) code\n"); |
1020 |
|
mon_add_command(":", modify, ": start string Modify memory\n"); |
1021 |
|
mon_add_command("f", fill, "f start end string Fill memory\n"); |
1022 |
|
mon_add_command("y", apply_byte, "y[b|h|w] start end expr Apply expression to memory\n"); |
1071 |
|
monerr = stdout; |
1072 |
|
|
1073 |
|
// Make argc/argv point to the actual arguments |
1074 |
+ |
const char *prg_name = argv[0]; |
1075 |
|
if (argc) |
1076 |
|
argc--; argv++; |
1077 |
|
|
1079 |
|
mon_macos_mode = false; |
1080 |
|
mon_use_real_mem = false; |
1081 |
|
while (argc > 0) { |
1082 |
< |
if (strcmp(argv[0], "-m") == 0) |
1082 |
> |
if (strcmp(argv[0], "-h") == 0 || strcmp(argv[0], "--help") == 0) { |
1083 |
> |
printf("Usage: %s [-m] [-r] [command...]\n", prg_name); |
1084 |
> |
exit(0); |
1085 |
> |
} else if (strcmp(argv[0], "-m") == 0) |
1086 |
|
mon_macos_mode = true; |
1087 |
|
else if (strcmp(argv[0], "-r") == 0) |
1088 |
|
mon_use_real_mem = true; |
1113 |
|
|
1114 |
|
// Print banner |
1115 |
|
if (interactive) |
1116 |
< |
fprintf(monerr, "\n *** mon V" VERSION " by Christian Bauer and Marc Hellwig ***\n" |
1117 |
< |
" *** Press 'h' for help ***\n\n"); |
1116 |
> |
fprintf(monerr, "\n *** cxmon V" VERSION " by Christian Bauer and Marc Hellwig ***\n" |
1117 |
> |
" *** Press 'h' for help ***\n\n"); |
1118 |
> |
} |
1119 |
> |
|
1120 |
> |
// Clear variables |
1121 |
> |
vars.clear(); |
1122 |
> |
|
1123 |
> |
// In MacOS mode, pull in the lowmem globals as variables |
1124 |
> |
if (mon_macos_mode) { |
1125 |
> |
const lowmem_info *l = lowmem; |
1126 |
> |
while (l->name) { |
1127 |
> |
vars[l->name] = l->addr; |
1128 |
> |
l++; |
1129 |
> |
} |
1130 |
|
} |
1131 |
|
|
1132 |
|
init_abort(); |