288 lines
7.2 KiB
C
288 lines
7.2 KiB
C
/*************************************************************************
|
|
*
|
|
* m a k e : m a i n . c
|
|
*
|
|
*========================================================================
|
|
* Edition history
|
|
*
|
|
* # Date Comments By
|
|
* --- -------- ---------------------------------------------------- ---
|
|
* 1 ?? ??
|
|
* 2 01.07.89 strcmp(makefile,..) only if makefile a valid ptr. RAL
|
|
* 3 23.08.89 initname() added RAL
|
|
* 4 30.08.89 argument parsing impr., indention ch., macro fl. add.PSH,RAL
|
|
* 5 03.09.89 k-option added, initname -> init changed RAL
|
|
* 6 06.09.89 environment, MAKEFLAGS, e,d,a options added, RAL
|
|
* 7 09.09.89 tos support added, fatal args added, fopen makefile PHH,RAL
|
|
* 8 17.09.89 setoptions fixed for __STDC__ RAL
|
|
* ------------ Version 2.0 released ------------------------------- RAL
|
|
*
|
|
*************************************************************************/
|
|
|
|
/*
|
|
* make:
|
|
*
|
|
* -a try to guess undefined ambiguous macros (*,<)
|
|
* -d print debugging info
|
|
* -e environment macro def. overwrite makefile def.
|
|
* -f makefile name
|
|
* -i ignore exit status
|
|
* -k continue on errors
|
|
* -n pretend to make
|
|
* -p print all macros & targets
|
|
* -q question up-to-dateness of target. Return exit status 1 if not
|
|
* -r don't not use inbuilt rules
|
|
* -s make silently
|
|
* -t touch files instead of making them
|
|
* -m Change memory requirements (EON only)
|
|
*/
|
|
|
|
#define EXTERN
|
|
#define INIT(x) = x
|
|
#define INITARRAY
|
|
#include "h.h"
|
|
|
|
static char version[]= "2.0";
|
|
|
|
static FILE *ifd; /* Input file desciptor */
|
|
static char *ptrmakeflags;
|
|
|
|
/* There must be enough 'space' for all possible flags ! */
|
|
static char makeflags[] = "MAKEFLAGS= ";
|
|
|
|
void main(argc, argv)
|
|
int argc;
|
|
char **argv;
|
|
{
|
|
register char *p; /* For argument processing */
|
|
int estat = 0; /* For question */
|
|
register struct name *np;
|
|
struct macro *mp;
|
|
int targc; /* temporary for multiple scans */
|
|
char **targv;
|
|
char **nargv; /* for removing items from argv */
|
|
char **envp; /* enivironment ptr */
|
|
|
|
|
|
ptrmakeflags = &makeflags[10];
|
|
myname = (argc-- < 1) ? "make" : *argv++;
|
|
#ifdef tos
|
|
myname = "Make";
|
|
#endif
|
|
|
|
targc = argc;
|
|
targv = nargv = argv;
|
|
while (targc--) {
|
|
if((p = strchr(*targv, '=')) != (char *)NULL) {
|
|
*p = '\0';
|
|
mp = setmacro(*targv, p + 1);
|
|
mp->m_flag |= M_OVERRIDE;
|
|
--argc;
|
|
} else
|
|
*nargv++ = *targv;
|
|
|
|
++targv;
|
|
}
|
|
|
|
targc = argc;
|
|
targv = nargv = argv;
|
|
while (targc--) {
|
|
if (**targv == '-') {
|
|
--argc;
|
|
p = *targv++;
|
|
while (*++p != '\0') {
|
|
switch(mylower(*p)) {
|
|
case 'f': /* Alternate file name */
|
|
if (*++p == '\0') {
|
|
--argc;
|
|
if (targc-- == 0)
|
|
usage();
|
|
p = *targv++;
|
|
}
|
|
makefile = p;
|
|
goto end_of_args;
|
|
#ifdef eon
|
|
case 'm': /* Change space requirements */
|
|
if (*++p == '\0') {
|
|
--argc;
|
|
if (targc-- <= 0)
|
|
usage();
|
|
p = *targv++;
|
|
}
|
|
memspace = atoi(p);
|
|
goto end_of_args;
|
|
#endif
|
|
default :
|
|
setoption(*p);
|
|
break;
|
|
}
|
|
}
|
|
end_of_args:;
|
|
} else
|
|
*nargv++ = *targv++;
|
|
}
|
|
|
|
/* evaluate and update environment MAKEFLAGS */
|
|
if((p =getenv("MAKEFLAGS")) != (char *)0)
|
|
while(*p) setoption(*p++);
|
|
for( p = ptrmakeflags; !isspace((int)*p); p++) ;
|
|
*p = '\0';
|
|
putenv(makeflags);
|
|
|
|
|
|
#ifdef eon
|
|
if (initalloc(memspace) == 0xffff) /* Must get memory for alloc */
|
|
fatal("Cannot initalloc memory",(char *)0,0);
|
|
#endif
|
|
|
|
if (makefile && strcmp(makefile, "-") == 0) /* use stdin as makefile */
|
|
ifd = stdin;
|
|
else if (!makefile) { /* If no file, then use default */
|
|
if ((ifd = fopen(makefile = DEFN1, "r")) == (FILE *)0) {
|
|
if (errno != MNOENT || !DEFN2)
|
|
fatal("Can't open %s: %s", DEFN1, errno);
|
|
else if ((ifd = fopen(makefile = DEFN2, "r")) == (FILE *)0)
|
|
fatal("Can't open %s: %s", DEFN2, errno);
|
|
}
|
|
}
|
|
else if ((ifd = fopen(makefile, "r")) == (FILE *)0)
|
|
fatal("Can't open %s: %s", makefile, errno);
|
|
|
|
init();
|
|
|
|
makerules();
|
|
|
|
mp = setmacro("MAKE", myname);
|
|
mp->m_flag |= M_MAKE;
|
|
setmacro("$", "$");
|
|
|
|
/* set environment macros */
|
|
envp = environ; /* get actual environment ptr. */
|
|
while (*envp) {
|
|
if((p = strchr(*envp, '=')) != (char *)NULL) {
|
|
*p = '\0';
|
|
mp = setmacro(*envp, p + 1);
|
|
*p = '=';
|
|
if (useenv) mp->m_flag |= M_OVERRIDE;
|
|
} else
|
|
fatal("invalid environment: %s",*envp,0);
|
|
|
|
++envp;
|
|
}
|
|
|
|
input(ifd); /* Input all the gunga */
|
|
fclose(ifd); /* Finished with makefile */
|
|
lineno = 0; /* Any calls to error now print no line number */
|
|
|
|
if (print)
|
|
prt(); /* Print out structures */
|
|
|
|
np = newname(".SILENT");
|
|
if (np->n_flag & N_TARG) silent = TRUE;
|
|
|
|
np = newname(".IGNORE");
|
|
if (np->n_flag & N_TARG) ignore = TRUE;
|
|
|
|
precious();
|
|
|
|
if (!firstname)
|
|
fatal("No targets defined",(char *)0,0);
|
|
|
|
circh(); /* Check circles in target definitions */
|
|
|
|
if (!argc)
|
|
estat = make(firstname, 0);
|
|
else
|
|
while (argc--) {
|
|
estat |= make(newname(*argv++), 0);
|
|
}
|
|
|
|
if (quest)
|
|
exit(estat);
|
|
else
|
|
exit(0);
|
|
}
|
|
|
|
#ifdef __STDC__
|
|
void setoption(char option)
|
|
#else
|
|
void setoption(option)
|
|
char option;
|
|
#endif
|
|
{
|
|
register char *c;
|
|
|
|
option = mylower(option);
|
|
switch(option) {
|
|
case 'n': /* Pretend mode */
|
|
domake = FALSE;
|
|
break;
|
|
case 'i': /* Ignore fault mode */
|
|
ignore = TRUE;
|
|
break;
|
|
case 'k': /* Continue on errror */
|
|
conterr = TRUE;
|
|
break;
|
|
case 's': /* Silent about commands */
|
|
silent = TRUE;
|
|
break;
|
|
case 'p':
|
|
print = TRUE;
|
|
break;
|
|
case 'r':
|
|
rules = FALSE;
|
|
break;
|
|
case 't':
|
|
dotouch = TRUE;
|
|
break;
|
|
case 'q':
|
|
quest = TRUE;
|
|
break;
|
|
case 'e':
|
|
useenv = TRUE;
|
|
break;
|
|
case 'd':
|
|
dbginfo = TRUE;
|
|
break;
|
|
case 'a':
|
|
ambigmac = TRUE;
|
|
break;
|
|
default: /* Wrong option */
|
|
usage();
|
|
}
|
|
for( c = ptrmakeflags; !isspace((int)*c); c++)
|
|
if ( *c == option) return;
|
|
*c = option;
|
|
}
|
|
|
|
void usage()
|
|
{
|
|
fprintf(stderr, "Syntax: %s [{options | macro=val | target}]\n", myname);
|
|
fprintf(stderr, "Function: maintaining computer programs V%s\n",version);
|
|
fprintf(stderr, "Options : -a : try to guess undefined ambiguous macros (*,<)\n");
|
|
fprintf(stderr, " -d : print debugging information\n");
|
|
fprintf(stderr, " -e : environment macro def. overwrite makefile def.\n");
|
|
fprintf(stderr, " -f filename : makefile name (default: makefile, Makefile)\n");
|
|
fprintf(stderr, " -i : ignore exit status of executed commands\n");
|
|
fprintf(stderr, " -k : continue with unrelated branches on errors\n");
|
|
fprintf(stderr, " -n : pretend to make\n");
|
|
fprintf(stderr, " -p : print all macros & targets\n");
|
|
fprintf(stderr, " -q : question up-to-dateness of target\n");
|
|
fprintf(stderr, " -r : don't use inbuilt rules\n");
|
|
fprintf(stderr, " -s : make silently\n");
|
|
fprintf(stderr, " -t : touch files instead of making them\n");
|
|
fprintf(stderr, "Environment: MAKEFLAGS\n");
|
|
exit(1);
|
|
}
|
|
|
|
|
|
void fatal(msg, a1, a2)
|
|
char *msg;
|
|
char *a1;
|
|
int a2;
|
|
{
|
|
fprintf(stderr, "%s: ", myname);
|
|
fprintf(stderr, msg, a1, strerror(a2));
|
|
fputc('\n', stderr);
|
|
exit(1);
|
|
}
|