[ViewVC] Diff of: cebix/mon/src/mon.cpp

Comparing mon/src/mon.cpp (file contents):
Revision 1.11 by cebix, 2000-09-25T17:52:31Z vs.
Revision 1.21 by cebix, 2003-09-27T20:30:44Z

#	Line 1 \| Line 1
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
#	Line 24 \| Line 24
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" {
#	Line 47 \| Line 49 \| 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"
55	>	#define VERSION "3"
56		#endif
57
58
#	Line 68 \| Line 71 \| *static char in_ptr;**
71		char *mon_args_ptr;
72
73		// Current address, value of '.' in expressions
74	<	uint32 mon_dot_address;
74	>	uintptr mon_dot_address;
75
76		// Current value of ':' in expression
77		static uint32 colon_value;
#	Line 76 \| Line 79 \| static uint32 colon_value;
79
80		// Scanner variables
81		enum Token mon_token; // Last token read
82	<	uint32 mon_number; // Contains the number if mon_token==T_NUMBER
82	>	uintptr mon_number; // Contains the number if mon_token==T_NUMBER
83		char mon_string[INPUT_LENGTH]; // Contains the string if mon_token==T_STRING
84		char mon_name[INPUT_LENGTH]; // Contains the variable name if mon_token==T_NAME
85
#	Line 93 \| Line 96 \| *static char cmd_help; // Help text for**
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, uintptr> var_map;
100	>	static var_map vars;
101
102
103		// Prototypes
#	Line 109 \| Line 107 \| static void exit_abort(void);
107		static void read_line(char *prompt); // Scanner
108		static char get_char(void);
109		static void put_back(char c);
110	<	static enum Token get_hex_number(uint32 &i);
111	<	static enum Token get_dec_number(uint32 &i);
112	<	static enum Token get_char_number(uint32 &i);
110	>	static enum Token get_hex_number(uintptr &i);
111	>	static enum Token get_dec_number(uintptr &i);
112	>	static enum Token get_char_number(uintptr &i);
113		static enum Token get_string(char *str);
114	<	static enum Token get_hex_or_name(uint32 &i, char *name);
114	>	static enum Token get_hex_or_name(uintptr &i, char *name);
115
116	<	static bool eor_expr(uint32 *number); // Parser
117	<	static bool and_expr(uint32 *number);
118	<	static bool shift_expr(uint32 *number);
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);
116	>	static bool eor_expr(uintptr *number); // Parser
117	>	static bool and_expr(uintptr *number);
118	>	static bool shift_expr(uintptr *number);
119	>	static bool add_expr(uintptr *number);
120	>	static bool mul_expr(uintptr *number);
121	>	static bool factor(uintptr *number);
122
123
124		/*
#	Line 207 \| Line 202 \| bool mon_aborted(void)
202		* Access to buffer
203		*/
204
205	<	uint32 (*mon_read_byte)(uint32 adr);
205	>	uint32 (*mon_read_byte)(uintptr adr);
206
207	<	uint32 mon_read_byte_buffer(uint32 adr)
207	>	uint32 mon_read_byte_buffer(uintptr adr)
208		{
209		return mem[adr % mon_mem_size];
210		}
211
212	<	uint32 mon_read_byte_real(uint32 adr)
212	>	uint32 mon_read_byte_real(uintptr adr)
213		{
214		return (uint8 )adr;
215		}
216
217	<	void (*mon_write_byte)(uint32 adr, uint32 b);
217	>	void (*mon_write_byte)(uintptr adr, uint32 b);
218
219	<	void mon_write_byte_buffer(uint32 adr, uint32 b)
219	>	void mon_write_byte_buffer(uintptr adr, uint32 b)
220		{
221		mem[adr % mon_mem_size] = b;
222		}
223
224	<	void mon_write_byte_real(uint32 adr, uint32 b)
224	>	void mon_write_byte_real(uintptr adr, uint32 b)
225		{
226		(uint8 )adr = b;
227		}
228
229	<	uint32 mon_read_half(uint32 adr)
229	>	uint32 mon_read_half(uintptr adr)
230		{
231		return (mon_read_byte(adr) << 8) \| mon_read_byte(adr+1);
232		}
233
234	<	void mon_write_half(uint32 adr, uint32 w)
234	>	void mon_write_half(uintptr adr, uint32 w)
235		{
236		mon_write_byte(adr, w >> 8);
237		mon_write_byte(adr+1, w);
238		}
239
240	<	uint32 mon_read_word(uint32 adr)
240	>	uint32 mon_read_word(uintptr adr)
241		{
242		return (mon_read_byte(adr) << 24) \| (mon_read_byte(adr+1) << 16) \| (mon_read_byte(adr+2) << 8) \| mon_read_byte(adr+3);
243		}
244
245	<	void mon_write_word(uint32 adr, uint32 l)
245	>	void mon_write_word(uintptr adr, uint32 l)
246		{
247		mon_write_byte(adr, l >> 24);
248		mon_write_byte(adr+1, l >> 16);
#	Line 272 \| Line 267 \| *static void read_line(char prompt)**
267
268		line_read = readline(prompt);
269
270	<	if (line_read && *line_read)
271	<	add_history(line_read);
270	>	if (line_read) {
271	>
272	>	if (*line_read)
273	>	add_history(line_read);
274	>
275	>	strncpy(in_ptr = input, line_read, INPUT_LENGTH);
276	>	input[INPUT_LENGTH-1] = 0;
277	>
278	>	} else {
279
280	<	strncpy(in_ptr = input, line_read, INPUT_LENGTH);
281	<	input[INPUT_LENGTH-1] = 0;
280	>	// EOF, quit cxmon
281	>	fprintf(monout, "x\n");
282	>	input[0] = 'x';
283	>	input[1] = 0;
284	>	in_ptr = input;
285	>	}
286		#else
287		fprintf(monout, prompt);
288		fflush(monout);
#	Line 390 \| Line 396 \| enum Token mon_get_token(void)
396		}
397		}
398
399	<	static enum Token get_hex_number(uint32 &i)
399	>	static enum Token get_hex_number(uintptr &i)
400		{
401		char c = get_char();
402
#	Line 399 \| Line 405 \| static enum Token get_hex_number(uint32
405		return T_NULL;
406
407		do {
408	+	c = tolower(c);
409		if (c < 'a')
410		i = (i << 4) + (c - '0');
411		else
#	Line 414 \| Line 421 \| static enum Token get_hex_number(uint32
421		}
422		}
423
424	<	static enum Token get_dec_number(uint32 &i)
424	>	static enum Token get_dec_number(uintptr &i)
425		{
426		char c = get_char();
427
#	Line 435 \| Line 442 \| static enum Token get_dec_number(uint32
442		}
443		}
444
445	<	static enum Token get_char_number(uint32 &i)
445	>	static enum Token get_char_number(uintptr &i)
446		{
447		char c;
448
#	Line 466 \| Line 473 \| *static enum Token get_string(char str)**
473		return T_NULL;
474		}
475
476	<	static enum Token get_hex_or_name(uint32 &i, char *name)
476	>	static enum Token get_hex_or_name(uintptr &i, char *name)
477		{
478		char *old_in_ptr = in_ptr;
479		char c;
#	Line 494 \| Line 501 \| static enum Token get_hex_or_name(uint32
501		* true: OK, false: Error
502		*/
503
504	<	bool mon_expression(uint32 *number)
504	>	bool mon_expression(uintptr *number)
505		{
506	<	uint32 accu, expr;
506	>	uintptr accu, expr;
507
508		if (!eor_expr(&accu))
509		return false;
#	Line 522 \| Line 529 \| *bool mon_expression(uint32 number)**
529		* true: OK, false: Error
530		*/
531
532	<	static bool eor_expr(uint32 *number)
532	>	static bool eor_expr(uintptr *number)
533		{
534	<	uint32 accu, expr;
534	>	uintptr accu, expr;
535
536		if (!and_expr(&accu))
537		return false;
#	Line 550 \| Line 557 \| *static bool eor_expr(uint32 number)**
557		* true: OK, false: Error
558		*/
559
560	<	static bool and_expr(uint32 *number)
560	>	static bool and_expr(uintptr *number)
561		{
562	<	uint32 accu, expr;
562	>	uintptr accu, expr;
563
564		if (!shift_expr(&accu))
565		return false;
#	Line 578 \| Line 585 \| *static bool and_expr(uint32 number)**
585		* true: OK, false: Error
586		*/
587
588	<	static bool shift_expr(uint32 *number)
588	>	static bool shift_expr(uintptr *number)
589		{
590	<	uint32 accu, expr;
590	>	uintptr accu, expr;
591
592		if (!add_expr(&accu))
593		return false;
#	Line 613 \| Line 620 \| *static bool shift_expr(uint32 number)**
620		* true: OK, false: Error
621		*/
622
623	<	static bool add_expr(uint32 *number)
623	>	static bool add_expr(uintptr *number)
624		{
625	<	uint32 accu, expr;
625	>	uintptr accu, expr;
626
627		if (!mul_expr(&accu))
628		return false;
#	Line 648 \| Line 655 \| *static bool add_expr(uint32 number)**
655		* true: OK, false: Error
656		*/
657
658	<	static bool mul_expr(uint32 *number)
658	>	static bool mul_expr(uintptr *number)
659		{
660	<	uint32 accu, fact;
660	>	uintptr accu, fact;
661
662		if (!factor(&accu))
663		return false;
#	Line 698 \| Line 705 \| *static bool mul_expr(uint32 number)**
705		* true: OK, false: Error
706		*/
707
708	<	static bool factor(uint32 *number)
708	>	static bool factor(uintptr *number)
709		{
710		switch (mon_token) {
711		case T_NUMBER:
#	Line 707 \| Line 714 \| *static bool factor(uint32 number)**
714		return true;
715
716		case T_NAME:{
717	<	Variable *var;
718	<	if ((var = lookup_var(mon_name)) != NULL) {
719	<	*number = var->value;
717	>	var_map::const_iterator v = vars.find(mon_name);
718	>	if (v == vars.end())
719	>	return false;
720	>	else {
721	>	*number = v->second;
722		mon_get_token();
723		return true;
724	<	} else
716	<	return false;
724	>	}
725		}
726
727		case T_DOT:
#	Line 773 \| Line 781 \| *static bool factor(uint32 number)**
781
782
783		/*
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	–	/*
784		* Set/clear/show variables
785		* set [var[=value]]
786		*/
#	Line 838 \| Line 790 \| static void set_var(void)
790		if (mon_token == T_END) {
791
792		// Show all variables
793	<	if (first_var == NULL)
793	>	if (vars.empty())
794		fprintf(monout, "No variables defined\n");
795	<	else
796	<	for (Variable *v=first_var; v; v=v->next)
797	<	fprintf(monout, "%s = %08x\n", v->name, v->value);
795	>	else {
796	>	var_map::const_iterator v = vars.begin(), end = vars.end();
797	>	for (v=vars.begin(); v!=end; ++v)
798	>	fprintf(monout, "%s = %08x\n", v->first.c_str(), v->second);
799	>	}
800
801		} else if (mon_token == T_NAME) {
802	<	char var_name[256];
849	<	strcpy(var_name, mon_name);
802	>	std::string var_name = mon_name;
803		mon_get_token();
804		if (mon_token == T_ASSIGN) {
805
806		// Set variable
807	<	uint32 value;
807	>	uintptr value;
808		mon_get_token();
809		if (!mon_expression(&value))
810		return;
#	Line 859 \| Line 812 \| static void set_var(void)
812		mon_error("Too many arguments");
813		return;
814		}
815	<	insert_var(var_name)->value = value;
815	>	vars[var_name] = value;
816
817		} else if (mon_token == T_END) {
818
819		// Clear variable
820	<	remove_var(var_name);
820	>	vars.erase(var_name);
821
822		} else
823		mon_error("'=' expected");
#	Line 880 \| Line 833 \| static void set_var(void)
833
834		static void clear_vars(void)
835		{
836	<	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;
836	>	vars.clear();
837		}
838
839
#	Line 927 \| Line 874 \| static void mon_cmd_list(void)
874
875		static void reallocate(void)
876		{
877	<	uint32 size;
877	>	uintptr size;
878
879		if (mon_use_real_mem) {
880		fprintf(monerr, "Cannot reallocate buffer in real mode\n");
#	Line 960 \| Line 907 \| static void reallocate(void)
907
908		static void apply(int size)
909		{
910	<	uint32 adr, end_adr, value;
910	>	uintptr adr, end_adr, value;
911		char c;
912
913		if (!mon_expression(&adr))
#	Line 974 \| Line 921 \| static void apply(int size)
921		return;
922		}
923
924	<	uint32 (*read_func)(uint32 adr);
925	<	void (*write_func)(uint32 adr, uint32 val);
924	>	uint32 (*read_func)(uintptr adr);
925	>	void (*write_func)(uintptr adr, uint32 val);
926		switch (size) {
927		case 1:
928		read_func = mon_read_byte;
#	Line 1068 \| Line 1015 \| void mon_init(void)
1015		num_cmds = 0;
1016		cmd_help = NULL;
1017
1018	<	mon_add_command("??", mon_cmd_list, "?? Show list of commands\n");
1019	<	mon_add_command("ver", version, "ver Show version\n");
1020	<	mon_add_command("?", print_expr, "? expression Calculate expression\n");
1021	<	mon_add_command("@", reallocate, "@ [size] Reallocate buffer\n");
1022	<	mon_add_command("i", ascii_dump, "i [start [end]] ASCII memory dump\n");
1023	<	mon_add_command("m", memory_dump, "m [start [end]] Hex/ASCII memory dump\n");
1024	<	mon_add_command("b", binary_dump, "b [start [end]] Binary memory dump\n");
1025	<	mon_add_command("d", disassemble_ppc, "d [start [end]] Disassemble PowerPC code\n");
1026	<	mon_add_command("d65", disassemble_6502, "d65 [start [end]] Disassemble 6502 code\n");
1027	<	mon_add_command("d68", disassemble_680x0, "d68 [start [end]] Disassemble 680x0 code\n");
1028	<	mon_add_command("d80", disassemble_8080, "d80 [start [end]] Disassemble 8080 code\n");
1029	<	mon_add_command("d86", disassemble_80x86, "d86 [start [end]] Disassemble 80x86 code\n");
1030	<	mon_add_command(":", modify, ": start string Modify memory\n");
1031	<	mon_add_command("f", fill, "f start end string Fill memory\n");
1032	<	mon_add_command("y", apply_byte, "y[b\|h\|w] start end expr Apply expression to memory\n");
1018	>	mon_add_command("??", mon_cmd_list, "?? Show list of commands\n");
1019	>	mon_add_command("ver", version, "ver Show version\n");
1020	>	mon_add_command("?", print_expr, "? expression Calculate expression\n");
1021	>	mon_add_command("@", reallocate, "@ [size] Reallocate buffer\n");
1022	>	mon_add_command("i", ascii_dump, "i [start [end]] ASCII memory dump\n");
1023	>	mon_add_command("m", memory_dump, "m [start [end]] Hex/ASCII memory dump\n");
1024	>	mon_add_command("b", binary_dump, "b [start [end]] Binary memory dump\n");
1025	>	mon_add_command("d", disassemble_ppc, "d [start [end]] Disassemble PowerPC code\n");
1026	>	mon_add_command("d65", disassemble_6502, "d65 [start [end]] Disassemble 6502 code\n");
1027	>	mon_add_command("d68", disassemble_680x0, "d68 [start [end]] Disassemble 680x0 code\n");
1028	>	mon_add_command("d80", disassemble_z80, "d80 [start [end]] Disassemble Z80 code\n");
1029	>	mon_add_command("d86", disassemble_80x86_32, "d86 [start [end]] Disassemble 80x86 (32-bit) code\n");
1030	>	mon_add_command("d8086", disassemble_80x86_16, "d8086 [start [end]] Disassemble 80x86 (16-bit) code\n");
1031	>	mon_add_command("d8664", disassemble_x86_64, "d8664 [start [end]] Disassemble x86-64 code\n");
1032	>	mon_add_command(":", modify, ": start string Modify memory\n");
1033	>	mon_add_command("f", fill, "f start end string Fill memory\n");
1034	>	mon_add_command("y", apply_byte, "y[b\|h\|w] start end expr Apply expression to memory\n");
1035		mon_add_command("yb", apply_byte, NULL);
1036		mon_add_command("yh", apply_half, NULL);
1037		mon_add_command("yw", apply_word, NULL);
1038	<	mon_add_command("t", transfer, "t start end dest Transfer memory\n");
1039	<	mon_add_command("c", compare, "c start end dest Compare memory\n");
1040	<	mon_add_command("h", help_or_hunt, "h start end string Search for byte string\n");
1041	<	mon_add_command("\\", shell_command, "\\ \"command\" Execute shell command\n");
1042	<	mon_add_command("ls", mon_exec, "ls [args] List directory contents\n");
1043	<	mon_add_command("rm", mon_exec, "rm [args] Remove file(s)\n");
1044	<	mon_add_command("cp", mon_exec, "cp [args] Copy file(s)\n");
1045	<	mon_add_command("mv", mon_exec, "mv [args] Move file(s)\n");
1046	<	mon_add_command("cd", mon_change_dir, "cd directory Change current directory\n");
1047	<	mon_add_command("o", redir_output, "o [\"file\"] Redirect output\n");
1048	<	mon_add_command("[", load_data, "[ start \"file\" Load data from file\n");
1049	<	mon_add_command("]", save_data, "] start size \"file\" Save data to file\n");
1050	<	mon_add_command("set", set_var, "set [var[=value]] Set/clear/show variables\n");
1051	<	mon_add_command("cv", clear_vars, "cv Clear all variables\n");
1038	>	mon_add_command("t", transfer, "t start end dest Transfer memory\n");
1039	>	mon_add_command("c", compare, "c start end dest Compare memory\n");
1040	>	mon_add_command("h", help_or_hunt, "h start end string Search for byte string\n");
1041	>	mon_add_command("\\", shell_command, "\\ \"command\" Execute shell command\n");
1042	>	mon_add_command("ls", mon_exec, "ls [args] List directory contents\n");
1043	>	mon_add_command("rm", mon_exec, "rm [args] Remove file(s)\n");
1044	>	mon_add_command("cp", mon_exec, "cp [args] Copy file(s)\n");
1045	>	mon_add_command("mv", mon_exec, "mv [args] Move file(s)\n");
1046	>	mon_add_command("cd", mon_change_dir, "cd directory Change current directory\n");
1047	>	mon_add_command("o", redir_output, "o [\"file\"] Redirect output\n");
1048	>	mon_add_command("[", load_data, "[ start \"file\" Load data from file\n");
1049	>	mon_add_command("]", save_data, "] start size \"file\" Save data to file\n");
1050	>	mon_add_command("set", set_var, "set [var[=value]] Set/clear/show variables\n");
1051	>	mon_add_command("cv", clear_vars, "cv Clear all variables\n");
1052
1053		mon_read_byte = NULL;
1054		mon_write_byte = NULL;
#	Line 1134 \| Line 1083 \| void mon(int argc, char argv)**
1083		monerr = stdout;
1084
1085		// Make argc/argv point to the actual arguments
1086	+	const char *prg_name = argv[0];
1087		if (argc)
1088		argc--; argv++;
1089
#	Line 1141 \| Line 1091 \| void mon(int argc, char argv)**
1091		mon_macos_mode = false;
1092		mon_use_real_mem = false;
1093		while (argc > 0) {
1094	<	if (strcmp(argv[0], "-m") == 0)
1094	>	if (strcmp(argv[0], "-h") == 0 \|\| strcmp(argv[0], "--help") == 0) {
1095	>	printf("Usage: %s [-m] [-r] [command...]\n", prg_name);
1096	>	exit(0);
1097	>	} else if (strcmp(argv[0], "-m") == 0)
1098		mon_macos_mode = true;
1099		else if (strcmp(argv[0], "-r") == 0)
1100		mon_use_real_mem = true;
#	Line 1172 \| Line 1125 \| void mon(int argc, char argv)**
1125
1126		// Print banner
1127		if (interactive)
1128	<	fprintf(monerr, "\n * mon V" VERSION " by Christian Bauer and Marc Hellwig *\n"
1129	<	" * Press 'h' for help *\n\n");
1128	>	fprintf(monerr, "\n * cxmon V" VERSION " by Christian Bauer and Marc Hellwig *\n"
1129	>	" * Press 'h' for help *\n\n");
1130	>	}
1131	>
1132	>	// Clear variables
1133	>	vars.clear();
1134	>
1135	>	// In MacOS mode, pull in the lowmem globals as variables
1136	>	if (mon_macos_mode) {
1137	>	const lowmem_info *l = lowmem;
1138	>	while (l->name) {
1139	>	vars[l->name] = l->addr;
1140	>	l++;
1141	>	}
1142		}
1143
1144		init_abort();
#	Line 1182 \| Line 1147 \| void mon(int argc, char argv)**
1147		while (!done) {
1148		if (interactive) {
1149		char prompt[16];
1150	<	sprintf(prompt, "[%08x]-> ", mon_dot_address);
1150	>	sprintf(prompt, "[%0lx]-> ", 2 sizeof(mon_dot_address), mon_dot_address);
1151		read_line(prompt);
1152		} else {
1153		if (argc == 0) {

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing mon/src/mon.cpp (file contents): Revision 1.11 by cebix, 2000-09-25T17:52:31Z vs. Revision 1.21 by cebix, 2003-09-27T20:30:44Z

Diff Legend

Comparing mon/src/mon.cpp (file contents):
Revision 1.11 by cebix, 2000-09-25T17:52:31Z vs.
Revision 1.21 by cebix, 2003-09-27T20:30:44Z