/*
 * (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
 */
#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"
#include "fillem.h"

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

extern char em_flag[];

static int argtyp(int 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 *trypat(register byte *bp, int len)
{
	register int 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) {
		struct emline *svp = saveemp;

		saveemp = emp;
		result = compute(&enodes[i]);
		if (result.e_typ != EV_INT || result.e_v.e_con == 0) {
			saveemp = svp;
			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);
}



byte *nextem(int toplevel) {
	register int 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);
}