Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – planix.SVN – Blame – /os/branches/feature_unix/sys/src/cmd/mk/rule.c – Rev 2

Subversion Repositories planix.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#include	"mk.h"
2 
 
3 
static Rule *lr, *lmr;
4 
static rcmp(Rule *r, char *target, Word *tail);
5 
static int nrules = 0;
6 
 
7 
void
8 
addrule(char *head, Word *tail, char *body, Word *ahead, int attr, int hline, char *prog)
9 
{
10 
	Rule *r;
11 
	Rule *rr;
12 
	Symtab *sym;
13 
	int reuse;
14 
 
15 
	r = 0;
16 
	reuse = 0;
17 
	if(sym = symlook(head, S_TARGET, 0)){
18 
		for(r = sym->u.ptr; r; r = r->chain)
19 
			if(rcmp(r, head, tail) == 0){
20 
				reuse = 1;
21 
				break;
22 
			}
23 
	}
24 
	if(r == 0)
25 
		r = (Rule *)Malloc(sizeof(Rule));
26 
	r->target = head;
27 
	r->tail = tail;
28 
	r->recipe = body;
29 
	r->line = hline;
30 
	r->file = infile;
31 
	r->attr = attr;
32 
	r->alltargets = ahead;
33 
	r->prog = prog;
34 
	r->rule = nrules++;
35 
 
36 
	if(!reuse){
37 
		rr = symlook(head, S_TARGET, r)->u.ptr;
38 
		if(rr != r){
39 
			r->chain = rr->chain;
40 
			rr->chain = r;
41 
		} else
42 
			r->chain = 0;
43 
	}
44 
	if(!reuse)
45 
		r->next = 0;
46 
	if((attr&REGEXP) || charin(head, "%&")){
47 
		r->attr |= META;
48 
		if(reuse)
49 
			return;
50 
		if(attr&REGEXP){
51 
			patrule = r;
52 
			r->pat = regcomp(head);
53 
		}
54 
		if(metarules == 0)
55 
			metarules = lmr = r;
56 
		else {
57 
			lmr->next = r;
58 
			lmr = r;
59 
		}
60 
	} else {
61 
		if(reuse)
62 
			return;
63 
		r->pat = 0;
64 
		if(rules == 0)
65 
			rules = lr = r;
66 
		else {
67 
			lr->next = r;
68 
			lr = r;
69 
		}
70 
	}
71 
}
72 
 
73 
void
74 
dumpr(char *s, Rule *r)
75 
{
76 
	Bprint(&bout, "%s: start=%p\n", s, r);
77 
	for(; r; r = r->next){
78 
		Bprint(&bout, "\tRule %p: %s:%d attr=%x next=%p chain=%p alltarget='%s'",
79 
			r, r->file, r->line, r->attr, r->next, r->chain, wtos(r->alltargets, ' '));
80 
		if(r->prog)
81 
			Bprint(&bout, " prog='%s'", r->prog);
82 
		Bprint(&bout, "\n\ttarget=%s: %s\n", r->target, wtos(r->tail,' '));
83 
		Bprint(&bout, "\trecipe@%p='%s'\n", r->recipe, r->recipe);
84 
	}
85 
}
86 
 
87 
static int
88 
rcmp(Rule *r, char *target, Word *tail)
89 
{
90 
	Word *w;
91 
 
92 
	if(strcmp(r->target, target))
93 
		return 1;
94 
	for(w = r->tail; w && tail; w = w->next, tail = tail->next)
95 
		if(strcmp(w->s, tail->s))
96 
			return 1;
97 
	return(w || tail);
98 
}
99 
 
100 
char *
101 
rulecnt(void)
102 
{
103 
	char *s;
104 
 
105 
	s = Malloc(nrules);
106 
	memset(s, 0, nrules);
107 
	return(s);
108 
}