1*b778b302SSimon J. Gerraty /* $NetBSD: meta.c,v 1.60 2016/06/04 22:17:14 sjg Exp $ */ 23955d011SMarcel Moolenaar 33955d011SMarcel Moolenaar /* 43955d011SMarcel Moolenaar * Implement 'meta' mode. 53955d011SMarcel Moolenaar * Adapted from John Birrell's patches to FreeBSD make. 63955d011SMarcel Moolenaar * --sjg 73955d011SMarcel Moolenaar */ 83955d011SMarcel Moolenaar /* 9be19d90bSSimon J. Gerraty * Copyright (c) 2009-2016, Juniper Networks, Inc. 103955d011SMarcel Moolenaar * Portions Copyright (c) 2009, John Birrell. 113955d011SMarcel Moolenaar * 123955d011SMarcel Moolenaar * Redistribution and use in source and binary forms, with or without 133955d011SMarcel Moolenaar * modification, are permitted provided that the following conditions 143955d011SMarcel Moolenaar * are met: 153955d011SMarcel Moolenaar * 1. Redistributions of source code must retain the above copyright 163955d011SMarcel Moolenaar * notice, this list of conditions and the following disclaimer. 173955d011SMarcel Moolenaar * 2. Redistributions in binary form must reproduce the above copyright 183955d011SMarcel Moolenaar * notice, this list of conditions and the following disclaimer in the 193955d011SMarcel Moolenaar * documentation and/or other materials provided with the distribution. 203955d011SMarcel Moolenaar * 213955d011SMarcel Moolenaar * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 223955d011SMarcel Moolenaar * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 233955d011SMarcel Moolenaar * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 243955d011SMarcel Moolenaar * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 253955d011SMarcel Moolenaar * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 263955d011SMarcel Moolenaar * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 273955d011SMarcel Moolenaar * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 283955d011SMarcel Moolenaar * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 293955d011SMarcel Moolenaar * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 303955d011SMarcel Moolenaar * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 313955d011SMarcel Moolenaar * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 323955d011SMarcel Moolenaar */ 333955d011SMarcel Moolenaar #if defined(USE_META) 343955d011SMarcel Moolenaar 353955d011SMarcel Moolenaar #ifdef HAVE_CONFIG_H 363955d011SMarcel Moolenaar # include "config.h" 373955d011SMarcel Moolenaar #endif 383955d011SMarcel Moolenaar #include <sys/stat.h> 393955d011SMarcel Moolenaar #include <sys/ioctl.h> 40ac3446e9SSimon J. Gerraty #ifdef HAVE_LIBGEN_H 413955d011SMarcel Moolenaar #include <libgen.h> 42ac3446e9SSimon J. Gerraty #elif !defined(HAVE_DIRNAME) 43ac3446e9SSimon J. Gerraty char * dirname(char *); 44ac3446e9SSimon J. Gerraty #endif 453955d011SMarcel Moolenaar #include <errno.h> 463955d011SMarcel Moolenaar #if !defined(HAVE_CONFIG_H) || defined(HAVE_ERR_H) 473955d011SMarcel Moolenaar #include <err.h> 483955d011SMarcel Moolenaar #endif 493955d011SMarcel Moolenaar 503955d011SMarcel Moolenaar #include "make.h" 513955d011SMarcel Moolenaar #include "job.h" 523955d011SMarcel Moolenaar 533955d011SMarcel Moolenaar #ifdef HAVE_FILEMON_H 543955d011SMarcel Moolenaar # include <filemon.h> 553955d011SMarcel Moolenaar #endif 563955d011SMarcel Moolenaar #if !defined(USE_FILEMON) && defined(FILEMON_SET_FD) 573955d011SMarcel Moolenaar # define USE_FILEMON 583955d011SMarcel Moolenaar #endif 593955d011SMarcel Moolenaar 603955d011SMarcel Moolenaar static BuildMon Mybm; /* for compat */ 613955d011SMarcel Moolenaar static Lst metaBailiwick; /* our scope of control */ 62be19d90bSSimon J. Gerraty static char *metaBailiwickStr; /* string storage for the list */ 6351ee2c1cSSimon J. Gerraty static Lst metaIgnorePaths; /* paths we deliberately ignore */ 64be19d90bSSimon J. Gerraty static char *metaIgnorePathsStr; /* string storage for the list */ 6551ee2c1cSSimon J. Gerraty 6651ee2c1cSSimon J. Gerraty #ifndef MAKE_META_IGNORE_PATHS 6751ee2c1cSSimon J. Gerraty #define MAKE_META_IGNORE_PATHS ".MAKE.META.IGNORE_PATHS" 6851ee2c1cSSimon J. Gerraty #endif 69e48f47ddSSimon J. Gerraty #ifndef MAKE_META_IGNORE_PATTERNS 70e48f47ddSSimon J. Gerraty #define MAKE_META_IGNORE_PATTERNS ".MAKE.META.IGNORE_PATTERNS" 71e48f47ddSSimon J. Gerraty #endif 723955d011SMarcel Moolenaar 733955d011SMarcel Moolenaar Boolean useMeta = FALSE; 743955d011SMarcel Moolenaar static Boolean useFilemon = FALSE; 753955d011SMarcel Moolenaar static Boolean writeMeta = FALSE; 76*b778b302SSimon J. Gerraty static Boolean metaMissing = FALSE; /* oodate if missing */ 77*b778b302SSimon J. Gerraty static Boolean filemonMissing = FALSE; /* oodate if missing */ 783955d011SMarcel Moolenaar static Boolean metaEnv = FALSE; /* don't save env unless asked */ 793955d011SMarcel Moolenaar static Boolean metaVerbose = FALSE; 803955d011SMarcel Moolenaar static Boolean metaIgnoreCMDs = FALSE; /* ignore CMDs in .meta files */ 81e48f47ddSSimon J. Gerraty static Boolean metaIgnorePatterns = FALSE; /* do we need to do pattern matches */ 823955d011SMarcel Moolenaar static Boolean metaCurdirOk = FALSE; /* write .meta in .CURDIR Ok? */ 833955d011SMarcel Moolenaar static Boolean metaSilent = FALSE; /* if we have a .meta be SILENT */ 843955d011SMarcel Moolenaar 853955d011SMarcel Moolenaar extern Boolean forceJobs; 863955d011SMarcel Moolenaar extern Boolean comatMake; 873955d011SMarcel Moolenaar extern char **environ; 883955d011SMarcel Moolenaar 893955d011SMarcel Moolenaar #define MAKE_META_PREFIX ".MAKE.META.PREFIX" 903955d011SMarcel Moolenaar 913955d011SMarcel Moolenaar #ifndef N2U 923955d011SMarcel Moolenaar # define N2U(n, u) (((n) + ((u) - 1)) / (u)) 933955d011SMarcel Moolenaar #endif 943955d011SMarcel Moolenaar #ifndef ROUNDUP 953955d011SMarcel Moolenaar # define ROUNDUP(n, u) (N2U((n), (u)) * (u)) 963955d011SMarcel Moolenaar #endif 973955d011SMarcel Moolenaar 983955d011SMarcel Moolenaar #if !defined(HAVE_STRSEP) 993955d011SMarcel Moolenaar # define strsep(s, d) stresep((s), (d), 0) 1003955d011SMarcel Moolenaar #endif 1013955d011SMarcel Moolenaar 1023955d011SMarcel Moolenaar /* 1033955d011SMarcel Moolenaar * Filemon is a kernel module which snoops certain syscalls. 1043955d011SMarcel Moolenaar * 1053955d011SMarcel Moolenaar * C chdir 1063955d011SMarcel Moolenaar * E exec 1073955d011SMarcel Moolenaar * F [v]fork 1083955d011SMarcel Moolenaar * L [sym]link 1093955d011SMarcel Moolenaar * M rename 1103955d011SMarcel Moolenaar * R read 1113955d011SMarcel Moolenaar * W write 1123955d011SMarcel Moolenaar * S stat 1133955d011SMarcel Moolenaar * 1143955d011SMarcel Moolenaar * See meta_oodate below - we mainly care about 'E' and 'R'. 1153955d011SMarcel Moolenaar * 1163955d011SMarcel Moolenaar * We can still use meta mode without filemon, but 1173955d011SMarcel Moolenaar * the benefits are more limited. 1183955d011SMarcel Moolenaar */ 1193955d011SMarcel Moolenaar #ifdef USE_FILEMON 1203955d011SMarcel Moolenaar # ifndef _PATH_FILEMON 1213955d011SMarcel Moolenaar # define _PATH_FILEMON "/dev/filemon" 1223955d011SMarcel Moolenaar # endif 1233955d011SMarcel Moolenaar 1243955d011SMarcel Moolenaar /* 1253955d011SMarcel Moolenaar * Open the filemon device. 1263955d011SMarcel Moolenaar */ 1273955d011SMarcel Moolenaar static void 1283955d011SMarcel Moolenaar filemon_open(BuildMon *pbm) 1293955d011SMarcel Moolenaar { 1303955d011SMarcel Moolenaar int retry; 1313955d011SMarcel Moolenaar 1323955d011SMarcel Moolenaar pbm->mon_fd = pbm->filemon_fd = -1; 1333955d011SMarcel Moolenaar if (!useFilemon) 1343955d011SMarcel Moolenaar return; 1353955d011SMarcel Moolenaar 1363955d011SMarcel Moolenaar for (retry = 5; retry >= 0; retry--) { 1373955d011SMarcel Moolenaar if ((pbm->filemon_fd = open(_PATH_FILEMON, O_RDWR)) >= 0) 1383955d011SMarcel Moolenaar break; 1393955d011SMarcel Moolenaar } 1403955d011SMarcel Moolenaar 1413955d011SMarcel Moolenaar if (pbm->filemon_fd < 0) { 1423955d011SMarcel Moolenaar useFilemon = FALSE; 1433955d011SMarcel Moolenaar warn("Could not open %s", _PATH_FILEMON); 1443955d011SMarcel Moolenaar return; 1453955d011SMarcel Moolenaar } 1463955d011SMarcel Moolenaar 1473955d011SMarcel Moolenaar /* 1483955d011SMarcel Moolenaar * We use a file outside of '.' 1493955d011SMarcel Moolenaar * to avoid a FreeBSD kernel bug where unlink invalidates 1503955d011SMarcel Moolenaar * cwd causing getcwd to do a lot more work. 1513955d011SMarcel Moolenaar * We only care about the descriptor. 1523955d011SMarcel Moolenaar */ 1533955d011SMarcel Moolenaar pbm->mon_fd = mkTempFile("filemon.XXXXXX", NULL); 1543955d011SMarcel Moolenaar if (ioctl(pbm->filemon_fd, FILEMON_SET_FD, &pbm->mon_fd) < 0) { 1553955d011SMarcel Moolenaar err(1, "Could not set filemon file descriptor!"); 1563955d011SMarcel Moolenaar } 1573955d011SMarcel Moolenaar /* we don't need these once we exec */ 158be19d90bSSimon J. Gerraty (void)fcntl(pbm->mon_fd, F_SETFD, FD_CLOEXEC); 159be19d90bSSimon J. Gerraty (void)fcntl(pbm->filemon_fd, F_SETFD, FD_CLOEXEC); 1603955d011SMarcel Moolenaar } 1613955d011SMarcel Moolenaar 1623955d011SMarcel Moolenaar /* 1633955d011SMarcel Moolenaar * Read the build monitor output file and write records to the target's 1643955d011SMarcel Moolenaar * metadata file. 1653955d011SMarcel Moolenaar */ 166e48f47ddSSimon J. Gerraty static int 1673955d011SMarcel Moolenaar filemon_read(FILE *mfp, int fd) 1683955d011SMarcel Moolenaar { 1693955d011SMarcel Moolenaar char buf[BUFSIZ]; 170db29cad8SSimon J. Gerraty int n; 171e48f47ddSSimon J. Gerraty int error; 1723955d011SMarcel Moolenaar 1733955d011SMarcel Moolenaar /* Check if we're not writing to a meta data file.*/ 1743955d011SMarcel Moolenaar if (mfp == NULL) { 1753955d011SMarcel Moolenaar if (fd >= 0) 1763955d011SMarcel Moolenaar close(fd); /* not interested */ 177e48f47ddSSimon J. Gerraty return 0; 1783955d011SMarcel Moolenaar } 1793955d011SMarcel Moolenaar /* rewind */ 1803955d011SMarcel Moolenaar (void)lseek(fd, (off_t)0, SEEK_SET); 1813955d011SMarcel Moolenaar 182e48f47ddSSimon J. Gerraty error = 0; 183bedf67aeSSimon J. Gerraty fprintf(mfp, "\n-- filemon acquired metadata --\n"); 1843955d011SMarcel Moolenaar 185db29cad8SSimon J. Gerraty while ((n = read(fd, buf, sizeof(buf))) > 0) { 186e48f47ddSSimon J. Gerraty if ((int)fwrite(buf, 1, n, mfp) < n) 187e48f47ddSSimon J. Gerraty error = EIO; 1883955d011SMarcel Moolenaar } 1893955d011SMarcel Moolenaar fflush(mfp); 190e48f47ddSSimon J. Gerraty if (close(fd) < 0) 191e48f47ddSSimon J. Gerraty error = errno; 192e48f47ddSSimon J. Gerraty return error; 1933955d011SMarcel Moolenaar } 1943955d011SMarcel Moolenaar #endif 1953955d011SMarcel Moolenaar 1963955d011SMarcel Moolenaar /* 1973955d011SMarcel Moolenaar * when realpath() fails, 1983955d011SMarcel Moolenaar * we use this, to clean up ./ and ../ 1993955d011SMarcel Moolenaar */ 2003955d011SMarcel Moolenaar static void 2013955d011SMarcel Moolenaar eat_dots(char *buf, size_t bufsz, int dots) 2023955d011SMarcel Moolenaar { 2033955d011SMarcel Moolenaar char *cp; 2043955d011SMarcel Moolenaar char *cp2; 2053955d011SMarcel Moolenaar const char *eat; 2063955d011SMarcel Moolenaar size_t eatlen; 2073955d011SMarcel Moolenaar 2083955d011SMarcel Moolenaar switch (dots) { 2093955d011SMarcel Moolenaar case 1: 2103955d011SMarcel Moolenaar eat = "/./"; 2113955d011SMarcel Moolenaar eatlen = 2; 2123955d011SMarcel Moolenaar break; 2133955d011SMarcel Moolenaar case 2: 2143955d011SMarcel Moolenaar eat = "/../"; 2153955d011SMarcel Moolenaar eatlen = 3; 2163955d011SMarcel Moolenaar break; 2173955d011SMarcel Moolenaar default: 2183955d011SMarcel Moolenaar return; 2193955d011SMarcel Moolenaar } 2203955d011SMarcel Moolenaar 2213955d011SMarcel Moolenaar do { 2223955d011SMarcel Moolenaar cp = strstr(buf, eat); 2233955d011SMarcel Moolenaar if (cp) { 2243955d011SMarcel Moolenaar cp2 = cp + eatlen; 2253955d011SMarcel Moolenaar if (dots == 2 && cp > buf) { 2263955d011SMarcel Moolenaar do { 2273955d011SMarcel Moolenaar cp--; 2283955d011SMarcel Moolenaar } while (cp > buf && *cp != '/'); 2293955d011SMarcel Moolenaar } 2303955d011SMarcel Moolenaar if (*cp == '/') { 2313955d011SMarcel Moolenaar strlcpy(cp, cp2, bufsz - (cp - buf)); 2323955d011SMarcel Moolenaar } else { 2333955d011SMarcel Moolenaar return; /* can't happen? */ 2343955d011SMarcel Moolenaar } 2353955d011SMarcel Moolenaar } 2363955d011SMarcel Moolenaar } while (cp); 2373955d011SMarcel Moolenaar } 2383955d011SMarcel Moolenaar 2393955d011SMarcel Moolenaar static char * 2403955d011SMarcel Moolenaar meta_name(struct GNode *gn, char *mname, size_t mnamelen, 2413955d011SMarcel Moolenaar const char *dname, 242*b778b302SSimon J. Gerraty const char *tname, 243*b778b302SSimon J. Gerraty const char *cwd) 2443955d011SMarcel Moolenaar { 2453955d011SMarcel Moolenaar char buf[MAXPATHLEN]; 2463955d011SMarcel Moolenaar char *rp; 2473955d011SMarcel Moolenaar char *cp; 2483955d011SMarcel Moolenaar char *tp; 2493955d011SMarcel Moolenaar 2503955d011SMarcel Moolenaar /* 2513955d011SMarcel Moolenaar * Weed out relative paths from the target file name. 2523955d011SMarcel Moolenaar * We have to be careful though since if target is a 2533955d011SMarcel Moolenaar * symlink, the result will be unstable. 2543955d011SMarcel Moolenaar * So we use realpath() just to get the dirname, and leave the 2553955d011SMarcel Moolenaar * basename as given to us. 2563955d011SMarcel Moolenaar */ 2573955d011SMarcel Moolenaar if ((cp = strrchr(tname, '/'))) { 258*b778b302SSimon J. Gerraty if (cached_realpath(tname, buf)) { 2593955d011SMarcel Moolenaar if ((rp = strrchr(buf, '/'))) { 2603955d011SMarcel Moolenaar rp++; 2613955d011SMarcel Moolenaar cp++; 2623955d011SMarcel Moolenaar if (strcmp(cp, rp) != 0) 2633955d011SMarcel Moolenaar strlcpy(rp, cp, sizeof(buf) - (rp - buf)); 2643955d011SMarcel Moolenaar } 2653955d011SMarcel Moolenaar tname = buf; 2663955d011SMarcel Moolenaar } else { 2673955d011SMarcel Moolenaar /* 2683955d011SMarcel Moolenaar * We likely have a directory which is about to be made. 2693955d011SMarcel Moolenaar * We pretend realpath() succeeded, to have a chance 2703955d011SMarcel Moolenaar * of generating the same meta file name that we will 2713955d011SMarcel Moolenaar * next time through. 2723955d011SMarcel Moolenaar */ 2733955d011SMarcel Moolenaar if (tname[0] == '/') { 2743955d011SMarcel Moolenaar strlcpy(buf, tname, sizeof(buf)); 2753955d011SMarcel Moolenaar } else { 2763955d011SMarcel Moolenaar snprintf(buf, sizeof(buf), "%s/%s", cwd, tname); 2773955d011SMarcel Moolenaar } 2783955d011SMarcel Moolenaar eat_dots(buf, sizeof(buf), 1); /* ./ */ 2793955d011SMarcel Moolenaar eat_dots(buf, sizeof(buf), 2); /* ../ */ 2803955d011SMarcel Moolenaar tname = buf; 2813955d011SMarcel Moolenaar } 2823955d011SMarcel Moolenaar } 2833955d011SMarcel Moolenaar /* on some systems dirname may modify its arg */ 2843955d011SMarcel Moolenaar tp = bmake_strdup(tname); 2853955d011SMarcel Moolenaar if (strcmp(dname, dirname(tp)) == 0) 2863955d011SMarcel Moolenaar snprintf(mname, mnamelen, "%s.meta", tname); 2873955d011SMarcel Moolenaar else { 2883955d011SMarcel Moolenaar snprintf(mname, mnamelen, "%s/%s.meta", dname, tname); 2893955d011SMarcel Moolenaar 2903955d011SMarcel Moolenaar /* 2913955d011SMarcel Moolenaar * Replace path separators in the file name after the 2923955d011SMarcel Moolenaar * current object directory path. 2933955d011SMarcel Moolenaar */ 2943955d011SMarcel Moolenaar cp = mname + strlen(dname) + 1; 2953955d011SMarcel Moolenaar 2963955d011SMarcel Moolenaar while (*cp != '\0') { 2973955d011SMarcel Moolenaar if (*cp == '/') 2983955d011SMarcel Moolenaar *cp = '_'; 2993955d011SMarcel Moolenaar cp++; 3003955d011SMarcel Moolenaar } 3013955d011SMarcel Moolenaar } 3023955d011SMarcel Moolenaar free(tp); 3033955d011SMarcel Moolenaar return (mname); 3043955d011SMarcel Moolenaar } 3053955d011SMarcel Moolenaar 3063955d011SMarcel Moolenaar /* 3073955d011SMarcel Moolenaar * Return true if running ${.MAKE} 3083955d011SMarcel Moolenaar * Bypassed if target is flagged .MAKE 3093955d011SMarcel Moolenaar */ 3103955d011SMarcel Moolenaar static int 3113955d011SMarcel Moolenaar is_submake(void *cmdp, void *gnp) 3123955d011SMarcel Moolenaar { 3133955d011SMarcel Moolenaar static char *p_make = NULL; 3143955d011SMarcel Moolenaar static int p_len; 3153955d011SMarcel Moolenaar char *cmd = cmdp; 3163955d011SMarcel Moolenaar GNode *gn = gnp; 3173955d011SMarcel Moolenaar char *mp = NULL; 3183955d011SMarcel Moolenaar char *cp; 3193955d011SMarcel Moolenaar char *cp2; 3203955d011SMarcel Moolenaar int rc = 0; /* keep looking */ 3213955d011SMarcel Moolenaar 3223955d011SMarcel Moolenaar if (!p_make) { 3233955d011SMarcel Moolenaar p_make = Var_Value(".MAKE", gn, &cp); 3243955d011SMarcel Moolenaar p_len = strlen(p_make); 3253955d011SMarcel Moolenaar } 3263955d011SMarcel Moolenaar cp = strchr(cmd, '$'); 3273955d011SMarcel Moolenaar if ((cp)) { 328be19d90bSSimon J. Gerraty mp = Var_Subst(NULL, cmd, gn, VARF_WANTRES); 3293955d011SMarcel Moolenaar cmd = mp; 3303955d011SMarcel Moolenaar } 3313955d011SMarcel Moolenaar cp2 = strstr(cmd, p_make); 3323955d011SMarcel Moolenaar if ((cp2)) { 3333955d011SMarcel Moolenaar switch (cp2[p_len]) { 3343955d011SMarcel Moolenaar case '\0': 3353955d011SMarcel Moolenaar case ' ': 3363955d011SMarcel Moolenaar case '\t': 3373955d011SMarcel Moolenaar case '\n': 3383955d011SMarcel Moolenaar rc = 1; 3393955d011SMarcel Moolenaar break; 3403955d011SMarcel Moolenaar } 3413955d011SMarcel Moolenaar if (cp2 > cmd && rc > 0) { 3423955d011SMarcel Moolenaar switch (cp2[-1]) { 3433955d011SMarcel Moolenaar case ' ': 3443955d011SMarcel Moolenaar case '\t': 3453955d011SMarcel Moolenaar case '\n': 3463955d011SMarcel Moolenaar break; 3473955d011SMarcel Moolenaar default: 3483955d011SMarcel Moolenaar rc = 0; /* no match */ 3493955d011SMarcel Moolenaar break; 3503955d011SMarcel Moolenaar } 3513955d011SMarcel Moolenaar } 3523955d011SMarcel Moolenaar } 3533955d011SMarcel Moolenaar free(mp); 3543955d011SMarcel Moolenaar return (rc); 3553955d011SMarcel Moolenaar } 3563955d011SMarcel Moolenaar 3573955d011SMarcel Moolenaar typedef struct meta_file_s { 3583955d011SMarcel Moolenaar FILE *fp; 3593955d011SMarcel Moolenaar GNode *gn; 3603955d011SMarcel Moolenaar } meta_file_t; 3613955d011SMarcel Moolenaar 3623955d011SMarcel Moolenaar static int 3633955d011SMarcel Moolenaar printCMD(void *cmdp, void *mfpp) 3643955d011SMarcel Moolenaar { 3653955d011SMarcel Moolenaar meta_file_t *mfp = mfpp; 3663955d011SMarcel Moolenaar char *cmd = cmdp; 3673955d011SMarcel Moolenaar char *cp = NULL; 3683955d011SMarcel Moolenaar 3693955d011SMarcel Moolenaar if (strchr(cmd, '$')) { 370be19d90bSSimon J. Gerraty cmd = cp = Var_Subst(NULL, cmd, mfp->gn, VARF_WANTRES); 3713955d011SMarcel Moolenaar } 3723955d011SMarcel Moolenaar fprintf(mfp->fp, "CMD %s\n", cmd); 3733955d011SMarcel Moolenaar free(cp); 3743955d011SMarcel Moolenaar return 0; 3753955d011SMarcel Moolenaar } 3763955d011SMarcel Moolenaar 3773955d011SMarcel Moolenaar /* 3783955d011SMarcel Moolenaar * Certain node types never get a .meta file 3793955d011SMarcel Moolenaar */ 3803955d011SMarcel Moolenaar #define SKIP_META_TYPE(_type) do { \ 3813955d011SMarcel Moolenaar if ((gn->type & __CONCAT(OP_, _type))) { \ 382*b778b302SSimon J. Gerraty if (verbose) { \ 3833955d011SMarcel Moolenaar fprintf(debug_file, "Skipping meta for %s: .%s\n", \ 3843955d011SMarcel Moolenaar gn->name, __STRING(_type)); \ 3853955d011SMarcel Moolenaar } \ 386*b778b302SSimon J. Gerraty return FALSE; \ 3873955d011SMarcel Moolenaar } \ 3883955d011SMarcel Moolenaar } while (0) 3893955d011SMarcel Moolenaar 390*b778b302SSimon J. Gerraty 391*b778b302SSimon J. Gerraty /* 392*b778b302SSimon J. Gerraty * Do we need/want a .meta file ? 393*b778b302SSimon J. Gerraty */ 394*b778b302SSimon J. Gerraty static Boolean 395*b778b302SSimon J. Gerraty meta_needed(GNode *gn, const char *dname, const char *tname, 396*b778b302SSimon J. Gerraty char *objdir, int verbose) 397*b778b302SSimon J. Gerraty { 398*b778b302SSimon J. Gerraty struct stat fs; 399*b778b302SSimon J. Gerraty 400*b778b302SSimon J. Gerraty if (verbose) 401*b778b302SSimon J. Gerraty verbose = DEBUG(META); 402*b778b302SSimon J. Gerraty 403*b778b302SSimon J. Gerraty /* This may be a phony node which we don't want meta data for... */ 404*b778b302SSimon J. Gerraty /* Skip .meta for .BEGIN, .END, .ERROR etc as well. */ 405*b778b302SSimon J. Gerraty /* Or it may be explicitly flagged as .NOMETA */ 406*b778b302SSimon J. Gerraty SKIP_META_TYPE(NOMETA); 407*b778b302SSimon J. Gerraty /* Unless it is explicitly flagged as .META */ 408*b778b302SSimon J. Gerraty if (!(gn->type & OP_META)) { 409*b778b302SSimon J. Gerraty SKIP_META_TYPE(PHONY); 410*b778b302SSimon J. Gerraty SKIP_META_TYPE(SPECIAL); 411*b778b302SSimon J. Gerraty SKIP_META_TYPE(MAKE); 412*b778b302SSimon J. Gerraty } 413*b778b302SSimon J. Gerraty 414*b778b302SSimon J. Gerraty /* Check if there are no commands to execute. */ 415*b778b302SSimon J. Gerraty if (Lst_IsEmpty(gn->commands)) { 416*b778b302SSimon J. Gerraty if (verbose) 417*b778b302SSimon J. Gerraty fprintf(debug_file, "Skipping meta for %s: no commands\n", 418*b778b302SSimon J. Gerraty gn->name); 419*b778b302SSimon J. Gerraty return FALSE; 420*b778b302SSimon J. Gerraty } 421*b778b302SSimon J. Gerraty if ((gn->type & (OP_META|OP_SUBMAKE)) == OP_SUBMAKE) { 422*b778b302SSimon J. Gerraty /* OP_SUBMAKE is a bit too aggressive */ 423*b778b302SSimon J. Gerraty if (Lst_ForEach(gn->commands, is_submake, gn)) { 424*b778b302SSimon J. Gerraty if (DEBUG(META)) 425*b778b302SSimon J. Gerraty fprintf(debug_file, "Skipping meta for %s: .SUBMAKE\n", 426*b778b302SSimon J. Gerraty gn->name); 427*b778b302SSimon J. Gerraty return FALSE; 428*b778b302SSimon J. Gerraty } 429*b778b302SSimon J. Gerraty } 430*b778b302SSimon J. Gerraty 431*b778b302SSimon J. Gerraty /* The object directory may not exist. Check it.. */ 432*b778b302SSimon J. Gerraty if (stat(dname, &fs) != 0) { 433*b778b302SSimon J. Gerraty if (verbose) 434*b778b302SSimon J. Gerraty fprintf(debug_file, "Skipping meta for %s: no .OBJDIR\n", 435*b778b302SSimon J. Gerraty gn->name); 436*b778b302SSimon J. Gerraty return FALSE; 437*b778b302SSimon J. Gerraty } 438*b778b302SSimon J. Gerraty 439*b778b302SSimon J. Gerraty /* make sure these are canonical */ 440*b778b302SSimon J. Gerraty if (cached_realpath(dname, objdir)) 441*b778b302SSimon J. Gerraty dname = objdir; 442*b778b302SSimon J. Gerraty 443*b778b302SSimon J. Gerraty /* If we aren't in the object directory, don't create a meta file. */ 444*b778b302SSimon J. Gerraty if (!metaCurdirOk && strcmp(curdir, dname) == 0) { 445*b778b302SSimon J. Gerraty if (verbose) 446*b778b302SSimon J. Gerraty fprintf(debug_file, "Skipping meta for %s: .OBJDIR == .CURDIR\n", 447*b778b302SSimon J. Gerraty gn->name); 448*b778b302SSimon J. Gerraty return FALSE; 449*b778b302SSimon J. Gerraty } 450*b778b302SSimon J. Gerraty return TRUE; 451*b778b302SSimon J. Gerraty } 452*b778b302SSimon J. Gerraty 453*b778b302SSimon J. Gerraty 4543955d011SMarcel Moolenaar static FILE * 4553955d011SMarcel Moolenaar meta_create(BuildMon *pbm, GNode *gn) 4563955d011SMarcel Moolenaar { 4573955d011SMarcel Moolenaar meta_file_t mf; 4583955d011SMarcel Moolenaar char buf[MAXPATHLEN]; 4593955d011SMarcel Moolenaar char objdir[MAXPATHLEN]; 4603955d011SMarcel Moolenaar char **ptr; 4613955d011SMarcel Moolenaar const char *dname; 4623955d011SMarcel Moolenaar const char *tname; 4633955d011SMarcel Moolenaar char *fname; 4643955d011SMarcel Moolenaar const char *cp; 4653955d011SMarcel Moolenaar char *p[4]; /* >= possible uses */ 4663955d011SMarcel Moolenaar int i; 4673955d011SMarcel Moolenaar 4683955d011SMarcel Moolenaar mf.fp = NULL; 4693955d011SMarcel Moolenaar i = 0; 4703955d011SMarcel Moolenaar 4713955d011SMarcel Moolenaar dname = Var_Value(".OBJDIR", gn, &p[i++]); 4723955d011SMarcel Moolenaar tname = Var_Value(TARGET, gn, &p[i++]); 4733955d011SMarcel Moolenaar 474*b778b302SSimon J. Gerraty /* if this succeeds objdir is realpath of dname */ 475*b778b302SSimon J. Gerraty if (!meta_needed(gn, dname, tname, objdir, TRUE)) 4763955d011SMarcel Moolenaar goto out; 4773955d011SMarcel Moolenaar dname = objdir; 4783955d011SMarcel Moolenaar 4793955d011SMarcel Moolenaar if (metaVerbose) { 4803955d011SMarcel Moolenaar char *mp; 4813955d011SMarcel Moolenaar 4823955d011SMarcel Moolenaar /* Describe the target we are building */ 483be19d90bSSimon J. Gerraty mp = Var_Subst(NULL, "${" MAKE_META_PREFIX "}", gn, VARF_WANTRES); 4843955d011SMarcel Moolenaar if (*mp) 4853955d011SMarcel Moolenaar fprintf(stdout, "%s\n", mp); 4863955d011SMarcel Moolenaar free(mp); 4873955d011SMarcel Moolenaar } 4883955d011SMarcel Moolenaar /* Get the basename of the target */ 4893955d011SMarcel Moolenaar if ((cp = strrchr(tname, '/')) == NULL) { 4903955d011SMarcel Moolenaar cp = tname; 4913955d011SMarcel Moolenaar } else { 4923955d011SMarcel Moolenaar cp++; 4933955d011SMarcel Moolenaar } 4943955d011SMarcel Moolenaar 4953955d011SMarcel Moolenaar fflush(stdout); 4963955d011SMarcel Moolenaar 4973955d011SMarcel Moolenaar if (!writeMeta) 4983955d011SMarcel Moolenaar /* Don't create meta data. */ 4993955d011SMarcel Moolenaar goto out; 5003955d011SMarcel Moolenaar 5013955d011SMarcel Moolenaar fname = meta_name(gn, pbm->meta_fname, sizeof(pbm->meta_fname), 502*b778b302SSimon J. Gerraty dname, tname, objdir); 5033955d011SMarcel Moolenaar 5043955d011SMarcel Moolenaar #ifdef DEBUG_META_MODE 5053955d011SMarcel Moolenaar if (DEBUG(META)) 5063955d011SMarcel Moolenaar fprintf(debug_file, "meta_create: %s\n", fname); 5073955d011SMarcel Moolenaar #endif 5083955d011SMarcel Moolenaar 5093955d011SMarcel Moolenaar if ((mf.fp = fopen(fname, "w")) == NULL) 5103955d011SMarcel Moolenaar err(1, "Could not open meta file '%s'", fname); 5113955d011SMarcel Moolenaar 5123955d011SMarcel Moolenaar fprintf(mf.fp, "# Meta data file %s\n", fname); 5133955d011SMarcel Moolenaar 5143955d011SMarcel Moolenaar mf.gn = gn; 5153955d011SMarcel Moolenaar 5163955d011SMarcel Moolenaar Lst_ForEach(gn->commands, printCMD, &mf); 5173955d011SMarcel Moolenaar 5183955d011SMarcel Moolenaar fprintf(mf.fp, "CWD %s\n", getcwd(buf, sizeof(buf))); 5193955d011SMarcel Moolenaar fprintf(mf.fp, "TARGET %s\n", tname); 5203955d011SMarcel Moolenaar 5213955d011SMarcel Moolenaar if (metaEnv) { 5223955d011SMarcel Moolenaar for (ptr = environ; *ptr != NULL; ptr++) 5233955d011SMarcel Moolenaar fprintf(mf.fp, "ENV %s\n", *ptr); 5243955d011SMarcel Moolenaar } 5253955d011SMarcel Moolenaar 5263955d011SMarcel Moolenaar fprintf(mf.fp, "-- command output --\n"); 5273955d011SMarcel Moolenaar fflush(mf.fp); 5283955d011SMarcel Moolenaar 5293955d011SMarcel Moolenaar Var_Append(".MAKE.META.FILES", fname, VAR_GLOBAL); 5303955d011SMarcel Moolenaar Var_Append(".MAKE.META.CREATED", fname, VAR_GLOBAL); 5313955d011SMarcel Moolenaar 5323955d011SMarcel Moolenaar gn->type |= OP_META; /* in case anyone wants to know */ 5333955d011SMarcel Moolenaar if (metaSilent) { 5343955d011SMarcel Moolenaar gn->type |= OP_SILENT; 5353955d011SMarcel Moolenaar } 5363955d011SMarcel Moolenaar out: 5373955d011SMarcel Moolenaar for (i--; i >= 0; i--) { 5383955d011SMarcel Moolenaar free(p[i]); 5393955d011SMarcel Moolenaar } 5403955d011SMarcel Moolenaar 5413955d011SMarcel Moolenaar return (mf.fp); 5423955d011SMarcel Moolenaar } 5433955d011SMarcel Moolenaar 5443955d011SMarcel Moolenaar static Boolean 5453955d011SMarcel Moolenaar boolValue(char *s) 5463955d011SMarcel Moolenaar { 5473955d011SMarcel Moolenaar switch(*s) { 5483955d011SMarcel Moolenaar case '0': 5493955d011SMarcel Moolenaar case 'N': 5503955d011SMarcel Moolenaar case 'n': 5513955d011SMarcel Moolenaar case 'F': 5523955d011SMarcel Moolenaar case 'f': 5533955d011SMarcel Moolenaar return FALSE; 5543955d011SMarcel Moolenaar } 5553955d011SMarcel Moolenaar return TRUE; 5563955d011SMarcel Moolenaar } 5573955d011SMarcel Moolenaar 5581748de26SSimon J. Gerraty /* 5591748de26SSimon J. Gerraty * Initialization we need before reading makefiles. 5601748de26SSimon J. Gerraty */ 5613955d011SMarcel Moolenaar void 56252d86256SSimon J. Gerraty meta_init(void) 5631748de26SSimon J. Gerraty { 5641748de26SSimon J. Gerraty #ifdef USE_FILEMON 5651748de26SSimon J. Gerraty /* this allows makefiles to test if we have filemon support */ 5661748de26SSimon J. Gerraty Var_Set(".MAKE.PATH_FILEMON", _PATH_FILEMON, VAR_GLOBAL, 0); 5671748de26SSimon J. Gerraty #endif 5681748de26SSimon J. Gerraty } 5691748de26SSimon J. Gerraty 5701748de26SSimon J. Gerraty 571*b778b302SSimon J. Gerraty #define get_mode_bf(bf, token) \ 572*b778b302SSimon J. Gerraty if ((cp = strstr(make_mode, token))) \ 573*b778b302SSimon J. Gerraty bf = boolValue(&cp[sizeof(token) - 1]) 574*b778b302SSimon J. Gerraty 5751748de26SSimon J. Gerraty /* 5761748de26SSimon J. Gerraty * Initialization we need after reading makefiles. 5771748de26SSimon J. Gerraty */ 5781748de26SSimon J. Gerraty void 5791748de26SSimon J. Gerraty meta_mode_init(const char *make_mode) 5803955d011SMarcel Moolenaar { 5813955d011SMarcel Moolenaar static int once = 0; 5823955d011SMarcel Moolenaar char *cp; 5833955d011SMarcel Moolenaar 5843955d011SMarcel Moolenaar useMeta = TRUE; 5853955d011SMarcel Moolenaar useFilemon = TRUE; 5863955d011SMarcel Moolenaar writeMeta = TRUE; 5873955d011SMarcel Moolenaar 5883955d011SMarcel Moolenaar if (make_mode) { 5893955d011SMarcel Moolenaar if (strstr(make_mode, "env")) 5903955d011SMarcel Moolenaar metaEnv = TRUE; 5913955d011SMarcel Moolenaar if (strstr(make_mode, "verb")) 5923955d011SMarcel Moolenaar metaVerbose = TRUE; 5933955d011SMarcel Moolenaar if (strstr(make_mode, "read")) 5943955d011SMarcel Moolenaar writeMeta = FALSE; 5953955d011SMarcel Moolenaar if (strstr(make_mode, "nofilemon")) 5963955d011SMarcel Moolenaar useFilemon = FALSE; 5973955d011SMarcel Moolenaar if (strstr(make_mode, "ignore-cmd")) 5983955d011SMarcel Moolenaar metaIgnoreCMDs = TRUE; 599*b778b302SSimon J. Gerraty if (useFilemon) 600*b778b302SSimon J. Gerraty get_mode_bf(filemonMissing, "missing-filemon="); 601*b778b302SSimon J. Gerraty get_mode_bf(metaCurdirOk, "curdirok="); 602*b778b302SSimon J. Gerraty get_mode_bf(metaMissing, "missing-meta="); 603*b778b302SSimon J. Gerraty get_mode_bf(metaSilent, "silent="); 6043955d011SMarcel Moolenaar } 6053955d011SMarcel Moolenaar if (metaVerbose && !Var_Exists(MAKE_META_PREFIX, VAR_GLOBAL)) { 6063955d011SMarcel Moolenaar /* 6073955d011SMarcel Moolenaar * The default value for MAKE_META_PREFIX 6083955d011SMarcel Moolenaar * prints the absolute path of the target. 6093955d011SMarcel Moolenaar * This works be cause :H will generate '.' if there is no / 6103955d011SMarcel Moolenaar * and :tA will resolve that to cwd. 6113955d011SMarcel Moolenaar */ 6123955d011SMarcel Moolenaar Var_Set(MAKE_META_PREFIX, "Building ${.TARGET:H:tA}/${.TARGET:T}", VAR_GLOBAL, 0); 6133955d011SMarcel Moolenaar } 6143955d011SMarcel Moolenaar if (once) 6153955d011SMarcel Moolenaar return; 6163955d011SMarcel Moolenaar once = 1; 6173955d011SMarcel Moolenaar memset(&Mybm, 0, sizeof(Mybm)); 6183955d011SMarcel Moolenaar /* 6193955d011SMarcel Moolenaar * We consider ourselves master of all within ${.MAKE.META.BAILIWICK} 6203955d011SMarcel Moolenaar */ 6213955d011SMarcel Moolenaar metaBailiwick = Lst_Init(FALSE); 622be19d90bSSimon J. Gerraty metaBailiwickStr = Var_Subst(NULL, "${.MAKE.META.BAILIWICK:O:u:tA}", 623be19d90bSSimon J. Gerraty VAR_GLOBAL, VARF_WANTRES); 624be19d90bSSimon J. Gerraty if (metaBailiwickStr) { 625be19d90bSSimon J. Gerraty str2Lst_Append(metaBailiwick, metaBailiwickStr, NULL); 6263955d011SMarcel Moolenaar } 62751ee2c1cSSimon J. Gerraty /* 62851ee2c1cSSimon J. Gerraty * We ignore any paths that start with ${.MAKE.META.IGNORE_PATHS} 62951ee2c1cSSimon J. Gerraty */ 63051ee2c1cSSimon J. Gerraty metaIgnorePaths = Lst_Init(FALSE); 63151ee2c1cSSimon J. Gerraty Var_Append(MAKE_META_IGNORE_PATHS, 63251ee2c1cSSimon J. Gerraty "/dev /etc /proc /tmp /var/run /var/tmp ${TMPDIR}", VAR_GLOBAL); 633be19d90bSSimon J. Gerraty metaIgnorePathsStr = Var_Subst(NULL, 6344c620fe5SSimon J. Gerraty "${" MAKE_META_IGNORE_PATHS ":O:u:tA}", VAR_GLOBAL, 635be19d90bSSimon J. Gerraty VARF_WANTRES); 636be19d90bSSimon J. Gerraty if (metaIgnorePathsStr) { 637be19d90bSSimon J. Gerraty str2Lst_Append(metaIgnorePaths, metaIgnorePathsStr, NULL); 63851ee2c1cSSimon J. Gerraty } 639e48f47ddSSimon J. Gerraty 640e48f47ddSSimon J. Gerraty /* 641e48f47ddSSimon J. Gerraty * We ignore any paths that match ${.MAKE.META.IGNORE_PATTERNS} 642e48f47ddSSimon J. Gerraty */ 643e48f47ddSSimon J. Gerraty cp = NULL; 644e48f47ddSSimon J. Gerraty if (Var_Value(MAKE_META_IGNORE_PATTERNS, VAR_GLOBAL, &cp)) { 645e48f47ddSSimon J. Gerraty metaIgnorePatterns = TRUE; 646e48f47ddSSimon J. Gerraty free(cp); 647e48f47ddSSimon J. Gerraty } 6483955d011SMarcel Moolenaar } 6493955d011SMarcel Moolenaar 6503955d011SMarcel Moolenaar /* 6513955d011SMarcel Moolenaar * In each case below we allow for job==NULL 6523955d011SMarcel Moolenaar */ 6533955d011SMarcel Moolenaar void 6543955d011SMarcel Moolenaar meta_job_start(Job *job, GNode *gn) 6553955d011SMarcel Moolenaar { 6563955d011SMarcel Moolenaar BuildMon *pbm; 6573955d011SMarcel Moolenaar 6583955d011SMarcel Moolenaar if (job != NULL) { 6593955d011SMarcel Moolenaar pbm = &job->bm; 6603955d011SMarcel Moolenaar } else { 6613955d011SMarcel Moolenaar pbm = &Mybm; 6623955d011SMarcel Moolenaar } 6633955d011SMarcel Moolenaar pbm->mfp = meta_create(pbm, gn); 6643955d011SMarcel Moolenaar #ifdef USE_FILEMON_ONCE 6653955d011SMarcel Moolenaar /* compat mode we open the filemon dev once per command */ 6663955d011SMarcel Moolenaar if (job == NULL) 6673955d011SMarcel Moolenaar return; 6683955d011SMarcel Moolenaar #endif 6693955d011SMarcel Moolenaar #ifdef USE_FILEMON 6703955d011SMarcel Moolenaar if (pbm->mfp != NULL && useFilemon) { 6713955d011SMarcel Moolenaar filemon_open(pbm); 6723955d011SMarcel Moolenaar } else { 6733955d011SMarcel Moolenaar pbm->mon_fd = pbm->filemon_fd = -1; 6743955d011SMarcel Moolenaar } 6753955d011SMarcel Moolenaar #endif 6763955d011SMarcel Moolenaar } 6773955d011SMarcel Moolenaar 6783955d011SMarcel Moolenaar /* 6793955d011SMarcel Moolenaar * The child calls this before doing anything. 6803955d011SMarcel Moolenaar * It does not disturb our state. 6813955d011SMarcel Moolenaar */ 6823955d011SMarcel Moolenaar void 6833955d011SMarcel Moolenaar meta_job_child(Job *job) 6843955d011SMarcel Moolenaar { 6853955d011SMarcel Moolenaar #ifdef USE_FILEMON 6863955d011SMarcel Moolenaar BuildMon *pbm; 6873955d011SMarcel Moolenaar 6883955d011SMarcel Moolenaar if (job != NULL) { 6893955d011SMarcel Moolenaar pbm = &job->bm; 6903955d011SMarcel Moolenaar } else { 6913955d011SMarcel Moolenaar pbm = &Mybm; 6923955d011SMarcel Moolenaar } 693db29cad8SSimon J. Gerraty if (pbm->mfp != NULL) { 694db29cad8SSimon J. Gerraty close(fileno(pbm->mfp)); 695db29cad8SSimon J. Gerraty if (useFilemon) { 696db29cad8SSimon J. Gerraty pid_t pid; 697db29cad8SSimon J. Gerraty 6983955d011SMarcel Moolenaar pid = getpid(); 6993955d011SMarcel Moolenaar if (ioctl(pbm->filemon_fd, FILEMON_SET_PID, &pid) < 0) { 7003955d011SMarcel Moolenaar err(1, "Could not set filemon pid!"); 7013955d011SMarcel Moolenaar } 7023955d011SMarcel Moolenaar } 703db29cad8SSimon J. Gerraty } 7043955d011SMarcel Moolenaar #endif 7053955d011SMarcel Moolenaar } 7063955d011SMarcel Moolenaar 7073955d011SMarcel Moolenaar void 7083955d011SMarcel Moolenaar meta_job_error(Job *job, GNode *gn, int flags, int status) 7093955d011SMarcel Moolenaar { 7103955d011SMarcel Moolenaar char cwd[MAXPATHLEN]; 7113955d011SMarcel Moolenaar BuildMon *pbm; 7123955d011SMarcel Moolenaar 7133955d011SMarcel Moolenaar if (job != NULL) { 7143955d011SMarcel Moolenaar pbm = &job->bm; 7153955d011SMarcel Moolenaar if (!gn) 7163955d011SMarcel Moolenaar gn = job->node; 717be19d90bSSimon J. Gerraty } else { 7183955d011SMarcel Moolenaar pbm = &Mybm; 7193955d011SMarcel Moolenaar } 7203955d011SMarcel Moolenaar if (pbm->mfp != NULL) { 7213955d011SMarcel Moolenaar fprintf(pbm->mfp, "*** Error code %d%s\n", 7223955d011SMarcel Moolenaar status, 7233955d011SMarcel Moolenaar (flags & JOB_IGNERR) ? 7243955d011SMarcel Moolenaar "(ignored)" : ""); 7253955d011SMarcel Moolenaar } 7263955d011SMarcel Moolenaar if (gn) { 7273955d011SMarcel Moolenaar Var_Set(".ERROR_TARGET", gn->path ? gn->path : gn->name, VAR_GLOBAL, 0); 7283955d011SMarcel Moolenaar } 7293955d011SMarcel Moolenaar getcwd(cwd, sizeof(cwd)); 7303955d011SMarcel Moolenaar Var_Set(".ERROR_CWD", cwd, VAR_GLOBAL, 0); 731be19d90bSSimon J. Gerraty if (pbm->meta_fname[0]) { 7323955d011SMarcel Moolenaar Var_Set(".ERROR_META_FILE", pbm->meta_fname, VAR_GLOBAL, 0); 7333955d011SMarcel Moolenaar } 7343955d011SMarcel Moolenaar meta_job_finish(job); 7353955d011SMarcel Moolenaar } 7363955d011SMarcel Moolenaar 7373955d011SMarcel Moolenaar void 7383955d011SMarcel Moolenaar meta_job_output(Job *job, char *cp, const char *nl) 7393955d011SMarcel Moolenaar { 7403955d011SMarcel Moolenaar BuildMon *pbm; 7413955d011SMarcel Moolenaar 7423955d011SMarcel Moolenaar if (job != NULL) { 7433955d011SMarcel Moolenaar pbm = &job->bm; 7443955d011SMarcel Moolenaar } else { 7453955d011SMarcel Moolenaar pbm = &Mybm; 7463955d011SMarcel Moolenaar } 7473955d011SMarcel Moolenaar if (pbm->mfp != NULL) { 7483955d011SMarcel Moolenaar if (metaVerbose) { 7493955d011SMarcel Moolenaar static char *meta_prefix = NULL; 7503955d011SMarcel Moolenaar static int meta_prefix_len; 7513955d011SMarcel Moolenaar 7523955d011SMarcel Moolenaar if (!meta_prefix) { 7533955d011SMarcel Moolenaar char *cp2; 7543955d011SMarcel Moolenaar 7554c620fe5SSimon J. Gerraty meta_prefix = Var_Subst(NULL, "${" MAKE_META_PREFIX "}", 756be19d90bSSimon J. Gerraty VAR_GLOBAL, VARF_WANTRES); 7573955d011SMarcel Moolenaar if ((cp2 = strchr(meta_prefix, '$'))) 7583955d011SMarcel Moolenaar meta_prefix_len = cp2 - meta_prefix; 7593955d011SMarcel Moolenaar else 7603955d011SMarcel Moolenaar meta_prefix_len = strlen(meta_prefix); 7613955d011SMarcel Moolenaar } 7623955d011SMarcel Moolenaar if (strncmp(cp, meta_prefix, meta_prefix_len) == 0) { 7633955d011SMarcel Moolenaar cp = strchr(cp+1, '\n'); 7643955d011SMarcel Moolenaar if (!cp++) 7653955d011SMarcel Moolenaar return; 7663955d011SMarcel Moolenaar } 7673955d011SMarcel Moolenaar } 7683955d011SMarcel Moolenaar fprintf(pbm->mfp, "%s%s", cp, nl); 7693955d011SMarcel Moolenaar } 7703955d011SMarcel Moolenaar } 7713955d011SMarcel Moolenaar 772e48f47ddSSimon J. Gerraty int 7733955d011SMarcel Moolenaar meta_cmd_finish(void *pbmp) 7743955d011SMarcel Moolenaar { 775e48f47ddSSimon J. Gerraty int error = 0; 7763955d011SMarcel Moolenaar #ifdef USE_FILEMON 7773955d011SMarcel Moolenaar BuildMon *pbm = pbmp; 778e48f47ddSSimon J. Gerraty int x; 7793955d011SMarcel Moolenaar 7803955d011SMarcel Moolenaar if (!pbm) 7813955d011SMarcel Moolenaar pbm = &Mybm; 7823955d011SMarcel Moolenaar 7833955d011SMarcel Moolenaar if (pbm->filemon_fd >= 0) { 784e48f47ddSSimon J. Gerraty if (close(pbm->filemon_fd) < 0) 785e48f47ddSSimon J. Gerraty error = errno; 786e48f47ddSSimon J. Gerraty x = filemon_read(pbm->mfp, pbm->mon_fd); 787e48f47ddSSimon J. Gerraty if (error == 0 && x != 0) 788e48f47ddSSimon J. Gerraty error = x; 7893955d011SMarcel Moolenaar pbm->filemon_fd = pbm->mon_fd = -1; 7903955d011SMarcel Moolenaar } 7913955d011SMarcel Moolenaar #endif 792e48f47ddSSimon J. Gerraty return error; 7933955d011SMarcel Moolenaar } 7943955d011SMarcel Moolenaar 795e48f47ddSSimon J. Gerraty int 7963955d011SMarcel Moolenaar meta_job_finish(Job *job) 7973955d011SMarcel Moolenaar { 7983955d011SMarcel Moolenaar BuildMon *pbm; 799e48f47ddSSimon J. Gerraty int error = 0; 800e48f47ddSSimon J. Gerraty int x; 8013955d011SMarcel Moolenaar 8023955d011SMarcel Moolenaar if (job != NULL) { 8033955d011SMarcel Moolenaar pbm = &job->bm; 8043955d011SMarcel Moolenaar } else { 8053955d011SMarcel Moolenaar pbm = &Mybm; 8063955d011SMarcel Moolenaar } 8073955d011SMarcel Moolenaar if (pbm->mfp != NULL) { 808e48f47ddSSimon J. Gerraty error = meta_cmd_finish(pbm); 809e48f47ddSSimon J. Gerraty x = fclose(pbm->mfp); 810e48f47ddSSimon J. Gerraty if (error == 0 && x != 0) 811e48f47ddSSimon J. Gerraty error = errno; 8123955d011SMarcel Moolenaar pbm->mfp = NULL; 8133955d011SMarcel Moolenaar pbm->meta_fname[0] = '\0'; 8143955d011SMarcel Moolenaar } 815e48f47ddSSimon J. Gerraty return error; 8163955d011SMarcel Moolenaar } 8173955d011SMarcel Moolenaar 818be19d90bSSimon J. Gerraty void 819be19d90bSSimon J. Gerraty meta_finish(void) 820be19d90bSSimon J. Gerraty { 821be19d90bSSimon J. Gerraty Lst_Destroy(metaBailiwick, NULL); 822be19d90bSSimon J. Gerraty free(metaBailiwickStr); 823be19d90bSSimon J. Gerraty Lst_Destroy(metaIgnorePaths, NULL); 824be19d90bSSimon J. Gerraty free(metaIgnorePathsStr); 825be19d90bSSimon J. Gerraty } 826be19d90bSSimon J. Gerraty 8273955d011SMarcel Moolenaar /* 8283955d011SMarcel Moolenaar * Fetch a full line from fp - growing bufp if needed 8293955d011SMarcel Moolenaar * Return length in bufp. 8303955d011SMarcel Moolenaar */ 8313955d011SMarcel Moolenaar static int 8323955d011SMarcel Moolenaar fgetLine(char **bufp, size_t *szp, int o, FILE *fp) 8333955d011SMarcel Moolenaar { 8343955d011SMarcel Moolenaar char *buf = *bufp; 8353955d011SMarcel Moolenaar size_t bufsz = *szp; 8363955d011SMarcel Moolenaar struct stat fs; 8373955d011SMarcel Moolenaar int x; 8383955d011SMarcel Moolenaar 8393955d011SMarcel Moolenaar if (fgets(&buf[o], bufsz - o, fp) != NULL) { 8403955d011SMarcel Moolenaar check_newline: 8413955d011SMarcel Moolenaar x = o + strlen(&buf[o]); 8423955d011SMarcel Moolenaar if (buf[x - 1] == '\n') 8433955d011SMarcel Moolenaar return x; 8443955d011SMarcel Moolenaar /* 8453955d011SMarcel Moolenaar * We need to grow the buffer. 8463955d011SMarcel Moolenaar * The meta file can give us a clue. 8473955d011SMarcel Moolenaar */ 8483955d011SMarcel Moolenaar if (fstat(fileno(fp), &fs) == 0) { 8493955d011SMarcel Moolenaar size_t newsz; 8503955d011SMarcel Moolenaar char *p; 8513955d011SMarcel Moolenaar 8523955d011SMarcel Moolenaar newsz = ROUNDUP((fs.st_size / 2), BUFSIZ); 8533955d011SMarcel Moolenaar if (newsz <= bufsz) 8543955d011SMarcel Moolenaar newsz = ROUNDUP(fs.st_size, BUFSIZ); 8553955d011SMarcel Moolenaar if (DEBUG(META)) 8563955d011SMarcel Moolenaar fprintf(debug_file, "growing buffer %u -> %u\n", 8573955d011SMarcel Moolenaar (unsigned)bufsz, (unsigned)newsz); 8583955d011SMarcel Moolenaar p = bmake_realloc(buf, newsz); 8593955d011SMarcel Moolenaar if (p) { 8603955d011SMarcel Moolenaar *bufp = buf = p; 8613955d011SMarcel Moolenaar *szp = bufsz = newsz; 8623955d011SMarcel Moolenaar /* fetch the rest */ 8633955d011SMarcel Moolenaar if (!fgets(&buf[x], bufsz - x, fp)) 8643955d011SMarcel Moolenaar return x; /* truncated! */ 8653955d011SMarcel Moolenaar goto check_newline; 8663955d011SMarcel Moolenaar } 8673955d011SMarcel Moolenaar } 8683955d011SMarcel Moolenaar } 8693955d011SMarcel Moolenaar return 0; 8703955d011SMarcel Moolenaar } 8713955d011SMarcel Moolenaar 8723955d011SMarcel Moolenaar static int 8733955d011SMarcel Moolenaar prefix_match(void *p, void *q) 8743955d011SMarcel Moolenaar { 8753955d011SMarcel Moolenaar const char *prefix = p; 8763955d011SMarcel Moolenaar const char *path = q; 8773955d011SMarcel Moolenaar size_t n = strlen(prefix); 8783955d011SMarcel Moolenaar 8793955d011SMarcel Moolenaar return (0 == strncmp(path, prefix, n)); 8803955d011SMarcel Moolenaar } 8813955d011SMarcel Moolenaar 8823955d011SMarcel Moolenaar static int 8833955d011SMarcel Moolenaar string_match(const void *p, const void *q) 8843955d011SMarcel Moolenaar { 8853955d011SMarcel Moolenaar const char *p1 = p; 8863955d011SMarcel Moolenaar const char *p2 = q; 8873955d011SMarcel Moolenaar 8883955d011SMarcel Moolenaar return strcmp(p1, p2); 8893955d011SMarcel Moolenaar } 8903955d011SMarcel Moolenaar 8913955d011SMarcel Moolenaar 8923955d011SMarcel Moolenaar /* 8933955d011SMarcel Moolenaar * When running with 'meta' functionality, a target can be out-of-date 894db29cad8SSimon J. Gerraty * if any of the references in its meta data file is more recent. 8953955d011SMarcel Moolenaar * We have to track the latestdir on a per-process basis. 8963955d011SMarcel Moolenaar */ 897db29cad8SSimon J. Gerraty #define LCWD_VNAME_FMT ".meta.%d.lcwd" 8983955d011SMarcel Moolenaar #define LDIR_VNAME_FMT ".meta.%d.ldir" 8993955d011SMarcel Moolenaar 9003955d011SMarcel Moolenaar /* 9013955d011SMarcel Moolenaar * It is possible that a .meta file is corrupted, 9023955d011SMarcel Moolenaar * if we detect this we want to reproduce it. 9033955d011SMarcel Moolenaar * Setting oodate TRUE will have that effect. 9043955d011SMarcel Moolenaar */ 9053955d011SMarcel Moolenaar #define CHECK_VALID_META(p) if (!(p && *p)) { \ 9063955d011SMarcel Moolenaar warnx("%s: %d: malformed", fname, lineno); \ 9073955d011SMarcel Moolenaar oodate = TRUE; \ 9083955d011SMarcel Moolenaar continue; \ 9093955d011SMarcel Moolenaar } 9103955d011SMarcel Moolenaar 9110dede8b0SSimon J. Gerraty #define DEQUOTE(p) if (*p == '\'') { \ 9120dede8b0SSimon J. Gerraty char *ep; \ 9130dede8b0SSimon J. Gerraty p++; \ 9140dede8b0SSimon J. Gerraty if ((ep = strchr(p, '\''))) \ 9150dede8b0SSimon J. Gerraty *ep = '\0'; \ 9160dede8b0SSimon J. Gerraty } 9170dede8b0SSimon J. Gerraty 9183955d011SMarcel Moolenaar Boolean 9193955d011SMarcel Moolenaar meta_oodate(GNode *gn, Boolean oodate) 9203955d011SMarcel Moolenaar { 9213955d011SMarcel Moolenaar static char *tmpdir = NULL; 9223955d011SMarcel Moolenaar static char cwd[MAXPATHLEN]; 923db29cad8SSimon J. Gerraty char lcwd_vname[64]; 9243955d011SMarcel Moolenaar char ldir_vname[64]; 925db29cad8SSimon J. Gerraty char lcwd[MAXPATHLEN]; 9263955d011SMarcel Moolenaar char latestdir[MAXPATHLEN]; 9273955d011SMarcel Moolenaar char fname[MAXPATHLEN]; 9283955d011SMarcel Moolenaar char fname1[MAXPATHLEN]; 9293955d011SMarcel Moolenaar char fname2[MAXPATHLEN]; 930db29cad8SSimon J. Gerraty char fname3[MAXPATHLEN]; 931*b778b302SSimon J. Gerraty const char *dname; 932*b778b302SSimon J. Gerraty const char *tname; 9333955d011SMarcel Moolenaar char *p; 9343955d011SMarcel Moolenaar char *cp; 9350dede8b0SSimon J. Gerraty char *link_src; 9360dede8b0SSimon J. Gerraty char *move_target; 9373955d011SMarcel Moolenaar static size_t cwdlen = 0; 9383955d011SMarcel Moolenaar static size_t tmplen = 0; 9393955d011SMarcel Moolenaar FILE *fp; 9403cbdda60SSimon J. Gerraty Boolean needOODATE = FALSE; 9413955d011SMarcel Moolenaar Lst missingFiles; 942*b778b302SSimon J. Gerraty char *pa[4]; /* >= possible uses */ 943*b778b302SSimon J. Gerraty int i; 944*b778b302SSimon J. Gerraty int have_filemon = FALSE; 9453955d011SMarcel Moolenaar 9463955d011SMarcel Moolenaar if (oodate) 9473955d011SMarcel Moolenaar return oodate; /* we're done */ 9483955d011SMarcel Moolenaar 949*b778b302SSimon J. Gerraty i = 0; 950*b778b302SSimon J. Gerraty 951*b778b302SSimon J. Gerraty dname = Var_Value(".OBJDIR", gn, &pa[i++]); 952*b778b302SSimon J. Gerraty tname = Var_Value(TARGET, gn, &pa[i++]); 953*b778b302SSimon J. Gerraty 954*b778b302SSimon J. Gerraty /* if this succeeds fname3 is realpath of dname */ 955*b778b302SSimon J. Gerraty if (!meta_needed(gn, dname, tname, fname3, FALSE)) 956*b778b302SSimon J. Gerraty goto oodate_out; 957*b778b302SSimon J. Gerraty dname = fname3; 958*b778b302SSimon J. Gerraty 9593955d011SMarcel Moolenaar missingFiles = Lst_Init(FALSE); 9603955d011SMarcel Moolenaar 9613955d011SMarcel Moolenaar /* 9623955d011SMarcel Moolenaar * We need to check if the target is out-of-date. This includes 9633955d011SMarcel Moolenaar * checking if the expanded command has changed. This in turn 9643955d011SMarcel Moolenaar * requires that all variables are set in the same way that they 9653955d011SMarcel Moolenaar * would be if the target needs to be re-built. 9663955d011SMarcel Moolenaar */ 9673955d011SMarcel Moolenaar Make_DoAllVar(gn); 9683955d011SMarcel Moolenaar 969*b778b302SSimon J. Gerraty meta_name(gn, fname, sizeof(fname), dname, tname, dname); 9703955d011SMarcel Moolenaar 9713955d011SMarcel Moolenaar #ifdef DEBUG_META_MODE 9723955d011SMarcel Moolenaar if (DEBUG(META)) 9733955d011SMarcel Moolenaar fprintf(debug_file, "meta_oodate: %s\n", fname); 9743955d011SMarcel Moolenaar #endif 9753955d011SMarcel Moolenaar 9763955d011SMarcel Moolenaar if ((fp = fopen(fname, "r")) != NULL) { 9773955d011SMarcel Moolenaar static char *buf = NULL; 9783955d011SMarcel Moolenaar static size_t bufsz; 9793955d011SMarcel Moolenaar int lineno = 0; 9803955d011SMarcel Moolenaar int lastpid = 0; 9813955d011SMarcel Moolenaar int pid; 9823955d011SMarcel Moolenaar int x; 9833955d011SMarcel Moolenaar LstNode ln; 9843955d011SMarcel Moolenaar struct stat fs; 9853955d011SMarcel Moolenaar 9863955d011SMarcel Moolenaar if (!buf) { 9873955d011SMarcel Moolenaar bufsz = 8 * BUFSIZ; 9883955d011SMarcel Moolenaar buf = bmake_malloc(bufsz); 9893955d011SMarcel Moolenaar } 9903955d011SMarcel Moolenaar 9913955d011SMarcel Moolenaar if (!cwdlen) { 9923955d011SMarcel Moolenaar if (getcwd(cwd, sizeof(cwd)) == NULL) 9933955d011SMarcel Moolenaar err(1, "Could not get current working directory"); 9943955d011SMarcel Moolenaar cwdlen = strlen(cwd); 9953955d011SMarcel Moolenaar } 996db29cad8SSimon J. Gerraty strlcpy(lcwd, cwd, sizeof(lcwd)); 997db29cad8SSimon J. Gerraty strlcpy(latestdir, cwd, sizeof(latestdir)); 9983955d011SMarcel Moolenaar 9993955d011SMarcel Moolenaar if (!tmpdir) { 10003955d011SMarcel Moolenaar tmpdir = getTmpdir(); 10013955d011SMarcel Moolenaar tmplen = strlen(tmpdir); 10023955d011SMarcel Moolenaar } 10033955d011SMarcel Moolenaar 10043955d011SMarcel Moolenaar /* we want to track all the .meta we read */ 10053955d011SMarcel Moolenaar Var_Append(".MAKE.META.FILES", fname, VAR_GLOBAL); 10063955d011SMarcel Moolenaar 10073955d011SMarcel Moolenaar ln = Lst_First(gn->commands); 10083955d011SMarcel Moolenaar while (!oodate && (x = fgetLine(&buf, &bufsz, 0, fp)) > 0) { 10093955d011SMarcel Moolenaar lineno++; 10103955d011SMarcel Moolenaar if (buf[x - 1] == '\n') 10113955d011SMarcel Moolenaar buf[x - 1] = '\0'; 10123955d011SMarcel Moolenaar else { 10133955d011SMarcel Moolenaar warnx("%s: %d: line truncated at %u", fname, lineno, x); 10143955d011SMarcel Moolenaar oodate = TRUE; 10153955d011SMarcel Moolenaar break; 10163955d011SMarcel Moolenaar } 10170dede8b0SSimon J. Gerraty link_src = NULL; 10180dede8b0SSimon J. Gerraty move_target = NULL; 10193955d011SMarcel Moolenaar /* Find the start of the build monitor section. */ 1020*b778b302SSimon J. Gerraty if (!have_filemon) { 10213955d011SMarcel Moolenaar if (strncmp(buf, "-- filemon", 10) == 0) { 1022*b778b302SSimon J. Gerraty have_filemon = TRUE; 10233955d011SMarcel Moolenaar continue; 10243955d011SMarcel Moolenaar } 10253955d011SMarcel Moolenaar if (strncmp(buf, "# buildmon", 10) == 0) { 1026*b778b302SSimon J. Gerraty have_filemon = TRUE; 10273955d011SMarcel Moolenaar continue; 10283955d011SMarcel Moolenaar } 10293955d011SMarcel Moolenaar } 10303955d011SMarcel Moolenaar 10313955d011SMarcel Moolenaar /* Delimit the record type. */ 10323955d011SMarcel Moolenaar p = buf; 10333955d011SMarcel Moolenaar #ifdef DEBUG_META_MODE 10343955d011SMarcel Moolenaar if (DEBUG(META)) 10353955d011SMarcel Moolenaar fprintf(debug_file, "%s: %d: %s\n", fname, lineno, buf); 10363955d011SMarcel Moolenaar #endif 10373955d011SMarcel Moolenaar strsep(&p, " "); 1038*b778b302SSimon J. Gerraty if (have_filemon) { 10393955d011SMarcel Moolenaar /* 10403955d011SMarcel Moolenaar * We are in the 'filemon' output section. 10413955d011SMarcel Moolenaar * Each record from filemon follows the general form: 10423955d011SMarcel Moolenaar * 10433955d011SMarcel Moolenaar * <key> <pid> <data> 10443955d011SMarcel Moolenaar * 10453955d011SMarcel Moolenaar * Where: 10463955d011SMarcel Moolenaar * <key> is a single letter, denoting the syscall. 10473955d011SMarcel Moolenaar * <pid> is the process that made the syscall. 10483955d011SMarcel Moolenaar * <data> is the arguments (of interest). 10493955d011SMarcel Moolenaar */ 10503955d011SMarcel Moolenaar switch(buf[0]) { 10513955d011SMarcel Moolenaar case '#': /* comment */ 10523955d011SMarcel Moolenaar case 'V': /* version */ 10533955d011SMarcel Moolenaar break; 10543955d011SMarcel Moolenaar default: 10553955d011SMarcel Moolenaar /* 10563955d011SMarcel Moolenaar * We need to track pathnames per-process. 10573955d011SMarcel Moolenaar * 10583955d011SMarcel Moolenaar * Each process run by make, starts off in the 'CWD' 10593955d011SMarcel Moolenaar * recorded in the .meta file, if it chdirs ('C') 10603955d011SMarcel Moolenaar * elsewhere we need to track that - but only for 10613955d011SMarcel Moolenaar * that process. If it forks ('F'), we initialize 10623955d011SMarcel Moolenaar * the child to have the same cwd as its parent. 10633955d011SMarcel Moolenaar * 10643955d011SMarcel Moolenaar * We also need to track the 'latestdir' of 10653955d011SMarcel Moolenaar * interest. This is usually the same as cwd, but 10663955d011SMarcel Moolenaar * not if a process is reading directories. 10673955d011SMarcel Moolenaar * 10683955d011SMarcel Moolenaar * Each time we spot a different process ('pid') 10693955d011SMarcel Moolenaar * we save the current value of 'latestdir' in a 10703955d011SMarcel Moolenaar * variable qualified by 'lastpid', and 10713955d011SMarcel Moolenaar * re-initialize 'latestdir' to any pre-saved 10723955d011SMarcel Moolenaar * value for the current 'pid' and 'CWD' if none. 10733955d011SMarcel Moolenaar */ 10743955d011SMarcel Moolenaar CHECK_VALID_META(p); 10753955d011SMarcel Moolenaar pid = atoi(p); 10763955d011SMarcel Moolenaar if (pid > 0 && pid != lastpid) { 10773955d011SMarcel Moolenaar char *ldir; 10783955d011SMarcel Moolenaar char *tp; 10793955d011SMarcel Moolenaar 10803955d011SMarcel Moolenaar if (lastpid > 0) { 1081db29cad8SSimon J. Gerraty /* We need to remember these. */ 1082db29cad8SSimon J. Gerraty Var_Set(lcwd_vname, lcwd, VAR_GLOBAL, 0); 10833955d011SMarcel Moolenaar Var_Set(ldir_vname, latestdir, VAR_GLOBAL, 0); 10843955d011SMarcel Moolenaar } 1085db29cad8SSimon J. Gerraty snprintf(lcwd_vname, sizeof(lcwd_vname), LCWD_VNAME_FMT, pid); 10863955d011SMarcel Moolenaar snprintf(ldir_vname, sizeof(ldir_vname), LDIR_VNAME_FMT, pid); 10873955d011SMarcel Moolenaar lastpid = pid; 10883955d011SMarcel Moolenaar ldir = Var_Value(ldir_vname, VAR_GLOBAL, &tp); 10893955d011SMarcel Moolenaar if (ldir) { 10903955d011SMarcel Moolenaar strlcpy(latestdir, ldir, sizeof(latestdir)); 10913955d011SMarcel Moolenaar free(tp); 1092db29cad8SSimon J. Gerraty } 1093db29cad8SSimon J. Gerraty ldir = Var_Value(lcwd_vname, VAR_GLOBAL, &tp); 1094db29cad8SSimon J. Gerraty if (ldir) { 1095db29cad8SSimon J. Gerraty strlcpy(lcwd, ldir, sizeof(lcwd)); 1096db29cad8SSimon J. Gerraty free(tp); 1097db29cad8SSimon J. Gerraty } 10983955d011SMarcel Moolenaar } 10993955d011SMarcel Moolenaar /* Skip past the pid. */ 11003955d011SMarcel Moolenaar if (strsep(&p, " ") == NULL) 11013955d011SMarcel Moolenaar continue; 11023955d011SMarcel Moolenaar #ifdef DEBUG_META_MODE 11033955d011SMarcel Moolenaar if (DEBUG(META)) 1104db29cad8SSimon J. Gerraty fprintf(debug_file, "%s: %d: %d: %c: cwd=%s lcwd=%s ldir=%s\n", 1105db29cad8SSimon J. Gerraty fname, lineno, 1106db29cad8SSimon J. Gerraty pid, buf[0], cwd, lcwd, latestdir); 11073955d011SMarcel Moolenaar #endif 11083955d011SMarcel Moolenaar break; 11093955d011SMarcel Moolenaar } 11103955d011SMarcel Moolenaar 11113955d011SMarcel Moolenaar CHECK_VALID_META(p); 11123955d011SMarcel Moolenaar 11133955d011SMarcel Moolenaar /* Process according to record type. */ 11143955d011SMarcel Moolenaar switch (buf[0]) { 11153955d011SMarcel Moolenaar case 'X': /* eXit */ 1116db29cad8SSimon J. Gerraty Var_Delete(lcwd_vname, VAR_GLOBAL); 11173955d011SMarcel Moolenaar Var_Delete(ldir_vname, VAR_GLOBAL); 11183955d011SMarcel Moolenaar lastpid = 0; /* no need to save ldir_vname */ 11193955d011SMarcel Moolenaar break; 11203955d011SMarcel Moolenaar 11213955d011SMarcel Moolenaar case 'F': /* [v]Fork */ 11223955d011SMarcel Moolenaar { 11233955d011SMarcel Moolenaar char cldir[64]; 11243955d011SMarcel Moolenaar int child; 11253955d011SMarcel Moolenaar 11263955d011SMarcel Moolenaar child = atoi(p); 11273955d011SMarcel Moolenaar if (child > 0) { 1128db29cad8SSimon J. Gerraty snprintf(cldir, sizeof(cldir), LCWD_VNAME_FMT, child); 1129db29cad8SSimon J. Gerraty Var_Set(cldir, lcwd, VAR_GLOBAL, 0); 11303955d011SMarcel Moolenaar snprintf(cldir, sizeof(cldir), LDIR_VNAME_FMT, child); 11313955d011SMarcel Moolenaar Var_Set(cldir, latestdir, VAR_GLOBAL, 0); 1132db29cad8SSimon J. Gerraty #ifdef DEBUG_META_MODE 1133db29cad8SSimon J. Gerraty if (DEBUG(META)) 1134db29cad8SSimon J. Gerraty fprintf(debug_file, "%s: %d: %d: cwd=%s lcwd=%s ldir=%s\n", 1135db29cad8SSimon J. Gerraty fname, lineno, 1136db29cad8SSimon J. Gerraty child, cwd, lcwd, latestdir); 1137db29cad8SSimon J. Gerraty #endif 11383955d011SMarcel Moolenaar } 11393955d011SMarcel Moolenaar } 11403955d011SMarcel Moolenaar break; 11413955d011SMarcel Moolenaar 11423955d011SMarcel Moolenaar case 'C': /* Chdir */ 1143db29cad8SSimon J. Gerraty /* Update lcwd and latest directory. */ 11443955d011SMarcel Moolenaar strlcpy(latestdir, p, sizeof(latestdir)); 1145db29cad8SSimon J. Gerraty strlcpy(lcwd, p, sizeof(lcwd)); 1146db29cad8SSimon J. Gerraty Var_Set(lcwd_vname, lcwd, VAR_GLOBAL, 0); 1147db29cad8SSimon J. Gerraty Var_Set(ldir_vname, lcwd, VAR_GLOBAL, 0); 1148db29cad8SSimon J. Gerraty #ifdef DEBUG_META_MODE 1149db29cad8SSimon J. Gerraty if (DEBUG(META)) 1150db29cad8SSimon J. Gerraty fprintf(debug_file, "%s: %d: cwd=%s ldir=%s\n", fname, lineno, cwd, lcwd); 1151db29cad8SSimon J. Gerraty #endif 11523955d011SMarcel Moolenaar break; 11533955d011SMarcel Moolenaar 11543955d011SMarcel Moolenaar case 'M': /* renaMe */ 11550dede8b0SSimon J. Gerraty /* 11560dede8b0SSimon J. Gerraty * For 'M'oves we want to check 11570dede8b0SSimon J. Gerraty * the src as for 'R'ead 11580dede8b0SSimon J. Gerraty * and the target as for 'W'rite. 11590dede8b0SSimon J. Gerraty */ 11600dede8b0SSimon J. Gerraty cp = p; /* save this for a second */ 11610dede8b0SSimon J. Gerraty /* now get target */ 11620dede8b0SSimon J. Gerraty if (strsep(&p, " ") == NULL) 11630dede8b0SSimon J. Gerraty continue; 11640dede8b0SSimon J. Gerraty CHECK_VALID_META(p); 11650dede8b0SSimon J. Gerraty move_target = p; 11660dede8b0SSimon J. Gerraty p = cp; 11673955d011SMarcel Moolenaar /* 'L' and 'M' put single quotes around the args */ 11680dede8b0SSimon J. Gerraty DEQUOTE(p); 11690dede8b0SSimon J. Gerraty DEQUOTE(move_target); 11703955d011SMarcel Moolenaar /* FALLTHROUGH */ 11713955d011SMarcel Moolenaar case 'D': /* unlink */ 11723955d011SMarcel Moolenaar if (*p == '/' && !Lst_IsEmpty(missingFiles)) { 11733955d011SMarcel Moolenaar /* remove p from the missingFiles list if present */ 11743955d011SMarcel Moolenaar if ((ln = Lst_Find(missingFiles, p, string_match)) != NULL) { 11753955d011SMarcel Moolenaar char *tp = Lst_Datum(ln); 11763955d011SMarcel Moolenaar Lst_Remove(missingFiles, ln); 11773955d011SMarcel Moolenaar free(tp); 11781748de26SSimon J. Gerraty ln = NULL; /* we're done with it */ 11793955d011SMarcel Moolenaar } 11803955d011SMarcel Moolenaar } 11810dede8b0SSimon J. Gerraty if (buf[0] == 'M') { 11820dede8b0SSimon J. Gerraty /* the target of the mv is a file 'W'ritten */ 11830dede8b0SSimon J. Gerraty #ifdef DEBUG_META_MODE 11840dede8b0SSimon J. Gerraty if (DEBUG(META)) 11850dede8b0SSimon J. Gerraty fprintf(debug_file, "meta_oodate: M %s -> %s\n", 11860dede8b0SSimon J. Gerraty p, move_target); 11870dede8b0SSimon J. Gerraty #endif 11880dede8b0SSimon J. Gerraty p = move_target; 11890dede8b0SSimon J. Gerraty goto check_write; 11900dede8b0SSimon J. Gerraty } 11913955d011SMarcel Moolenaar break; 11923955d011SMarcel Moolenaar case 'L': /* Link */ 11930dede8b0SSimon J. Gerraty /* 11940dede8b0SSimon J. Gerraty * For 'L'inks check 11950dede8b0SSimon J. Gerraty * the src as for 'R'ead 11960dede8b0SSimon J. Gerraty * and the target as for 'W'rite. 11970dede8b0SSimon J. Gerraty */ 11980dede8b0SSimon J. Gerraty link_src = p; 11990dede8b0SSimon J. Gerraty /* now get target */ 12003955d011SMarcel Moolenaar if (strsep(&p, " ") == NULL) 12013955d011SMarcel Moolenaar continue; 12023955d011SMarcel Moolenaar CHECK_VALID_META(p); 12033955d011SMarcel Moolenaar /* 'L' and 'M' put single quotes around the args */ 12040dede8b0SSimon J. Gerraty DEQUOTE(p); 12050dede8b0SSimon J. Gerraty DEQUOTE(link_src); 12060dede8b0SSimon J. Gerraty #ifdef DEBUG_META_MODE 12070dede8b0SSimon J. Gerraty if (DEBUG(META)) 12080dede8b0SSimon J. Gerraty fprintf(debug_file, "meta_oodate: L %s -> %s\n", 12090dede8b0SSimon J. Gerraty link_src, p); 12100dede8b0SSimon J. Gerraty #endif 12113955d011SMarcel Moolenaar /* FALLTHROUGH */ 12123955d011SMarcel Moolenaar case 'W': /* Write */ 12130dede8b0SSimon J. Gerraty check_write: 12143955d011SMarcel Moolenaar /* 12153955d011SMarcel Moolenaar * If a file we generated within our bailiwick 12163955d011SMarcel Moolenaar * but outside of .OBJDIR is missing, 12173955d011SMarcel Moolenaar * we need to do it again. 12183955d011SMarcel Moolenaar */ 12193955d011SMarcel Moolenaar /* ignore non-absolute paths */ 12203955d011SMarcel Moolenaar if (*p != '/') 12213955d011SMarcel Moolenaar break; 12223955d011SMarcel Moolenaar 12233955d011SMarcel Moolenaar if (Lst_IsEmpty(metaBailiwick)) 12243955d011SMarcel Moolenaar break; 12253955d011SMarcel Moolenaar 12263955d011SMarcel Moolenaar /* ignore cwd - normal dependencies handle those */ 12273955d011SMarcel Moolenaar if (strncmp(p, cwd, cwdlen) == 0) 12283955d011SMarcel Moolenaar break; 12293955d011SMarcel Moolenaar 12303955d011SMarcel Moolenaar if (!Lst_ForEach(metaBailiwick, prefix_match, p)) 12313955d011SMarcel Moolenaar break; 12323955d011SMarcel Moolenaar 12333955d011SMarcel Moolenaar /* tmpdir might be within */ 12343955d011SMarcel Moolenaar if (tmplen > 0 && strncmp(p, tmpdir, tmplen) == 0) 12353955d011SMarcel Moolenaar break; 12363955d011SMarcel Moolenaar 12373955d011SMarcel Moolenaar /* ignore anything containing the string "tmp" */ 12383955d011SMarcel Moolenaar if ((strstr("tmp", p))) 12393955d011SMarcel Moolenaar break; 12403955d011SMarcel Moolenaar 1241ac3446e9SSimon J. Gerraty if ((link_src != NULL && lstat(p, &fs) < 0) || 1242ac3446e9SSimon J. Gerraty (link_src == NULL && stat(p, &fs) < 0)) { 12433bebe729SSimon J. Gerraty if (Lst_Find(missingFiles, p, string_match) == NULL) 12443955d011SMarcel Moolenaar Lst_AtEnd(missingFiles, bmake_strdup(p)); 12453955d011SMarcel Moolenaar } 12463955d011SMarcel Moolenaar break; 12470dede8b0SSimon J. Gerraty check_link_src: 12480dede8b0SSimon J. Gerraty p = link_src; 12490dede8b0SSimon J. Gerraty link_src = NULL; 12500dede8b0SSimon J. Gerraty #ifdef DEBUG_META_MODE 12510dede8b0SSimon J. Gerraty if (DEBUG(META)) 12520dede8b0SSimon J. Gerraty fprintf(debug_file, "meta_oodate: L src %s\n", p); 12530dede8b0SSimon J. Gerraty #endif 12540dede8b0SSimon J. Gerraty /* FALLTHROUGH */ 12553955d011SMarcel Moolenaar case 'R': /* Read */ 12563955d011SMarcel Moolenaar case 'E': /* Exec */ 12573955d011SMarcel Moolenaar /* 12583955d011SMarcel Moolenaar * Check for runtime files that can't 12593955d011SMarcel Moolenaar * be part of the dependencies because 12603955d011SMarcel Moolenaar * they are _expected_ to change. 12613955d011SMarcel Moolenaar */ 1262e48f47ddSSimon J. Gerraty if (*p == '/') { 1263*b778b302SSimon J. Gerraty cached_realpath(p, fname1); /* clean it up */ 1264e48f47ddSSimon J. Gerraty if (Lst_ForEach(metaIgnorePaths, prefix_match, fname1)) { 126551ee2c1cSSimon J. Gerraty #ifdef DEBUG_META_MODE 126651ee2c1cSSimon J. Gerraty if (DEBUG(META)) 1267e48f47ddSSimon J. Gerraty fprintf(debug_file, "meta_oodate: ignoring path: %s\n", 126851ee2c1cSSimon J. Gerraty p); 126951ee2c1cSSimon J. Gerraty #endif 12703955d011SMarcel Moolenaar break; 127151ee2c1cSSimon J. Gerraty } 1272e48f47ddSSimon J. Gerraty } 1273e48f47ddSSimon J. Gerraty 1274e48f47ddSSimon J. Gerraty if (metaIgnorePatterns) { 1275e48f47ddSSimon J. Gerraty char *pm; 1276e48f47ddSSimon J. Gerraty 1277e48f47ddSSimon J. Gerraty snprintf(fname1, sizeof(fname1), 1278e48f47ddSSimon J. Gerraty "${%s:@m@${%s:L:M$m}@}", 1279e48f47ddSSimon J. Gerraty MAKE_META_IGNORE_PATTERNS, p); 1280e48f47ddSSimon J. Gerraty pm = Var_Subst(NULL, fname1, gn, VARF_WANTRES); 1281e48f47ddSSimon J. Gerraty if (*pm) { 1282e48f47ddSSimon J. Gerraty #ifdef DEBUG_META_MODE 1283e48f47ddSSimon J. Gerraty if (DEBUG(META)) 1284e48f47ddSSimon J. Gerraty fprintf(debug_file, "meta_oodate: ignoring pattern: %s\n", 1285e48f47ddSSimon J. Gerraty p); 1286e48f47ddSSimon J. Gerraty #endif 1287e48f47ddSSimon J. Gerraty free(pm); 1288e48f47ddSSimon J. Gerraty break; 1289e48f47ddSSimon J. Gerraty } 1290e48f47ddSSimon J. Gerraty free(pm); 1291e48f47ddSSimon J. Gerraty } 12923955d011SMarcel Moolenaar 12933955d011SMarcel Moolenaar /* 12943955d011SMarcel Moolenaar * The rest of the record is the file name. 12953955d011SMarcel Moolenaar * Check if it's not an absolute path. 12963955d011SMarcel Moolenaar */ 12973955d011SMarcel Moolenaar { 12983955d011SMarcel Moolenaar char *sdirs[4]; 12993955d011SMarcel Moolenaar char **sdp; 13003955d011SMarcel Moolenaar int sdx = 0; 13013955d011SMarcel Moolenaar int found = 0; 13023955d011SMarcel Moolenaar 13033955d011SMarcel Moolenaar if (*p == '/') { 13043955d011SMarcel Moolenaar sdirs[sdx++] = p; /* done */ 13053955d011SMarcel Moolenaar } else { 13063955d011SMarcel Moolenaar if (strcmp(".", p) == 0) 13073955d011SMarcel Moolenaar continue; /* no point */ 13083955d011SMarcel Moolenaar 13093955d011SMarcel Moolenaar /* Check vs latestdir */ 13103955d011SMarcel Moolenaar snprintf(fname1, sizeof(fname1), "%s/%s", latestdir, p); 13113955d011SMarcel Moolenaar sdirs[sdx++] = fname1; 13123955d011SMarcel Moolenaar 1313db29cad8SSimon J. Gerraty if (strcmp(latestdir, lcwd) != 0) { 1314db29cad8SSimon J. Gerraty /* Check vs lcwd */ 1315db29cad8SSimon J. Gerraty snprintf(fname2, sizeof(fname2), "%s/%s", lcwd, p); 13163955d011SMarcel Moolenaar sdirs[sdx++] = fname2; 13173955d011SMarcel Moolenaar } 1318db29cad8SSimon J. Gerraty if (strcmp(lcwd, cwd) != 0) { 1319db29cad8SSimon J. Gerraty /* Check vs cwd */ 1320db29cad8SSimon J. Gerraty snprintf(fname3, sizeof(fname3), "%s/%s", cwd, p); 1321db29cad8SSimon J. Gerraty sdirs[sdx++] = fname3; 1322db29cad8SSimon J. Gerraty } 13233955d011SMarcel Moolenaar } 13243955d011SMarcel Moolenaar sdirs[sdx++] = NULL; 13253955d011SMarcel Moolenaar 13263955d011SMarcel Moolenaar for (sdp = sdirs; *sdp && !found; sdp++) { 13273955d011SMarcel Moolenaar #ifdef DEBUG_META_MODE 13283955d011SMarcel Moolenaar if (DEBUG(META)) 13293955d011SMarcel Moolenaar fprintf(debug_file, "%s: %d: looking for: %s\n", fname, lineno, *sdp); 13303955d011SMarcel Moolenaar #endif 13313955d011SMarcel Moolenaar if (stat(*sdp, &fs) == 0) { 13323955d011SMarcel Moolenaar found = 1; 13333955d011SMarcel Moolenaar p = *sdp; 13343955d011SMarcel Moolenaar } 13353955d011SMarcel Moolenaar } 13363955d011SMarcel Moolenaar if (found) { 13373955d011SMarcel Moolenaar #ifdef DEBUG_META_MODE 13383955d011SMarcel Moolenaar if (DEBUG(META)) 13393955d011SMarcel Moolenaar fprintf(debug_file, "%s: %d: found: %s\n", fname, lineno, p); 13403955d011SMarcel Moolenaar #endif 13413955d011SMarcel Moolenaar if (!S_ISDIR(fs.st_mode) && 13423955d011SMarcel Moolenaar fs.st_mtime > gn->mtime) { 13433955d011SMarcel Moolenaar if (DEBUG(META)) 13443955d011SMarcel Moolenaar fprintf(debug_file, "%s: %d: file '%s' is newer than the target...\n", fname, lineno, p); 13453955d011SMarcel Moolenaar oodate = TRUE; 13463955d011SMarcel Moolenaar } else if (S_ISDIR(fs.st_mode)) { 13473955d011SMarcel Moolenaar /* Update the latest directory. */ 1348*b778b302SSimon J. Gerraty cached_realpath(p, latestdir); 13493955d011SMarcel Moolenaar } 13503955d011SMarcel Moolenaar } else if (errno == ENOENT && *p == '/' && 13513955d011SMarcel Moolenaar strncmp(p, cwd, cwdlen) != 0) { 13523955d011SMarcel Moolenaar /* 13533955d011SMarcel Moolenaar * A referenced file outside of CWD is missing. 13543955d011SMarcel Moolenaar * We cannot catch every eventuality here... 13553955d011SMarcel Moolenaar */ 13563bebe729SSimon J. Gerraty if (Lst_Find(missingFiles, p, string_match) == NULL) 13573bebe729SSimon J. Gerraty Lst_AtEnd(missingFiles, bmake_strdup(p)); 13583955d011SMarcel Moolenaar } 13593955d011SMarcel Moolenaar } 1360db29cad8SSimon J. Gerraty if (buf[0] == 'E') { 1361db29cad8SSimon J. Gerraty /* previous latestdir is no longer relevant */ 1362db29cad8SSimon J. Gerraty strlcpy(latestdir, lcwd, sizeof(latestdir)); 1363db29cad8SSimon J. Gerraty } 13643955d011SMarcel Moolenaar break; 13653955d011SMarcel Moolenaar default: 13663955d011SMarcel Moolenaar break; 13673955d011SMarcel Moolenaar } 13680dede8b0SSimon J. Gerraty if (!oodate && buf[0] == 'L' && link_src != NULL) 13690dede8b0SSimon J. Gerraty goto check_link_src; 13703955d011SMarcel Moolenaar } else if (strcmp(buf, "CMD") == 0) { 13713955d011SMarcel Moolenaar /* 13723955d011SMarcel Moolenaar * Compare the current command with the one in the 13733955d011SMarcel Moolenaar * meta data file. 13743955d011SMarcel Moolenaar */ 13753955d011SMarcel Moolenaar if (ln == NULL) { 13763955d011SMarcel Moolenaar if (DEBUG(META)) 13773955d011SMarcel Moolenaar fprintf(debug_file, "%s: %d: there were more build commands in the meta data file than there are now...\n", fname, lineno); 13783955d011SMarcel Moolenaar oodate = TRUE; 13793955d011SMarcel Moolenaar } else { 13803955d011SMarcel Moolenaar char *cmd = (char *)Lst_Datum(ln); 13811748de26SSimon J. Gerraty Boolean hasOODATE = FALSE; 13823955d011SMarcel Moolenaar 13833955d011SMarcel Moolenaar if (strstr(cmd, "$?")) 13841748de26SSimon J. Gerraty hasOODATE = TRUE; 13853955d011SMarcel Moolenaar else if ((cp = strstr(cmd, ".OODATE"))) { 13861748de26SSimon J. Gerraty /* check for $[{(].OODATE[:)}] */ 13873955d011SMarcel Moolenaar if (cp > cmd + 2 && cp[-2] == '$') 13881748de26SSimon J. Gerraty hasOODATE = TRUE; 13893955d011SMarcel Moolenaar } 13901748de26SSimon J. Gerraty if (hasOODATE) { 13911748de26SSimon J. Gerraty needOODATE = TRUE; 13921748de26SSimon J. Gerraty if (DEBUG(META)) 13931748de26SSimon J. Gerraty fprintf(debug_file, "%s: %d: cannot compare command using .OODATE\n", fname, lineno); 13943955d011SMarcel Moolenaar } 1395be19d90bSSimon J. Gerraty cmd = Var_Subst(NULL, cmd, gn, VARF_WANTRES|VARF_UNDEFERR); 13963955d011SMarcel Moolenaar 13973955d011SMarcel Moolenaar if ((cp = strchr(cmd, '\n'))) { 13983955d011SMarcel Moolenaar int n; 13993955d011SMarcel Moolenaar 14003955d011SMarcel Moolenaar /* 14013955d011SMarcel Moolenaar * This command contains newlines, we need to 14023955d011SMarcel Moolenaar * fetch more from the .meta file before we 14033955d011SMarcel Moolenaar * attempt a comparison. 14043955d011SMarcel Moolenaar */ 14053955d011SMarcel Moolenaar /* first put the newline back at buf[x - 1] */ 14063955d011SMarcel Moolenaar buf[x - 1] = '\n'; 14073955d011SMarcel Moolenaar do { 14083955d011SMarcel Moolenaar /* now fetch the next line */ 14093955d011SMarcel Moolenaar if ((n = fgetLine(&buf, &bufsz, x, fp)) <= 0) 14103955d011SMarcel Moolenaar break; 14113955d011SMarcel Moolenaar x = n; 14123955d011SMarcel Moolenaar lineno++; 14133955d011SMarcel Moolenaar if (buf[x - 1] != '\n') { 14143955d011SMarcel Moolenaar warnx("%s: %d: line truncated at %u", fname, lineno, x); 14153955d011SMarcel Moolenaar break; 14163955d011SMarcel Moolenaar } 14173955d011SMarcel Moolenaar cp = strchr(++cp, '\n'); 14183955d011SMarcel Moolenaar } while (cp); 14193955d011SMarcel Moolenaar if (buf[x - 1] == '\n') 14203955d011SMarcel Moolenaar buf[x - 1] = '\0'; 14213955d011SMarcel Moolenaar } 14221748de26SSimon J. Gerraty if (!hasOODATE && 14233955d011SMarcel Moolenaar !(gn->type & OP_NOMETA_CMP) && 14243955d011SMarcel Moolenaar strcmp(p, cmd) != 0) { 14253955d011SMarcel Moolenaar if (DEBUG(META)) 14263955d011SMarcel Moolenaar fprintf(debug_file, "%s: %d: a build command has changed\n%s\nvs\n%s\n", fname, lineno, p, cmd); 14273955d011SMarcel Moolenaar if (!metaIgnoreCMDs) 14283955d011SMarcel Moolenaar oodate = TRUE; 14293955d011SMarcel Moolenaar } 14303955d011SMarcel Moolenaar free(cmd); 14313955d011SMarcel Moolenaar ln = Lst_Succ(ln); 14323955d011SMarcel Moolenaar } 14333955d011SMarcel Moolenaar } else if (strcmp(buf, "CWD") == 0) { 14343955d011SMarcel Moolenaar /* 14353955d011SMarcel Moolenaar * Check if there are extra commands now 14363955d011SMarcel Moolenaar * that weren't in the meta data file. 14373955d011SMarcel Moolenaar */ 14383955d011SMarcel Moolenaar if (!oodate && ln != NULL) { 14393955d011SMarcel Moolenaar if (DEBUG(META)) 14403955d011SMarcel Moolenaar fprintf(debug_file, "%s: %d: there are extra build commands now that weren't in the meta data file\n", fname, lineno); 14413955d011SMarcel Moolenaar oodate = TRUE; 14423955d011SMarcel Moolenaar } 14433955d011SMarcel Moolenaar if (strcmp(p, cwd) != 0) { 14443955d011SMarcel Moolenaar if (DEBUG(META)) 14453955d011SMarcel Moolenaar fprintf(debug_file, "%s: %d: the current working directory has changed from '%s' to '%s'\n", fname, lineno, p, curdir); 14463955d011SMarcel Moolenaar oodate = TRUE; 14473955d011SMarcel Moolenaar } 14483955d011SMarcel Moolenaar } 14493955d011SMarcel Moolenaar } 14503955d011SMarcel Moolenaar 14513955d011SMarcel Moolenaar fclose(fp); 14523955d011SMarcel Moolenaar if (!Lst_IsEmpty(missingFiles)) { 14533955d011SMarcel Moolenaar if (DEBUG(META)) 14543955d011SMarcel Moolenaar fprintf(debug_file, "%s: missing files: %s...\n", 14553955d011SMarcel Moolenaar fname, (char *)Lst_Datum(Lst_First(missingFiles))); 14563955d011SMarcel Moolenaar oodate = TRUE; 14573955d011SMarcel Moolenaar } 1458*b778b302SSimon J. Gerraty if (!oodate && !have_filemon && filemonMissing) { 1459*b778b302SSimon J. Gerraty if (DEBUG(META)) 1460*b778b302SSimon J. Gerraty fprintf(debug_file, "%s: missing filemon data\n", fname); 1461*b778b302SSimon J. Gerraty oodate = TRUE; 1462*b778b302SSimon J. Gerraty } 14633955d011SMarcel Moolenaar } else { 1464*b778b302SSimon J. Gerraty if (writeMeta && metaMissing) { 1465*b778b302SSimon J. Gerraty cp = NULL; 1466*b778b302SSimon J. Gerraty 1467*b778b302SSimon J. Gerraty /* if target is in .CURDIR we do not need a meta file */ 1468*b778b302SSimon J. Gerraty if (gn->path && (cp = strrchr(gn->path, '/')) && cp > gn->path) { 1469*b778b302SSimon J. Gerraty if (strncmp(curdir, gn->path, (cp - gn->path)) != 0) { 1470*b778b302SSimon J. Gerraty cp = NULL; /* not in .CURDIR */ 1471*b778b302SSimon J. Gerraty } 1472*b778b302SSimon J. Gerraty } 1473*b778b302SSimon J. Gerraty if (!cp) { 14743955d011SMarcel Moolenaar if (DEBUG(META)) 14753955d011SMarcel Moolenaar fprintf(debug_file, "%s: required but missing\n", fname); 14763955d011SMarcel Moolenaar oodate = TRUE; 14773955d011SMarcel Moolenaar } 14783955d011SMarcel Moolenaar } 1479*b778b302SSimon J. Gerraty } 1480be19d90bSSimon J. Gerraty 1481be19d90bSSimon J. Gerraty Lst_Destroy(missingFiles, (FreeProc *)free); 1482be19d90bSSimon J. Gerraty 14833cbdda60SSimon J. Gerraty if (oodate && needOODATE) { 14843955d011SMarcel Moolenaar /* 14853cbdda60SSimon J. Gerraty * Target uses .OODATE which is empty; or we wouldn't be here. 14863cbdda60SSimon J. Gerraty * We have decided it is oodate, so .OODATE needs to be set. 14873cbdda60SSimon J. Gerraty * All we can sanely do is set it to .ALLSRC. 14883955d011SMarcel Moolenaar */ 14893955d011SMarcel Moolenaar Var_Delete(OODATE, gn); 14903cbdda60SSimon J. Gerraty Var_Set(OODATE, Var_Value(ALLSRC, gn, &cp), gn, 0); 14913cbdda60SSimon J. Gerraty free(cp); 14923955d011SMarcel Moolenaar } 1493*b778b302SSimon J. Gerraty 1494*b778b302SSimon J. Gerraty oodate_out: 1495*b778b302SSimon J. Gerraty for (i--; i >= 0; i--) { 1496*b778b302SSimon J. Gerraty free(pa[i]); 1497*b778b302SSimon J. Gerraty } 14983955d011SMarcel Moolenaar return oodate; 14993955d011SMarcel Moolenaar } 15003955d011SMarcel Moolenaar 15013955d011SMarcel Moolenaar /* support for compat mode */ 15023955d011SMarcel Moolenaar 15033955d011SMarcel Moolenaar static int childPipe[2]; 15043955d011SMarcel Moolenaar 15053955d011SMarcel Moolenaar void 15063955d011SMarcel Moolenaar meta_compat_start(void) 15073955d011SMarcel Moolenaar { 15083955d011SMarcel Moolenaar #ifdef USE_FILEMON_ONCE 15093955d011SMarcel Moolenaar /* 15103955d011SMarcel Moolenaar * We need to re-open filemon for each cmd. 15113955d011SMarcel Moolenaar */ 15123955d011SMarcel Moolenaar BuildMon *pbm = &Mybm; 15133955d011SMarcel Moolenaar 15143955d011SMarcel Moolenaar if (pbm->mfp != NULL && useFilemon) { 15153955d011SMarcel Moolenaar filemon_open(pbm); 15163955d011SMarcel Moolenaar } else { 15173955d011SMarcel Moolenaar pbm->mon_fd = pbm->filemon_fd = -1; 15183955d011SMarcel Moolenaar } 15193955d011SMarcel Moolenaar #endif 15203955d011SMarcel Moolenaar if (pipe(childPipe) < 0) 15213955d011SMarcel Moolenaar Punt("Cannot create pipe: %s", strerror(errno)); 15223955d011SMarcel Moolenaar /* Set close-on-exec flag for both */ 1523be19d90bSSimon J. Gerraty (void)fcntl(childPipe[0], F_SETFD, FD_CLOEXEC); 1524be19d90bSSimon J. Gerraty (void)fcntl(childPipe[1], F_SETFD, FD_CLOEXEC); 15253955d011SMarcel Moolenaar } 15263955d011SMarcel Moolenaar 15273955d011SMarcel Moolenaar void 15283955d011SMarcel Moolenaar meta_compat_child(void) 15293955d011SMarcel Moolenaar { 15303955d011SMarcel Moolenaar meta_job_child(NULL); 15313955d011SMarcel Moolenaar if (dup2(childPipe[1], 1) < 0 || 15323955d011SMarcel Moolenaar dup2(1, 2) < 0) { 15333955d011SMarcel Moolenaar execError("dup2", "pipe"); 15343955d011SMarcel Moolenaar _exit(1); 15353955d011SMarcel Moolenaar } 15363955d011SMarcel Moolenaar } 15373955d011SMarcel Moolenaar 15383955d011SMarcel Moolenaar void 15393955d011SMarcel Moolenaar meta_compat_parent(void) 15403955d011SMarcel Moolenaar { 15413955d011SMarcel Moolenaar FILE *fp; 15423955d011SMarcel Moolenaar char buf[BUFSIZ]; 15433955d011SMarcel Moolenaar 15443955d011SMarcel Moolenaar close(childPipe[1]); /* child side */ 15453955d011SMarcel Moolenaar fp = fdopen(childPipe[0], "r"); 15463955d011SMarcel Moolenaar while (fgets(buf, sizeof(buf), fp)) { 15473955d011SMarcel Moolenaar meta_job_output(NULL, buf, ""); 15483955d011SMarcel Moolenaar printf("%s", buf); 15493955d011SMarcel Moolenaar } 15503955d011SMarcel Moolenaar fclose(fp); 15513955d011SMarcel Moolenaar } 15523955d011SMarcel Moolenaar 15533955d011SMarcel Moolenaar #endif /* USE_META */ 1554