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