1 84114f06 2004-04-19 devnull /*
  2 84114f06 2004-04-19 devnull  * db - main command loop and error/interrupt handling
  3 84114f06 2004-04-19 devnull  */
  4 84114f06 2004-04-19 devnull #include "defs.h"
  5 84114f06 2004-04-19 devnull #include "fns.h"
  6 84114f06 2004-04-19 devnull 
  7 84114f06 2004-04-19 devnull int wtflag = OREAD;
  8 84114f06 2004-04-19 devnull BOOL kflag;
  9 84114f06 2004-04-19 devnull 
 10 84114f06 2004-04-19 devnull BOOL mkfault;
 11 84114f06 2004-04-19 devnull ADDR maxoff;
 12 84114f06 2004-04-19 devnull 
 13 84114f06 2004-04-19 devnull int xargc;		/* bullshit */
 14 84114f06 2004-04-19 devnull 
 15 84114f06 2004-04-19 devnull extern	BOOL	executing;
 16 84114f06 2004-04-19 devnull extern	int	infile;
 17 84114f06 2004-04-19 devnull int	exitflg;
 18 84114f06 2004-04-19 devnull extern	int	eof;
 19 84114f06 2004-04-19 devnull 
 20 84114f06 2004-04-19 devnull int	alldigs(char*);
 21 84114f06 2004-04-19 devnull void	fault(void*, char*);
 22 84114f06 2004-04-19 devnull 
 23 84114f06 2004-04-19 devnull extern	char	*Ipath;
 24 84114f06 2004-04-19 devnull jmp_buf env;
 25 84114f06 2004-04-19 devnull static char *errmsg;
 26 84114f06 2004-04-19 devnull 
 27 84114f06 2004-04-19 devnull void
 28 84114f06 2004-04-19 devnull usage(void)
 29 84114f06 2004-04-19 devnull {
 30 84114f06 2004-04-19 devnull 	fprint(2, "usage: db [-kw] [-m machine] [-I dir] [symfile] [pid]\n");
 31 84114f06 2004-04-19 devnull 	exits("usage");
 32 84114f06 2004-04-19 devnull }
 33 84114f06 2004-04-19 devnull 
 34 84114f06 2004-04-19 devnull void
 35 84114f06 2004-04-19 devnull main(int argc, char **argv)
 36 84114f06 2004-04-19 devnull {
 37 b030a6c3 2005-01-23 devnull 	int omode, quiet;
 38 84114f06 2004-04-19 devnull 	char *s;
 39 84114f06 2004-04-19 devnull 	char *name;
 40 84114f06 2004-04-19 devnull 
 41 b030a6c3 2005-01-23 devnull 	quiet = 0;
 42 84114f06 2004-04-19 devnull 	name = 0;
 43 84114f06 2004-04-19 devnull 	outputinit();
 44 84114f06 2004-04-19 devnull 	maxoff = MAXOFF;
 45 84114f06 2004-04-19 devnull 	omode = OREAD;
 46 84114f06 2004-04-19 devnull 	ARGBEGIN{
 47 84114f06 2004-04-19 devnull 	default:
 48 84114f06 2004-04-19 devnull 		usage();
 49 84114f06 2004-04-19 devnull 	case 'A':
 50 84114f06 2004-04-19 devnull 		abort();
 51 84114f06 2004-04-19 devnull 	case 'k':
 52 84114f06 2004-04-19 devnull 		kflag = 1;
 53 84114f06 2004-04-19 devnull 		break;
 54 84114f06 2004-04-19 devnull 	case 'w':
 55 84114f06 2004-04-19 devnull 		omode = ORDWR;
 56 84114f06 2004-04-19 devnull 		break;
 57 84114f06 2004-04-19 devnull 	case 'I':
 58 84114f06 2004-04-19 devnull 		s = ARGF();
 59 84114f06 2004-04-19 devnull 		if(s == 0)
 60 84114f06 2004-04-19 devnull 			dprint("missing -I argument\n");
 61 84114f06 2004-04-19 devnull 		else
 62 84114f06 2004-04-19 devnull 			Ipath = s;
 63 84114f06 2004-04-19 devnull 		break;
 64 84114f06 2004-04-19 devnull 	case 'm':
 65 84114f06 2004-04-19 devnull 		name = ARGF();
 66 84114f06 2004-04-19 devnull 		if(name == 0)
 67 84114f06 2004-04-19 devnull 			dprint("missing -m argument\n");
 68 84114f06 2004-04-19 devnull 		break;
 69 b030a6c3 2005-01-23 devnull 	case 'q':
 70 b030a6c3 2005-01-23 devnull 		quiet = 1;
 71 b030a6c3 2005-01-23 devnull 		break;
 72 84114f06 2004-04-19 devnull 	}ARGEND
 73 84114f06 2004-04-19 devnull 
 74 b030a6c3 2005-01-23 devnull 	attachargs(argc, argv, omode, !quiet);
 75 84114f06 2004-04-19 devnull 
 76 84114f06 2004-04-19 devnull 	dotmap = dumbmap(-1);
 77 84114f06 2004-04-19 devnull 
 78 84114f06 2004-04-19 devnull 	/*
 79 84114f06 2004-04-19 devnull 	 * show initial state and drop into the execution loop.
 80 84114f06 2004-04-19 devnull 	 */
 81 84114f06 2004-04-19 devnull 	notify(fault);
 82 84114f06 2004-04-19 devnull 	setsym();
 83 84114f06 2004-04-19 devnull 	if(setjmp(env) == 0){
 84 84114f06 2004-04-19 devnull 		if (pid || corhdr)
 85 84114f06 2004-04-19 devnull 			setcor();	/* could get error */
 86 b030a6c3 2005-01-23 devnull 		if (correg && !quiet) {
 87 84114f06 2004-04-19 devnull 			dprint("%s\n", mach->exc(cormap, correg));
 88 84114f06 2004-04-19 devnull 			printpc();
 89 84114f06 2004-04-19 devnull 		}
 90 84114f06 2004-04-19 devnull 	}
 91 84114f06 2004-04-19 devnull 
 92 84114f06 2004-04-19 devnull 	setjmp(env);
 93 84114f06 2004-04-19 devnull 	if (executing)
 94 84114f06 2004-04-19 devnull 		delbp();
 95 84114f06 2004-04-19 devnull 	executing = FALSE;
 96 84114f06 2004-04-19 devnull 	for (;;) {
 97 84114f06 2004-04-19 devnull 		flushbuf();
 98 84114f06 2004-04-19 devnull 		if (errmsg) {
 99 84114f06 2004-04-19 devnull 			dprint(errmsg);
100 84114f06 2004-04-19 devnull 			printc('\n');
101 84114f06 2004-04-19 devnull 			errmsg = 0;
102 84114f06 2004-04-19 devnull 			exitflg = 0;
103 84114f06 2004-04-19 devnull 		}
104 84114f06 2004-04-19 devnull 		if (mkfault) {
105 84114f06 2004-04-19 devnull 			mkfault=0;
106 84114f06 2004-04-19 devnull 			printc('\n');
107 84114f06 2004-04-19 devnull 			prints(DBNAME);
108 84114f06 2004-04-19 devnull 		}
109 84114f06 2004-04-19 devnull 		clrinp();
110 84114f06 2004-04-19 devnull 		rdc();
111 84114f06 2004-04-19 devnull 		reread();
112 84114f06 2004-04-19 devnull 		if (eof) {
113 84114f06 2004-04-19 devnull 			if (infile == STDIN)
114 84114f06 2004-04-19 devnull 				done();
115 84114f06 2004-04-19 devnull 			iclose(-1, 0);
116 84114f06 2004-04-19 devnull 			eof = 0;
117 84114f06 2004-04-19 devnull 			longjmp(env, 1);
118 84114f06 2004-04-19 devnull 		}
119 84114f06 2004-04-19 devnull 		exitflg = 0;
120 84114f06 2004-04-19 devnull 		command(0, 0);
121 84114f06 2004-04-19 devnull 		reread();
122 84114f06 2004-04-19 devnull 		if (rdc() != '\n')
123 84114f06 2004-04-19 devnull 			error("newline expected");
124 84114f06 2004-04-19 devnull 	}
125 84114f06 2004-04-19 devnull }
126 84114f06 2004-04-19 devnull 
127 84114f06 2004-04-19 devnull int
128 84114f06 2004-04-19 devnull alldigs(char *s)
129 84114f06 2004-04-19 devnull {
130 84114f06 2004-04-19 devnull 	while(*s){
131 84114f06 2004-04-19 devnull 		if(*s<'0' || '9'<*s)
132 84114f06 2004-04-19 devnull 			return 0;
133 84114f06 2004-04-19 devnull 		s++;
134 84114f06 2004-04-19 devnull 	}
135 84114f06 2004-04-19 devnull 	return 1;
136 84114f06 2004-04-19 devnull }
137 84114f06 2004-04-19 devnull 
138 84114f06 2004-04-19 devnull void
139 84114f06 2004-04-19 devnull done(void)
140 84114f06 2004-04-19 devnull {
141 84114f06 2004-04-19 devnull 	if (pid)
142 84114f06 2004-04-19 devnull 		endpcs();
143 84114f06 2004-04-19 devnull 	exits(exitflg? "error": 0);
144 84114f06 2004-04-19 devnull }
145 84114f06 2004-04-19 devnull 
146 84114f06 2004-04-19 devnull /*
147 84114f06 2004-04-19 devnull  * An error occurred; save the message for later printing,
148 84114f06 2004-04-19 devnull  * close open files, and reset to main command loop.
149 84114f06 2004-04-19 devnull  */
150 84114f06 2004-04-19 devnull void
151 84114f06 2004-04-19 devnull error(char *n)
152 84114f06 2004-04-19 devnull {
153 84114f06 2004-04-19 devnull 	errmsg = n;
154 84114f06 2004-04-19 devnull 	iclose(0, 1);
155 84114f06 2004-04-19 devnull 	oclose();
156 84114f06 2004-04-19 devnull 	flush();
157 84114f06 2004-04-19 devnull 	delbp();
158 84114f06 2004-04-19 devnull 	ending = 0;
159 84114f06 2004-04-19 devnull 	longjmp(env, 1);
160 84114f06 2004-04-19 devnull }
161 84114f06 2004-04-19 devnull 
162 84114f06 2004-04-19 devnull void
163 84114f06 2004-04-19 devnull errors(char *m, char *n)
164 84114f06 2004-04-19 devnull {
165 84114f06 2004-04-19 devnull 	static char buf[128];
166 84114f06 2004-04-19 devnull 
167 84114f06 2004-04-19 devnull 	sprint(buf, "%s: %s", m, n);
168 84114f06 2004-04-19 devnull 	error(buf);
169 84114f06 2004-04-19 devnull }
170 84114f06 2004-04-19 devnull 
171 84114f06 2004-04-19 devnull /*
172 84114f06 2004-04-19 devnull  * An interrupt occurred;
173 84114f06 2004-04-19 devnull  * seek to the end of the current file
174 84114f06 2004-04-19 devnull  * and remember that there was a fault.
175 84114f06 2004-04-19 devnull  */
176 84114f06 2004-04-19 devnull void
177 84114f06 2004-04-19 devnull fault(void *a, char *s)
178 84114f06 2004-04-19 devnull {
179 84114f06 2004-04-19 devnull 	USED(a);
180 84114f06 2004-04-19 devnull 	if(strncmp(s, "interrupt", 9) == 0){
181 84114f06 2004-04-19 devnull 		seek(infile, 0L, 2);
182 84114f06 2004-04-19 devnull 		mkfault++;
183 84114f06 2004-04-19 devnull 		noted(NCONT);
184 84114f06 2004-04-19 devnull 	}
185 84114f06 2004-04-19 devnull 	noted(NDFLT);
186 84114f06 2004-04-19 devnull }