[unix-history] / usr / src / old / make / main.c

static	char *sccsid = "@(#)main.c	4.12 (Berkeley) 91/02/28";
# include "defs"
/*
command make to update programs.
Flags:	'd'  print out debugging comments
	'p'  print out a version of the input graph
	's'  silent mode--don't print out commands
	'f'  the next argument is the name of the description file;
	     "makefile" is the default
	'i'  ignore error codes from the shell
	'S'  stop after any command fails (normally do parallel work)
	'n'   don't issue, just print, commands
	't'   touch (update time of) files but don't issue command
	'q'   don't do anything, but check if object is up to date;
	      returns exit code 0 if up to date, -1 if not
	'e'  environment variables have precedence over makefiles
*/

struct nameblock *mainname	= NULL;
struct nameblock *firstname	= NULL;
struct lineblock *sufflist	= NULL;
struct varblock *firstvar	= NULL;
struct pattern *firstpat	= NULL;
struct dirhdr *firstod		= NULL;

#include <signal.h>
int sigivalue	= 0;
int sigqvalue	= 0;
int waitpid	= 0;

int dbgflag	= NO;
int prtrflag	= NO;
int silflag	= NO;
int noexflag	= NO;
int keepgoing	= NO;
int noruleflag	= NO;
int touchflag	= NO;
int questflag	= NO;
int ndocoms	= NO;
int ignerr	= NO;    /* default is to stop on error */
int okdel	= YES;
int doenvlast	= NO;
int inarglist;
#ifdef pwb
char *prompt	= ">";	/* other systems -- pick what you want */
#else
char *prompt	= "";	/* other systems -- pick what you want */
#endif
int nopdir	= 0;
char junkname[20];
char funny[128];
char	options[26 + 1] = { '-' };

main(argc,argv)
int argc;
char *argv[];
{
register struct nameblock *p;
int i, j;
int descset, nfargs;
TIMETYPE tjunk;
char c, *s;
static char onechar[2] = "X";
#ifdef unix
void intrupt();
#endif
char *op = options + 1;


#ifdef METERFILE
meter(METERFILE);
#endif

descset = 0;

funny['\0'] = (META | TERMINAL);
for(s = "=|^();&<>*?[]:$`'\"\\\n" ; *s ; ++s)
	funny[*s] |= META;
for(s = "\n\t :;&>|" ; *s ; ++s)
	funny[*s] |= TERMINAL;


inarglist = 1;
for(i=1; i<argc; ++i)
	if(argv[i]!=0 && argv[i][0]!='-' && eqsign(argv[i]))
		argv[i] = 0;

setvar("$","$");
inarglist = 0;

for (i=1; i<argc; ++i)
	if (argv[i]!=0 && argv[i][0]=='-') {
		for (j=1 ; (c=argv[i][j])!='\0' ; ++j) {
			*op++ = c;
			switch (c) {

			case 'd':
				dbgflag = YES;
				break;

			case 'p':
				prtrflag = YES;
				break;

			case 's':
				silflag = YES;
				break;

			case 'i':
				ignerr = YES;
				break;

			case 'S':
				keepgoing = NO;
				break;

			case 'k':
				keepgoing = YES;
				break;

			case 'n':
				noexflag = YES;
				break;

			case 'r':
				noruleflag = YES;
				break;

			case 't':
				touchflag = YES;
				break;

			case 'q':
				questflag = YES;
				break;

			case 'f':
				op--;		/* don't pass this one */
				if(i >= argc-1)
				  fatal("No description argument after -f flag");
				if( rddescf(argv[i+1]) )
				fatal1("Cannot open %s", argv[i+1]);
				argv[i+1] = 0;
				++descset;
				break;

			case 'e':
				doenvlast = YES;
				break;

			default:
				onechar[0] = c;	/* to make lint happy */
				fatal1("Unknown flag argument %s", onechar);
			}
		}
		argv[i] = 0;
	}

*op++ = '\0';
if (strcmp(options, "-") == 0)
	*options = '\0';
setvar("MFLAGS", options);		/* MFLAGS=options to make */

setvar("MACHINE", MACHINE);

if (!descset) {
	if (rddescf("makefile"))
		rddescf("Makefile");
	rddescf(".depend");
}

if (doenvlast == YES)
	readenv();

if(prtrflag) printdesc(NO);

if( srchname(".IGNORE") ) ++ignerr;
if( srchname(".SILENT") ) silflag = 1;
if(p=srchname(".SUFFIXES")) sufflist = p->linep;
if( !sufflist ) fprintf(stderr,"No suffix list.\n");

#ifdef unix
sigivalue = (int) signal(SIGINT, SIG_IGN) & 01;
sigqvalue = (int) signal(SIGQUIT, SIG_IGN) & 01;
enbint(intrupt);
#endif

nfargs = 0;

for(i=1; i<argc; ++i)
	if((s=argv[i]) != 0)
		{
		if((p=srchname(s)) == 0)
			{
			p = makename(s);
			}
		++nfargs;
		doname(p, 0, &tjunk);
		if(dbgflag) printdesc(YES);
		}

/*
If no file arguments have been encountered, make the first
name encountered that doesn't start with a dot
*/

if(nfargs == 0)
	if(mainname == 0)
		fatal("No arguments or description file");
	else	{
		doname(mainname, 0, &tjunk);
		if(dbgflag) printdesc(YES);
		}

exit(0);
}

#include <sys/stat.h>

#ifdef unix
void
intrupt()
{
struct varblock *varptr();
char *p;
TIMETYPE exists();
struct stat sbuf;

if(okdel && !noexflag && !touchflag &&
	(p = varptr("@")->varval) &&
	(stat(p, &sbuf) >= 0 && (sbuf.st_mode&S_IFMT) == S_IFREG) &&
	!isprecious(p) )
		{
		fprintf(stderr, "\n***  %s removed.", p);
		unlink(p);
		}

if(junkname[0])
	unlink(junkname);
fprintf(stderr, "\n");
exit(2);
}


isprecious(p)
char *p;
{
register struct lineblock *lp;
register struct depblock *dp;
register struct nameblock *np;

if(np = srchname(".PRECIOUS"))
	for(lp = np->linep ; lp ; lp = lp->nxtlineblock)
		for(dp = lp->depp ; dp ; dp = dp->nxtdepblock)
			if(! unequal(p, dp->depname->namep))
				return(YES);

return(NO);
}


enbint(k)
void (*k)();
{
if(sigivalue == 0)
	signal(SIGINT,k);
if(sigqvalue == 0)
	signal(SIGQUIT,k);
}
#endif
\f
extern char *builtin[];

char **linesptr	= builtin;

FILE * fin;
int firstrd	= 0;


rddescf(descfile)
char *descfile;
{
FILE * k;

/* read and parse description */

if( !firstrd++ )
	{
	if( !noruleflag )
		rdd1( (FILE *) NULL);

	if (doenvlast == NO)
		readenv();

#ifdef pwb
		{
		char *nlog, s[BUFSIZ];
		nlog = logdir();
		if ( (k=fopen( concat(nlog,"/makecomm",s), "r")) != NULL)
			rdd1(k);
		else if ( (k=fopen( concat(nlog,"/Makecomm",s), "r")) != NULL)
			rdd1(k);
	
		if ( (k=fopen("makecomm", "r")) != NULL)
			rdd1(k);
		else if ( (k=fopen("Makecomm", "r")) != NULL)
			rdd1(k);
		}
#endif

	}
if(! unequal(descfile, "-"))
	return( rdd1(stdin) );

if( (k = fopen(descfile,"r")) != NULL)
	return( rdd1(k) );

return(1);
}


rdd1(k)
FILE * k;
{
extern int yylineno;
extern char *zznextc;

fin = k;
yylineno = 0;
zznextc = 0;

if( yyparse() )
	fatal("Description file error");

if(fin != NULL && fin != stdin)
	fclose(fin);

return(0);
}
\f
printdesc(prntflag)
int prntflag;
{
struct nameblock *p;
struct depblock *dp;
struct varblock *vp;
struct dirhdr *od;
struct shblock *sp;
struct lineblock *lp;

#ifdef unix
if(prntflag)
	{
	printf("Open directories:\n");
	for (od = firstod; od; od = od->nxtopendir)
		printf("\t%d: %s\n", dirfd(od->dirfc), od->dirn);
	}
#endif

if(firstvar != 0) printf("Macros:\n");
for(vp = firstvar; vp ; vp = vp->nxtvarblock)
	printf("\t%s = %s\n" , vp->varname , vp->varval);

for(p = firstname; p; p = p->nxtnameblock)
	{
	printf("\n\n%s",p->namep);
	if(p->linep != 0) printf(":");
	if(prntflag) printf("  done=%d",p->done);
	if(p==mainname) printf("  (MAIN NAME)");
	for(lp = p->linep ; lp ; lp = lp->nxtlineblock)
		{
		if( dp = lp->depp )
			{
			printf("\n depends on:");
			for(; dp ; dp = dp->nxtdepblock)
				if(dp->depname != 0)
					printf(" %s ", dp->depname->namep);
			}
	
		if(sp = lp->shp)
			{
			printf("\n commands:\n");
			for( ; sp!=0 ; sp = sp->nxtshblock)
				printf("\t%s\n", sp->shbp);
			}
		}
	}
printf("\n");
fflush(stdout);
}

readenv()
{
	register char **ep, *p;
	extern char **environ;

	for(ep = environ ; *ep ; ++ep) {
		for (p = *ep; *p; p++) {
			if (isalnum(*p))
				continue;
			if (*p == '=') {
				eqsign(*ep);
			}
			break;
		}
	}
}
Commit	Line	Data
31e81748	1	static char *sccsid = "@(#)main.c 4.12 (Berkeley) 91/02/28";
8f5e70e1 BJ	2	# include "defs"
	3	/*
	4	command make to update programs.
	5	Flags: 'd' print out debugging comments
	6	'p' print out a version of the input graph
	7	's' silent mode--don't print out commands
	8	'f' the next argument is the name of the description file;
	9	"makefile" is the default
	10	'i' ignore error codes from the shell
	11	'S' stop after any command fails (normally do parallel work)
	12	'n' don't issue, just print, commands
	13	't' touch (update time of) files but don't issue command
	14	'q' don't do anything, but check if object is up to date;
	15	returns exit code 0 if up to date, -1 if not
2b29f189	16	'e' environment variables have precedence over makefiles
8f5e70e1 BJ	17	*/
	18
	19	struct nameblock *mainname = NULL;
	20	struct nameblock *firstname = NULL;
	21	struct lineblock *sufflist = NULL;
	22	struct varblock *firstvar = NULL;
	23	struct pattern *firstpat = NULL;
b342e078	24	struct dirhdr *firstod = NULL;
8f5e70e1 BJ	25
	26	#include <signal.h>
	27	int sigivalue = 0;
	28	int sigqvalue = 0;
	29	int waitpid = 0;
	30
	31	int dbgflag = NO;
	32	int prtrflag = NO;
	33	int silflag = NO;
	34	int noexflag = NO;
	35	int keepgoing = NO;
	36	int noruleflag = NO;
	37	int touchflag = NO;
	38	int questflag = NO;
	39	int ndocoms = NO;
	40	int ignerr = NO; /* default is to stop on error */
	41	int okdel = YES;
2b29f189	42	int doenvlast = NO;
8f5e70e1 BJ	43	int inarglist;
	44	#ifdef pwb
	45	char prompt = ">"; / other systems -- pick what you want */
	46	#else
	47	char prompt = ""; / other systems -- pick what you want */
	48	#endif
	49	int nopdir = 0;
	50	char junkname[20];
	51	char funny[128];
6738d7a9	52	char options[26 + 1] = { '-' };
8f5e70e1 BJ	53
	54	main(argc,argv)
	55	int argc;
	56	char *argv[];
	57	{
	58	register struct nameblock *p;
	59	int i, j;
	60	int descset, nfargs;
	61	TIMETYPE tjunk;
	62	char c, *s;
	63	static char onechar[2] = "X";
	64	#ifdef unix
31e81748	65	void intrupt();
c93a5b01	66	#endif
6738d7a9	67	char *op = options + 1;
8f5e70e1 BJ	68
8f5e70e1 BJ	69
8f5e70e1 BJ	70	#ifdef METERFILE
	71	meter(METERFILE);
	72	#endif
	73
	74	descset = 0;
	75
	76	funny['\0'] = (META \| TERMINAL);
	77	for(s = "=\|^();&<>?[]:$`'\"\\\n" ; s ; ++s)
	78	funny[*s] \|= META;
	79	for(s = "\n\t :;&>\|" ; *s ; ++s)
	80	funny[*s] \|= TERMINAL;
	81
	82
	83	inarglist = 1;
	84	for(i=1; i<argc; ++i)
	85	if(argv[i]!=0 && argv[i][0]!='-' && eqsign(argv[i]))
	86	argv[i] = 0;
	87
	88	setvar("$","$");
	89	inarglist = 0;
	90
6738d7a9 SL	91	for (i=1; i<argc; ++i)
	92	if (argv[i]!=0 && argv[i][0]=='-') {
	93	for (j=1 ; (c=argv[i][j])!='\0' ; ++j) {
	94	*op++ = c;
	95	switch (c) {
	96
	97	case 'd':
	98	dbgflag = YES;
	99	break;
	100
	101	case 'p':
	102	prtrflag = YES;
	103	break;
	104
	105	case 's':
	106	silflag = YES;
	107	break;
	108
	109	case 'i':
	110	ignerr = YES;
	111	break;
	112
	113	case 'S':
	114	keepgoing = NO;
	115	break;
	116
	117	case 'k':
	118	keepgoing = YES;
	119	break;
	120
	121	case 'n':
	122	noexflag = YES;
	123	break;
	124
	125	case 'r':
	126	noruleflag = YES;
	127	break;
	128
	129	case 't':
	130	touchflag = YES;
	131	break;
	132
	133	case 'q':
	134	questflag = YES;
	135	break;
	136
	137	case 'f':
	138	op--; /* don't pass this one */
	139	if(i >= argc-1)
	140	fatal("No description argument after -f flag");
	141	if( rddescf(argv[i+1]) )
8f5e70e1	142	fatal1("Cannot open %s", argv[i+1]);
6738d7a9 SL	143	argv[i+1] = 0;
	144	++descset;
	145	break;
	146
2b29f189 KB	147	case 'e':
	148	doenvlast = YES;
	149	break;
	150
6738d7a9 SL	151	default:
	152	onechar[0] = c; /* to make lint happy */
	153	fatal1("Unknown flag argument %s", onechar);
	154	}
8f5e70e1	155	}
6738d7a9	156	argv[i] = 0;
8f5e70e1 BJ	157	}
8f5e70e1 BJ	158
6738d7a9	159	*op++ = '\0';
83d9028e SL	160	if (strcmp(options, "-") == 0)
83d9028e SL	161	*options = '\0';
6738d7a9 SL	162	setvar("MFLAGS", options); /* MFLAGS=options to make */
6738d7a9 SL	163
2b29f189 KB	164	setvar("MACHINE", MACHINE);
2b29f189 KB	165
9b9fbe7e KB	166	if (!descset) {
	167	if (rddescf("makefile"))
	168	rddescf("Makefile");
	169	rddescf(".depend");
	170	}
8f5e70e1	171
2b29f189 KB	172	if (doenvlast == YES)
	173	readenv();
	174
8f5e70e1 BJ	175	if(prtrflag) printdesc(NO);
	176
	177	if( srchname(".IGNORE") ) ++ignerr;
	178	if( srchname(".SILENT") ) silflag = 1;
	179	if(p=srchname(".SUFFIXES")) sufflist = p->linep;
	180	if( !sufflist ) fprintf(stderr,"No suffix list.\n");
	181
	182	#ifdef unix
	183	sigivalue = (int) signal(SIGINT, SIG_IGN) & 01;
	184	sigqvalue = (int) signal(SIGQUIT, SIG_IGN) & 01;
	185	enbint(intrupt);
	186	#endif
	187
	188	nfargs = 0;
	189
	190	for(i=1; i<argc; ++i)
	191	if((s=argv[i]) != 0)
	192	{
	193	if((p=srchname(s)) == 0)
	194	{
	195	p = makename(s);
	196	}
	197	++nfargs;
	198	doname(p, 0, &tjunk);
	199	if(dbgflag) printdesc(YES);
	200	}
	201
	202	/*
	203	If no file arguments have been encountered, make the first
	204	name encountered that doesn't start with a dot
	205	*/
	206
	207	if(nfargs == 0)
	208	if(mainname == 0)
	209	fatal("No arguments or description file");
	210	else {
	211	doname(mainname, 0, &tjunk);
	212	if(dbgflag) printdesc(YES);
	213	}
	214
	215	exit(0);
	216	}
	217
a781a4b6	218	#include <sys/stat.h>
8f5e70e1 BJ	219
8f5e70e1 BJ	220	#ifdef unix
31e81748	221	void
8f5e70e1 BJ	222	intrupt()
	223	{
	224	struct varblock *varptr();
	225	char *p;
	226	TIMETYPE exists();
a781a4b6	227	struct stat sbuf;
8f5e70e1 BJ	228
8f5e70e1 BJ	229	if(okdel && !noexflag && !touchflag &&
a781a4b6 SL	230	(p = varptr("@")->varval) &&
	231	(stat(p, &sbuf) >= 0 && (sbuf.st_mode&S_IFMT) == S_IFREG) &&
	232	!isprecious(p) )
8f5e70e1 BJ	233	{
	234	fprintf(stderr, "\n*** %s removed.", p);
	235	unlink(p);
	236	}
	237
	238	if(junkname[0])
	239	unlink(junkname);
	240	fprintf(stderr, "\n");
	241	exit(2);
	242	}
	243
	244
	245
	246
	247	isprecious(p)
	248	char *p;
	249	{
	250	register struct lineblock *lp;
	251	register struct depblock *dp;
	252	register struct nameblock *np;
	253
	254	if(np = srchname(".PRECIOUS"))
	255	for(lp = np->linep ; lp ; lp = lp->nxtlineblock)
	256	for(dp = lp->depp ; dp ; dp = dp->nxtdepblock)
	257	if(! unequal(p, dp->depname->namep))
	258	return(YES);
	259
	260	return(NO);
	261	}
	262
	263
	264	enbint(k)
31e81748	265	void (*k)();
8f5e70e1 BJ	266	{
	267	if(sigivalue == 0)
	268	signal(SIGINT,k);
	269	if(sigqvalue == 0)
	270	signal(SIGQUIT,k);
	271	}
	272	#endif
	273	\f
	274	extern char *builtin[];
	275
	276	char **linesptr = builtin;
	277
	278	FILE * fin;
	279	int firstrd = 0;
	280
	281
	282	rddescf(descfile)
	283	char *descfile;
	284	{
	285	FILE * k;
	286
	287	/* read and parse description */
	288
	289	if( !firstrd++ )
	290	{
	291	if( !noruleflag )
	292	rdd1( (FILE *) NULL);
	293
2b29f189 KB	294	if (doenvlast == NO)
	295	readenv();
	296
8f5e70e1 BJ	297	#ifdef pwb
8f5e70e1 BJ	298	{
dbf5cc74	299	char *nlog, s[BUFSIZ];
8f5e70e1 BJ	300	nlog = logdir();
	301	if ( (k=fopen( concat(nlog,"/makecomm",s), "r")) != NULL)
	302	rdd1(k);
	303	else if ( (k=fopen( concat(nlog,"/Makecomm",s), "r")) != NULL)
	304	rdd1(k);
	305
	306	if ( (k=fopen("makecomm", "r")) != NULL)
	307	rdd1(k);
	308	else if ( (k=fopen("Makecomm", "r")) != NULL)
	309	rdd1(k);
	310	}
	311	#endif
	312
	313	}
	314	if(! unequal(descfile, "-"))
	315	return( rdd1(stdin) );
	316
	317	if( (k = fopen(descfile,"r")) != NULL)
	318	return( rdd1(k) );
	319
	320	return(1);
	321	}
	322
	323
	324
	325
	326	rdd1(k)
	327	FILE * k;
	328	{
	329	extern int yylineno;
	330	extern char *zznextc;
	331
	332	fin = k;
	333	yylineno = 0;
	334	zznextc = 0;
	335
	336	if( yyparse() )
	337	fatal("Description file error");
	338
96cf4ac6	339	if(fin != NULL && fin != stdin)
8f5e70e1 BJ	340	fclose(fin);
	341
	342	return(0);
	343	}
	344	\f
	345	printdesc(prntflag)
	346	int prntflag;
	347	{
	348	struct nameblock *p;
	349	struct depblock *dp;
	350	struct varblock *vp;
b342e078	351	struct dirhdr *od;
8f5e70e1 BJ	352	struct shblock *sp;
	353	struct lineblock *lp;
	354
	355	#ifdef unix
	356	if(prntflag)
	357	{
	358	printf("Open directories:\n");
	359	for (od = firstod; od; od = od->nxtopendir)
c01bbea7	360	printf("\t%d: %s\n", dirfd(od->dirfc), od->dirn);
8f5e70e1 BJ	361	}
	362	#endif
	363
	364	if(firstvar != 0) printf("Macros:\n");
	365	for(vp = firstvar; vp ; vp = vp->nxtvarblock)
	366	printf("\t%s = %s\n" , vp->varname , vp->varval);
	367
	368	for(p = firstname; p; p = p->nxtnameblock)
	369	{
	370	printf("\n\n%s",p->namep);
	371	if(p->linep != 0) printf(":");
	372	if(prntflag) printf(" done=%d",p->done);
	373	if(p==mainname) printf(" (MAIN NAME)");
	374	for(lp = p->linep ; lp ; lp = lp->nxtlineblock)
	375	{
	376	if( dp = lp->depp )
	377	{
	378	printf("\n depends on:");
	379	for(; dp ; dp = dp->nxtdepblock)
	380	if(dp->depname != 0)
	381	printf(" %s ", dp->depname->namep);
	382	}
	383
	384	if(sp = lp->shp)
	385	{
	386	printf("\n commands:\n");
	387	for( ; sp!=0 ; sp = sp->nxtshblock)
	388	printf("\t%s\n", sp->shbp);
	389	}
	390	}
	391	}
	392	printf("\n");
	393	fflush(stdout);
	394	}
2b29f189 KB	395
	396	readenv()
	397	{
	398	register char *ep, p;
	399	extern char **environ;
	400
	401	for(ep = environ ; *ep ; ++ep) {
	402	for (p = ep; p; p++) {
	403	if (isalnum(*p))
	404	continue;
	405	if (*p == '=') {
	406	eqsign(*ep);
	407	}
	408	break;
	409	}
	410	}
	411	}