meta.c revision 1.57 1 1.57 sjg /* $NetBSD: meta.c,v 1.57 2016/05/12 20:28:34 sjg 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.1 sjg *
12 1.1 sjg * Redistribution and use in source and binary forms, with or without
13 1.1 sjg * modification, are permitted provided that the following conditions
14 1.1 sjg * are met:
15 1.1 sjg * 1. Redistributions of source code must retain the above copyright
16 1.1 sjg * 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.1 sjg * documentation and/or other materials provided with the distribution.
20 1.1 sjg *
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.1 sjg * 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 <sys/ioctl.h>
40 1.1 sjg #include <libgen.h>
41 1.1 sjg #include <errno.h>
42 1.2 sjg #if !defined(HAVE_CONFIG_H) || defined(HAVE_ERR_H)
43 1.1 sjg #include <err.h>
44 1.2 sjg #endif
45 1.1 sjg
46 1.1 sjg #include "make.h"
47 1.1 sjg #include "job.h"
48 1.1 sjg
49 1.1 sjg #ifdef HAVE_FILEMON_H
50 1.1 sjg # include <filemon.h>
51 1.1 sjg #endif
52 1.1 sjg #if !defined(USE_FILEMON) && defined(FILEMON_SET_FD)
53 1.1 sjg # define USE_FILEMON
54 1.1 sjg #endif
55 1.1 sjg
56 1.1 sjg static BuildMon Mybm; /* for compat */
57 1.32 sjg static Lst metaBailiwick; /* our scope of control */
58 1.53 christos static char *metaBailiwickStr; /* string storage for the list */
59 1.32 sjg static Lst metaIgnorePaths; /* paths we deliberately ignore */
60 1.53 christos static char *metaIgnorePathsStr; /* string storage for the list */
61 1.32 sjg
62 1.32 sjg #ifndef MAKE_META_IGNORE_PATHS
63 1.32 sjg #define MAKE_META_IGNORE_PATHS ".MAKE.META.IGNORE_PATHS"
64 1.32 sjg #endif
65 1.56 sjg #ifndef MAKE_META_IGNORE_PATTERNS
66 1.56 sjg #define MAKE_META_IGNORE_PATTERNS ".MAKE.META.IGNORE_PATTERNS"
67 1.56 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.1 sjg static Boolean metaEnv = FALSE; /* don't save env unless asked */
73 1.1 sjg static Boolean metaVerbose = FALSE;
74 1.1 sjg static Boolean metaIgnoreCMDs = FALSE; /* ignore CMDs in .meta files */
75 1.56 sjg static Boolean metaIgnorePatterns = FALSE; /* do we need to do pattern matches */
76 1.12 sjg static Boolean metaCurdirOk = FALSE; /* write .meta in .CURDIR Ok? */
77 1.22 sjg static Boolean metaSilent = FALSE; /* if we have a .meta be SILENT */
78 1.1 sjg
79 1.1 sjg extern Boolean forceJobs;
80 1.1 sjg extern Boolean comatMake;
81 1.25 sjg extern char **environ;
82 1.1 sjg
83 1.1 sjg #define MAKE_META_PREFIX ".MAKE.META.PREFIX"
84 1.1 sjg
85 1.1 sjg #ifndef N2U
86 1.1 sjg # define N2U(n, u) (((n) + ((u) - 1)) / (u))
87 1.1 sjg #endif
88 1.1 sjg #ifndef ROUNDUP
89 1.1 sjg # define ROUNDUP(n, u) (N2U((n), (u)) * (u))
90 1.1 sjg #endif
91 1.1 sjg
92 1.2 sjg #if !defined(HAVE_STRSEP)
93 1.2 sjg # define strsep(s, d) stresep((s), (d), 0)
94 1.2 sjg #endif
95 1.2 sjg
96 1.1 sjg /*
97 1.1 sjg * Filemon is a kernel module which snoops certain syscalls.
98 1.1 sjg *
99 1.1 sjg * C chdir
100 1.1 sjg * E exec
101 1.1 sjg * F [v]fork
102 1.1 sjg * L [sym]link
103 1.1 sjg * M rename
104 1.1 sjg * R read
105 1.1 sjg * W write
106 1.1 sjg * S stat
107 1.1 sjg *
108 1.1 sjg * See meta_oodate below - we mainly care about 'E' and 'R'.
109 1.1 sjg *
110 1.1 sjg * We can still use meta mode without filemon, but
111 1.1 sjg * the benefits are more limited.
112 1.1 sjg */
113 1.1 sjg #ifdef USE_FILEMON
114 1.1 sjg # ifndef _PATH_FILEMON
115 1.1 sjg # define _PATH_FILEMON "/dev/filemon"
116 1.1 sjg # endif
117 1.1 sjg
118 1.1 sjg /*
119 1.1 sjg * Open the filemon device.
120 1.1 sjg */
121 1.1 sjg static void
122 1.1 sjg filemon_open(BuildMon *pbm)
123 1.1 sjg {
124 1.1 sjg int retry;
125 1.1 sjg
126 1.1 sjg pbm->mon_fd = pbm->filemon_fd = -1;
127 1.1 sjg if (!useFilemon)
128 1.1 sjg return;
129 1.1 sjg
130 1.1 sjg for (retry = 5; retry >= 0; retry--) {
131 1.1 sjg if ((pbm->filemon_fd = open(_PATH_FILEMON, O_RDWR)) >= 0)
132 1.1 sjg break;
133 1.1 sjg }
134 1.1 sjg
135 1.1 sjg if (pbm->filemon_fd < 0) {
136 1.1 sjg useFilemon = FALSE;
137 1.1 sjg warn("Could not open %s", _PATH_FILEMON);
138 1.1 sjg return;
139 1.1 sjg }
140 1.1 sjg
141 1.1 sjg /*
142 1.1 sjg * We use a file outside of '.'
143 1.1 sjg * to avoid a FreeBSD kernel bug where unlink invalidates
144 1.1 sjg * cwd causing getcwd to do a lot more work.
145 1.1 sjg * We only care about the descriptor.
146 1.1 sjg */
147 1.1 sjg pbm->mon_fd = mkTempFile("filemon.XXXXXX", NULL);
148 1.1 sjg if (ioctl(pbm->filemon_fd, FILEMON_SET_FD, &pbm->mon_fd) < 0) {
149 1.1 sjg err(1, "Could not set filemon file descriptor!");
150 1.1 sjg }
151 1.1 sjg /* we don't need these once we exec */
152 1.42 christos (void)fcntl(pbm->mon_fd, F_SETFD, FD_CLOEXEC);
153 1.42 christos (void)fcntl(pbm->filemon_fd, F_SETFD, FD_CLOEXEC);
154 1.1 sjg }
155 1.1 sjg
156 1.1 sjg /*
157 1.1 sjg * Read the build monitor output file and write records to the target's
158 1.1 sjg * metadata file.
159 1.1 sjg */
160 1.57 sjg static int
161 1.1 sjg filemon_read(FILE *mfp, int fd)
162 1.1 sjg {
163 1.1 sjg char buf[BUFSIZ];
164 1.35 sjg int n;
165 1.57 sjg int error;
166 1.1 sjg
167 1.1 sjg /* Check if we're not writing to a meta data file.*/
168 1.1 sjg if (mfp == NULL) {
169 1.1 sjg if (fd >= 0)
170 1.1 sjg close(fd); /* not interested */
171 1.57 sjg return 0;
172 1.1 sjg }
173 1.1 sjg /* rewind */
174 1.24 christos (void)lseek(fd, (off_t)0, SEEK_SET);
175 1.1 sjg
176 1.57 sjg error = 0;
177 1.36 sjg fprintf(mfp, "\n-- filemon acquired metadata --\n");
178 1.1 sjg
179 1.35 sjg while ((n = read(fd, buf, sizeof(buf))) > 0) {
180 1.57 sjg if ((int)fwrite(buf, 1, n, mfp) < n)
181 1.57 sjg error = EIO;
182 1.1 sjg }
183 1.1 sjg fflush(mfp);
184 1.57 sjg if (close(fd) < 0)
185 1.57 sjg error = errno;
186 1.57 sjg return error;
187 1.1 sjg }
188 1.1 sjg #endif
189 1.1 sjg
190 1.8 sjg /*
191 1.8 sjg * when realpath() fails,
192 1.8 sjg * we use this, to clean up ./ and ../
193 1.8 sjg */
194 1.8 sjg static void
195 1.8 sjg eat_dots(char *buf, size_t bufsz, int dots)
196 1.8 sjg {
197 1.8 sjg char *cp;
198 1.8 sjg char *cp2;
199 1.8 sjg const char *eat;
200 1.8 sjg size_t eatlen;
201 1.8 sjg
202 1.8 sjg switch (dots) {
203 1.8 sjg case 1:
204 1.8 sjg eat = "/./";
205 1.8 sjg eatlen = 2;
206 1.8 sjg break;
207 1.8 sjg case 2:
208 1.8 sjg eat = "/../";
209 1.8 sjg eatlen = 3;
210 1.8 sjg break;
211 1.8 sjg default:
212 1.8 sjg return;
213 1.8 sjg }
214 1.8 sjg
215 1.8 sjg do {
216 1.8 sjg cp = strstr(buf, eat);
217 1.8 sjg if (cp) {
218 1.8 sjg cp2 = cp + eatlen;
219 1.8 sjg if (dots == 2 && cp > buf) {
220 1.8 sjg do {
221 1.8 sjg cp--;
222 1.8 sjg } while (cp > buf && *cp != '/');
223 1.8 sjg }
224 1.8 sjg if (*cp == '/') {
225 1.8 sjg strlcpy(cp, cp2, bufsz - (cp - buf));
226 1.8 sjg } else {
227 1.8 sjg return; /* can't happen? */
228 1.8 sjg }
229 1.8 sjg }
230 1.8 sjg } while (cp);
231 1.8 sjg }
232 1.8 sjg
233 1.1 sjg static char *
234 1.1 sjg meta_name(struct GNode *gn, char *mname, size_t mnamelen,
235 1.1 sjg const char *dname,
236 1.1 sjg const char *tname)
237 1.1 sjg {
238 1.1 sjg char buf[MAXPATHLEN];
239 1.1 sjg char cwd[MAXPATHLEN];
240 1.1 sjg char *rp;
241 1.1 sjg char *cp;
242 1.1 sjg char *tp;
243 1.1 sjg char *p[4]; /* >= number of possible uses */
244 1.1 sjg int i;
245 1.1 sjg
246 1.1 sjg i = 0;
247 1.1 sjg if (!dname)
248 1.1 sjg dname = Var_Value(".OBJDIR", gn, &p[i++]);
249 1.1 sjg if (!tname)
250 1.1 sjg tname = Var_Value(TARGET, gn, &p[i++]);
251 1.1 sjg
252 1.8 sjg if (realpath(dname, cwd))
253 1.8 sjg dname = cwd;
254 1.8 sjg
255 1.1 sjg /*
256 1.1 sjg * Weed out relative paths from the target file name.
257 1.1 sjg * We have to be careful though since if target is a
258 1.1 sjg * symlink, the result will be unstable.
259 1.1 sjg * So we use realpath() just to get the dirname, and leave the
260 1.1 sjg * basename as given to us.
261 1.1 sjg */
262 1.1 sjg if ((cp = strrchr(tname, '/'))) {
263 1.1 sjg if (realpath(tname, buf)) {
264 1.1 sjg if ((rp = strrchr(buf, '/'))) {
265 1.1 sjg rp++;
266 1.1 sjg cp++;
267 1.1 sjg if (strcmp(cp, rp) != 0)
268 1.1 sjg strlcpy(rp, cp, sizeof(buf) - (rp - buf));
269 1.1 sjg }
270 1.1 sjg tname = buf;
271 1.8 sjg } else {
272 1.8 sjg /*
273 1.8 sjg * We likely have a directory which is about to be made.
274 1.8 sjg * We pretend realpath() succeeded, to have a chance
275 1.8 sjg * of generating the same meta file name that we will
276 1.8 sjg * next time through.
277 1.8 sjg */
278 1.8 sjg if (tname[0] == '/') {
279 1.8 sjg strlcpy(buf, tname, sizeof(buf));
280 1.8 sjg } else {
281 1.8 sjg snprintf(buf, sizeof(buf), "%s/%s", cwd, tname);
282 1.8 sjg }
283 1.8 sjg eat_dots(buf, sizeof(buf), 1); /* ./ */
284 1.8 sjg eat_dots(buf, sizeof(buf), 2); /* ../ */
285 1.8 sjg tname = buf;
286 1.1 sjg }
287 1.1 sjg }
288 1.1 sjg /* on some systems dirname may modify its arg */
289 1.1 sjg tp = bmake_strdup(tname);
290 1.1 sjg if (strcmp(dname, dirname(tp)) == 0)
291 1.1 sjg snprintf(mname, mnamelen, "%s.meta", tname);
292 1.1 sjg else {
293 1.1 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.1 sjg for (i--; i >= 0; i--) {
309 1.44 christos free(p[i]);
310 1.1 sjg }
311 1.1 sjg 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.1 sjg static int
319 1.1 sjg is_submake(void *cmdp, void *gnp)
320 1.1 sjg {
321 1.1 sjg static char *p_make = NULL;
322 1.1 sjg static int p_len;
323 1.1 sjg char *cmd = cmdp;
324 1.1 sjg GNode *gn = gnp;
325 1.1 sjg char *mp = NULL;
326 1.1 sjg char *cp;
327 1.1 sjg char *cp2;
328 1.1 sjg int rc = 0; /* keep looking */
329 1.1 sjg
330 1.1 sjg if (!p_make) {
331 1.1 sjg p_make = Var_Value(".MAKE", gn, &cp);
332 1.1 sjg p_len = strlen(p_make);
333 1.1 sjg }
334 1.1 sjg cp = strchr(cmd, '$');
335 1.1 sjg if ((cp)) {
336 1.47 sjg mp = Var_Subst(NULL, cmd, gn, VARF_WANTRES);
337 1.1 sjg cmd = mp;
338 1.1 sjg }
339 1.1 sjg cp2 = strstr(cmd, p_make);
340 1.1 sjg if ((cp2)) {
341 1.1 sjg switch (cp2[p_len]) {
342 1.1 sjg case '\0':
343 1.1 sjg case ' ':
344 1.1 sjg case '\t':
345 1.1 sjg case '\n':
346 1.1 sjg rc = 1;
347 1.1 sjg break;
348 1.1 sjg }
349 1.1 sjg if (cp2 > cmd && rc > 0) {
350 1.1 sjg switch (cp2[-1]) {
351 1.1 sjg case ' ':
352 1.1 sjg case '\t':
353 1.1 sjg case '\n':
354 1.1 sjg break;
355 1.1 sjg default:
356 1.1 sjg rc = 0; /* no match */
357 1.1 sjg break;
358 1.1 sjg }
359 1.1 sjg }
360 1.1 sjg }
361 1.44 christos free(mp);
362 1.1 sjg return (rc);
363 1.1 sjg }
364 1.1 sjg
365 1.1 sjg typedef struct meta_file_s {
366 1.1 sjg FILE *fp;
367 1.1 sjg GNode *gn;
368 1.1 sjg } meta_file_t;
369 1.1 sjg
370 1.1 sjg static int
371 1.1 sjg printCMD(void *cmdp, void *mfpp)
372 1.1 sjg {
373 1.1 sjg meta_file_t *mfp = mfpp;
374 1.1 sjg char *cmd = cmdp;
375 1.1 sjg char *cp = NULL;
376 1.1 sjg
377 1.1 sjg if (strchr(cmd, '$')) {
378 1.47 sjg cmd = cp = Var_Subst(NULL, cmd, mfp->gn, VARF_WANTRES);
379 1.1 sjg }
380 1.1 sjg fprintf(mfp->fp, "CMD %s\n", cmd);
381 1.44 christos free(cp);
382 1.1 sjg return 0;
383 1.1 sjg }
384 1.1 sjg
385 1.1 sjg /*
386 1.1 sjg * Certain node types never get a .meta file
387 1.1 sjg */
388 1.1 sjg #define SKIP_META_TYPE(_type) do { \
389 1.1 sjg if ((gn->type & __CONCAT(OP_, _type))) { \
390 1.1 sjg if (DEBUG(META)) { \
391 1.1 sjg fprintf(debug_file, "Skipping meta for %s: .%s\n", \
392 1.1 sjg gn->name, __STRING(_type)); \
393 1.1 sjg } \
394 1.1 sjg return (NULL); \
395 1.1 sjg } \
396 1.1 sjg } while (0)
397 1.1 sjg
398 1.1 sjg static FILE *
399 1.1 sjg meta_create(BuildMon *pbm, GNode *gn)
400 1.1 sjg {
401 1.1 sjg meta_file_t mf;
402 1.1 sjg char buf[MAXPATHLEN];
403 1.1 sjg char objdir[MAXPATHLEN];
404 1.1 sjg char **ptr;
405 1.1 sjg const char *dname;
406 1.1 sjg const char *tname;
407 1.1 sjg char *fname;
408 1.1 sjg const char *cp;
409 1.1 sjg char *p[4]; /* >= possible uses */
410 1.1 sjg int i;
411 1.1 sjg struct stat fs;
412 1.1 sjg
413 1.1 sjg
414 1.1 sjg /* This may be a phony node which we don't want meta data for... */
415 1.1 sjg /* Skip .meta for .BEGIN, .END, .ERROR etc as well. */
416 1.1 sjg /* Or it may be explicitly flagged as .NOMETA */
417 1.1 sjg SKIP_META_TYPE(NOMETA);
418 1.1 sjg /* Unless it is explicitly flagged as .META */
419 1.1 sjg if (!(gn->type & OP_META)) {
420 1.1 sjg SKIP_META_TYPE(PHONY);
421 1.1 sjg SKIP_META_TYPE(SPECIAL);
422 1.1 sjg SKIP_META_TYPE(MAKE);
423 1.1 sjg }
424 1.1 sjg
425 1.1 sjg mf.fp = NULL;
426 1.1 sjg
427 1.1 sjg i = 0;
428 1.1 sjg
429 1.1 sjg dname = Var_Value(".OBJDIR", gn, &p[i++]);
430 1.1 sjg tname = Var_Value(TARGET, gn, &p[i++]);
431 1.1 sjg
432 1.1 sjg /* The object directory may not exist. Check it.. */
433 1.1 sjg if (stat(dname, &fs) != 0) {
434 1.1 sjg if (DEBUG(META))
435 1.1 sjg fprintf(debug_file, "Skipping meta for %s: no .OBJDIR\n",
436 1.1 sjg gn->name);
437 1.1 sjg goto out;
438 1.1 sjg }
439 1.1 sjg /* Check if there are no commands to execute. */
440 1.1 sjg if (Lst_IsEmpty(gn->commands)) {
441 1.1 sjg if (DEBUG(META))
442 1.1 sjg fprintf(debug_file, "Skipping meta for %s: no commands\n",
443 1.1 sjg gn->name);
444 1.1 sjg goto out;
445 1.1 sjg }
446 1.1 sjg
447 1.1 sjg /* make sure these are canonical */
448 1.1 sjg if (realpath(dname, objdir))
449 1.1 sjg dname = objdir;
450 1.1 sjg
451 1.1 sjg /* If we aren't in the object directory, don't create a meta file. */
452 1.12 sjg if (!metaCurdirOk && strcmp(curdir, dname) == 0) {
453 1.1 sjg if (DEBUG(META))
454 1.1 sjg fprintf(debug_file, "Skipping meta for %s: .OBJDIR == .CURDIR\n",
455 1.1 sjg gn->name);
456 1.1 sjg goto out;
457 1.1 sjg }
458 1.1 sjg if (!(gn->type & OP_META)) {
459 1.1 sjg /* We do not generate .meta files for sub-makes */
460 1.1 sjg if (Lst_ForEach(gn->commands, is_submake, gn)) {
461 1.1 sjg if (DEBUG(META))
462 1.1 sjg fprintf(debug_file, "Skipping meta for %s: .MAKE\n",
463 1.1 sjg gn->name);
464 1.1 sjg goto out;
465 1.1 sjg }
466 1.1 sjg }
467 1.1 sjg
468 1.1 sjg if (metaVerbose) {
469 1.1 sjg char *mp;
470 1.1 sjg
471 1.1 sjg /* Describe the target we are building */
472 1.47 sjg mp = Var_Subst(NULL, "${" MAKE_META_PREFIX "}", gn, VARF_WANTRES);
473 1.1 sjg if (*mp)
474 1.1 sjg fprintf(stdout, "%s\n", mp);
475 1.1 sjg free(mp);
476 1.1 sjg }
477 1.1 sjg /* Get the basename of the target */
478 1.1 sjg if ((cp = strrchr(tname, '/')) == NULL) {
479 1.1 sjg cp = tname;
480 1.1 sjg } else {
481 1.1 sjg cp++;
482 1.1 sjg }
483 1.1 sjg
484 1.1 sjg fflush(stdout);
485 1.1 sjg
486 1.1 sjg if (!writeMeta)
487 1.1 sjg /* Don't create meta data. */
488 1.1 sjg goto out;
489 1.1 sjg
490 1.1 sjg fname = meta_name(gn, pbm->meta_fname, sizeof(pbm->meta_fname),
491 1.1 sjg dname, tname);
492 1.1 sjg
493 1.8 sjg #ifdef DEBUG_META_MODE
494 1.8 sjg if (DEBUG(META))
495 1.8 sjg fprintf(debug_file, "meta_create: %s\n", fname);
496 1.8 sjg #endif
497 1.8 sjg
498 1.1 sjg if ((mf.fp = fopen(fname, "w")) == NULL)
499 1.1 sjg err(1, "Could not open meta file '%s'", fname);
500 1.1 sjg
501 1.1 sjg fprintf(mf.fp, "# Meta data file %s\n", fname);
502 1.1 sjg
503 1.1 sjg mf.gn = gn;
504 1.1 sjg
505 1.1 sjg Lst_ForEach(gn->commands, printCMD, &mf);
506 1.1 sjg
507 1.1 sjg fprintf(mf.fp, "CWD %s\n", getcwd(buf, sizeof(buf)));
508 1.1 sjg fprintf(mf.fp, "TARGET %s\n", tname);
509 1.1 sjg
510 1.1 sjg if (metaEnv) {
511 1.1 sjg for (ptr = environ; *ptr != NULL; ptr++)
512 1.1 sjg fprintf(mf.fp, "ENV %s\n", *ptr);
513 1.1 sjg }
514 1.1 sjg
515 1.1 sjg fprintf(mf.fp, "-- command output --\n");
516 1.1 sjg fflush(mf.fp);
517 1.1 sjg
518 1.1 sjg Var_Append(".MAKE.META.FILES", fname, VAR_GLOBAL);
519 1.1 sjg Var_Append(".MAKE.META.CREATED", fname, VAR_GLOBAL);
520 1.22 sjg
521 1.22 sjg gn->type |= OP_META; /* in case anyone wants to know */
522 1.22 sjg if (metaSilent) {
523 1.22 sjg gn->type |= OP_SILENT;
524 1.22 sjg }
525 1.1 sjg out:
526 1.1 sjg for (i--; i >= 0; i--) {
527 1.44 christos free(p[i]);
528 1.1 sjg }
529 1.1 sjg
530 1.1 sjg return (mf.fp);
531 1.1 sjg }
532 1.1 sjg
533 1.12 sjg static Boolean
534 1.12 sjg boolValue(char *s)
535 1.12 sjg {
536 1.12 sjg switch(*s) {
537 1.12 sjg case '0':
538 1.12 sjg case 'N':
539 1.12 sjg case 'n':
540 1.12 sjg case 'F':
541 1.12 sjg case 'f':
542 1.12 sjg return FALSE;
543 1.12 sjg }
544 1.12 sjg return TRUE;
545 1.12 sjg }
546 1.1 sjg
547 1.27 sjg /*
548 1.27 sjg * Initialization we need before reading makefiles.
549 1.27 sjg */
550 1.27 sjg void
551 1.30 sjg meta_init(void)
552 1.27 sjg {
553 1.27 sjg #ifdef USE_FILEMON
554 1.27 sjg /* this allows makefiles to test if we have filemon support */
555 1.27 sjg Var_Set(".MAKE.PATH_FILEMON", _PATH_FILEMON, VAR_GLOBAL, 0);
556 1.27 sjg #endif
557 1.27 sjg }
558 1.27 sjg
559 1.27 sjg
560 1.27 sjg /*
561 1.27 sjg * Initialization we need after reading makefiles.
562 1.27 sjg */
563 1.1 sjg void
564 1.27 sjg meta_mode_init(const char *make_mode)
565 1.1 sjg {
566 1.1 sjg static int once = 0;
567 1.12 sjg char *cp;
568 1.1 sjg
569 1.1 sjg useMeta = TRUE;
570 1.1 sjg useFilemon = TRUE;
571 1.1 sjg writeMeta = TRUE;
572 1.1 sjg
573 1.1 sjg if (make_mode) {
574 1.1 sjg if (strstr(make_mode, "env"))
575 1.1 sjg metaEnv = TRUE;
576 1.1 sjg if (strstr(make_mode, "verb"))
577 1.1 sjg metaVerbose = TRUE;
578 1.1 sjg if (strstr(make_mode, "read"))
579 1.1 sjg writeMeta = FALSE;
580 1.1 sjg if (strstr(make_mode, "nofilemon"))
581 1.1 sjg useFilemon = FALSE;
582 1.13 sjg if ((cp = strstr(make_mode, "curdirok="))) {
583 1.13 sjg metaCurdirOk = boolValue(&cp[9]);
584 1.12 sjg }
585 1.22 sjg if ((cp = strstr(make_mode, "silent="))) {
586 1.22 sjg metaSilent = boolValue(&cp[7]);
587 1.22 sjg }
588 1.1 sjg if (strstr(make_mode, "ignore-cmd"))
589 1.1 sjg metaIgnoreCMDs = TRUE;
590 1.1 sjg /* for backwards compatability */
591 1.1 sjg Var_Set(".MAKE.META_CREATED", "${.MAKE.META.CREATED}", VAR_GLOBAL, 0);
592 1.1 sjg Var_Set(".MAKE.META_FILES", "${.MAKE.META.FILES}", VAR_GLOBAL, 0);
593 1.1 sjg }
594 1.1 sjg if (metaVerbose && !Var_Exists(MAKE_META_PREFIX, VAR_GLOBAL)) {
595 1.1 sjg /*
596 1.1 sjg * The default value for MAKE_META_PREFIX
597 1.1 sjg * prints the absolute path of the target.
598 1.1 sjg * This works be cause :H will generate '.' if there is no /
599 1.1 sjg * and :tA will resolve that to cwd.
600 1.1 sjg */
601 1.1 sjg Var_Set(MAKE_META_PREFIX, "Building ${.TARGET:H:tA}/${.TARGET:T}", VAR_GLOBAL, 0);
602 1.1 sjg }
603 1.1 sjg if (once)
604 1.1 sjg return;
605 1.1 sjg once = 1;
606 1.1 sjg memset(&Mybm, 0, sizeof(Mybm));
607 1.17 sjg /*
608 1.17 sjg * We consider ourselves master of all within ${.MAKE.META.BAILIWICK}
609 1.17 sjg */
610 1.17 sjg metaBailiwick = Lst_Init(FALSE);
611 1.53 christos metaBailiwickStr = Var_Subst(NULL, "${.MAKE.META.BAILIWICK:O:u:tA}",
612 1.53 christos VAR_GLOBAL, VARF_WANTRES);
613 1.53 christos if (metaBailiwickStr) {
614 1.53 christos str2Lst_Append(metaBailiwick, metaBailiwickStr, NULL);
615 1.17 sjg }
616 1.32 sjg /*
617 1.32 sjg * We ignore any paths that start with ${.MAKE.META.IGNORE_PATHS}
618 1.32 sjg */
619 1.32 sjg metaIgnorePaths = Lst_Init(FALSE);
620 1.32 sjg Var_Append(MAKE_META_IGNORE_PATHS,
621 1.32 sjg "/dev /etc /proc /tmp /var/run /var/tmp ${TMPDIR}", VAR_GLOBAL);
622 1.53 christos metaIgnorePathsStr = Var_Subst(NULL,
623 1.40 sjg "${" MAKE_META_IGNORE_PATHS ":O:u:tA}", VAR_GLOBAL,
624 1.47 sjg VARF_WANTRES);
625 1.53 christos if (metaIgnorePathsStr) {
626 1.53 christos str2Lst_Append(metaIgnorePaths, metaIgnorePathsStr, NULL);
627 1.32 sjg }
628 1.56 sjg
629 1.56 sjg /*
630 1.56 sjg * We ignore any paths that match ${.MAKE.META.IGNORE_PATTERNS}
631 1.56 sjg */
632 1.56 sjg cp = NULL;
633 1.56 sjg if (Var_Value(MAKE_META_IGNORE_PATTERNS, VAR_GLOBAL, &cp)) {
634 1.56 sjg metaIgnorePatterns = TRUE;
635 1.56 sjg free(cp);
636 1.56 sjg }
637 1.1 sjg }
638 1.1 sjg
639 1.1 sjg /*
640 1.1 sjg * In each case below we allow for job==NULL
641 1.1 sjg */
642 1.1 sjg void
643 1.1 sjg meta_job_start(Job *job, GNode *gn)
644 1.1 sjg {
645 1.1 sjg BuildMon *pbm;
646 1.1 sjg
647 1.1 sjg if (job != NULL) {
648 1.1 sjg pbm = &job->bm;
649 1.1 sjg } else {
650 1.1 sjg pbm = &Mybm;
651 1.1 sjg }
652 1.1 sjg pbm->mfp = meta_create(pbm, gn);
653 1.1 sjg #ifdef USE_FILEMON_ONCE
654 1.1 sjg /* compat mode we open the filemon dev once per command */
655 1.1 sjg if (job == NULL)
656 1.1 sjg return;
657 1.1 sjg #endif
658 1.1 sjg #ifdef USE_FILEMON
659 1.1 sjg if (pbm->mfp != NULL && useFilemon) {
660 1.1 sjg filemon_open(pbm);
661 1.1 sjg } else {
662 1.1 sjg pbm->mon_fd = pbm->filemon_fd = -1;
663 1.1 sjg }
664 1.1 sjg #endif
665 1.1 sjg }
666 1.1 sjg
667 1.1 sjg /*
668 1.1 sjg * The child calls this before doing anything.
669 1.1 sjg * It does not disturb our state.
670 1.1 sjg */
671 1.1 sjg void
672 1.1 sjg meta_job_child(Job *job)
673 1.1 sjg {
674 1.1 sjg #ifdef USE_FILEMON
675 1.1 sjg BuildMon *pbm;
676 1.1 sjg
677 1.1 sjg if (job != NULL) {
678 1.1 sjg pbm = &job->bm;
679 1.1 sjg } else {
680 1.1 sjg pbm = &Mybm;
681 1.1 sjg }
682 1.37 sjg if (pbm->mfp != NULL) {
683 1.37 sjg close(fileno(pbm->mfp));
684 1.37 sjg if (useFilemon) {
685 1.37 sjg pid_t pid;
686 1.37 sjg
687 1.37 sjg pid = getpid();
688 1.37 sjg if (ioctl(pbm->filemon_fd, FILEMON_SET_PID, &pid) < 0) {
689 1.37 sjg err(1, "Could not set filemon pid!");
690 1.37 sjg }
691 1.1 sjg }
692 1.1 sjg }
693 1.1 sjg #endif
694 1.1 sjg }
695 1.1 sjg
696 1.1 sjg void
697 1.1 sjg meta_job_error(Job *job, GNode *gn, int flags, int status)
698 1.1 sjg {
699 1.1 sjg char cwd[MAXPATHLEN];
700 1.1 sjg BuildMon *pbm;
701 1.1 sjg
702 1.1 sjg if (job != NULL) {
703 1.1 sjg pbm = &job->bm;
704 1.1 sjg if (!gn)
705 1.1 sjg gn = job->node;
706 1.52 christos } else {
707 1.1 sjg pbm = &Mybm;
708 1.1 sjg }
709 1.1 sjg if (pbm->mfp != NULL) {
710 1.1 sjg fprintf(pbm->mfp, "*** Error code %d%s\n",
711 1.1 sjg status,
712 1.1 sjg (flags & JOB_IGNERR) ?
713 1.1 sjg "(ignored)" : "");
714 1.1 sjg }
715 1.1 sjg if (gn) {
716 1.1 sjg Var_Set(".ERROR_TARGET", gn->path ? gn->path : gn->name, VAR_GLOBAL, 0);
717 1.1 sjg }
718 1.1 sjg getcwd(cwd, sizeof(cwd));
719 1.1 sjg Var_Set(".ERROR_CWD", cwd, VAR_GLOBAL, 0);
720 1.49 christos if (pbm->meta_fname[0]) {
721 1.1 sjg Var_Set(".ERROR_META_FILE", pbm->meta_fname, VAR_GLOBAL, 0);
722 1.1 sjg }
723 1.16 sjg meta_job_finish(job);
724 1.1 sjg }
725 1.1 sjg
726 1.1 sjg void
727 1.1 sjg meta_job_output(Job *job, char *cp, const char *nl)
728 1.1 sjg {
729 1.1 sjg BuildMon *pbm;
730 1.1 sjg
731 1.1 sjg if (job != NULL) {
732 1.1 sjg pbm = &job->bm;
733 1.1 sjg } else {
734 1.1 sjg pbm = &Mybm;
735 1.1 sjg }
736 1.1 sjg if (pbm->mfp != NULL) {
737 1.1 sjg if (metaVerbose) {
738 1.1 sjg static char *meta_prefix = NULL;
739 1.1 sjg static int meta_prefix_len;
740 1.1 sjg
741 1.1 sjg if (!meta_prefix) {
742 1.1 sjg char *cp2;
743 1.1 sjg
744 1.40 sjg meta_prefix = Var_Subst(NULL, "${" MAKE_META_PREFIX "}",
745 1.47 sjg VAR_GLOBAL, VARF_WANTRES);
746 1.1 sjg if ((cp2 = strchr(meta_prefix, '$')))
747 1.1 sjg meta_prefix_len = cp2 - meta_prefix;
748 1.1 sjg else
749 1.1 sjg meta_prefix_len = strlen(meta_prefix);
750 1.1 sjg }
751 1.1 sjg if (strncmp(cp, meta_prefix, meta_prefix_len) == 0) {
752 1.1 sjg cp = strchr(cp+1, '\n');
753 1.1 sjg if (!cp++)
754 1.1 sjg return;
755 1.1 sjg }
756 1.1 sjg }
757 1.1 sjg fprintf(pbm->mfp, "%s%s", cp, nl);
758 1.1 sjg }
759 1.1 sjg }
760 1.1 sjg
761 1.57 sjg int
762 1.1 sjg meta_cmd_finish(void *pbmp)
763 1.1 sjg {
764 1.57 sjg int error = 0;
765 1.1 sjg #ifdef USE_FILEMON
766 1.1 sjg BuildMon *pbm = pbmp;
767 1.57 sjg int x;
768 1.1 sjg
769 1.1 sjg if (!pbm)
770 1.1 sjg pbm = &Mybm;
771 1.1 sjg
772 1.1 sjg if (pbm->filemon_fd >= 0) {
773 1.57 sjg if (close(pbm->filemon_fd) < 0)
774 1.57 sjg error = errno;
775 1.57 sjg x = filemon_read(pbm->mfp, pbm->mon_fd);
776 1.57 sjg if (error == 0 && x != 0)
777 1.57 sjg error = x;
778 1.1 sjg pbm->filemon_fd = pbm->mon_fd = -1;
779 1.1 sjg }
780 1.1 sjg #endif
781 1.57 sjg return error;
782 1.1 sjg }
783 1.1 sjg
784 1.57 sjg int
785 1.1 sjg meta_job_finish(Job *job)
786 1.1 sjg {
787 1.1 sjg BuildMon *pbm;
788 1.57 sjg int error = 0;
789 1.57 sjg int x;
790 1.1 sjg
791 1.1 sjg if (job != NULL) {
792 1.1 sjg pbm = &job->bm;
793 1.1 sjg } else {
794 1.1 sjg pbm = &Mybm;
795 1.1 sjg }
796 1.1 sjg if (pbm->mfp != NULL) {
797 1.57 sjg error = meta_cmd_finish(pbm);
798 1.57 sjg x = fclose(pbm->mfp);
799 1.57 sjg if (error == 0 && x != 0)
800 1.57 sjg error = errno;
801 1.1 sjg pbm->mfp = NULL;
802 1.6 sjg pbm->meta_fname[0] = '\0';
803 1.1 sjg }
804 1.57 sjg return error;
805 1.1 sjg }
806 1.1 sjg
807 1.53 christos void
808 1.53 christos meta_finish(void)
809 1.53 christos {
810 1.53 christos Lst_Destroy(metaBailiwick, NULL);
811 1.53 christos free(metaBailiwickStr);
812 1.53 christos Lst_Destroy(metaIgnorePaths, NULL);
813 1.53 christos free(metaIgnorePathsStr);
814 1.53 christos }
815 1.53 christos
816 1.1 sjg /*
817 1.1 sjg * Fetch a full line from fp - growing bufp if needed
818 1.1 sjg * Return length in bufp.
819 1.1 sjg */
820 1.1 sjg static int
821 1.1 sjg fgetLine(char **bufp, size_t *szp, int o, FILE *fp)
822 1.1 sjg {
823 1.1 sjg char *buf = *bufp;
824 1.1 sjg size_t bufsz = *szp;
825 1.1 sjg struct stat fs;
826 1.1 sjg int x;
827 1.1 sjg
828 1.1 sjg if (fgets(&buf[o], bufsz - o, fp) != NULL) {
829 1.1 sjg check_newline:
830 1.1 sjg x = o + strlen(&buf[o]);
831 1.1 sjg if (buf[x - 1] == '\n')
832 1.1 sjg return x;
833 1.1 sjg /*
834 1.1 sjg * We need to grow the buffer.
835 1.1 sjg * The meta file can give us a clue.
836 1.1 sjg */
837 1.1 sjg if (fstat(fileno(fp), &fs) == 0) {
838 1.1 sjg size_t newsz;
839 1.1 sjg char *p;
840 1.1 sjg
841 1.1 sjg newsz = ROUNDUP((fs.st_size / 2), BUFSIZ);
842 1.1 sjg if (newsz <= bufsz)
843 1.1 sjg newsz = ROUNDUP(fs.st_size, BUFSIZ);
844 1.1 sjg if (DEBUG(META))
845 1.19 sjg fprintf(debug_file, "growing buffer %zu -> %zu\n",
846 1.19 sjg bufsz, newsz);
847 1.1 sjg p = bmake_realloc(buf, newsz);
848 1.1 sjg if (p) {
849 1.1 sjg *bufp = buf = p;
850 1.1 sjg *szp = bufsz = newsz;
851 1.1 sjg /* fetch the rest */
852 1.1 sjg if (!fgets(&buf[x], bufsz - x, fp))
853 1.1 sjg return x; /* truncated! */
854 1.1 sjg goto check_newline;
855 1.1 sjg }
856 1.1 sjg }
857 1.1 sjg }
858 1.1 sjg return 0;
859 1.1 sjg }
860 1.1 sjg
861 1.17 sjg static int
862 1.17 sjg prefix_match(void *p, void *q)
863 1.17 sjg {
864 1.17 sjg const char *prefix = p;
865 1.17 sjg const char *path = q;
866 1.17 sjg size_t n = strlen(prefix);
867 1.17 sjg
868 1.17 sjg return (0 == strncmp(path, prefix, n));
869 1.17 sjg }
870 1.17 sjg
871 1.17 sjg static int
872 1.17 sjg string_match(const void *p, const void *q)
873 1.17 sjg {
874 1.17 sjg const char *p1 = p;
875 1.17 sjg const char *p2 = q;
876 1.17 sjg
877 1.17 sjg return strcmp(p1, p2);
878 1.17 sjg }
879 1.17 sjg
880 1.17 sjg
881 1.1 sjg /*
882 1.1 sjg * When running with 'meta' functionality, a target can be out-of-date
883 1.34 snj * if any of the references in its meta data file is more recent.
884 1.5 sjg * We have to track the latestdir on a per-process basis.
885 1.1 sjg */
886 1.38 sjg #define LCWD_VNAME_FMT ".meta.%d.lcwd"
887 1.5 sjg #define LDIR_VNAME_FMT ".meta.%d.ldir"
888 1.5 sjg
889 1.20 sjg /*
890 1.20 sjg * It is possible that a .meta file is corrupted,
891 1.20 sjg * if we detect this we want to reproduce it.
892 1.20 sjg * Setting oodate TRUE will have that effect.
893 1.20 sjg */
894 1.20 sjg #define CHECK_VALID_META(p) if (!(p && *p)) { \
895 1.20 sjg warnx("%s: %d: malformed", fname, lineno); \
896 1.20 sjg oodate = TRUE; \
897 1.20 sjg continue; \
898 1.20 sjg }
899 1.20 sjg
900 1.33 sjg #define DEQUOTE(p) if (*p == '\'') { \
901 1.33 sjg char *ep; \
902 1.33 sjg p++; \
903 1.33 sjg if ((ep = strchr(p, '\''))) \
904 1.33 sjg *ep = '\0'; \
905 1.33 sjg }
906 1.33 sjg
907 1.1 sjg Boolean
908 1.1 sjg meta_oodate(GNode *gn, Boolean oodate)
909 1.1 sjg {
910 1.5 sjg static char *tmpdir = NULL;
911 1.11 sjg static char cwd[MAXPATHLEN];
912 1.38 sjg char lcwd_vname[64];
913 1.5 sjg char ldir_vname[64];
914 1.38 sjg char lcwd[MAXPATHLEN];
915 1.1 sjg char latestdir[MAXPATHLEN];
916 1.1 sjg char fname[MAXPATHLEN];
917 1.1 sjg char fname1[MAXPATHLEN];
918 1.5 sjg char fname2[MAXPATHLEN];
919 1.38 sjg char fname3[MAXPATHLEN];
920 1.1 sjg char *p;
921 1.1 sjg char *cp;
922 1.33 sjg char *link_src;
923 1.33 sjg char *move_target;
924 1.11 sjg static size_t cwdlen = 0;
925 1.7 sjg static size_t tmplen = 0;
926 1.1 sjg FILE *fp;
927 1.26 sjg Boolean needOODATE = FALSE;
928 1.17 sjg Lst missingFiles;
929 1.17 sjg
930 1.4 sjg if (oodate)
931 1.4 sjg return oodate; /* we're done */
932 1.4 sjg
933 1.17 sjg missingFiles = Lst_Init(FALSE);
934 1.17 sjg
935 1.1 sjg /*
936 1.1 sjg * We need to check if the target is out-of-date. This includes
937 1.1 sjg * checking if the expanded command has changed. This in turn
938 1.1 sjg * requires that all variables are set in the same way that they
939 1.1 sjg * would be if the target needs to be re-built.
940 1.1 sjg */
941 1.1 sjg Make_DoAllVar(gn);
942 1.1 sjg
943 1.1 sjg meta_name(gn, fname, sizeof(fname), NULL, NULL);
944 1.1 sjg
945 1.8 sjg #ifdef DEBUG_META_MODE
946 1.8 sjg if (DEBUG(META))
947 1.8 sjg fprintf(debug_file, "meta_oodate: %s\n", fname);
948 1.8 sjg #endif
949 1.8 sjg
950 1.1 sjg if ((fp = fopen(fname, "r")) != NULL) {
951 1.1 sjg static char *buf = NULL;
952 1.1 sjg static size_t bufsz;
953 1.1 sjg int lineno = 0;
954 1.5 sjg int lastpid = 0;
955 1.5 sjg int pid;
956 1.1 sjg int f = 0;
957 1.1 sjg int x;
958 1.1 sjg LstNode ln;
959 1.1 sjg struct stat fs;
960 1.1 sjg
961 1.1 sjg if (!buf) {
962 1.1 sjg bufsz = 8 * BUFSIZ;
963 1.1 sjg buf = bmake_malloc(bufsz);
964 1.1 sjg }
965 1.5 sjg
966 1.11 sjg if (!cwdlen) {
967 1.11 sjg if (getcwd(cwd, sizeof(cwd)) == NULL)
968 1.11 sjg err(1, "Could not get current working directory");
969 1.11 sjg cwdlen = strlen(cwd);
970 1.11 sjg }
971 1.38 sjg strlcpy(lcwd, cwd, sizeof(lcwd));
972 1.38 sjg strlcpy(latestdir, cwd, sizeof(latestdir));
973 1.11 sjg
974 1.5 sjg if (!tmpdir) {
975 1.5 sjg tmpdir = getTmpdir();
976 1.5 sjg tmplen = strlen(tmpdir);
977 1.5 sjg }
978 1.5 sjg
979 1.1 sjg /* we want to track all the .meta we read */
980 1.1 sjg Var_Append(".MAKE.META.FILES", fname, VAR_GLOBAL);
981 1.1 sjg
982 1.1 sjg ln = Lst_First(gn->commands);
983 1.1 sjg while (!oodate && (x = fgetLine(&buf, &bufsz, 0, fp)) > 0) {
984 1.1 sjg lineno++;
985 1.1 sjg if (buf[x - 1] == '\n')
986 1.1 sjg buf[x - 1] = '\0';
987 1.20 sjg else {
988 1.1 sjg warnx("%s: %d: line truncated at %u", fname, lineno, x);
989 1.20 sjg oodate = TRUE;
990 1.20 sjg break;
991 1.20 sjg }
992 1.33 sjg link_src = NULL;
993 1.33 sjg move_target = NULL;
994 1.1 sjg /* Find the start of the build monitor section. */
995 1.1 sjg if (!f) {
996 1.1 sjg if (strncmp(buf, "-- filemon", 10) == 0) {
997 1.1 sjg f = 1;
998 1.1 sjg continue;
999 1.1 sjg }
1000 1.1 sjg if (strncmp(buf, "# buildmon", 10) == 0) {
1001 1.1 sjg f = 1;
1002 1.1 sjg continue;
1003 1.1 sjg }
1004 1.1 sjg }
1005 1.1 sjg
1006 1.1 sjg /* Delimit the record type. */
1007 1.1 sjg p = buf;
1008 1.7 sjg #ifdef DEBUG_META_MODE
1009 1.7 sjg if (DEBUG(META))
1010 1.7 sjg fprintf(debug_file, "%s: %d: %s\n", fname, lineno, buf);
1011 1.7 sjg #endif
1012 1.1 sjg strsep(&p, " ");
1013 1.1 sjg if (f) {
1014 1.5 sjg /*
1015 1.5 sjg * We are in the 'filemon' output section.
1016 1.5 sjg * Each record from filemon follows the general form:
1017 1.5 sjg *
1018 1.5 sjg * <key> <pid> <data>
1019 1.5 sjg *
1020 1.5 sjg * Where:
1021 1.5 sjg * <key> is a single letter, denoting the syscall.
1022 1.5 sjg * <pid> is the process that made the syscall.
1023 1.5 sjg * <data> is the arguments (of interest).
1024 1.5 sjg */
1025 1.5 sjg switch(buf[0]) {
1026 1.5 sjg case '#': /* comment */
1027 1.5 sjg case 'V': /* version */
1028 1.5 sjg break;
1029 1.5 sjg default:
1030 1.5 sjg /*
1031 1.5 sjg * We need to track pathnames per-process.
1032 1.5 sjg *
1033 1.5 sjg * Each process run by make, starts off in the 'CWD'
1034 1.5 sjg * recorded in the .meta file, if it chdirs ('C')
1035 1.5 sjg * elsewhere we need to track that - but only for
1036 1.5 sjg * that process. If it forks ('F'), we initialize
1037 1.5 sjg * the child to have the same cwd as its parent.
1038 1.5 sjg *
1039 1.5 sjg * We also need to track the 'latestdir' of
1040 1.5 sjg * interest. This is usually the same as cwd, but
1041 1.5 sjg * not if a process is reading directories.
1042 1.5 sjg *
1043 1.5 sjg * Each time we spot a different process ('pid')
1044 1.5 sjg * we save the current value of 'latestdir' in a
1045 1.5 sjg * variable qualified by 'lastpid', and
1046 1.5 sjg * re-initialize 'latestdir' to any pre-saved
1047 1.5 sjg * value for the current 'pid' and 'CWD' if none.
1048 1.5 sjg */
1049 1.20 sjg CHECK_VALID_META(p);
1050 1.5 sjg pid = atoi(p);
1051 1.5 sjg if (pid > 0 && pid != lastpid) {
1052 1.5 sjg char *ldir;
1053 1.5 sjg char *tp;
1054 1.5 sjg
1055 1.5 sjg if (lastpid > 0) {
1056 1.38 sjg /* We need to remember these. */
1057 1.38 sjg Var_Set(lcwd_vname, lcwd, VAR_GLOBAL, 0);
1058 1.5 sjg Var_Set(ldir_vname, latestdir, VAR_GLOBAL, 0);
1059 1.5 sjg }
1060 1.38 sjg snprintf(lcwd_vname, sizeof(lcwd_vname), LCWD_VNAME_FMT, pid);
1061 1.5 sjg snprintf(ldir_vname, sizeof(ldir_vname), LDIR_VNAME_FMT, pid);
1062 1.5 sjg lastpid = pid;
1063 1.5 sjg ldir = Var_Value(ldir_vname, VAR_GLOBAL, &tp);
1064 1.5 sjg if (ldir) {
1065 1.5 sjg strlcpy(latestdir, ldir, sizeof(latestdir));
1066 1.44 christos free(tp);
1067 1.38 sjg }
1068 1.38 sjg ldir = Var_Value(lcwd_vname, VAR_GLOBAL, &tp);
1069 1.38 sjg if (ldir) {
1070 1.38 sjg strlcpy(lcwd, ldir, sizeof(lcwd));
1071 1.44 christos free(tp);
1072 1.38 sjg }
1073 1.5 sjg }
1074 1.5 sjg /* Skip past the pid. */
1075 1.5 sjg if (strsep(&p, " ") == NULL)
1076 1.5 sjg continue;
1077 1.7 sjg #ifdef DEBUG_META_MODE
1078 1.7 sjg if (DEBUG(META))
1079 1.38 sjg fprintf(debug_file, "%s: %d: %d: %c: cwd=%s lcwd=%s ldir=%s\n",
1080 1.38 sjg fname, lineno,
1081 1.38 sjg pid, buf[0], cwd, lcwd, latestdir);
1082 1.7 sjg #endif
1083 1.5 sjg break;
1084 1.5 sjg }
1085 1.5 sjg
1086 1.20 sjg CHECK_VALID_META(p);
1087 1.20 sjg
1088 1.1 sjg /* Process according to record type. */
1089 1.1 sjg switch (buf[0]) {
1090 1.5 sjg case 'X': /* eXit */
1091 1.38 sjg Var_Delete(lcwd_vname, VAR_GLOBAL);
1092 1.5 sjg Var_Delete(ldir_vname, VAR_GLOBAL);
1093 1.5 sjg lastpid = 0; /* no need to save ldir_vname */
1094 1.5 sjg break;
1095 1.5 sjg
1096 1.5 sjg case 'F': /* [v]Fork */
1097 1.5 sjg {
1098 1.5 sjg char cldir[64];
1099 1.5 sjg int child;
1100 1.5 sjg
1101 1.5 sjg child = atoi(p);
1102 1.5 sjg if (child > 0) {
1103 1.38 sjg snprintf(cldir, sizeof(cldir), LCWD_VNAME_FMT, child);
1104 1.38 sjg Var_Set(cldir, lcwd, VAR_GLOBAL, 0);
1105 1.5 sjg snprintf(cldir, sizeof(cldir), LDIR_VNAME_FMT, child);
1106 1.5 sjg Var_Set(cldir, latestdir, VAR_GLOBAL, 0);
1107 1.38 sjg #ifdef DEBUG_META_MODE
1108 1.38 sjg if (DEBUG(META))
1109 1.38 sjg fprintf(debug_file, "%s: %d: %d: cwd=%s lcwd=%s ldir=%s\n",
1110 1.38 sjg fname, lineno,
1111 1.38 sjg child, cwd, lcwd, latestdir);
1112 1.38 sjg #endif
1113 1.5 sjg }
1114 1.5 sjg }
1115 1.5 sjg break;
1116 1.1 sjg
1117 1.5 sjg case 'C': /* Chdir */
1118 1.38 sjg /* Update lcwd and latest directory. */
1119 1.38 sjg strlcpy(latestdir, p, sizeof(latestdir));
1120 1.38 sjg strlcpy(lcwd, p, sizeof(lcwd));
1121 1.38 sjg Var_Set(lcwd_vname, lcwd, VAR_GLOBAL, 0);
1122 1.38 sjg Var_Set(ldir_vname, lcwd, VAR_GLOBAL, 0);
1123 1.38 sjg #ifdef DEBUG_META_MODE
1124 1.38 sjg if (DEBUG(META))
1125 1.38 sjg fprintf(debug_file, "%s: %d: cwd=%s ldir=%s\n", fname, lineno, cwd, lcwd);
1126 1.38 sjg #endif
1127 1.1 sjg break;
1128 1.1 sjg
1129 1.17 sjg case 'M': /* renaMe */
1130 1.33 sjg /*
1131 1.33 sjg * For 'M'oves we want to check
1132 1.33 sjg * the src as for 'R'ead
1133 1.33 sjg * and the target as for 'W'rite.
1134 1.33 sjg */
1135 1.33 sjg cp = p; /* save this for a second */
1136 1.33 sjg /* now get target */
1137 1.33 sjg if (strsep(&p, " ") == NULL)
1138 1.33 sjg continue;
1139 1.33 sjg CHECK_VALID_META(p);
1140 1.33 sjg move_target = p;
1141 1.33 sjg p = cp;
1142 1.17 sjg /* 'L' and 'M' put single quotes around the args */
1143 1.33 sjg DEQUOTE(p);
1144 1.33 sjg DEQUOTE(move_target);
1145 1.17 sjg /* FALLTHROUGH */
1146 1.17 sjg case 'D': /* unlink */
1147 1.17 sjg if (*p == '/' && !Lst_IsEmpty(missingFiles)) {
1148 1.17 sjg /* remove p from the missingFiles list if present */
1149 1.17 sjg if ((ln = Lst_Find(missingFiles, p, string_match)) != NULL) {
1150 1.17 sjg char *tp = Lst_Datum(ln);
1151 1.17 sjg Lst_Remove(missingFiles, ln);
1152 1.17 sjg free(tp);
1153 1.28 sjg ln = NULL; /* we're done with it */
1154 1.17 sjg }
1155 1.17 sjg }
1156 1.33 sjg if (buf[0] == 'M') {
1157 1.33 sjg /* the target of the mv is a file 'W'ritten */
1158 1.33 sjg #ifdef DEBUG_META_MODE
1159 1.33 sjg if (DEBUG(META))
1160 1.33 sjg fprintf(debug_file, "meta_oodate: M %s -> %s\n",
1161 1.33 sjg p, move_target);
1162 1.33 sjg #endif
1163 1.33 sjg p = move_target;
1164 1.33 sjg goto check_write;
1165 1.33 sjg }
1166 1.17 sjg break;
1167 1.17 sjg case 'L': /* Link */
1168 1.33 sjg /*
1169 1.33 sjg * For 'L'inks check
1170 1.33 sjg * the src as for 'R'ead
1171 1.33 sjg * and the target as for 'W'rite.
1172 1.33 sjg */
1173 1.33 sjg link_src = p;
1174 1.33 sjg /* now get target */
1175 1.17 sjg if (strsep(&p, " ") == NULL)
1176 1.17 sjg continue;
1177 1.20 sjg CHECK_VALID_META(p);
1178 1.17 sjg /* 'L' and 'M' put single quotes around the args */
1179 1.33 sjg DEQUOTE(p);
1180 1.33 sjg DEQUOTE(link_src);
1181 1.33 sjg #ifdef DEBUG_META_MODE
1182 1.33 sjg if (DEBUG(META))
1183 1.33 sjg fprintf(debug_file, "meta_oodate: L %s -> %s\n",
1184 1.33 sjg link_src, p);
1185 1.33 sjg #endif
1186 1.17 sjg /* FALLTHROUGH */
1187 1.17 sjg case 'W': /* Write */
1188 1.33 sjg check_write:
1189 1.17 sjg /*
1190 1.17 sjg * If a file we generated within our bailiwick
1191 1.17 sjg * but outside of .OBJDIR is missing,
1192 1.17 sjg * we need to do it again.
1193 1.17 sjg */
1194 1.17 sjg /* ignore non-absolute paths */
1195 1.17 sjg if (*p != '/')
1196 1.17 sjg break;
1197 1.17 sjg
1198 1.17 sjg if (Lst_IsEmpty(metaBailiwick))
1199 1.17 sjg break;
1200 1.17 sjg
1201 1.17 sjg /* ignore cwd - normal dependencies handle those */
1202 1.17 sjg if (strncmp(p, cwd, cwdlen) == 0)
1203 1.17 sjg break;
1204 1.17 sjg
1205 1.17 sjg if (!Lst_ForEach(metaBailiwick, prefix_match, p))
1206 1.17 sjg break;
1207 1.17 sjg
1208 1.17 sjg /* tmpdir might be within */
1209 1.17 sjg if (tmplen > 0 && strncmp(p, tmpdir, tmplen) == 0)
1210 1.17 sjg break;
1211 1.17 sjg
1212 1.17 sjg /* ignore anything containing the string "tmp" */
1213 1.17 sjg if ((strstr("tmp", p)))
1214 1.17 sjg break;
1215 1.17 sjg
1216 1.41 sjg if ((link_src != NULL && lstat(p, &fs) < 0) ||
1217 1.41 sjg (link_src == NULL && stat(p, &fs) < 0)) {
1218 1.54 sjg if (Lst_Find(missingFiles, p, string_match) == NULL)
1219 1.54 sjg Lst_AtEnd(missingFiles, bmake_strdup(p));
1220 1.17 sjg }
1221 1.17 sjg break;
1222 1.33 sjg check_link_src:
1223 1.33 sjg p = link_src;
1224 1.33 sjg link_src = NULL;
1225 1.33 sjg #ifdef DEBUG_META_MODE
1226 1.33 sjg if (DEBUG(META))
1227 1.33 sjg fprintf(debug_file, "meta_oodate: L src %s\n", p);
1228 1.33 sjg #endif
1229 1.33 sjg /* FALLTHROUGH */
1230 1.5 sjg case 'R': /* Read */
1231 1.5 sjg case 'E': /* Exec */
1232 1.1 sjg /*
1233 1.1 sjg * Check for runtime files that can't
1234 1.1 sjg * be part of the dependencies because
1235 1.1 sjg * they are _expected_ to change.
1236 1.1 sjg */
1237 1.55 sjg if (*p == '/') {
1238 1.55 sjg realpath(p, fname1); /* clean it up */
1239 1.55 sjg if (Lst_ForEach(metaIgnorePaths, prefix_match, fname1)) {
1240 1.32 sjg #ifdef DEBUG_META_MODE
1241 1.55 sjg if (DEBUG(META))
1242 1.56 sjg fprintf(debug_file, "meta_oodate: ignoring path: %s\n",
1243 1.56 sjg p);
1244 1.56 sjg #endif
1245 1.56 sjg break;
1246 1.56 sjg }
1247 1.56 sjg }
1248 1.56 sjg
1249 1.56 sjg if (metaIgnorePatterns) {
1250 1.56 sjg char *pm;
1251 1.56 sjg
1252 1.56 sjg snprintf(fname1, sizeof(fname1),
1253 1.56 sjg "${%s:@m@${%s:L:M$m}@}",
1254 1.56 sjg MAKE_META_IGNORE_PATTERNS, p);
1255 1.56 sjg pm = Var_Subst(NULL, fname1, gn, VARF_WANTRES);
1256 1.56 sjg if (*pm) {
1257 1.56 sjg #ifdef DEBUG_META_MODE
1258 1.56 sjg if (DEBUG(META))
1259 1.56 sjg fprintf(debug_file, "meta_oodate: ignoring pattern: %s\n",
1260 1.55 sjg p);
1261 1.32 sjg #endif
1262 1.56 sjg free(pm);
1263 1.55 sjg break;
1264 1.55 sjg }
1265 1.56 sjg free(pm);
1266 1.32 sjg }
1267 1.31 sjg
1268 1.1 sjg /*
1269 1.5 sjg * The rest of the record is the file name.
1270 1.5 sjg * Check if it's not an absolute path.
1271 1.1 sjg */
1272 1.5 sjg {
1273 1.5 sjg char *sdirs[4];
1274 1.5 sjg char **sdp;
1275 1.5 sjg int sdx = 0;
1276 1.5 sjg int found = 0;
1277 1.5 sjg
1278 1.5 sjg if (*p == '/') {
1279 1.5 sjg sdirs[sdx++] = p; /* done */
1280 1.5 sjg } else {
1281 1.5 sjg if (strcmp(".", p) == 0)
1282 1.5 sjg continue; /* no point */
1283 1.5 sjg
1284 1.5 sjg /* Check vs latestdir */
1285 1.5 sjg snprintf(fname1, sizeof(fname1), "%s/%s", latestdir, p);
1286 1.5 sjg sdirs[sdx++] = fname1;
1287 1.5 sjg
1288 1.38 sjg if (strcmp(latestdir, lcwd) != 0) {
1289 1.38 sjg /* Check vs lcwd */
1290 1.38 sjg snprintf(fname2, sizeof(fname2), "%s/%s", lcwd, p);
1291 1.38 sjg sdirs[sdx++] = fname2;
1292 1.38 sjg }
1293 1.38 sjg if (strcmp(lcwd, cwd) != 0) {
1294 1.5 sjg /* Check vs cwd */
1295 1.38 sjg snprintf(fname3, sizeof(fname3), "%s/%s", cwd, p);
1296 1.38 sjg sdirs[sdx++] = fname3;
1297 1.5 sjg }
1298 1.5 sjg }
1299 1.5 sjg sdirs[sdx++] = NULL;
1300 1.1 sjg
1301 1.5 sjg for (sdp = sdirs; *sdp && !found; sdp++) {
1302 1.7 sjg #ifdef DEBUG_META_MODE
1303 1.7 sjg if (DEBUG(META))
1304 1.7 sjg fprintf(debug_file, "%s: %d: looking for: %s\n", fname, lineno, *sdp);
1305 1.7 sjg #endif
1306 1.5 sjg if (stat(*sdp, &fs) == 0) {
1307 1.5 sjg found = 1;
1308 1.5 sjg p = *sdp;
1309 1.5 sjg }
1310 1.5 sjg }
1311 1.5 sjg if (found) {
1312 1.7 sjg #ifdef DEBUG_META_MODE
1313 1.7 sjg if (DEBUG(META))
1314 1.7 sjg fprintf(debug_file, "%s: %d: found: %s\n", fname, lineno, p);
1315 1.7 sjg #endif
1316 1.5 sjg if (!S_ISDIR(fs.st_mode) &&
1317 1.5 sjg fs.st_mtime > gn->mtime) {
1318 1.5 sjg if (DEBUG(META))
1319 1.5 sjg fprintf(debug_file, "%s: %d: file '%s' is newer than the target...\n", fname, lineno, p);
1320 1.5 sjg oodate = TRUE;
1321 1.5 sjg } else if (S_ISDIR(fs.st_mode)) {
1322 1.5 sjg /* Update the latest directory. */
1323 1.5 sjg realpath(p, latestdir);
1324 1.5 sjg }
1325 1.5 sjg } else if (errno == ENOENT && *p == '/' &&
1326 1.5 sjg strncmp(p, cwd, cwdlen) != 0) {
1327 1.5 sjg /*
1328 1.5 sjg * A referenced file outside of CWD is missing.
1329 1.5 sjg * We cannot catch every eventuality here...
1330 1.5 sjg */
1331 1.54 sjg if (Lst_Find(missingFiles, p, string_match) == NULL)
1332 1.54 sjg Lst_AtEnd(missingFiles, bmake_strdup(p));
1333 1.4 sjg }
1334 1.1 sjg }
1335 1.38 sjg if (buf[0] == 'E') {
1336 1.38 sjg /* previous latestdir is no longer relevant */
1337 1.38 sjg strlcpy(latestdir, lcwd, sizeof(latestdir));
1338 1.38 sjg }
1339 1.1 sjg break;
1340 1.1 sjg default:
1341 1.1 sjg break;
1342 1.1 sjg }
1343 1.33 sjg if (!oodate && buf[0] == 'L' && link_src != NULL)
1344 1.33 sjg goto check_link_src;
1345 1.5 sjg } else if (strcmp(buf, "CMD") == 0) {
1346 1.1 sjg /*
1347 1.1 sjg * Compare the current command with the one in the
1348 1.1 sjg * meta data file.
1349 1.1 sjg */
1350 1.1 sjg if (ln == NULL) {
1351 1.1 sjg if (DEBUG(META))
1352 1.1 sjg fprintf(debug_file, "%s: %d: there were more build commands in the meta data file than there are now...\n", fname, lineno);
1353 1.1 sjg oodate = TRUE;
1354 1.1 sjg } else {
1355 1.1 sjg char *cmd = (char *)Lst_Datum(ln);
1356 1.29 sjg Boolean hasOODATE = FALSE;
1357 1.1 sjg
1358 1.29 sjg if (strstr(cmd, "$?"))
1359 1.29 sjg hasOODATE = TRUE;
1360 1.29 sjg else if ((cp = strstr(cmd, ".OODATE"))) {
1361 1.29 sjg /* check for $[{(].OODATE[:)}] */
1362 1.29 sjg if (cp > cmd + 2 && cp[-2] == '$')
1363 1.29 sjg hasOODATE = TRUE;
1364 1.29 sjg }
1365 1.29 sjg if (hasOODATE) {
1366 1.29 sjg needOODATE = TRUE;
1367 1.29 sjg if (DEBUG(META))
1368 1.29 sjg fprintf(debug_file, "%s: %d: cannot compare command using .OODATE\n", fname, lineno);
1369 1.1 sjg }
1370 1.47 sjg cmd = Var_Subst(NULL, cmd, gn, VARF_WANTRES|VARF_UNDEFERR);
1371 1.1 sjg
1372 1.1 sjg if ((cp = strchr(cmd, '\n'))) {
1373 1.1 sjg int n;
1374 1.1 sjg
1375 1.1 sjg /*
1376 1.1 sjg * This command contains newlines, we need to
1377 1.1 sjg * fetch more from the .meta file before we
1378 1.1 sjg * attempt a comparison.
1379 1.1 sjg */
1380 1.1 sjg /* first put the newline back at buf[x - 1] */
1381 1.1 sjg buf[x - 1] = '\n';
1382 1.1 sjg do {
1383 1.1 sjg /* now fetch the next line */
1384 1.1 sjg if ((n = fgetLine(&buf, &bufsz, x, fp)) <= 0)
1385 1.1 sjg break;
1386 1.1 sjg x = n;
1387 1.1 sjg lineno++;
1388 1.1 sjg if (buf[x - 1] != '\n') {
1389 1.1 sjg warnx("%s: %d: line truncated at %u", fname, lineno, x);
1390 1.1 sjg break;
1391 1.1 sjg }
1392 1.1 sjg cp = strchr(++cp, '\n');
1393 1.1 sjg } while (cp);
1394 1.1 sjg if (buf[x - 1] == '\n')
1395 1.1 sjg buf[x - 1] = '\0';
1396 1.1 sjg }
1397 1.29 sjg if (!hasOODATE &&
1398 1.1 sjg !(gn->type & OP_NOMETA_CMP) &&
1399 1.1 sjg strcmp(p, cmd) != 0) {
1400 1.1 sjg if (DEBUG(META))
1401 1.1 sjg fprintf(debug_file, "%s: %d: a build command has changed\n%s\nvs\n%s\n", fname, lineno, p, cmd);
1402 1.1 sjg if (!metaIgnoreCMDs)
1403 1.1 sjg oodate = TRUE;
1404 1.1 sjg }
1405 1.1 sjg free(cmd);
1406 1.1 sjg ln = Lst_Succ(ln);
1407 1.1 sjg }
1408 1.1 sjg } else if (strcmp(buf, "CWD") == 0) {
1409 1.14 sjg /*
1410 1.14 sjg * Check if there are extra commands now
1411 1.14 sjg * that weren't in the meta data file.
1412 1.14 sjg */
1413 1.14 sjg if (!oodate && ln != NULL) {
1414 1.14 sjg if (DEBUG(META))
1415 1.14 sjg fprintf(debug_file, "%s: %d: there are extra build commands now that weren't in the meta data file\n", fname, lineno);
1416 1.14 sjg oodate = TRUE;
1417 1.14 sjg }
1418 1.11 sjg if (strcmp(p, cwd) != 0) {
1419 1.1 sjg if (DEBUG(META))
1420 1.1 sjg fprintf(debug_file, "%s: %d: the current working directory has changed from '%s' to '%s'\n", fname, lineno, p, curdir);
1421 1.1 sjg oodate = TRUE;
1422 1.1 sjg }
1423 1.1 sjg }
1424 1.1 sjg }
1425 1.1 sjg
1426 1.1 sjg fclose(fp);
1427 1.17 sjg if (!Lst_IsEmpty(missingFiles)) {
1428 1.17 sjg if (DEBUG(META))
1429 1.17 sjg fprintf(debug_file, "%s: missing files: %s...\n",
1430 1.17 sjg fname, (char *)Lst_Datum(Lst_First(missingFiles)));
1431 1.17 sjg oodate = TRUE;
1432 1.17 sjg }
1433 1.21 sjg } else {
1434 1.21 sjg if ((gn->type & OP_META)) {
1435 1.21 sjg if (DEBUG(META))
1436 1.21 sjg fprintf(debug_file, "%s: required but missing\n", fname);
1437 1.21 sjg oodate = TRUE;
1438 1.21 sjg }
1439 1.1 sjg }
1440 1.50 christos
1441 1.50 christos Lst_Destroy(missingFiles, (FreeProc *)free);
1442 1.50 christos
1443 1.26 sjg if (oodate && needOODATE) {
1444 1.4 sjg /*
1445 1.26 sjg * Target uses .OODATE which is empty; or we wouldn't be here.
1446 1.26 sjg * We have decided it is oodate, so .OODATE needs to be set.
1447 1.26 sjg * All we can sanely do is set it to .ALLSRC.
1448 1.4 sjg */
1449 1.4 sjg Var_Delete(OODATE, gn);
1450 1.26 sjg Var_Set(OODATE, Var_Value(ALLSRC, gn, &cp), gn, 0);
1451 1.44 christos free(cp);
1452 1.4 sjg }
1453 1.1 sjg return oodate;
1454 1.1 sjg }
1455 1.1 sjg
1456 1.1 sjg /* support for compat mode */
1457 1.1 sjg
1458 1.1 sjg static int childPipe[2];
1459 1.1 sjg
1460 1.1 sjg void
1461 1.1 sjg meta_compat_start(void)
1462 1.1 sjg {
1463 1.1 sjg #ifdef USE_FILEMON_ONCE
1464 1.1 sjg /*
1465 1.1 sjg * We need to re-open filemon for each cmd.
1466 1.1 sjg */
1467 1.1 sjg BuildMon *pbm = &Mybm;
1468 1.1 sjg
1469 1.1 sjg if (pbm->mfp != NULL && useFilemon) {
1470 1.1 sjg filemon_open(pbm);
1471 1.1 sjg } else {
1472 1.1 sjg pbm->mon_fd = pbm->filemon_fd = -1;
1473 1.1 sjg }
1474 1.1 sjg #endif
1475 1.1 sjg if (pipe(childPipe) < 0)
1476 1.1 sjg Punt("Cannot create pipe: %s", strerror(errno));
1477 1.1 sjg /* Set close-on-exec flag for both */
1478 1.42 christos (void)fcntl(childPipe[0], F_SETFD, FD_CLOEXEC);
1479 1.42 christos (void)fcntl(childPipe[1], F_SETFD, FD_CLOEXEC);
1480 1.1 sjg }
1481 1.1 sjg
1482 1.1 sjg void
1483 1.1 sjg meta_compat_child(void)
1484 1.1 sjg {
1485 1.1 sjg meta_job_child(NULL);
1486 1.1 sjg if (dup2(childPipe[1], 1) < 0 ||
1487 1.1 sjg dup2(1, 2) < 0) {
1488 1.1 sjg execError("dup2", "pipe");
1489 1.1 sjg _exit(1);
1490 1.1 sjg }
1491 1.1 sjg }
1492 1.1 sjg
1493 1.1 sjg void
1494 1.1 sjg meta_compat_parent(void)
1495 1.1 sjg {
1496 1.1 sjg FILE *fp;
1497 1.1 sjg char buf[BUFSIZ];
1498 1.1 sjg
1499 1.1 sjg close(childPipe[1]); /* child side */
1500 1.1 sjg fp = fdopen(childPipe[0], "r");
1501 1.1 sjg while (fgets(buf, sizeof(buf), fp)) {
1502 1.1 sjg meta_job_output(NULL, buf, "");
1503 1.1 sjg printf("%s", buf);
1504 1.1 sjg }
1505 1.1 sjg fclose(fp);
1506 1.1 sjg }
1507 1.3 sjg
1508 1.3 sjg #endif /* USE_META */
1509