ack/util/ego/ra/makeitems.c

/* $Id$ */
/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */

#include <stdbool.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

/*  MAKE ITEMS TABLE
 *
 * This program is used by the register allocation phase of the optimizer
 * to make the file itemtab.h. It reads two files:
 *  - the em_mnem.h file, containing the definitions of the
 *    EM mnemonics
 *  - the item-file, containing tuples:
 *    (mnemonic, item_type)
 * The output (standard output) is a C array.
 */


void error(const char *s)
{
	fprintf(stderr,"%s\n",s);
	exit(-1);
}


void convert(FILE *mnemfile, FILE *itemfile)
{
	char mnem1[20], mnem2[20],def[20],itemtype[20];
	int opc,index;
	bool newcl;

	newcl = true;
	printf("struct item_descr itemtab[] = {\n");
	for (;;) {
		fscanf(mnemfile,"%19s%19s%d",def,mnem1,&opc);
		/* read a line like "#define op_aar 1" */
		if (feof(mnemfile)) break;
		if (strcmp(def,"#define") != 0) {
			error("bad mnemonic file, #define expected");
		}
		if (newcl) {
			fscanf(itemfile,"%19s%19s%d",mnem2,itemtype,&index);
			/* read a line like "op_loc CONST 4" */
		}
		if (feof(itemfile) || strcmp(mnem1,mnem2) != 0) {
			/* there is no line for this mnemonic, so
			 * it has no type.
			 */
			printf("{NO_ITEM,0}, /* %s */\n", mnem1);
			newcl = false;
		} else {
			printf("{%s,%d}, /* %s */\n",itemtype,index, mnem1);
			newcl = true;
		}
	}
	printf("};\n");
}


int main(int argc, char *argv[])
{
	FILE *f1,*f2;

	if (argc != 3) {
		error("usage: makeitems mnemfile itemfile");
	}
	if ((f1 = fopen(argv[1],"rb")) == NULL) {
		error("cannot open mnemonic file");
	}
	if ((f2 = fopen(argv[2],"rb")) == NULL) {
		error("cannot open item file");
	}
	convert(f1,f2);
	exit(0);
}