/* $Id$ */
#include <stdio.h>
#include <em_spec.h>
#include <em_mnem.h>
#include <em_pseu.h>
#include <em_flag.h>
#include <em_ptyp.h>
#include <em_mes.h>
#include <alloc.h>
#include <em.h>
#include <em_comp.h>
#include <system.h>
#include <emO_code.h>
#include <ansi.h>

#define MAXBUFFER	200
#define MAXSTRING	1000

#define OTHER	0
#define op_lab	sp_fpseu

typedef struct e_instr *p_instr;

struct dfa {
	short	check;
	short	next;
};

struct dodefault {
	short	numout;
	short	next;
};

extern p_instr	OO_buffer;
extern p_instr	OO_patternqueue;
extern p_instr	OO_nxtpatt;
extern p_instr	OO_endbackup;
extern p_instr	OO_nxtrepl;

p_instr OO_halfflush();

# define GETNXTPATT() (OO_nxtpatt>=&OO_buffer[MAXBUFFER]?OO_halfflush():OO_nxtpatt++)
# define GETNXTREPL() (OO_nxtrepl++)

# define FLUSHDFA()	(GETNXTPATT())->em_opcode=OTHER;\
			if (OO_state) OO_dfa(OTHER); else OO_flush()

extern int	OO_state;
extern arith	OO_WSIZE;	/* wordlength */
extern arith	OO_DWSIZE;	/* 2*wordlength */
extern arith	OO_PSIZE;	/* pointer length */
#ifdef STATS
extern int	OO_wrstats;			/* statistics output */
#endif

#define CST(p)		(p.em_cst)
#define PNAM(p)		(p.em_pnam)
#define LAB(p)		(p.em_ilb)
#define DEFILB(p)	(p.em_ilb)
#define DEFINED(p)	(p.em_argtype)

_PROTOTYPE(void EM_mkop, (p_instr, int));
_PROTOTYPE(void EM_mknarg, (p_instr, int));
_PROTOTYPE(void EM_mkilb, (p_instr, int, label));
_PROTOTYPE(void EM_mknof, (p_instr, int, label, arith));
_PROTOTYPE(void EM_mksof, (p_instr, int, char *, arith));
_PROTOTYPE(void EM_mkcst, (p_instr, int, arith));
_PROTOTYPE(void EM_mkpro, (p_instr, int, char *));
_PROTOTYPE(void EM_mkdefilb, (p_instr, int, label));
_PROTOTYPE(void EM_Nop, (int));
_PROTOTYPE(void EM_Nnarg, (int));
_PROTOTYPE(void EM_Nilb, (int, label));
_PROTOTYPE(void EM_Nnof, (int, label, arith));
_PROTOTYPE(void EM_Nsof, (int, char *, arith));
_PROTOTYPE(void EM_Ncst, (int, arith));
_PROTOTYPE(void EM_Npro, (int, char *));
_PROTOTYPE(void EM_Ndefilb, (int, label));
_PROTOTYPE(void EM_Rop, (int));
_PROTOTYPE(void EM_Rnarg, (int));
_PROTOTYPE(void EM_Rilb, (int, label));
_PROTOTYPE(void EM_Rnof, (int, label, arith));
_PROTOTYPE(void EM_Rsof, (int, char *, arith));
_PROTOTYPE(void EM_Rcst, (int, arith));
_PROTOTYPE(void EM_Rpro, (int, char *));
_PROTOTYPE(void EM_Rdefilb, (int, label));

_PROTOTYPE(arith OO_rotate, (arith, arith));
_PROTOTYPE(int OO_signsame, (arith, arith));
_PROTOTYPE(int OO_sfit, (arith, arith));
_PROTOTYPE(int OO_ufit, (arith, arith));
_PROTOTYPE(int OO_extsame, (p_instr, p_instr));
_PROTOTYPE(int OO_namsame, (p_instr, p_instr));
_PROTOTYPE(arith OO_offset, (p_instr));

_PROTOTYPE(char	*OO_freestr, (char *));
_PROTOTYPE(void OO_dfa, (int));
_PROTOTYPE(void OO_flush, (void));
_PROTOTYPE(p_instr OO_halfflush, (void));
_PROTOTYPE(void OO_mkext, (p_instr, int, p_instr, arith));
_PROTOTYPE(void OO_mkrepl, (int, int, int));

#ifdef DEBUG
_PROTOTYPE(void dumpstate, (char *));
_PROTOTYPE(void prtinst, (p_instr));
#endif