[unix-history] / usr / src / cmd / adb / command.c

#
/*
 *
 *	UNIX debugger
 *
 */

#include "defs.h"


MSG		BADEQ;
MSG		NOMATCH;
MSG		BADVAR;
MSG		BADCOM;

MAP		txtmap;
MAP		datmap;
INT		executing;
CHAR		*lp;
INT		fcor;
INT		fsym;
INT		mkfault;
STRING		errflg;

CHAR		lastc;
CHAR		eqformat[128] "o";
CHAR		stformat[128] "o\"= \"^i";
POS		*endhdr;

L_INT		dot;
L_INT		ditto;
INT		dotinc;
INT		lastcom '=';
L_INT		var[];
L_INT		locval;
L_INT		locmsk;
INT		pid;
L_INT		expv;
L_INT		adrval;
INT		adrflg;
L_INT		cntval;
INT		cntflg;


/* command decoding */

command(buf,defcom)
STRING		buf;
CHAR		defcom;
{
	INT		itype, ptype, modifier, regptr;
	BOOL		longpr, eqcom;
	CHAR		wformat[1];
	CHAR		savc;
	L_INT		w, savdot;
	STRING		savlp=lp;
	IF buf
	THEN IF *buf==EOR
	     THEN return(FALSE);
	     ELSE lp=buf;
	     FI
	FI

	REP
	IF adrflg=expr(0)
	THEN dot=expv; ditto=dot;
	FI
	adrval=dot;
	IF rdc()==',' ANDF expr(0)
	THEN cntflg=TRUE; cntval=expv;
	ELSE cntflg=FALSE; cntval=1; lp--;
	FI

	IF !eol(rdc())
	THEN lastcom=lastc;
	ELSE IF adrflg==0 THEN dot=inkdot(dotinc); FI
	     lp--; lastcom=defcom;
	FI

	switch(lastcom&STRIP) {

	    case '/':
		itype=DSP; ptype=DSYM;
		goto trystar;

	    case '=':
		itype=NSP; ptype=ASYM;
		goto trypr;

	    case '?':
		itype=ISP; ptype=ISYM;
		goto trystar;

	    trystar:
		IF rdc()=='*' THEN lastcom |= QUOTE; ELSE lp--; FI
		IF lastcom&QUOTE
		THEN itype |= STAR; ptype = (DSYM+ISYM)-ptype;
		FI

	    trypr:
		longpr=FALSE; eqcom=lastcom=='=';
		switch (rdc()) {

			case 'm':
			    {/*reset map data*/
			    INT		fcount;
			    MAP		*smap;
			    UNION{MAP *m; L_INT *mp;}amap;

			    IF eqcom THEN error(BADEQ); FI
			    smap=(itype&DSP?&datmap:&txtmap);
			    amap.m=smap; fcount=3;
			    IF itype&STAR
			    THEN amap.mp += 3;
			    FI
			    WHILE fcount-- ANDF expr(0)
			    DO *(amap.mp)++ = expv; OD
			    IF rdc()=='?' THEN smap->ufd=fsym;
			    ELIF lastc == '/' THEN smap->ufd=fcor;
			    ELSE lp--;
			    FI
			    }
			    break;

			case 'L':
			    longpr=TRUE;
			case 'l':
			    /*search for exp*/
			    IF eqcom THEN error(BADEQ); FI
			    dotinc=2; savdot=dot;
			    expr(1); locval=expv;
			    IF expr(0) THEN locmsk=expv; ELSE locmsk = -1L; FI
			    LOOP w=leng(get(dot,itype));
				 IF longpr
				 THEN w=itol(w,get(inkdot(2),itype));
				 FI
				 IF errflg ORF mkfault ORF (w&locmsk)==locval THEN break; FI
				 dot=inkdot(dotinc);
			    POOL
			    IF errflg
			    THEN dot=savdot; errflg=NOMATCH;
			    FI
			    psymoff(dot,ptype,"");
			    break;

			case 'W':
			    longpr=TRUE;
			case 'w':
			    IF eqcom THEN error(BADEQ); FI
			    wformat[0]=lastc; expr(1);
			    REP  savdot=dot; psymoff(dot,ptype,":%16t"); exform(1,wformat,itype,ptype);
				 errflg=0; dot=savdot;
				 IF longpr
				 THEN put(dot,itype,expv);
				 FI
				 put((longpr?inkdot(2):dot),itype,shorten(expv));
				 savdot=dot;
				 printf("=%8t"); exform(1,wformat,itype,ptype);
				 newline();
			    PER  expr(0) ANDF errflg==0 DONE
			    dot=savdot;
			    chkerr();
			    break;

			default:
			    lp--;
			    getformat(eqcom ? eqformat : stformat);
			    IF !eqcom
			    THEN psymoff(dot,ptype,":%16t");
			    FI
			    scanform(cntval,(eqcom?eqformat:stformat),itype,ptype);
		}
		break;

	    case '>':
		lastcom=0; savc=rdc();
		IF regptr=getreg(savc)
		THEN endhdr[regptr]=shorten(dot);
		     ptrace(WUREGS,pid,2*(512+regptr),endhdr[regptr]);
		ELIF (modifier=varchk(savc)) != -1
		THEN	var[modifier]=dot;
		ELSE	error(BADVAR);
		FI
		break;

	    case '!':
		lastcom=0;
		unox(); break;

	    case '$':
		lastcom=0;
		printtrace(nextchar()); break;

	    case ':':
		IF !executing
		THEN executing=TRUE;
		     subpcs(nextchar());
		     executing=FALSE;
		     lastcom=0;
		FI
		break;

	    case 0:
		prints(DBNAME);
		break;

	    default: error(BADCOM);
	}

	flushbuf();
	PER rdc()==';' DONE
	IF buf THEN lp=savlp; ELSE lp--; FI
	return(adrflg ANDF dot!=0);
}
Commit	Line	Data
d94e2462 M	1	#
	2	/*
	3	*
	4	* UNIX debugger
	5	*
	6	*/
	7
	8	#include "defs.h"
	9
	10
	11	MSG BADEQ;
	12	MSG NOMATCH;
	13	MSG BADVAR;
	14	MSG BADCOM;
	15
	16	MAP txtmap;
	17	MAP datmap;
	18	INT executing;
	19	CHAR *lp;
	20	INT fcor;
	21	INT fsym;
	22	INT mkfault;
	23	STRING errflg;
	24
	25	CHAR lastc;
	26	CHAR eqformat[128] "o";
	27	CHAR stformat[128] "o\"= \"^i";
	28	POS *endhdr;
	29
	30	L_INT dot;
	31	L_INT ditto;
	32	INT dotinc;
	33	INT lastcom '=';
	34	L_INT var[];
	35	L_INT locval;
	36	L_INT locmsk;
	37	INT pid;
	38	L_INT expv;
	39	L_INT adrval;
	40	INT adrflg;
	41	L_INT cntval;
	42	INT cntflg;
	43
	44
	45
	46
	47	/* command decoding */
	48
	49	command(buf,defcom)
	50	STRING buf;
	51	CHAR defcom;
	52	{
	53	INT itype, ptype, modifier, regptr;
	54	BOOL longpr, eqcom;
	55	CHAR wformat[1];
	56	CHAR savc;
	57	L_INT w, savdot;
	58	STRING savlp=lp;
	59	IF buf
	60	THEN IF *buf==EOR
	61	THEN return(FALSE);
	62	ELSE lp=buf;
	63	FI
	64	FI
65
66	REP
67	IF adrflg=expr(0)
68	THEN dot=expv; ditto=dot;
69	FI
70	adrval=dot;
71	IF rdc()==',' ANDF expr(0)
72	THEN cntflg=TRUE; cntval=expv;
73	ELSE cntflg=FALSE; cntval=1; lp--;
74	FI
75
76	IF !eol(rdc())
77	THEN lastcom=lastc;
78	ELSE IF adrflg==0 THEN dot=inkdot(dotinc); FI
79	lp--; lastcom=defcom;
80	FI
81
82	switch(lastcom&STRIP) {
83
84	case '/':
85	itype=DSP; ptype=DSYM;
86	goto trystar;
87
88	case '=':
89	itype=NSP; ptype=ASYM;
90	goto trypr;
91
92	case '?':
93	itype=ISP; ptype=ISYM;
94	goto trystar;
95
96	trystar:
97	IF rdc()=='*' THEN lastcom \|= QUOTE; ELSE lp--; FI
98	IF lastcom&QUOTE
99	THEN itype \|= STAR; ptype = (DSYM+ISYM)-ptype;
100	FI
101
102	trypr:
103	longpr=FALSE; eqcom=lastcom=='=';
104	switch (rdc()) {
105
106	case 'm':
107	{/reset map data/
108	INT fcount;
109	MAP *smap;
110	UNION{MAP m; L_INT mp;}amap;
111
112	IF eqcom THEN error(BADEQ); FI
113	smap=(itype&DSP?&datmap:&txtmap);
114	amap.m=smap; fcount=3;
115	IF itype&STAR
116	THEN amap.mp += 3;
117	FI
118	WHILE fcount-- ANDF expr(0)
119	DO *(amap.mp)++ = expv; OD
120	IF rdc()=='?' THEN smap->ufd=fsym;
121	ELIF lastc == '/' THEN smap->ufd=fcor;
122	ELSE lp--;
123	FI
124	}
125	break;
126
127	case 'L':
128	longpr=TRUE;
129	case 'l':
130	/search for exp/
131	IF eqcom THEN error(BADEQ); FI
132	dotinc=2; savdot=dot;
133	expr(1); locval=expv;
134	IF expr(0) THEN locmsk=expv; ELSE locmsk = -1L; FI
135	LOOP w=leng(get(dot,itype));
136	IF longpr
137	THEN w=itol(w,get(inkdot(2),itype));
138	FI
139	IF errflg ORF mkfault ORF (w&locmsk)==locval THEN break; FI
140	dot=inkdot(dotinc);
141	POOL
142	IF errflg
143	THEN dot=savdot; errflg=NOMATCH;
144	FI
145	psymoff(dot,ptype,"");
146	break;
147
148	case 'W':
149	longpr=TRUE;
150	case 'w':
151	IF eqcom THEN error(BADEQ); FI
152	wformat[0]=lastc; expr(1);
153	REP savdot=dot; psymoff(dot,ptype,":%16t"); exform(1,wformat,itype,ptype);
154	errflg=0; dot=savdot;
155	IF longpr
156	THEN put(dot,itype,expv);
157	FI
158	put((longpr?inkdot(2):dot),itype,shorten(expv));
159	savdot=dot;
160	printf("=%8t"); exform(1,wformat,itype,ptype);
161	newline();
162	PER expr(0) ANDF errflg==0 DONE
163	dot=savdot;
164	chkerr();
165	break;
166
167	default:
168	lp--;
169	getformat(eqcom ? eqformat : stformat);
170	IF !eqcom
171	THEN psymoff(dot,ptype,":%16t");
172	FI
173	scanform(cntval,(eqcom?eqformat:stformat),itype,ptype);
174	}
175	break;
176
177	case '>':
178	lastcom=0; savc=rdc();
179	IF regptr=getreg(savc)
180	THEN endhdr[regptr]=shorten(dot);
181	ptrace(WUREGS,pid,2*(512+regptr),endhdr[regptr]);
182	ELIF (modifier=varchk(savc)) != -1
183	THEN var[modifier]=dot;
184	ELSE error(BADVAR);
185	FI
186	break;
187
188	case '!':
189	lastcom=0;
190	unox(); break;
191
192	case '$':
193	lastcom=0;
194	printtrace(nextchar()); break;
195
196	case ':':
197	IF !executing
198	THEN executing=TRUE;
199	subpcs(nextchar());
200	executing=FALSE;
201	lastcom=0;
202	FI
203	break;
204
205	case 0:
206	prints(DBNAME);
207	break;
208
209	default: error(BADCOM);
210	}
211
212	flushbuf();
213	PER rdc()==';' DONE
214	IF buf THEN lp=savlp; ELSE lp--; FI
215	return(adrflg ANDF dot!=0);
216	}
217