Import sources from 2011-03-30 iso image

1 files changed, 423 insertions, 0 deletions

diff --git a/sys/src/ape/cmd/make/main.c b/sys/src/ape/cmd/make/main.c
new file mode 100755
index 000000000..26853e86b
--- /dev/null
+++ b/sys/src/ape/cmd/make/main.c
@@ -0,0 +1,423 @@
+# include "defs.h"
+/*
+command make to update programs.
+Posix Flags:
+	'e'  use environment macros after rather than before makefiles
+	'f'  the next argument is the name of the description file;
+	     "makefile" is the default
+	'i'  ignore error codes from the shell
+	'k'  continue to update other targets that don't depend
+	     on target if error occurs making a target
+	'n'  don't issue, just print, commands
+	'p'  print out a version of the input graph
+	'q'  don't do anything, but check if object is up to date;
+	     returns exit code 0 if up to date, 1 if not
+	'r'  clear the builtin suffix list and don't use built-in rules
+	's'  silent mode--don't print out commands
+	'S'  stop after any command fails (default; opposite of -k)
+	't'  touch (update time of) files but don't issue command
+
+Nonposix Flags:
+	'd'  print out debugging comments
+	'N'  use % patterns instead of old suffix rules
+	'Pn' set process limit to n
+	'z'  always use shell, never issue commands directly
+
+*/
+
+nameblkp mainname	= NULL;
+nameblkp firstname	= NULL;
+lineblkp sufflist	= NULL;
+struct varblock *firstvar	= NULL;
+struct pattern *firstpat	= NULL;
+struct dirhd *firstod		= NULL;
+wildp firstwild			= NULL;
+wildp lastwild			= NULL;
+nameblkp *hashtab;
+int nhashed;
+int hashsize;
+int hashthresh;
+
+int proclimit	= PROCLIMIT;
+int nproc	= 0;
+int proclive	= 0;
+struct process procstack[MAXPROC];
+
+int sigivalue	= 0;
+int sigqvalue	= 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 oldflag	= YES;
+int ndocoms	= NO;
+int ignerr	= NO;    /* default is to stop on error */
+int forceshell	= NO;
+int okdel	= YES;
+int envlast	= NO;
+int inarglist	= NO;
+char **envpp	= NULL;
+
+extern char *dfltmacro[];
+extern char *dfltpat[];
+extern char *dfltsuff[];
+extern char **environ;
+char **linesptr;
+
+char *prompt	= "";
+int nopdir	= 0;
+char funny[128];
+
+static void	loadenv(void);
+static int	isprecious(char *);
+static int	rddescf(char *);
+static void	rdarray(char **);
+static void	printdesc(int);
+
+void
+main(int argc, char **argv)
+{
+nameblkp p;
+int i, j;
+int descset, nfargs;
+int nowait = NO;
+time_t tjunk;
+char c, *s, *mkflagp;
+static char makeflags[30] = "-";
+static char onechar[2] = "X";
+
+descset = 0;
+mkflagp = makeflags+1;
+
+funny['\0'] = (META | TERMINAL);
+for(s = "=|^();&<>*?[]:$`'\"\\\n" ; *s ; ++s)
+	funny[*s] |= META;
+for(s = "\n\t :;&>|" ; *s ; ++s)
+	funny[*s] |= TERMINAL;
+
+
+newhash(HASHSIZE);
+
+inarglist = YES;
+for(i=1; i<argc; ++i)
+	if(argv[i]!=0 && argv[i][0]!='-' && eqsign(argv[i]))
+		argv[i] = 0;
+
+setvar("$", "$", NO);
+inarglist = NO;
+
+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;
+			*mkflagp++ = 'd';
+			break;
+
+		case 'e':
+			envlast = YES;
+			*mkflagp++ = 'e';
+			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;
+
+		case 'i':
+			ignerr = YES;
+			*mkflagp++ = 'i';
+			break;
+
+		case 'k':
+			keepgoing = YES;
+			*mkflagp++ = 'k';
+			break;
+
+		case 'n':
+			noexflag = YES;
+			*mkflagp++ = 'n';
+			break;
+
+		case 'N':
+			oldflag = NO;
+			*mkflagp++ = 'N';
+			break;
+	
+		case 'p':
+			prtrflag = YES;
+			break;
+
+		case 'P':
+			if(isdigit(argv[i][j+1]))
+				{
+				proclimit = argv[i][++j] - '0';
+				if(proclimit < 1)
+					proclimit = 1;
+				}
+			else
+				fatal("illegal proclimit parameter");
+			*mkflagp++ = 'P';
+			*mkflagp++ = argv[i][j];
+			break;
+
+		case 'q':
+			questflag = YES;
+			*mkflagp++ = 'q';
+			break;
+
+		case 'r':
+			noruleflag = YES;
+			*mkflagp++ = 'r';
+			break;
+
+		case 's':
+			silflag = YES;
+			*mkflagp++ = 's';
+			break;
+
+		case 'S':
+			keepgoing = NO;
+			*mkflagp++ = 'S';
+			break;
+
+		case 't':
+			touchflag = YES;
+			*mkflagp++ = 't';
+			break;
+
+		case 'z':
+			forceshell = YES;
+			*mkflagp++ = 'z';
+			break;
+
+		default:
+			onechar[0] = c;	/* to make lint happy */
+			fatal1("Unknown flag argument %s", onechar);
+		}
+
+	argv[i] = NULL;
+	}
+
+if(mkflagp > makeflags+1)
+	setvar("MAKEFLAGS", makeflags, NO);
+
+if( !descset )
+if(	!rddescf("makefile") &&
+	!rddescf("Makefile") &&
+	(exists(s = "s.makefile") || exists(s = "s.Makefile")) )
+		{
+		char junk[20];
+		concat("get ", s, junk);
+		(void) dosys(junk, NO, NO, junk);
+		rddescf(s+2);
+		unlink(s+2);
+		}
+
+
+if(envlast)
+	loadenv();
+if(!noruleflag && !oldflag)
+	rdarray(dfltpat);
+
+if(prtrflag) printdesc(NO);
+
+if( srchname(".IGNORE") )
+	ignerr = YES;
+if( srchname(".SILENT") )
+	silflag = YES;
+if( srchname(".OLDFLAG") )
+	oldflag = YES;
+if( p=srchname(".SUFFIXES") )
+	sufflist = p->linep;
+if( !sufflist && !firstwild)
+	fprintf(stderr,"No suffix or %% pattern list.\n");
+/*
+if(sufflist && !oldflag)
+	fprintf(stderr, "Suffix lists are old-fashioned. Use %% patterns\n);
+*/
+
+	sigivalue = (int) signal(SIGINT, SIG_IGN);
+	sigqvalue = (int) signal(SIGQUIT, SIG_IGN);
+	enbint(intrupt);
+
+nfargs = 0;
+
+for(i=1; i<argc; ++i)
+	if(s = argv[i])
+		{
+		if((p=srchname(s)) == NULL)
+			p = makename(s);
+		++nfargs;
+		if(i+1<argc && argv[i+1] != 0 && equal(argv[i+1], "&") )
+			{
+			++i;
+			nowait = YES;
+			}
+		else
+			nowait = NO;
+		doname(p, 0, &tjunk, nowait);
+		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, NO);
+		if(dbgflag) printdesc(YES);
+		}
+
+if(!nowait)
+	waitstack(0);
+exit(0);
+}
+
+
+void
+intrupt(int sig)
+{
+char *p;
+
+if(okdel && !noexflag && !touchflag &&
+	(p = varptr("@")->varval) && exists(p)>0 && !isprecious(p) )
+		{
+		fprintf(stderr, "\n***  %s removed.", p);
+		remove(p);
+		}
+
+fprintf(stderr, "\n");
+exit(2);
+}
+
+
+
+static int
+isprecious(char *p)
+{
+lineblkp lp;
+depblkp dp;
+nameblkp np;
+
+if(np = srchname(".PRECIOUS"))
+	for(lp = np->linep ; lp ; lp = lp->nxtlineblock)
+		for(dp = lp->depp ; dp ; dp = dp->nxtdepblock)
+			if(equal(p, dp->depname->namep))
+				return YES;
+
+return NO;
+}
+
+
+void
+enbint(void (*k)(int))
+{
+if(sigivalue == 0)
+	signal(SIGINT,k);
+if(sigqvalue == 0)
+	signal(SIGQUIT,k);
+}
+
+static int
+rddescf(char *descfile)
+{
+static int firstrd = YES;
+
+/* read and parse description */
+
+if(firstrd)
+	{
+	firstrd = NO;
+	if( !noruleflag )
+		{
+		rdarray(dfltmacro);
+		if(oldflag)
+			rdarray(dfltsuff);
+		}
+	if(!envlast)
+		loadenv();
+
+	}
+
+return  parse(descfile);
+}
+
+static void
+rdarray(char **s)
+{
+linesptr = s;
+parse(CHNULL);
+}
+
+static void
+loadenv(void)
+{
+for(envpp = environ ; *envpp ; ++envpp)
+	eqsign(*envpp);
+envpp = NULL;
+}
+
+static void
+printdesc(int prntflag)
+{
+nameblkp p;
+depblkp dp;
+struct varblock *vp;
+struct dirhd *od;
+struct shblock *sp;
+lineblkp lp;
+
+if(prntflag)
+	{
+	printf("Open directories:\n");
+	for (od = firstod; od; od = od->nxtdirhd)
+		printf("\t%s\n", od->dirn);
+	}
+
+if(firstvar != 0) printf("Macros:\n");
+for(vp = firstvar; vp ; vp = vp->nxtvarblock)
+	printf("\t%s = %s\n" , vp->varname , vp->varval ? vp->varval : "(null)");
+
+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 ; sp = sp->nxtshblock)
+				printf("\t%s\n", sp->shbp);
+			}
+		}
+	}
+printf("\n");
+fflush(stdout);
+}