ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/cebix/mon/src/mon.cpp
(Generate patch)

Comparing mon/src/mon.cpp (file contents):
Revision 1.17 by gbeauche, 2002-03-18T13:40:20Z vs.
Revision 1.25 by cebix, 2004-02-12T17:18:03Z

# Line 1 | Line 1
1   /*
2   *  mon.cpp - cxmon main program
3   *
4 < *  cxmon (C) 1997-2002 Christian Bauer, Marc Hellwig
4 > *  cxmon (C) 1997-2004 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 52 | Line 52 | extern "C" {
52   #include "mon_lowmem.h"
53  
54   #ifndef VERSION
55 < #define VERSION "2"
55 > #define VERSION "3"
56   #endif
57  
58  
# Line 66 | Line 66 | static uint8 *mem;
66   FILE *monin, *monout, *monerr;
67  
68   // Input line
69 < static char input[INPUT_LENGTH];
69 > static char *input;
70   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;
78  
79  
80   // Scanner variables
81 < enum Token mon_token;                   // Last token read
82 < uint32 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
81 > enum Token mon_token;  // Last token read
82 > uintptr mon_number;    // Contains the number if mon_token==T_NUMBER
83 > char *mon_string;      // Contains the string if mon_token==T_STRING
84 > char *mon_name;        // Contains the variable name if mon_token==T_NAME
85  
86  
87   // List of installed commands
88   struct CmdSpec {
89 <        const char *name;       // Name of command
90 <        void (*func)(void);     // Function that executes this command
89 >        const char *name;  // Name of command
90 >        void (*func)();    // Function that executes this command
91   };
92  
93 < static CmdSpec *cmds;           // Array of CmdSpecs
94 < static int num_cmds;            // Number of installed commands
95 < static char *cmd_help;          // Help text for commands
93 > static CmdSpec *cmds;   // Array of CmdSpecs
94 > static int num_cmds;    // Number of installed commands
95 > static char *cmd_help;  // Help text for commands
96  
97  
98   // List of variables
99 < typedef std::map<std::string, uint32> var_map;
99 > typedef std::map<std::string, uintptr> var_map;
100   static var_map vars;
101  
102  
103   // Prototypes
104 < static void init_abort(void);
105 < static void exit_abort(void);
104 > static void init_abort();
105 > static void exit_abort();
106  
107   static void read_line(char *prompt);            // Scanner
108 < static char get_char(void);
108 > static char get_char();
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);
113 < static enum Token get_string(char *str);
114 < static enum Token get_hex_or_name(uint32 &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);
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(uintptr &i, char *&name);
115 >
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   /*
125   *  Add command to mon
126   */
127  
128 < void mon_add_command(const char *name, void (*func)(void), const char *help_text)
128 > void mon_add_command(const char *name, void (*func)(), const char *help_text)
129   {
130          num_cmds++;
131          if (cmds)
# Line 170 | Line 170 | static void handle_abort(int sig)
170          was_aborted = true;
171   }
172  
173 < static void init_abort(void)
173 > static void init_abort()
174   {
175          was_aborted = false;
176          sigemptyset(&my_sa.sa_mask);
# Line 184 | Line 184 | static void init_abort(void)
184          sigaction(SIGINT, &my_sa, NULL);
185   }
186  
187 < static void exit_abort(void)
187 > static void exit_abort()
188   {
189          my_sa.sa_handler = SIG_DFL;
190          sigaction(SIGINT, &my_sa, NULL);
191   }
192  
193 < bool mon_aborted(void)
193 > bool mon_aborted()
194   {
195          bool ret = was_aborted;
196          was_aborted = false;
# Line 202 | 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 260 | Line 260 | static void read_line(char *prompt)
260   #ifdef HAVE_LIBREADLINE
261          static char *line_read = NULL;
262  
263 <        if (line_read) {
264 <                free(line_read);
265 <                line_read = NULL;
263 >        if (input)
264 >                free(input);
265 >        input = readline(prompt);
266 >
267 >        if (input) {
268 >                if (*input)
269 >                        add_history(input);
270 >        } else {
271 >                // EOF, quit cxmon
272 >                input = (char *)malloc(2);
273 >                input[0] = 'x';
274 >                input[1] = 0;
275 >                fprintf(monout, "x\n");
276          }
277  
278 <        line_read = readline(prompt);
269 <
270 <        if (line_read && *line_read)
271 <                add_history(line_read);
272 <
273 <        strncpy(in_ptr = input, line_read, INPUT_LENGTH);
274 <        input[INPUT_LENGTH-1] = 0;
278 >        in_ptr = input;
279   #else
280 +        static const unsigned INPUT_LENGTH = 256;
281 +        if (!input)
282 +                input = (char *)malloc(INPUT_LENGTH);
283          fprintf(monout, prompt);
284          fflush(monout);
285          fgets(in_ptr = input, INPUT_LENGTH, monin);
# Line 287 | Line 294 | static void read_line(char *prompt)
294   *  Read a character from the input line
295   */
296  
297 < static char get_char(void)
297 > static char get_char()
298   {
299          return *in_ptr++;
300   }
# Line 307 | Line 314 | static void put_back(char c)
314   *  Scanner: Get a token from the input line
315   */
316  
317 < enum Token mon_get_token(void)
317 > enum Token mon_get_token()
318   {
319 <        char c;
319 >        char c = get_char();
320  
321          // Skip spaces
322 <        while ((c = get_char()) == ' ') ;
322 >        while (isspace(c))
323 >                c = get_char();
324  
325          switch (c) {
326                  case 0:
# Line 385 | Line 393 | enum Token mon_get_token(void)
393          }
394   }
395  
396 < static enum Token get_hex_number(uint32 &i)
396 > static enum Token get_hex_number(uintptr &i)
397   {
398          char c = get_char();
399  
# Line 410 | Line 418 | static enum Token get_hex_number(uint32
418          }
419   }
420  
421 < static enum Token get_dec_number(uint32 &i)
421 > static enum Token get_dec_number(uintptr &i)
422   {
423          char c = get_char();
424  
# Line 431 | Line 439 | static enum Token get_dec_number(uint32
439          }
440   }
441  
442 < static enum Token get_char_number(uint32 &i)
442 > static enum Token get_char_number(uintptr &i)
443   {
444          char c;
445  
# Line 446 | Line 454 | static enum Token get_char_number(uint32
454          return T_NULL;
455   }
456  
457 < static enum Token get_string(char *str)
457 > static enum Token get_string(char *&str)
458   {
459 <        char c;
459 >        // Remember start of string
460 >        char *old_in_ptr = in_ptr;
461  
462 +        // Determine string length
463 +        char c;
464 +        unsigned n = 0;
465          while ((c = get_char()) != 0) {
466 <                if (c == '"') {
467 <                        *str = 0;
468 <                        return T_STRING;
469 <                }
470 <                *str++ = c;
466 >                n++;
467 >                if (c == '"')
468 >                        break;
469 >        }
470 >        if (c == 0) {
471 >                mon_error("Unterminated string");
472 >                return T_NULL;
473          }
474  
475 <        mon_error("Unterminated string");
476 <        return T_NULL;
475 >        // Allocate new buffer (n: size needed including terminating 0)
476 >        str = (char *)realloc(str, n);
477 >
478 >        // Copy string to buffer
479 >        char *p = str;
480 >        in_ptr = old_in_ptr;
481 >        while (--n)
482 >                *p++ = get_char();
483 >        *p++ = 0;
484 >        get_char();  // skip closing '"'
485 >        return T_STRING;
486   }
487  
488 < static enum Token get_hex_or_name(uint32 &i, char *name)
488 > static enum Token get_hex_or_name(uintptr &i, char *&name)
489   {
490 +        // Remember start of token
491          char *old_in_ptr = in_ptr;
468        char c;
492  
493          // Try hex number first
494          if (get_hex_number(i) == T_NUMBER)
495                  return T_NUMBER;
496  
497 <        // Not a hex number, must be a variable name
497 >        // Not a hex number, must be a variable name; determine its length
498          in_ptr = old_in_ptr;
499 <        c = get_char();
499 >        char c = get_char();
500 >        unsigned n = 1;
501          do {
502 <                *name++ = c;
502 >                n++;
503                  c = get_char();
504          } while (isalnum(c));
505  
506 <        *name = 0;
507 <        put_back(c);
506 >        // Allocate new buffer (n: size needed including terminating 0)
507 >        name = (char *)realloc(name, n);
508 >
509 >        // Copy name to buffer
510 >        in_ptr = old_in_ptr;
511 >        char *p = name;
512 >        while (--n)
513 >                *p++ = get_char();
514 >        *p = 0;
515          return T_NAME;
516   }
517  
# Line 490 | Line 521 | static enum Token get_hex_or_name(uint32
521   *  true: OK, false: Error
522   */
523  
524 < bool mon_expression(uint32 *number)
524 > bool mon_expression(uintptr *number)
525   {
526 <        uint32 accu, expr;
526 >        uintptr accu, expr;
527  
528          if (!eor_expr(&accu))
529                  return false;
# Line 518 | Line 549 | bool mon_expression(uint32 *number)
549   *  true: OK, false: Error
550   */
551  
552 < static bool eor_expr(uint32 *number)
552 > static bool eor_expr(uintptr *number)
553   {
554 <        uint32 accu, expr;
554 >        uintptr accu, expr;
555  
556          if (!and_expr(&accu))
557                  return false;
# Line 546 | Line 577 | static bool eor_expr(uint32 *number)
577   *  true: OK, false: Error
578   */
579  
580 < static bool and_expr(uint32 *number)
580 > static bool and_expr(uintptr *number)
581   {
582 <        uint32 accu, expr;
582 >        uintptr accu, expr;
583  
584          if (!shift_expr(&accu))
585                  return false;
# Line 574 | Line 605 | static bool and_expr(uint32 *number)
605   *  true: OK, false: Error
606   */
607  
608 < static bool shift_expr(uint32 *number)
608 > static bool shift_expr(uintptr *number)
609   {
610 <        uint32 accu, expr;
610 >        uintptr accu, expr;
611  
612          if (!add_expr(&accu))
613                  return false;
# Line 609 | Line 640 | static bool shift_expr(uint32 *number)
640   *  true: OK, false: Error
641   */
642  
643 < static bool add_expr(uint32 *number)
643 > static bool add_expr(uintptr *number)
644   {
645 <        uint32 accu, expr;
645 >        uintptr accu, expr;
646  
647          if (!mul_expr(&accu))
648                  return false;
# Line 644 | Line 675 | static bool add_expr(uint32 *number)
675   *  true: OK, false: Error
676   */
677  
678 < static bool mul_expr(uint32 *number)
678 > static bool mul_expr(uintptr *number)
679   {
680 <        uint32 accu, fact;
680 >        uintptr accu, fact;
681  
682          if (!factor(&accu))
683                  return false;
# Line 694 | Line 725 | static bool mul_expr(uint32 *number)
725   *  true: OK, false: Error
726   */
727  
728 < static bool factor(uint32 *number)
728 > static bool factor(uintptr *number)
729   {
730          switch (mon_token) {
731                  case T_NUMBER:
# Line 774 | Line 805 | static bool factor(uint32 *number)
805   *  set [var[=value]]
806   */
807  
808 < static void set_var(void)
808 > static void set_var()
809   {
810          if (mon_token == T_END) {
811  
# Line 793 | Line 824 | static void set_var(void)
824                  if (mon_token == T_ASSIGN) {
825  
826                          // Set variable
827 <                        uint32 value;
827 >                        uintptr value;
828                          mon_get_token();
829                          if (!mon_expression(&value))
830                                  return;
# Line 820 | Line 851 | static void set_var(void)
851   *  cv
852   */
853  
854 < static void clear_vars(void)
854 > static void clear_vars()
855   {
856          vars.clear();
857   }
# Line 831 | Line 862 | static void clear_vars(void)
862   *  h
863   */
864  
865 < static void help_or_hunt(void)
865 > static void help_or_hunt()
866   {
867          if (mon_token != T_END) {
868                  hunt();
# Line 848 | Line 879 | static void help_or_hunt(void)
879   *  ??
880   */
881  
882 < static void mon_cmd_list(void)
882 > static void mon_cmd_list()
883   {
884          for (int i=0; i<num_cmds; i++)
885                  fprintf(monout, "%s ", cmds[i].name);
# Line 861 | Line 892 | static void mon_cmd_list(void)
892   *  @ [size]
893   */
894  
895 < static void reallocate(void)
895 > static void reallocate()
896   {
897 <        uint32 size;
897 >        uintptr size;
898  
899          if (mon_use_real_mem) {
900                  fprintf(monerr, "Cannot reallocate buffer in real mode\n");
# Line 896 | Line 927 | static void reallocate(void)
927  
928   static void apply(int size)
929   {
930 <        uint32 adr, end_adr, value;
930 >        uintptr adr, end_adr, value;
931          char c;
932  
933          if (!mon_expression(&adr))
# Line 910 | Line 941 | static void apply(int size)
941                  return;
942          }
943  
944 <        uint32 (*read_func)(uint32 adr);
945 <        void (*write_func)(uint32 adr, uint32 val);
944 >        uint32 (*read_func)(uintptr adr);
945 >        void (*write_func)(uintptr adr, uint32 val);
946          switch (size) {
947                  case 1:
948                          read_func = mon_read_byte;
# Line 951 | Line 982 | static void apply(int size)
982          mon_dot_address = adr;
983   }
984  
985 < static void apply_byte(void)
985 > static void apply_byte()
986   {
987          apply(1);
988   }
989  
990 < static void apply_half(void)
990 > static void apply_half()
991   {
992          apply(2);
993   }
994  
995 < static void apply_word(void)
995 > static void apply_word()
996   {
997          apply(4);
998   }
# Line 971 | Line 1002 | static void apply_word(void)
1002   *  Execute command via system() (for ls, rm, etc.)
1003   */
1004  
1005 < static void mon_exec(void)
1005 > static void mon_exec()
1006   {
1007          system(input);
1008   }
# Line 981 | Line 1012 | static void mon_exec(void)
1012   *  Change current directory
1013   */
1014  
1015 < static void mon_change_dir(void)
1015 > void mon_change_dir()
1016   {
986        char c;
1017          in_ptr = input;
1018 <        while ((c = get_char()) == ' ') ;
1019 <        while ((c = get_char()) != ' ') ;
1020 <        while ((c = get_char()) == ' ') ;
1018 >        char c = get_char();
1019 >        while (isspace(c))
1020 >                c = get_char();
1021 >        while (isgraph(c))
1022 >                c = get_char();
1023 >        while (isspace(c))
1024 >                c = get_char();
1025          put_back(c);
1026          if (chdir(in_ptr) != 0)
1027                  mon_error("Cannot change directory");
# Line 998 | Line 1032 | static void mon_change_dir(void)
1032   *  Initialize mon
1033   */
1034  
1035 < void mon_init(void)
1035 > void mon_init()
1036   {
1037          cmds = NULL;
1038          num_cmds = 0;
# Line 1017 | Line 1051 | void mon_init(void)
1051          mon_add_command("d80", disassemble_z80,                 "d80 [start [end]]        Disassemble Z80 code\n");
1052          mon_add_command("d86", disassemble_80x86_32,    "d86 [start [end]]        Disassemble 80x86 (32-bit) code\n");
1053          mon_add_command("d8086", disassemble_80x86_16,  "d8086 [start [end]]      Disassemble 80x86 (16-bit) code\n");
1054 +        mon_add_command("d8664", disassemble_x86_64,    "d8664 [start [end]]      Disassemble x86-64 code\n");
1055          mon_add_command(":", modify,                                    ": start string           Modify memory\n");
1056          mon_add_command("f", fill,                                              "f start end string       Fill memory\n");
1057          mon_add_command("y", apply_byte,                                "y[b|h|w] start end expr  Apply expression to memory\n");
# Line 1040 | Line 1075 | void mon_init(void)
1075  
1076          mon_read_byte = NULL;
1077          mon_write_byte = NULL;
1078 +
1079 +        input = NULL;
1080 +        mon_string = NULL;
1081 +        mon_name = NULL;
1082   }
1083  
1084  
# Line 1047 | Line 1086 | void mon_init(void)
1086   *  Deinitialize mon
1087   */
1088  
1089 < void mon_exit(void)
1089 > void mon_exit()
1090   {
1091 <        free(cmds);
1092 <        cmds = NULL;
1091 >        if (cmds) {
1092 >                free(cmds);
1093 >                cmds = NULL;
1094 >        }
1095          num_cmds = 0;
1096          cmd_help = NULL;
1097 +
1098 +        if (input) {
1099 +                free(input);
1100 +                input = NULL;
1101 +        }
1102 +        if (mon_string) {
1103 +                free(mon_string);
1104 +                mon_string = NULL;
1105 +        }
1106 +        if (mon_name) {
1107 +                free(mon_name);
1108 +                mon_name = NULL;
1109 +        }
1110   }
1111  
1112  
# Line 1063 | Line 1117 | void mon_exit(void)
1117   void mon(int argc, char **argv)
1118   {
1119          bool done = false, interactive = true;
1066        char c, cmd[INPUT_LENGTH];
1120  
1121          // Setup input/output streams
1122          monin = stdin;
# Line 1132 | Line 1185 | void mon(int argc, char **argv)
1185          init_abort();
1186  
1187          // Read and parse command line
1188 +        char *cmd = NULL;
1189          while (!done) {
1190                  if (interactive) {
1191                          char prompt[16];
1192 <                        sprintf(prompt, "[%08x]-> ", mon_dot_address);
1192 >                        sprintf(prompt, "[%0*lx]-> ", 2 * sizeof(mon_dot_address), mon_dot_address);
1193                          read_line(prompt);
1194 +                        if (!input) {
1195 +                                done = true;
1196 +                                continue;
1197 +                        }
1198                  } else {
1199                          if (argc == 0) {
1200                                  done = true;
1201                                  break;
1202                          } else {
1203 <                                strncpy(in_ptr = input, argv[0], INPUT_LENGTH);
1203 >                                unsigned n = strlen(argv[0]) + 1;
1204 >                                input = (char *)realloc(input, n);
1205 >                                strcpy(in_ptr = input, argv[0]);
1206                                  argc--;
1207                                  argv++;
1208                          }
1209                  }
1210  
1211                  // Skip leading spaces
1212 <                while ((c = get_char()) == ' ') ;
1212 >                char c = get_char();
1213 >                while (isspace(c))
1214 >                        c = get_char();
1215 >                put_back(c);
1216 >                if (!c)
1217 >                        continue;  // blank line
1218  
1219                  // Read command word
1220 <                char *p = cmd;
1221 <                do {
1157 <                        *p++ = c;
1220 >                char *p = in_ptr;
1221 >                while (isgraph(c))
1222                          c = get_char();
1159                } while (isgraph(c));
1160                *p = 0;
1223                  put_back(c);
1224 +                unsigned n = in_ptr - p;
1225 +                cmd = (char *)realloc(cmd, n + 1);
1226 +                memcpy(cmd, p, n);
1227 +                cmd[n] = 0;
1228  
1229                  // Execute command
1164                if (cmd[0] == 0)                                // Blank line
1165                        continue;
1230                  if (strcmp(cmd, "x") == 0) {    // Exit
1231                          done = true;
1232                          continue;
# Line 1178 | Line 1242 | void mon(int argc, char **argv)
1242   cmd_done: ;
1243          }
1244  
1245 +        if (cmd)
1246 +                free(cmd);
1247 +
1248          exit_abort();
1249  
1250          // Free buffer

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines