Blame


1 8f314994 2004-03-02 devnull #include "sys.h"
2 76193d7c 2003-09-30 devnull
3 76193d7c 2003-09-30 devnull #undef assert
4 76193d7c 2003-09-30 devnull #define assert mkassert
5 76193d7c 2003-09-30 devnull extern Biobuf bout;
6 76193d7c 2003-09-30 devnull
7 76193d7c 2003-09-30 devnull typedef struct Bufblock
8 76193d7c 2003-09-30 devnull {
9 76193d7c 2003-09-30 devnull struct Bufblock *next;
10 76193d7c 2003-09-30 devnull char *start;
11 76193d7c 2003-09-30 devnull char *end;
12 76193d7c 2003-09-30 devnull char *current;
13 76193d7c 2003-09-30 devnull } Bufblock;
14 76193d7c 2003-09-30 devnull
15 76193d7c 2003-09-30 devnull typedef struct Word
16 76193d7c 2003-09-30 devnull {
17 76193d7c 2003-09-30 devnull char *s;
18 76193d7c 2003-09-30 devnull struct Word *next;
19 76193d7c 2003-09-30 devnull } Word;
20 76193d7c 2003-09-30 devnull
21 76193d7c 2003-09-30 devnull typedef struct Envy
22 76193d7c 2003-09-30 devnull {
23 76193d7c 2003-09-30 devnull char *name;
24 76193d7c 2003-09-30 devnull Word *values;
25 76193d7c 2003-09-30 devnull } Envy;
26 76193d7c 2003-09-30 devnull
27 76193d7c 2003-09-30 devnull extern Envy *envy;
28 76193d7c 2003-09-30 devnull
29 76193d7c 2003-09-30 devnull typedef struct Rule
30 76193d7c 2003-09-30 devnull {
31 76193d7c 2003-09-30 devnull char *target; /* one target */
32 76193d7c 2003-09-30 devnull Word *tail; /* constituents of targets */
33 76193d7c 2003-09-30 devnull char *recipe; /* do it ! */
34 76193d7c 2003-09-30 devnull short attr; /* attributes */
35 76193d7c 2003-09-30 devnull short line; /* source line */
36 76193d7c 2003-09-30 devnull char *file; /* source file */
37 76193d7c 2003-09-30 devnull Word *alltargets; /* all the targets */
38 76193d7c 2003-09-30 devnull int rule; /* rule number */
39 76193d7c 2003-09-30 devnull Reprog *pat; /* reg exp goo */
40 76193d7c 2003-09-30 devnull char *prog; /* to use in out of date */
41 76193d7c 2003-09-30 devnull struct Rule *chain; /* hashed per target */
42 76193d7c 2003-09-30 devnull struct Rule *next;
43 76193d7c 2003-09-30 devnull } Rule;
44 76193d7c 2003-09-30 devnull
45 76193d7c 2003-09-30 devnull extern Rule *rules, *metarules, *patrule;
46 76193d7c 2003-09-30 devnull
47 76193d7c 2003-09-30 devnull /* Rule.attr */
48 76193d7c 2003-09-30 devnull #define META 0x0001
49 76193d7c 2003-09-30 devnull #define UNUSED 0x0002
50 76193d7c 2003-09-30 devnull #define UPD 0x0004
51 76193d7c 2003-09-30 devnull #define QUIET 0x0008
52 76193d7c 2003-09-30 devnull #define VIR 0x0010
53 76193d7c 2003-09-30 devnull #define REGEXP 0x0020
54 76193d7c 2003-09-30 devnull #define NOREC 0x0040
55 76193d7c 2003-09-30 devnull #define DEL 0x0080
56 76193d7c 2003-09-30 devnull #define NOVIRT 0x0100
57 76193d7c 2003-09-30 devnull
58 76193d7c 2003-09-30 devnull #define NREGEXP 10
59 76193d7c 2003-09-30 devnull
60 76193d7c 2003-09-30 devnull typedef struct Arc
61 76193d7c 2003-09-30 devnull {
62 76193d7c 2003-09-30 devnull short flag;
63 76193d7c 2003-09-30 devnull struct Node *n;
64 76193d7c 2003-09-30 devnull Rule *r;
65 76193d7c 2003-09-30 devnull char *stem;
66 76193d7c 2003-09-30 devnull char *prog;
67 76193d7c 2003-09-30 devnull char *match[NREGEXP];
68 76193d7c 2003-09-30 devnull struct Arc *next;
69 76193d7c 2003-09-30 devnull } Arc;
70 76193d7c 2003-09-30 devnull
71 76193d7c 2003-09-30 devnull /* Arc.flag */
72 76193d7c 2003-09-30 devnull #define TOGO 1
73 76193d7c 2003-09-30 devnull
74 76193d7c 2003-09-30 devnull typedef struct Node
75 76193d7c 2003-09-30 devnull {
76 76193d7c 2003-09-30 devnull char *name;
77 76193d7c 2003-09-30 devnull long time;
78 76193d7c 2003-09-30 devnull unsigned short flags;
79 76193d7c 2003-09-30 devnull Arc *prereqs;
80 76193d7c 2003-09-30 devnull struct Node *next; /* list for a rule */
81 76193d7c 2003-09-30 devnull } Node;
82 76193d7c 2003-09-30 devnull
83 76193d7c 2003-09-30 devnull /* Node.flags */
84 76193d7c 2003-09-30 devnull #define VIRTUAL 0x0001
85 76193d7c 2003-09-30 devnull #define CYCLE 0x0002
86 76193d7c 2003-09-30 devnull #define READY 0x0004
87 76193d7c 2003-09-30 devnull #define CANPRETEND 0x0008
88 76193d7c 2003-09-30 devnull #define PRETENDING 0x0010
89 76193d7c 2003-09-30 devnull #define NOTMADE 0x0020
90 76193d7c 2003-09-30 devnull #define BEINGMADE 0x0040
91 76193d7c 2003-09-30 devnull #define MADE 0x0080
92 76193d7c 2003-09-30 devnull #define MADESET(n,m) n->flags = (n->flags&~(NOTMADE|BEINGMADE|MADE))|(m)
93 76193d7c 2003-09-30 devnull #define PROBABLE 0x0100
94 76193d7c 2003-09-30 devnull #define VACUOUS 0x0200
95 76193d7c 2003-09-30 devnull #define NORECIPE 0x0400
96 76193d7c 2003-09-30 devnull #define DELETE 0x0800
97 76193d7c 2003-09-30 devnull #define NOMINUSE 0x1000
98 76193d7c 2003-09-30 devnull
99 76193d7c 2003-09-30 devnull typedef struct Job
100 76193d7c 2003-09-30 devnull {
101 76193d7c 2003-09-30 devnull Rule *r; /* master rule for job */
102 76193d7c 2003-09-30 devnull Node *n; /* list of node targets */
103 76193d7c 2003-09-30 devnull char *stem;
104 76193d7c 2003-09-30 devnull char **match;
105 76193d7c 2003-09-30 devnull Word *p; /* prerequistes */
106 76193d7c 2003-09-30 devnull Word *np; /* new prerequistes */
107 76193d7c 2003-09-30 devnull Word *t; /* targets */
108 76193d7c 2003-09-30 devnull Word *at; /* all targets */
109 76193d7c 2003-09-30 devnull int nproc; /* slot number */
110 76193d7c 2003-09-30 devnull struct Job *next;
111 76193d7c 2003-09-30 devnull } Job;
112 76193d7c 2003-09-30 devnull extern Job *jobs;
113 76193d7c 2003-09-30 devnull
114 76193d7c 2003-09-30 devnull typedef struct Symtab
115 76193d7c 2003-09-30 devnull {
116 76193d7c 2003-09-30 devnull short space;
117 76193d7c 2003-09-30 devnull char *name;
118 76193d7c 2003-09-30 devnull void *value;
119 76193d7c 2003-09-30 devnull struct Symtab *next;
120 76193d7c 2003-09-30 devnull } Symtab;
121 76193d7c 2003-09-30 devnull
122 76193d7c 2003-09-30 devnull enum {
123 76193d7c 2003-09-30 devnull S_VAR, /* variable -> value */
124 76193d7c 2003-09-30 devnull S_TARGET, /* target -> rule */
125 76193d7c 2003-09-30 devnull S_TIME, /* file -> time */
126 76193d7c 2003-09-30 devnull S_PID, /* pid -> products */
127 76193d7c 2003-09-30 devnull S_NODE, /* target name -> node */
128 76193d7c 2003-09-30 devnull S_AGG, /* aggregate -> time */
129 76193d7c 2003-09-30 devnull S_BITCH, /* bitched about aggregate not there */
130 76193d7c 2003-09-30 devnull S_NOEXPORT, /* var -> noexport */
131 76193d7c 2003-09-30 devnull S_OVERRIDE, /* can't override */
132 76193d7c 2003-09-30 devnull S_OUTOFDATE, /* n1\377n2 -> 2(outofdate) or 1(not outofdate) */
133 76193d7c 2003-09-30 devnull S_MAKEFILE, /* target -> node */
134 76193d7c 2003-09-30 devnull S_MAKEVAR, /* dumpable mk variable */
135 76193d7c 2003-09-30 devnull S_EXPORTED, /* var -> current exported value */
136 76193d7c 2003-09-30 devnull S_WESET, /* variable; we set in the mkfile */
137 76193d7c 2003-09-30 devnull S_INTERNAL /* an internal mk variable (e.g., stem, target) */
138 76193d7c 2003-09-30 devnull };
139 76193d7c 2003-09-30 devnull
140 76193d7c 2003-09-30 devnull extern int debug;
141 76193d7c 2003-09-30 devnull extern int nflag, tflag, iflag, kflag, aflag, mflag;
142 76193d7c 2003-09-30 devnull extern int mkinline;
143 76193d7c 2003-09-30 devnull extern char *infile;
144 76193d7c 2003-09-30 devnull extern int nreps;
145 76193d7c 2003-09-30 devnull extern char *explain;
146 76193d7c 2003-09-30 devnull extern char *termchars;
147 76193d7c 2003-09-30 devnull extern int IWS;
148 76193d7c 2003-09-30 devnull extern char *shell;
149 76193d7c 2003-09-30 devnull extern char *shellname;
150 76193d7c 2003-09-30 devnull extern char *shflags;
151 76193d7c 2003-09-30 devnull
152 76193d7c 2003-09-30 devnull #define SYNERR(l) (fprint(2, "mk: %s:%d: syntax error; ", infile, ((l)>=0)?(l):mkinline))
153 76193d7c 2003-09-30 devnull #define RERR(r) (fprint(2, "mk: %s:%d: rule error; ", (r)->file, (r)->line))
154 76193d7c 2003-09-30 devnull #define NAMEBLOCK 1000
155 76193d7c 2003-09-30 devnull #define BIGBLOCK 20000
156 76193d7c 2003-09-30 devnull
157 76193d7c 2003-09-30 devnull #define SEP(c) (((c)==' ')||((c)=='\t')||((c)=='\n'))
158 76193d7c 2003-09-30 devnull #define WORDCHR(r) ((r) > ' ' && !utfrune("!\"#$%&'()*+,-./:;<=>?@[\\]^`{|}~", (r)))
159 76193d7c 2003-09-30 devnull
160 76193d7c 2003-09-30 devnull #define DEBUG(x) (debug&(x))
161 76193d7c 2003-09-30 devnull #define D_PARSE 0x01
162 76193d7c 2003-09-30 devnull #define D_GRAPH 0x02
163 76193d7c 2003-09-30 devnull #define D_EXEC 0x04
164 76193d7c 2003-09-30 devnull
165 76193d7c 2003-09-30 devnull #define LSEEK(f,o,p) seek(f,o,p)
166 76193d7c 2003-09-30 devnull
167 76193d7c 2003-09-30 devnull #define PERCENT(ch) (((ch) == '%') || ((ch) == '&'))
168 76193d7c 2003-09-30 devnull
169 76193d7c 2003-09-30 devnull #include "fns.h"