meta.c revision 1.183 1 1.183 rillig /* $NetBSD: meta.c,v 1.183 2021/08/19 15:50:30 rillig Exp $ */
2 1.15 sjg
3 1.1 sjg /*
4 1.1 sjg * Implement 'meta' mode.
5 1.1 sjg * Adapted from John Birrell's patches to FreeBSD make.
6 1.1 sjg * --sjg
7 1.1 sjg */
8 1.1 sjg /*
9 1.48 sjg * Copyright (c) 2009-2016, Juniper Networks, Inc.
10 1.1 sjg * Portions Copyright (c) 2009, John Birrell.
11 1.85 rillig *
12 1.1 sjg * Redistribution and use in source and binary forms, with or without
13 1.85 rillig * modification, are permitted provided that the following conditions
14 1.85 rillig * are met:
15 1.1 sjg * 1. Redistributions of source code must retain the above copyright
16 1.85 rillig * notice, this list of conditions and the following disclaimer.
17 1.1 sjg * 2. Redistributions in binary form must reproduce the above copyright
18 1.1 sjg * notice, this list of conditions and the following disclaimer in the
19 1.85 rillig * documentation and/or other materials provided with the distribution.
20 1.85 rillig *
21 1.1 sjg * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
22 1.1 sjg * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
23 1.1 sjg * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
24 1.1 sjg * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
25 1.1 sjg * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
26 1.1 sjg * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
27 1.1 sjg * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
28 1.1 sjg * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
29 1.1 sjg * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
30 1.1 sjg * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
31 1.85 rillig * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 1.1 sjg */
33 1.3 sjg #if defined(USE_META)
34 1.1 sjg
35 1.1 sjg #ifdef HAVE_CONFIG_H
36 1.1 sjg # include "config.h"
37 1.1 sjg #endif
38 1.1 sjg #include <sys/stat.h>
39 1.1 sjg #include <libgen.h>
40 1.1 sjg #include <errno.h>
41 1.2 sjg #if !defined(HAVE_CONFIG_H) || defined(HAVE_ERR_H)
42 1.1 sjg #include <err.h>
43 1.2 sjg #endif
44 1.1 sjg
45 1.1 sjg #include "make.h"
46 1.113 rillig #include "dir.h"
47 1.1 sjg #include "job.h"
48 1.1 sjg
49 1.74 riastrad #ifdef USE_FILEMON
50 1.75 riastrad #include "filemon/filemon.h"
51 1.73 maxv #endif
52 1.73 maxv
53 1.1 sjg static BuildMon Mybm; /* for compat */
54 1.155 rillig static StringList metaBailiwick = LST_INIT; /* our scope of control */
55 1.53 christos static char *metaBailiwickStr; /* string storage for the list */
56 1.155 rillig static StringList metaIgnorePaths = LST_INIT; /* paths we deliberately ignore */
57 1.53 christos static char *metaIgnorePathsStr; /* string storage for the list */
58 1.32 sjg
59 1.32 sjg #ifndef MAKE_META_IGNORE_PATHS
60 1.32 sjg #define MAKE_META_IGNORE_PATHS ".MAKE.META.IGNORE_PATHS"
61 1.32 sjg #endif
62 1.56 sjg #ifndef MAKE_META_IGNORE_PATTERNS
63 1.56 sjg #define MAKE_META_IGNORE_PATTERNS ".MAKE.META.IGNORE_PATTERNS"
64 1.56 sjg #endif
65 1.66 sjg #ifndef MAKE_META_IGNORE_FILTER
66 1.66 sjg #define MAKE_META_IGNORE_FILTER ".MAKE.META.IGNORE_FILTER"
67 1.66 sjg #endif
68 1.1 sjg
69 1.180 rillig bool useMeta = false;
70 1.180 rillig static bool useFilemon = false;
71 1.180 rillig static bool writeMeta = false;
72 1.180 rillig static bool metaMissing = false; /* oodate if missing */
73 1.180 rillig static bool filemonMissing = false; /* oodate if missing */
74 1.180 rillig static bool metaEnv = false; /* don't save env unless asked */
75 1.180 rillig static bool metaVerbose = false;
76 1.180 rillig static bool metaIgnoreCMDs = false; /* ignore CMDs in .meta files */
77 1.180 rillig static bool metaIgnorePatterns = false; /* do we need to do pattern matches */
78 1.180 rillig static bool metaIgnoreFilter = false; /* do we have more complex filtering? */
79 1.180 rillig static bool metaCurdirOk = false; /* write .meta in .CURDIR Ok? */
80 1.180 rillig static bool metaSilent = false; /* if we have a .meta be SILENT */
81 1.1 sjg
82 1.180 rillig extern bool forceJobs;
83 1.25 sjg extern char **environ;
84 1.1 sjg
85 1.154 rillig #define MAKE_META_PREFIX ".MAKE.META.PREFIX"
86 1.1 sjg
87 1.1 sjg #ifndef N2U
88 1.1 sjg # define N2U(n, u) (((n) + ((u) - 1)) / (u))
89 1.1 sjg #endif
90 1.1 sjg #ifndef ROUNDUP
91 1.1 sjg # define ROUNDUP(n, u) (N2U((n), (u)) * (u))
92 1.1 sjg #endif
93 1.1 sjg
94 1.2 sjg #if !defined(HAVE_STRSEP)
95 1.139 rillig # define strsep(s, d) stresep((s), (d), '\0')
96 1.2 sjg #endif
97 1.2 sjg
98 1.1 sjg /*
99 1.73 maxv * Filemon is a kernel module which snoops certain syscalls.
100 1.73 maxv *
101 1.73 maxv * C chdir
102 1.73 maxv * E exec
103 1.73 maxv * F [v]fork
104 1.73 maxv * L [sym]link
105 1.73 maxv * M rename
106 1.73 maxv * R read
107 1.73 maxv * W write
108 1.73 maxv * S stat
109 1.73 maxv *
110 1.73 maxv * See meta_oodate below - we mainly care about 'E' and 'R'.
111 1.73 maxv *
112 1.85 rillig * We can still use meta mode without filemon, but
113 1.73 maxv * the benefits are more limited.
114 1.73 maxv */
115 1.73 maxv #ifdef USE_FILEMON
116 1.73 maxv
117 1.73 maxv /*
118 1.73 maxv * Open the filemon device.
119 1.73 maxv */
120 1.73 maxv static void
121 1.74 riastrad meta_open_filemon(BuildMon *pbm)
122 1.73 maxv {
123 1.74 riastrad int dupfd;
124 1.74 riastrad
125 1.74 riastrad pbm->mon_fd = -1;
126 1.74 riastrad pbm->filemon = NULL;
127 1.168 rillig if (!useFilemon || pbm->mfp == NULL)
128 1.73 maxv return;
129 1.73 maxv
130 1.74 riastrad pbm->filemon = filemon_open();
131 1.74 riastrad if (pbm->filemon == NULL) {
132 1.180 rillig useFilemon = false;
133 1.75 riastrad warn("Could not open filemon %s", filemon_path());
134 1.73 maxv return;
135 1.73 maxv }
136 1.73 maxv
137 1.73 maxv /*
138 1.73 maxv * We use a file outside of '.'
139 1.73 maxv * to avoid a FreeBSD kernel bug where unlink invalidates
140 1.73 maxv * cwd causing getcwd to do a lot more work.
141 1.73 maxv * We only care about the descriptor.
142 1.73 maxv */
143 1.177 sjg if (!opts.compatMake)
144 1.177 sjg pbm->mon_fd = Job_TempFile("filemon.XXXXXX", NULL, 0);
145 1.177 sjg else
146 1.177 sjg pbm->mon_fd = mkTempFile("filemon.XXXXXX", NULL, 0);
147 1.74 riastrad if ((dupfd = dup(pbm->mon_fd)) == -1) {
148 1.74 riastrad err(1, "Could not dup filemon output!");
149 1.74 riastrad }
150 1.74 riastrad (void)fcntl(dupfd, F_SETFD, FD_CLOEXEC);
151 1.74 riastrad if (filemon_setfd(pbm->filemon, dupfd) == -1) {
152 1.73 maxv err(1, "Could not set filemon file descriptor!");
153 1.73 maxv }
154 1.73 maxv /* we don't need these once we exec */
155 1.73 maxv (void)fcntl(pbm->mon_fd, F_SETFD, FD_CLOEXEC);
156 1.73 maxv }
157 1.73 maxv
158 1.73 maxv /*
159 1.73 maxv * Read the build monitor output file and write records to the target's
160 1.73 maxv * metadata file.
161 1.73 maxv */
162 1.73 maxv static int
163 1.73 maxv filemon_read(FILE *mfp, int fd)
164 1.73 maxv {
165 1.73 maxv char buf[BUFSIZ];
166 1.73 maxv int error;
167 1.73 maxv
168 1.73 maxv /* Check if we're not writing to a meta data file.*/
169 1.73 maxv if (mfp == NULL) {
170 1.73 maxv if (fd >= 0)
171 1.73 maxv close(fd); /* not interested */
172 1.73 maxv return 0;
173 1.73 maxv }
174 1.73 maxv /* rewind */
175 1.82 sjg if (lseek(fd, (off_t)0, SEEK_SET) < 0) {
176 1.82 sjg error = errno;
177 1.82 sjg warn("Could not rewind filemon");
178 1.82 sjg fprintf(mfp, "\n");
179 1.82 sjg } else {
180 1.132 rillig ssize_t n;
181 1.124 rillig
182 1.82 sjg error = 0;
183 1.82 sjg fprintf(mfp, "\n-- filemon acquired metadata --\n");
184 1.73 maxv
185 1.138 rillig while ((n = read(fd, buf, sizeof buf)) > 0) {
186 1.124 rillig if ((ssize_t)fwrite(buf, 1, (size_t)n, mfp) < n)
187 1.82 sjg error = EIO;
188 1.82 sjg }
189 1.73 maxv }
190 1.73 maxv fflush(mfp);
191 1.73 maxv if (close(fd) < 0)
192 1.73 maxv error = errno;
193 1.73 maxv return error;
194 1.73 maxv }
195 1.73 maxv #endif
196 1.73 maxv
197 1.73 maxv /*
198 1.8 sjg * when realpath() fails,
199 1.8 sjg * we use this, to clean up ./ and ../
200 1.8 sjg */
201 1.8 sjg static void
202 1.8 sjg eat_dots(char *buf, size_t bufsz, int dots)
203 1.8 sjg {
204 1.8 sjg char *cp;
205 1.8 sjg char *cp2;
206 1.8 sjg const char *eat;
207 1.8 sjg size_t eatlen;
208 1.8 sjg
209 1.8 sjg switch (dots) {
210 1.8 sjg case 1:
211 1.8 sjg eat = "/./";
212 1.8 sjg eatlen = 2;
213 1.8 sjg break;
214 1.8 sjg case 2:
215 1.8 sjg eat = "/../";
216 1.8 sjg eatlen = 3;
217 1.8 sjg break;
218 1.8 sjg default:
219 1.8 sjg return;
220 1.8 sjg }
221 1.85 rillig
222 1.8 sjg do {
223 1.8 sjg cp = strstr(buf, eat);
224 1.147 rillig if (cp != NULL) {
225 1.8 sjg cp2 = cp + eatlen;
226 1.8 sjg if (dots == 2 && cp > buf) {
227 1.8 sjg do {
228 1.8 sjg cp--;
229 1.8 sjg } while (cp > buf && *cp != '/');
230 1.8 sjg }
231 1.8 sjg if (*cp == '/') {
232 1.124 rillig strlcpy(cp, cp2, bufsz - (size_t)(cp - buf));
233 1.8 sjg } else {
234 1.8 sjg return; /* can't happen? */
235 1.8 sjg }
236 1.8 sjg }
237 1.147 rillig } while (cp != NULL);
238 1.8 sjg }
239 1.8 sjg
240 1.1 sjg static char *
241 1.128 rillig meta_name(char *mname, size_t mnamelen,
242 1.1 sjg const char *dname,
243 1.58 sjg const char *tname,
244 1.58 sjg const char *cwd)
245 1.1 sjg {
246 1.1 sjg char buf[MAXPATHLEN];
247 1.183 rillig char *rp, *cp;
248 1.183 rillig const char *tname_base;
249 1.1 sjg char *tp;
250 1.69 sjg char *dtp;
251 1.69 sjg size_t ldname;
252 1.8 sjg
253 1.1 sjg /*
254 1.1 sjg * Weed out relative paths from the target file name.
255 1.1 sjg * We have to be careful though since if target is a
256 1.1 sjg * symlink, the result will be unstable.
257 1.1 sjg * So we use realpath() just to get the dirname, and leave the
258 1.1 sjg * basename as given to us.
259 1.1 sjg */
260 1.183 rillig if ((tname_base = strrchr(tname, '/')) != NULL) {
261 1.166 rillig if (cached_realpath(tname, buf) != NULL) {
262 1.166 rillig if ((rp = strrchr(buf, '/')) != NULL) {
263 1.1 sjg rp++;
264 1.183 rillig tname_base++;
265 1.183 rillig if (strcmp(tname_base, rp) != 0)
266 1.183 rillig strlcpy(rp, tname_base, sizeof buf - (size_t)(rp - buf));
267 1.1 sjg }
268 1.1 sjg tname = buf;
269 1.8 sjg } else {
270 1.8 sjg /*
271 1.8 sjg * We likely have a directory which is about to be made.
272 1.8 sjg * We pretend realpath() succeeded, to have a chance
273 1.8 sjg * of generating the same meta file name that we will
274 1.8 sjg * next time through.
275 1.8 sjg */
276 1.8 sjg if (tname[0] == '/') {
277 1.138 rillig strlcpy(buf, tname, sizeof buf);
278 1.8 sjg } else {
279 1.138 rillig snprintf(buf, sizeof buf, "%s/%s", cwd, tname);
280 1.8 sjg }
281 1.138 rillig eat_dots(buf, sizeof buf, 1); /* ./ */
282 1.138 rillig eat_dots(buf, sizeof buf, 2); /* ../ */
283 1.8 sjg tname = buf;
284 1.1 sjg }
285 1.1 sjg }
286 1.1 sjg /* on some systems dirname may modify its arg */
287 1.1 sjg tp = bmake_strdup(tname);
288 1.69 sjg dtp = dirname(tp);
289 1.69 sjg if (strcmp(dname, dtp) == 0)
290 1.1 sjg snprintf(mname, mnamelen, "%s.meta", tname);
291 1.1 sjg else {
292 1.69 sjg ldname = strlen(dname);
293 1.69 sjg if (strncmp(dname, dtp, ldname) == 0 && dtp[ldname] == '/')
294 1.69 sjg snprintf(mname, mnamelen, "%s/%s.meta", dname, &tname[ldname+1]);
295 1.69 sjg else
296 1.69 sjg snprintf(mname, mnamelen, "%s/%s.meta", dname, tname);
297 1.1 sjg
298 1.1 sjg /*
299 1.1 sjg * Replace path separators in the file name after the
300 1.1 sjg * current object directory path.
301 1.1 sjg */
302 1.1 sjg cp = mname + strlen(dname) + 1;
303 1.1 sjg
304 1.1 sjg while (*cp != '\0') {
305 1.1 sjg if (*cp == '/')
306 1.1 sjg *cp = '_';
307 1.1 sjg cp++;
308 1.1 sjg }
309 1.1 sjg }
310 1.1 sjg free(tp);
311 1.84 rillig return mname;
312 1.1 sjg }
313 1.1 sjg
314 1.1 sjg /*
315 1.1 sjg * Return true if running ${.MAKE}
316 1.1 sjg * Bypassed if target is flagged .MAKE
317 1.1 sjg */
318 1.180 rillig static bool
319 1.149 rillig is_submake(const char *cmd, GNode *gn)
320 1.1 sjg {
321 1.90 rillig static const char *p_make = NULL;
322 1.124 rillig static size_t p_len;
323 1.1 sjg char *mp = NULL;
324 1.182 rillig const char *cp, *cp2;
325 1.180 rillig bool rc = false;
326 1.1 sjg
327 1.141 rillig if (p_make == NULL) {
328 1.176 rillig p_make = Var_Value(gn, ".MAKE").str;
329 1.1 sjg p_len = strlen(p_make);
330 1.1 sjg }
331 1.1 sjg cp = strchr(cmd, '$');
332 1.166 rillig if (cp != NULL) {
333 1.117 rillig (void)Var_Subst(cmd, gn, VARE_WANTRES, &mp);
334 1.117 rillig /* TODO: handle errors */
335 1.1 sjg cmd = mp;
336 1.1 sjg }
337 1.1 sjg cp2 = strstr(cmd, p_make);
338 1.139 rillig if (cp2 != NULL) {
339 1.1 sjg switch (cp2[p_len]) {
340 1.1 sjg case '\0':
341 1.1 sjg case ' ':
342 1.1 sjg case '\t':
343 1.1 sjg case '\n':
344 1.180 rillig rc = true;
345 1.1 sjg break;
346 1.1 sjg }
347 1.149 rillig if (cp2 > cmd && rc) {
348 1.1 sjg switch (cp2[-1]) {
349 1.1 sjg case ' ':
350 1.1 sjg case '\t':
351 1.1 sjg case '\n':
352 1.1 sjg break;
353 1.1 sjg default:
354 1.180 rillig rc = false; /* no match */
355 1.1 sjg break;
356 1.1 sjg }
357 1.1 sjg }
358 1.1 sjg }
359 1.44 christos free(mp);
360 1.84 rillig return rc;
361 1.1 sjg }
362 1.1 sjg
363 1.180 rillig static bool
364 1.149 rillig any_is_submake(GNode *gn)
365 1.149 rillig {
366 1.149 rillig StringListNode *ln;
367 1.149 rillig
368 1.153 rillig for (ln = gn->commands.first; ln != NULL; ln = ln->next)
369 1.149 rillig if (is_submake(ln->datum, gn))
370 1.180 rillig return true;
371 1.180 rillig return false;
372 1.149 rillig }
373 1.149 rillig
374 1.119 rillig static void
375 1.178 rillig printCMD(const char *ucmd, FILE *fp, GNode *gn)
376 1.1 sjg {
377 1.178 rillig FStr xcmd = FStr_InitRefer(ucmd);
378 1.1 sjg
379 1.178 rillig if (strchr(ucmd, '$') != NULL) {
380 1.178 rillig char *expanded;
381 1.178 rillig (void)Var_Subst(ucmd, gn, VARE_WANTRES, &expanded);
382 1.117 rillig /* TODO: handle errors */
383 1.178 rillig xcmd = FStr_InitOwn(expanded);
384 1.1 sjg }
385 1.178 rillig
386 1.178 rillig fprintf(fp, "CMD %s\n", xcmd.str);
387 1.178 rillig FStr_Done(&xcmd);
388 1.1 sjg }
389 1.1 sjg
390 1.126 rillig static void
391 1.150 rillig printCMDs(GNode *gn, FILE *fp)
392 1.126 rillig {
393 1.162 rillig StringListNode *ln;
394 1.126 rillig
395 1.153 rillig for (ln = gn->commands.first; ln != NULL; ln = ln->next)
396 1.150 rillig printCMD(ln->datum, fp, gn);
397 1.126 rillig }
398 1.126 rillig
399 1.1 sjg /*
400 1.1 sjg * Certain node types never get a .meta file
401 1.1 sjg */
402 1.1 sjg #define SKIP_META_TYPE(_type) do { \
403 1.122 rillig if ((gn->type & __CONCAT(OP_, _type))) { \
404 1.58 sjg if (verbose) { \
405 1.122 rillig debug_printf("Skipping meta for %s: .%s\n", \
406 1.122 rillig gn->name, __STRING(_type)); \
407 1.1 sjg } \
408 1.180 rillig return false; \
409 1.1 sjg } \
410 1.180 rillig } while (/*CONSTCOND*/false)
411 1.1 sjg
412 1.58 sjg
413 1.58 sjg /*
414 1.58 sjg * Do we need/want a .meta file ?
415 1.58 sjg */
416 1.180 rillig static bool
417 1.157 rillig meta_needed(GNode *gn, const char *dname,
418 1.180 rillig char *objdir_realpath, bool verbose)
419 1.1 sjg {
420 1.143 rillig struct cached_stat cst;
421 1.1 sjg
422 1.58 sjg if (verbose)
423 1.165 rillig verbose = DEBUG(META);
424 1.85 rillig
425 1.1 sjg /* This may be a phony node which we don't want meta data for... */
426 1.1 sjg /* Skip .meta for .BEGIN, .END, .ERROR etc as well. */
427 1.1 sjg /* Or it may be explicitly flagged as .NOMETA */
428 1.1 sjg SKIP_META_TYPE(NOMETA);
429 1.1 sjg /* Unless it is explicitly flagged as .META */
430 1.1 sjg if (!(gn->type & OP_META)) {
431 1.1 sjg SKIP_META_TYPE(PHONY);
432 1.1 sjg SKIP_META_TYPE(SPECIAL);
433 1.1 sjg SKIP_META_TYPE(MAKE);
434 1.1 sjg }
435 1.1 sjg
436 1.58 sjg /* Check if there are no commands to execute. */
437 1.153 rillig if (Lst_IsEmpty(&gn->commands)) {
438 1.58 sjg if (verbose)
439 1.122 rillig debug_printf("Skipping meta for %s: no commands\n", gn->name);
440 1.180 rillig return false;
441 1.58 sjg }
442 1.58 sjg if ((gn->type & (OP_META|OP_SUBMAKE)) == OP_SUBMAKE) {
443 1.58 sjg /* OP_SUBMAKE is a bit too aggressive */
444 1.149 rillig if (any_is_submake(gn)) {
445 1.121 rillig DEBUG1(META, "Skipping meta for %s: .SUBMAKE\n", gn->name);
446 1.180 rillig return false;
447 1.58 sjg }
448 1.58 sjg }
449 1.58 sjg
450 1.1 sjg /* The object directory may not exist. Check it.. */
451 1.143 rillig if (cached_stat(dname, &cst) != 0) {
452 1.58 sjg if (verbose)
453 1.122 rillig debug_printf("Skipping meta for %s: no .OBJDIR\n", gn->name);
454 1.180 rillig return false;
455 1.1 sjg }
456 1.1 sjg
457 1.1 sjg /* make sure these are canonical */
458 1.166 rillig if (cached_realpath(dname, objdir_realpath) != NULL)
459 1.152 rillig dname = objdir_realpath;
460 1.1 sjg
461 1.1 sjg /* If we aren't in the object directory, don't create a meta file. */
462 1.12 sjg if (!metaCurdirOk && strcmp(curdir, dname) == 0) {
463 1.58 sjg if (verbose)
464 1.122 rillig debug_printf("Skipping meta for %s: .OBJDIR == .CURDIR\n",
465 1.122 rillig gn->name);
466 1.180 rillig return false;
467 1.58 sjg }
468 1.180 rillig return true;
469 1.58 sjg }
470 1.58 sjg
471 1.85 rillig
472 1.58 sjg static FILE *
473 1.58 sjg meta_create(BuildMon *pbm, GNode *gn)
474 1.58 sjg {
475 1.150 rillig FILE *fp;
476 1.58 sjg char buf[MAXPATHLEN];
477 1.152 rillig char objdir_realpath[MAXPATHLEN];
478 1.58 sjg char **ptr;
479 1.161 rillig FStr dname;
480 1.58 sjg const char *tname;
481 1.58 sjg char *fname;
482 1.58 sjg const char *cp;
483 1.58 sjg
484 1.150 rillig fp = NULL;
485 1.58 sjg
486 1.176 rillig dname = Var_Value(gn, ".OBJDIR");
487 1.135 rillig tname = GNode_VarTarget(gn);
488 1.58 sjg
489 1.152 rillig /* if this succeeds objdir_realpath is realpath of dname */
490 1.180 rillig if (!meta_needed(gn, dname.str, objdir_realpath, true))
491 1.1 sjg goto out;
492 1.161 rillig dname.str = objdir_realpath;
493 1.1 sjg
494 1.1 sjg if (metaVerbose) {
495 1.1 sjg char *mp;
496 1.1 sjg
497 1.1 sjg /* Describe the target we are building */
498 1.117 rillig (void)Var_Subst("${" MAKE_META_PREFIX "}", gn, VARE_WANTRES, &mp);
499 1.117 rillig /* TODO: handle errors */
500 1.146 rillig if (mp[0] != '\0')
501 1.1 sjg fprintf(stdout, "%s\n", mp);
502 1.1 sjg free(mp);
503 1.1 sjg }
504 1.1 sjg /* Get the basename of the target */
505 1.159 rillig cp = str_basename(tname);
506 1.1 sjg
507 1.1 sjg fflush(stdout);
508 1.1 sjg
509 1.1 sjg if (!writeMeta)
510 1.1 sjg /* Don't create meta data. */
511 1.1 sjg goto out;
512 1.1 sjg
513 1.138 rillig fname = meta_name(pbm->meta_fname, sizeof pbm->meta_fname,
514 1.161 rillig dname.str, tname, objdir_realpath);
515 1.1 sjg
516 1.8 sjg #ifdef DEBUG_META_MODE
517 1.121 rillig DEBUG1(META, "meta_create: %s\n", fname);
518 1.8 sjg #endif
519 1.8 sjg
520 1.150 rillig if ((fp = fopen(fname, "w")) == NULL)
521 1.1 sjg err(1, "Could not open meta file '%s'", fname);
522 1.1 sjg
523 1.150 rillig fprintf(fp, "# Meta data file %s\n", fname);
524 1.1 sjg
525 1.150 rillig printCMDs(gn, fp);
526 1.1 sjg
527 1.150 rillig fprintf(fp, "CWD %s\n", getcwd(buf, sizeof buf));
528 1.150 rillig fprintf(fp, "TARGET %s\n", tname);
529 1.135 rillig cp = GNode_VarOodate(gn);
530 1.168 rillig if (cp != NULL && *cp != '\0') {
531 1.150 rillig fprintf(fp, "OODATE %s\n", cp);
532 1.76 sjg }
533 1.1 sjg if (metaEnv) {
534 1.1 sjg for (ptr = environ; *ptr != NULL; ptr++)
535 1.150 rillig fprintf(fp, "ENV %s\n", *ptr);
536 1.1 sjg }
537 1.1 sjg
538 1.150 rillig fprintf(fp, "-- command output --\n");
539 1.150 rillig fflush(fp);
540 1.1 sjg
541 1.173 rillig Global_Append(".MAKE.META.FILES", fname);
542 1.173 rillig Global_Append(".MAKE.META.CREATED", fname);
543 1.22 sjg
544 1.22 sjg gn->type |= OP_META; /* in case anyone wants to know */
545 1.22 sjg if (metaSilent) {
546 1.22 sjg gn->type |= OP_SILENT;
547 1.22 sjg }
548 1.1 sjg out:
549 1.161 rillig FStr_Done(&dname);
550 1.1 sjg
551 1.150 rillig return fp;
552 1.1 sjg }
553 1.1 sjg
554 1.180 rillig static bool
555 1.183 rillig boolValue(const char *s)
556 1.12 sjg {
557 1.183 rillig switch (*s) {
558 1.12 sjg case '0':
559 1.12 sjg case 'N':
560 1.12 sjg case 'n':
561 1.12 sjg case 'F':
562 1.12 sjg case 'f':
563 1.180 rillig return false;
564 1.12 sjg }
565 1.180 rillig return true;
566 1.12 sjg }
567 1.1 sjg
568 1.27 sjg /*
569 1.27 sjg * Initialization we need before reading makefiles.
570 1.27 sjg */
571 1.27 sjg void
572 1.30 sjg meta_init(void)
573 1.27 sjg {
574 1.73 maxv #ifdef USE_FILEMON
575 1.73 maxv /* this allows makefiles to test if we have filemon support */
576 1.172 rillig Global_Set(".MAKE.PATH_FILEMON", filemon_path());
577 1.73 maxv #endif
578 1.27 sjg }
579 1.27 sjg
580 1.27 sjg
581 1.58 sjg #define get_mode_bf(bf, token) \
582 1.166 rillig if ((cp = strstr(make_mode, token)) != NULL) \
583 1.138 rillig bf = boolValue(cp + sizeof (token) - 1)
584 1.58 sjg
585 1.27 sjg /*
586 1.27 sjg * Initialization we need after reading makefiles.
587 1.27 sjg */
588 1.1 sjg void
589 1.27 sjg meta_mode_init(const char *make_mode)
590 1.1 sjg {
591 1.180 rillig static bool once = false;
592 1.183 rillig const char *cp;
593 1.161 rillig FStr value;
594 1.1 sjg
595 1.180 rillig useMeta = true;
596 1.180 rillig useFilemon = true;
597 1.180 rillig writeMeta = true;
598 1.1 sjg
599 1.147 rillig if (make_mode != NULL) {
600 1.166 rillig if (strstr(make_mode, "env") != NULL)
601 1.180 rillig metaEnv = true;
602 1.166 rillig if (strstr(make_mode, "verb") != NULL)
603 1.180 rillig metaVerbose = true;
604 1.166 rillig if (strstr(make_mode, "read") != NULL)
605 1.180 rillig writeMeta = false;
606 1.166 rillig if (strstr(make_mode, "nofilemon") != NULL)
607 1.180 rillig useFilemon = false;
608 1.166 rillig if (strstr(make_mode, "ignore-cmd") != NULL)
609 1.180 rillig metaIgnoreCMDs = true;
610 1.58 sjg if (useFilemon)
611 1.58 sjg get_mode_bf(filemonMissing, "missing-filemon=");
612 1.58 sjg get_mode_bf(metaCurdirOk, "curdirok=");
613 1.58 sjg get_mode_bf(metaMissing, "missing-meta=");
614 1.58 sjg get_mode_bf(metaSilent, "silent=");
615 1.1 sjg }
616 1.176 rillig if (metaVerbose && !Var_Exists(SCOPE_GLOBAL, MAKE_META_PREFIX)) {
617 1.1 sjg /*
618 1.1 sjg * The default value for MAKE_META_PREFIX
619 1.1 sjg * prints the absolute path of the target.
620 1.1 sjg * This works be cause :H will generate '.' if there is no /
621 1.1 sjg * and :tA will resolve that to cwd.
622 1.1 sjg */
623 1.172 rillig Global_Set(MAKE_META_PREFIX,
624 1.171 rillig "Building ${.TARGET:H:tA}/${.TARGET:T}");
625 1.1 sjg }
626 1.1 sjg if (once)
627 1.1 sjg return;
628 1.180 rillig once = true;
629 1.138 rillig memset(&Mybm, 0, sizeof Mybm);
630 1.17 sjg /*
631 1.17 sjg * We consider ourselves master of all within ${.MAKE.META.BAILIWICK}
632 1.17 sjg */
633 1.117 rillig (void)Var_Subst("${.MAKE.META.BAILIWICK:O:u:tA}",
634 1.175 rillig SCOPE_GLOBAL, VARE_WANTRES, &metaBailiwickStr);
635 1.117 rillig /* TODO: handle errors */
636 1.155 rillig str2Lst_Append(&metaBailiwick, metaBailiwickStr);
637 1.32 sjg /*
638 1.32 sjg * We ignore any paths that start with ${.MAKE.META.IGNORE_PATHS}
639 1.32 sjg */
640 1.173 rillig Global_Append(MAKE_META_IGNORE_PATHS,
641 1.171 rillig "/dev /etc /proc /tmp /var/run /var/tmp ${TMPDIR}");
642 1.117 rillig (void)Var_Subst("${" MAKE_META_IGNORE_PATHS ":O:u:tA}",
643 1.175 rillig SCOPE_GLOBAL, VARE_WANTRES, &metaIgnorePathsStr);
644 1.117 rillig /* TODO: handle errors */
645 1.155 rillig str2Lst_Append(&metaIgnorePaths, metaIgnorePathsStr);
646 1.56 sjg
647 1.56 sjg /*
648 1.56 sjg * We ignore any paths that match ${.MAKE.META.IGNORE_PATTERNS}
649 1.56 sjg */
650 1.176 rillig value = Var_Value(SCOPE_GLOBAL, MAKE_META_IGNORE_PATTERNS);
651 1.161 rillig if (value.str != NULL) {
652 1.180 rillig metaIgnorePatterns = true;
653 1.161 rillig FStr_Done(&value);
654 1.56 sjg }
655 1.176 rillig value = Var_Value(SCOPE_GLOBAL, MAKE_META_IGNORE_FILTER);
656 1.161 rillig if (value.str != NULL) {
657 1.180 rillig metaIgnoreFilter = true;
658 1.161 rillig FStr_Done(&value);
659 1.66 sjg }
660 1.1 sjg }
661 1.1 sjg
662 1.1 sjg /*
663 1.1 sjg * In each case below we allow for job==NULL
664 1.1 sjg */
665 1.1 sjg void
666 1.1 sjg meta_job_start(Job *job, GNode *gn)
667 1.1 sjg {
668 1.1 sjg BuildMon *pbm;
669 1.1 sjg
670 1.1 sjg if (job != NULL) {
671 1.1 sjg pbm = &job->bm;
672 1.1 sjg } else {
673 1.1 sjg pbm = &Mybm;
674 1.1 sjg }
675 1.1 sjg pbm->mfp = meta_create(pbm, gn);
676 1.73 maxv #ifdef USE_FILEMON_ONCE
677 1.73 maxv /* compat mode we open the filemon dev once per command */
678 1.73 maxv if (job == NULL)
679 1.73 maxv return;
680 1.73 maxv #endif
681 1.73 maxv #ifdef USE_FILEMON
682 1.73 maxv if (pbm->mfp != NULL && useFilemon) {
683 1.74 riastrad meta_open_filemon(pbm);
684 1.73 maxv } else {
685 1.74 riastrad pbm->mon_fd = -1;
686 1.74 riastrad pbm->filemon = NULL;
687 1.73 maxv }
688 1.73 maxv #endif
689 1.1 sjg }
690 1.1 sjg
691 1.1 sjg /*
692 1.1 sjg * The child calls this before doing anything.
693 1.1 sjg * It does not disturb our state.
694 1.1 sjg */
695 1.1 sjg void
696 1.1 sjg meta_job_child(Job *job)
697 1.1 sjg {
698 1.73 maxv #ifdef USE_FILEMON
699 1.73 maxv BuildMon *pbm;
700 1.73 maxv
701 1.73 maxv if (job != NULL) {
702 1.73 maxv pbm = &job->bm;
703 1.73 maxv } else {
704 1.73 maxv pbm = &Mybm;
705 1.73 maxv }
706 1.73 maxv if (pbm->mfp != NULL) {
707 1.73 maxv close(fileno(pbm->mfp));
708 1.168 rillig if (useFilemon && pbm->filemon != NULL) {
709 1.73 maxv pid_t pid;
710 1.73 maxv
711 1.73 maxv pid = getpid();
712 1.74 riastrad if (filemon_setpid_child(pbm->filemon, pid) == -1) {
713 1.73 maxv err(1, "Could not set filemon pid!");
714 1.73 maxv }
715 1.73 maxv }
716 1.73 maxv }
717 1.73 maxv #endif
718 1.1 sjg }
719 1.1 sjg
720 1.1 sjg void
721 1.74 riastrad meta_job_parent(Job *job, pid_t pid)
722 1.74 riastrad {
723 1.78 sjg #if defined(USE_FILEMON) && !defined(USE_FILEMON_DEV)
724 1.74 riastrad BuildMon *pbm;
725 1.74 riastrad
726 1.74 riastrad if (job != NULL) {
727 1.74 riastrad pbm = &job->bm;
728 1.74 riastrad } else {
729 1.74 riastrad pbm = &Mybm;
730 1.74 riastrad }
731 1.168 rillig if (useFilemon && pbm->filemon != NULL) {
732 1.74 riastrad filemon_setpid_parent(pbm->filemon, pid);
733 1.74 riastrad }
734 1.74 riastrad #endif
735 1.74 riastrad }
736 1.74 riastrad
737 1.74 riastrad int
738 1.74 riastrad meta_job_fd(Job *job)
739 1.74 riastrad {
740 1.78 sjg #if defined(USE_FILEMON) && !defined(USE_FILEMON_DEV)
741 1.74 riastrad BuildMon *pbm;
742 1.74 riastrad
743 1.74 riastrad if (job != NULL) {
744 1.74 riastrad pbm = &job->bm;
745 1.74 riastrad } else {
746 1.74 riastrad pbm = &Mybm;
747 1.74 riastrad }
748 1.168 rillig if (useFilemon && pbm->filemon != NULL) {
749 1.74 riastrad return filemon_readfd(pbm->filemon);
750 1.74 riastrad }
751 1.74 riastrad #endif
752 1.74 riastrad return -1;
753 1.74 riastrad }
754 1.74 riastrad
755 1.74 riastrad int
756 1.74 riastrad meta_job_event(Job *job)
757 1.74 riastrad {
758 1.78 sjg #if defined(USE_FILEMON) && !defined(USE_FILEMON_DEV)
759 1.74 riastrad BuildMon *pbm;
760 1.74 riastrad
761 1.74 riastrad if (job != NULL) {
762 1.74 riastrad pbm = &job->bm;
763 1.74 riastrad } else {
764 1.74 riastrad pbm = &Mybm;
765 1.74 riastrad }
766 1.168 rillig if (useFilemon && pbm->filemon != NULL) {
767 1.74 riastrad return filemon_process(pbm->filemon);
768 1.74 riastrad }
769 1.74 riastrad #endif
770 1.74 riastrad return 0;
771 1.74 riastrad }
772 1.74 riastrad
773 1.74 riastrad void
774 1.180 rillig meta_job_error(Job *job, GNode *gn, bool ignerr, int status)
775 1.1 sjg {
776 1.1 sjg char cwd[MAXPATHLEN];
777 1.1 sjg BuildMon *pbm;
778 1.1 sjg
779 1.1 sjg if (job != NULL) {
780 1.1 sjg pbm = &job->bm;
781 1.141 rillig if (gn == NULL)
782 1.1 sjg gn = job->node;
783 1.52 christos } else {
784 1.1 sjg pbm = &Mybm;
785 1.1 sjg }
786 1.1 sjg if (pbm->mfp != NULL) {
787 1.68 sjg fprintf(pbm->mfp, "\n*** Error code %d%s\n",
788 1.158 rillig status, ignerr ? "(ignored)" : "");
789 1.1 sjg }
790 1.171 rillig if (gn != NULL)
791 1.172 rillig Global_Set(".ERROR_TARGET", GNode_Path(gn));
792 1.138 rillig getcwd(cwd, sizeof cwd);
793 1.172 rillig Global_Set(".ERROR_CWD", cwd);
794 1.139 rillig if (pbm->meta_fname[0] != '\0') {
795 1.172 rillig Global_Set(".ERROR_META_FILE", pbm->meta_fname);
796 1.1 sjg }
797 1.16 sjg meta_job_finish(job);
798 1.1 sjg }
799 1.1 sjg
800 1.1 sjg void
801 1.1 sjg meta_job_output(Job *job, char *cp, const char *nl)
802 1.1 sjg {
803 1.1 sjg BuildMon *pbm;
804 1.85 rillig
805 1.1 sjg if (job != NULL) {
806 1.1 sjg pbm = &job->bm;
807 1.1 sjg } else {
808 1.1 sjg pbm = &Mybm;
809 1.1 sjg }
810 1.1 sjg if (pbm->mfp != NULL) {
811 1.1 sjg if (metaVerbose) {
812 1.1 sjg static char *meta_prefix = NULL;
813 1.124 rillig static size_t meta_prefix_len;
814 1.1 sjg
815 1.141 rillig if (meta_prefix == NULL) {
816 1.1 sjg char *cp2;
817 1.1 sjg
818 1.117 rillig (void)Var_Subst("${" MAKE_META_PREFIX "}",
819 1.175 rillig SCOPE_GLOBAL, VARE_WANTRES, &meta_prefix);
820 1.117 rillig /* TODO: handle errors */
821 1.166 rillig if ((cp2 = strchr(meta_prefix, '$')) != NULL)
822 1.124 rillig meta_prefix_len = (size_t)(cp2 - meta_prefix);
823 1.1 sjg else
824 1.1 sjg meta_prefix_len = strlen(meta_prefix);
825 1.1 sjg }
826 1.1 sjg if (strncmp(cp, meta_prefix, meta_prefix_len) == 0) {
827 1.164 rillig cp = strchr(cp + 1, '\n');
828 1.164 rillig if (cp == NULL)
829 1.1 sjg return;
830 1.164 rillig cp++;
831 1.1 sjg }
832 1.1 sjg }
833 1.1 sjg fprintf(pbm->mfp, "%s%s", cp, nl);
834 1.1 sjg }
835 1.1 sjg }
836 1.1 sjg
837 1.57 sjg int
838 1.1 sjg meta_cmd_finish(void *pbmp)
839 1.1 sjg {
840 1.57 sjg int error = 0;
841 1.1 sjg BuildMon *pbm = pbmp;
842 1.73 maxv #ifdef USE_FILEMON
843 1.73 maxv int x;
844 1.73 maxv #endif
845 1.1 sjg
846 1.139 rillig if (pbm == NULL)
847 1.1 sjg pbm = &Mybm;
848 1.1 sjg
849 1.73 maxv #ifdef USE_FILEMON
850 1.166 rillig if (pbm->filemon != NULL) {
851 1.74 riastrad while (filemon_process(pbm->filemon) > 0)
852 1.74 riastrad continue;
853 1.74 riastrad if (filemon_close(pbm->filemon) == -1)
854 1.73 maxv error = errno;
855 1.73 maxv x = filemon_read(pbm->mfp, pbm->mon_fd);
856 1.73 maxv if (error == 0 && x != 0)
857 1.73 maxv error = x;
858 1.74 riastrad pbm->mon_fd = -1;
859 1.74 riastrad pbm->filemon = NULL;
860 1.140 rillig return error;
861 1.140 rillig }
862 1.73 maxv #endif
863 1.140 rillig
864 1.140 rillig fprintf(pbm->mfp, "\n"); /* ensure end with newline */
865 1.57 sjg return error;
866 1.1 sjg }
867 1.1 sjg
868 1.57 sjg int
869 1.1 sjg meta_job_finish(Job *job)
870 1.1 sjg {
871 1.1 sjg BuildMon *pbm;
872 1.57 sjg int error = 0;
873 1.57 sjg int x;
874 1.1 sjg
875 1.1 sjg if (job != NULL) {
876 1.1 sjg pbm = &job->bm;
877 1.1 sjg } else {
878 1.1 sjg pbm = &Mybm;
879 1.1 sjg }
880 1.1 sjg if (pbm->mfp != NULL) {
881 1.57 sjg error = meta_cmd_finish(pbm);
882 1.57 sjg x = fclose(pbm->mfp);
883 1.57 sjg if (error == 0 && x != 0)
884 1.57 sjg error = errno;
885 1.1 sjg pbm->mfp = NULL;
886 1.6 sjg pbm->meta_fname[0] = '\0';
887 1.1 sjg }
888 1.57 sjg return error;
889 1.1 sjg }
890 1.1 sjg
891 1.53 christos void
892 1.53 christos meta_finish(void)
893 1.53 christos {
894 1.155 rillig Lst_Done(&metaBailiwick);
895 1.53 christos free(metaBailiwickStr);
896 1.155 rillig Lst_Done(&metaIgnorePaths);
897 1.53 christos free(metaIgnorePathsStr);
898 1.53 christos }
899 1.53 christos
900 1.1 sjg /*
901 1.1 sjg * Fetch a full line from fp - growing bufp if needed
902 1.1 sjg * Return length in bufp.
903 1.1 sjg */
904 1.85 rillig static int
905 1.1 sjg fgetLine(char **bufp, size_t *szp, int o, FILE *fp)
906 1.1 sjg {
907 1.1 sjg char *buf = *bufp;
908 1.1 sjg size_t bufsz = *szp;
909 1.1 sjg struct stat fs;
910 1.1 sjg int x;
911 1.1 sjg
912 1.124 rillig if (fgets(&buf[o], (int)bufsz - o, fp) != NULL) {
913 1.1 sjg check_newline:
914 1.124 rillig x = o + (int)strlen(&buf[o]);
915 1.1 sjg if (buf[x - 1] == '\n')
916 1.1 sjg return x;
917 1.1 sjg /*
918 1.1 sjg * We need to grow the buffer.
919 1.1 sjg * The meta file can give us a clue.
920 1.1 sjg */
921 1.1 sjg if (fstat(fileno(fp), &fs) == 0) {
922 1.1 sjg size_t newsz;
923 1.1 sjg char *p;
924 1.1 sjg
925 1.124 rillig newsz = ROUNDUP(((size_t)fs.st_size / 2), BUFSIZ);
926 1.1 sjg if (newsz <= bufsz)
927 1.124 rillig newsz = ROUNDUP((size_t)fs.st_size, BUFSIZ);
928 1.68 sjg if (newsz <= bufsz)
929 1.68 sjg return x; /* truncated */
930 1.160 rillig DEBUG2(META, "growing buffer %u -> %u\n",
931 1.160 rillig (unsigned)bufsz, (unsigned)newsz);
932 1.1 sjg p = bmake_realloc(buf, newsz);
933 1.148 rillig *bufp = buf = p;
934 1.148 rillig *szp = bufsz = newsz;
935 1.148 rillig /* fetch the rest */
936 1.148 rillig if (fgets(&buf[x], (int)bufsz - x, fp) == NULL)
937 1.148 rillig return x; /* truncated! */
938 1.148 rillig goto check_newline;
939 1.1 sjg }
940 1.1 sjg }
941 1.1 sjg return 0;
942 1.1 sjg }
943 1.1 sjg
944 1.180 rillig static bool
945 1.149 rillig prefix_match(const char *prefix, const char *path)
946 1.17 sjg {
947 1.17 sjg size_t n = strlen(prefix);
948 1.17 sjg
949 1.84 rillig return strncmp(path, prefix, n) == 0;
950 1.17 sjg }
951 1.17 sjg
952 1.180 rillig static bool
953 1.149 rillig has_any_prefix(const char *path, StringList *prefixes)
954 1.149 rillig {
955 1.149 rillig StringListNode *ln;
956 1.149 rillig
957 1.149 rillig for (ln = prefixes->first; ln != NULL; ln = ln->next)
958 1.149 rillig if (prefix_match(ln->datum, path))
959 1.180 rillig return true;
960 1.180 rillig return false;
961 1.149 rillig }
962 1.149 rillig
963 1.108 rillig /* See if the path equals prefix or starts with "prefix/". */
964 1.180 rillig static bool
965 1.129 rillig path_starts_with(const char *path, const char *prefix)
966 1.64 sjg {
967 1.64 sjg size_t n = strlen(prefix);
968 1.64 sjg
969 1.108 rillig if (strncmp(path, prefix, n) != 0)
970 1.180 rillig return false;
971 1.108 rillig return path[n] == '\0' || path[n] == '/';
972 1.64 sjg }
973 1.64 sjg
974 1.180 rillig static bool
975 1.67 sjg meta_ignore(GNode *gn, const char *p)
976 1.67 sjg {
977 1.67 sjg char fname[MAXPATHLEN];
978 1.67 sjg
979 1.67 sjg if (p == NULL)
980 1.180 rillig return true;
981 1.67 sjg
982 1.67 sjg if (*p == '/') {
983 1.67 sjg cached_realpath(p, fname); /* clean it up */
984 1.155 rillig if (has_any_prefix(fname, &metaIgnorePaths)) {
985 1.67 sjg #ifdef DEBUG_META_MODE
986 1.121 rillig DEBUG1(META, "meta_oodate: ignoring path: %s\n", p);
987 1.67 sjg #endif
988 1.180 rillig return true;
989 1.67 sjg }
990 1.67 sjg }
991 1.67 sjg
992 1.67 sjg if (metaIgnorePatterns) {
993 1.97 rillig const char *expr;
994 1.97 rillig char *pm;
995 1.92 rillig
996 1.176 rillig /*
997 1.176 rillig * XXX: This variable is set on a target GNode but is not one of
998 1.176 rillig * the usual local variables. It should be deleted afterwards.
999 1.176 rillig * Ideally it would not be created in the first place, just like
1000 1.176 rillig * in a .for loop.
1001 1.176 rillig */
1002 1.176 rillig Var_Set(gn, ".p.", p);
1003 1.92 rillig expr = "${" MAKE_META_IGNORE_PATTERNS ":@m@${.p.:M$m}@}";
1004 1.117 rillig (void)Var_Subst(expr, gn, VARE_WANTRES, &pm);
1005 1.117 rillig /* TODO: handle errors */
1006 1.146 rillig if (pm[0] != '\0') {
1007 1.67 sjg #ifdef DEBUG_META_MODE
1008 1.121 rillig DEBUG1(META, "meta_oodate: ignoring pattern: %s\n", p);
1009 1.67 sjg #endif
1010 1.67 sjg free(pm);
1011 1.180 rillig return true;
1012 1.67 sjg }
1013 1.67 sjg free(pm);
1014 1.67 sjg }
1015 1.67 sjg
1016 1.67 sjg if (metaIgnoreFilter) {
1017 1.67 sjg char *fm;
1018 1.67 sjg
1019 1.67 sjg /* skip if filter result is empty */
1020 1.138 rillig snprintf(fname, sizeof fname,
1021 1.67 sjg "${%s:L:${%s:ts:}}",
1022 1.67 sjg p, MAKE_META_IGNORE_FILTER);
1023 1.117 rillig (void)Var_Subst(fname, gn, VARE_WANTRES, &fm);
1024 1.117 rillig /* TODO: handle errors */
1025 1.67 sjg if (*fm == '\0') {
1026 1.67 sjg #ifdef DEBUG_META_MODE
1027 1.121 rillig DEBUG1(META, "meta_oodate: ignoring filtered: %s\n", p);
1028 1.67 sjg #endif
1029 1.67 sjg free(fm);
1030 1.180 rillig return true;
1031 1.67 sjg }
1032 1.67 sjg free(fm);
1033 1.67 sjg }
1034 1.180 rillig return false;
1035 1.67 sjg }
1036 1.67 sjg
1037 1.1 sjg /*
1038 1.1 sjg * When running with 'meta' functionality, a target can be out-of-date
1039 1.34 snj * if any of the references in its meta data file is more recent.
1040 1.5 sjg * We have to track the latestdir on a per-process basis.
1041 1.1 sjg */
1042 1.38 sjg #define LCWD_VNAME_FMT ".meta.%d.lcwd"
1043 1.5 sjg #define LDIR_VNAME_FMT ".meta.%d.ldir"
1044 1.5 sjg
1045 1.20 sjg /*
1046 1.20 sjg * It is possible that a .meta file is corrupted,
1047 1.20 sjg * if we detect this we want to reproduce it.
1048 1.180 rillig * Setting oodate true will have that effect.
1049 1.20 sjg */
1050 1.168 rillig #define CHECK_VALID_META(p) if (!(p != NULL && *p != '\0')) { \
1051 1.20 sjg warnx("%s: %d: malformed", fname, lineno); \
1052 1.180 rillig oodate = true; \
1053 1.20 sjg continue; \
1054 1.20 sjg }
1055 1.20 sjg
1056 1.33 sjg #define DEQUOTE(p) if (*p == '\'') { \
1057 1.33 sjg char *ep; \
1058 1.33 sjg p++; \
1059 1.166 rillig if ((ep = strchr(p, '\'')) != NULL) \
1060 1.33 sjg *ep = '\0'; \
1061 1.33 sjg }
1062 1.33 sjg
1063 1.130 rillig static void
1064 1.130 rillig append_if_new(StringList *list, const char *str)
1065 1.130 rillig {
1066 1.130 rillig StringListNode *ln;
1067 1.130 rillig
1068 1.130 rillig for (ln = list->first; ln != NULL; ln = ln->next)
1069 1.132 rillig if (strcmp(ln->datum, str) == 0)
1070 1.130 rillig return;
1071 1.130 rillig Lst_Append(list, bmake_strdup(str));
1072 1.130 rillig }
1073 1.130 rillig
1074 1.180 rillig bool
1075 1.180 rillig meta_oodate(GNode *gn, bool oodate)
1076 1.1 sjg {
1077 1.5 sjg static char *tmpdir = NULL;
1078 1.11 sjg static char cwd[MAXPATHLEN];
1079 1.38 sjg char lcwd_vname[64];
1080 1.5 sjg char ldir_vname[64];
1081 1.38 sjg char lcwd[MAXPATHLEN];
1082 1.1 sjg char latestdir[MAXPATHLEN];
1083 1.1 sjg char fname[MAXPATHLEN];
1084 1.1 sjg char fname1[MAXPATHLEN];
1085 1.5 sjg char fname2[MAXPATHLEN];
1086 1.38 sjg char fname3[MAXPATHLEN];
1087 1.161 rillig FStr dname;
1088 1.58 sjg const char *tname;
1089 1.1 sjg char *p;
1090 1.33 sjg char *link_src;
1091 1.33 sjg char *move_target;
1092 1.11 sjg static size_t cwdlen = 0;
1093 1.7 sjg static size_t tmplen = 0;
1094 1.1 sjg FILE *fp;
1095 1.180 rillig bool needOODATE = false;
1096 1.156 rillig StringList missingFiles;
1097 1.180 rillig bool have_filemon = false;
1098 1.58 sjg
1099 1.4 sjg if (oodate)
1100 1.4 sjg return oodate; /* we're done */
1101 1.4 sjg
1102 1.176 rillig dname = Var_Value(gn, ".OBJDIR");
1103 1.135 rillig tname = GNode_VarTarget(gn);
1104 1.58 sjg
1105 1.58 sjg /* if this succeeds fname3 is realpath of dname */
1106 1.180 rillig if (!meta_needed(gn, dname.str, fname3, false))
1107 1.58 sjg goto oodate_out;
1108 1.161 rillig dname.str = fname3;
1109 1.58 sjg
1110 1.156 rillig Lst_Init(&missingFiles);
1111 1.17 sjg
1112 1.1 sjg /*
1113 1.1 sjg * We need to check if the target is out-of-date. This includes
1114 1.1 sjg * checking if the expanded command has changed. This in turn
1115 1.1 sjg * requires that all variables are set in the same way that they
1116 1.1 sjg * would be if the target needs to be re-built.
1117 1.1 sjg */
1118 1.181 rillig GNode_SetLocalVars(gn);
1119 1.1 sjg
1120 1.161 rillig meta_name(fname, sizeof fname, dname.str, tname, dname.str);
1121 1.1 sjg
1122 1.8 sjg #ifdef DEBUG_META_MODE
1123 1.121 rillig DEBUG1(META, "meta_oodate: %s\n", fname);
1124 1.8 sjg #endif
1125 1.8 sjg
1126 1.1 sjg if ((fp = fopen(fname, "r")) != NULL) {
1127 1.1 sjg static char *buf = NULL;
1128 1.1 sjg static size_t bufsz;
1129 1.1 sjg int lineno = 0;
1130 1.5 sjg int lastpid = 0;
1131 1.5 sjg int pid;
1132 1.1 sjg int x;
1133 1.115 rillig StringListNode *cmdNode;
1134 1.143 rillig struct cached_stat cst;
1135 1.1 sjg
1136 1.141 rillig if (buf == NULL) {
1137 1.1 sjg bufsz = 8 * BUFSIZ;
1138 1.1 sjg buf = bmake_malloc(bufsz);
1139 1.1 sjg }
1140 1.5 sjg
1141 1.141 rillig if (cwdlen == 0) {
1142 1.138 rillig if (getcwd(cwd, sizeof cwd) == NULL)
1143 1.11 sjg err(1, "Could not get current working directory");
1144 1.11 sjg cwdlen = strlen(cwd);
1145 1.11 sjg }
1146 1.138 rillig strlcpy(lcwd, cwd, sizeof lcwd);
1147 1.138 rillig strlcpy(latestdir, cwd, sizeof latestdir);
1148 1.11 sjg
1149 1.141 rillig if (tmpdir == NULL) {
1150 1.5 sjg tmpdir = getTmpdir();
1151 1.5 sjg tmplen = strlen(tmpdir);
1152 1.5 sjg }
1153 1.5 sjg
1154 1.1 sjg /* we want to track all the .meta we read */
1155 1.173 rillig Global_Append(".MAKE.META.FILES", fname);
1156 1.1 sjg
1157 1.153 rillig cmdNode = gn->commands.first;
1158 1.1 sjg while (!oodate && (x = fgetLine(&buf, &bufsz, 0, fp)) > 0) {
1159 1.1 sjg lineno++;
1160 1.1 sjg if (buf[x - 1] == '\n')
1161 1.1 sjg buf[x - 1] = '\0';
1162 1.20 sjg else {
1163 1.1 sjg warnx("%s: %d: line truncated at %u", fname, lineno, x);
1164 1.180 rillig oodate = true;
1165 1.20 sjg break;
1166 1.20 sjg }
1167 1.33 sjg link_src = NULL;
1168 1.33 sjg move_target = NULL;
1169 1.1 sjg /* Find the start of the build monitor section. */
1170 1.58 sjg if (!have_filemon) {
1171 1.1 sjg if (strncmp(buf, "-- filemon", 10) == 0) {
1172 1.180 rillig have_filemon = true;
1173 1.1 sjg continue;
1174 1.1 sjg }
1175 1.1 sjg if (strncmp(buf, "# buildmon", 10) == 0) {
1176 1.180 rillig have_filemon = true;
1177 1.1 sjg continue;
1178 1.1 sjg }
1179 1.85 rillig }
1180 1.1 sjg
1181 1.1 sjg /* Delimit the record type. */
1182 1.1 sjg p = buf;
1183 1.7 sjg #ifdef DEBUG_META_MODE
1184 1.121 rillig DEBUG3(META, "%s: %d: %s\n", fname, lineno, buf);
1185 1.7 sjg #endif
1186 1.1 sjg strsep(&p, " ");
1187 1.58 sjg if (have_filemon) {
1188 1.5 sjg /*
1189 1.5 sjg * We are in the 'filemon' output section.
1190 1.5 sjg * Each record from filemon follows the general form:
1191 1.5 sjg *
1192 1.5 sjg * <key> <pid> <data>
1193 1.5 sjg *
1194 1.5 sjg * Where:
1195 1.5 sjg * <key> is a single letter, denoting the syscall.
1196 1.5 sjg * <pid> is the process that made the syscall.
1197 1.5 sjg * <data> is the arguments (of interest).
1198 1.5 sjg */
1199 1.5 sjg switch(buf[0]) {
1200 1.5 sjg case '#': /* comment */
1201 1.5 sjg case 'V': /* version */
1202 1.5 sjg break;
1203 1.5 sjg default:
1204 1.5 sjg /*
1205 1.5 sjg * We need to track pathnames per-process.
1206 1.5 sjg *
1207 1.170 rillig * Each process run by make starts off in the 'CWD'
1208 1.5 sjg * recorded in the .meta file, if it chdirs ('C')
1209 1.5 sjg * elsewhere we need to track that - but only for
1210 1.5 sjg * that process. If it forks ('F'), we initialize
1211 1.5 sjg * the child to have the same cwd as its parent.
1212 1.5 sjg *
1213 1.5 sjg * We also need to track the 'latestdir' of
1214 1.5 sjg * interest. This is usually the same as cwd, but
1215 1.5 sjg * not if a process is reading directories.
1216 1.5 sjg *
1217 1.5 sjg * Each time we spot a different process ('pid')
1218 1.5 sjg * we save the current value of 'latestdir' in a
1219 1.5 sjg * variable qualified by 'lastpid', and
1220 1.5 sjg * re-initialize 'latestdir' to any pre-saved
1221 1.5 sjg * value for the current 'pid' and 'CWD' if none.
1222 1.5 sjg */
1223 1.20 sjg CHECK_VALID_META(p);
1224 1.5 sjg pid = atoi(p);
1225 1.5 sjg if (pid > 0 && pid != lastpid) {
1226 1.161 rillig FStr ldir;
1227 1.83 rillig
1228 1.5 sjg if (lastpid > 0) {
1229 1.38 sjg /* We need to remember these. */
1230 1.171 rillig Global_SetExpand(lcwd_vname, lcwd);
1231 1.171 rillig Global_SetExpand(ldir_vname, latestdir);
1232 1.5 sjg }
1233 1.138 rillig snprintf(lcwd_vname, sizeof lcwd_vname, LCWD_VNAME_FMT, pid);
1234 1.138 rillig snprintf(ldir_vname, sizeof ldir_vname, LDIR_VNAME_FMT, pid);
1235 1.5 sjg lastpid = pid;
1236 1.176 rillig ldir = Var_Value(SCOPE_GLOBAL, ldir_vname);
1237 1.161 rillig if (ldir.str != NULL) {
1238 1.161 rillig strlcpy(latestdir, ldir.str, sizeof latestdir);
1239 1.161 rillig FStr_Done(&ldir);
1240 1.38 sjg }
1241 1.176 rillig ldir = Var_Value(SCOPE_GLOBAL, lcwd_vname);
1242 1.161 rillig if (ldir.str != NULL) {
1243 1.161 rillig strlcpy(lcwd, ldir.str, sizeof lcwd);
1244 1.161 rillig FStr_Done(&ldir);
1245 1.38 sjg }
1246 1.5 sjg }
1247 1.5 sjg /* Skip past the pid. */
1248 1.5 sjg if (strsep(&p, " ") == NULL)
1249 1.5 sjg continue;
1250 1.7 sjg #ifdef DEBUG_META_MODE
1251 1.7 sjg if (DEBUG(META))
1252 1.122 rillig debug_printf("%s: %d: %d: %c: cwd=%s lcwd=%s ldir=%s\n",
1253 1.122 rillig fname, lineno,
1254 1.122 rillig pid, buf[0], cwd, lcwd, latestdir);
1255 1.7 sjg #endif
1256 1.5 sjg break;
1257 1.5 sjg }
1258 1.5 sjg
1259 1.20 sjg CHECK_VALID_META(p);
1260 1.20 sjg
1261 1.1 sjg /* Process according to record type. */
1262 1.1 sjg switch (buf[0]) {
1263 1.5 sjg case 'X': /* eXit */
1264 1.176 rillig Var_DeleteExpand(SCOPE_GLOBAL, lcwd_vname);
1265 1.176 rillig Var_DeleteExpand(SCOPE_GLOBAL, ldir_vname);
1266 1.5 sjg lastpid = 0; /* no need to save ldir_vname */
1267 1.5 sjg break;
1268 1.5 sjg
1269 1.5 sjg case 'F': /* [v]Fork */
1270 1.5 sjg {
1271 1.5 sjg char cldir[64];
1272 1.5 sjg int child;
1273 1.5 sjg
1274 1.5 sjg child = atoi(p);
1275 1.5 sjg if (child > 0) {
1276 1.138 rillig snprintf(cldir, sizeof cldir, LCWD_VNAME_FMT, child);
1277 1.171 rillig Global_SetExpand(cldir, lcwd);
1278 1.138 rillig snprintf(cldir, sizeof cldir, LDIR_VNAME_FMT, child);
1279 1.171 rillig Global_SetExpand(cldir, latestdir);
1280 1.38 sjg #ifdef DEBUG_META_MODE
1281 1.38 sjg if (DEBUG(META))
1282 1.122 rillig debug_printf(
1283 1.122 rillig "%s: %d: %d: cwd=%s lcwd=%s ldir=%s\n",
1284 1.122 rillig fname, lineno,
1285 1.122 rillig child, cwd, lcwd, latestdir);
1286 1.38 sjg #endif
1287 1.5 sjg }
1288 1.5 sjg }
1289 1.5 sjg break;
1290 1.1 sjg
1291 1.5 sjg case 'C': /* Chdir */
1292 1.38 sjg /* Update lcwd and latest directory. */
1293 1.138 rillig strlcpy(latestdir, p, sizeof latestdir);
1294 1.138 rillig strlcpy(lcwd, p, sizeof lcwd);
1295 1.171 rillig Global_SetExpand(lcwd_vname, lcwd);
1296 1.171 rillig Global_SetExpand(ldir_vname, lcwd);
1297 1.38 sjg #ifdef DEBUG_META_MODE
1298 1.121 rillig DEBUG4(META, "%s: %d: cwd=%s ldir=%s\n",
1299 1.121 rillig fname, lineno, cwd, lcwd);
1300 1.38 sjg #endif
1301 1.1 sjg break;
1302 1.1 sjg
1303 1.17 sjg case 'M': /* renaMe */
1304 1.33 sjg /*
1305 1.33 sjg * For 'M'oves we want to check
1306 1.33 sjg * the src as for 'R'ead
1307 1.33 sjg * and the target as for 'W'rite.
1308 1.33 sjg */
1309 1.163 rillig {
1310 1.163 rillig char *cp = p; /* save this for a second */
1311 1.163 rillig /* now get target */
1312 1.163 rillig if (strsep(&p, " ") == NULL)
1313 1.163 rillig continue;
1314 1.163 rillig CHECK_VALID_META(p);
1315 1.163 rillig move_target = p;
1316 1.163 rillig p = cp;
1317 1.163 rillig }
1318 1.17 sjg /* 'L' and 'M' put single quotes around the args */
1319 1.33 sjg DEQUOTE(p);
1320 1.33 sjg DEQUOTE(move_target);
1321 1.17 sjg /* FALLTHROUGH */
1322 1.17 sjg case 'D': /* unlink */
1323 1.129 rillig if (*p == '/') {
1324 1.64 sjg /* remove any missingFiles entries that match p */
1325 1.156 rillig StringListNode *ln = missingFiles.first;
1326 1.129 rillig while (ln != NULL) {
1327 1.129 rillig StringListNode *next = ln->next;
1328 1.129 rillig if (path_starts_with(ln->datum, p)) {
1329 1.132 rillig free(ln->datum);
1330 1.156 rillig Lst_Remove(&missingFiles, ln);
1331 1.129 rillig }
1332 1.129 rillig ln = next;
1333 1.17 sjg }
1334 1.17 sjg }
1335 1.33 sjg if (buf[0] == 'M') {
1336 1.33 sjg /* the target of the mv is a file 'W'ritten */
1337 1.33 sjg #ifdef DEBUG_META_MODE
1338 1.121 rillig DEBUG2(META, "meta_oodate: M %s -> %s\n",
1339 1.121 rillig p, move_target);
1340 1.33 sjg #endif
1341 1.33 sjg p = move_target;
1342 1.33 sjg goto check_write;
1343 1.33 sjg }
1344 1.17 sjg break;
1345 1.17 sjg case 'L': /* Link */
1346 1.33 sjg /*
1347 1.33 sjg * For 'L'inks check
1348 1.33 sjg * the src as for 'R'ead
1349 1.33 sjg * and the target as for 'W'rite.
1350 1.33 sjg */
1351 1.33 sjg link_src = p;
1352 1.33 sjg /* now get target */
1353 1.17 sjg if (strsep(&p, " ") == NULL)
1354 1.17 sjg continue;
1355 1.20 sjg CHECK_VALID_META(p);
1356 1.17 sjg /* 'L' and 'M' put single quotes around the args */
1357 1.33 sjg DEQUOTE(p);
1358 1.33 sjg DEQUOTE(link_src);
1359 1.33 sjg #ifdef DEBUG_META_MODE
1360 1.121 rillig DEBUG2(META, "meta_oodate: L %s -> %s\n", link_src, p);
1361 1.33 sjg #endif
1362 1.17 sjg /* FALLTHROUGH */
1363 1.17 sjg case 'W': /* Write */
1364 1.33 sjg check_write:
1365 1.17 sjg /*
1366 1.17 sjg * If a file we generated within our bailiwick
1367 1.17 sjg * but outside of .OBJDIR is missing,
1368 1.85 rillig * we need to do it again.
1369 1.17 sjg */
1370 1.17 sjg /* ignore non-absolute paths */
1371 1.17 sjg if (*p != '/')
1372 1.17 sjg break;
1373 1.17 sjg
1374 1.155 rillig if (Lst_IsEmpty(&metaBailiwick))
1375 1.17 sjg break;
1376 1.17 sjg
1377 1.17 sjg /* ignore cwd - normal dependencies handle those */
1378 1.17 sjg if (strncmp(p, cwd, cwdlen) == 0)
1379 1.17 sjg break;
1380 1.17 sjg
1381 1.155 rillig if (!has_any_prefix(p, &metaBailiwick))
1382 1.17 sjg break;
1383 1.17 sjg
1384 1.17 sjg /* tmpdir might be within */
1385 1.17 sjg if (tmplen > 0 && strncmp(p, tmpdir, tmplen) == 0)
1386 1.17 sjg break;
1387 1.17 sjg
1388 1.17 sjg /* ignore anything containing the string "tmp" */
1389 1.144 rillig /* XXX: The arguments to strstr must be swapped. */
1390 1.166 rillig if (strstr("tmp", p) != NULL)
1391 1.17 sjg break;
1392 1.17 sjg
1393 1.143 rillig if ((link_src != NULL && cached_lstat(p, &cst) < 0) ||
1394 1.143 rillig (link_src == NULL && cached_stat(p, &cst) < 0)) {
1395 1.130 rillig if (!meta_ignore(gn, p))
1396 1.156 rillig append_if_new(&missingFiles, p);
1397 1.17 sjg }
1398 1.17 sjg break;
1399 1.33 sjg check_link_src:
1400 1.33 sjg p = link_src;
1401 1.33 sjg link_src = NULL;
1402 1.33 sjg #ifdef DEBUG_META_MODE
1403 1.121 rillig DEBUG1(META, "meta_oodate: L src %s\n", p);
1404 1.33 sjg #endif
1405 1.33 sjg /* FALLTHROUGH */
1406 1.5 sjg case 'R': /* Read */
1407 1.5 sjg case 'E': /* Exec */
1408 1.1 sjg /*
1409 1.1 sjg * Check for runtime files that can't
1410 1.1 sjg * be part of the dependencies because
1411 1.1 sjg * they are _expected_ to change.
1412 1.1 sjg */
1413 1.67 sjg if (meta_ignore(gn, p))
1414 1.67 sjg break;
1415 1.85 rillig
1416 1.1 sjg /*
1417 1.5 sjg * The rest of the record is the file name.
1418 1.5 sjg * Check if it's not an absolute path.
1419 1.1 sjg */
1420 1.5 sjg {
1421 1.5 sjg char *sdirs[4];
1422 1.5 sjg char **sdp;
1423 1.5 sjg int sdx = 0;
1424 1.180 rillig bool found = false;
1425 1.5 sjg
1426 1.5 sjg if (*p == '/') {
1427 1.5 sjg sdirs[sdx++] = p; /* done */
1428 1.5 sjg } else {
1429 1.5 sjg if (strcmp(".", p) == 0)
1430 1.145 rillig continue; /* no point */
1431 1.5 sjg
1432 1.5 sjg /* Check vs latestdir */
1433 1.138 rillig snprintf(fname1, sizeof fname1, "%s/%s", latestdir, p);
1434 1.5 sjg sdirs[sdx++] = fname1;
1435 1.5 sjg
1436 1.38 sjg if (strcmp(latestdir, lcwd) != 0) {
1437 1.38 sjg /* Check vs lcwd */
1438 1.138 rillig snprintf(fname2, sizeof fname2, "%s/%s", lcwd, p);
1439 1.38 sjg sdirs[sdx++] = fname2;
1440 1.38 sjg }
1441 1.38 sjg if (strcmp(lcwd, cwd) != 0) {
1442 1.5 sjg /* Check vs cwd */
1443 1.138 rillig snprintf(fname3, sizeof fname3, "%s/%s", cwd, p);
1444 1.38 sjg sdirs[sdx++] = fname3;
1445 1.5 sjg }
1446 1.5 sjg }
1447 1.5 sjg sdirs[sdx++] = NULL;
1448 1.1 sjg
1449 1.168 rillig for (sdp = sdirs; *sdp != NULL && !found; sdp++) {
1450 1.7 sjg #ifdef DEBUG_META_MODE
1451 1.121 rillig DEBUG3(META, "%s: %d: looking for: %s\n",
1452 1.121 rillig fname, lineno, *sdp);
1453 1.7 sjg #endif
1454 1.143 rillig if (cached_stat(*sdp, &cst) == 0) {
1455 1.180 rillig found = true;
1456 1.5 sjg p = *sdp;
1457 1.5 sjg }
1458 1.5 sjg }
1459 1.5 sjg if (found) {
1460 1.7 sjg #ifdef DEBUG_META_MODE
1461 1.121 rillig DEBUG3(META, "%s: %d: found: %s\n",
1462 1.121 rillig fname, lineno, p);
1463 1.7 sjg #endif
1464 1.143 rillig if (!S_ISDIR(cst.cst_mode) &&
1465 1.143 rillig cst.cst_mtime > gn->mtime) {
1466 1.121 rillig DEBUG3(META, "%s: %d: file '%s' is newer than the target...\n",
1467 1.121 rillig fname, lineno, p);
1468 1.180 rillig oodate = true;
1469 1.143 rillig } else if (S_ISDIR(cst.cst_mode)) {
1470 1.5 sjg /* Update the latest directory. */
1471 1.59 sjg cached_realpath(p, latestdir);
1472 1.5 sjg }
1473 1.5 sjg } else if (errno == ENOENT && *p == '/' &&
1474 1.5 sjg strncmp(p, cwd, cwdlen) != 0) {
1475 1.5 sjg /*
1476 1.5 sjg * A referenced file outside of CWD is missing.
1477 1.5 sjg * We cannot catch every eventuality here...
1478 1.5 sjg */
1479 1.156 rillig append_if_new(&missingFiles, p);
1480 1.4 sjg }
1481 1.1 sjg }
1482 1.38 sjg if (buf[0] == 'E') {
1483 1.38 sjg /* previous latestdir is no longer relevant */
1484 1.138 rillig strlcpy(latestdir, lcwd, sizeof latestdir);
1485 1.38 sjg }
1486 1.1 sjg break;
1487 1.1 sjg default:
1488 1.1 sjg break;
1489 1.1 sjg }
1490 1.33 sjg if (!oodate && buf[0] == 'L' && link_src != NULL)
1491 1.33 sjg goto check_link_src;
1492 1.5 sjg } else if (strcmp(buf, "CMD") == 0) {
1493 1.1 sjg /*
1494 1.1 sjg * Compare the current command with the one in the
1495 1.1 sjg * meta data file.
1496 1.1 sjg */
1497 1.115 rillig if (cmdNode == NULL) {
1498 1.121 rillig DEBUG2(META, "%s: %d: there were more build commands in the meta data file than there are now...\n",
1499 1.121 rillig fname, lineno);
1500 1.180 rillig oodate = true;
1501 1.1 sjg } else {
1502 1.163 rillig const char *cp;
1503 1.127 rillig char *cmd = cmdNode->datum;
1504 1.180 rillig bool hasOODATE = false;
1505 1.1 sjg
1506 1.166 rillig if (strstr(cmd, "$?") != NULL)
1507 1.180 rillig hasOODATE = true;
1508 1.166 rillig else if ((cp = strstr(cmd, ".OODATE")) != NULL) {
1509 1.29 sjg /* check for $[{(].OODATE[:)}] */
1510 1.29 sjg if (cp > cmd + 2 && cp[-2] == '$')
1511 1.180 rillig hasOODATE = true;
1512 1.29 sjg }
1513 1.29 sjg if (hasOODATE) {
1514 1.180 rillig needOODATE = true;
1515 1.121 rillig DEBUG2(META, "%s: %d: cannot compare command using .OODATE\n",
1516 1.121 rillig fname, lineno);
1517 1.1 sjg }
1518 1.179 rillig (void)Var_Subst(cmd, gn, VARE_UNDEFERR, &cmd);
1519 1.117 rillig /* TODO: handle errors */
1520 1.1 sjg
1521 1.166 rillig if ((cp = strchr(cmd, '\n')) != NULL) {
1522 1.1 sjg int n;
1523 1.1 sjg
1524 1.1 sjg /*
1525 1.1 sjg * This command contains newlines, we need to
1526 1.1 sjg * fetch more from the .meta file before we
1527 1.1 sjg * attempt a comparison.
1528 1.1 sjg */
1529 1.1 sjg /* first put the newline back at buf[x - 1] */
1530 1.1 sjg buf[x - 1] = '\n';
1531 1.1 sjg do {
1532 1.1 sjg /* now fetch the next line */
1533 1.1 sjg if ((n = fgetLine(&buf, &bufsz, x, fp)) <= 0)
1534 1.1 sjg break;
1535 1.1 sjg x = n;
1536 1.1 sjg lineno++;
1537 1.1 sjg if (buf[x - 1] != '\n') {
1538 1.1 sjg warnx("%s: %d: line truncated at %u", fname, lineno, x);
1539 1.1 sjg break;
1540 1.1 sjg }
1541 1.164 rillig cp = strchr(cp + 1, '\n');
1542 1.147 rillig } while (cp != NULL);
1543 1.1 sjg if (buf[x - 1] == '\n')
1544 1.1 sjg buf[x - 1] = '\0';
1545 1.1 sjg }
1546 1.139 rillig if (p != NULL &&
1547 1.81 sjg !hasOODATE &&
1548 1.1 sjg !(gn->type & OP_NOMETA_CMP) &&
1549 1.139 rillig (strcmp(p, cmd) != 0)) {
1550 1.121 rillig DEBUG4(META, "%s: %d: a build command has changed\n%s\nvs\n%s\n",
1551 1.121 rillig fname, lineno, p, cmd);
1552 1.1 sjg if (!metaIgnoreCMDs)
1553 1.180 rillig oodate = true;
1554 1.1 sjg }
1555 1.1 sjg free(cmd);
1556 1.120 rillig cmdNode = cmdNode->next;
1557 1.1 sjg }
1558 1.1 sjg } else if (strcmp(buf, "CWD") == 0) {
1559 1.14 sjg /*
1560 1.14 sjg * Check if there are extra commands now
1561 1.14 sjg * that weren't in the meta data file.
1562 1.14 sjg */
1563 1.115 rillig if (!oodate && cmdNode != NULL) {
1564 1.121 rillig DEBUG2(META, "%s: %d: there are extra build commands now that weren't in the meta data file\n",
1565 1.121 rillig fname, lineno);
1566 1.180 rillig oodate = true;
1567 1.14 sjg }
1568 1.80 sjg CHECK_VALID_META(p);
1569 1.11 sjg if (strcmp(p, cwd) != 0) {
1570 1.121 rillig DEBUG4(META, "%s: %d: the current working directory has changed from '%s' to '%s'\n",
1571 1.121 rillig fname, lineno, p, curdir);
1572 1.180 rillig oodate = true;
1573 1.1 sjg }
1574 1.1 sjg }
1575 1.1 sjg }
1576 1.1 sjg
1577 1.1 sjg fclose(fp);
1578 1.156 rillig if (!Lst_IsEmpty(&missingFiles)) {
1579 1.121 rillig DEBUG2(META, "%s: missing files: %s...\n",
1580 1.156 rillig fname, (char *)missingFiles.first->datum);
1581 1.180 rillig oodate = true;
1582 1.17 sjg }
1583 1.60 sjg if (!oodate && !have_filemon && filemonMissing) {
1584 1.121 rillig DEBUG1(META, "%s: missing filemon data\n", fname);
1585 1.180 rillig oodate = true;
1586 1.21 sjg }
1587 1.60 sjg } else {
1588 1.86 sjg if (writeMeta && (metaMissing || (gn->type & OP_META))) {
1589 1.163 rillig const char *cp = NULL;
1590 1.50 christos
1591 1.60 sjg /* if target is in .CURDIR we do not need a meta file */
1592 1.168 rillig if (gn->path != NULL && (cp = strrchr(gn->path, '/')) != NULL &&
1593 1.168 rillig (cp > gn->path)) {
1594 1.124 rillig if (strncmp(curdir, gn->path, (size_t)(cp - gn->path)) != 0) {
1595 1.60 sjg cp = NULL; /* not in .CURDIR */
1596 1.60 sjg }
1597 1.60 sjg }
1598 1.141 rillig if (cp == NULL) {
1599 1.121 rillig DEBUG1(META, "%s: required but missing\n", fname);
1600 1.180 rillig oodate = true;
1601 1.180 rillig needOODATE = true; /* assume the worst */
1602 1.60 sjg }
1603 1.60 sjg }
1604 1.58 sjg }
1605 1.58 sjg
1606 1.156 rillig Lst_DoneCall(&missingFiles, free);
1607 1.50 christos
1608 1.26 sjg if (oodate && needOODATE) {
1609 1.4 sjg /*
1610 1.26 sjg * Target uses .OODATE which is empty; or we wouldn't be here.
1611 1.26 sjg * We have decided it is oodate, so .OODATE needs to be set.
1612 1.26 sjg * All we can sanely do is set it to .ALLSRC.
1613 1.4 sjg */
1614 1.176 rillig Var_Delete(gn, OODATE);
1615 1.176 rillig Var_Set(gn, OODATE, GNode_VarAllsrc(gn));
1616 1.4 sjg }
1617 1.58 sjg
1618 1.58 sjg oodate_out:
1619 1.161 rillig FStr_Done(&dname);
1620 1.1 sjg return oodate;
1621 1.1 sjg }
1622 1.1 sjg
1623 1.1 sjg /* support for compat mode */
1624 1.1 sjg
1625 1.1 sjg static int childPipe[2];
1626 1.1 sjg
1627 1.1 sjg void
1628 1.1 sjg meta_compat_start(void)
1629 1.1 sjg {
1630 1.73 maxv #ifdef USE_FILEMON_ONCE
1631 1.73 maxv /*
1632 1.73 maxv * We need to re-open filemon for each cmd.
1633 1.73 maxv */
1634 1.73 maxv BuildMon *pbm = &Mybm;
1635 1.85 rillig
1636 1.73 maxv if (pbm->mfp != NULL && useFilemon) {
1637 1.74 riastrad meta_open_filemon(pbm);
1638 1.73 maxv } else {
1639 1.74 riastrad pbm->mon_fd = -1;
1640 1.74 riastrad pbm->filemon = NULL;
1641 1.73 maxv }
1642 1.73 maxv #endif
1643 1.1 sjg if (pipe(childPipe) < 0)
1644 1.1 sjg Punt("Cannot create pipe: %s", strerror(errno));
1645 1.1 sjg /* Set close-on-exec flag for both */
1646 1.42 christos (void)fcntl(childPipe[0], F_SETFD, FD_CLOEXEC);
1647 1.42 christos (void)fcntl(childPipe[1], F_SETFD, FD_CLOEXEC);
1648 1.1 sjg }
1649 1.1 sjg
1650 1.1 sjg void
1651 1.1 sjg meta_compat_child(void)
1652 1.1 sjg {
1653 1.1 sjg meta_job_child(NULL);
1654 1.123 rillig if (dup2(childPipe[1], 1) < 0 || dup2(1, 2) < 0)
1655 1.123 rillig execDie("dup2", "pipe");
1656 1.1 sjg }
1657 1.1 sjg
1658 1.1 sjg void
1659 1.74 riastrad meta_compat_parent(pid_t child)
1660 1.1 sjg {
1661 1.74 riastrad int outfd, metafd, maxfd, nfds;
1662 1.78 sjg char buf[BUFSIZ+1];
1663 1.74 riastrad fd_set readfds;
1664 1.74 riastrad
1665 1.74 riastrad meta_job_parent(NULL, child);
1666 1.1 sjg close(childPipe[1]); /* child side */
1667 1.74 riastrad outfd = childPipe[0];
1668 1.79 sjg #ifdef USE_FILEMON
1669 1.168 rillig metafd = Mybm.filemon != NULL ? filemon_readfd(Mybm.filemon) : -1;
1670 1.79 sjg #else
1671 1.79 sjg metafd = -1;
1672 1.79 sjg #endif
1673 1.74 riastrad maxfd = -1;
1674 1.74 riastrad if (outfd > maxfd)
1675 1.74 riastrad maxfd = outfd;
1676 1.74 riastrad if (metafd > maxfd)
1677 1.74 riastrad maxfd = metafd;
1678 1.74 riastrad
1679 1.74 riastrad while (outfd != -1 || metafd != -1) {
1680 1.74 riastrad FD_ZERO(&readfds);
1681 1.74 riastrad if (outfd != -1) {
1682 1.74 riastrad FD_SET(outfd, &readfds);
1683 1.74 riastrad }
1684 1.74 riastrad if (metafd != -1) {
1685 1.74 riastrad FD_SET(metafd, &readfds);
1686 1.74 riastrad }
1687 1.74 riastrad nfds = select(maxfd + 1, &readfds, NULL, NULL, NULL);
1688 1.74 riastrad if (nfds == -1) {
1689 1.74 riastrad if (errno == EINTR)
1690 1.74 riastrad continue;
1691 1.74 riastrad err(1, "select");
1692 1.74 riastrad }
1693 1.74 riastrad
1694 1.168 rillig if (outfd != -1 && FD_ISSET(outfd, &readfds) != 0) do {
1695 1.74 riastrad /* XXX this is not line-buffered */
1696 1.138 rillig ssize_t nread = read(outfd, buf, sizeof buf - 1);
1697 1.74 riastrad if (nread == -1)
1698 1.74 riastrad err(1, "read");
1699 1.74 riastrad if (nread == 0) {
1700 1.74 riastrad close(outfd);
1701 1.74 riastrad outfd = -1;
1702 1.74 riastrad break;
1703 1.74 riastrad }
1704 1.74 riastrad fwrite(buf, 1, (size_t)nread, stdout);
1705 1.74 riastrad fflush(stdout);
1706 1.78 sjg buf[nread] = '\0';
1707 1.78 sjg meta_job_output(NULL, buf, "");
1708 1.180 rillig } while (/*CONSTCOND*/false);
1709 1.168 rillig if (metafd != -1 && FD_ISSET(metafd, &readfds) != 0) {
1710 1.74 riastrad if (meta_job_event(NULL) <= 0)
1711 1.74 riastrad metafd = -1;
1712 1.74 riastrad }
1713 1.1 sjg }
1714 1.1 sjg }
1715 1.3 sjg
1716 1.154 rillig #endif /* USE_META */
1717