Annotation of sys/ddb/db_output.c, Revision 1.1
1.1 ! nbrk 1: /* $OpenBSD: db_output.c,v 1.25 2006/07/06 18:14:14 miod Exp $ */
! 2: /* $NetBSD: db_output.c,v 1.13 1996/04/01 17:27:14 christos Exp $ */
! 3:
! 4: /*
! 5: * Mach Operating System
! 6: * Copyright (c) 1993,1992,1991,1990 Carnegie Mellon University
! 7: * All Rights Reserved.
! 8: *
! 9: * Permission to use, copy, modify and distribute this software and its
! 10: * documentation is hereby granted, provided that both the copyright
! 11: * notice and this permission notice appear in all copies of the
! 12: * software, derivative works or modified versions, and any portions
! 13: * thereof, and that both notices appear in supporting documentation.
! 14: *
! 15: * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
! 16: * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
! 17: * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
! 18: *
! 19: * Carnegie Mellon requests users of this software to return to
! 20: *
! 21: * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
! 22: * School of Computer Science
! 23: * Carnegie Mellon University
! 24: * Pittsburgh PA 15213-3890
! 25: *
! 26: * any improvements or extensions that they make and grant Carnegie Mellon
! 27: * the rights to redistribute these changes.
! 28: */
! 29:
! 30: /*
! 31: * Printf and character output for debugger.
! 32: */
! 33: #include <sys/param.h>
! 34: #include <sys/proc.h>
! 35: #include <sys/stdarg.h>
! 36: #include <sys/systm.h>
! 37:
! 38: #include <dev/cons.h>
! 39:
! 40: #include <uvm/uvm_extern.h>
! 41:
! 42: #include <machine/db_machdep.h>
! 43:
! 44: #include <ddb/db_command.h>
! 45: #include <ddb/db_output.h>
! 46: #include <ddb/db_interface.h>
! 47: #include <ddb/db_sym.h>
! 48: #include <ddb/db_var.h>
! 49: #include <ddb/db_extern.h>
! 50:
! 51: /*
! 52: * Character output - tracks position in line.
! 53: * To do this correctly, we should know how wide
! 54: * the output device is - then we could zero
! 55: * the line position when the output device wraps
! 56: * around to the start of the next line.
! 57: *
! 58: * Instead, we count the number of spaces printed
! 59: * since the last printing character so that we
! 60: * don't print trailing spaces. This avoids most
! 61: * of the wraparounds.
! 62: */
! 63:
! 64: #ifndef DB_MAX_LINE
! 65: #define DB_MAX_LINE 24 /* maximum line */
! 66: #define DB_MAX_WIDTH 80 /* maximum width */
! 67: #endif /* DB_MAX_LINE */
! 68:
! 69: #define DB_MIN_MAX_WIDTH 20 /* minimum max width */
! 70: #define DB_MIN_MAX_LINE 3 /* minimum max line */
! 71: #define CTRL(c) ((c) & 0xff)
! 72:
! 73: int db_output_position = 0; /* output column */
! 74: int db_output_line = 0; /* output line number */
! 75: int db_last_non_space = 0; /* last non-space character */
! 76: int db_tab_stop_width = 8; /* how wide are tab stops? */
! 77: #define NEXT_TAB(i) \
! 78: ((((i) + db_tab_stop_width) / db_tab_stop_width) * db_tab_stop_width)
! 79: int db_max_line = DB_MAX_LINE; /* output max lines */
! 80: int db_max_width = DB_MAX_WIDTH; /* output line width */
! 81: int db_radix = 16; /* output numbers radix */
! 82:
! 83: static void db_more(void);
! 84:
! 85: /*
! 86: * Force pending whitespace.
! 87: */
! 88: void
! 89: db_force_whitespace(void)
! 90: {
! 91: int last_print, next_tab;
! 92:
! 93: last_print = db_last_non_space;
! 94: while (last_print < db_output_position) {
! 95: next_tab = NEXT_TAB(last_print);
! 96: if (next_tab <= db_output_position) {
! 97: while (last_print < next_tab) { /* DON'T send a tab!!! */
! 98: cnputc(' ');
! 99: last_print++;
! 100: }
! 101: }
! 102: else {
! 103: cnputc(' ');
! 104: last_print++;
! 105: }
! 106: }
! 107: db_last_non_space = db_output_position;
! 108: }
! 109:
! 110: static void
! 111: db_more(void)
! 112: {
! 113: char *p;
! 114: int quit_output = 0;
! 115:
! 116: for (p = "--db_more--"; *p; p++)
! 117: cnputc(*p);
! 118: switch(cngetc()) {
! 119: case ' ':
! 120: db_output_line = 0;
! 121: break;
! 122: case 'q':
! 123: case CTRL('c'):
! 124: db_output_line = 0;
! 125: quit_output = 1;
! 126: break;
! 127: default:
! 128: db_output_line--;
! 129: break;
! 130: }
! 131: p = "\b\b\b\b\b\b\b\b\b\b\b \b\b\b\b\b\b\b\b\b\b\b";
! 132: while (*p)
! 133: cnputc(*p++);
! 134: if (quit_output) {
! 135: db_error(0);
! 136: /* NOTREACHED */
! 137: }
! 138: }
! 139:
! 140: /*
! 141: * Output character. Buffer whitespace.
! 142: */
! 143: void
! 144: db_putchar(int c)
! 145: {
! 146: if (db_max_line >= DB_MIN_MAX_LINE && db_output_line >= db_max_line-1)
! 147: db_more();
! 148:
! 149: if (c > ' ' && c <= '~') {
! 150: /*
! 151: * Printing character.
! 152: * If we have spaces to print, print them first.
! 153: * Use tabs if possible.
! 154: */
! 155: db_force_whitespace();
! 156: cnputc(c);
! 157: db_output_position++;
! 158: if (db_max_width >= DB_MIN_MAX_WIDTH
! 159: && db_output_position >= db_max_width-1) {
! 160: /* auto new line */
! 161: cnputc('\n');
! 162: db_output_position = 0;
! 163: db_last_non_space = 0;
! 164: db_output_line++;
! 165: }
! 166: db_last_non_space = db_output_position;
! 167: }
! 168: else if (c == '\n') {
! 169: /* Return */
! 170: cnputc(c);
! 171: db_output_position = 0;
! 172: db_last_non_space = 0;
! 173: db_output_line++;
! 174: }
! 175: else if (c == '\t') {
! 176: /* assume tabs every 8 positions */
! 177: db_output_position = NEXT_TAB(db_output_position);
! 178: }
! 179: else if (c == ' ') {
! 180: /* space */
! 181: db_output_position++;
! 182: }
! 183: else if (c == '\007') {
! 184: /* bell */
! 185: cnputc(c);
! 186: }
! 187: /* other characters are assumed non-printing */
! 188: }
! 189:
! 190: /*
! 191: * Return output position
! 192: */
! 193: int
! 194: db_print_position(void)
! 195: {
! 196: return (db_output_position);
! 197: }
! 198:
! 199: /*
! 200: * End line if too long.
! 201: */
! 202: void
! 203: db_end_line(int space)
! 204: {
! 205: if (db_output_position >= db_max_width - space)
! 206: db_printf("\n");
! 207: }
! 208:
! 209: char *
! 210: db_format(char *buf, size_t bufsize, long val, int format, int alt, int width)
! 211: {
! 212: const char *fmt;
! 213:
! 214: if (format == DB_FORMAT_Z || db_radix == 16)
! 215: fmt = alt ? "-%#*lx" : "-%*lx";
! 216: else if (db_radix == 8)
! 217: fmt = alt ? "-%#*lo" : "-%*lo";
! 218: else
! 219: fmt = alt ? "-%#*lu" : "-%*lu";
! 220:
! 221: /* The leading '-' is a nasty (and beautiful) idea from NetBSD */
! 222: if (val < 0 && format != DB_FORMAT_N)
! 223: val = -val;
! 224: else
! 225: fmt++;
! 226:
! 227: snprintf(buf, bufsize, fmt, width, val);
! 228:
! 229: return (buf);
! 230: }
! 231:
! 232: void
! 233: db_stack_dump(void)
! 234: {
! 235: static int intrace;
! 236:
! 237: if (intrace) {
! 238: printf("Faulted in traceback, aborting...\n");
! 239: return;
! 240: }
! 241:
! 242: intrace = 1;
! 243: printf("Starting stack trace...\n");
! 244: db_stack_trace_print((db_expr_t)__builtin_frame_address(0), TRUE,
! 245: 256 /* low limit */, "", printf);
! 246: printf("End of stack trace.\n");
! 247: intrace = 0;
! 248: }
CVSweb