/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include <u.h>#include <libc.h>#include <ctype.h>#include <bio.h>#include <mach.h>#define Extern extern#include "power.h" char	buf[128], lastcmd[128];char	fmt = 'X';int	width = 60;int	inc; ulong	expr(char*);ulong	expr1(char*);char*	term(char*, ulong*); char *nextc(char *p){	while(*p && (*p == ' ' || *p == '\t') && *p != '\n')		p++; 	if(*p == '\n')		*p = '\0'; 	return p;} char *numsym(char *addr, ulong *val){	char tsym[128], *t;	static char *delim = "`'<>/\\@*|-~+-/=?\n";	Symbol s;	char c; 	t = tsym;	while(c = *addr) {		if(strchr(delim, c))			break;		*t++ = c;		addr++;	}	t[0] = '\0'; 	if(strcmp(tsym, ".") == 0) {		*val = dot;		return addr;	} 	if(lookup(0, tsym, &s))		*val = s.value;	else {		if(tsym[0] == '#')			*val = strtoul(tsym+1, 0, 16);		else			*val = strtoul(tsym, 0, 0);	}	return addr;} ulongexpr(char *addr){	ulong t, t2;	char op; 	if(*addr == '\0')		return dot; 	addr = numsym(addr, &t); 	if(*addr == '\0')		return t; 	addr = nextc(addr);	op = *addr++;	numsym(addr, &t2);	switch(op) {	default:		Bprint(bioout, "expr syntax\n");		return 0;	case '+':		t += t2;		break;	case '-':		t -= t2;		break;	case '%':		t /= t2;		break;	case '&':		t &= t2;		break;	case '|':		t |= t2;		break;	} 	return t;} intbuildargv(char *str, char **args, int max){	int na = 0; 	while (na < max) {		while((*str == ' ' || *str == '\t' || *str == '\n') && *str != '\0')			str++; 		if(*str == '\0')			return na; 		args[na++] = str;		while(!(*str == ' ' || *str == '\t'|| *str == '\n') && *str != '\0')			str++; 		if(*str == '\n')			*str = '\0'; 		if(*str == '\0')			break; 		*str++ = '\0';	}	return na;} voidcolon(char *addr, char *cp){	int argc;	char *argv[100];	char tbuf[512]; 	cp = nextc(cp);	switch(*cp) {	default:		Bprint(bioout, "?\n");		return;	case 'b':		breakpoint(addr, cp+1);		return; 	case 'd':		delbpt(addr);		return; 	/* These fall through to print the stopped address */	case 'r':		reset();		argc = buildargv(cp+1, argv, 100);		initstk(argc, argv);		count = 0;		atbpt = 0;		run();		break;	case 'c':		count = 0;		atbpt = 0;		run();		break;	case 's':		cp = nextc(cp+1);		count = 0;		if(*cp)			count = strtoul(cp, 0, 0);		if(count == 0)			count = 1;		atbpt = 0;		run();		break;	} 	dot = reg.pc;	Bprint(bioout, "%s at #%lux ", atbpt ? "breakpoint" : "stopped", dot);	symoff(tbuf, sizeof(tbuf), dot, CTEXT);	Bprint(bioout, tbuf);	if(fmt == 'z')		printsource(dot); 	Bprint(bioout, "\n");}  voiddollar(char *cp){	cp = nextc(cp);	switch(*cp) {	default:		Bprint(bioout, "?\n");		break; 	case 'c':	case 'C':		stktrace(*cp);		break; 	case 'b':		dobplist();		break; 	case 'r':		dumpreg();		break; 	case 'R':		dumpreg();		/* fall through */ 	case 'f':		dumpfreg();		break; 	case 'F':		dumpdreg();		break; 	case 'q':		exits(0);		break; 	case 'Q':		isum();		segsum();		break; 	case 't':		cp++;		switch(*cp) {		default:			Bprint(bioout, ":t[0sic]\n");			break;		case '\0':			trace = 1;			break;		case '0':			trace = 0;			sysdbg = 0;			calltree = 0;			break;		case 's':			sysdbg = 1;			break;		case 'i':			trace = 1;			break;		case 'c':			calltree = 1;			break;		}		break; 	case 'i':		cp++;		switch(*cp) {		default:			Bprint(bioout, "$i[isa]\n");			break;		case 'i':			isum();			break;		case 's':			segsum();			break;		case 'a':			isum();			segsum();			iprofile();			break;		case 'p':			iprofile();			break;		}	}} intpfmt(char fmt, int mem, ulong val){	int c, i;	Symbol s;	char *p, ch, str[1024]; 	c = 0;	switch(fmt) {	default:		Bprint(bioout, "bad modifier\n");		return 0;	case 'o':		c = Bprint(bioout, "%-4lo ", mem ? (ushort)getmem_2(dot) : val);		inc = 2;		break; 	case 'O':		c = Bprint(bioout, "%-8lo ", mem ? getmem_4(dot) : val);		inc = 4;		break; 	case 'q':		c = Bprint(bioout, "%-4lo ", mem ? (short)getmem_2(dot) : val);		inc = 2;		break; 	case 'Q':		c = Bprint(bioout, "%-8lo ", mem ? (long)getmem_4(dot) : val);		inc = 4;		break; 	case 'd':		c = Bprint(bioout, "%-5ld ", mem ? (short)getmem_2(dot) : val);		inc = 2;		break;  	case 'D':		c = Bprint(bioout, "%-8ld ", mem ? (long)getmem_4(dot) : val);		inc = 4;		break; 	case 'x':		c = Bprint(bioout, "#%-4lux ", mem ? (long)getmem_2(dot) : val);		inc = 2;		break; 	case 'X':		c = Bprint(bioout, "#%-8lux ", mem ? (long)getmem_4(dot) : val);		inc = 4;		break; 	case 'u':		c = Bprint(bioout, "%-5ld ", mem ? (ushort)getmem_2(dot) : val);		inc = 2;		break; 	case 'U':		c = Bprint(bioout, "%-8ld ", mem ? (ulong)getmem_4(dot) : val);		inc = 4;		break; 	case 'b':		c = Bprint(bioout, "%-3ld ", mem ? getmem_b(dot) : val);		inc = 1;		break; 	case 'c':		c = Bprint(bioout, "%c ", (int)(mem ? getmem_b(dot) : val));		inc = 1;		break; 	case 'C':		ch = mem ? getmem_b(dot) : val;		if(isprint(ch))			c = Bprint(bioout, "%c ", ch);		else			c = Bprint(bioout, "\\x%.2x ", ch);		inc = 1;		break; 	case 's':		i = 0;		while(ch = getmem_b(dot+i))			str[i++] = ch;		str[i] = '\0';		dot += i;		c = Bprint(bioout, "%s", str);		inc = 0;		break; 	case 'S':		i = 0;		while(ch = getmem_b(dot+i))			str[i++] = ch;		str[i] = '\0';		dot += i;		for(p = str; *p; p++)			if(isprint(*p))				c += Bprint(bioout, "%c", *p);			else				c += Bprint(bioout, "\\x%.2ux", *p);		inc = 0;		break; 	case 'Y':		p = ctime(mem ? getmem_b(dot) : val);		p[30] = '\0';		c = Bprint(bioout, "%s", p);		inc = 4;		break; 	case 'a':		symoff(str, sizeof(str), dot, CTEXT);		Bprint(bioout, "%s", str);		inc = 0;		break; 	case 'e':		for (i = 0; globalsym(&s, i); i++)			Bprint(bioout, "%-15s #%lux\n", s.name,	getmem_4(s.value));		inc = 0;		break; 	case 'I':	case 'i':		inc = machdata->das(symmap, dot, fmt, str, sizeof(str));		if (inc < 0) {			Bprint(bioout, "qi: %r\n");			return 0;		}		c = Bprint(bioout, "\t%s", str);		break; 	case 'n':		c = width+1;		inc = 0;		break; 	case '-':		c = 0;		inc = -1;		break; 	case '+':		c = 0;		inc = 1;		break; 	case '^':		c = 0;		if(inc > 0)			inc = -inc;		break; 	case 'z':		if (findsym(dot, CTEXT, &s))			Bprint(bioout, "  %s() ", s.name);		printsource(dot);		inc = 0;		break;	}	return c;} voideval(char *addr, char *p){	ulong val; 	val = expr(addr);	p = nextc(p);	if(*p == '\0') {		p[0] = fmt;		p[1] = '\0';	}	pfmt(*p, 0, val);	Bprint(bioout, "\n");} voidquesie(char *p){	int c, count, i;	char tbuf[512]; 	c = 0;	symoff(tbuf, sizeof(tbuf), dot, CTEXT);	Bprint(bioout, "%s?\t", tbuf); 	while(*p) {		p = nextc(p);		if(*p == '"') {			for(p++; *p && *p != '"'; p++) {				Bputc(bioout, *p);				c++;			}			if(*p)				p++;			continue;		}		count = 0;		while(*p >= '0' && *p <= '9')			count = count*10 + (*p++ - '0');		if(count == 0)			count = 1;		p = nextc(p);		if(*p == '\0') {			p[0] = fmt;			p[1] = '\0';

Lines 1–500 of 653. Load more