1 /* 2 * Mach Operating System 3 * Copyright (c) 1991,1990 Carnegie Mellon University 4 * All Rights Reserved. 5 * 6 * Permission to use, copy, modify and distribute this software and its 7 * documentation is hereby granted, provided that both the copyright 8 * notice and this permission notice appear in all copies of the 9 * software, derivative works or modified versions, and any portions 10 * thereof, and that both notices appear in supporting documentation. 11 * 12 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS 13 * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR 14 * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE. 15 * 16 * Carnegie Mellon requests users of this software to return to 17 * 18 * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU 19 * School of Computer Science 20 * Carnegie Mellon University 21 * Pittsburgh PA 15213-3890 22 * 23 * any improvements or extensions that they make and grant Carnegie the 24 * rights to redistribute these changes. 25 * 26 * $Id: db_examine.c,v 1.16 1997/02/22 09:28:22 peter Exp $ 27 */ 28 29 /* 30 * Author: David B. Golub, Carnegie Mellon University 31 * Date: 7/90 32 */ 33 #include <sys/param.h> 34 35 #include <ddb/ddb.h> 36 37 #include <ddb/db_lex.h> 38 #include <ddb/db_output.h> 39 #include <ddb/db_command.h> 40 #include <ddb/db_sym.h> 41 #include <ddb/db_access.h> 42 43 static char db_examine_format[TOK_STRING_SIZE] = "x"; 44 45 static void db_examine __P((db_addr_t, char *, int)); 46 static void db_search __P((db_addr_t, int, db_expr_t, db_expr_t, u_int)); 47 48 /* 49 * Examine (print) data. 50 */ 51 /*ARGSUSED*/ 52 void 53 db_examine_cmd(addr, have_addr, count, modif) 54 db_expr_t addr; 55 boolean_t have_addr; 56 db_expr_t count; 57 char * modif; 58 { 59 if (modif[0] != '\0') 60 db_strcpy(db_examine_format, modif); 61 62 if (count == -1) 63 count = 1; 64 65 db_examine((db_addr_t) addr, db_examine_format, count); 66 } 67 68 static void 69 db_examine(addr, fmt, count) 70 register 71 db_addr_t addr; 72 char * fmt; /* format string */ 73 int count; /* repeat count */ 74 { 75 int c; 76 db_expr_t value; 77 int size; 78 int width; 79 char * fp; 80 81 while (--count >= 0) { 82 fp = fmt; 83 size = 4; 84 width = 16; 85 while ((c = *fp++) != 0) { 86 switch (c) { 87 case 'b': 88 size = 1; 89 width = 4; 90 break; 91 case 'h': 92 size = 2; 93 width = 8; 94 break; 95 case 'l': 96 size = 4; 97 width = 16; 98 break; 99 case 'a': /* address */ 100 /* always forces a new line */ 101 if (db_print_position() != 0) 102 db_printf("\n"); 103 db_prev = addr; 104 db_printsym(addr, DB_STGY_ANY); 105 db_printf(":\t"); 106 break; 107 default: 108 if (db_print_position() == 0) { 109 /* Print the address. */ 110 db_printsym(addr, DB_STGY_ANY); 111 db_printf(":\t"); 112 db_prev = addr; 113 } 114 115 switch (c) { 116 case 'r': /* signed, current radix */ 117 value = db_get_value(addr, size, TRUE); 118 addr += size; 119 db_printf("%+-*n", width, value); 120 break; 121 case 'x': /* unsigned hex */ 122 value = db_get_value(addr, size, FALSE); 123 addr += size; 124 db_printf("%-*x", width, value); 125 break; 126 case 'z': /* signed hex */ 127 value = db_get_value(addr, size, TRUE); 128 addr += size; 129 db_printf("%+-*x", width, value); 130 break; 131 case 'd': /* signed decimal */ 132 value = db_get_value(addr, size, TRUE); 133 addr += size; 134 db_printf("%-*d", width, value); 135 break; 136 case 'u': /* unsigned decimal */ 137 value = db_get_value(addr, size, FALSE); 138 addr += size; 139 db_printf("%-*u", width, value); 140 break; 141 case 'o': /* unsigned octal */ 142 value = db_get_value(addr, size, FALSE); 143 addr += size; 144 db_printf("%-*o", width, value); 145 break; 146 case 'c': /* character */ 147 value = db_get_value(addr, 1, FALSE); 148 addr += 1; 149 if (value >= ' ' && value <= '~') 150 db_printf("%c", value); 151 else 152 db_printf("\\%03o", value); 153 break; 154 case 's': /* null-terminated string */ 155 for (;;) { 156 value = db_get_value(addr, 1, FALSE); 157 addr += 1; 158 if (value == 0) 159 break; 160 if (value >= ' ' && value <= '~') 161 db_printf("%c", value); 162 else 163 db_printf("\\%03o", value); 164 } 165 break; 166 case 'i': /* instruction */ 167 addr = db_disasm(addr, FALSE); 168 break; 169 case 'I': /* instruction, alternate form */ 170 addr = db_disasm(addr, TRUE); 171 break; 172 default: 173 break; 174 } 175 if (db_print_position() != 0) 176 db_end_line(); 177 break; 178 } 179 } 180 } 181 db_next = addr; 182 } 183 184 /* 185 * Print value. 186 */ 187 static char db_print_format = 'x'; 188 189 /*ARGSUSED*/ 190 void 191 db_print_cmd(addr, have_addr, count, modif) 192 db_expr_t addr; 193 boolean_t have_addr; 194 db_expr_t count; 195 char * modif; 196 { 197 db_expr_t value; 198 199 if (modif[0] != '\0') 200 db_print_format = modif[0]; 201 202 switch (db_print_format) { 203 case 'a': 204 db_printsym((db_addr_t)addr, DB_STGY_ANY); 205 break; 206 case 'r': 207 db_printf("%+11n", addr); 208 break; 209 case 'x': 210 db_printf("%8x", addr); 211 break; 212 case 'z': 213 db_printf("%+8x", addr); 214 break; 215 case 'd': 216 db_printf("%11d", addr); 217 break; 218 case 'u': 219 db_printf("%11u", addr); 220 break; 221 case 'o': 222 db_printf("%16o", addr); 223 break; 224 case 'c': 225 value = addr & 0xFF; 226 if (value >= ' ' && value <= '~') 227 db_printf("%c", value); 228 else 229 db_printf("\\%03o", value); 230 break; 231 } 232 db_printf("\n"); 233 } 234 235 void 236 db_print_loc_and_inst(loc) 237 db_addr_t loc; 238 { 239 db_printsym(loc, DB_STGY_PROC); 240 db_printf(":\t"); 241 (void) db_disasm(loc, TRUE); 242 } 243 244 /* 245 * Search for a value in memory. 246 * Syntax: search [/bhl] addr value [mask] [,count] 247 */ 248 void 249 db_search_cmd(dummy1, dummy2, dummy3, dummy4) 250 db_expr_t dummy1; 251 boolean_t dummy2; 252 db_expr_t dummy3; 253 char * dummy4; 254 { 255 int t; 256 db_addr_t addr; 257 int size; 258 db_expr_t value; 259 db_expr_t mask; 260 unsigned int count; 261 262 t = db_read_token(); 263 if (t == tSLASH) { 264 t = db_read_token(); 265 if (t != tIDENT) { 266 bad_modifier: 267 db_printf("Bad modifier\n"); 268 db_flush_lex(); 269 return; 270 } 271 272 if (!strcmp(db_tok_string, "b")) 273 size = 1; 274 else if (!strcmp(db_tok_string, "h")) 275 size = 2; 276 else if (!strcmp(db_tok_string, "l")) 277 size = 4; 278 else 279 goto bad_modifier; 280 } else { 281 db_unread_token(t); 282 size = 4; 283 } 284 285 if (!db_expression((db_expr_t *)&addr)) { 286 db_printf("Address missing\n"); 287 db_flush_lex(); 288 return; 289 } 290 291 if (!db_expression(&value)) { 292 db_printf("Value missing\n"); 293 db_flush_lex(); 294 return; 295 } 296 297 if (!db_expression(&mask)) 298 mask = 0xffffffffUL; 299 300 t = db_read_token(); 301 if (t == tCOMMA) { 302 if (!db_expression(&count)) { 303 db_printf("Count missing\n"); 304 db_flush_lex(); 305 return; 306 } 307 } else { 308 db_unread_token(t); 309 count = -1; /* effectively forever */ 310 } 311 db_skip_to_eol(); 312 313 db_search(addr, size, value, mask, count); 314 } 315 316 static void 317 db_search(addr, size, value, mask, count) 318 register 319 db_addr_t addr; 320 int size; 321 db_expr_t value; 322 db_expr_t mask; 323 unsigned int count; 324 { 325 while (count-- != 0) { 326 db_prev = addr; 327 if ((db_get_value(addr, size, FALSE) & mask) == value) 328 break; 329 addr += size; 330 } 331 db_next = addr; 332 } 333