25 |
|
#include <signal.h> |
26 |
|
#include <ctype.h> |
27 |
|
|
28 |
< |
#ifdef HAVE_READLINE_READLINE_H |
28 |
> |
#if defined(HAVE_READLINE_H) |
29 |
> |
extern "C" { |
30 |
> |
#include <readline.h> |
31 |
> |
} |
32 |
> |
#elif defined(HAVE_READLINE_READLINE_H) |
33 |
|
extern "C" { |
34 |
|
#include <readline/readline.h> |
35 |
|
} |
36 |
|
#endif |
37 |
|
|
38 |
< |
#ifdef HAVE_READLINE_HISTORY_H |
38 |
> |
#if defined(HAVE_HISTORY_H) |
39 |
> |
extern "C" { |
40 |
> |
#include <history.h> |
41 |
> |
} |
42 |
> |
#elif defined(HAVE_READLINE_HISTORY_H) |
43 |
|
extern "C" { |
44 |
|
#include <readline/history.h> |
45 |
|
} |
48 |
|
#include "mon.h" |
49 |
|
#include "mon_cmd.h" |
50 |
|
|
51 |
+ |
#ifndef VERSION |
52 |
+ |
#define VERSION "2" |
53 |
+ |
#endif |
54 |
+ |
|
55 |
|
|
56 |
|
// Buffer we're operating on |
57 |
|
bool mon_use_real_mem = false; |
1068 |
|
num_cmds = 0; |
1069 |
|
cmd_help = NULL; |
1070 |
|
|
1071 |
< |
mon_add_command("??", mon_cmd_list, "?? Show list of commands\n"); |
1072 |
< |
mon_add_command("ver", version, "ver Show version\n"); |
1073 |
< |
mon_add_command("?", print_expr, "? expression Calculate expression\n"); |
1074 |
< |
mon_add_command("@", reallocate, "@ [size] Reallocate buffer\n"); |
1075 |
< |
mon_add_command("i", ascii_dump, "i [start [end]] ASCII memory dump\n"); |
1076 |
< |
mon_add_command("m", memory_dump, "m [start [end]] Hex/ASCII memory dump\n"); |
1077 |
< |
mon_add_command("b", binary_dump, "b [start [end]] Binary memory dump\n"); |
1078 |
< |
mon_add_command("d", disassemble_ppc, "d [start [end]] Disassemble PowerPC code\n"); |
1079 |
< |
mon_add_command("d65", disassemble_6502, "d65 [start [end]] Disassemble 6502 code\n"); |
1080 |
< |
mon_add_command("d68", disassemble_680x0, "d68 [start [end]] Disassemble 680x0 code\n"); |
1081 |
< |
mon_add_command("d80", disassemble_8080, "d80 [start [end]] Disassemble 8080 code\n"); |
1082 |
< |
mon_add_command("d86", disassemble_80x86, "d86 [start [end]] Disassemble 80x86 code\n"); |
1083 |
< |
mon_add_command(":", modify, ": start string Modify memory\n"); |
1084 |
< |
mon_add_command("f", fill, "f start end string Fill memory\n"); |
1085 |
< |
mon_add_command("y", apply_byte, "y[b|h|w] start end expr Apply expression to memory\n"); |
1071 |
> |
mon_add_command("??", mon_cmd_list, "?? Show list of commands\n"); |
1072 |
> |
mon_add_command("ver", version, "ver Show version\n"); |
1073 |
> |
mon_add_command("?", print_expr, "? expression Calculate expression\n"); |
1074 |
> |
mon_add_command("@", reallocate, "@ [size] Reallocate buffer\n"); |
1075 |
> |
mon_add_command("i", ascii_dump, "i [start [end]] ASCII memory dump\n"); |
1076 |
> |
mon_add_command("m", memory_dump, "m [start [end]] Hex/ASCII memory dump\n"); |
1077 |
> |
mon_add_command("b", binary_dump, "b [start [end]] Binary memory dump\n"); |
1078 |
> |
mon_add_command("d", disassemble_ppc, "d [start [end]] Disassemble PowerPC code\n"); |
1079 |
> |
mon_add_command("d65", disassemble_6502, "d65 [start [end]] Disassemble 6502 code\n"); |
1080 |
> |
mon_add_command("d68", disassemble_680x0, "d68 [start [end]] Disassemble 680x0 code\n"); |
1081 |
> |
mon_add_command("d80", disassemble_8080, "d80 [start [end]] Disassemble 8080 code\n"); |
1082 |
> |
mon_add_command("d86", disassemble_80x86_32, "d86 [start [end]] Disassemble 80x86 (32-bit) code\n"); |
1083 |
> |
mon_add_command("d8086", disassemble_80x86_16, "d86 [start [end]] Disassemble 80x86 (16-bit) code\n"); |
1084 |
> |
mon_add_command(":", modify, ": start string Modify memory\n"); |
1085 |
> |
mon_add_command("f", fill, "f start end string Fill memory\n"); |
1086 |
> |
mon_add_command("y", apply_byte, "y[b|h|w] start end expr Apply expression to memory\n"); |
1087 |
|
mon_add_command("yb", apply_byte, NULL); |
1088 |
|
mon_add_command("yh", apply_half, NULL); |
1089 |
|
mon_add_command("yw", apply_word, NULL); |
1090 |
< |
mon_add_command("t", transfer, "t start end dest Transfer memory\n"); |
1091 |
< |
mon_add_command("c", compare, "c start end dest Compare memory\n"); |
1092 |
< |
mon_add_command("h", help_or_hunt, "h start end string Search for byte string\n"); |
1093 |
< |
mon_add_command("\\", shell_command, "\\ \"command\" Execute shell command\n"); |
1094 |
< |
mon_add_command("ls", mon_exec, "ls [args] List directory contents\n"); |
1095 |
< |
mon_add_command("rm", mon_exec, "rm [args] Remove file(s)\n"); |
1096 |
< |
mon_add_command("cp", mon_exec, "cp [args] Copy file(s)\n"); |
1097 |
< |
mon_add_command("mv", mon_exec, "mv [args] Move file(s)\n"); |
1098 |
< |
mon_add_command("cd", mon_change_dir, "cd directory Change current directory\n"); |
1099 |
< |
mon_add_command("o", redir_output, "o [\"file\"] Redirect output\n"); |
1100 |
< |
mon_add_command("[", load_data, "[ start \"file\" Load data from file\n"); |
1101 |
< |
mon_add_command("]", save_data, "] start size \"file\" Save data to file\n"); |
1102 |
< |
mon_add_command("set", set_var, "set [var[=value]] Set/clear/show variables\n"); |
1103 |
< |
mon_add_command("cv", clear_vars, "cv Clear all variables\n"); |
1090 |
> |
mon_add_command("t", transfer, "t start end dest Transfer memory\n"); |
1091 |
> |
mon_add_command("c", compare, "c start end dest Compare memory\n"); |
1092 |
> |
mon_add_command("h", help_or_hunt, "h start end string Search for byte string\n"); |
1093 |
> |
mon_add_command("\\", shell_command, "\\ \"command\" Execute shell command\n"); |
1094 |
> |
mon_add_command("ls", mon_exec, "ls [args] List directory contents\n"); |
1095 |
> |
mon_add_command("rm", mon_exec, "rm [args] Remove file(s)\n"); |
1096 |
> |
mon_add_command("cp", mon_exec, "cp [args] Copy file(s)\n"); |
1097 |
> |
mon_add_command("mv", mon_exec, "mv [args] Move file(s)\n"); |
1098 |
> |
mon_add_command("cd", mon_change_dir, "cd directory Change current directory\n"); |
1099 |
> |
mon_add_command("o", redir_output, "o [\"file\"] Redirect output\n"); |
1100 |
> |
mon_add_command("[", load_data, "[ start \"file\" Load data from file\n"); |
1101 |
> |
mon_add_command("]", save_data, "] start size \"file\" Save data to file\n"); |
1102 |
> |
mon_add_command("set", set_var, "set [var[=value]] Set/clear/show variables\n"); |
1103 |
> |
mon_add_command("cv", clear_vars, "cv Clear all variables\n"); |
1104 |
|
|
1105 |
|
mon_read_byte = NULL; |
1106 |
|
mon_write_byte = NULL; |
1134 |
|
monout = stdout; |
1135 |
|
monerr = stdout; |
1136 |
|
|
1137 |
< |
if (argc) { |
1138 |
< |
// Access real memory if mon was started as "rmon" |
1139 |
< |
char *prgname = argv[0]; |
1140 |
< |
char *lastslash; |
1141 |
< |
if ((lastslash = strrchr(prgname, '/')) != NULL) |
1142 |
< |
prgname = lastslash + 1; |
1143 |
< |
if (strcmp(prgname, "rmon") == 0) |
1137 |
> |
// Make argc/argv point to the actual arguments |
1138 |
> |
if (argc) |
1139 |
> |
argc--; argv++; |
1140 |
> |
|
1141 |
> |
// Parse arguments |
1142 |
> |
mon_macos_mode = false; |
1143 |
> |
mon_use_real_mem = false; |
1144 |
> |
while (argc > 0) { |
1145 |
> |
if (strcmp(argv[0], "-m") == 0) |
1146 |
> |
mon_macos_mode = true; |
1147 |
> |
else if (strcmp(argv[0], "-r") == 0) |
1148 |
|
mon_use_real_mem = true; |
1149 |
< |
|
1150 |
< |
// Make argc/argv point to the actual arguments |
1151 |
< |
argc--; |
1135 |
< |
argv++; |
1136 |
< |
interactive = (argc == 0); |
1149 |
> |
else |
1150 |
> |
break; |
1151 |
> |
argc--; argv++; |
1152 |
|
} |
1153 |
+ |
interactive = (argc == 0); |
1154 |
|
|
1155 |
|
// Set up memory access functions if not supplied by the user |
1156 |
|
if (mon_read_byte == NULL) { |