Home | History | Annotate | Line # | Download | only in ddb
db_examine.c revision 1.21.4.1
      1  1.21.4.1   thorpej /*	$NetBSD: db_examine.c,v 1.21.4.1 2002/01/10 19:52:38 thorpej Exp $	*/
      2       1.4       cgd 
      3       1.7   mycroft /*
      4       1.1       cgd  * Mach Operating System
      5       1.1       cgd  * Copyright (c) 1991,1990 Carnegie Mellon University
      6       1.1       cgd  * All Rights Reserved.
      7       1.7   mycroft  *
      8       1.1       cgd  * Permission to use, copy, modify and distribute this software and its
      9       1.1       cgd  * documentation is hereby granted, provided that both the copyright
     10       1.1       cgd  * notice and this permission notice appear in all copies of the
     11       1.1       cgd  * software, derivative works or modified versions, and any portions
     12       1.1       cgd  * thereof, and that both notices appear in supporting documentation.
     13       1.7   mycroft  *
     14      1.15        pk  * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
     15       1.1       cgd  * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
     16       1.1       cgd  * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
     17       1.7   mycroft  *
     18       1.1       cgd  * Carnegie Mellon requests users of this software to return to
     19       1.7   mycroft  *
     20       1.1       cgd  *  Software Distribution Coordinator  or  Software.Distribution (at) CS.CMU.EDU
     21       1.1       cgd  *  School of Computer Science
     22       1.1       cgd  *  Carnegie Mellon University
     23       1.1       cgd  *  Pittsburgh PA 15213-3890
     24       1.7   mycroft  *
     25       1.1       cgd  * any improvements or extensions that they make and grant Carnegie the
     26       1.1       cgd  * rights to redistribute these changes.
     27       1.2       cgd  *
     28       1.1       cgd  *	Author: David B. Golub, Carnegie Mellon University
     29       1.1       cgd  *	Date:	7/90
     30       1.1       cgd  */
     31  1.21.4.1   thorpej 
     32  1.21.4.1   thorpej #include <sys/cdefs.h>
     33  1.21.4.1   thorpej __KERNEL_RCSID(0, "$NetBSD: db_examine.c,v 1.21.4.1 2002/01/10 19:52:38 thorpej Exp $");
     34       1.3   mycroft 
     35       1.3   mycroft #include <sys/param.h>
     36      1.21       cgd #include <sys/systm.h>
     37       1.3   mycroft #include <sys/proc.h>
     38       1.3   mycroft 
     39       1.1       cgd #include <machine/db_machdep.h>		/* type definitions */
     40       1.1       cgd 
     41       1.1       cgd #include <ddb/db_lex.h>
     42       1.1       cgd #include <ddb/db_output.h>
     43       1.1       cgd #include <ddb/db_command.h>
     44       1.1       cgd #include <ddb/db_sym.h>
     45      1.10  christos #include <ddb/db_access.h>
     46      1.10  christos #include <ddb/db_extern.h>
     47      1.10  christos #include <ddb/db_interface.h>
     48       1.1       cgd 
     49       1.1       cgd char	db_examine_format[TOK_STRING_SIZE] = "x";
     50       1.1       cgd 
     51       1.1       cgd /*
     52       1.6       gwr  * Examine (print) data.  Syntax is:
     53       1.6       gwr  *		x/[bhl][cdiorsuxz]*
     54       1.6       gwr  * For example, the command:
     55       1.6       gwr  *  	x/bxxxx
     56       1.6       gwr  * should print:
     57       1.6       gwr  *  	address:  01  23  45  67
     58       1.1       cgd  */
     59       1.1       cgd /*ARGSUSED*/
     60       1.1       cgd void
     61       1.1       cgd db_examine_cmd(addr, have_addr, count, modif)
     62       1.1       cgd 	db_expr_t	addr;
     63       1.1       cgd 	int		have_addr;
     64       1.1       cgd 	db_expr_t	count;
     65       1.1       cgd 	char *		modif;
     66       1.1       cgd {
     67       1.1       cgd 	if (modif[0] != '\0')
     68       1.7   mycroft 		db_strcpy(db_examine_format, modif);
     69       1.1       cgd 
     70       1.1       cgd 	if (count == -1)
     71       1.7   mycroft 		count = 1;
     72       1.1       cgd 
     73       1.1       cgd 	db_examine((db_addr_t) addr, db_examine_format, count);
     74       1.1       cgd }
     75       1.1       cgd 
     76      1.10  christos void
     77       1.1       cgd db_examine(addr, fmt, count)
     78      1.17  augustss 	db_addr_t	addr;
     79       1.1       cgd 	char *		fmt;	/* format string */
     80       1.1       cgd 	int		count;	/* repeat count */
     81       1.1       cgd {
     82      1.20       jmc 	int		i, c;
     83       1.1       cgd 	db_expr_t	value;
     84       1.1       cgd 	int		size;
     85       1.1       cgd 	int		width;
     86      1.20       jmc 	int		bytes;
     87       1.1       cgd 	char *		fp;
     88      1.19        tv 	char		tbuf[24];
     89       1.7   mycroft 
     90       1.1       cgd 	while (--count >= 0) {
     91       1.7   mycroft 		fp = fmt;
     92       1.7   mycroft 		size = 4;
     93       1.8       gwr 		width = 12;
     94       1.7   mycroft 		while ((c = *fp++) != 0) {
     95       1.9       gwr 			if (db_print_position() == 0) {
     96       1.9       gwr 				/* Always print the address. */
     97      1.18     jhawk 				db_printsym(addr, DB_STGY_ANY, db_printf);
     98       1.9       gwr 				db_printf(":\t");
     99       1.9       gwr 				db_prev = addr;
    100       1.9       gwr 			}
    101       1.6       gwr 			switch (c) {
    102       1.9       gwr 			case 'b':	/* byte */
    103       1.6       gwr 				size = 1;
    104       1.6       gwr 				width = 4;
    105       1.6       gwr 				break;
    106       1.9       gwr 			case 'h':	/* half-word */
    107       1.6       gwr 				size = 2;
    108       1.6       gwr 				width = 8;
    109       1.6       gwr 				break;
    110       1.9       gwr 			case 'l':	/* long-word */
    111       1.6       gwr 				size = 4;
    112       1.8       gwr 				width = 12;
    113      1.16      ross 				break;
    114      1.16      ross 			case 'L':	/* implementation maximum */
    115      1.16      ross 				size = sizeof value;
    116      1.16      ross 				width = 12 * (sizeof value / 4);
    117       1.6       gwr 				break;
    118       1.7   mycroft 			case 'a':	/* address */
    119      1.11  christos 				db_printf("= 0x%lx\n", addr);
    120       1.6       gwr 				break;
    121       1.6       gwr 			case 'r':	/* signed, current radix */
    122       1.1       cgd 				value = db_get_value(addr, size, TRUE);
    123       1.1       cgd 				addr += size;
    124      1.19        tv 				db_format_radix(tbuf, 24, value, FALSE);
    125      1.19        tv 				db_printf("%-*s", width, tbuf);
    126       1.1       cgd 				break;
    127       1.6       gwr 			case 'x':	/* unsigned hex */
    128       1.1       cgd 				value = db_get_value(addr, size, FALSE);
    129       1.1       cgd 				addr += size;
    130      1.13   mycroft 				db_printf("%-*lx", width, value);
    131      1.20       jmc 				break;
    132      1.20       jmc 			case 'm':	/* hex dump */
    133      1.20       jmc 				/*
    134      1.20       jmc 				 * Print off in chunks of size. Try to print 16
    135      1.20       jmc 				 * bytes at a time into 4 columns. This
    136      1.20       jmc 				 * loops modify's count extra times in order
    137      1.20       jmc 				 * to get the nicely formatted lines.
    138      1.20       jmc 				 */
    139      1.20       jmc 
    140      1.20       jmc 				bytes = 0;
    141      1.20       jmc 				do {
    142      1.20       jmc 					for (i = 0; i < size; i++) {
    143      1.20       jmc 						value =
    144      1.20       jmc  						    db_get_value(addr+bytes, 1,
    145      1.20       jmc 						        FALSE);
    146      1.20       jmc 						db_printf("%02lx", value);
    147      1.20       jmc 						bytes++;
    148      1.20       jmc 						if (!(bytes % 4))
    149      1.20       jmc 							db_printf(" ");
    150      1.20       jmc 					}
    151      1.20       jmc 				} while ((bytes != 16) && count--);
    152      1.20       jmc 				/* True up the columns before continuing */
    153      1.20       jmc 				for (i = 4; i >= (bytes / 4); i--)
    154      1.20       jmc 					db_printf ("\t");
    155      1.20       jmc 				/* Print chars,  use . for non-printable's. */
    156      1.20       jmc 				while (bytes--) {
    157      1.20       jmc 					value = db_get_value(addr, 1, FALSE);
    158      1.20       jmc 					addr += 1;
    159      1.20       jmc 					if (value >= ' ' && value <= '~')
    160      1.20       jmc 						db_printf("%c", (char)value);
    161      1.20       jmc 					else
    162      1.20       jmc 						db_printf(".");
    163      1.20       jmc 				}
    164      1.20       jmc 				db_printf("\n");
    165       1.1       cgd 				break;
    166       1.6       gwr 			case 'z':	/* signed hex */
    167       1.1       cgd 				value = db_get_value(addr, size, TRUE);
    168       1.1       cgd 				addr += size;
    169      1.19        tv 				db_format_hex(tbuf, 24, value, FALSE);
    170      1.19        tv 				db_printf("%-*s", width, tbuf);
    171       1.1       cgd 				break;
    172       1.6       gwr 			case 'd':	/* signed decimal */
    173       1.1       cgd 				value = db_get_value(addr, size, TRUE);
    174       1.1       cgd 				addr += size;
    175      1.13   mycroft 				db_printf("%-*ld", width, value);
    176       1.1       cgd 				break;
    177       1.6       gwr 			case 'u':	/* unsigned decimal */
    178       1.1       cgd 				value = db_get_value(addr, size, FALSE);
    179       1.1       cgd 				addr += size;
    180      1.13   mycroft 				db_printf("%-*lu", width, value);
    181       1.1       cgd 				break;
    182       1.6       gwr 			case 'o':	/* unsigned octal */
    183       1.1       cgd 				value = db_get_value(addr, size, FALSE);
    184       1.1       cgd 				addr += size;
    185      1.13   mycroft 				db_printf("%-*lo", width, value);
    186       1.1       cgd 				break;
    187       1.6       gwr 			case 'c':	/* character */
    188       1.1       cgd 				value = db_get_value(addr, 1, FALSE);
    189       1.1       cgd 				addr += 1;
    190       1.1       cgd 				if (value >= ' ' && value <= '~')
    191      1.13   mycroft 					db_printf("%c", (char)value);
    192       1.1       cgd 				else
    193      1.13   mycroft 					db_printf("\\%03lo", value);
    194       1.1       cgd 				break;
    195       1.6       gwr 			case 's':	/* null-terminated string */
    196       1.1       cgd 				for (;;) {
    197       1.7   mycroft 					value = db_get_value(addr, 1, FALSE);
    198       1.7   mycroft 					addr += 1;
    199       1.7   mycroft 					if (value == 0)
    200       1.6       gwr 						break;
    201       1.7   mycroft 					if (value >= ' ' && value <= '~')
    202      1.13   mycroft 						db_printf("%c", (char)value);
    203       1.7   mycroft 					else
    204      1.13   mycroft 						db_printf("\\%03lo", value);
    205       1.1       cgd 				}
    206       1.1       cgd 				break;
    207       1.6       gwr 			case 'i':	/* instruction */
    208       1.1       cgd 				addr = db_disasm(addr, FALSE);
    209       1.1       cgd 				break;
    210       1.6       gwr 			case 'I':	/* instruction, alternate form */
    211       1.1       cgd 				addr = db_disasm(addr, TRUE);
    212       1.1       cgd 				break;
    213       1.6       gwr 			default:
    214       1.1       cgd 				break;
    215       1.1       cgd 			}
    216       1.1       cgd 			if (db_print_position() != 0)
    217       1.6       gwr 				db_end_line();
    218       1.7   mycroft 		}
    219       1.1       cgd 	}
    220       1.1       cgd 	db_next = addr;
    221       1.1       cgd }
    222       1.1       cgd 
    223       1.1       cgd /*
    224       1.1       cgd  * Print value.
    225       1.1       cgd  */
    226       1.1       cgd char	db_print_format = 'x';
    227       1.1       cgd 
    228       1.1       cgd /*ARGSUSED*/
    229       1.1       cgd void
    230       1.1       cgd db_print_cmd(addr, have_addr, count, modif)
    231       1.1       cgd 	db_expr_t	addr;
    232       1.1       cgd 	int		have_addr;
    233       1.1       cgd 	db_expr_t	count;
    234       1.1       cgd 	char *		modif;
    235       1.1       cgd {
    236       1.1       cgd 	db_expr_t	value;
    237       1.1       cgd 
    238       1.1       cgd 	if (modif[0] != '\0')
    239       1.7   mycroft 		db_print_format = modif[0];
    240       1.1       cgd 
    241       1.1       cgd 	switch (db_print_format) {
    242       1.7   mycroft 	case 'a':
    243      1.18     jhawk 		db_printsym((db_addr_t)addr, DB_STGY_ANY, db_printf);
    244       1.1       cgd 		break;
    245       1.7   mycroft 	case 'r':
    246      1.19        tv 		{
    247      1.19        tv 			char tbuf[24];
    248      1.19        tv 
    249      1.19        tv 			db_format_radix(tbuf, 24, addr, FALSE);
    250      1.19        tv 			db_printf("%11s", tbuf);
    251      1.19        tv 			break;
    252      1.19        tv 		}
    253       1.7   mycroft 	case 'x':
    254      1.13   mycroft 		db_printf("%8lx", addr);
    255       1.1       cgd 		break;
    256       1.7   mycroft 	case 'z':
    257      1.19        tv 		{
    258      1.19        tv 			char tbuf[24];
    259      1.19        tv 
    260      1.19        tv 			db_format_hex(tbuf, 24, addr, FALSE);
    261      1.19        tv 			db_printf("%8s", tbuf);
    262      1.19        tv 			break;
    263      1.19        tv 		}
    264       1.7   mycroft 	case 'd':
    265      1.13   mycroft 		db_printf("%11ld", addr);
    266       1.1       cgd 		break;
    267       1.7   mycroft 	case 'u':
    268      1.13   mycroft 		db_printf("%11lu", addr);
    269       1.1       cgd 		break;
    270       1.7   mycroft 	case 'o':
    271      1.13   mycroft 		db_printf("%16lo", addr);
    272       1.1       cgd 		break;
    273       1.7   mycroft 	case 'c':
    274       1.1       cgd 		value = addr & 0xFF;
    275       1.1       cgd 		if (value >= ' ' && value <= '~')
    276      1.13   mycroft 			db_printf("%c", (char)value);
    277       1.1       cgd 		else
    278      1.13   mycroft 			db_printf("\\%03lo", value);
    279       1.1       cgd 		break;
    280       1.1       cgd 	}
    281       1.1       cgd 	db_printf("\n");
    282       1.1       cgd }
    283       1.1       cgd 
    284      1.10  christos void
    285       1.1       cgd db_print_loc_and_inst(loc)
    286       1.1       cgd 	db_addr_t	loc;
    287       1.1       cgd {
    288      1.18     jhawk 	db_printsym(loc, DB_STGY_PROC, db_printf);
    289       1.1       cgd 	db_printf(":\t");
    290       1.8       gwr 	(void) db_disasm(loc, FALSE);
    291       1.1       cgd }
    292       1.1       cgd 
    293      1.10  christos void
    294       1.1       cgd db_strcpy(dst, src)
    295      1.17  augustss 	char *dst;
    296      1.17  augustss 	char *src;
    297       1.1       cgd {
    298      1.10  christos 	while ((*dst++ = *src++) != '\0')
    299       1.7   mycroft 		;
    300       1.1       cgd }
    301       1.1       cgd 
    302       1.1       cgd /*
    303       1.1       cgd  * Search for a value in memory.
    304       1.1       cgd  * Syntax: search [/bhl] addr value [mask] [,count]
    305       1.1       cgd  */
    306      1.10  christos /*ARGSUSED*/
    307       1.1       cgd void
    308      1.10  christos db_search_cmd(daddr, have_addr, dcount, modif)
    309      1.10  christos 	db_expr_t	daddr;
    310      1.10  christos 	int		have_addr;
    311      1.10  christos 	db_expr_t	dcount;
    312      1.10  christos 	char *		modif;
    313       1.1       cgd {
    314       1.1       cgd 	int		t;
    315       1.1       cgd 	db_addr_t	addr;
    316       1.1       cgd 	int		size;
    317       1.1       cgd 	db_expr_t	value;
    318       1.1       cgd 	db_expr_t	mask;
    319      1.12       cgd 	db_expr_t	count;
    320       1.1       cgd 
    321       1.1       cgd 	t = db_read_token();
    322       1.1       cgd 	if (t == tSLASH) {
    323       1.7   mycroft 		t = db_read_token();
    324       1.7   mycroft 		if (t != tIDENT) {
    325       1.7   mycroft 			bad_modifier:
    326       1.7   mycroft 			db_printf("Bad modifier\n");
    327       1.7   mycroft 			db_flush_lex();
    328       1.7   mycroft 			return;
    329       1.7   mycroft 		}
    330       1.7   mycroft 
    331       1.7   mycroft 		if (!strcmp(db_tok_string, "b"))
    332       1.7   mycroft 			size = 1;
    333       1.7   mycroft 		else if (!strcmp(db_tok_string, "h"))
    334       1.7   mycroft 			size = 2;
    335       1.7   mycroft 		else if (!strcmp(db_tok_string, "l"))
    336       1.7   mycroft 			size = 4;
    337       1.7   mycroft 		else
    338       1.7   mycroft 			goto bad_modifier;
    339       1.7   mycroft 	} else {
    340       1.7   mycroft 		db_unread_token(t);
    341       1.1       cgd 		size = 4;
    342       1.1       cgd 	}
    343       1.1       cgd 
    344      1.10  christos 	if (!db_expression(&value)) {
    345       1.7   mycroft 		db_printf("Address missing\n");
    346       1.7   mycroft 		db_flush_lex();
    347       1.7   mycroft 		return;
    348       1.1       cgd 	}
    349      1.10  christos 	addr = (db_addr_t) value;
    350       1.1       cgd 
    351       1.1       cgd 	if (!db_expression(&value)) {
    352       1.7   mycroft 		db_printf("Value missing\n");
    353       1.7   mycroft 		db_flush_lex();
    354       1.7   mycroft 		return;
    355       1.1       cgd 	}
    356       1.1       cgd 
    357       1.1       cgd 	if (!db_expression(&mask))
    358      1.10  christos 		mask = (int) ~0;
    359       1.1       cgd 
    360       1.1       cgd 	t = db_read_token();
    361       1.1       cgd 	if (t == tCOMMA) {
    362       1.7   mycroft 		if (!db_expression(&count)) {
    363       1.7   mycroft 			db_printf("Count missing\n");
    364       1.7   mycroft 			db_flush_lex();
    365       1.7   mycroft 			return;
    366       1.7   mycroft 		}
    367       1.1       cgd 	} else {
    368       1.7   mycroft 		db_unread_token(t);
    369       1.7   mycroft 		count = -1;		/* effectively forever */
    370       1.1       cgd 	}
    371       1.1       cgd 	db_skip_to_eol();
    372       1.1       cgd 
    373       1.1       cgd 	db_search(addr, size, value, mask, count);
    374       1.1       cgd }
    375       1.1       cgd 
    376      1.10  christos void
    377       1.1       cgd db_search(addr, size, value, mask, count)
    378       1.1       cgd 	db_addr_t	addr;
    379       1.1       cgd 	int		size;
    380       1.1       cgd 	db_expr_t	value;
    381       1.1       cgd 	db_expr_t	mask;
    382       1.1       cgd 	unsigned int	count;
    383       1.1       cgd {
    384       1.1       cgd 	while (count-- != 0) {
    385       1.1       cgd 		db_prev = addr;
    386       1.1       cgd 		if ((db_get_value(addr, size, FALSE) & mask) == value)
    387       1.1       cgd 			break;
    388       1.1       cgd 		addr += size;
    389       1.1       cgd 	}
    390       1.1       cgd 	db_next = addr;
    391       1.1       cgd }
    392