72 lines
1.4 KiB
C
72 lines
1.4 KiB
C
#ifndef NORCSID
|
|
static char rcsid[] = "$Header$";
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include "param.h"
|
|
#include "types.h"
|
|
#include "tes.h"
|
|
#include "alloc.h"
|
|
#include <em_spec.h>
|
|
#include "ext.h"
|
|
|
|
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*
|
|
* Author: Hans van Staveren
|
|
*/
|
|
|
|
/*
|
|
* Main program for EM optimizer
|
|
*/
|
|
|
|
main(argc,argv) int argc; char *argv[]; {
|
|
int somespace[STACKROOM];
|
|
|
|
progname = argv[0];
|
|
while (argc-->1 && **++argv == '-')
|
|
flags(*argv);
|
|
if (argc>1) {
|
|
fprintf(stderr,"Usage: %s [-Ln] [-m<num>] [name]\n",progname);
|
|
exit(-1);
|
|
}
|
|
if (argc)
|
|
if (freopen(*argv,"r",stdin) == NULL)
|
|
error("Cannot open %s",*argv);
|
|
fileinit();
|
|
coreinit((short *)somespace,(short *)(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;
|
|
case 'm': if (*(s+1) == 'l') {
|
|
s++;
|
|
repl_longmuls = TRUE;
|
|
}
|
|
repl_muls = atoi(s+1); 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);
|
|
}
|
|
}
|