Home | History | Annotate | Line # | Download | only in make
main.c revision 1.29
      1  1.29  christos /*	$NetBSD: main.c,v 1.29 1996/05/28 23:34:41 christos Exp $	*/
      2  1.19  christos 
      3   1.1       cgd /*
      4   1.1       cgd  * Copyright (c) 1988, 1989, 1990 The Regents of the University of California.
      5   1.1       cgd  * Copyright (c) 1988, 1989 by Adam de Boor
      6   1.1       cgd  * Copyright (c) 1989 by Berkeley Softworks
      7   1.1       cgd  * All rights reserved.
      8   1.1       cgd  *
      9   1.1       cgd  * This code is derived from software contributed to Berkeley by
     10   1.1       cgd  * Adam de Boor.
     11   1.1       cgd  *
     12   1.1       cgd  * Redistribution and use in source and binary forms, with or without
     13   1.1       cgd  * modification, are permitted provided that the following conditions
     14   1.1       cgd  * are met:
     15   1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     16   1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     17   1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     18   1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     19   1.1       cgd  *    documentation and/or other materials provided with the distribution.
     20   1.1       cgd  * 3. All advertising materials mentioning features or use of this software
     21   1.1       cgd  *    must display the following acknowledgement:
     22   1.1       cgd  *	This product includes software developed by the University of
     23   1.1       cgd  *	California, Berkeley and its contributors.
     24   1.1       cgd  * 4. Neither the name of the University nor the names of its contributors
     25   1.1       cgd  *    may be used to endorse or promote products derived from this software
     26   1.1       cgd  *    without specific prior written permission.
     27   1.1       cgd  *
     28   1.1       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     29   1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     30   1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     31   1.1       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     32   1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     33   1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     34   1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     35   1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     36   1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     37   1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     38   1.1       cgd  * SUCH DAMAGE.
     39   1.1       cgd  */
     40   1.1       cgd 
     41   1.1       cgd #ifndef lint
     42   1.1       cgd char copyright[] =
     43   1.1       cgd "@(#) Copyright (c) 1989 The Regents of the University of California.\n\
     44   1.1       cgd  All rights reserved.\n";
     45   1.1       cgd #endif /* not lint */
     46   1.1       cgd 
     47   1.1       cgd #ifndef lint
     48  1.19  christos #if 0
     49  1.19  christos static char sccsid[] = "@(#)main.c	5.25 (Berkeley) 4/1/91";
     50  1.19  christos #else
     51  1.29  christos static char rcsid[] = "$NetBSD: main.c,v 1.29 1996/05/28 23:34:41 christos Exp $";
     52  1.19  christos #endif
     53   1.1       cgd #endif /* not lint */
     54   1.1       cgd 
     55   1.1       cgd /*-
     56   1.1       cgd  * main.c --
     57   1.1       cgd  *	The main file for this entire program. Exit routines etc
     58   1.1       cgd  *	reside here.
     59   1.1       cgd  *
     60   1.1       cgd  * Utility functions defined in this file:
     61   1.1       cgd  *	Main_ParseArgLine	Takes a line of arguments, breaks them and
     62   1.1       cgd  *				treats them as if they were given when first
     63   1.1       cgd  *				invoked. Used by the parse module to implement
     64   1.1       cgd  *				the .MFLAGS target.
     65   1.1       cgd  *
     66   1.1       cgd  *	Error			Print a tagged error message. The global
     67   1.1       cgd  *				MAKE variable must have been defined. This
     68   1.1       cgd  *				takes a format string and two optional
     69   1.1       cgd  *				arguments for it.
     70   1.1       cgd  *
     71   1.1       cgd  *	Fatal			Print an error message and exit. Also takes
     72   1.1       cgd  *				a format string and two arguments.
     73   1.1       cgd  *
     74   1.1       cgd  *	Punt			Aborts all jobs and exits with a message. Also
     75   1.1       cgd  *				takes a format string and two arguments.
     76   1.1       cgd  *
     77   1.1       cgd  *	Finish			Finish things up by printing the number of
     78   1.1       cgd  *				errors which occured, as passed to it, and
     79   1.1       cgd  *				exiting.
     80   1.1       cgd  */
     81   1.1       cgd 
     82  1.13       cgd #include <sys/types.h>
     83  1.13       cgd #include <sys/time.h>
     84   1.1       cgd #include <sys/param.h>
     85  1.13       cgd #include <sys/resource.h>
     86  1.21  christos #include <sys/signal.h>
     87   1.1       cgd #include <sys/stat.h>
     88  1.17       gwr #include <sys/utsname.h>
     89  1.29  christos #include <sys/wait.h>
     90   1.1       cgd #include <errno.h>
     91   1.1       cgd #include <fcntl.h>
     92   1.1       cgd #include <stdio.h>
     93  1.13       cgd #if __STDC__
     94  1.13       cgd #include <stdarg.h>
     95  1.13       cgd #else
     96   1.1       cgd #include <varargs.h>
     97  1.13       cgd #endif
     98   1.1       cgd #include "make.h"
     99  1.13       cgd #include "hash.h"
    100  1.13       cgd #include "dir.h"
    101  1.13       cgd #include "job.h"
    102   1.1       cgd #include "pathnames.h"
    103   1.1       cgd 
    104   1.1       cgd #ifndef	DEFMAXLOCAL
    105   1.1       cgd #define	DEFMAXLOCAL DEFMAXJOBS
    106  1.24  christos #endif	/* DEFMAXLOCAL */
    107   1.1       cgd 
    108   1.1       cgd #define	MAKEFLAGS	".MAKEFLAGS"
    109   1.1       cgd 
    110   1.1       cgd Lst			create;		/* Targets to be made */
    111   1.1       cgd time_t			now;		/* Time at start of make */
    112   1.1       cgd GNode			*DEFAULT;	/* .DEFAULT node */
    113   1.1       cgd Boolean			allPrecious;	/* .PRECIOUS given on line by itself */
    114   1.1       cgd 
    115   1.1       cgd static Boolean		noBuiltins;	/* -r flag */
    116   1.1       cgd static Lst		makefiles;	/* ordered list of makefiles to read */
    117  1.21  christos int			maxJobs;	/* -j argument */
    118   1.1       cgd static int		maxLocal;	/* -L argument */
    119  1.13       cgd Boolean			compatMake;	/* -B argument */
    120   1.1       cgd Boolean			debug;		/* -d flag */
    121   1.1       cgd Boolean			noExecute;	/* -n flag */
    122   1.1       cgd Boolean			keepgoing;	/* -k flag */
    123   1.1       cgd Boolean			queryFlag;	/* -q flag */
    124   1.1       cgd Boolean			touchFlag;	/* -t flag */
    125   1.1       cgd Boolean			usePipes;	/* !-P flag */
    126   1.1       cgd Boolean			ignoreErrors;	/* -i flag */
    127   1.1       cgd Boolean			beSilent;	/* -s flag */
    128   1.1       cgd Boolean			oldVars;	/* variable substitution style */
    129   1.1       cgd Boolean			checkEnvFirst;	/* -e flag */
    130   1.1       cgd static Boolean		jobsRunning;	/* TRUE if the jobs might be running */
    131   1.1       cgd 
    132   1.1       cgd static Boolean		ReadMakefile();
    133  1.13       cgd static void		usage();
    134   1.1       cgd 
    135  1.13       cgd static char *curdir;			/* startup directory */
    136  1.13       cgd static char *objdir;			/* where we chdir'ed to */
    137   1.1       cgd 
    138   1.1       cgd /*-
    139   1.1       cgd  * MainParseArgs --
    140   1.1       cgd  *	Parse a given argument vector. Called from main() and from
    141   1.1       cgd  *	Main_ParseArgLine() when the .MAKEFLAGS target is used.
    142   1.1       cgd  *
    143   1.1       cgd  *	XXX: Deal with command line overriding .MAKEFLAGS in makefile
    144   1.1       cgd  *
    145   1.1       cgd  * Results:
    146   1.1       cgd  *	None
    147   1.1       cgd  *
    148   1.1       cgd  * Side Effects:
    149   1.1       cgd  *	Various global and local flags will be set depending on the flags
    150   1.1       cgd  *	given
    151   1.1       cgd  */
    152   1.1       cgd static void
    153   1.1       cgd MainParseArgs(argc, argv)
    154   1.1       cgd 	int argc;
    155   1.1       cgd 	char **argv;
    156   1.1       cgd {
    157   1.1       cgd 	extern int optind;
    158   1.1       cgd 	extern char *optarg;
    159  1.18  christos 	int c;
    160  1.22  christos 	int forceJobs = 0;
    161   1.1       cgd 
    162   1.1       cgd 	optind = 1;	/* since we're called more than once */
    163  1.21  christos #ifdef REMOTE
    164  1.25  christos # define OPTFLAGS "BD:I:L:PSd:ef:ij:km:nqrst"
    165  1.13       cgd #else
    166  1.25  christos # define OPTFLAGS "BD:I:PSd:ef:ij:km:nqrst"
    167  1.13       cgd #endif
    168  1.13       cgd rearg:	while((c = getopt(argc, argv, OPTFLAGS)) != EOF) {
    169   1.1       cgd 		switch(c) {
    170   1.1       cgd 		case 'D':
    171   1.1       cgd 			Var_Set(optarg, "1", VAR_GLOBAL);
    172   1.1       cgd 			Var_Append(MAKEFLAGS, "-D", VAR_GLOBAL);
    173   1.1       cgd 			Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
    174   1.1       cgd 			break;
    175   1.1       cgd 		case 'I':
    176   1.1       cgd 			Parse_AddIncludeDir(optarg);
    177   1.1       cgd 			Var_Append(MAKEFLAGS, "-I", VAR_GLOBAL);
    178   1.1       cgd 			Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
    179   1.1       cgd 			break;
    180  1.13       cgd 		case 'B':
    181  1.13       cgd 			compatMake = TRUE;
    182  1.13       cgd 			break;
    183  1.21  christos #ifdef REMOTE
    184   1.1       cgd 		case 'L':
    185   1.1       cgd 			maxLocal = atoi(optarg);
    186   1.1       cgd 			Var_Append(MAKEFLAGS, "-L", VAR_GLOBAL);
    187   1.1       cgd 			Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
    188   1.1       cgd 			break;
    189  1.21  christos #endif
    190   1.1       cgd 		case 'P':
    191   1.1       cgd 			usePipes = FALSE;
    192   1.1       cgd 			Var_Append(MAKEFLAGS, "-P", VAR_GLOBAL);
    193   1.1       cgd 			break;
    194   1.1       cgd 		case 'S':
    195   1.1       cgd 			keepgoing = FALSE;
    196   1.1       cgd 			Var_Append(MAKEFLAGS, "-S", VAR_GLOBAL);
    197   1.1       cgd 			break;
    198   1.1       cgd 		case 'd': {
    199   1.1       cgd 			char *modules = optarg;
    200   1.1       cgd 
    201   1.1       cgd 			for (; *modules; ++modules)
    202   1.1       cgd 				switch (*modules) {
    203   1.1       cgd 				case 'A':
    204   1.1       cgd 					debug = ~0;
    205   1.1       cgd 					break;
    206   1.1       cgd 				case 'a':
    207   1.1       cgd 					debug |= DEBUG_ARCH;
    208   1.1       cgd 					break;
    209   1.1       cgd 				case 'c':
    210   1.1       cgd 					debug |= DEBUG_COND;
    211   1.1       cgd 					break;
    212   1.1       cgd 				case 'd':
    213   1.1       cgd 					debug |= DEBUG_DIR;
    214   1.1       cgd 					break;
    215  1.13       cgd 				case 'f':
    216  1.13       cgd 					debug |= DEBUG_FOR;
    217  1.13       cgd 					break;
    218   1.1       cgd 				case 'g':
    219   1.1       cgd 					if (modules[1] == '1') {
    220   1.1       cgd 						debug |= DEBUG_GRAPH1;
    221   1.1       cgd 						++modules;
    222   1.1       cgd 					}
    223   1.1       cgd 					else if (modules[1] == '2') {
    224   1.1       cgd 						debug |= DEBUG_GRAPH2;
    225   1.1       cgd 						++modules;
    226   1.1       cgd 					}
    227   1.1       cgd 					break;
    228   1.1       cgd 				case 'j':
    229   1.1       cgd 					debug |= DEBUG_JOB;
    230   1.1       cgd 					break;
    231   1.1       cgd 				case 'm':
    232   1.1       cgd 					debug |= DEBUG_MAKE;
    233   1.1       cgd 					break;
    234   1.1       cgd 				case 's':
    235   1.1       cgd 					debug |= DEBUG_SUFF;
    236   1.1       cgd 					break;
    237   1.1       cgd 				case 't':
    238   1.1       cgd 					debug |= DEBUG_TARG;
    239   1.1       cgd 					break;
    240   1.1       cgd 				case 'v':
    241   1.1       cgd 					debug |= DEBUG_VAR;
    242   1.1       cgd 					break;
    243   1.1       cgd 				default:
    244   1.1       cgd 					(void)fprintf(stderr,
    245   1.1       cgd 				"make: illegal argument to d option -- %c\n",
    246   1.1       cgd 					    *modules);
    247   1.1       cgd 					usage();
    248   1.1       cgd 				}
    249   1.1       cgd 			Var_Append(MAKEFLAGS, "-d", VAR_GLOBAL);
    250   1.1       cgd 			Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
    251   1.1       cgd 			break;
    252   1.1       cgd 		}
    253   1.1       cgd 		case 'e':
    254   1.1       cgd 			checkEnvFirst = TRUE;
    255   1.1       cgd 			Var_Append(MAKEFLAGS, "-e", VAR_GLOBAL);
    256   1.1       cgd 			break;
    257   1.1       cgd 		case 'f':
    258   1.1       cgd 			(void)Lst_AtEnd(makefiles, (ClientData)optarg);
    259   1.1       cgd 			break;
    260   1.1       cgd 		case 'i':
    261   1.1       cgd 			ignoreErrors = TRUE;
    262   1.1       cgd 			Var_Append(MAKEFLAGS, "-i", VAR_GLOBAL);
    263   1.1       cgd 			break;
    264   1.1       cgd 		case 'j':
    265  1.22  christos 			forceJobs = TRUE;
    266   1.1       cgd 			maxJobs = atoi(optarg);
    267  1.21  christos #ifndef REMOTE
    268  1.21  christos 			maxLocal = maxJobs;
    269  1.21  christos #endif
    270   1.9       jtc 			Var_Append(MAKEFLAGS, "-j", VAR_GLOBAL);
    271   1.1       cgd 			Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
    272   1.1       cgd 			break;
    273   1.1       cgd 		case 'k':
    274   1.1       cgd 			keepgoing = TRUE;
    275   1.1       cgd 			Var_Append(MAKEFLAGS, "-k", VAR_GLOBAL);
    276   1.1       cgd 			break;
    277  1.25  christos 		case 'm':
    278  1.25  christos 			Dir_AddDir(sysIncPath, optarg);
    279  1.25  christos 			Var_Append(MAKEFLAGS, "-m", VAR_GLOBAL);
    280  1.25  christos 			Var_Append(MAKEFLAGS, optarg, VAR_GLOBAL);
    281  1.25  christos 			break;
    282   1.1       cgd 		case 'n':
    283   1.1       cgd 			noExecute = TRUE;
    284   1.1       cgd 			Var_Append(MAKEFLAGS, "-n", VAR_GLOBAL);
    285   1.1       cgd 			break;
    286   1.1       cgd 		case 'q':
    287   1.1       cgd 			queryFlag = TRUE;
    288   1.1       cgd 			/* Kind of nonsensical, wot? */
    289   1.1       cgd 			Var_Append(MAKEFLAGS, "-q", VAR_GLOBAL);
    290   1.1       cgd 			break;
    291   1.1       cgd 		case 'r':
    292   1.1       cgd 			noBuiltins = TRUE;
    293   1.1       cgd 			Var_Append(MAKEFLAGS, "-r", VAR_GLOBAL);
    294   1.1       cgd 			break;
    295   1.1       cgd 		case 's':
    296   1.1       cgd 			beSilent = TRUE;
    297   1.1       cgd 			Var_Append(MAKEFLAGS, "-s", VAR_GLOBAL);
    298   1.1       cgd 			break;
    299   1.1       cgd 		case 't':
    300   1.1       cgd 			touchFlag = TRUE;
    301   1.1       cgd 			Var_Append(MAKEFLAGS, "-t", VAR_GLOBAL);
    302   1.1       cgd 			break;
    303   1.1       cgd 		default:
    304   1.1       cgd 		case '?':
    305   1.1       cgd 			usage();
    306   1.1       cgd 		}
    307   1.1       cgd 	}
    308   1.1       cgd 
    309  1.22  christos 	/*
    310  1.22  christos 	 * Be compatible if user did not specify -j and did not explicitly
    311  1.22  christos 	 * turned compatibility on
    312  1.22  christos 	 */
    313  1.22  christos 	if (!compatMake && !forceJobs)
    314  1.22  christos 		compatMake = TRUE;
    315  1.22  christos 
    316   1.1       cgd 	oldVars = TRUE;
    317   1.1       cgd 
    318   1.1       cgd 	/*
    319   1.1       cgd 	 * See if the rest of the arguments are variable assignments and
    320   1.1       cgd 	 * perform them if so. Else take them to be targets and stuff them
    321   1.1       cgd 	 * on the end of the "create" list.
    322   1.1       cgd 	 */
    323   1.1       cgd 	for (argv += optind, argc -= optind; *argv; ++argv, --argc)
    324   1.1       cgd 		if (Parse_IsVar(*argv))
    325   1.1       cgd 			Parse_DoVar(*argv, VAR_CMD);
    326   1.1       cgd 		else {
    327   1.1       cgd 			if (!**argv)
    328   1.1       cgd 				Punt("illegal (null) argument.");
    329   1.1       cgd 			if (**argv == '-') {
    330  1.13       cgd 				if ((*argv)[1])
    331  1.13       cgd 					optind = 0;     /* -flag... */
    332  1.13       cgd 				else
    333  1.13       cgd 					optind = 1;     /* - */
    334   1.1       cgd 				goto rearg;
    335   1.1       cgd 			}
    336  1.14       jtc 			(void)Lst_AtEnd(create, (ClientData)strdup(*argv));
    337   1.1       cgd 		}
    338   1.1       cgd }
    339   1.1       cgd 
    340   1.1       cgd /*-
    341   1.1       cgd  * Main_ParseArgLine --
    342   1.1       cgd  *  	Used by the parse module when a .MFLAGS or .MAKEFLAGS target
    343   1.1       cgd  *	is encountered and by main() when reading the .MAKEFLAGS envariable.
    344   1.1       cgd  *	Takes a line of arguments and breaks it into its
    345   1.1       cgd  * 	component words and passes those words and the number of them to the
    346   1.1       cgd  *	MainParseArgs function.
    347   1.1       cgd  *	The line should have all its leading whitespace removed.
    348   1.1       cgd  *
    349   1.1       cgd  * Results:
    350   1.1       cgd  *	None
    351   1.1       cgd  *
    352   1.1       cgd  * Side Effects:
    353   1.1       cgd  *	Only those that come from the various arguments.
    354   1.1       cgd  */
    355   1.1       cgd void
    356   1.1       cgd Main_ParseArgLine(line)
    357   1.1       cgd 	char *line;			/* Line to fracture */
    358   1.1       cgd {
    359   1.1       cgd 	char **argv;			/* Manufactured argument vector */
    360   1.1       cgd 	int argc;			/* Number of arguments in argv */
    361   1.1       cgd 
    362   1.1       cgd 	if (line == NULL)
    363   1.1       cgd 		return;
    364  1.13       cgd 	for (; *line == ' '; ++line)
    365  1.13       cgd 		continue;
    366   1.1       cgd 	if (!*line)
    367   1.1       cgd 		return;
    368   1.1       cgd 
    369  1.15       jtc 	argv = brk_string(line, &argc, TRUE);
    370   1.1       cgd 	MainParseArgs(argc, argv);
    371   1.1       cgd }
    372   1.1       cgd 
    373   1.1       cgd /*-
    374   1.1       cgd  * main --
    375   1.1       cgd  *	The main function, for obvious reasons. Initializes variables
    376   1.1       cgd  *	and a few modules, then parses the arguments give it in the
    377   1.1       cgd  *	environment and on the command line. Reads the system makefile
    378   1.1       cgd  *	followed by either Makefile, makefile or the file given by the
    379   1.1       cgd  *	-f argument. Sets the .MAKEFLAGS PMake variable based on all the
    380   1.1       cgd  *	flags it has received by then uses either the Make or the Compat
    381   1.1       cgd  *	module to create the initial list of targets.
    382   1.1       cgd  *
    383   1.1       cgd  * Results:
    384   1.1       cgd  *	If -q was given, exits -1 if anything was out-of-date. Else it exits
    385   1.1       cgd  *	0.
    386   1.1       cgd  *
    387   1.1       cgd  * Side Effects:
    388   1.1       cgd  *	The program exits when done. Targets are created. etc. etc. etc.
    389   1.1       cgd  */
    390  1.13       cgd int
    391   1.1       cgd main(argc, argv)
    392   1.1       cgd 	int argc;
    393   1.1       cgd 	char **argv;
    394   1.1       cgd {
    395   1.1       cgd 	Lst targs;	/* target nodes to create -- passed to Make_Init */
    396  1.13       cgd 	Boolean outOfDate = TRUE; 	/* FALSE if all targets up to date */
    397  1.13       cgd 	struct stat sb, sa;
    398  1.14       jtc 	char *p, *p1, *path, *pwd, *getenv(), *getwd();
    399  1.13       cgd 	char mdpath[MAXPATHLEN + 1];
    400  1.13       cgd 	char obpath[MAXPATHLEN + 1];
    401  1.13       cgd 	char cdpath[MAXPATHLEN + 1];
    402  1.17       gwr 	struct utsname utsname;
    403  1.18  christos     	char *machine = getenv("MACHINE");
    404  1.25  christos 	Lst sysMkPath;			/* Path of sys.mk */
    405  1.25  christos 	char *cp = NULL, *start;
    406  1.25  christos 					/* avoid faults on read-only strings */
    407  1.25  christos 	static char syspath[] = _PATH_DEFSYSPATH;
    408  1.13       cgd 
    409  1.21  christos #ifdef RLIMIT_NOFILE
    410  1.21  christos 	/*
    411  1.21  christos 	 * get rid of resource limit on file descriptors
    412  1.21  christos 	 */
    413  1.21  christos 	{
    414  1.21  christos 		struct rlimit rl;
    415  1.21  christos 		if (getrlimit(RLIMIT_NOFILE, &rl) != -1 &&
    416  1.21  christos 		    rl.rlim_cur != rl.rlim_max) {
    417  1.21  christos 			rl.rlim_cur = rl.rlim_max;
    418  1.21  christos 			(void) setrlimit(RLIMIT_NOFILE, &rl);
    419  1.21  christos 		}
    420  1.21  christos 	}
    421  1.21  christos #endif
    422  1.13       cgd 	/*
    423  1.13       cgd 	 * Find where we are and take care of PWD for the automounter...
    424  1.13       cgd 	 * All this code is so that we know where we are when we start up
    425  1.13       cgd 	 * on a different machine with pmake.
    426  1.13       cgd 	 */
    427  1.13       cgd 	curdir = cdpath;
    428  1.16   mycroft 	if (getcwd(curdir, MAXPATHLEN) == NULL) {
    429  1.16   mycroft 		(void)fprintf(stderr, "make: %s.\n", strerror(errno));
    430  1.13       cgd 		exit(2);
    431  1.13       cgd 	}
    432  1.13       cgd 
    433  1.13       cgd 	if (stat(curdir, &sa) == -1) {
    434  1.13       cgd 	    (void)fprintf(stderr, "make: %s: %s.\n",
    435  1.13       cgd 			  curdir, strerror(errno));
    436  1.13       cgd 	    exit(2);
    437  1.13       cgd 	}
    438  1.13       cgd 
    439  1.13       cgd 	if ((pwd = getenv("PWD")) != NULL) {
    440  1.13       cgd 	    if (stat(pwd, &sb) == 0 && sa.st_ino == sb.st_ino &&
    441  1.13       cgd 		sa.st_dev == sb.st_dev)
    442  1.13       cgd 		(void) strcpy(curdir, pwd);
    443  1.13       cgd 	}
    444  1.13       cgd 
    445  1.17       gwr 	/*
    446  1.17       gwr 	 * Get the name of this type of MACHINE from utsname
    447  1.17       gwr 	 * so we can share an executable for similar machines.
    448  1.17       gwr 	 * (i.e. m68k: amiga hp300, mac68k, sun3, ...)
    449  1.17       gwr 	 *
    450  1.17       gwr 	 * Note that while MACHINE is decided at run-time,
    451  1.17       gwr 	 * MACHINE_ARCH is always known at compile time.
    452  1.17       gwr 	 */
    453  1.18  christos     	if (!machine) {
    454  1.26  christos #ifndef MACHINE
    455  1.23  christos 	    if (uname(&utsname) == -1) {
    456  1.18  christos 		    perror("make: uname");
    457  1.18  christos 		    exit(2);
    458  1.18  christos 	    }
    459  1.18  christos 	    machine = utsname.machine;
    460  1.26  christos #else
    461  1.26  christos 	    machine = MACHINE;
    462  1.26  christos #endif
    463  1.17       gwr 	}
    464   1.1       cgd 
    465   1.1       cgd 	/*
    466   1.1       cgd 	 * if the MAKEOBJDIR (or by default, the _PATH_OBJDIR) directory
    467   1.1       cgd 	 * exists, change into it and build there.  Once things are
    468   1.1       cgd 	 * initted, have to add the original directory to the search path,
    469   1.1       cgd 	 * and modify the paths for the Makefiles apropriately.  The
    470   1.1       cgd 	 * current directory is also placed as a variable for make scripts.
    471   1.1       cgd 	 */
    472   1.7       cgd 	if (!(path = getenv("MAKEOBJDIR"))) {
    473   1.1       cgd 		path = _PATH_OBJDIR;
    474  1.18  christos 		(void) sprintf(mdpath, "%s.%s", path, machine);
    475   1.7       cgd 	}
    476  1.13       cgd 	else
    477  1.13       cgd 		(void) strncpy(mdpath, path, MAXPATHLEN + 1);
    478  1.13       cgd 
    479  1.13       cgd 	if (stat(mdpath, &sb) == 0 && S_ISDIR(sb.st_mode)) {
    480   1.7       cgd 
    481  1.13       cgd 		if (chdir(mdpath)) {
    482  1.13       cgd 			(void)fprintf(stderr, "make warning: %s: %s.\n",
    483  1.13       cgd 				      mdpath, strerror(errno));
    484  1.13       cgd 			objdir = curdir;
    485  1.13       cgd 		}
    486  1.13       cgd 		else {
    487  1.13       cgd 			if (mdpath[0] != '/') {
    488  1.13       cgd 				(void) sprintf(obpath, "%s/%s", curdir, mdpath);
    489  1.13       cgd 				objdir = obpath;
    490  1.13       cgd 			}
    491  1.13       cgd 			else
    492  1.13       cgd 				objdir = mdpath;
    493  1.13       cgd 		}
    494   1.4       cgd 	}
    495  1.13       cgd 	else {
    496  1.13       cgd 		if (stat(path, &sb) == 0 && S_ISDIR(sb.st_mode)) {
    497  1.13       cgd 
    498  1.13       cgd 			if (chdir(path)) {
    499   1.7       cgd 				(void)fprintf(stderr, "make warning: %s: %s.\n",
    500  1.13       cgd 					      path, strerror(errno));
    501  1.13       cgd 				objdir = curdir;
    502  1.13       cgd 			}
    503  1.13       cgd 			else {
    504  1.13       cgd 				if (path[0] != '/') {
    505  1.13       cgd 					(void) sprintf(obpath, "%s/%s", curdir,
    506  1.13       cgd 						       path);
    507  1.13       cgd 					objdir = obpath;
    508  1.13       cgd 				}
    509  1.13       cgd 				else
    510  1.13       cgd 					objdir = obpath;
    511  1.13       cgd 			}
    512   1.7       cgd 		}
    513  1.13       cgd 		else
    514  1.13       cgd 			objdir = curdir;
    515   1.1       cgd 	}
    516   1.1       cgd 
    517  1.13       cgd 	setenv("PWD", objdir, 1);
    518  1.13       cgd 
    519   1.1       cgd 	create = Lst_Init(FALSE);
    520   1.1       cgd 	makefiles = Lst_Init(FALSE);
    521   1.1       cgd 	beSilent = FALSE;		/* Print commands as executed */
    522   1.1       cgd 	ignoreErrors = FALSE;		/* Pay attention to non-zero returns */
    523   1.1       cgd 	noExecute = FALSE;		/* Execute all commands */
    524   1.1       cgd 	keepgoing = FALSE;		/* Stop on error */
    525   1.1       cgd 	allPrecious = FALSE;		/* Remove targets when interrupted */
    526   1.1       cgd 	queryFlag = FALSE;		/* This is not just a check-run */
    527   1.1       cgd 	noBuiltins = FALSE;		/* Read the built-in rules */
    528   1.1       cgd 	touchFlag = FALSE;		/* Actually update targets */
    529   1.1       cgd 	usePipes = TRUE;		/* Catch child output in pipes */
    530   1.1       cgd 	debug = 0;			/* No debug verbosity, please. */
    531   1.1       cgd 	jobsRunning = FALSE;
    532   1.1       cgd 
    533  1.21  christos 	maxLocal = DEFMAXLOCAL;		/* Set default local max concurrency */
    534  1.21  christos #ifdef REMOTE
    535   1.1       cgd 	maxJobs = DEFMAXJOBS;		/* Set default max concurrency */
    536  1.13       cgd #else
    537  1.21  christos 	maxJobs = maxLocal;
    538  1.13       cgd #endif
    539  1.21  christos 	compatMake = FALSE;		/* No compat mode */
    540   1.1       cgd 
    541  1.13       cgd 
    542   1.1       cgd 	/*
    543   1.1       cgd 	 * Initialize the parsing, directory and variable modules to prepare
    544   1.1       cgd 	 * for the reading of inclusion paths and variable settings on the
    545   1.1       cgd 	 * command line
    546   1.1       cgd 	 */
    547   1.1       cgd 	Dir_Init();		/* Initialize directory structures so -I flags
    548   1.1       cgd 				 * can be processed correctly */
    549   1.1       cgd 	Parse_Init();		/* Need to initialize the paths of #include
    550   1.1       cgd 				 * directories */
    551   1.1       cgd 	Var_Init();		/* As well as the lists of variables for
    552   1.1       cgd 				 * parsing arguments */
    553  1.14       jtc         str_init();
    554  1.13       cgd 	if (objdir != curdir)
    555   1.1       cgd 		Dir_AddDir(dirSearchPath, curdir);
    556   1.4       cgd 	Var_Set(".CURDIR", curdir, VAR_GLOBAL);
    557  1.13       cgd 	Var_Set(".OBJDIR", objdir, VAR_GLOBAL);
    558   1.1       cgd 
    559   1.1       cgd 	/*
    560   1.1       cgd 	 * Initialize various variables.
    561   1.1       cgd 	 *	MAKE also gets this name, for compatibility
    562   1.1       cgd 	 *	.MAKEFLAGS gets set to the empty string just in case.
    563   1.1       cgd 	 *	MFLAGS also gets initialized empty, for compatibility.
    564   1.1       cgd 	 */
    565   1.1       cgd 	Var_Set("MAKE", argv[0], VAR_GLOBAL);
    566   1.1       cgd 	Var_Set(MAKEFLAGS, "", VAR_GLOBAL);
    567   1.1       cgd 	Var_Set("MFLAGS", "", VAR_GLOBAL);
    568  1.18  christos 	Var_Set("MACHINE", machine, VAR_GLOBAL);
    569  1.13       cgd #ifdef MACHINE_ARCH
    570   1.8       cgd 	Var_Set("MACHINE_ARCH", MACHINE_ARCH, VAR_GLOBAL);
    571  1.13       cgd #endif
    572   1.1       cgd 
    573   1.1       cgd 	/*
    574   1.1       cgd 	 * First snag any flags out of the MAKE environment variable.
    575   1.1       cgd 	 * (Note this is *not* MAKEFLAGS since /bin/make uses that and it's
    576   1.1       cgd 	 * in a different format).
    577   1.1       cgd 	 */
    578   1.1       cgd #ifdef POSIX
    579   1.1       cgd 	Main_ParseArgLine(getenv("MAKEFLAGS"));
    580   1.1       cgd #else
    581   1.1       cgd 	Main_ParseArgLine(getenv("MAKE"));
    582   1.1       cgd #endif
    583   1.1       cgd 
    584   1.1       cgd 	MainParseArgs(argc, argv);
    585   1.1       cgd 
    586   1.1       cgd 	/*
    587   1.1       cgd 	 * Initialize archive, target and suffix modules in preparation for
    588   1.1       cgd 	 * parsing the makefile(s)
    589   1.1       cgd 	 */
    590   1.1       cgd 	Arch_Init();
    591   1.1       cgd 	Targ_Init();
    592   1.1       cgd 	Suff_Init();
    593   1.1       cgd 
    594   1.1       cgd 	DEFAULT = NILGNODE;
    595   1.1       cgd 	(void)time(&now);
    596   1.1       cgd 
    597   1.1       cgd 	/*
    598   1.1       cgd 	 * Set up the .TARGETS variable to contain the list of targets to be
    599   1.1       cgd 	 * created. If none specified, make the variable empty -- the parser
    600   1.1       cgd 	 * will fill the thing in with the default or .MAIN target.
    601   1.1       cgd 	 */
    602   1.1       cgd 	if (!Lst_IsEmpty(create)) {
    603   1.1       cgd 		LstNode ln;
    604   1.1       cgd 
    605   1.1       cgd 		for (ln = Lst_First(create); ln != NILLNODE;
    606   1.1       cgd 		    ln = Lst_Succ(ln)) {
    607   1.1       cgd 			char *name = (char *)Lst_Datum(ln);
    608   1.1       cgd 
    609   1.1       cgd 			Var_Append(".TARGETS", name, VAR_GLOBAL);
    610   1.1       cgd 		}
    611   1.1       cgd 	} else
    612   1.1       cgd 		Var_Set(".TARGETS", "", VAR_GLOBAL);
    613   1.1       cgd 
    614  1.25  christos 
    615   1.1       cgd 	/*
    616  1.25  christos 	 * If no user-supplied system path was given (through the -m option)
    617  1.25  christos 	 * add the directories from the DEFSYSPATH (more than one may be given
    618  1.25  christos 	 * as dir1:...:dirn) to the system include path.
    619   1.1       cgd 	 */
    620  1.25  christos 	if (Lst_IsEmpty(sysIncPath)) {
    621  1.25  christos 		for (start = syspath; *start != '\0'; start = cp) {
    622  1.25  christos 			for (cp = start; *cp != '\0' && *cp != ':'; cp++)
    623  1.25  christos 				continue;
    624  1.25  christos 			if (*cp == '\0') {
    625  1.25  christos 				Dir_AddDir(sysIncPath, start);
    626  1.25  christos 			} else {
    627  1.25  christos 				*cp++ = '\0';
    628  1.25  christos 				Dir_AddDir(sysIncPath, start);
    629  1.25  christos 			}
    630  1.25  christos 		}
    631  1.25  christos 	}
    632  1.25  christos 
    633  1.25  christos 	/*
    634  1.25  christos 	 * Read in the built-in rules first, followed by the specified
    635  1.25  christos 	 * makefile, if it was (makefile != (char *) NULL), or the default
    636  1.25  christos 	 * Makefile and makefile, in that order, if it wasn't.
    637  1.25  christos 	 */
    638  1.25  christos 	if (!noBuiltins) {
    639  1.25  christos 		LstNode ln;
    640  1.25  christos 
    641  1.25  christos 		sysMkPath = Lst_Init (FALSE);
    642  1.25  christos 		Dir_Expand (_PATH_DEFSYSMK, sysIncPath, sysMkPath);
    643  1.25  christos 		if (Lst_IsEmpty(sysMkPath))
    644  1.25  christos 			Fatal("make: no system rules (%s).", _PATH_DEFSYSMK);
    645  1.25  christos 		ln = Lst_Find(sysMkPath, (ClientData)NULL, ReadMakefile);
    646  1.25  christos 		if (ln != NILLNODE)
    647  1.25  christos 			Fatal("make: cannot open %s.", (char *)Lst_Datum(ln));
    648  1.25  christos 	}
    649   1.1       cgd 
    650   1.1       cgd 	if (!Lst_IsEmpty(makefiles)) {
    651   1.1       cgd 		LstNode ln;
    652   1.1       cgd 
    653   1.1       cgd 		ln = Lst_Find(makefiles, (ClientData)NULL, ReadMakefile);
    654   1.1       cgd 		if (ln != NILLNODE)
    655   1.1       cgd 			Fatal("make: cannot open %s.", (char *)Lst_Datum(ln));
    656   1.1       cgd 	} else if (!ReadMakefile("makefile"))
    657   1.1       cgd 		(void)ReadMakefile("Makefile");
    658   1.1       cgd 
    659   1.1       cgd 	(void)ReadMakefile(".depend");
    660   1.1       cgd 
    661  1.14       jtc 	Var_Append("MFLAGS", Var_Value(MAKEFLAGS, VAR_GLOBAL, &p1), VAR_GLOBAL);
    662  1.14       jtc 	if (p1)
    663  1.14       jtc 	    free(p1);
    664   1.1       cgd 
    665   1.1       cgd 	/* Install all the flags into the MAKE envariable. */
    666  1.14       jtc 	if (((p = Var_Value(MAKEFLAGS, VAR_GLOBAL, &p1)) != NULL) && *p)
    667   1.1       cgd #ifdef POSIX
    668   1.1       cgd 		setenv("MAKEFLAGS", p, 1);
    669   1.1       cgd #else
    670   1.1       cgd 		setenv("MAKE", p, 1);
    671   1.1       cgd #endif
    672  1.14       jtc 	if (p1)
    673  1.14       jtc 	    free(p1);
    674   1.1       cgd 
    675   1.1       cgd 	/*
    676   1.1       cgd 	 * For compatibility, look at the directories in the VPATH variable
    677   1.1       cgd 	 * and add them to the search path, if the variable is defined. The
    678   1.1       cgd 	 * variable's value is in the same format as the PATH envariable, i.e.
    679   1.1       cgd 	 * <directory>:<directory>:<directory>...
    680   1.1       cgd 	 */
    681   1.1       cgd 	if (Var_Exists("VPATH", VAR_CMD)) {
    682   1.1       cgd 		char *vpath, *path, *cp, savec;
    683   1.1       cgd 		/*
    684   1.1       cgd 		 * GCC stores string constants in read-only memory, but
    685   1.1       cgd 		 * Var_Subst will want to write this thing, so store it
    686   1.1       cgd 		 * in an array
    687   1.1       cgd 		 */
    688   1.1       cgd 		static char VPATH[] = "${VPATH}";
    689   1.1       cgd 
    690  1.13       cgd 		vpath = Var_Subst(NULL, VPATH, VAR_CMD, FALSE);
    691   1.1       cgd 		path = vpath;
    692   1.1       cgd 		do {
    693   1.1       cgd 			/* skip to end of directory */
    694  1.13       cgd 			for (cp = path; *cp != ':' && *cp != '\0'; cp++)
    695  1.13       cgd 				continue;
    696   1.1       cgd 			/* Save terminator character so know when to stop */
    697   1.1       cgd 			savec = *cp;
    698   1.1       cgd 			*cp = '\0';
    699   1.1       cgd 			/* Add directory to search path */
    700   1.1       cgd 			Dir_AddDir(dirSearchPath, path);
    701   1.1       cgd 			*cp = savec;
    702   1.1       cgd 			path = cp + 1;
    703   1.1       cgd 		} while (savec == ':');
    704   1.1       cgd 		(void)free((Address)vpath);
    705   1.1       cgd 	}
    706   1.1       cgd 
    707   1.1       cgd 	/*
    708   1.1       cgd 	 * Now that all search paths have been read for suffixes et al, it's
    709   1.1       cgd 	 * time to add the default search path to their lists...
    710   1.1       cgd 	 */
    711   1.1       cgd 	Suff_DoPaths();
    712   1.1       cgd 
    713   1.1       cgd 	/* print the initial graph, if the user requested it */
    714   1.1       cgd 	if (DEBUG(GRAPH1))
    715   1.1       cgd 		Targ_PrintGraph(1);
    716   1.1       cgd 
    717   1.1       cgd 	/*
    718   1.1       cgd 	 * Have now read the entire graph and need to make a list of targets
    719   1.1       cgd 	 * to create. If none was given on the command line, we consult the
    720   1.1       cgd 	 * parsing module to find the main target(s) to create.
    721   1.1       cgd 	 */
    722   1.1       cgd 	if (Lst_IsEmpty(create))
    723   1.1       cgd 		targs = Parse_MainName();
    724   1.1       cgd 	else
    725   1.1       cgd 		targs = Targ_FindList(create, TARG_CREATE);
    726   1.1       cgd 
    727  1.13       cgd 	if (!compatMake) {
    728   1.1       cgd 		/*
    729   1.1       cgd 		 * Initialize job module before traversing the graph, now that
    730   1.1       cgd 		 * any .BEGIN and .END targets have been read.  This is done
    731   1.1       cgd 		 * only if the -q flag wasn't given (to prevent the .BEGIN from
    732   1.1       cgd 		 * being executed should it exist).
    733   1.1       cgd 		 */
    734   1.1       cgd 		if (!queryFlag) {
    735   1.1       cgd 			if (maxLocal == -1)
    736   1.1       cgd 				maxLocal = maxJobs;
    737   1.1       cgd 			Job_Init(maxJobs, maxLocal);
    738   1.1       cgd 			jobsRunning = TRUE;
    739   1.1       cgd 		}
    740   1.1       cgd 
    741   1.1       cgd 		/* Traverse the graph, checking on all the targets */
    742   1.1       cgd 		outOfDate = Make_Run(targs);
    743   1.1       cgd 	} else
    744   1.1       cgd 		/*
    745   1.1       cgd 		 * Compat_Init will take care of creating all the targets as
    746   1.1       cgd 		 * well as initializing the module.
    747   1.1       cgd 		 */
    748   1.1       cgd 		Compat_Run(targs);
    749   1.1       cgd 
    750  1.14       jtc 	Lst_Destroy(targs, NOFREE);
    751  1.14       jtc 	Lst_Destroy(makefiles, NOFREE);
    752  1.14       jtc 	Lst_Destroy(create, (void (*) __P((ClientData))) free);
    753  1.14       jtc 
    754   1.1       cgd 	/* print the graph now it's been processed if the user requested it */
    755   1.1       cgd 	if (DEBUG(GRAPH2))
    756   1.1       cgd 		Targ_PrintGraph(2);
    757   1.1       cgd 
    758  1.14       jtc 	Suff_End();
    759  1.14       jtc         Targ_End();
    760  1.14       jtc 	Arch_End();
    761  1.14       jtc 	str_end();
    762  1.14       jtc 	Var_End();
    763  1.14       jtc 	Parse_End();
    764  1.14       jtc 	Dir_End();
    765  1.14       jtc 
    766   1.1       cgd 	if (queryFlag && outOfDate)
    767  1.13       cgd 		return(1);
    768   1.1       cgd 	else
    769  1.13       cgd 		return(0);
    770   1.1       cgd }
    771   1.1       cgd 
    772   1.1       cgd /*-
    773   1.1       cgd  * ReadMakefile  --
    774   1.1       cgd  *	Open and parse the given makefile.
    775   1.1       cgd  *
    776   1.1       cgd  * Results:
    777   1.1       cgd  *	TRUE if ok. FALSE if couldn't open file.
    778   1.1       cgd  *
    779   1.1       cgd  * Side Effects:
    780   1.1       cgd  *	lots
    781   1.1       cgd  */
    782   1.1       cgd static Boolean
    783   1.1       cgd ReadMakefile(fname)
    784   1.1       cgd 	char *fname;		/* makefile to read */
    785   1.1       cgd {
    786  1.25  christos 	extern Lst parseIncPath;
    787   1.1       cgd 	FILE *stream;
    788   1.1       cgd 	char *name, path[MAXPATHLEN + 1];
    789   1.1       cgd 
    790   1.1       cgd 	if (!strcmp(fname, "-")) {
    791   1.1       cgd 		Parse_File("(stdin)", stdin);
    792   1.1       cgd 		Var_Set("MAKEFILE", "", VAR_GLOBAL);
    793   1.1       cgd 	} else {
    794  1.13       cgd 		if ((stream = fopen(fname, "r")) != NULL)
    795   1.1       cgd 			goto found;
    796   1.1       cgd 		/* if we've chdir'd, rebuild the path name */
    797  1.13       cgd 		if (curdir != objdir && *fname != '/') {
    798   1.1       cgd 			(void)sprintf(path, "%s/%s", curdir, fname);
    799  1.13       cgd 			if ((stream = fopen(path, "r")) != NULL) {
    800   1.1       cgd 				fname = path;
    801   1.1       cgd 				goto found;
    802   1.1       cgd 			}
    803   1.1       cgd 		}
    804   1.1       cgd 		/* look in -I and system include directories. */
    805   1.1       cgd 		name = Dir_FindFile(fname, parseIncPath);
    806   1.1       cgd 		if (!name)
    807   1.1       cgd 			name = Dir_FindFile(fname, sysIncPath);
    808   1.1       cgd 		if (!name || !(stream = fopen(name, "r")))
    809   1.1       cgd 			return(FALSE);
    810   1.1       cgd 		fname = name;
    811   1.1       cgd 		/*
    812   1.1       cgd 		 * set the MAKEFILE variable desired by System V fans -- the
    813   1.1       cgd 		 * placement of the setting here means it gets set to the last
    814   1.1       cgd 		 * makefile specified, as it is set by SysV make.
    815   1.1       cgd 		 */
    816   1.1       cgd found:		Var_Set("MAKEFILE", fname, VAR_GLOBAL);
    817   1.1       cgd 		Parse_File(fname, stream);
    818   1.1       cgd 		(void)fclose(stream);
    819   1.1       cgd 	}
    820   1.1       cgd 	return(TRUE);
    821  1.29  christos }
    822  1.29  christos 
    823  1.29  christos /*-
    824  1.29  christos  * Cmd_Exec --
    825  1.29  christos  *	Execute the command in cmd, and return the output of that command
    826  1.29  christos  *	in a string.
    827  1.29  christos  *
    828  1.29  christos  * Results:
    829  1.29  christos  *	A string containing the output of the command, or the empty string
    830  1.29  christos  *	If err is not NULL, it contains the reason for the command failure
    831  1.29  christos  *
    832  1.29  christos  * Side Effects:
    833  1.29  christos  *	The string must be freed by the caller.
    834  1.29  christos  */
    835  1.29  christos char *
    836  1.29  christos Cmd_Exec(cmd, err)
    837  1.29  christos     char *cmd;
    838  1.29  christos     char **err;
    839  1.29  christos {
    840  1.29  christos     char	*args[4];   	/* Args for invoking the shell */
    841  1.29  christos     int 	fds[2];	    	/* Pipe streams */
    842  1.29  christos     int 	cpid;	    	/* Child PID */
    843  1.29  christos     int 	pid;	    	/* PID from wait() */
    844  1.29  christos     char	*res;		/* result */
    845  1.29  christos     int		status;		/* command exit status */
    846  1.29  christos     Buffer	buf;		/* buffer to store the result */
    847  1.29  christos     char	*cp;
    848  1.29  christos     int		cc;
    849  1.29  christos 
    850  1.29  christos 
    851  1.29  christos     *err = NULL;
    852  1.29  christos 
    853  1.29  christos     /*
    854  1.29  christos      * Set up arguments for shell
    855  1.29  christos      */
    856  1.29  christos     args[0] = "sh";
    857  1.29  christos     args[1] = "-c";
    858  1.29  christos     args[2] = cmd;
    859  1.29  christos     args[3] = NULL;
    860  1.29  christos 
    861  1.29  christos     /*
    862  1.29  christos      * Open a pipe for fetching its output
    863  1.29  christos      */
    864  1.29  christos     if (pipe(fds) == -1) {
    865  1.29  christos 	*err = "Couldn't create pipe for \"%s\"";
    866  1.29  christos 	goto bad;
    867  1.29  christos     }
    868  1.29  christos 
    869  1.29  christos     /*
    870  1.29  christos      * Fork
    871  1.29  christos      */
    872  1.29  christos     switch (cpid = vfork()) {
    873  1.29  christos     case 0:
    874  1.29  christos 	/*
    875  1.29  christos 	 * Close input side of pipe
    876  1.29  christos 	 */
    877  1.29  christos 	(void) close(fds[0]);
    878  1.29  christos 
    879  1.29  christos 	/*
    880  1.29  christos 	 * Duplicate the output stream to the shell's output, then
    881  1.29  christos 	 * shut the extra thing down. Note we don't fetch the error
    882  1.29  christos 	 * stream...why not? Why?
    883  1.29  christos 	 */
    884  1.29  christos 	(void) dup2(fds[1], 1);
    885  1.29  christos 	(void) close(fds[1]);
    886  1.29  christos 
    887  1.29  christos 	(void) execv("/bin/sh", args);
    888  1.29  christos 	_exit(1);
    889  1.29  christos 	/*NOTREACHED*/
    890  1.29  christos 
    891  1.29  christos     case -1:
    892  1.29  christos 	*err = "Couldn't exec \"%s\"";
    893  1.29  christos 	goto bad;
    894  1.29  christos 
    895  1.29  christos     default:
    896  1.29  christos 	/*
    897  1.29  christos 	 * No need for the writing half
    898  1.29  christos 	 */
    899  1.29  christos 	(void) close(fds[1]);
    900  1.29  christos 
    901  1.29  christos 	buf = Buf_Init (MAKE_BSIZE);
    902  1.29  christos 
    903  1.29  christos 	do {
    904  1.29  christos 	    char   result[BUFSIZ];
    905  1.29  christos 	    cc = read(fds[0], result, sizeof(result));
    906  1.29  christos 	    if (cc > 0)
    907  1.29  christos 		Buf_AddBytes(buf, cc, (Byte *) result);
    908  1.29  christos 	}
    909  1.29  christos 	while (cc > 0 || (cc == -1 && errno == EINTR));
    910  1.29  christos 
    911  1.29  christos 	/*
    912  1.29  christos 	 * Close the input side of the pipe.
    913  1.29  christos 	 */
    914  1.29  christos 	(void) close(fds[0]);
    915  1.29  christos 
    916  1.29  christos 	/*
    917  1.29  christos 	 * Wait for the process to exit.
    918  1.29  christos 	 */
    919  1.29  christos 	while(((pid = wait(&status)) != cpid) && (pid >= 0))
    920  1.29  christos 	    continue;
    921  1.29  christos 
    922  1.29  christos 	res = (char *)Buf_GetAll (buf, &cc);
    923  1.29  christos 	Buf_Destroy (buf, FALSE);
    924  1.29  christos 
    925  1.29  christos 	if (cc == 0)
    926  1.29  christos 	    *err = "Couldn't read shell's output for \"%s\"";
    927  1.29  christos 
    928  1.29  christos 	if (status)
    929  1.29  christos 	    *err = "\"%s\" returned non-zero status";
    930  1.29  christos 
    931  1.29  christos 	/*
    932  1.29  christos 	 * Null-terminate the result, convert newlines to spaces and
    933  1.29  christos 	 * install it in the variable.
    934  1.29  christos 	 */
    935  1.29  christos 	res[cc] = '\0';
    936  1.29  christos 	cp = &res[cc] - 1;
    937  1.29  christos 
    938  1.29  christos 	if (*cp == '\n') {
    939  1.29  christos 	    /*
    940  1.29  christos 	     * A final newline is just stripped
    941  1.29  christos 	     */
    942  1.29  christos 	    *cp-- = '\0';
    943  1.29  christos 	}
    944  1.29  christos 	while (cp >= res) {
    945  1.29  christos 	    if (*cp == '\n') {
    946  1.29  christos 		*cp = ' ';
    947  1.29  christos 	    }
    948  1.29  christos 	    cp--;
    949  1.29  christos 	}
    950  1.29  christos 	break;
    951  1.29  christos     }
    952  1.29  christos     return res;
    953  1.29  christos bad:
    954  1.29  christos     res = emalloc(1);
    955  1.29  christos     *res = '\0';
    956  1.29  christos     return res;
    957   1.1       cgd }
    958   1.1       cgd 
    959   1.1       cgd /*-
    960   1.1       cgd  * Error --
    961   1.1       cgd  *	Print an error message given its format.
    962   1.1       cgd  *
    963   1.1       cgd  * Results:
    964   1.1       cgd  *	None.
    965   1.1       cgd  *
    966   1.1       cgd  * Side Effects:
    967   1.1       cgd  *	The message is printed.
    968   1.1       cgd  */
    969   1.1       cgd /* VARARGS */
    970   1.1       cgd void
    971  1.13       cgd #if __STDC__
    972  1.13       cgd Error(char *fmt, ...)
    973  1.13       cgd #else
    974   1.1       cgd Error(va_alist)
    975   1.1       cgd 	va_dcl
    976  1.13       cgd #endif
    977   1.1       cgd {
    978   1.1       cgd 	va_list ap;
    979  1.13       cgd #if __STDC__
    980  1.13       cgd 	va_start(ap, fmt);
    981  1.13       cgd #else
    982   1.1       cgd 	char *fmt;
    983   1.1       cgd 
    984   1.1       cgd 	va_start(ap);
    985   1.1       cgd 	fmt = va_arg(ap, char *);
    986  1.13       cgd #endif
    987   1.1       cgd 	(void)vfprintf(stderr, fmt, ap);
    988   1.1       cgd 	va_end(ap);
    989   1.1       cgd 	(void)fprintf(stderr, "\n");
    990   1.1       cgd 	(void)fflush(stderr);
    991   1.1       cgd }
    992   1.1       cgd 
    993   1.1       cgd /*-
    994   1.1       cgd  * Fatal --
    995   1.1       cgd  *	Produce a Fatal error message. If jobs are running, waits for them
    996   1.1       cgd  *	to finish.
    997   1.1       cgd  *
    998   1.1       cgd  * Results:
    999   1.1       cgd  *	None
   1000   1.1       cgd  *
   1001   1.1       cgd  * Side Effects:
   1002   1.1       cgd  *	The program exits
   1003   1.1       cgd  */
   1004   1.1       cgd /* VARARGS */
   1005   1.1       cgd void
   1006  1.13       cgd #if __STDC__
   1007  1.13       cgd Fatal(char *fmt, ...)
   1008  1.13       cgd #else
   1009   1.1       cgd Fatal(va_alist)
   1010   1.1       cgd 	va_dcl
   1011  1.13       cgd #endif
   1012   1.1       cgd {
   1013   1.1       cgd 	va_list ap;
   1014  1.13       cgd #if __STDC__
   1015  1.13       cgd 	va_start(ap, fmt);
   1016  1.13       cgd #else
   1017   1.1       cgd 	char *fmt;
   1018   1.1       cgd 
   1019  1.13       cgd 	va_start(ap);
   1020  1.13       cgd 	fmt = va_arg(ap, char *);
   1021  1.13       cgd #endif
   1022   1.1       cgd 	if (jobsRunning)
   1023   1.1       cgd 		Job_Wait();
   1024   1.1       cgd 
   1025   1.1       cgd 	(void)vfprintf(stderr, fmt, ap);
   1026   1.1       cgd 	va_end(ap);
   1027   1.1       cgd 	(void)fprintf(stderr, "\n");
   1028   1.1       cgd 	(void)fflush(stderr);
   1029   1.1       cgd 
   1030   1.1       cgd 	if (DEBUG(GRAPH2))
   1031   1.1       cgd 		Targ_PrintGraph(2);
   1032   1.1       cgd 	exit(2);		/* Not 1 so -q can distinguish error */
   1033   1.1       cgd }
   1034   1.1       cgd 
   1035   1.1       cgd /*
   1036   1.1       cgd  * Punt --
   1037   1.1       cgd  *	Major exception once jobs are being created. Kills all jobs, prints
   1038   1.1       cgd  *	a message and exits.
   1039   1.1       cgd  *
   1040   1.1       cgd  * Results:
   1041   1.1       cgd  *	None
   1042   1.1       cgd  *
   1043   1.1       cgd  * Side Effects:
   1044   1.1       cgd  *	All children are killed indiscriminately and the program Lib_Exits
   1045   1.1       cgd  */
   1046   1.1       cgd /* VARARGS */
   1047   1.1       cgd void
   1048  1.13       cgd #if __STDC__
   1049  1.13       cgd Punt(char *fmt, ...)
   1050  1.13       cgd #else
   1051   1.1       cgd Punt(va_alist)
   1052   1.1       cgd 	va_dcl
   1053  1.13       cgd #endif
   1054   1.1       cgd {
   1055   1.1       cgd 	va_list ap;
   1056  1.13       cgd #if __STDC__
   1057  1.13       cgd 	va_start(ap, fmt);
   1058  1.13       cgd #else
   1059   1.1       cgd 	char *fmt;
   1060   1.1       cgd 
   1061   1.1       cgd 	va_start(ap);
   1062   1.1       cgd 	fmt = va_arg(ap, char *);
   1063  1.13       cgd #endif
   1064  1.13       cgd 
   1065  1.13       cgd 	(void)fprintf(stderr, "make: ");
   1066   1.1       cgd 	(void)vfprintf(stderr, fmt, ap);
   1067   1.1       cgd 	va_end(ap);
   1068   1.1       cgd 	(void)fprintf(stderr, "\n");
   1069   1.1       cgd 	(void)fflush(stderr);
   1070   1.1       cgd 
   1071   1.1       cgd 	DieHorribly();
   1072   1.1       cgd }
   1073   1.1       cgd 
   1074   1.1       cgd /*-
   1075   1.1       cgd  * DieHorribly --
   1076   1.1       cgd  *	Exit without giving a message.
   1077   1.1       cgd  *
   1078   1.1       cgd  * Results:
   1079   1.1       cgd  *	None
   1080   1.1       cgd  *
   1081   1.1       cgd  * Side Effects:
   1082   1.1       cgd  *	A big one...
   1083   1.1       cgd  */
   1084   1.1       cgd void
   1085   1.1       cgd DieHorribly()
   1086   1.1       cgd {
   1087   1.1       cgd 	if (jobsRunning)
   1088   1.1       cgd 		Job_AbortAll();
   1089   1.1       cgd 	if (DEBUG(GRAPH2))
   1090   1.1       cgd 		Targ_PrintGraph(2);
   1091   1.1       cgd 	exit(2);		/* Not 1, so -q can distinguish error */
   1092   1.1       cgd }
   1093   1.1       cgd 
   1094   1.1       cgd /*
   1095   1.1       cgd  * Finish --
   1096   1.1       cgd  *	Called when aborting due to errors in child shell to signal
   1097   1.1       cgd  *	abnormal exit.
   1098   1.1       cgd  *
   1099   1.1       cgd  * Results:
   1100   1.1       cgd  *	None
   1101   1.1       cgd  *
   1102   1.1       cgd  * Side Effects:
   1103   1.1       cgd  *	The program exits
   1104   1.1       cgd  */
   1105   1.1       cgd void
   1106   1.1       cgd Finish(errors)
   1107   1.1       cgd 	int errors;	/* number of errors encountered in Make_Make */
   1108   1.1       cgd {
   1109   1.1       cgd 	Fatal("%d error%s", errors, errors == 1 ? "" : "s");
   1110   1.1       cgd }
   1111   1.1       cgd 
   1112   1.1       cgd /*
   1113   1.1       cgd  * emalloc --
   1114   1.1       cgd  *	malloc, but die on error.
   1115   1.1       cgd  */
   1116  1.28  christos void *
   1117   1.1       cgd emalloc(len)
   1118  1.14       jtc 	size_t len;
   1119   1.1       cgd {
   1120  1.28  christos 	void *p;
   1121   1.1       cgd 
   1122  1.28  christos 	if ((p = malloc(len)) == NULL)
   1123  1.27       jtc 		enomem();
   1124  1.27       jtc 	return(p);
   1125  1.27       jtc }
   1126  1.27       jtc 
   1127  1.27       jtc /*
   1128  1.27       jtc  * erealloc --
   1129  1.27       jtc  *	realloc, but die on error.
   1130  1.27       jtc  */
   1131  1.28  christos void *
   1132  1.27       jtc erealloc(ptr, size)
   1133  1.28  christos 	void *ptr;
   1134  1.27       jtc 	size_t size;
   1135  1.27       jtc {
   1136  1.28  christos 	if ((ptr = realloc(ptr, size)) == NULL)
   1137   1.1       cgd 		enomem();
   1138  1.28  christos 	return(ptr);
   1139   1.1       cgd }
   1140   1.1       cgd 
   1141   1.1       cgd /*
   1142   1.1       cgd  * enomem --
   1143   1.1       cgd  *	die when out of memory.
   1144   1.1       cgd  */
   1145  1.13       cgd void
   1146   1.1       cgd enomem()
   1147   1.1       cgd {
   1148   1.1       cgd 	(void)fprintf(stderr, "make: %s.\n", strerror(errno));
   1149   1.1       cgd 	exit(2);
   1150  1.21  christos }
   1151  1.21  christos 
   1152  1.21  christos /*
   1153  1.21  christos  * enunlink --
   1154  1.21  christos  *	Remove a file carefully, avoiding directories.
   1155  1.21  christos  */
   1156  1.21  christos int
   1157  1.21  christos eunlink(file)
   1158  1.21  christos 	const char *file;
   1159  1.21  christos {
   1160  1.21  christos 	struct stat st;
   1161  1.21  christos 
   1162  1.21  christos 	if (lstat(file, &st) == -1)
   1163  1.21  christos 		return -1;
   1164  1.21  christos 
   1165  1.21  christos 	if (S_ISDIR(st.st_mode)) {
   1166  1.21  christos 		errno = EISDIR;
   1167  1.21  christos 		return -1;
   1168  1.21  christos 	}
   1169  1.21  christos 	return unlink(file);
   1170   1.1       cgd }
   1171   1.1       cgd 
   1172   1.1       cgd /*
   1173   1.1       cgd  * usage --
   1174   1.1       cgd  *	exit with usage message
   1175   1.1       cgd  */
   1176  1.13       cgd static void
   1177   1.1       cgd usage()
   1178   1.1       cgd {
   1179   1.1       cgd 	(void)fprintf(stderr,
   1180   1.1       cgd "usage: make [-eiknqrst] [-D variable] [-d flags] [-f makefile ]\n\
   1181  1.25  christos             [-I directory] [-j max_jobs] [-m directory] [variable=value]\n");
   1182   1.1       cgd 	exit(2);
   1183  1.14       jtc }
   1184  1.14       jtc 
   1185  1.14       jtc 
   1186  1.14       jtc int
   1187  1.14       jtc PrintAddr(a, b)
   1188  1.14       jtc     ClientData a;
   1189  1.14       jtc     ClientData b;
   1190  1.14       jtc {
   1191  1.14       jtc     printf("%lx ", (unsigned long) a);
   1192  1.14       jtc     return b ? 0 : 0;
   1193   1.1       cgd }
   1194