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
|
#include "mk.h"
Arc *
newarc(Node *n, Rule *r, char *stem, Resub *match)
{
Arc *a;
a = (Arc *)Malloc(sizeof(Arc));
a->n = n;
a->r = r;
a->stem = strdup(stem);
rcopy(a->match, match, NREGEXP);
a->next = 0;
a->flag = 0;
a->prog = r->prog;
return(a);
}
void
dumpa(char *s, Arc *a)
{
char buf[1024];
Bprint(&bout, "%sArc@%p: n=%p r=%p flag=0x%x stem='%s'",
s, a, a->n, a->r, a->flag, a->stem);
if(a->prog)
Bprint(&bout, " prog='%s'", a->prog);
Bprint(&bout, "\n");
if(a->n){
snprint(buf, sizeof(buf), "%s ", (*s == ' ')? s:"");
dumpn(buf, a->n);
}
}
void
nrep(void)
{
Symtab *sym;
Word *w;
sym = symlook("NREP", S_VAR, 0);
if(sym){
w = (Word *) sym->value;
if (w && w->s && *w->s)
nreps = atoi(w->s);
}
if(nreps < 1)
nreps = 1;
if(DEBUG(D_GRAPH))
Bprint(&bout, "nreps = %d\n", nreps);
}
|