NetBSD/sys/ddb/db_examine.c

373 lines
8.3 KiB
C
Raw Normal View History

/* $NetBSD: db_examine.c,v 1.26 2003/11/09 20:52:18 scw Exp $ */
1994-10-06 08:20:42 +03:00
/*
1993-03-21 12:45:37 +03:00
* Mach Operating System
* Copyright (c) 1991,1990 Carnegie Mellon University
* All Rights Reserved.
1994-10-06 08:20:42 +03:00
*
1993-03-21 12:45:37 +03:00
* Permission to use, copy, modify and distribute this software and its
* documentation is hereby granted, provided that both the copyright
* notice and this permission notice appear in all copies of the
* software, derivative works or modified versions, and any portions
* thereof, and that both notices appear in supporting documentation.
1994-10-06 08:20:42 +03:00
*
* CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
1993-03-21 12:45:37 +03:00
* CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
* ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
1994-10-06 08:20:42 +03:00
*
1993-03-21 12:45:37 +03:00
* Carnegie Mellon requests users of this software to return to
1994-10-06 08:20:42 +03:00
*
1993-03-21 12:45:37 +03:00
* Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
* School of Computer Science
* Carnegie Mellon University
* Pittsburgh PA 15213-3890
1994-10-06 08:20:42 +03:00
*
1993-03-21 12:45:37 +03:00
* any improvements or extensions that they make and grant Carnegie the
* rights to redistribute these changes.
1993-05-20 07:39:04 +04:00
*
1993-03-21 12:45:37 +03:00
* Author: David B. Golub, Carnegie Mellon University
* Date: 7/90
*/
1993-12-18 07:46:25 +03:00
2001-11-13 01:54:03 +03:00
#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: db_examine.c,v 1.26 2003/11/09 20:52:18 scw Exp $");
2001-11-13 01:54:03 +03:00
1993-12-18 07:46:25 +03:00
#include <sys/param.h>
#include <sys/systm.h>
1993-12-18 07:46:25 +03:00
#include <sys/proc.h>
1993-03-21 12:45:37 +03:00
#include <machine/db_machdep.h> /* type definitions */
#include <ddb/db_lex.h>
#include <ddb/db_output.h>
#include <ddb/db_command.h>
#include <ddb/db_sym.h>
1996-02-05 04:56:47 +03:00
#include <ddb/db_access.h>
#include <ddb/db_extern.h>
#include <ddb/db_interface.h>
1993-03-21 12:45:37 +03:00
static char db_examine_format[TOK_STRING_SIZE] = "x";
static void db_examine(db_addr_t, char *, int);
static void db_search(db_addr_t, int, db_expr_t, db_expr_t, unsigned int);
1993-03-21 12:45:37 +03:00
/*
* Examine (print) data. Syntax is:
* x/[bhl][cdiorsuxz]*
* For example, the command:
* x/bxxxx
* should print:
* address: 01 23 45 67
1993-03-21 12:45:37 +03:00
*/
/*ARGSUSED*/
void
db_examine_cmd(db_expr_t addr, int have_addr, db_expr_t count, char *modif)
1993-03-21 12:45:37 +03:00
{
if (modif[0] != '\0')
2003-05-16 20:28:30 +04:00
strlcpy(db_examine_format, modif, sizeof(db_examine_format));
1993-03-21 12:45:37 +03:00
if (count == -1)
1994-10-06 08:20:42 +03:00
count = 1;
1993-03-21 12:45:37 +03:00
db_examine((db_addr_t) addr, db_examine_format, count);
}
static void
db_examine(db_addr_t addr, char *fmt, int count)
1993-03-21 12:45:37 +03:00
{
2000-12-28 10:30:06 +03:00
int i, c;
1993-03-21 12:45:37 +03:00
db_expr_t value;
int size;
int width;
2000-12-28 10:30:06 +03:00
int bytes;
1993-03-21 12:45:37 +03:00
char * fp;
char tbuf[24];
1994-10-06 08:20:42 +03:00
1993-03-21 12:45:37 +03:00
while (--count >= 0) {
1994-10-06 08:20:42 +03:00
fp = fmt;
size = 4;
width = 12;
1994-10-06 08:20:42 +03:00
while ((c = *fp++) != 0) {
if (db_print_position() == 0) {
/* Always print the address. */
db_printsym(addr, DB_STGY_ANY, db_printf);
db_printf(":\t");
db_prev = addr;
}
switch (c) {
case 'b': /* byte */
size = 1;
width = 4;
break;
case 'h': /* half-word */
size = 2;
width = 8;
break;
case 'l': /* long-word */
size = 4;
width = 12;
break;
case 'L': /* implementation maximum */
size = sizeof value;
width = 12 * (sizeof value / 4);
break;
1994-10-06 08:20:42 +03:00
case 'a': /* address */
db_printf("= 0x%lx\n", (long)addr);
break;
case 'r': /* signed, current radix */
1993-03-21 12:45:37 +03:00
value = db_get_value(addr, size, TRUE);
addr += size;
db_format_radix(tbuf, 24, value, FALSE);
db_printf("%-*s", width, tbuf);
1993-03-21 12:45:37 +03:00
break;
case 'x': /* unsigned hex */
1993-03-21 12:45:37 +03:00
value = db_get_value(addr, size, FALSE);
addr += size;
db_printf(DB_EXPR_T_IS_QUAD ? "%-*qx" : "%-*lx",
width, value);
1993-03-21 12:45:37 +03:00
break;
2000-12-28 10:30:06 +03:00
case 'm': /* hex dump */
/*
2000-12-28 10:30:06 +03:00
* Print off in chunks of size. Try to print 16
* bytes at a time into 4 columns. This
2000-12-28 10:30:06 +03:00
* loops modify's count extra times in order
* to get the nicely formatted lines.
*/
2000-12-28 10:30:06 +03:00
bytes = 0;
do {
for (i = 0; i < size; i++) {
value =
2000-12-28 10:30:06 +03:00
db_get_value(addr+bytes, 1,
FALSE);
db_printf(
DB_EXPR_T_IS_QUAD ? "%02qx":
"%02lx", value);
2000-12-28 10:30:06 +03:00
bytes++;
if (!(bytes % 4))
db_printf(" ");
}
} while ((bytes != 16) && count--);
/* True up the columns before continuing */
for (i = 4; i >= (bytes / 4); i--)
db_printf ("\t");
/* Print chars, use . for non-printable's. */
while (bytes--) {
value = db_get_value(addr, 1, FALSE);
addr += 1;
if (value >= ' ' && value <= '~')
db_printf("%c", (char)value);
else
db_printf(".");
}
2000-12-28 10:30:06 +03:00
db_printf("\n");
break;
case 'z': /* signed hex */
1993-03-21 12:45:37 +03:00
value = db_get_value(addr, size, TRUE);
addr += size;
db_format_hex(tbuf, 24, value, FALSE);
db_printf("%-*s", width, tbuf);
1993-03-21 12:45:37 +03:00
break;
case 'd': /* signed decimal */
1993-03-21 12:45:37 +03:00
value = db_get_value(addr, size, TRUE);
addr += size;
db_printf(DB_EXPR_T_IS_QUAD ? "%-*qd" : "%-*ld",
width, value);
1993-03-21 12:45:37 +03:00
break;
case 'u': /* unsigned decimal */
1993-03-21 12:45:37 +03:00
value = db_get_value(addr, size, FALSE);
addr += size;
db_printf(DB_EXPR_T_IS_QUAD ? "%-*qu" : "%-*lu",
width, value);
1993-03-21 12:45:37 +03:00
break;
case 'o': /* unsigned octal */
1993-03-21 12:45:37 +03:00
value = db_get_value(addr, size, FALSE);
addr += size;
db_printf(DB_EXPR_T_IS_QUAD ? "%-*qo" : "%-*lo",
width, value);
1993-03-21 12:45:37 +03:00
break;
case 'c': /* character */
1993-03-21 12:45:37 +03:00
value = db_get_value(addr, 1, FALSE);
addr += 1;
if (value >= ' ' && value <= '~')
1997-02-04 02:36:09 +03:00
db_printf("%c", (char)value);
1993-03-21 12:45:37 +03:00
else
db_printf("\\%03o", (int)value);
1993-03-21 12:45:37 +03:00
break;
case 's': /* null-terminated string */
1993-03-21 12:45:37 +03:00
for (;;) {
1994-10-06 08:20:42 +03:00
value = db_get_value(addr, 1, FALSE);
addr += 1;
if (value == 0)
break;
1994-10-06 08:20:42 +03:00
if (value >= ' ' && value <= '~')
1997-02-04 02:36:09 +03:00
db_printf("%c", (char)value);
1994-10-06 08:20:42 +03:00
else
db_printf("\\%03o", (int)value);
1993-03-21 12:45:37 +03:00
}
break;
case 'i': /* instruction */
1993-03-21 12:45:37 +03:00
addr = db_disasm(addr, FALSE);
break;
case 'I': /* instruction, alternate form */
1993-03-21 12:45:37 +03:00
addr = db_disasm(addr, TRUE);
break;
default:
1993-03-21 12:45:37 +03:00
break;
}
if (db_print_position() != 0)
db_end_line();
1994-10-06 08:20:42 +03:00
}
1993-03-21 12:45:37 +03:00
}
db_next = addr;
}
/*
* Print value.
*/
static char db_print_format = 'x';
1993-03-21 12:45:37 +03:00
/*ARGSUSED*/
void
db_print_cmd(db_expr_t addr, int have_addr, db_expr_t count, char *modif)
1993-03-21 12:45:37 +03:00
{
db_expr_t value;
if (modif[0] != '\0')
1994-10-06 08:20:42 +03:00
db_print_format = modif[0];
1993-03-21 12:45:37 +03:00
switch (db_print_format) {
1994-10-06 08:20:42 +03:00
case 'a':
db_printsym((db_addr_t)addr, DB_STGY_ANY, db_printf);
1993-03-21 12:45:37 +03:00
break;
1994-10-06 08:20:42 +03:00
case 'r':
{
char tbuf[24];
db_format_radix(tbuf, 24, addr, FALSE);
db_printf("%11s", tbuf);
break;
}
1994-10-06 08:20:42 +03:00
case 'x':
db_printf(DB_EXPR_T_IS_QUAD ? "%16qx" : "%8lx", addr);
1993-03-21 12:45:37 +03:00
break;
1994-10-06 08:20:42 +03:00
case 'z':
{
char tbuf[24];
db_format_hex(tbuf, 24, addr, FALSE);
db_printf("%8s", tbuf);
break;
}
1994-10-06 08:20:42 +03:00
case 'd':
db_printf(DB_EXPR_T_IS_QUAD ? "%11qd" : "%11ld", addr);
1993-03-21 12:45:37 +03:00
break;
1994-10-06 08:20:42 +03:00
case 'u':
db_printf(DB_EXPR_T_IS_QUAD ? "%11qu" : "%11lu", addr);
1993-03-21 12:45:37 +03:00
break;
1994-10-06 08:20:42 +03:00
case 'o':
db_printf(DB_EXPR_T_IS_QUAD ? "%15qo" : "%16lo", addr);
1993-03-21 12:45:37 +03:00
break;
1994-10-06 08:20:42 +03:00
case 'c':
1993-03-21 12:45:37 +03:00
value = addr & 0xFF;
if (value >= ' ' && value <= '~')
1997-02-04 02:36:09 +03:00
db_printf("%c", (char)value);
1993-03-21 12:45:37 +03:00
else
db_printf("\\%03o", (int)value);
1993-03-21 12:45:37 +03:00
break;
}
db_printf("\n");
}
1996-02-05 04:56:47 +03:00
void
db_print_loc_and_inst(db_addr_t loc)
1993-03-21 12:45:37 +03:00
{
db_printsym(loc, DB_STGY_PROC, db_printf);
1993-03-21 12:45:37 +03:00
db_printf(":\t");
(void) db_disasm(loc, FALSE);
1993-03-21 12:45:37 +03:00
}
/*
* Search for a value in memory.
* Syntax: search [/bhl] addr value [mask] [,count]
*/
1996-02-05 04:56:47 +03:00
/*ARGSUSED*/
1993-03-21 12:45:37 +03:00
void
db_search_cmd(db_expr_t daddr, int have_addr, db_expr_t dcount, char *modif)
1993-03-21 12:45:37 +03:00
{
int t;
db_addr_t addr;
int size;
db_expr_t value;
db_expr_t mask;
1997-02-03 22:56:03 +03:00
db_expr_t count;
1993-03-21 12:45:37 +03:00
t = db_read_token();
if (t == tSLASH) {
1994-10-06 08:20:42 +03:00
t = db_read_token();
if (t != tIDENT) {
bad_modifier:
db_printf("Bad modifier\n");
db_flush_lex();
return;
}
1993-03-21 12:45:37 +03:00
1994-10-06 08:20:42 +03:00
if (!strcmp(db_tok_string, "b"))
size = 1;
else if (!strcmp(db_tok_string, "h"))
size = 2;
else if (!strcmp(db_tok_string, "l"))
size = 4;
else
goto bad_modifier;
1993-03-21 12:45:37 +03:00
} else {
1994-10-06 08:20:42 +03:00
db_unread_token(t);
size = 4;
1993-03-21 12:45:37 +03:00
}
1996-02-05 04:56:47 +03:00
if (!db_expression(&value)) {
1994-10-06 08:20:42 +03:00
db_printf("Address missing\n");
db_flush_lex();
return;
1993-03-21 12:45:37 +03:00
}
1996-02-05 04:56:47 +03:00
addr = (db_addr_t) value;
1993-03-21 12:45:37 +03:00
if (!db_expression(&value)) {
1994-10-06 08:20:42 +03:00
db_printf("Value missing\n");
db_flush_lex();
return;
1993-03-21 12:45:37 +03:00
}
if (!db_expression(&mask))
1996-02-05 04:56:47 +03:00
mask = (int) ~0;
1993-03-21 12:45:37 +03:00
t = db_read_token();
if (t == tCOMMA) {
1994-10-06 08:20:42 +03:00
if (!db_expression(&count)) {
db_printf("Count missing\n");
db_flush_lex();
return;
}
1993-03-21 12:45:37 +03:00
} else {
1994-10-06 08:20:42 +03:00
db_unread_token(t);
count = -1; /* effectively forever */
1993-03-21 12:45:37 +03:00
}
db_skip_to_eol();
db_search(addr, size, value, mask, count);
}
static void
db_search(db_addr_t addr, int size, db_expr_t value, db_expr_t mask,
unsigned int count)
1993-03-21 12:45:37 +03:00
{
while (count-- != 0) {
db_prev = addr;
if ((db_get_value(addr, size, FALSE) & mask) == value)
break;
addr += size;
}
db_next = addr;
}