1 76193d7c 2003-09-30 devnull #include "mk.h"
3 76193d7c 2003-09-30 devnull #define MKFILE "mkfile"
5 76193d7c 2003-09-30 devnull int debug;
6 76193d7c 2003-09-30 devnull Rule *rules, *metarules;
7 76193d7c 2003-09-30 devnull int nflag = 0;
8 76193d7c 2003-09-30 devnull int tflag = 0;
9 76193d7c 2003-09-30 devnull int iflag = 0;
10 76193d7c 2003-09-30 devnull int kflag = 0;
11 76193d7c 2003-09-30 devnull int aflag = 0;
12 76193d7c 2003-09-30 devnull int uflag = 0;
13 76193d7c 2003-09-30 devnull char *explain = 0;
14 76193d7c 2003-09-30 devnull Word *target1;
15 76193d7c 2003-09-30 devnull int nreps = 1;
16 76193d7c 2003-09-30 devnull Job *jobs;
17 76193d7c 2003-09-30 devnull Biobuf bout;
18 76193d7c 2003-09-30 devnull Rule *patrule;
19 76193d7c 2003-09-30 devnull void badusage(void);
20 76193d7c 2003-09-30 devnull #ifdef PROF
21 76193d7c 2003-09-30 devnull short buf[10000];
25 76193d7c 2003-09-30 devnull main(int argc, char **argv)
28 76193d7c 2003-09-30 devnull char *s, *temp;
29 76193d7c 2003-09-30 devnull char *files[256], **f = files, **ff;
30 76193d7c 2003-09-30 devnull int sflag = 0;
32 76193d7c 2003-09-30 devnull int tfd = -1;
33 76193d7c 2003-09-30 devnull Biobuf tb;
34 76193d7c 2003-09-30 devnull Bufblock *buf;
35 76193d7c 2003-09-30 devnull Bufblock *whatif;
38 76193d7c 2003-09-30 devnull * start with a copy of the current environment variables
39 76193d7c 2003-09-30 devnull * instead of sharing them
42 76193d7c 2003-09-30 devnull Binit(&bout, 1, OWRITE);
43 76193d7c 2003-09-30 devnull buf = newbuf();
44 76193d7c 2003-09-30 devnull whatif = 0;
45 76193d7c 2003-09-30 devnull USED(argc);
46 76193d7c 2003-09-30 devnull for(argv++; *argv && (**argv == '-'); argv++)
48 76193d7c 2003-09-30 devnull bufcpy(buf, argv[0], strlen(argv[0]));
49 76193d7c 2003-09-30 devnull insert(buf, ' ');
50 76193d7c 2003-09-30 devnull switch(argv[0][1])
52 76193d7c 2003-09-30 devnull case 'a':
53 76193d7c 2003-09-30 devnull aflag = 1;
55 76193d7c 2003-09-30 devnull case 'd':
56 76193d7c 2003-09-30 devnull if(*(s = &argv[0][2]))
57 76193d7c 2003-09-30 devnull while(*s) switch(*s++)
59 76193d7c 2003-09-30 devnull case 'p': debug |= D_PARSE; break;
60 76193d7c 2003-09-30 devnull case 'g': debug |= D_GRAPH; break;
61 76193d7c 2003-09-30 devnull case 'e': debug |= D_EXEC; break;
64 76193d7c 2003-09-30 devnull debug = 0xFFFF;
66 76193d7c 2003-09-30 devnull case 'e':
67 76193d7c 2003-09-30 devnull explain = &argv[0][2];
69 76193d7c 2003-09-30 devnull case 'f':
70 76193d7c 2003-09-30 devnull if(*++argv == 0)
71 76193d7c 2003-09-30 devnull badusage();
72 76193d7c 2003-09-30 devnull *f++ = *argv;
73 76193d7c 2003-09-30 devnull bufcpy(buf, argv[0], strlen(argv[0]));
74 76193d7c 2003-09-30 devnull insert(buf, ' ');
76 76193d7c 2003-09-30 devnull case 'i':
77 76193d7c 2003-09-30 devnull iflag = 1;
79 76193d7c 2003-09-30 devnull case 'k':
80 76193d7c 2003-09-30 devnull kflag = 1;
82 76193d7c 2003-09-30 devnull case 'n':
83 76193d7c 2003-09-30 devnull nflag = 1;
85 76193d7c 2003-09-30 devnull case 's':
86 76193d7c 2003-09-30 devnull sflag = 1;
88 76193d7c 2003-09-30 devnull case 't':
89 76193d7c 2003-09-30 devnull tflag = 1;
91 76193d7c 2003-09-30 devnull case 'u':
92 76193d7c 2003-09-30 devnull uflag = 1;
94 76193d7c 2003-09-30 devnull case 'w':
95 76193d7c 2003-09-30 devnull if(whatif == 0)
96 76193d7c 2003-09-30 devnull whatif = newbuf();
98 76193d7c 2003-09-30 devnull insert(whatif, ' ');
99 76193d7c 2003-09-30 devnull if(argv[0][2])
100 76193d7c 2003-09-30 devnull bufcpy(whatif, &argv[0][2], strlen(&argv[0][2]));
102 76193d7c 2003-09-30 devnull if(*++argv == 0)
103 76193d7c 2003-09-30 devnull badusage();
104 76193d7c 2003-09-30 devnull bufcpy(whatif, &argv[0][0], strlen(&argv[0][0]));
107 76193d7c 2003-09-30 devnull default:
108 76193d7c 2003-09-30 devnull badusage();
111 76193d7c 2003-09-30 devnull #ifdef PROF
113 76193d7c 2003-09-30 devnull extern etext();
114 76193d7c 2003-09-30 devnull monitor(main, etext, buf, sizeof buf, 300);
118 76193d7c 2003-09-30 devnull if(aflag)
119 76193d7c 2003-09-30 devnull iflag = 1;
120 76193d7c 2003-09-30 devnull usage();
121 76193d7c 2003-09-30 devnull syminit();
122 76193d7c 2003-09-30 devnull initenv();
123 76193d7c 2003-09-30 devnull usage();
126 76193d7c 2003-09-30 devnull assignment args become null strings
128 76193d7c 2003-09-30 devnull temp = 0;
129 76193d7c 2003-09-30 devnull for(i = 0; argv[i]; i++) if(utfrune(argv[i], '=')){
130 76193d7c 2003-09-30 devnull bufcpy(buf, argv[i], strlen(argv[i]));
131 76193d7c 2003-09-30 devnull insert(buf, ' ');
132 76193d7c 2003-09-30 devnull if(tfd < 0){
133 76193d7c 2003-09-30 devnull temp = maketmp(&tfd);
134 76193d7c 2003-09-30 devnull if(temp == 0) {
135 76193d7c 2003-09-30 devnull fprint(2, "temp file: %r\n");
138 76193d7c 2003-09-30 devnull Binit(&tb, tfd, OWRITE);
140 76193d7c 2003-09-30 devnull Bprint(&tb, "%s\n", argv[i]);
141 76193d7c 2003-09-30 devnull *argv[i] = 0;
143 76193d7c 2003-09-30 devnull if(tfd >= 0){
144 76193d7c 2003-09-30 devnull Bflush(&tb);
145 76193d7c 2003-09-30 devnull LSEEK(tfd, 0L, 0);
146 76193d7c 2003-09-30 devnull parse("command line args", tfd, 1);
147 76193d7c 2003-09-30 devnull remove(temp);
150 76193d7c 2003-09-30 devnull if (buf->current != buf->start) {
151 76193d7c 2003-09-30 devnull buf->current--;
152 76193d7c 2003-09-30 devnull insert(buf, 0);
154 76193d7c 2003-09-30 devnull symlook("MKFLAGS", S_VAR, (void *) stow(buf->start));
155 76193d7c 2003-09-30 devnull buf->current = buf->start;
156 76193d7c 2003-09-30 devnull for(i = 0; argv[i]; i++){
157 76193d7c 2003-09-30 devnull if(*argv[i] == 0) continue;
159 76193d7c 2003-09-30 devnull insert(buf, ' ');
160 76193d7c 2003-09-30 devnull bufcpy(buf, argv[i], strlen(argv[i]));
162 76193d7c 2003-09-30 devnull insert(buf, 0);
163 76193d7c 2003-09-30 devnull symlook("MKARGS", S_VAR, (void *) stow(buf->start));
164 76193d7c 2003-09-30 devnull freebuf(buf);
166 76193d7c 2003-09-30 devnull if(f == files){
167 76193d7c 2003-09-30 devnull if(access(MKFILE, 4) == 0)
168 76193d7c 2003-09-30 devnull parse(MKFILE, open(MKFILE, 0), 0);
170 76193d7c 2003-09-30 devnull for(ff = files; ff < f; ff++)
171 76193d7c 2003-09-30 devnull parse(*ff, open(*ff, 0), 0);
172 76193d7c 2003-09-30 devnull if(DEBUG(D_PARSE)){
173 76193d7c 2003-09-30 devnull dumpw("default targets", target1);
174 76193d7c 2003-09-30 devnull dumpr("rules", rules);
175 76193d7c 2003-09-30 devnull dumpr("metarules", metarules);
176 76193d7c 2003-09-30 devnull dumpv("variables");
178 76193d7c 2003-09-30 devnull if(whatif){
179 76193d7c 2003-09-30 devnull insert(whatif, 0);
180 76193d7c 2003-09-30 devnull timeinit(whatif->start);
181 76193d7c 2003-09-30 devnull freebuf(whatif);
183 76193d7c 2003-09-30 devnull execinit();
184 76193d7c 2003-09-30 devnull /* skip assignment args */
185 76193d7c 2003-09-30 devnull while(*argv && (**argv == 0))
188 76193d7c 2003-09-30 devnull catchnotes();
189 76193d7c 2003-09-30 devnull if(*argv == 0){
190 76193d7c 2003-09-30 devnull if(target1)
191 76193d7c 2003-09-30 devnull for(w = target1; w; w = w->next)
192 76193d7c 2003-09-30 devnull mk(w->s);
194 76193d7c 2003-09-30 devnull fprint(2, "mk: nothing to mk\n");
197 76193d7c 2003-09-30 devnull } else {
198 76193d7c 2003-09-30 devnull if(sflag){
199 76193d7c 2003-09-30 devnull for(; *argv; argv++)
200 76193d7c 2003-09-30 devnull if(**argv)
201 76193d7c 2003-09-30 devnull mk(*argv);
202 76193d7c 2003-09-30 devnull } else {
203 76193d7c 2003-09-30 devnull Word *head, *tail, *t;
205 76193d7c 2003-09-30 devnull /* fake a new rule with all the args as prereqs */
206 76193d7c 2003-09-30 devnull tail = 0;
208 76193d7c 2003-09-30 devnull for(; *argv; argv++)
209 76193d7c 2003-09-30 devnull if(**argv){
210 76193d7c 2003-09-30 devnull if(tail == 0)
211 76193d7c 2003-09-30 devnull tail = t = newword(*argv);
213 76193d7c 2003-09-30 devnull t->next = newword(*argv);
214 76193d7c 2003-09-30 devnull t = t->next;
217 76193d7c 2003-09-30 devnull if(tail->next == 0)
218 76193d7c 2003-09-30 devnull mk(tail->s);
220 76193d7c 2003-09-30 devnull head = newword("command line arguments");
221 76193d7c 2003-09-30 devnull addrules(head, tail, strdup(""), VIR, mkinline, 0);
222 76193d7c 2003-09-30 devnull mk(head->s);
226 76193d7c 2003-09-30 devnull if(uflag)
227 76193d7c 2003-09-30 devnull prusage();
228 76193d7c 2003-09-30 devnull exits(0);
232 76193d7c 2003-09-30 devnull badusage(void)
235 76193d7c 2003-09-30 devnull fprint(2, "Usage: mk [-f file] [-n] [-a] [-e] [-t] [-k] [-i] [-d[egp]] [targets ...]\n");
240 76193d7c 2003-09-30 devnull Malloc(int n)
242 76193d7c 2003-09-30 devnull register void *s;
244 76193d7c 2003-09-30 devnull s = malloc(n);
245 76193d7c 2003-09-30 devnull if(!s) {
246 76193d7c 2003-09-30 devnull fprint(2, "mk: cannot alloc %d bytes\n", n);
249 76193d7c 2003-09-30 devnull return(s);
253 76193d7c 2003-09-30 devnull Realloc(void *s, int n)
256 76193d7c 2003-09-30 devnull s = realloc(s, n);
258 76193d7c 2003-09-30 devnull s = malloc(n);
259 76193d7c 2003-09-30 devnull if(!s) {
260 76193d7c 2003-09-30 devnull fprint(2, "mk: cannot alloc %d bytes\n", n);
263 76193d7c 2003-09-30 devnull return(s);
267 76193d7c 2003-09-30 devnull assert(char *s, int n)
270 76193d7c 2003-09-30 devnull fprint(2, "mk: Assertion ``%s'' failed.\n", s);
276 76193d7c 2003-09-30 devnull regerror(char *s)
278 76193d7c 2003-09-30 devnull if(patrule)
279 76193d7c 2003-09-30 devnull fprint(2, "mk: %s:%d: regular expression error; %s\n",
280 76193d7c 2003-09-30 devnull patrule->file, patrule->line, s);
282 76193d7c 2003-09-30 devnull fprint(2, "mk: %s:%d: regular expression error; %s\n",
283 76193d7c 2003-09-30 devnull infile, mkinline, s);
