Charles.Forsyth20060303644188019 years agoHistory
41 lines · 539 B · C
RawDownload
#include	"mk.h" voidsetvar(char *name, void *value){	symlook(name, S_VAR, value)->value = value;	symlook(name, S_MAKEVAR, (void*)"");} static voidprint1(Symtab *s){	Word *w; 	Bprint(&bout, "\t%s=", s->name);	for (w = (Word *) s->value; w; w = w->next)		Bprint(&bout, "'%s'", w->s);	Bprint(&bout, "\n");} voiddumpv(char *s){	Bprint(&bout, "%s:\n", s);	symtraverse(S_VAR, print1);} char *shname(char *a){	Rune r;	int n; 	while (*a) {		n = chartorune(&r, a);		if (!WORDCHR(r))			break;		a += n;	}	return a;}