2 84114f06 2004-04-19 devnull * db - main command loop and error/interrupt handling
4 84114f06 2004-04-19 devnull #include "defs.h"
5 84114f06 2004-04-19 devnull #include "fns.h"
7 84114f06 2004-04-19 devnull int wtflag = OREAD;
8 84114f06 2004-04-19 devnull BOOL kflag;
10 84114f06 2004-04-19 devnull BOOL mkfault;
11 84114f06 2004-04-19 devnull ADDR maxoff;
13 84114f06 2004-04-19 devnull int xargc; /* bullshit */
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;
20 84114f06 2004-04-19 devnull int alldigs(char*);
21 84114f06 2004-04-19 devnull void fault(void*, char*);
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;
28 84114f06 2004-04-19 devnull usage(void)
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");
35 84114f06 2004-04-19 devnull main(int argc, char **argv)
37 c6ff2c76 2005-01-24 devnull int omode;
38 c6ff2c76 2005-01-24 devnull volatile int quiet;
40 84114f06 2004-04-19 devnull char *name;
42 b030a6c3 2005-01-23 devnull quiet = 0;
43 84114f06 2004-04-19 devnull name = 0;
44 84114f06 2004-04-19 devnull outputinit();
45 84114f06 2004-04-19 devnull maxoff = MAXOFF;
46 84114f06 2004-04-19 devnull omode = OREAD;
47 84114f06 2004-04-19 devnull ARGBEGIN{
50 84114f06 2004-04-19 devnull case 'A':
52 84114f06 2004-04-19 devnull case 'k':
53 84114f06 2004-04-19 devnull kflag = 1;
55 84114f06 2004-04-19 devnull case 'w':
56 84114f06 2004-04-19 devnull omode = ORDWR;
58 84114f06 2004-04-19 devnull case 'I':
59 84114f06 2004-04-19 devnull s = ARGF();
60 84114f06 2004-04-19 devnull if(s == 0)
61 84114f06 2004-04-19 devnull dprint("missing -I argument\n");
63 84114f06 2004-04-19 devnull Ipath = s;
65 84114f06 2004-04-19 devnull case 'm':
66 84114f06 2004-04-19 devnull name = ARGF();
67 84114f06 2004-04-19 devnull if(name == 0)
68 84114f06 2004-04-19 devnull dprint("missing -m argument\n");
70 b030a6c3 2005-01-23 devnull case 'q':
71 b030a6c3 2005-01-23 devnull quiet = 1;
75 b030a6c3 2005-01-23 devnull attachargs(argc, argv, omode, !quiet);
77 84114f06 2004-04-19 devnull dotmap = dumbmap(-1);
80 84114f06 2004-04-19 devnull * show initial state and drop into the execution loop.
82 84114f06 2004-04-19 devnull notify(fault);
83 84114f06 2004-04-19 devnull setsym();
84 84114f06 2004-04-19 devnull if(setjmp(env) == 0){
85 84114f06 2004-04-19 devnull if (pid || corhdr)
86 84114f06 2004-04-19 devnull setcor(); /* could get error */
87 b030a6c3 2005-01-23 devnull if (correg && !quiet) {
88 84114f06 2004-04-19 devnull dprint("%s\n", mach->exc(cormap, correg));
89 84114f06 2004-04-19 devnull printpc();
93 84114f06 2004-04-19 devnull setjmp(env);
94 84114f06 2004-04-19 devnull if (executing)
96 84114f06 2004-04-19 devnull executing = FALSE;
97 84114f06 2004-04-19 devnull for (;;) {
98 84114f06 2004-04-19 devnull flushbuf();
99 84114f06 2004-04-19 devnull if (errmsg) {
100 84114f06 2004-04-19 devnull dprint(errmsg);
101 84114f06 2004-04-19 devnull printc('\n');
102 84114f06 2004-04-19 devnull errmsg = 0;
103 84114f06 2004-04-19 devnull exitflg = 0;
105 84114f06 2004-04-19 devnull if (mkfault) {
106 84114f06 2004-04-19 devnull mkfault=0;
107 84114f06 2004-04-19 devnull printc('\n');
108 84114f06 2004-04-19 devnull prints(DBNAME);
110 84114f06 2004-04-19 devnull clrinp();
112 84114f06 2004-04-19 devnull reread();
113 84114f06 2004-04-19 devnull if (eof) {
114 84114f06 2004-04-19 devnull if (infile == STDIN)
116 84114f06 2004-04-19 devnull iclose(-1, 0);
117 84114f06 2004-04-19 devnull eof = 0;
118 84114f06 2004-04-19 devnull longjmp(env, 1);
120 84114f06 2004-04-19 devnull exitflg = 0;
121 84114f06 2004-04-19 devnull command(0, 0);
122 84114f06 2004-04-19 devnull reread();
123 84114f06 2004-04-19 devnull if (rdc() != '\n')
124 84114f06 2004-04-19 devnull error("newline expected");
129 84114f06 2004-04-19 devnull alldigs(char *s)
131 84114f06 2004-04-19 devnull while(*s){
132 84114f06 2004-04-19 devnull if(*s<'0' || '9'<*s)
133 84114f06 2004-04-19 devnull return 0;
136 84114f06 2004-04-19 devnull return 1;
140 84114f06 2004-04-19 devnull done(void)
142 84114f06 2004-04-19 devnull if (pid)
143 84114f06 2004-04-19 devnull endpcs();
144 84114f06 2004-04-19 devnull exits(exitflg? "error": 0);
148 84114f06 2004-04-19 devnull * An error occurred; save the message for later printing,
149 84114f06 2004-04-19 devnull * close open files, and reset to main command loop.
152 84114f06 2004-04-19 devnull error(char *n)
154 84114f06 2004-04-19 devnull errmsg = n;
155 84114f06 2004-04-19 devnull iclose(0, 1);
156 84114f06 2004-04-19 devnull oclose();
157 84114f06 2004-04-19 devnull flush();
158 84114f06 2004-04-19 devnull delbp();
159 84114f06 2004-04-19 devnull ending = 0;
160 84114f06 2004-04-19 devnull longjmp(env, 1);
164 84114f06 2004-04-19 devnull errors(char *m, char *n)
166 84114f06 2004-04-19 devnull static char buf[128];
168 84114f06 2004-04-19 devnull sprint(buf, "%s: %s", m, n);
169 84114f06 2004-04-19 devnull error(buf);
173 84114f06 2004-04-19 devnull * An interrupt occurred;
174 84114f06 2004-04-19 devnull * seek to the end of the current file
175 84114f06 2004-04-19 devnull * and remember that there was a fault.
178 84114f06 2004-04-19 devnull fault(void *a, char *s)
180 84114f06 2004-04-19 devnull USED(a);
181 84114f06 2004-04-19 devnull if(strncmp(s, "interrupt", 9) == 0){
182 84114f06 2004-04-19 devnull seek(infile, 0L, 2);
183 84114f06 2004-04-19 devnull mkfault++;
184 84114f06 2004-04-19 devnull noted(NCONT);
186 84114f06 2004-04-19 devnull noted(NDFLT);