[unix-history] / usr / src / sys / kdb / kdb_command.c

/*
 * Copyright (c) 1986 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *	@(#)kdb_command.c	7.3 (Berkeley) 12/15/86
 */

#include "../kdb/defs.h"

char	*BADEQ;
char	*NOMATCH;
char	*BADVAR;
char	*BADCOM;

int	executing;
char	*lp;

char	lastc;
char	eqformat[512] = "z";
char	stformat[512] = "X\"= \"^i";

long	ditto;
int	lastcom = '=';
long	locval;
long	locmsk;
long	expv;

/* command decoding */

command(buf, defcom)
	char *buf, defcom;
{
	register itype, ptype, modifier, regptr;
	int longpr, eqcom;
	char wformat[1], savc;
	register long w, savdot;
	char *savlp=lp;

	if (buf) {
		if (*buf==EOR)
			return (0);
		lp=buf;
	}

	do {
		if (adrflg=expr(0)) {
			dot=expv;
			ditto=dot;
		}
		adrval=dot;
		cntflg = (rdc() == ',' && expr(0));
		if (cntflg)
			cntval=expv;
		else
			cntval=1, lp--;
		if (eol(rdc())) {
			if (!adrflg)
				dot=inkdot(dotinc);
			lp--; lastcom=defcom;
		} else
			lastcom=lastc;
		switch (lastcom&STRIP) {

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

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

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

		trystar:
			if (rdc()=='*')
				lastcom |= QUOTE;
			else
				lp--;
			if (lastcom&QUOTE) {
				itype |= STAR;
				ptype = (DSYM+ISYM)-ptype;
			}

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

			case 'L':
				longpr=1;
			case 'l':
				/*search for exp*/
				if (eqcom)
					error(BADEQ);
				dotinc=(longpr?4:2); savdot=dot;
				(void) expr(1); locval=expv;
				if (expr(0))
					locmsk=expv;
				else
					locmsk = -1L;
				if (!longpr) {
					locmsk &= 0xFFFF;
					locval &= 0xFFFF;
				}
				for (;;) {
					w=get(dot,itype);
					if (errflg || mkfault ||
					    (w&locmsk)==locval)
						break;
					 dot=inkdot(dotinc);
				}
				if (errflg) {
					dot=savdot;
					errflg=NOMATCH;
				}
				psymoff(dot,ptype,"");
				break;

			case 'W':
				longpr=1;
			case 'w':
				if (eqcom)
					error(BADEQ);
				wformat[0]=lastc; (void) expr(1);
				do {
					savdot=dot;
					psymoff(dot,ptype,":%16t");
					(void) exform(1,wformat,itype,ptype);
					errflg=0; dot=savdot;
					if (longpr)
						put(dot,itype,expv);
					else
						put(dot,itype,
						    itol(expv,get(dot,itype)));
					savdot=dot;
					printf("=%8t");
					(void) exform(1,wformat,itype,ptype);
					printc(EOR);
				} while (expr(0) && errflg==0);
				dot=savdot;
				chkerr();
				break;

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

		case '>':
			lastcom=0; savc=rdc();
			if ((regptr=getreg(savc)) != -1)
				*(int *)regptr = dot;
			else if ((modifier=varchk(savc)) != -1)
				var[modifier]=dot;
			else
				error(BADVAR);
			break;

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

		case ':':
			if (executing)
				break;
			executing=1; subpcs(nextchar()); executing=0;
			lastcom=0;
			break;

		case '\0':
			break;

		default:
			error(BADCOM);
		}
		flushbuf();
	} while (rdc()==';');
	if (buf)
		lp=savlp;
	else
		lp--;
	return (adrflg && dot!=0);
}
Commit	Line	Data
9d61b7ff SL	1	/*
	2	* Copyright (c) 1986 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*
ca67e7b4	6	* @(#)kdb_command.c 7.3 (Berkeley) 12/15/86
9d61b7ff	7	*/
9acc71f0 SL	8
	9	#include "../kdb/defs.h"
	10
	11	char *BADEQ;
	12	char *NOMATCH;
	13	char *BADVAR;
	14	char *BADCOM;
	15
	16	int executing;
	17	char *lp;
	18
	19	char lastc;
	20	char eqformat[512] = "z";
	21	char stformat[512] = "X\"= \"^i";
	22
	23	long ditto;
	24	int lastcom = '=';
	25	long locval;
	26	long locmsk;
	27	long expv;
	28
	29	/* command decoding */
	30
	31	command(buf, defcom)
	32	char *buf, defcom;
	33	{
	34	register itype, ptype, modifier, regptr;
	35	int longpr, eqcom;
	36	char wformat[1], savc;
	37	register long w, savdot;
	38	char *savlp=lp;
	39
	40	if (buf) {
	41	if (*buf==EOR)
4beb109f	42	return (0);
9acc71f0 SL	43	lp=buf;
	44	}
	45
	46	do {
	47	if (adrflg=expr(0)) {
	48	dot=expv;
	49	ditto=dot;
	50	}
	51	adrval=dot;
4beb109f SL	52	cntflg = (rdc() == ',' && expr(0));
	53	if (cntflg)
	54	cntval=expv;
9acc71f0	55	else
4beb109f	56	cntval=1, lp--;
9acc71f0 SL	57	if (eol(rdc())) {
	58	if (!adrflg)
	59	dot=inkdot(dotinc);
	60	lp--; lastcom=defcom;
	61	} else
	62	lastcom=lastc;
	63	switch (lastcom&STRIP) {
	64
	65	case '/':
	66	itype=DSP; ptype=DSYM;
	67	goto trystar;
	68
	69	case '=':
	70	itype=NSP; ptype=0;
	71	goto trypr;
	72
	73	case '?':
	74	itype=ISP; ptype=ISYM;
	75	goto trystar;
	76
	77	trystar:
	78	if (rdc()=='*')
	79	lastcom \|= QUOTE;
	80	else
	81	lp--;
	82	if (lastcom&QUOTE) {
	83	itype \|= STAR;
	84	ptype = (DSYM+ISYM)-ptype;
	85	}
	86
	87	trypr:
4beb109f	88	longpr=0; eqcom=lastcom=='=';
9acc71f0 SL	89	switch (rdc()) {
	90
	91	case 'L':
4beb109f	92	longpr=1;
9acc71f0 SL	93	case 'l':
	94	/search for exp/
	95	if (eqcom)
	96	error(BADEQ);
	97	dotinc=(longpr?4:2); savdot=dot;
9d61b7ff	98	(void) expr(1); locval=expv;
9acc71f0 SL	99	if (expr(0))
	100	locmsk=expv;
	101	else
	102	locmsk = -1L;
	103	if (!longpr) {
	104	locmsk &= 0xFFFF;
	105	locval &= 0xFFFF;
	106	}
	107	for (;;) {
	108	w=get(dot,itype);
	109	if (errflg \|\| mkfault \|\|
	110	(w&locmsk)==locval)
	111	break;
	112	dot=inkdot(dotinc);
	113	}
	114	if (errflg) {
	115	dot=savdot;
	116	errflg=NOMATCH;
	117	}
	118	psymoff(dot,ptype,"");
	119	break;
	120
	121	case 'W':
4beb109f	122	longpr=1;
9acc71f0 SL	123	case 'w':
	124	if (eqcom)
	125	error(BADEQ);
9d61b7ff	126	wformat[0]=lastc; (void) expr(1);
9acc71f0 SL	127	do {
	128	savdot=dot;
	129	psymoff(dot,ptype,":%16t");
9d61b7ff	130	(void) exform(1,wformat,itype,ptype);
9acc71f0 SL	131	errflg=0; dot=savdot;
	132	if (longpr)
	133	put(dot,itype,expv);
	134	else
	135	put(dot,itype,
	136	itol(expv,get(dot,itype)));
	137	savdot=dot;
	138	printf("=%8t");
9d61b7ff	139	(void) exform(1,wformat,itype,ptype);
9acc71f0 SL	140	printc(EOR);
	141	} while (expr(0) && errflg==0);
	142	dot=savdot;
	143	chkerr();
	144	break;
	145
	146	default:
	147	lp--;
	148	getformat(eqcom ? eqformat : stformat);
	149	if (!eqcom)
	150	psymoff(dot,ptype,":%16t");
	151	scanform(cntval,
	152	(eqcom?eqformat:stformat),itype,ptype);
	153	}
	154	break;
	155
	156	case '>':
	157	lastcom=0; savc=rdc();
	158	if ((regptr=getreg(savc)) != -1)
	159	(int )regptr = dot;
	160	else if ((modifier=varchk(savc)) != -1)
	161	var[modifier]=dot;
	162	else
	163	error(BADVAR);
	164	break;
	165
	166	case '$':
	167	lastcom=0;
	168	printtrace(nextchar());
	169	break;
	170
	171	case ':':
4beb109f SL	172	if (executing)
	173	break;
	174	executing=1; subpcs(nextchar()); executing=0;
	175	lastcom=0;
9acc71f0 SL	176	break;
9acc71f0 SL	177
4beb109f	178	case '\0':
9acc71f0 SL	179	break;
	180
	181	default:
	182	error(BADCOM);
	183	}
	184	flushbuf();
	185	} while (rdc()==';');
	186	if (buf)
	187	lp=savlp;
	188	else
	189	lp--;
	190	return (adrflg && dot!=0);
	191	}