/*	fcc/fm2/fpc 
	Driver for fast ACK compilers.

	Derived from the C compiler driver from Minix.

	You can create cc-compatible versions by compiling with
		cc -O '-DFASTDIR="<this directory>"' -DF?? driver.c
	where F?? is either FCC, FM2, or FPC.
	Install resulting binaries in a public place (f.i. /usr/local/bin).
	Suggested names: fcc, fm2, and fpc.

	If you have ACK, you can create ACK-compatible versions by compiling
	this file with
		cc -O -DACK_BIN -I<ACK home directory>/h -DF?? driver.c
	where F?? is either FCC, FPC, or FM2.
	Install the resulting binaries in the EM bin directory.
	Suggested names: afcc, afm2, and afpc.
	The ACK compatible version afpc is not compatible with the 4th
	ACK distribution, and thus is not on the tape.
*/


#ifndef vax
#ifndef sun
In this case, no fast ACK compiler available
#endif
#endif

#if FM2+FPC+FCC > 1
Something wrong here! Only one of FM2, FPC, or FCC must be defined
#endif

#include <errno.h>
#include <signal.h>
#include <varargs.h>
#include <stdio.h>
#ifdef ACK_BIN
#include <em_path.h>
#define M2DEF	"/lib/m2"
#define FASTDIR EM_DIR
#else
#define M2DEF "/def"
#define TMP_DIR	"/tmp"
#endif ACK_BIN


#ifndef ACK_BIN
#define BINDIR	"/bin/"
#define LIBDIR	"/lib/"
#else ACK_BIN
#define BINDIR	"/lib/"
#ifdef sun
#define LIBDIR	"/lib/sun3/"
#endif sun
#ifdef vax
#define LIBDIR	"/lib/vax4/"
#endif vax
#define CCINCL	"/include/_tail_cc"
#endif ACK_BIN
char *ROOT_DIR = FASTDIR;

/*
#ifndef ACK_BIN
	Version producing VAX or SUN .o files in one pass.
#else ACK_BIN
	Version producing ACK .o files in one pass.
#endif ACK_BIN
*/
#define MAXARGC	128	/* maximum number of arguments allowed in a list */
#define USTR_SIZE	128	/* maximum length of string variable */

typedef char USTRING[USTR_SIZE];

USTRING INCLUDE = "-I";

struct arglist {
	int al_argc;
	char *al_argv[MAXARGC];
};

#define LD	"/bin/ld"
#define AS	"/bin/as"
#define CPP	"*cpp"
#if ACK_BIN && !vax
#undef LD
#undef AS
#define LD	"*em_led"
#define CV	"~cv"		/* machine dependent; resides in lib directory */
#endif ACK_BIN && !vax
#define SHELL	"/bin/sh"

/*	flags passed to linker */
#define TO_LD	"dnNrsSi"
#if ACK_BIN && !vax
#undef TO_LD
#define TO_LD	"rs"
#endif ACK_BIN && !vax

int kids =  -1;
int ecount = 0;

struct arglist CPP_FLAGS = {
#ifdef vax
	8,
#endif
#ifdef sun
	10,
#endif
	{
		"-Dunix",
		"-DEM_WSIZE=4",
		"-DEM_PSIZE=4",
		"-DEM_SSIZE=2",
		"-DEM_LSIZE=4",
		"-DEM_FSIZE=4",
		"-DEM_DSIZE=8",
#ifdef vax
		"-Dvax"
#endif
#ifdef sun
		"-Dmc68000",
		"-Dsun",
		"-Dmc68020"
#endif
	}
};

struct arglist COMP_FLAGS;

#ifdef FCC
struct arglist LD_HEAD = {
#ifdef ACK_BIN
	2,
	{
		"~head_em",
		"~head_cc"
	}
#else ACK_BIN
#ifdef sun
#ifdef SunOs4
	7,
#else
	5,
#endif
	{
		"-e",
		"start",
		"-X",
#ifdef SunOs4
		"-L/usr/lib/fsoft",
		"-Bstatic",
#endif
		"/lib/crt0.o",
		"/lib/Fcrt1.o"
	}
#endif
#ifdef vax
	2,
	{
		"-X",
		"/lib/crt0.o"
	}
#endif
#endif ACK_BIN
};

struct arglist LD_TAIL = {
#ifdef ACK_BIN
#ifdef sun
	6,
	{
		"~tail_cc.1s",
		"~tail_cc.2g",
		"*m68020/tail_fp",
		"*m68020/tail_em",
		"~tail_mon",
		"*m68020/end_em"
	}
#endif sun
#ifdef vax
	4,
	{
		"~tail_cc.1s",
		"~tail_cc.2g",
		"~tail_em",
		"~tail_mon"
	}
#endif vax
#else ACK_BIN
#ifdef sun
	2,
	{
		"~tail_ext",
		"-lc"
	}
#endif
#ifdef vax
	2,
	{
		"~tail_em",
		"-lc"
	}
#endif
#endif ACK_BIN
};
#endif FCC

#ifdef FPC
struct arglist LD_HEAD = {
#ifdef ACK_BIN
	2,
	{
		"~head_em",
#ifdef vax
		"~head_pc"
#endif
#ifdef sun
		"*m68020/head_pc"
#endif
	}
#else ACK_BIN
#ifdef sun
#ifdef SunOs4
	7,
#else
	5,
#endif
	{
		"-e",
		"begtext",
		"-X",
#ifdef SunOs4
		"-L/usr/lib/fsoft",
		"-Bstatic",
#endif
		"~head_em",
		"~head_pc"
	}
#endif sun
#ifdef vax
	3,
	{
		"-X",
		"~head_em",
		"~head_pc"
	}
#endif vax
#endif ACK_BIN
};
struct arglist LD_TAIL = {
#ifndef ACK_BIN
#ifdef sun
	3,
	{
		"~tail_pc",
		"~tail_ext",
		"-lc"
	}
#endif sun
#ifdef vax
	3,
	{
		"~tail_pc",
		"~tail_em",
		"-lc"
	}
#endif vax
#else ACK_BIN
#ifdef sun
	5,
	{
		"*m68020/tail_pc",
		"*m68020/tail_fp",
		"*m68020/tail_em",
		"~tail_mon",
		"*m68020/end_em"
	}
#endif sun
#ifdef vax
	3,
	{
		"~tail_pc",
		"~tail_em",
		"~tail_mon"
	}
#endif vax
#endif ACK_BIN
};
#endif FPC

#ifdef FM2
struct arglist LD_HEAD = {
#ifdef ACK_BIN
	2,
	{
		"~head_em",
		"~head_m2"
	}
#else ACK_BIN
#ifdef sun
#ifdef SunOs4
	7,
#else
	5,
#endif
	{
		"-e",
		"begtext",
		"-X",
#ifdef SunOs4
		"-L/usr/lib/fsoft",
		"-Bstatic",
#endif
		"~head_em",
		"~head_m2"
	}
#endif sun
#ifdef vax
	3,
	{
		"-X",
		"~head_em",
		"~head_m2"
	}
#endif vax
#endif ACK_BIN
};
struct arglist LD_TAIL = {
#ifndef ACK_BIN
#ifdef sun
	3,
	{
		"~tail_m2",
		"~tail_ext",
		"-lc"
	}
#endif sun
#ifdef vax
	3,
	{
		"~tail_m2",
		"~tail_em",
		"-lc"
	}
#endif vax
#else ACK_BIN
#ifdef sun
	5,
	{
		"~tail_m2",
		"*m68020/tail_fp",
		"*m68020/tail_em",
		"~tail_mon",
		"*m68020/end_em"
	}
#endif sun
#ifdef vax
	3,
	{
		"~tail_m2",
		"~tail_em",
		"~tail_mon"
	}
#endif vax
#endif ACK_BIN
};
#endif FM2

#if ACK_BIN && !vax
#ifdef sun
struct arglist def_align = {
	5,
	{
		"-a0:4",
		"-a1:4",
		"-a2:0x20000",
		"-a3:4",
		"-b0:0x2020"
	}
};

struct arglist n_align = {
	5,
	{
		"-a0:4",
		"-a1:4",
		"-a2:0x20000",
		"-a3:4",
		"-b0:0x2000"
	}
};

struct arglist N_align = {
	5,
	{
		"-a0:4",
		"-a1:4",
		"-a2:4",
		"-a3:4",
		"-b0:0x2000"
	}
};
#endif sun

struct arglist *sect_align = &def_align;

#endif ACK_BIN && !vax

char *o_FILE = "a.out"; /* default name for executable file */

#define remove(str)	((noexec || unlink(str)), (str)[0] = '\0')
#define cleanup(str)		(str && str[0] && remove(str))
#define init(al)		((al)->al_argc = 1)

char ProgCall[128];

struct arglist SRCFILES;
struct arglist LDFILES;
struct arglist GEN_LDFILES;

int RET_CODE = 0;

struct arglist LD_FLAGS;

struct arglist CALL_VEC;

int o_flag = 0;
int c_flag = 0;
int v_flag = 0;
int O_flag = 0;

char *mkstr();
char *malloc();
char *alloc();
char *extension();

USTRING ofile;
USTRING BASE;
USTRING tmp_file;

int noexec = 0;

extern char *strcat(), *strcpy(), *mktemp(), *strchr();

trapcc(sig)
	int sig;
{
	signal(sig, SIG_IGN);
	if (kids != -1) kill(kids, sig);
	cleanup(ofile);
	cleanup(tmp_file);
	exit(1);
}

#ifdef FCC
#define lang_suffix()	"c"
#ifndef ACK_BIN
#define comp_name()	"*cemcom_ce"
#else
#ifdef vax
#define comp_name()	"~cemcom_ce"
#endif
#ifdef sun
#define comp_name()	"*m68020/cemcom_ce"
#endif
#endif ACK_BIN
#endif FCC

#ifdef FM2
#define lang_suffix()	"mod"
#ifndef ACK_BIN
#define comp_name()	"*m2_ce"
#else
#ifdef vax
#define comp_name()	"~m2_ce"
#endif
#ifdef sun
#define comp_name()	"*m68020/m2_ce"
#endif
#endif ACK_BIN
#endif FM2

#ifdef FPC
#define lang_suffix()	"p"
#ifndef ACK_BIN
#define comp_name()	"*pc_ce"
#else
#ifdef vax
#define comp_name()	"~pc_ce"
#endif
#ifdef sun
#define comp_name()	"*m68020/pc_ce"
#endif
#endif ACK_BIN

#endif FPC


#ifdef FCC
int
lang_opt(str)
	char *str;
{
	switch(str[1]) {
	case '-':	/* debug options */
	case 'w':	/* disable warnings */
	case 'R':	/* strict K&R C.  */
		append(&COMP_FLAGS, str);
		return 1;
	}
	return 0;
}
#endif FCC

#ifdef FM2
int
lang_opt(str)
	char *str;
{
	switch(str[1]) {
	case '-':	/* debug options */
	case 'w':	/* disable warnings */
	case 'R':	/* no runtime checks */
	case 'W':	/* add warnings */
	case 'L':	/* no line numbers */
	case 'A':	/* extra array bound checks */
	case '3':	/* only accept 3rd edition Modula-2 */
		append(&COMP_FLAGS, str);
		return 1;
	case 'I':
		append(&COMP_FLAGS, str);
		break;	/* !!! */
	case 'U':	/* underscores in identifiers allowed */
		if (str[2] == '\0') {
			append(&COMP_FLAGS, str);
			return 1;
		}
		break;
	case 'e':	/* local extension for Modula-2 compiler:
			   procedure constants
			*/
		str[1] = 'l';
		append(&COMP_FLAGS, str);
		return 1;
	}
	return 0;
}
#endif FM2

#ifdef FPC
int
lang_opt(str)
	char *str;
{
	switch(str[1]) {
	case '-':	/* debug options */
	case 'a':	/* enable assertions */
	case 'd':	/* allow doubles (longs) */
	case 'i':	/* set size of integer sets */
	case 't':	/* tracing */
	case 'w':	/* disable warnings */
	case 'A':	/* extra array bound checks */
	case 'C':	/* distinguish between lower case and upper case */
	case 'L':	/* no FIL and LIN instructions */
	case 'R':	/* no runtime checks */
		append(&COMP_FLAGS, str);
		return 1;
	case 'u':
	case 'U':
		/* underscores in identifiers */
	case 's':
		/* only compile standard pascal */
	case 'c':
		/* C type strings */
		if (str[2] == '+' && str[3] == '\0') {
			str[2] = 0;
			append(&COMP_FLAGS, str);
			return 1;
		}
	}
	return 0;
}
#endif FPC

main(argc, argv)
	char *argv[];
{
	char *str;
	char **argvec;
	int count;
	char *ext;
	register struct arglist *call = &CALL_VEC;
	char *file;
	char *ldfile = 0;
	USTRING COMP;
	int compile_cnt = 0;

	setbuf(stdout, (char *) 0);
	basename(*argv++,ProgCall);
	strcat(INCLUDE, ROOT_DIR);
#ifdef FM2
	strcat(INCLUDE, M2DEF);
#endif FM2
#ifdef FCC
#ifdef ACK_BIN
	strcat(INCLUDE, CCINCL);
#else
	INCLUDE[0] = '\0';
#endif ACK_BIN
#endif FCC
#ifdef FPC
	INCLUDE[0] = '\0';
#endif FPC
	strcpy(COMP,comp_name());

	if (signal(SIGHUP, SIG_IGN) != SIG_IGN)
		signal(SIGHUP, trapcc);
	if (signal(SIGINT, SIG_IGN) != SIG_IGN)
		signal(SIGINT, trapcc);
	if (signal(SIGQUIT, SIG_IGN) != SIG_IGN)
		signal(SIGQUIT, trapcc);
	while (--argc > 0) {
		if (*(str = *argv++) != '-') {
			append(&SRCFILES, str);
			continue;
		}

		if (lang_opt(str)) {
		}
		else switch (str[1]) {

		case 'c':	/* stop after producing .o files */
			c_flag = 1;
			break;
		case 'D':	/* preprocessor #define */
		case 'U':	/* preprocessor #undef */
			append(&CPP_FLAGS, str);
			break;
		case 'I':	/* include directory */
			append(&CPP_FLAGS, str);
			break;
		case 'o':	/* target file */
			if (argc-- >= 0) {
				o_flag = 1;
				o_FILE = *argv++;
				ext = extension(o_FILE);
				if (ext != o_FILE && ! strcmp(ext, lang_suffix())
#ifndef ACK_BIN
				     || !strcmp(ext, "s")
#endif
				) {
					error("-o would overwrite %s", o_FILE);
				}
			}
			break;
		case 'u':	/* mark identifier as undefined */
			append(&LD_FLAGS, str);
			if (argc-- >= 0)
				append(&LD_FLAGS, *argv++);
			break;
		case 'O':	/* use built in peephole optimizer */
			if (! O_flag) strcat(COMP, "opt");
			O_flag = 1;
			break;
		case 'v':	/* verbose */
			v_flag++;
			if (str[2] == 'n')
				noexec = 1;
			break;
		case 'l':	/* library file */
			append(&SRCFILES, str);
			break;
		case 'M':	/* use other compiler (for testing) */
			strcpy(COMP, str+2);
			break;
#if ACK_BIN && !vax
		case 'n':	/* text portion sharable, read-only. No
				   demand paging
				*/
			sect_align = &n_align;
			break;
		case 'N':	/* text portion not sharable, not read-only */
			sect_align = &N_align;
			break;
		case 'd':	/* force definition of common storage */
			append(&LD_FLAGS, "-c");
			break;
#endif ACK_BIN && !vax
		default:
#ifdef sun
			if (! strcmp(str, "-sun3")) {
				/* SunOs4.0 make passes this flag to
				   $(CC). Ignore it silently.
				*/
				break;
			}
#endif
			if (strchr(TO_LD, str[1]) == 0)
				warning("%s flag ignored", str);
			else {
				append(&LD_FLAGS, str);
			}
			break;
		}
	}

	if (ecount) exit(1);

#if FCC && !ACK_BIN
	append(&COMP_FLAGS, "-L"); /* disable line number and filename admin */
#endif FCC && !ACK_BIN
	count = SRCFILES.al_argc;
	argvec = &(SRCFILES.al_argv[0]);
	while (count-- > 0) {
		ext = extension(*argvec);
		if (*argvec[0] != '-' && 
		    ext != *argvec++ && (! strcmp(ext, lang_suffix())
#ifndef ACK_BIN
		     || !strcmp(ext, "s")
#endif
		)) {
			compile_cnt++;
		}
	}

	if (compile_cnt > 1 && c_flag && o_flag) {
		warning("-o flag ignored");
		o_flag = 0;
	}

	count = SRCFILES.al_argc;
	argvec = &(SRCFILES.al_argv[0]);
	while (count-- > 0) {
		register char *f;
		basename(file = *argvec++, BASE);

		ext = extension(file);

		if (file[0] != '-' &&
		    ext != file && (!strcmp(ext, lang_suffix())
#ifndef ACK_BIN
		    || !strcmp(ext, "s")
#endif
		)) {
#ifndef ACK_BIN
			if (compile_cnt > 1)
				printf("%s:\n", file);
#else
			printf("%s\n", file);
#endif

			ldfile = c_flag ? ofile : alloc((unsigned)strlen(BASE)+3);
			if (
#ifdef FCC
			    !strcmp(ext, "s") &&
#endif
			    needsprep(file)) {
				strcpy(tmp_file, TMP_DIR);
				strcat(tmp_file, "/F_XXXXXX");
				mktemp(tmp_file);
				init(call);
				append(call, CPP);
				concat(call, &CPP_FLAGS);
				append(call, INCLUDE);
				append(call, file);
				if (runvec(call, tmp_file)) {
					file = tmp_file;
				}
				else {
					remove(tmp_file);
					tmp_file[0] = '\0';
					continue;
				}
			}
			init(call);
			if (o_flag && c_flag) {
				f = o_FILE;
			}
			else	f = mkstr(ldfile, BASE, ".o", (char *)0);
#ifndef ACK_BIN
			if (strcmp(ext, "s")) {
#endif
				append(call, COMP);
#ifdef FCC
				concat(call, &CPP_FLAGS);
#endif
				concat(call, &COMP_FLAGS);
#if FM2 || FCC
				append(call, INCLUDE);
#endif
				append(call, file);
				append(call, f);
#ifndef ACK_BIN
			}
			else {
				append(call, AS);
				append(call, "-o");
				append(call, f);
#ifdef sun
				append(call, "-mc68020");
#endif
				append(call, file);
			}
#endif
			if (runvec(call, (char *) 0)) {
				file = f;
			}
			else {
				remove(f);
				continue;
			}
			cleanup(tmp_file);
			tmp_file[0] = '\0';
		}

		else if (file[0] != '-' &&
			 strcmp(ext, "o") && strcmp(ext, "a")) {
			warning("file with unknown suffix (%s) passed to the loader", ext);
		}

		if (c_flag)
			continue;

		append(&LDFILES, file);
		if (ldfile) {
			append(&GEN_LDFILES, ldfile);
			ldfile = 0;
		}
	}

	/* *.s to a.out */
	if (RET_CODE == 0 && LDFILES.al_argc > 0) {
#ifndef ACK_BIN
		if (compile_cnt > 1) {
			printf("Linking:\n");
		}
#endif
		init(call);
		append(call, LD);
		concat(call, &LD_HEAD);
		concat(call, &LD_FLAGS);
		append(call, "-o");
#if ACK_BIN && !vax
		strcpy(tmp_file, TMP_DIR);
		strcat(tmp_file, "/LF_XXXXXX");
		mktemp(tmp_file);
		append(call, tmp_file);
		concat(call, sect_align);
#else ACK_BIN && !vax
		append(call, o_FILE);
#endif ACK_BIN && !vax
		concat(call, &LDFILES);
		concat(call, &LD_TAIL);
#if ACK_BIN && !vax
		if (! runvec(call, (char *) 0)) {
			cleanup(tmp_file);
			exit(RET_CODE);
		}
		init(call);
		append(call, CV);
		append(call, tmp_file);
		append(call, o_FILE);
#endif ACK_BIN && !vax
		if (runvec(call, (char *) 0) && GEN_LDFILES.al_argc == 1)
#ifdef ACK_BIN
			;
#else
			remove(GEN_LDFILES.al_argv[0]);
#endif ACK_BIN
#if ACK_BIN && !vax
		cleanup(tmp_file);
#endif ACK_BIN && !vax
	}
	exit(RET_CODE);
}

needsprep(name)
	char *name;
{
	int file;
	char fc;

	file = open(name,0);
	if (file < 0) return 0;
	if (read(file, &fc, 1) != 1) fc = 0;
	close(file);
	return fc == '#';
}

char *
alloc(u)
	unsigned u;
{
	char *p = malloc(u);

	if (p == 0)
		panic("no space");
	return p;
}

append(al, arg)
	struct arglist *al;
	char *arg;
{
	if (!arg || !*arg) return;
	if (al->al_argc >= MAXARGC)
		panic("argument list overflow");
	if (*arg == '~' || *arg == '*') {
		char *p;
		char *lb = *arg == '~' ? LIBDIR : BINDIR;
		p = alloc((unsigned)strlen(ROOT_DIR)+strlen(lb)+strlen(arg+1)+1);
		strcpy(p, ROOT_DIR);
		strcat(p, lb);
		strcat(p, arg+1);
		arg = p;
	}
	al->al_argv[(al->al_argc)++] = arg;
}

concat(al1, al2)
	struct arglist *al1, *al2;
{
	register i = al2->al_argc;
	register char **p = &(al1->al_argv[al1->al_argc]);
	register char **q = &(al2->al_argv[0]);

	if ((al1->al_argc += i) >= MAXARGC)
		panic("argument list overflow");
	while (i-- > 0) {
		if (**q == '~' || **q == '*') {
			char *lb = **q == '~' ? LIBDIR : BINDIR;
			*p = alloc((unsigned)strlen(ROOT_DIR)+strlen(lb)+strlen(*q+1)+2);
			strcpy(*p, ROOT_DIR);
			strcat(*p, lb);
			strcat(*p++, *q+1);
			q++;
		}
		else	*p++ = *q++;
	}
}

/*VARARGS*/
char *
mkstr(va_alist)
	va_dcl
{
	va_list ap;
	char *dst;

	va_start(ap);
	{
		register char *p;
		register char *q;

		dst = q = va_arg(ap, char *);
		p = va_arg(ap, char *);

		while (p) {
			while (*q++ = *p++);
			q--;
			p = va_arg(ap, char *);
		}
	}
	va_end(ap);

	return dst;
}

basename(str, dst)
	char *str;
	register char *dst;
{
	register char *p1 = str;
	register char *p2 = p1;

	while (*p1)
		if (*p1++ == '/')
			p2 = p1;
	p1--;
	while (*p1 != '.' && p1 >= p2) p1--;
	if (p1 >= p2) {
		*p1 = '\0';
		while (*dst++ = *p2++);
		*p1 = '.';
	}
	else
		while (*dst++ = *p2++);
}

char *
extension(fn)
	char *fn;
{
	register char *c = fn;

	while (*c++) ;
	while (*--c != '.' && c >= fn) { }
	if (c++ < fn || !*c) return fn;
	return c;
}

runvec(vec, outp)
	struct arglist *vec;
	char *outp;
{
	int pid, status;

	if (v_flag) {
		pr_vec(vec);
		putc('\n', stderr);
	}
	if ((pid = fork()) == 0) {	/* start up the process */
		if (outp) {	/* redirect standard output	*/
			close(1);
			if (creat(outp, 0666) != 1)
				panic("cannot create output file");
		}
		ex_vec(vec);
	}
	if (pid == -1)
		panic("no more processes");
	kids = pid;
	wait(&status);
	if (status) switch(status & 0177) {
	case SIGHUP:
	case SIGINT:
	case SIGQUIT:
	case SIGTERM:
	case 0:
		break;
	default:
		error("%s died with signal %d\n", vec->al_argv[1], status&0177);
	}
	kids = -1;
	return status ? ((RET_CODE = 1), 0) : 1;
}

/*VARARGS1*/
error(str, s1, s2)
	char *str, *s1, *s2;
{
	fprintf(stderr, "%s: ", ProgCall);
	fprintf(stderr, str, s1, s2);
	putc('\n', stderr);
	ecount++;
}

/*VARARGS1*/
warning(str, s1, s2)
	char *str, *s1, *s2;
{
	fprintf(stderr, "%s: (warning) ", ProgCall);
	fprintf(stderr, str, s1, s2);
	putc('\n', stderr);
}

panic(str)
	char *str;
{
	error(str);
	trapcc(SIGINT);
}

pr_vec(vec)
	register struct arglist *vec;
{
	register char **ap = &vec->al_argv[1];

	vec->al_argv[vec->al_argc] = 0;
	fputs(*ap, stderr);
	while (*++ap) {
		putc(' ', stderr);
		fputs(*ap, stderr);
	}
}

extern int errno;

ex_vec(vec)
	register struct arglist *vec;
{
	if (noexec)
		exit(0);
	vec->al_argv[vec->al_argc] = 0;
	execv(vec->al_argv[1], &(vec->al_argv[1]));
	if (errno == ENOEXEC) { /* not an a.out, try it with the SHELL */
		vec->al_argv[0] = SHELL;
		execv(SHELL, &(vec->al_argv[0]));
	}
	if (access(vec->al_argv[1], 1) == 0) {
		/* File is executable. */
		error("cannot execute %s", vec->al_argv[1]);
	} else {
		error("%s is not executable", vec->al_argv[1]);
	}
	exit(1);
}