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

static	char *sccsid = "@(#)main.c	4.2 (Berkeley) 82/04/20";
# 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];

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

#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)  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':
			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;
	}

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);
}


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

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