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

static	char *sccsid = "@(#)doname.c	4.9 (Berkeley) 87/06/18";
#include "defs"
#include <strings.h>
#include <signal.h>

/*  BASIC PROCEDURE.  RECURSIVE.  */

/*
p->done = 0   don't know what to do yet
p->done = 1   file in process of being updated
p->done = 2   file already exists in current state
p->done = 3   file make failed
*/

extern char *sys_siglist[];

doname(p, reclevel, tval)
register struct nameblock *p;
int reclevel;
TIMETYPE *tval;
{
int errstat;
int okdel1;
int didwork;
TIMETYPE td, td1, tdep, ptime, ptime1, prestime();
register struct depblock *q;
struct depblock *qtemp, *srchdir(), *suffp, *suffp1;
struct nameblock *p1, *p2;
struct shblock *implcom, *explcom;
register struct lineblock *lp;
struct lineblock *lp1, *lp2;
char sourcename[BUFSIZ], prefix[BUFSIZ], temp[BUFSIZ], concsuff[20];
char *pnamep, *p1namep, *cp;
char *mkqlist();
struct chain *qchain, *appendq();

{
	/*
	 * VPATH= ${PATH1}:${PATH2} didn't work.  This fix is so ugly I don't
	 * even want to think about it.  Basically it grabs VPATH and
	 * explicitly does macro expansion before resolving names.  Why
	 * VPATH didn't get handled correctly I have no idea; the symptom
	 * was that, while macro expansion got done, the .c files in the
	 * non-local directories wouldn't be found.
	 */
	struct varblock	*vpath_cp, *varptr();
	static int	vpath_first;
	char	vpath_exp[INMAX];

	if (!vpath_first) {
		vpath_first = 1;
		vpath_cp = varptr("VPATH");
		if (vpath_cp->varval) {
			subst(vpath_cp->varval, vpath_exp);
			setvar("VPATH",vpath_exp);
		}
	}
}
if(p == 0)
	{
	*tval = 0;
	return(0);
	}

if(dbgflag)
	{
	printf("doname(%s,%d)\n",p->namep,reclevel);
	fflush(stdout);
	}

if(p->done > 0)
	{
	*tval = p->modtime;
	return(p->done == 3);
	}

errstat = 0;
tdep = 0;
implcom = 0;
explcom = 0;
ptime = exists(p); 
ptime1 = 0;
didwork = NO;
p->done = 1;	/* avoid infinite loops */

qchain = NULL;

/* Expand any names that have embedded metacharaters */

for(lp = p->linep ; lp ; lp = lp->nxtlineblock)
	for(q = lp->depp ; q ; q=qtemp )
		{
		qtemp = q->nxtdepblock;
		expand(q);
		}

/* make sure all dependents are up to date */

for(lp = p->linep ; lp ; lp = lp->nxtlineblock)
	{
	td = 0;
	for(q = lp->depp ; q ; q = q->nxtdepblock)
		{
		errstat += doname(q->depname, reclevel+1, &td1);
		if(dbgflag)
		    printf("TIME(%s)=%ld\n", q->depname->namep, td1);
		if(td1 > td) td = td1;
		if(ptime < td1)
			qchain = appendq(qchain, q->depname->namep);
		}
	if(p->septype == SOMEDEPS)
		{
		if(lp->shp!=0)
		     if( ptime<td || (ptime==0 && td==0) || lp->depp==0)
			{
			okdel1 = okdel;
			okdel = NO;
			setvar("@", p->namep);
			setvar("?", mkqlist(qchain) );
			qchain = NULL;
			if( !questflag )
				errstat += docom(lp->shp);
			setvar("@", (char *) NULL);
			okdel = okdel1;
			ptime1 = prestime();
			didwork = YES;
			}
		}

	else	{
		if(lp->shp != 0)
			{
			if(explcom)
				fprintf(stderr, "Too many command lines for `%s'\n",
					p->namep);
			else	explcom = lp->shp;
			}

		if(td > tdep) tdep = td;
		}
	}

/* Look for implicit dependents, using suffix rules */

for(lp = sufflist ; lp ; lp = lp->nxtlineblock)
    for(suffp = lp->depp ; suffp ; suffp = suffp->nxtdepblock)
	{
	pnamep = suffp->depname->namep;
	if(suffix(p->namep , pnamep , prefix))
		{

		srchdir( concat(prefix,"*",temp) , NO, (struct depblock *) NULL);
		for(lp1 = sufflist ; lp1 ; lp1 = lp1->nxtlineblock)
		    for(suffp1=lp1->depp ; suffp1 ; suffp1 = suffp1->nxtdepblock)
			{
			p1namep = suffp1->depname->namep;
			if( (p1=srchname(concat(p1namep, pnamep ,concsuff))) &&
			    (p2=srchname(concat(prefix, p1namep ,sourcename))) )
				{
				errstat += doname(p2, reclevel+1, &td);
				if(ptime < td)
					qchain = appendq(qchain, p2->namep);
if(dbgflag) printf("TIME(%s)=%ld\n", p2->namep, td);
				if(td > tdep) tdep = td;
				setvar("*", prefix);
				if (p2->alias) setvar("<", copys(p2->alias));
				else setvar("<", copys(p2->namep));
				for(lp2=p1->linep ; lp2 ; lp2 = lp2->nxtlineblock)
					if(implcom = lp2->shp) break;
				goto endloop;
				}
			}
		cp = rindex(prefix, '/');
		if (cp++ == 0)
			cp = prefix;
		setvar("*", cp);
		}
	}

endloop:


if(errstat==0 && (ptime<tdep || (ptime==0 && tdep==0) ) )
	{
	ptime = (tdep>0 ? tdep : prestime() );
	setvar("@", p->namep);
	setvar("?", mkqlist(qchain) );
	if(explcom)
		errstat += docom(explcom);
	else if(implcom)
		errstat += docom(implcom);
	else if(p->septype == 0)
		if(p1=srchname(".DEFAULT"))
			{
			if (p->alias) setvar("<", p->alias);
			else setvar("<", p->namep);
			for(lp2 = p1->linep ; lp2 ; lp2 = lp2->nxtlineblock)
				if(implcom = lp2->shp)
					{
					errstat += docom(implcom);
					break;
					}
			}
		else if(keepgoing)
			{
			printf("Don't know how to make %s\n", p->namep);
			++errstat;
			}
		else
			fatal1(" Don't know how to make %s", p->namep);

	setvar("@", (char *) NULL);
	if(noexflag || (ptime = exists(p)) == 0)
		ptime = prestime();
	}

else if(errstat!=0 && reclevel==0)
	printf("`%s' not remade because of errors\n", p->namep);

else if(!questflag && reclevel==0  &&  didwork==NO)
	printf("`%s' is up to date.\n", p->namep);

if(questflag && reclevel==0)
	exit(ndocoms>0 ? -1 : 0);

p->done = (errstat ? 3 : 2);
if(ptime1 > ptime) ptime = ptime1;
p->modtime = ptime;
*tval = ptime;
return(errstat);
}
\f
docom(q)
struct shblock *q;
{
char *s;
struct varblock *varptr();
int ign, nopr;
char string[OUTMAX];
char string2[OUTMAX];

++ndocoms;
if(questflag)
	return(NO);

if(touchflag)
	{
	s = varptr("@")->varval;
	if(!silflag)
		printf("touch(%s)\n", s);
	if(!noexflag)
		touch(YES, s);
	}

else for( ; q ; q = q->nxtshblock )
	{
	subst(q->shbp,string2);
	fixname(string2, string);

	ign = ignerr;
	nopr = NO;
	for(s = string ; *s=='-' || *s=='@' ; ++s)
		if(*s == '-')  ign = YES;
		else nopr = YES;

	if( docom1(s, ign, nopr) && !ign)
		if(keepgoing)
			return(YES);
		else	fatal( (char *) NULL);
	}
return(NO);
}


docom1(comstring, nohalt, noprint)
register char *comstring;
int nohalt, noprint;
{
register int status;

if(comstring[0] == '\0') return(0);

if(!silflag && (!noprint || noexflag) )
	{
	printf("%s%s\n", (noexflag ? "" : prompt), comstring);
	fflush(stdout);
	}

if(noexflag) return(0);

if( status = dosys(comstring, nohalt) )
	{
	unsigned sig = status & 0177;
	if( sig ) {
		if (sig < NSIG && sys_siglist[sig] != NULL &&
		    *sys_siglist[sig] != '\0')
			printf("*** %s", sys_siglist[sig]);
		else
			printf("*** Signal %d", sig);
		if (status & 0200)
			printf(" - core dumped");
	} else
		printf("*** Exit %d", status>>8 );

	if(nohalt) printf(" (ignored)\n");
	else	printf("\n");
	fflush(stdout);
	}

return(status);
}
\f

/*
   If there are any Shell meta characters in the name,
   expand into a list, after searching directory
*/

expand(q)
register struct depblock *q;
{
register char *s;
char *s1;
struct depblock *p, *srchdir();

if (q->depname == NULL)
	return;
s1 = q->depname->namep;
for(s=s1 ; ;) switch(*s++)
	{
	case '\0':
		return;

	case '*':
	case '?':
	case '[':
		if( p = srchdir(s1 , YES, q->nxtdepblock) )
			{
			q->nxtdepblock = p;
			q->depname = 0;
			}
		return;
	}
}
Commit	Line	Data
c2b07e50	1	static char *sccsid = "@(#)doname.c 4.9 (Berkeley) 87/06/18";
6f8df2c3	2	#include "defs"
b5a1a989	3	#include <strings.h>
84ec7e82	4	#include <signal.h>
6f8df2c3 BJ	5
	6	/* BASIC PROCEDURE. RECURSIVE. */
	7
	8	/*
	9	p->done = 0 don't know what to do yet
	10	p->done = 1 file in process of being updated
	11	p->done = 2 file already exists in current state
	12	p->done = 3 file make failed
	13	*/
	14
84ec7e82 S	15	extern char *sys_siglist[];
84ec7e82 S	16
6f8df2c3 BJ	17	doname(p, reclevel, tval)
	18	register struct nameblock *p;
	19	int reclevel;
	20	TIMETYPE *tval;
	21	{
	22	int errstat;
	23	int okdel1;
	24	int didwork;
	25	TIMETYPE td, td1, tdep, ptime, ptime1, prestime();
	26	register struct depblock *q;
	27	struct depblock qtemp, srchdir(), suffp, suffp1;
	28	struct nameblock p1, p2;
	29	struct shblock implcom, explcom;
	30	register struct lineblock *lp;
	31	struct lineblock lp1, lp2;
dbf5cc74	32	char sourcename[BUFSIZ], prefix[BUFSIZ], temp[BUFSIZ], concsuff[20];
b5a1a989	33	char pnamep, p1namep, *cp;
6f8df2c3 BJ	34	char *mkqlist();
	35	struct chain qchain, appendq();
	36
c2b07e50 KB	37	{
	38	/*
	39	* VPATH= ${PATH1}:${PATH2} didn't work. This fix is so ugly I don't
	40	* even want to think about it. Basically it grabs VPATH and
	41	* explicitly does macro expansion before resolving names. Why
	42	* VPATH didn't get handled correctly I have no idea; the symptom
	43	* was that, while macro expansion got done, the .c files in the
	44	* non-local directories wouldn't be found.
	45	*/
	46	struct varblock vpath_cp, varptr();
	47	static int vpath_first;
	48	char vpath_exp[INMAX];
	49
	50	if (!vpath_first) {
	51	vpath_first = 1;
	52	vpath_cp = varptr("VPATH");
	53	if (vpath_cp->varval) {
	54	subst(vpath_cp->varval, vpath_exp);
	55	setvar("VPATH",vpath_exp);
	56	}
	57	}
	58	}
6f8df2c3 BJ	59	if(p == 0)
	60	{
	61	*tval = 0;
	62	return(0);
	63	}
	64
	65	if(dbgflag)
	66	{
	67	printf("doname(%s,%d)\n",p->namep,reclevel);
	68	fflush(stdout);
	69	}
	70
	71	if(p->done > 0)
	72	{
	73	*tval = p->modtime;
	74	return(p->done == 3);
	75	}
	76
	77	errstat = 0;
	78	tdep = 0;
	79	implcom = 0;
	80	explcom = 0;
a10b24d4	81	ptime = exists(p);
6f8df2c3 BJ	82	ptime1 = 0;
	83	didwork = NO;
	84	p->done = 1; /* avoid infinite loops */
	85
	86	qchain = NULL;
	87
	88	/* Expand any names that have embedded metacharaters */
	89
	90	for(lp = p->linep ; lp ; lp = lp->nxtlineblock)
	91	for(q = lp->depp ; q ; q=qtemp )
	92	{
	93	qtemp = q->nxtdepblock;
	94	expand(q);
	95	}
	96
	97	/* make sure all dependents are up to date */
	98
	99	for(lp = p->linep ; lp ; lp = lp->nxtlineblock)
	100	{
	101	td = 0;
	102	for(q = lp->depp ; q ; q = q->nxtdepblock)
	103	{
	104	errstat += doname(q->depname, reclevel+1, &td1);
	105	if(dbgflag)
	106	printf("TIME(%s)=%ld\n", q->depname->namep, td1);
	107	if(td1 > td) td = td1;
	108	if(ptime < td1)
	109	qchain = appendq(qchain, q->depname->namep);
	110	}
	111	if(p->septype == SOMEDEPS)
	112	{
	113	if(lp->shp!=0)
	114	if( ptime<td \|\| (ptime==0 && td==0) \|\| lp->depp==0)
	115	{
	116	okdel1 = okdel;
	117	okdel = NO;
	118	setvar("@", p->namep);
	119	setvar("?", mkqlist(qchain) );
	120	qchain = NULL;
	121	if( !questflag )
	122	errstat += docom(lp->shp);
	123	setvar("@", (char *) NULL);
	124	okdel = okdel1;
	125	ptime1 = prestime();
	126	didwork = YES;
	127	}
	128	}
	129
	130	else {
	131	if(lp->shp != 0)
	132	{
	133	if(explcom)
	134	fprintf(stderr, "Too many command lines for `%s'\n",
	135	p->namep);
	136	else explcom = lp->shp;
	137	}
	138
	139	if(td > tdep) tdep = td;
	140	}
	141	}
	142
	143	/* Look for implicit dependents, using suffix rules */
	144
	145	for(lp = sufflist ; lp ; lp = lp->nxtlineblock)
146	for(suffp = lp->depp ; suffp ; suffp = suffp->nxtdepblock)
147	{
148	pnamep = suffp->depname->namep;
149	if(suffix(p->namep , pnamep , prefix))
150	{
a10b24d4	151
6f8df2c3 BJ	152	srchdir( concat(prefix,"",temp) , NO, (struct depblock ) NULL);
	153	for(lp1 = sufflist ; lp1 ; lp1 = lp1->nxtlineblock)
	154	for(suffp1=lp1->depp ; suffp1 ; suffp1 = suffp1->nxtdepblock)
	155	{
	156	p1namep = suffp1->depname->namep;
	157	if( (p1=srchname(concat(p1namep, pnamep ,concsuff))) &&
	158	(p2=srchname(concat(prefix, p1namep ,sourcename))) )
	159	{
	160	errstat += doname(p2, reclevel+1, &td);
	161	if(ptime < td)
	162	qchain = appendq(qchain, p2->namep);
	163	if(dbgflag) printf("TIME(%s)=%ld\n", p2->namep, td);
	164	if(td > tdep) tdep = td;
	165	setvar("*", prefix);
a10b24d4 KM	166	if (p2->alias) setvar("<", copys(p2->alias));
a10b24d4 KM	167	else setvar("<", copys(p2->namep));
6f8df2c3 BJ	168	for(lp2=p1->linep ; lp2 ; lp2 = lp2->nxtlineblock)
	169	if(implcom = lp2->shp) break;
	170	goto endloop;
	171	}
	172	}
b5a1a989 KM	173	cp = rindex(prefix, '/');
	174	if (cp++ == 0)
	175	cp = prefix;
	176	setvar("*", cp);
6f8df2c3 BJ	177	}
	178	}
	179
	180	endloop:
	181
	182
	183	if(errstat==0 && (ptime<tdep \|\| (ptime==0 && tdep==0) ) )
	184	{
	185	ptime = (tdep>0 ? tdep : prestime() );
	186	setvar("@", p->namep);
	187	setvar("?", mkqlist(qchain) );
	188	if(explcom)
	189	errstat += docom(explcom);
	190	else if(implcom)
	191	errstat += docom(implcom);
	192	else if(p->septype == 0)
	193	if(p1=srchname(".DEFAULT"))
	194	{
a10b24d4 KM	195	if (p->alias) setvar("<", p->alias);
a10b24d4 KM	196	else setvar("<", p->namep);
6f8df2c3 BJ	197	for(lp2 = p1->linep ; lp2 ; lp2 = lp2->nxtlineblock)
	198	if(implcom = lp2->shp)
	199	{
	200	errstat += docom(implcom);
	201	break;
	202	}
	203	}
	204	else if(keepgoing)
	205	{
	206	printf("Don't know how to make %s\n", p->namep);
	207	++errstat;
	208	}
	209	else
	210	fatal1(" Don't know how to make %s", p->namep);
	211
	212	setvar("@", (char *) NULL);
a10b24d4	213	if(noexflag \|\| (ptime = exists(p)) == 0)
6f8df2c3 BJ	214	ptime = prestime();
	215	}
	216
	217	else if(errstat!=0 && reclevel==0)
	218	printf("`%s' not remade because of errors\n", p->namep);
	219
	220	else if(!questflag && reclevel==0 && didwork==NO)
	221	printf("`%s' is up to date.\n", p->namep);
	222
	223	if(questflag && reclevel==0)
	224	exit(ndocoms>0 ? -1 : 0);
	225
	226	p->done = (errstat ? 3 : 2);
	227	if(ptime1 > ptime) ptime = ptime1;
	228	p->modtime = ptime;
	229	*tval = ptime;
	230	return(errstat);
	231	}
	232	\f
	233	docom(q)
	234	struct shblock *q;
	235	{
	236	char *s;
	237	struct varblock *varptr();
	238	int ign, nopr;
	239	char string[OUTMAX];
a10b24d4	240	char string2[OUTMAX];
6f8df2c3 BJ	241
	242	++ndocoms;
	243	if(questflag)
	244	return(NO);
	245
	246	if(touchflag)
	247	{
	248	s = varptr("@")->varval;
	249	if(!silflag)
	250	printf("touch(%s)\n", s);
	251	if(!noexflag)
	252	touch(YES, s);
	253	}
	254
	255	else for( ; q ; q = q->nxtshblock )
	256	{
a10b24d4 KM	257	subst(q->shbp,string2);
a10b24d4 KM	258	fixname(string2, string);
6f8df2c3 BJ	259
	260	ign = ignerr;
	261	nopr = NO;
	262	for(s = string ; s=='-' \|\| s=='@' ; ++s)
	263	if(*s == '-') ign = YES;
	264	else nopr = YES;
	265
	266	if( docom1(s, ign, nopr) && !ign)
	267	if(keepgoing)
	268	return(YES);
	269	else fatal( (char *) NULL);
	270	}
	271	return(NO);
	272	}
	273
	274
	275
	276	docom1(comstring, nohalt, noprint)
	277	register char *comstring;
	278	int nohalt, noprint;
	279	{
	280	register int status;
	281
	282	if(comstring[0] == '\0') return(0);
	283
	284	if(!silflag && (!noprint \|\| noexflag) )
	285	{
	286	printf("%s%s\n", (noexflag ? "" : prompt), comstring);
	287	fflush(stdout);
	288	}
	289
	290	if(noexflag) return(0);
	291
	292	if( status = dosys(comstring, nohalt) )
	293	{
84ec7e82 S	294	unsigned sig = status & 0177;
	295	if( sig ) {
	296	if (sig < NSIG && sys_siglist[sig] != NULL &&
	297	*sys_siglist[sig] != '\0')
	298	printf("*** %s", sys_siglist[sig]);
	299	else
	300	printf("*** Signal %d", sig);
	301	if (status & 0200)
	302	printf(" - core dumped");
	303	} else
	304	printf("*** Exit %d", status>>8 );
6f8df2c3 BJ	305
	306	if(nohalt) printf(" (ignored)\n");
	307	else printf("\n");
	308	fflush(stdout);
	309	}
	310
	311	return(status);
	312	}
	313	\f
	314
	315	/*
	316	If there are any Shell meta characters in the name,
	317	expand into a list, after searching directory
	318	*/
	319
	320	expand(q)
	321	register struct depblock *q;
	322	{
	323	register char *s;
	324	char *s1;
	325	struct depblock p, srchdir();
	326
227ed0e9 SL	327	if (q->depname == NULL)
227ed0e9 SL	328	return;
6f8df2c3 BJ	329	s1 = q->depname->namep;
	330	for(s=s1 ; ;) switch(*s++)
	331	{
	332	case '\0':
	333	return;
	334
	335	case '*':
	336	case '?':
	337	case '[':
	338	if( p = srchdir(s1 , YES, q->nxtdepblock) )
	339	{
	340	q->nxtdepblock = p;
	341	q->depname = 0;
	342	}
	343	return;
	344	}
	345	}