#ifndef NORCSID
static char rcsid[] = "$Header$";
#endif

#include <stdio.h>
#include "param.h"
#include "types.h"
#include "alloc.h"
#include "../../h/em_spec.h"
#include "ext.h"

/*
 * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
 *
 *          This product is part of the Amsterdam Compiler Kit.
 *
 * Permission to use, sell, duplicate or disclose this software must be
 * obtained in writing. Requests for such permissions may be sent to
 *
 *      Dr. Andrew S. Tanenbaum
 *      Wiskundig Seminarium
 *      Vrije Universiteit
 *      Postbox 7161
 *      1007 MC Amsterdam
 *      The Netherlands
 *
 * Author: Hans van Staveren
 */

/*
 * Main program for EM optimizer
 */

main(argc,argv) int argc; char *argv[]; {
	short somespace[STACKROOM];

	progname = argv[0];
	while (argc-->1 && **++argv == '-')
		flags(*argv);
	if (argc>1) {
		fprintf(stderr,"Usage: %s [-Ln] [name]\n",progname);
		exit(-1);
	}
	if (argc)
		if (freopen(*argv,"r",stdin) == NULL)
			error("Cannot open %s",*argv);
	fileinit();
	coreinit(somespace,somespace+STACKROOM);
	getlines();
	cleanup();
	return(0);
}

flags(s) register char *s; {

	for (s++;*s;s++)
		switch(*s) {
		case 'L':	Lflag = TRUE; break;
		case 'n':	nflag = TRUE; break;
		}
}

fileinit() {
	char *mktemp();
	short readshort();

	if (readshort() != (short) sp_magic)
		error("wrong input file");
	if (Lflag) {
		outfile = fopen(mktemp(template),"w");
		if (outfile == NULL)
			error("can't create %s",template);
	} else {
		outfile = stdout;
		outshort(sp_magic);
	}
}