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