Return to format.c CVS log

Up to [Research Unix] / researchv9 / cmd / adb / comm

researchv9-SUN3(old)

/*
 *
 *	UNIX debugger
 *
 */

#include "defs.h"
#include "space.h"

extern	char	lastc, peekc;

scanform(icount,ifp,itype,ptype)
WORD	icount;
char	*ifp;
{
	register char	*fp;
	register char	c;
	register int	fcount;
	ADDR	savdot;

	while (icount) {
		fp=ifp;
		savdot=dot;
		/*now loop over format*/
		while (*fp && errflg==0) {
			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,fp,itype,ptype);
		}
		dotinc=dot-savdot;
		dot=savdot;
		if (errflg) {
			if (icount<0) {
				errflg=0;
				break;
			}
			else
				error(errflg);
		}
		if (--icount)
			dot=inkdot(dotinc);
		if (mkfault)
			error(NULL);
	}
}

char *
exform(fcount,ifp,itype,ptype)
int fcount;
char *ifp;
{
	/* execute single format item `fcount' times
	 * sets `dotinc' and moves `dot'
	 * returns address of next format item
	 */
	register WORD	w;
	ADDR	savdot;
	register char	*fp;
	register char	c, modifier;
	union {
		TFLOAT s;
		TDOUBLE d;
	} fl;

	while (fcount > 0) {
		fp = ifp;
		c = *fp;
		modifier = *fp++;
		if (charpos()==0 && modifier!='a')
			printf("%16m");
		switch(modifier) {

		case SPC:
		case TB:
			break;

		case 't':
		case 'T':
			printf("%T", fcount);
			return(fp);

		case 'a':
			psymoff((WORD)dot, ptype, itype & SYMF ?"?%16t":"/%16t");
			dotinc = 0;
			break;

		case 'p':
			w = atow(aget(dot, itype));
			if (errflg)
				return (fp);
			if (mkfault)
				return (0);
			psymoff(w, ptype, "%16t");
			dotinc = SZADDR;
			break;

		case 'u':
		case 'r':
		case 'd':
		case 'x':
		case 'o':
		case 'q':
			w = stow(sget(dot, itype));
			if (errflg)
				return (fp);
			if (mkfault)
				return (0);
			dotinc = SZSHORT;
			if (c == 'u')
				printf("%-8U", w);
			else if (c == 'r')
				printf("%-8R", w);
			else if (c == 'd')
				printf("%-8D", w);
			else if (c == 'x')
				printf("%-8X", w);
			else if (c == 'o')
				printf("%-8O", w);
			else if (c == 'q')
				printf("%-8Q", w);
			break;

		case 'U':
		case 'R':
		case 'D':
		case 'X':
		case 'O':
		case 'Q':
			w = ltow(lget(dot, itype));
			if (errflg)
				return (fp);
			if (mkfault)
				return (0);
			dotinc = SZLONG;
			if (c == 'U')
				printf("%-16U", w);
			else if (c == 'R')
				printf("%-16R", w);
			else if (c == 'D')
				printf("%-16D", w);
			else if (c == 'X')
				printf("%-16X", w);
			else if (c == 'O')
				printf("%-16O", w);
			else if (c == 'Q')
				printf("%-16Q", w);
			break;

		case 'b':
		case 'B':
		case 'c':
		case 'C':
			w = ctow(cget(dot, itype));
			if (errflg)
				return (fp);
			if (mkfault)
				return (0);
			if (modifier == 'C')
				printesc((char)w);
			else if (modifier == 'B' || modifier == 'b')
				printf("%-8O", w);
			else
				printc((char)w);
			dotinc = SZCHAR;
			break;

		case 's':
		case 'S':
			savdot=dot;
			dotinc=SZCHAR;
			while ((w=ctow(cget(dot,itype))) && errflg==0) {
				dot=inkdot((WORD)SZCHAR);
				if (modifier == 'S')
					printesc((char)w);
				else
					printc((char)w);
				endline();
			}
			dotinc=(dot-savdot+1) * SZCHAR;
			dot=savdot;
			break;

		case 'Y':
			printf("%-24Y", (long)ltow(lget(dot, itype)));
			break;

		case 'i':
			printins(itype);
			printc(EOR);
			break;

		case 'f':
			if (fget(dot, itype, (char *)&fl.s, SZFLOAT) == 0)
				return (fp);
			if (mkfault)
				return (0);
			dotinc = SZFLOAT;
			fpout('f', (char *)&fl.s);
			break;

		case 'F':
			if (fget(dot, itype, (char *)&fl.d, SZDOUBLE) == 0)
				return (fp);
			if (mkfault)
				return (0);
			dotinc = SZDOUBLE;
			fpout('F', (char *)&fl.d);
			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);

		default:
			error("bad modifier");
		}
		if ((itype & SPTYPE) != NOSP)
			dot=inkdot(dotinc);
		fcount--;
		endline();
	}

	return(fp);
}

printesc(c)
{
	c &= STRIP;
	if (c == 0177)
		printf("^?");
	else if (c < SPC)
		printf("^%c", c + '@');
	else
		printc(c);
}

ADDR
inkdot(incr)
WORD incr;
{
	ADDR	newdot;

	newdot=dot+incr;
	if ((incr >= 0 && newdot < dot)
	||  (incr < 0 && newdot > dot))
		error("address wraparound");
	return(newdot);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.