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

static	char *sccsid = "@(#)main.c	4.8 (Berkeley) 86/01/09";
# 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
*/

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 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
int 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;

			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 */

if( !descset )
#ifdef unix
	if( rddescf("makefile") )  rddescf("Makefile");
#endif
#ifdef gcos
	rddescf("makefile");
#endif

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
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)
int (*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);

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