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