Xinu7/src/cmd/as11/as11.c

#
/* PDP-11 Assembler for the VAX Pass 0 */

#include "vars1.h"
#include <sys/types.h>
#include <sys/stat.h>

#define	PASS2	"/usr/Xinu/lib/as11-2"

char fpass2[] = PASS2;
char globfl[] = "-\0";
char outfl[] = "-o";
char outfile[] = "a.out";

char *argv2[] = {
	fpass2,
	globfl,
	outfl,
	outfile,
	a_tmp1,
	a_tmp2,
	a_tmp3,
	NULL };

go() {
	FILE *fd;

	assem();
	if (fclose(pof) == EOF)
		wrterr("can't close %s", a_tmp1);
	if (fclose(fbfil) == EOF)
		wrterr("can't close %s", a_tmp2);
	if (errflg)
		aexit();
	if ((fd = fcreat(a_tmp3)) == NULL)
		wrterr("can't create %s", a_tmp3);
	setbuf(fd, _sobuf);
	if (symend != (char *)usymtab)
		if (fwrite((char *)usymtab, symend-(char *)usymtab, 1, fd) != 1)
			wrterr("can't write on %s", a_tmp3);
	if (fclose(fd) == EOF)
		wrterr("can't close %s", a_tmp3);
	execv(fpass2, argv2);
	fprintf(stderr, "%s?\n", fpass2);
}

aexit() {
	unlink(a_tmp1);
	unlink(a_tmp2);
	unlink(a_tmp3);
	exit(3);
}

FILE *
fcreat(name) char *name; {
	struct stat statb;
	int fd;

	while(stat(name, &statb) >= 0 || (fd = creat(name,0444)) < 0)
		if(name[9]++ == 'z') {
			fprintf(stderr, "%s?\n", name);
			exit(3);
		}
	return(fdopen(fd, "w"));
}

/* VARARGS1 */
wrterr(s, n)
char *s, *n;
{
	fprintf(stderr, "as: error on temp file: ");
	fprintf(stderr, s, n);
	fprintf(stderr, "\n");
	aexit();
}