1 564ca709 2004-04-19 devnull #include <u.h>
2 564ca709 2004-04-19 devnull #include <libc.h>
3 564ca709 2004-04-19 devnull #include <bio.h>
4 564ca709 2004-04-19 devnull #include <mach.h>
5 564ca709 2004-04-19 devnull #define Extern
6 564ca709 2004-04-19 devnull #include "acid.h"
7 564ca709 2004-04-19 devnull #include "y.tab.h"
9 564ca709 2004-04-19 devnull extern int __ifmt(Fmt*);
11 564ca709 2004-04-19 devnull static Biobuf bioout;
12 564ca709 2004-04-19 devnull static char* lm[16];
13 564ca709 2004-04-19 devnull static int nlm;
14 564ca709 2004-04-19 devnull static char* mtype;
16 564ca709 2004-04-19 devnull static int attachfiles(int, char**);
17 564ca709 2004-04-19 devnull int xfmt(Fmt*);
18 564ca709 2004-04-19 devnull int isnumeric(char*);
19 564ca709 2004-04-19 devnull void die(void);
20 564ca709 2004-04-19 devnull void setcore(Fhdr*);
23 564ca709 2004-04-19 devnull usage(void)
25 564ca709 2004-04-19 devnull fprint(2, "usage: acid [-c core] [-l module] [-m machine] [-qrw] [-k] [pid] [file]\n");
26 564ca709 2004-04-19 devnull exits("usage");
30 564ca709 2004-04-19 devnull main(int argc, char *argv[])
34 564ca709 2004-04-19 devnull char buf[128], *s;
35 564ca709 2004-04-19 devnull int pid, i;
37 564ca709 2004-04-19 devnull argv0 = argv[0];
39 564ca709 2004-04-19 devnull quiet = 1;
41 564ca709 2004-04-19 devnull mtype = 0;
42 564ca709 2004-04-19 devnull ARGBEGIN{
43 564ca709 2004-04-19 devnull case 'A':
46 564ca709 2004-04-19 devnull case 'm':
47 564ca709 2004-04-19 devnull mtype = ARGF();
49 564ca709 2004-04-19 devnull case 'w':
50 564ca709 2004-04-19 devnull wtflag = 1;
52 564ca709 2004-04-19 devnull case 'l':
53 564ca709 2004-04-19 devnull s = ARGF();
54 564ca709 2004-04-19 devnull if(s == 0)
56 564ca709 2004-04-19 devnull lm[nlm++] = s;
58 564ca709 2004-04-19 devnull case 'k':
59 564ca709 2004-04-19 devnull kernel++;
61 564ca709 2004-04-19 devnull case 'q':
62 564ca709 2004-04-19 devnull quiet = 0;
64 564ca709 2004-04-19 devnull case 'r':
66 564ca709 2004-04-19 devnull remote++;
67 564ca709 2004-04-19 devnull kernel++;
73 564ca709 2004-04-19 devnull fmtinstall('x', xfmt);
74 564ca709 2004-04-19 devnull fmtinstall('Z', Zfmt);
75 564ca709 2004-04-19 devnull fmtinstall('L', locfmt);
76 564ca709 2004-04-19 devnull Binit(&bioout, 1, OWRITE);
77 564ca709 2004-04-19 devnull bout = &bioout;
79 e637c944 2004-04-20 devnull initexpr();
80 d2cbcb77 2004-04-20 devnull initprint();
82 564ca709 2004-04-19 devnull initialising = 1;
83 564ca709 2004-04-19 devnull pushfile(0);
84 564ca709 2004-04-19 devnull loadvars();
85 564ca709 2004-04-19 devnull installbuiltin();
87 564ca709 2004-04-19 devnull if(mtype && machbyname(mtype) == 0)
88 564ca709 2004-04-19 devnull print("unknown machine %s", mtype);
90 564ca709 2004-04-19 devnull if (attachfiles(argc, argv) < 0)
91 564ca709 2004-04-19 devnull varreg(); /* use default register set on error */
92 564ca709 2004-04-19 devnull if(mach == nil)
93 564ca709 2004-04-19 devnull mach = machcpu;
95 564ca709 2004-04-19 devnull symhdr = nil; /* not supposed to use this anymore */
97 564ca709 2004-04-19 devnull l = mkvar("acid");
98 564ca709 2004-04-19 devnull l->v->set = 1;
99 564ca709 2004-04-19 devnull l->v->type = TLIST;
100 564ca709 2004-04-19 devnull l->v->store.u.l = nil;
102 13e66070 2004-04-20 devnull loadmodule(unsharp("#9/acid/port"));
103 564ca709 2004-04-19 devnull for(i = 0; i < nlm; i++) {
104 564ca709 2004-04-19 devnull if(access(lm[i], AREAD) >= 0)
105 564ca709 2004-04-19 devnull loadmodule(lm[i]);
107 13e66070 2004-04-20 devnull sprint(buf, "#9/acid/%s", lm[i]);
108 13e66070 2004-04-20 devnull loadmodule(unsharp(buf));
112 564ca709 2004-04-19 devnull userinit();
113 564ca709 2004-04-19 devnull varsym();
115 564ca709 2004-04-19 devnull l = look("acidmap");
116 564ca709 2004-04-19 devnull if(l && l->proc) {
117 b4a659b6 2004-04-19 devnull if(setjmp(err) == 0){
118 b4a659b6 2004-04-19 devnull n = an(ONAME, ZN, ZN);
119 b4a659b6 2004-04-19 devnull n->sym = l;
120 b4a659b6 2004-04-19 devnull n = an(OCALL, n, ZN);
121 b4a659b6 2004-04-19 devnull execute(n);
125 564ca709 2004-04-19 devnull interactive = 1;
126 564ca709 2004-04-19 devnull initialising = 0;
127 564ca709 2004-04-19 devnull line = 1;
129 564ca709 2004-04-19 devnull notify(catcher);
131 564ca709 2004-04-19 devnull for(;;) {
132 564ca709 2004-04-19 devnull if(setjmp(err)) {
133 564ca709 2004-04-19 devnull Binit(&bioout, 1, OWRITE);
134 564ca709 2004-04-19 devnull unwind();
136 564ca709 2004-04-19 devnull stacked = 0;
138 564ca709 2004-04-19 devnull Bprint(bout, "acid; ");
140 564ca709 2004-04-19 devnull if(yyparse() != 1)
142 564ca709 2004-04-19 devnull restartio();
144 564ca709 2004-04-19 devnull unwind();
146 564ca709 2004-04-19 devnull Bputc(bout, '\n');
147 564ca709 2004-04-19 devnull exits(0);
150 564ca709 2004-04-19 devnull static int
151 564ca709 2004-04-19 devnull attachfiles(int argc, char **argv)
153 b4a659b6 2004-04-19 devnull int pid;
154 564ca709 2004-04-19 devnull char *s;
155 564ca709 2004-04-19 devnull int i, omode;
156 564ca709 2004-04-19 devnull Fhdr *hdr;
157 564ca709 2004-04-19 devnull Lsym *l;
158 564ca709 2004-04-19 devnull Value *v;
160 b4a659b6 2004-04-19 devnull pid = 0;
161 564ca709 2004-04-19 devnull interactive = 0;
162 564ca709 2004-04-19 devnull if(setjmp(err))
163 564ca709 2004-04-19 devnull return -1;
166 564ca709 2004-04-19 devnull * Unix and Plan 9 differ on what the right order of pid, text, and core is.
167 564ca709 2004-04-19 devnull * I never remember anyway. Let's just accept them in any order.
169 564ca709 2004-04-19 devnull omode = wtflag ? ORDWR : OREAD;
170 564ca709 2004-04-19 devnull for(i=0; i<argc; i++){
171 564ca709 2004-04-19 devnull if(isnumeric(argv[i])){
172 564ca709 2004-04-19 devnull if(pid){
173 564ca709 2004-04-19 devnull fprint(2, "already have pid %d; ignoring pid %d\n", pid, argv[i]);
174 564ca709 2004-04-19 devnull continue;
176 564ca709 2004-04-19 devnull if(corhdr){
177 564ca709 2004-04-19 devnull fprint(2, "already have core %s; ignoring pid %d\n", corfil, pid);
178 564ca709 2004-04-19 devnull continue;
180 564ca709 2004-04-19 devnull pid = atoi(argv[i]);
181 564ca709 2004-04-19 devnull continue;
183 564ca709 2004-04-19 devnull if((hdr = crackhdr(argv[i], omode)) == nil){
184 564ca709 2004-04-19 devnull fprint(2, "crackhdr %s: %r\n", argv[i]);
185 564ca709 2004-04-19 devnull continue;
187 564ca709 2004-04-19 devnull fprint(2, "%s: %s %s %s\n", argv[i], hdr->aname, hdr->mname, hdr->fname);
188 564ca709 2004-04-19 devnull if(hdr->ftype == FCORE){
189 564ca709 2004-04-19 devnull if(pid){
190 564ca709 2004-04-19 devnull fprint(2, "already have pid %d; ignoring core %s\n", pid, argv[i]);
191 564ca709 2004-04-19 devnull uncrackhdr(hdr);
192 564ca709 2004-04-19 devnull continue;
194 564ca709 2004-04-19 devnull if(corhdr){
195 564ca709 2004-04-19 devnull fprint(2, "already have core %s; ignoring core %s\n", corfil, argv[i]);
196 564ca709 2004-04-19 devnull uncrackhdr(hdr);
197 564ca709 2004-04-19 devnull continue;
199 564ca709 2004-04-19 devnull corhdr = hdr;
200 564ca709 2004-04-19 devnull corfil = argv[i];
202 564ca709 2004-04-19 devnull if(symhdr){
203 564ca709 2004-04-19 devnull fprint(2, "already have text %s; ignoring text %s\n", symfil, argv[i]);
204 564ca709 2004-04-19 devnull uncrackhdr(hdr);
205 564ca709 2004-04-19 devnull continue;
207 564ca709 2004-04-19 devnull symhdr = hdr;
208 564ca709 2004-04-19 devnull symfil = argv[i];
212 564ca709 2004-04-19 devnull if(symhdr==nil){
213 564ca709 2004-04-19 devnull symfil = "a.out";
214 564ca709 2004-04-19 devnull if(pid){
215 564ca709 2004-04-19 devnull if((s = proctextfile(pid)) != nil){
216 564ca709 2004-04-19 devnull fprint(2, "pid %d: text %s\n", pid, s);
217 564ca709 2004-04-19 devnull symfil = s;
220 564ca709 2004-04-19 devnull /* XXX pull command from core */
222 c2a9c3bb 2004-04-19 devnull if((symhdr = crackhdr(symfil, omode)) == nil){
223 564ca709 2004-04-19 devnull fprint(2, "crackhdr %s: %r\n", symfil);
224 564ca709 2004-04-19 devnull symfil = nil;
228 564ca709 2004-04-19 devnull if(symhdr)
229 564ca709 2004-04-19 devnull syminit(symhdr);
231 564ca709 2004-04-19 devnull if(!mach)
232 564ca709 2004-04-19 devnull mach = machcpu;
235 564ca709 2004-04-19 devnull * Set up maps.
237 564ca709 2004-04-19 devnull symmap = allocmap();
238 564ca709 2004-04-19 devnull cormap = allocmap();
239 564ca709 2004-04-19 devnull if(symmap == nil || cormap == nil)
240 564ca709 2004-04-19 devnull sysfatal("allocating maps: %r");
242 564ca709 2004-04-19 devnull if(symhdr){
243 564ca709 2004-04-19 devnull if(mapfile(symhdr, 0, symmap, nil) < 0)
244 564ca709 2004-04-19 devnull fprint(2, "mapping %s: %r\n", symfil);
245 564ca709 2004-04-19 devnull mapfile(symhdr, 0, cormap, nil);
248 564ca709 2004-04-19 devnull l = mkvar("objtype");
249 564ca709 2004-04-19 devnull v = l->v;
250 564ca709 2004-04-19 devnull v->store.fmt = 's';
251 564ca709 2004-04-19 devnull v->set = 1;
252 564ca709 2004-04-19 devnull v->store.u.string = strnode(mach->name);
253 564ca709 2004-04-19 devnull v->type = TSTRING;
255 564ca709 2004-04-19 devnull l = mkvar("textfile");
256 564ca709 2004-04-19 devnull v = l->v;
257 564ca709 2004-04-19 devnull v->store.fmt = 's';
258 564ca709 2004-04-19 devnull v->set = 1;
259 564ca709 2004-04-19 devnull v->store.u.string = strnode(symfil ? symfil : "");
260 564ca709 2004-04-19 devnull v->type = TSTRING;
262 564ca709 2004-04-19 devnull l = mkvar("systype");
263 564ca709 2004-04-19 devnull v = l->v;
264 564ca709 2004-04-19 devnull v->store.fmt = 's';
265 564ca709 2004-04-19 devnull v->set = 1;
266 564ca709 2004-04-19 devnull v->store.u.string = strnode(symhdr ? symhdr->aname : "");
267 564ca709 2004-04-19 devnull v->type = TSTRING;
269 564ca709 2004-04-19 devnull l = mkvar("corefile");
270 564ca709 2004-04-19 devnull v = l->v;
271 564ca709 2004-04-19 devnull v->store.fmt = 's';
272 564ca709 2004-04-19 devnull v->set = 1;
273 564ca709 2004-04-19 devnull v->store.u.string = strnode(corfil ? corfil : "");
274 564ca709 2004-04-19 devnull v->type = TSTRING;
277 564ca709 2004-04-19 devnull sproc(pid);
278 564ca709 2004-04-19 devnull if(corhdr)
279 564ca709 2004-04-19 devnull setcore(corhdr);
280 564ca709 2004-04-19 devnull varreg();
281 564ca709 2004-04-19 devnull return 0;
285 564ca709 2004-04-19 devnull setcore(Fhdr *hdr)
287 564ca709 2004-04-19 devnull unmapproc(cormap);
288 564ca709 2004-04-19 devnull unmapfile(corhdr, cormap);
289 564ca709 2004-04-19 devnull free(correg);
290 564ca709 2004-04-19 devnull correg = nil;
292 564ca709 2004-04-19 devnull if(hdr == nil)
293 564ca709 2004-04-19 devnull error("no core");
294 564ca709 2004-04-19 devnull if(mapfile(hdr, 0, cormap, &correg) < 0)
295 564ca709 2004-04-19 devnull error("mapfile %s: %r", hdr->filename);
296 564ca709 2004-04-19 devnull corhdr = hdr;
297 564ca709 2004-04-19 devnull corfil = hdr->filename;
301 564ca709 2004-04-19 devnull die(void)
303 564ca709 2004-04-19 devnull Lsym *s;
304 564ca709 2004-04-19 devnull List *f;
306 564ca709 2004-04-19 devnull Bprint(bout, "\n");
308 564ca709 2004-04-19 devnull s = look("proclist");
309 564ca709 2004-04-19 devnull if(s && s->v->type == TLIST) {
310 564ca709 2004-04-19 devnull for(f = s->v->store.u.l; f; f = f->next){
311 564ca709 2004-04-19 devnull detachproc((int)f->store.u.ival);
312 564ca709 2004-04-19 devnull Bprint(bout, "/bin/kill -9 %d\n", (int)f->store.u.ival);
315 564ca709 2004-04-19 devnull exits(0);
319 564ca709 2004-04-19 devnull userinit(void)
321 564ca709 2004-04-19 devnull Lsym *l;
322 564ca709 2004-04-19 devnull Node *n;
323 564ca709 2004-04-19 devnull char buf[128], *p;
325 13e66070 2004-04-20 devnull sprint(buf, "#9/acid/%s", mach->name);
326 13e66070 2004-04-20 devnull loadmodule(unsharp(buf));
327 564ca709 2004-04-19 devnull p = getenv("home");
328 564ca709 2004-04-19 devnull if(p != 0) {
329 564ca709 2004-04-19 devnull sprint(buf, "%s/lib/acid", p);
330 564ca709 2004-04-19 devnull silent = 1;
331 564ca709 2004-04-19 devnull loadmodule(buf);
334 564ca709 2004-04-19 devnull interactive = 0;
335 564ca709 2004-04-19 devnull if(setjmp(err)) {
336 564ca709 2004-04-19 devnull unwind();
339 564ca709 2004-04-19 devnull l = look("acidinit");
340 564ca709 2004-04-19 devnull if(l && l->proc) {
341 564ca709 2004-04-19 devnull n = an(ONAME, ZN, ZN);
342 564ca709 2004-04-19 devnull n->sym = l;
343 564ca709 2004-04-19 devnull n = an(OCALL, n, ZN);
344 564ca709 2004-04-19 devnull execute(n);
349 564ca709 2004-04-19 devnull loadmodule(char *s)
351 564ca709 2004-04-19 devnull interactive = 0;
352 564ca709 2004-04-19 devnull if(setjmp(err)) {
353 564ca709 2004-04-19 devnull unwind();
356 564ca709 2004-04-19 devnull pushfile(s);
357 564ca709 2004-04-19 devnull silent = 0;
358 564ca709 2004-04-19 devnull yyparse();
359 564ca709 2004-04-19 devnull popio();
364 564ca709 2004-04-19 devnull an(int op, Node *l, Node *r)
366 564ca709 2004-04-19 devnull Node *n;
368 564ca709 2004-04-19 devnull n = gmalloc(sizeof(Node));
369 564ca709 2004-04-19 devnull memset(n, 0, sizeof(Node));
370 564ca709 2004-04-19 devnull n->gc.gclink = gcl;
371 564ca709 2004-04-19 devnull gcl = (Gc*)n;
372 564ca709 2004-04-19 devnull n->op = op;
373 564ca709 2004-04-19 devnull n->left = l;
374 564ca709 2004-04-19 devnull n->right = r;
375 564ca709 2004-04-19 devnull return n;
379 564ca709 2004-04-19 devnull al(int t)
381 564ca709 2004-04-19 devnull List *l;
383 564ca709 2004-04-19 devnull l = gmalloc(sizeof(List));
384 564ca709 2004-04-19 devnull memset(l, 0, sizeof(List));
385 564ca709 2004-04-19 devnull l->type = t;
386 564ca709 2004-04-19 devnull l->gc.gclink = gcl;
387 564ca709 2004-04-19 devnull gcl = (Gc*)l;
388 564ca709 2004-04-19 devnull return l;
392 564ca709 2004-04-19 devnull con(int v)
394 564ca709 2004-04-19 devnull Node *n;
396 564ca709 2004-04-19 devnull n = an(OCONST, ZN, ZN);
397 564ca709 2004-04-19 devnull n->store.u.ival = v;
398 564ca709 2004-04-19 devnull n->store.fmt = 'X';
399 564ca709 2004-04-19 devnull n->type = TINT;
400 564ca709 2004-04-19 devnull return n;
404 564ca709 2004-04-19 devnull fatal(char *fmt, ...)
406 564ca709 2004-04-19 devnull char buf[128];
407 564ca709 2004-04-19 devnull va_list arg;
409 564ca709 2004-04-19 devnull va_start(arg, fmt);
410 564ca709 2004-04-19 devnull vseprint(buf, buf+sizeof(buf), fmt, arg);
411 564ca709 2004-04-19 devnull va_end(arg);
412 564ca709 2004-04-19 devnull fprint(2, "%s: %Z (fatal problem) %s\n", argv0, buf);
413 564ca709 2004-04-19 devnull exits(buf);
417 564ca709 2004-04-19 devnull yyerror(char *fmt, ...)
419 564ca709 2004-04-19 devnull char buf[128];
420 564ca709 2004-04-19 devnull va_list arg;
422 564ca709 2004-04-19 devnull if(strcmp(fmt, "syntax error") == 0) {
423 564ca709 2004-04-19 devnull yyerror("syntax error, near symbol '%s'", symbol);
426 564ca709 2004-04-19 devnull va_start(arg, fmt);
427 564ca709 2004-04-19 devnull vseprint(buf, buf+sizeof(buf), fmt, arg);
428 564ca709 2004-04-19 devnull va_end(arg);
429 564ca709 2004-04-19 devnull print("%Z: %s\n", buf);
433 564ca709 2004-04-19 devnull marktree(Node *n)
436 564ca709 2004-04-19 devnull if(n == 0)
439 564ca709 2004-04-19 devnull marktree(n->left);
440 564ca709 2004-04-19 devnull marktree(n->right);
442 564ca709 2004-04-19 devnull n->gc.gcmark = 1;
443 564ca709 2004-04-19 devnull if(n->op != OCONST)
446 564ca709 2004-04-19 devnull switch(n->type) {
447 564ca709 2004-04-19 devnull case TSTRING:
448 564ca709 2004-04-19 devnull n->store.u.string->gc.gcmark = 1;
450 564ca709 2004-04-19 devnull case TLIST:
451 564ca709 2004-04-19 devnull marklist(n->store.u.l);
453 564ca709 2004-04-19 devnull case TCODE:
454 564ca709 2004-04-19 devnull marktree(n->store.u.cc);
460 564ca709 2004-04-19 devnull marklist(List *l)
462 564ca709 2004-04-19 devnull while(l) {
463 564ca709 2004-04-19 devnull l->gc.gcmark = 1;
464 564ca709 2004-04-19 devnull switch(l->type) {
465 564ca709 2004-04-19 devnull case TSTRING:
466 564ca709 2004-04-19 devnull l->store.u.string->gc.gcmark = 1;
468 564ca709 2004-04-19 devnull case TLIST:
469 564ca709 2004-04-19 devnull marklist(l->store.u.l);
471 564ca709 2004-04-19 devnull case TCODE:
472 564ca709 2004-04-19 devnull marktree(l->store.u.cc);
475 564ca709 2004-04-19 devnull l = l->next;
480 564ca709 2004-04-19 devnull gc(void)
483 564ca709 2004-04-19 devnull Lsym *f;
484 564ca709 2004-04-19 devnull Value *v;
485 564ca709 2004-04-19 devnull Gc *m, **p, *next;
487 564ca709 2004-04-19 devnull if(dogc < Mempergc)
489 564ca709 2004-04-19 devnull dogc = 0;
491 564ca709 2004-04-19 devnull /* Mark */
492 564ca709 2004-04-19 devnull for(m = gcl; m; m = m->gclink)
493 564ca709 2004-04-19 devnull m->gcmark = 0;
495 564ca709 2004-04-19 devnull /* Scan */
496 564ca709 2004-04-19 devnull for(i = 0; i < Hashsize; i++) {
497 564ca709 2004-04-19 devnull for(f = hash[i]; f; f = f->hash) {
498 564ca709 2004-04-19 devnull marktree(f->proc);
499 564ca709 2004-04-19 devnull if(f->lexval != Tid)
500 564ca709 2004-04-19 devnull continue;
501 564ca709 2004-04-19 devnull for(v = f->v; v; v = v->pop) {
502 564ca709 2004-04-19 devnull switch(v->type) {
503 564ca709 2004-04-19 devnull case TSTRING:
504 564ca709 2004-04-19 devnull v->store.u.string->gc.gcmark = 1;
506 564ca709 2004-04-19 devnull case TLIST:
507 564ca709 2004-04-19 devnull marklist(v->store.u.l);
509 564ca709 2004-04-19 devnull case TCODE:
510 564ca709 2004-04-19 devnull marktree(v->store.u.cc);
517 564ca709 2004-04-19 devnull /* Free */
518 564ca709 2004-04-19 devnull p = &gcl;
519 564ca709 2004-04-19 devnull for(m = gcl; m; m = next) {
520 564ca709 2004-04-19 devnull next = m->gclink;
521 564ca709 2004-04-19 devnull if(m->gcmark == 0) {
522 564ca709 2004-04-19 devnull *p = next;
523 564ca709 2004-04-19 devnull free(m); /* Sleazy reliance on my malloc */
526 564ca709 2004-04-19 devnull p = &m->gclink;
531 564ca709 2004-04-19 devnull gmalloc(long l)
533 564ca709 2004-04-19 devnull void *p;
535 564ca709 2004-04-19 devnull dogc += l;
536 564ca709 2004-04-19 devnull p = malloc(l);
537 564ca709 2004-04-19 devnull if(p == 0)
538 564ca709 2004-04-19 devnull fatal("out of memory");
539 564ca709 2004-04-19 devnull return p;
543 564ca709 2004-04-19 devnull checkqid(int f1, int pid)
546 564ca709 2004-04-19 devnull Dir *d1, *d2;
547 564ca709 2004-04-19 devnull char buf[128];
549 564ca709 2004-04-19 devnull if(kernel)
552 564ca709 2004-04-19 devnull d1 = dirfstat(f1);
553 564ca709 2004-04-19 devnull if(d1 == nil){
554 564ca709 2004-04-19 devnull print("checkqid: (qid not checked) dirfstat: %r\n");
558 564ca709 2004-04-19 devnull sprint(buf, "/proc/%d/text", pid);
559 564ca709 2004-04-19 devnull fd = open(buf, OREAD);
560 564ca709 2004-04-19 devnull if(fd < 0 || (d2 = dirfstat(fd)) == nil){
561 564ca709 2004-04-19 devnull print("checkqid: (qid not checked) dirstat %s: %r\n", buf);
562 564ca709 2004-04-19 devnull free(d1);
563 564ca709 2004-04-19 devnull if(fd >= 0)
564 564ca709 2004-04-19 devnull close(fd);
568 564ca709 2004-04-19 devnull close(fd);
570 564ca709 2004-04-19 devnull if(d1->qid.path != d2->qid.path || d1->qid.vers != d2->qid.vers || d1->qid.type != d2->qid.type){
571 564ca709 2004-04-19 devnull print("path %llux %llux vers %lud %lud type %d %d\n",
572 564ca709 2004-04-19 devnull d1->qid.path, d2->qid.path, d1->qid.vers, d2->qid.vers, d1->qid.type, d2->qid.type);
573 564ca709 2004-04-19 devnull print("warning: image does not match text for pid %d\n", pid);
575 564ca709 2004-04-19 devnull free(d1);
576 564ca709 2004-04-19 devnull free(d2);
580 564ca709 2004-04-19 devnull catcher(void *junk, char *s)
582 564ca709 2004-04-19 devnull USED(junk);
584 564ca709 2004-04-19 devnull if(strstr(s, "interrupt")) {
585 564ca709 2004-04-19 devnull gotint = 1;
586 564ca709 2004-04-19 devnull noted(NCONT);
588 564ca709 2004-04-19 devnull if(strstr(s, "child"))
589 564ca709 2004-04-19 devnull noted(NCONT);
590 564ca709 2004-04-19 devnull fprint(2, "note: %s\n", s);
591 564ca709 2004-04-19 devnull noted(NDFLT);
595 564ca709 2004-04-19 devnull system(void)
597 564ca709 2004-04-19 devnull char *cpu, *p, *q;
598 564ca709 2004-04-19 devnull static char kernel[128];
600 564ca709 2004-04-19 devnull cpu = getenv("cputype");
601 564ca709 2004-04-19 devnull if(cpu == 0) {
602 564ca709 2004-04-19 devnull cpu = "mips";
603 564ca709 2004-04-19 devnull print("$cputype not set; assuming %s\n", cpu);
605 564ca709 2004-04-19 devnull p = getenv("terminal");
606 564ca709 2004-04-19 devnull if(p == 0 || (p=strchr(p, ' ')) == 0 || p[1] == ' ' || p[1] == 0) {
607 564ca709 2004-04-19 devnull p = "9power";
608 564ca709 2004-04-19 devnull print("missing or bad $terminal; assuming %s\n", p);
612 564ca709 2004-04-19 devnull q = strchr(p, ' ');
615 564ca709 2004-04-19 devnull sprint(kernel, "/%s/9%s", cpu, p);
617 564ca709 2004-04-19 devnull return kernel;
621 564ca709 2004-04-19 devnull isnumeric(char *s)
623 564ca709 2004-04-19 devnull while(*s) {
624 564ca709 2004-04-19 devnull if(*s < '0' || *s > '9')
625 564ca709 2004-04-19 devnull return 0;
628 564ca709 2004-04-19 devnull return 1;
632 564ca709 2004-04-19 devnull xfmt(Fmt *f)
634 564ca709 2004-04-19 devnull f->flags ^= FmtSharp;
635 564ca709 2004-04-19 devnull return __ifmt(f);