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 f9aa99c7 2004-06-09 devnull dumbmap(int fd)
32 f9aa99c7 2004-06-09 devnull Map *dumb;
35 f9aa99c7 2004-06-09 devnull dumb = allocmap();
36 f9aa99c7 2004-06-09 devnull memset(&s, 0, sizeof s);
37 f9aa99c7 2004-06-09 devnull s.fd = fd;
38 f9aa99c7 2004-06-09 devnull s.base = 0;
39 f9aa99c7 2004-06-09 devnull s.offset = 0;
40 f9aa99c7 2004-06-09 devnull s.size = 0xFFFFFFFF;
41 f9aa99c7 2004-06-09 devnull s.name = "data";
42 f9aa99c7 2004-06-09 devnull s.file = "<dumb>";
43 f9aa99c7 2004-06-09 devnull if(addseg(dumb, s) < 0){
44 f9aa99c7 2004-06-09 devnull freemap(dumb);
45 f9aa99c7 2004-06-09 devnull return nil;
47 f9aa99c7 2004-06-09 devnull if(mach == nil)
48 f9aa99c7 2004-06-09 devnull mach = machcpu;
49 f9aa99c7 2004-06-09 devnull return dumb;
53 564ca709 2004-04-19 devnull main(int argc, char *argv[])
55 f7b74c17 2004-12-28 devnull Lsym *volatile l;
57 564ca709 2004-04-19 devnull char buf[128], *s;
58 564ca709 2004-04-19 devnull int pid, i;
60 564ca709 2004-04-19 devnull argv0 = argv[0];
62 564ca709 2004-04-19 devnull quiet = 1;
64 564ca709 2004-04-19 devnull mtype = 0;
65 564ca709 2004-04-19 devnull ARGBEGIN{
66 564ca709 2004-04-19 devnull case 'A':
69 564ca709 2004-04-19 devnull case 'm':
70 564ca709 2004-04-19 devnull mtype = ARGF();
72 564ca709 2004-04-19 devnull case 'w':
73 564ca709 2004-04-19 devnull wtflag = 1;
75 564ca709 2004-04-19 devnull case 'l':
76 564ca709 2004-04-19 devnull s = ARGF();
77 564ca709 2004-04-19 devnull if(s == 0)
79 564ca709 2004-04-19 devnull lm[nlm++] = s;
81 564ca709 2004-04-19 devnull case 'k':
82 564ca709 2004-04-19 devnull kernel++;
84 564ca709 2004-04-19 devnull case 'q':
85 564ca709 2004-04-19 devnull quiet = 0;
87 564ca709 2004-04-19 devnull case 'r':
89 564ca709 2004-04-19 devnull remote++;
90 564ca709 2004-04-19 devnull kernel++;
98 564ca709 2004-04-19 devnull fmtinstall('Z', Zfmt);
99 564ca709 2004-04-19 devnull fmtinstall('L', locfmt);
100 564ca709 2004-04-19 devnull Binit(&bioout, 1, OWRITE);
101 564ca709 2004-04-19 devnull bout = &bioout;
103 e637c944 2004-04-20 devnull initexpr();
104 d2cbcb77 2004-04-20 devnull initprint();
105 564ca709 2004-04-19 devnull kinit();
106 564ca709 2004-04-19 devnull initialising = 1;
107 564ca709 2004-04-19 devnull pushfile(0);
108 564ca709 2004-04-19 devnull loadvars();
109 564ca709 2004-04-19 devnull installbuiltin();
110 4f2ac1b7 2005-01-23 devnull acidregs = mallocz(sizeof *acidregs, 1);
111 4f2ac1b7 2005-01-23 devnull acidregs->rw = acidregsrw;
113 564ca709 2004-04-19 devnull if(mtype && machbyname(mtype) == 0)
114 564ca709 2004-04-19 devnull print("unknown machine %s", mtype);
116 564ca709 2004-04-19 devnull if (attachfiles(argc, argv) < 0)
117 564ca709 2004-04-19 devnull varreg(); /* use default register set on error */
118 564ca709 2004-04-19 devnull if(mach == nil)
119 564ca709 2004-04-19 devnull mach = machcpu;
121 564ca709 2004-04-19 devnull symhdr = nil; /* not supposed to use this anymore */
123 564ca709 2004-04-19 devnull l = mkvar("acid");
124 564ca709 2004-04-19 devnull l->v->set = 1;
125 564ca709 2004-04-19 devnull l->v->type = TLIST;
126 564ca709 2004-04-19 devnull l->v->store.u.l = nil;
128 13e66070 2004-04-20 devnull loadmodule(unsharp("#9/acid/port"));
129 564ca709 2004-04-19 devnull for(i = 0; i < nlm; i++) {
130 564ca709 2004-04-19 devnull if(access(lm[i], AREAD) >= 0)
131 564ca709 2004-04-19 devnull loadmodule(lm[i]);
133 13e66070 2004-04-20 devnull sprint(buf, "#9/acid/%s", lm[i]);
134 13e66070 2004-04-20 devnull loadmodule(unsharp(buf));
138 564ca709 2004-04-19 devnull userinit();
139 564ca709 2004-04-19 devnull varsym();
141 564ca709 2004-04-19 devnull l = look("acidmap");
142 564ca709 2004-04-19 devnull if(l && l->proc) {
143 b4a659b6 2004-04-19 devnull if(setjmp(err) == 0){
144 b4a659b6 2004-04-19 devnull n = an(ONAME, ZN, ZN);
145 b4a659b6 2004-04-19 devnull n->sym = l;
146 b4a659b6 2004-04-19 devnull n = an(OCALL, n, ZN);
147 b4a659b6 2004-04-19 devnull execute(n);
151 564ca709 2004-04-19 devnull interactive = 1;
152 564ca709 2004-04-19 devnull initialising = 0;
153 564ca709 2004-04-19 devnull line = 1;
155 564ca709 2004-04-19 devnull notify(catcher);
157 564ca709 2004-04-19 devnull for(;;) {
158 564ca709 2004-04-19 devnull if(setjmp(err)) {
159 564ca709 2004-04-19 devnull Binit(&bioout, 1, OWRITE);
160 564ca709 2004-04-19 devnull unwind();
162 564ca709 2004-04-19 devnull stacked = 0;
164 564ca709 2004-04-19 devnull Bprint(bout, "acid; ");
166 564ca709 2004-04-19 devnull if(yyparse() != 1)
168 564ca709 2004-04-19 devnull restartio();
170 564ca709 2004-04-19 devnull unwind();
173 564ca709 2004-04-19 devnull Bputc(bout, '\n');
174 564ca709 2004-04-19 devnull exits(0);
179 4f2ac1b7 2005-01-23 devnull setstring(char *var, char *s)
181 4f2ac1b7 2005-01-23 devnull Lsym *l;
182 4f2ac1b7 2005-01-23 devnull Value *v;
184 4f2ac1b7 2005-01-23 devnull l = mkvar(var);
185 4f2ac1b7 2005-01-23 devnull v = l->v;
186 4f2ac1b7 2005-01-23 devnull v->store.fmt = 's';
187 4f2ac1b7 2005-01-23 devnull v->set = 1;
188 4f2ac1b7 2005-01-23 devnull v->store.u.string = strnode(s ? s : "");
189 4f2ac1b7 2005-01-23 devnull v->type = TSTRING;
192 564ca709 2004-04-19 devnull static int
193 564ca709 2004-04-19 devnull attachfiles(int argc, char **argv)
195 f7b74c17 2004-12-28 devnull volatile int pid;
196 564ca709 2004-04-19 devnull Lsym *l;
198 b4a659b6 2004-04-19 devnull pid = 0;
199 564ca709 2004-04-19 devnull interactive = 0;
202 564ca709 2004-04-19 devnull if(setjmp(err))
203 564ca709 2004-04-19 devnull return -1;
205 7b8a3f12 2005-02-11 devnull attachargs(argc, argv, wtflag?ORDWR:OREAD, 1);
207 4f2ac1b7 2005-01-23 devnull setstring("objtype", mach->name);
208 4f2ac1b7 2005-01-23 devnull setstring("textfile", symfil);
209 4f2ac1b7 2005-01-23 devnull setstring("systype", symhdr ? symhdr->aname : "");
210 4f2ac1b7 2005-01-23 devnull setstring("corefile", corfil);
212 4f2ac1b7 2005-01-23 devnull l = mkvar("pids");
213 4f2ac1b7 2005-01-23 devnull l->v->set = 1;
214 4f2ac1b7 2005-01-23 devnull l->v->type = TLIST;
215 4f2ac1b7 2005-01-23 devnull l->v->store.u.l = nil;
217 7b8a3f12 2005-02-11 devnull if(corpid)
218 7b8a3f12 2005-02-11 devnull sproc(corpid);
219 564ca709 2004-04-19 devnull if(corhdr)
220 564ca709 2004-04-19 devnull setcore(corhdr);
221 564ca709 2004-04-19 devnull varreg();
222 564ca709 2004-04-19 devnull return 0;
226 564ca709 2004-04-19 devnull setcore(Fhdr *hdr)
229 4f2ac1b7 2005-01-23 devnull Lsym *l;
230 4f2ac1b7 2005-01-23 devnull Value *v;
231 4f2ac1b7 2005-01-23 devnull List **tail, *tl;
233 564ca709 2004-04-19 devnull unmapproc(cormap);
234 564ca709 2004-04-19 devnull unmapfile(corhdr, cormap);
235 564ca709 2004-04-19 devnull free(correg);
236 564ca709 2004-04-19 devnull correg = nil;
238 564ca709 2004-04-19 devnull if(hdr == nil)
239 564ca709 2004-04-19 devnull error("no core");
240 564ca709 2004-04-19 devnull if(mapfile(hdr, 0, cormap, &correg) < 0)
241 564ca709 2004-04-19 devnull error("mapfile %s: %r", hdr->filename);
242 564ca709 2004-04-19 devnull corhdr = hdr;
243 564ca709 2004-04-19 devnull corfil = hdr->filename;
245 4f2ac1b7 2005-01-23 devnull l = mkvar("pid");
246 4f2ac1b7 2005-01-23 devnull v = l->v;
247 4f2ac1b7 2005-01-23 devnull v->store.fmt = 'D';
248 4f2ac1b7 2005-01-23 devnull v->set = 1;
249 4f2ac1b7 2005-01-23 devnull v->store.u.ival = hdr->pid;
251 4f2ac1b7 2005-01-23 devnull setstring("corefile", corfil);
252 4f2ac1b7 2005-01-23 devnull setstring("cmdline", hdr->cmdline);
254 4f2ac1b7 2005-01-23 devnull l = mkvar("pids");
255 4f2ac1b7 2005-01-23 devnull l->v->set = 1;
256 4f2ac1b7 2005-01-23 devnull l->v->type = TLIST;
257 4f2ac1b7 2005-01-23 devnull l->v->store.u.l = nil;
258 4f2ac1b7 2005-01-23 devnull tail = &l->v->store.u.l;
259 4f2ac1b7 2005-01-23 devnull for(i=0; i<hdr->nthread; i++){
260 4f2ac1b7 2005-01-23 devnull tl = al(TINT);
261 4f2ac1b7 2005-01-23 devnull tl->store.u.ival = hdr->thread[i].id;
262 4f2ac1b7 2005-01-23 devnull tl->store.fmt = 'X';
263 4f2ac1b7 2005-01-23 devnull *tail = tl;
264 4f2ac1b7 2005-01-23 devnull tail = &tl->next;
267 4f2ac1b7 2005-01-23 devnull if(hdr->nthread)
268 4f2ac1b7 2005-01-23 devnull sproc(hdr->thread[0].id);
272 564ca709 2004-04-19 devnull die(void)
274 564ca709 2004-04-19 devnull Lsym *s;
275 564ca709 2004-04-19 devnull List *f;
276 4f2ac1b7 2005-01-23 devnull int first;
278 564ca709 2004-04-19 devnull Bprint(bout, "\n");
280 4f2ac1b7 2005-01-23 devnull first = 1;
281 564ca709 2004-04-19 devnull s = look("proclist");
282 564ca709 2004-04-19 devnull if(s && s->v->type == TLIST) {
283 564ca709 2004-04-19 devnull for(f = s->v->store.u.l; f; f = f->next){
284 564ca709 2004-04-19 devnull detachproc((int)f->store.u.ival);
285 4f2ac1b7 2005-01-23 devnull Bprint(bout, "%s %d", first ? "/bin/kill -9" : "", (int)f->store.u.ival);
286 4f2ac1b7 2005-01-23 devnull first = 0;
289 4f2ac1b7 2005-01-23 devnull if(!first)
290 4f2ac1b7 2005-01-23 devnull Bprint(bout, "\n");
291 564ca709 2004-04-19 devnull exits(0);
295 564ca709 2004-04-19 devnull userinit(void)
297 564ca709 2004-04-19 devnull Lsym *l;
298 564ca709 2004-04-19 devnull Node *n;
299 564ca709 2004-04-19 devnull char buf[128], *p;
301 13e66070 2004-04-20 devnull sprint(buf, "#9/acid/%s", mach->name);
302 13e66070 2004-04-20 devnull loadmodule(unsharp(buf));
303 c8b6342d 2005-01-13 devnull p = getenv("HOME");
304 564ca709 2004-04-19 devnull if(p != 0) {
305 564ca709 2004-04-19 devnull sprint(buf, "%s/lib/acid", p);
306 564ca709 2004-04-19 devnull silent = 1;
307 564ca709 2004-04-19 devnull loadmodule(buf);
310 564ca709 2004-04-19 devnull interactive = 0;
311 564ca709 2004-04-19 devnull if(setjmp(err)) {
312 564ca709 2004-04-19 devnull unwind();
315 564ca709 2004-04-19 devnull l = look("acidinit");
316 564ca709 2004-04-19 devnull if(l && l->proc) {
317 564ca709 2004-04-19 devnull n = an(ONAME, ZN, ZN);
318 564ca709 2004-04-19 devnull n->sym = l;
319 564ca709 2004-04-19 devnull n = an(OCALL, n, ZN);
320 564ca709 2004-04-19 devnull execute(n);
325 564ca709 2004-04-19 devnull loadmodule(char *s)
327 564ca709 2004-04-19 devnull interactive = 0;
328 564ca709 2004-04-19 devnull if(setjmp(err)) {
329 564ca709 2004-04-19 devnull unwind();
332 564ca709 2004-04-19 devnull pushfile(s);
333 564ca709 2004-04-19 devnull silent = 0;
334 564ca709 2004-04-19 devnull yyparse();
335 564ca709 2004-04-19 devnull popio();
340 564ca709 2004-04-19 devnull an(int op, Node *l, Node *r)
342 564ca709 2004-04-19 devnull Node *n;
344 564ca709 2004-04-19 devnull n = gmalloc(sizeof(Node));
345 564ca709 2004-04-19 devnull memset(n, 0, sizeof(Node));
346 564ca709 2004-04-19 devnull n->gc.gclink = gcl;
347 564ca709 2004-04-19 devnull gcl = (Gc*)n;
348 564ca709 2004-04-19 devnull n->op = op;
349 564ca709 2004-04-19 devnull n->left = l;
350 564ca709 2004-04-19 devnull n->right = r;
351 564ca709 2004-04-19 devnull return n;
355 564ca709 2004-04-19 devnull al(int t)
357 564ca709 2004-04-19 devnull List *l;
359 564ca709 2004-04-19 devnull l = gmalloc(sizeof(List));
360 564ca709 2004-04-19 devnull memset(l, 0, sizeof(List));
361 564ca709 2004-04-19 devnull l->type = t;
362 564ca709 2004-04-19 devnull l->gc.gclink = gcl;
363 564ca709 2004-04-19 devnull gcl = (Gc*)l;
364 564ca709 2004-04-19 devnull return l;
368 4a000a28 2012-03-05 rsc con(s64int v)
370 564ca709 2004-04-19 devnull Node *n;
372 564ca709 2004-04-19 devnull n = an(OCONST, ZN, ZN);
373 564ca709 2004-04-19 devnull n->store.u.ival = v;
374 564ca709 2004-04-19 devnull n->store.fmt = 'X';
375 564ca709 2004-04-19 devnull n->type = TINT;
376 564ca709 2004-04-19 devnull return n;
380 564ca709 2004-04-19 devnull fatal(char *fmt, ...)
382 564ca709 2004-04-19 devnull char buf[128];
383 564ca709 2004-04-19 devnull va_list arg;
385 564ca709 2004-04-19 devnull va_start(arg, fmt);
386 564ca709 2004-04-19 devnull vseprint(buf, buf+sizeof(buf), fmt, arg);
387 564ca709 2004-04-19 devnull va_end(arg);
388 564ca709 2004-04-19 devnull fprint(2, "%s: %Z (fatal problem) %s\n", argv0, buf);
389 564ca709 2004-04-19 devnull exits(buf);
393 564ca709 2004-04-19 devnull yyerror(char *fmt, ...)
395 564ca709 2004-04-19 devnull char buf[128];
396 564ca709 2004-04-19 devnull va_list arg;
398 564ca709 2004-04-19 devnull if(strcmp(fmt, "syntax error") == 0) {
399 564ca709 2004-04-19 devnull yyerror("syntax error, near symbol '%s'", symbol);
402 564ca709 2004-04-19 devnull va_start(arg, fmt);
403 564ca709 2004-04-19 devnull vseprint(buf, buf+sizeof(buf), fmt, arg);
404 564ca709 2004-04-19 devnull va_end(arg);
405 564ca709 2004-04-19 devnull print("%Z: %s\n", buf);
409 564ca709 2004-04-19 devnull marktree(Node *n)
412 564ca709 2004-04-19 devnull if(n == 0)
415 564ca709 2004-04-19 devnull marktree(n->left);
416 564ca709 2004-04-19 devnull marktree(n->right);
418 564ca709 2004-04-19 devnull n->gc.gcmark = 1;
419 564ca709 2004-04-19 devnull if(n->op != OCONST)
422 564ca709 2004-04-19 devnull switch(n->type) {
423 564ca709 2004-04-19 devnull case TSTRING:
424 564ca709 2004-04-19 devnull n->store.u.string->gc.gcmark = 1;
426 564ca709 2004-04-19 devnull case TLIST:
427 564ca709 2004-04-19 devnull marklist(n->store.u.l);
429 564ca709 2004-04-19 devnull case TCODE:
430 564ca709 2004-04-19 devnull marktree(n->store.u.cc);
436 564ca709 2004-04-19 devnull marklist(List *l)
438 564ca709 2004-04-19 devnull while(l) {
439 564ca709 2004-04-19 devnull l->gc.gcmark = 1;
440 564ca709 2004-04-19 devnull switch(l->type) {
441 564ca709 2004-04-19 devnull case TSTRING:
442 564ca709 2004-04-19 devnull l->store.u.string->gc.gcmark = 1;
444 564ca709 2004-04-19 devnull case TLIST:
445 564ca709 2004-04-19 devnull marklist(l->store.u.l);
447 564ca709 2004-04-19 devnull case TCODE:
448 564ca709 2004-04-19 devnull marktree(l->store.u.cc);
451 564ca709 2004-04-19 devnull l = l->next;
456 564ca709 2004-04-19 devnull gc(void)
459 564ca709 2004-04-19 devnull Lsym *f;
460 564ca709 2004-04-19 devnull Value *v;
461 564ca709 2004-04-19 devnull Gc *m, **p, *next;
463 564ca709 2004-04-19 devnull if(dogc < Mempergc)
465 564ca709 2004-04-19 devnull dogc = 0;
467 564ca709 2004-04-19 devnull /* Mark */
468 564ca709 2004-04-19 devnull for(m = gcl; m; m = m->gclink)
469 564ca709 2004-04-19 devnull m->gcmark = 0;
471 564ca709 2004-04-19 devnull /* Scan */
472 564ca709 2004-04-19 devnull for(i = 0; i < Hashsize; i++) {
473 564ca709 2004-04-19 devnull for(f = hash[i]; f; f = f->hash) {
474 564ca709 2004-04-19 devnull marktree(f->proc);
475 564ca709 2004-04-19 devnull if(f->lexval != Tid)
476 564ca709 2004-04-19 devnull continue;
477 564ca709 2004-04-19 devnull for(v = f->v; v; v = v->pop) {
478 564ca709 2004-04-19 devnull switch(v->type) {
479 564ca709 2004-04-19 devnull case TSTRING:
480 564ca709 2004-04-19 devnull v->store.u.string->gc.gcmark = 1;
482 564ca709 2004-04-19 devnull case TLIST:
483 564ca709 2004-04-19 devnull marklist(v->store.u.l);
485 564ca709 2004-04-19 devnull case TCODE:
486 564ca709 2004-04-19 devnull marktree(v->store.u.cc);
488 4f2ac1b7 2005-01-23 devnull case TCON:
489 4f2ac1b7 2005-01-23 devnull marktree(v->store.u.con);
496 564ca709 2004-04-19 devnull /* Free */
497 564ca709 2004-04-19 devnull p = &gcl;
498 564ca709 2004-04-19 devnull for(m = gcl; m; m = next) {
499 564ca709 2004-04-19 devnull next = m->gclink;
500 564ca709 2004-04-19 devnull if(m->gcmark == 0) {
501 564ca709 2004-04-19 devnull *p = next;
502 564ca709 2004-04-19 devnull free(m); /* Sleazy reliance on my malloc */
505 564ca709 2004-04-19 devnull p = &m->gclink;
510 564ca709 2004-04-19 devnull gmalloc(long l)
512 564ca709 2004-04-19 devnull void *p;
514 564ca709 2004-04-19 devnull dogc += l;
515 564ca709 2004-04-19 devnull p = malloc(l);
516 564ca709 2004-04-19 devnull if(p == 0)
517 564ca709 2004-04-19 devnull fatal("out of memory");
518 564ca709 2004-04-19 devnull return p;
522 564ca709 2004-04-19 devnull checkqid(int f1, int pid)
525 564ca709 2004-04-19 devnull Dir *d1, *d2;
526 564ca709 2004-04-19 devnull char buf[128];
528 564ca709 2004-04-19 devnull if(kernel)
531 564ca709 2004-04-19 devnull d1 = dirfstat(f1);
532 564ca709 2004-04-19 devnull if(d1 == nil){
533 564ca709 2004-04-19 devnull print("checkqid: (qid not checked) dirfstat: %r\n");
537 564ca709 2004-04-19 devnull sprint(buf, "/proc/%d/text", pid);
538 564ca709 2004-04-19 devnull fd = open(buf, OREAD);
539 564ca709 2004-04-19 devnull if(fd < 0 || (d2 = dirfstat(fd)) == nil){
540 564ca709 2004-04-19 devnull print("checkqid: (qid not checked) dirstat %s: %r\n", buf);
541 564ca709 2004-04-19 devnull free(d1);
542 564ca709 2004-04-19 devnull if(fd >= 0)
543 564ca709 2004-04-19 devnull close(fd);
547 564ca709 2004-04-19 devnull close(fd);
549 564ca709 2004-04-19 devnull if(d1->qid.path != d2->qid.path || d1->qid.vers != d2->qid.vers || d1->qid.type != d2->qid.type){
550 7b8a3f12 2005-02-11 devnull print("path %#llux %#llux vers %lud %lud type %d %d\n",
551 564ca709 2004-04-19 devnull d1->qid.path, d2->qid.path, d1->qid.vers, d2->qid.vers, d1->qid.type, d2->qid.type);
552 564ca709 2004-04-19 devnull print("warning: image does not match text for pid %d\n", pid);
554 564ca709 2004-04-19 devnull free(d1);
555 564ca709 2004-04-19 devnull free(d2);
559 564ca709 2004-04-19 devnull catcher(void *junk, char *s)
561 564ca709 2004-04-19 devnull USED(junk);
563 564ca709 2004-04-19 devnull if(strstr(s, "interrupt")) {
564 564ca709 2004-04-19 devnull gotint = 1;
565 564ca709 2004-04-19 devnull noted(NCONT);
567 564ca709 2004-04-19 devnull if(strstr(s, "child"))
568 564ca709 2004-04-19 devnull noted(NCONT);
569 564ca709 2004-04-19 devnull fprint(2, "note: %s\n", s);
570 564ca709 2004-04-19 devnull noted(NDFLT);
574 564ca709 2004-04-19 devnull system(void)
576 564ca709 2004-04-19 devnull char *cpu, *p, *q;
577 564ca709 2004-04-19 devnull static char kernel[128];
579 564ca709 2004-04-19 devnull cpu = getenv("cputype");
580 564ca709 2004-04-19 devnull if(cpu == 0) {
581 564ca709 2004-04-19 devnull cpu = "mips";
582 564ca709 2004-04-19 devnull print("$cputype not set; assuming %s\n", cpu);
584 564ca709 2004-04-19 devnull p = getenv("terminal");
585 564ca709 2004-04-19 devnull if(p == 0 || (p=strchr(p, ' ')) == 0 || p[1] == ' ' || p[1] == 0) {
586 564ca709 2004-04-19 devnull p = "9power";
587 564ca709 2004-04-19 devnull print("missing or bad $terminal; assuming %s\n", p);
591 564ca709 2004-04-19 devnull q = strchr(p, ' ');
594 564ca709 2004-04-19 devnull sprint(kernel, "/%s/9%s", cpu, p);
596 564ca709 2004-04-19 devnull return kernel;
600 564ca709 2004-04-19 devnull isnumeric(char *s)
602 564ca709 2004-04-19 devnull while(*s) {
603 564ca709 2004-04-19 devnull if(*s < '0' || *s > '9')
604 564ca709 2004-04-19 devnull return 0;
607 564ca709 2004-04-19 devnull return 1;