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

#include <em_spec.h>
#include <em_flag.h>
#include "assert.h"
#include "param.h"
#include "tables.h"
#include "types.h"
#include <cg_pattern.h>
#include "data.h"
#include "result.h"
#include "extern.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
 */

#ifndef NDEBUG
#include <stdio.h>
extern char em_mnem[][4];
#endif

byte *trypat(bp,len) register byte *bp; {
	register patlen,i;
	result_t result;

	getint(patlen,bp);
	if (len == 3) {
		if (patlen < 3)
			return(0);
	} else {
		if (patlen != len)
			return(0);
	}
	for(i=0;i<patlen;i++)
		if (emp[i].em_instr != (*bp++&BMASK))
			return(0);
	for (i=0;i<patlen;i++)
		if (emp[i].em_optyp==OPNO)
			dollar[i].e_typ=EV_UNDEF;
		else if ((dollar[i].e_typ=argtyp(emp[i].em_instr))==EV_INT)
			dollar[i].e_v.e_con=emp[i].em_u.em_ioper;
		else
			dollar[i].e_v.e_str=emp[i].em_soper;
	getint(i,bp);
	if (i!=0) {
		result = compute(&enodes[i]);
		if (result.e_typ != EV_INT || result.e_v.e_con == 0)
			return(0);
	}
#ifndef NDEBUG
	if (Debug) {
		fprintf(stderr,"Matched:");
		for (i=0;i<patlen;i++)
			fprintf(stderr," %3.3s",em_mnem[emp[i].em_instr-sp_fmnem]);
		fprintf(stderr,"\n");
	}
#endif
	saveemp = emp;
	emp += patlen;
	return(bp);
}

extern char em_flag[];

argtyp(mn) {

	switch(em_flag[mn-sp_fmnem]&EM_PAR) {
	case PAR_W:
	case PAR_S:
	case PAR_Z:
	case PAR_O:
	case PAR_N:
	case PAR_L:
	case PAR_F:
	case PAR_R:
	case PAR_C:
		return(EV_INT);
	default:
		return(EV_STR);
	}
}

byte *nextem(toplevel) {
	register i;
	short hash[3];
	register byte *bp;
	byte *cp;
	int index;
	register struct emline *ep;

	if (toplevel) {
		if (nemlines && emp>emlines) {
			nemlines -= emp-emlines;
			for (i=0,ep=emlines;i<nemlines;i++)
				*ep++ = *emp++;
			emp=emlines;
		}
		fillemlines();
	}
	hash[0] = emp[0].em_instr;
	hash[1] = (hash[0]<<4) ^ emp[1].em_instr;
	hash[2] = (hash[1]<<4) ^ emp[2].em_instr;
	for (i=2;i>=0;i--) {
		index = pathash[hash[i]&BMASK];
		while (index != 0) {
			bp = &pattern[index];
			if ( bp[PO_HASH] == (hash[i]>>8))
				if ((cp=trypat(&bp[PO_MATCH],i+1)) != 0)
					return(cp);
			index = (bp[PO_NEXT]&BMASK) | (bp[PO_NEXT+1]<<8);
		}
	}
	return(0);
}