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