/*  * 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. */ /* * *	debugger * */ #include "defs.h"#include "fns.h" voidscanform(long icount, int prt, char *ifp, Map *map, int literal){	char	*fp;	char	c;	int	fcount;	ADDR	savdot;	int firstpass; 	firstpass = 1;	while (icount) {		fp=ifp;		savdot=dot;		/*now loop over format*/		while (*fp) {			if (!isdigit(*fp))				fcount = 1;			else {				fcount = 0;				while (isdigit(c = *fp++)) {					fcount *= 10;					fcount += c-'0';				}				fp--;			}			if (*fp==0)				break;			fp=exform(fcount,prt,fp,map,literal,firstpass);			firstpass = 0;		}		dotinc=dot-savdot;		dot=savdot;		if (--icount)			dot=inkdot(dotinc);	}} char *exform(int fcount, int prt, char *ifp, Map *map, int literal, int firstpass){	/* execute single format item `fcount' times	 * sets `dotinc' and moves `dot'	 * returns address of next format item	 */	uvlong	v;	ulong	w;	ADDR	savdot;	char	*fp;	char	c, modifier;	int	i;	ushort sh, *sp;	uchar ch, *cp;	Symbol s;	char buf[512];	extern int printcol; 	fp = 0;	while (fcount > 0) {		fp = ifp;		c = *fp;		modifier = *fp++;		if (firstpass) {			firstpass = 0;			if (!literal  && (c == 'i' || c == 'I' || c == 'M')					&& (dot & (mach->pcquant-1))) {				dprint("warning: instruction not aligned");				printc('\n');			}			if (prt && modifier != 'a' && modifier != 'A') {				symoff(buf, 512, dot, CANY);				dprint("%s%c%16t", buf, map==symmap? '?':'/');			}		}		if (printcol==0 && modifier != 'a' && modifier != 'A')			dprint("\t\t");		switch(modifier) { 		case SPC:		case TB:			dotinc = 0;			break; 		case 't':		case 'T':			dprint("%*t", fcount);			dotinc = 0;			return(fp); 		case 'a':			symoff(buf, sizeof(buf), dot, CANY);			dprint("%s%c%16t", buf, map==symmap? '?':'/');			dotinc = 0;			break; 		case 'A':			dprint("%#llux%10t", dot);			dotinc = 0;			break; 		case 'p':			if (get4(map, dot, &w) < 0)				error("%r");			symoff(buf, sizeof(buf), w, CANY);			dprint("%s%16t", buf);			dotinc = mach->szaddr;			break; 		case 'u':		case 'd':		case 'x':		case 'o':		case 'q':			if (literal)				sh = (ushort) dot;			else if (get2(map, dot, &sh) < 0)				error("%r");			w = sh;			dotinc = 2;			if (c == 'u')				dprint("%-8lud", w);			else if (c == 'x')				dprint("%-8#lux", w);			else if (c == 'd')				dprint("%-8ld", w);			else if (c == 'o')				dprint("%-8#luo", w);			else if (c == 'q')				dprint("%-8#lo", w);			break; 		case 'U':		case 'D':		case 'X':		case 'O':		case 'Q':			if (literal)				w = (long) dot;			else if (get4(map, dot, &w) < 0)				error("%r");			dotinc = 4;			if (c == 'U')				dprint("%-16lud", w);			else if (c == 'X')				dprint("%-16#lux", w);			else if (c == 'D')				dprint("%-16ld", w);			else if (c == 'O')				dprint("%-#16luo", w);			else if (c == 'Q')				dprint("%-#16lo", w);			break;		case 'Z':		case 'V':		case 'Y':			if (literal)				v = dot;			else if (get8(map, dot, &v) < 0)				error("%r");			dotinc = 8;			if (c == 'Y')				dprint("%-20#llux", v);			else if (c == 'V')				dprint("%-20lld", v);			else if (c == 'Z')				dprint("%-20llud", v);			break;		case 'B':		case 'b':		case 'c':		case 'C':			if (literal)				ch = (uchar) dot;			else if (get1(map, dot, &ch, 1)  < 0)				error("%r");			if (modifier == 'C')				printesc(ch);			else if (modifier == 'B' || modifier == 'b')				dprint("%-8#lux", (long) ch);			else				printc(ch);			dotinc = 1;			break; 		case 'r':			if (literal)				sh = (ushort) dot;			else if (get2(map, dot, &sh) < 0)				error("%r");			dprint("%C", sh);			dotinc = 2;			break; 		case 'R':			if (literal) {				sp = (ushort*) &dot;				dprint("%C%C", sp[0], sp[1]);				endline();				dotinc = 4;				break;			}			savdot=dot;			while ((i = get2(map, dot, &sh) > 0) && sh) {				dot=inkdot(2);				dprint("%C", sh);				endline();			}			if (i < 0)				error("%r");			dotinc = dot-savdot+2;			dot=savdot;			break; 		case 's':			if (literal) {				cp = (uchar*) &dot;				for (i = 0; i < 4; i++)					buf[i] = cp[i];				buf[i] = 0;				dprint("%s", buf);				endline();				dotinc = 4;				break;			}			savdot = dot;			for(;;){				i = 0;				do{					if (get1(map, dot, (uchar*)&buf[i], 1) < 0)						error("%r");					dot = inkdot(1);					i++;				}while(!fullrune(buf, i));				if(buf[0] == 0)					break;				buf[i] = 0;				dprint("%s", buf);				endline();			}			dotinc = dot-savdot+1;			dot = savdot;			break; 		case 'S':			if (literal) {				cp = (uchar*) &dot;				for (i = 0; i < 4; i++)					printesc(cp[i]);				endline();				dotinc = 4;				break;			}			savdot=dot;			while ((i = get1(map, dot, &ch, 1) > 0) && ch) {				dot=inkdot(1);				printesc(ch);				endline();			}			if (i < 0)				error("%r");			dotinc = dot-savdot+1;			dot=savdot;			break;  		case 'I':		case 'i':			i = machdata->das(map, dot, modifier, buf, sizeof(buf));			if (i < 0)				error("%r");			dotinc = i;			dprint("%s\n", buf);			break; 		case 'M':			i = machdata->hexinst(map, dot, buf, sizeof(buf));			if (i < 0)				error("%r");			dotinc = i;			dprint("%s", buf);			if (*fp) {				dotinc = 0;				dprint("%48t");			} else				dprint("\n");			break; 		case 'f':			/* BUG: 'f' and 'F' assume szdouble is sizeof(vlong) in the literal case */			if (literal) {				v = machdata->swav(dot);				memmove(buf, &v, mach->szfloat);			}else if (get1(map, dot, (uchar*)buf, mach->szfloat) < 0)				error("%r");			machdata->sftos(buf, sizeof(buf), (void*) buf);			dprint("%s\n", buf);			dotinc = mach->szfloat;			break; 		case 'F':			/* BUG: 'f' and 'F' assume szdouble is sizeof(vlong) in the literal case */			if (literal) {				v = machdata->swav(dot);				memmove(buf, &v, mach->szdouble);			}else if (get1(map, dot, (uchar*)buf, mach->szdouble) < 0)				error("%r");			machdata->dftos(buf, sizeof(buf), (void*) buf);			dprint("%s\n", buf);			dotinc = mach->szdouble;			break; 		case 'n':		case 'N':			printc('\n');			dotinc=0;			break; 		case '"':			dotinc=0;			while (*fp != '"' && *fp)				printc(*fp++);			if (*fp)				fp++;			break; 		case '^':			dot=inkdot(-dotinc*fcount);			return(fp); 		case '+':			dot=inkdot((WORD)fcount);			return(fp); 		case '-':			dot=inkdot(-(WORD)fcount);			return(fp); 		case 'z':			if (findsym(dot, CTEXT, &s))				dprint("%s() ", s.name);			printsource(dot);			printc(EOR);			return fp; 		default:			error("bad modifier");		}		if (map->seg[0].fd >= 0)			dot=inkdot(dotinc);		fcount--;		endline();	} 	return(fp);} voidprintesc(int c){	static char hex[] = "0123456789abcdef"; 	if (c < SPC || c >= 0177)		dprint("\\x%c%c", hex[(c&0xF0)>>4], hex[c&0xF]);	else		printc(c);} ADDRinkdot(int incr){	ADDR	newdot; 	newdot=dot+incr;	if ((incr >= 0 && newdot < dot)	||  (incr < 0 && newdot > dot))		error("address wraparound");	return(newdot);}