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