1 76193d7c 2003-09-30 devnull #include "mk.h"
4 3fe9465a 2006-04-20 devnull setvar(char *name, void *ptr)
6 3fe9465a 2006-04-20 devnull symlook(name, S_VAR, ptr)->u.ptr = ptr;
7 76193d7c 2003-09-30 devnull symlook(name, S_MAKEVAR, (void*)"");
10 76193d7c 2003-09-30 devnull static void
11 76193d7c 2003-09-30 devnull print1(Symtab *s)
15 76193d7c 2003-09-30 devnull Bprint(&bout, "\t%s=", s->name);
16 3fe9465a 2006-04-20 devnull for (w = s->u.ptr; w; w = w->next)
17 76193d7c 2003-09-30 devnull Bprint(&bout, "'%s'", w->s);
18 76193d7c 2003-09-30 devnull Bprint(&bout, "\n");
22 76193d7c 2003-09-30 devnull dumpv(char *s)
24 76193d7c 2003-09-30 devnull Bprint(&bout, "%s:\n", s);
25 76193d7c 2003-09-30 devnull symtraverse(S_VAR, print1);
29 76193d7c 2003-09-30 devnull shname(char *a)
34 76193d7c 2003-09-30 devnull while (*a) {
35 76193d7c 2003-09-30 devnull n = chartorune(&r, a);
36 76193d7c 2003-09-30 devnull if (!WORDCHR(r))
40 76193d7c 2003-09-30 devnull return a;