/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include	"mk.h" intdorecipe(Node *node){	int did = 0;	char buf[BIGBLOCK], cwd[256];	Arc *a, *aa;	Node *n;	Rule *r = 0;	Symtab *s;	Word head, ahead, lp, ln, *w, *ww, *aw; 	aa = 0;	/*		pick up the rule	*/	for(a = node->prereqs; a; a = a->next)		if(*a->r->recipe)			r = (aa = a)->r;	/*		no recipe? go to buggery!	*/	if(r == 0){		if(!(node->flags&VIRTUAL) && !(node->flags&NORECIPE)){			if(getwd(cwd, sizeof cwd))				fprint(2, "mk: no recipe to make '%s' in directory %s\n", node->name, cwd);			else				fprint(2, "mk: no recipe to make '%s'\n", node->name);			Exit();		}		if(strchr(node->name, '(') && node->time == 0)			MADESET(node, MADE);		else			update(0, node);		if(tflag){			if(!(node->flags&VIRTUAL))				touch(node->name);			else if(explain)				Bprint(&bout, "no touch of virtual '%s'\n", node->name);		}		return(did);	}	/*		build the node list	*/	node->next = 0;	head.next = 0;	ww = &head;	ahead.next = 0;	aw = &ahead;	if(r->attr&REGEXP){		ww->next = newword(node->name);		aw->next = newword(node->name);	} else {		for(w = r->alltargets; w; w = w->next){			if(r->attr&META)				subst(aa->stem, w->s, buf, sizeof(buf));			else				strecpy(buf, buf + sizeof buf - 1, w->s);			aw->next = newword(buf);			aw = aw->next;			if((s = symlook(buf, S_NODE, 0)) == 0)				continue;	/* not a node we are interested in */			n = s->u.ptr;			if(aflag == 0 && n->time) {				for(a = n->prereqs; a; a = a->next)					if(a->n && outofdate(n, a, 0))						break;				if(a == 0)					continue;			}			ww->next = newword(buf);			ww = ww->next;			if(n == node) continue;			n->next = node->next;			node->next = n;		}	}	for(n = node; n; n = n->next)		if((n->flags&READY) == 0)			return(did);	/*		gather the params for the job	*/	lp.next = ln.next = 0;	for(n = node; n; n = n->next){		for(a = n->prereqs; a; a = a->next){			if(a->n){				addw(&lp, a->n->name);				if(outofdate(n, a, 0)){					addw(&ln, a->n->name);					if(explain)						fprint(1, "%s(%ld) < %s(%ld)\n",							n->name, n->time, a->n->name, a->n->time);				}			} else {				if(explain)					fprint(1, "%s has no prerequisites\n",							n->name);			}		}		MADESET(n, BEINGMADE);	}/*	print("lt=%s ln=%s lp=%s\n",wtos(head.next, ' '),wtos(ln.next, ' '),wtos(lp.next, ' '));/**/	run(newjob(r, node, aa->stem, aa->match, lp.next, ln.next, head.next, ahead.next));	return(1);} voidaddw(Word *w, char *s){	Word *lw; 	for(lw = w; w = w->next; lw = w){		if(strcmp(s, w->s) == 0)			return;	}	lw->next = newword(s);}