/*  * 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. */ /* * db - main command loop and error/interrupt handling */#include "defs.h"#include "fns.h" int wtflag = OREAD;BOOL kflag; BOOL mkfault;ADDR maxoff; int xargc;		/* bullshit */ extern	BOOL	executing;extern	int	infile;int	exitflg;extern	int	eof; int	alldigs(char*);void	fault(void*, char*); extern	char	*Ipath;jmp_buf env;static char *errmsg; voidmain(int argc, char **argv){	char b1[100];	char b2[100];	char *s;	char *name; 	name = 0;	outputinit();	maxoff = MAXOFF;	ARGBEGIN{	case 'k':		kflag = 1;		break;	case 'w':		wtflag = ORDWR;		/* suitable for open() */		break;	case 'I':		s = ARGF();		if(s == 0)			dprint("missing -I argument\n");		else			Ipath = s;		break;	case 'm':		name = ARGF();		if(name == 0)			dprint("missing -m argument\n");		break;	}ARGEND	symfil = 0;	corfil = 0;	if (argc > 0 && !alldigs(argv[0])) {		symfil = argv[0];		argv++;		argc--;	}	if(argc==1 && alldigs(argv[0])){		char *cpu, *p, *q; 		pid = atoi(argv[0]);		pcsactive = 0;		if (!symfil) {			if(kflag){				cpu = getenv("cputype");				if(cpu == 0){					cpu = "386";					dprint("$cputype not set; assuming %s\n", cpu);				}				p = getenv("terminal");				if(p==0 || (p=strchr(p, ' '))==0 || p[1]==' ' || p[1]==0){					strcpy(b1, "/386/9pc");					dprint("missing or bad $terminal; assuming %s\n", b1);				}else{					p++;					q = strchr(p, ' ');					if(q)						*q = 0;					sprint(b1, "/%s/9%s", cpu, p);								}			}else				sprint(b1, "/proc/%s/text", argv[0]);			symfil = b1;		}		sprint(b2, "/proc/%s/mem", argv[0]);		corfil = b2;	} else if (argc > 0) {		fprint(2, "Usage: db [-kw] [-m machine] [-I dir] [symfile] [pid]\n");		exits("usage");	}	if (!symfil)		symfil = "8.out";	xargc = argc;	notify(fault);	setsym();	dotmap = dumbmap(-1);	if (name && machbyname(name) == 0)			dprint ("unknown machine %s", name);	dprint("%s binary\n", mach->name);	if(setjmp(env) == 0){		if (corfil) {			setcor();	/* could get error */			dprint("%s\n", machdata->excep(cormap, rget));			printpc();		}	} 	setjmp(env);	if (executing)		delbp();	executing = FALSE;	for (;;) {		flushbuf();		if (errmsg) {			dprint(errmsg);			printc('\n');			errmsg = 0;			exitflg = 0;		}		if (mkfault) {			mkfault=0;			printc('\n');			prints(DBNAME);		}		clrinp();		rdc();		reread();		if (eof) {			if (infile == STDIN)				done();			iclose(-1, 0);			eof = 0;			longjmp(env, 1);		}		exitflg = 0;		command(0, 0);		reread();		if (rdc() != '\n')			error("newline expected");	}} intalldigs(char *s){	while(*s){		if(*s<'0' || '9'<*s)			return 0;		s++;	}	return 1;} voiddone(void){	if (pid)		endpcs();	exits(exitflg? "error": 0);} /* * An error occurred; save the message for later printing, * close open files, and reset to main command loop. */voiderror(char *n){	errmsg = n;	iclose(0, 1);	oclose();	flush();	delbp();	ending = 0;	longjmp(env, 1);} voiderrors(char *m, char *n){	static char buf[128]; 	sprint(buf, "%s: %s", m, n);	error(buf);} /* * An interrupt occurred; * seek to the end of the current file * and remember that there was a fault. */voidfault(void *a, char *s){	USED(a);	if(strncmp(s, "interrupt", 9) == 0){		seek(infile, 0L, 2);		mkfault++;		noted(NCONT);	}	noted(NDFLT);}