/* $Header$ */
/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */
/* offsets of interesting fields in EM-pattern */

#define PO_HASH         0
#define PO_NEXT         1
#define PO_MATCH        3

#define ILLHASH 0177777

/* Escapes in printstrings */

#define PR_TOK          '\001'
#define PR_TOKFLD       '\002'
#define PR_EMINT        '\003'
#define PR_EMSTR        '\004'
#define PR_ALLREG       '\005'
#define PR_SUBREG       '\006'
/*
 * In case this list gets longer remember to keep out printable nonprintables
 * like \t \n \r and the like.
 */

/* Commands for codegenerator, in low order 5 bits of byte */

#define DO_NEXTEM       0
#define DO_MATCH        1
#define DO_XMATCH	2
#define DO_XXMATCH	3
#define DO_REMOVE       4
#define DO_DEALLOCATE   5
#define DO_REALLOCATE   6
#define DO_ALLOCATE     7
#define DO_LOUTPUT      8
#define DO_ROUTPUT      9
#define DO_MOVE         10
#define DO_ERASE        11
#define DO_TOKREPLACE   12
#define DO_EMREPLACE    13
#define DO_COST         14
#define DO_RETURN       15
#define DO_COERC        16
#define DO_PRETURN	17
#define DO_RREMOVE	18

typedef struct instance {
	int in_which;
#               define IN_COPY          1
#               define IN_RIDENT        2
#               define IN_ALLOC         3
#               define IN_DESCR         4
#		define IN_REGVAR	5
	int in_info[TOKENSIZE+1];
} inst_t,*inst_p;

typedef struct {
	int     c_size;                 /* index in enode-table */
	int     c_time;                 /* dito */
} cost_t,*cost_p;

typedef struct {
	int m_set1;             /* number of tokenexpr in move: from */
	int m_expr1;            /* optional expression */
	int m_set2;             /* number of tokenexpr in move: to */
	int m_expr2;            /* optional expression */
	int m_cindex;           /* code index to really do it */
	cost_t m_cost;          /* associated cost */
} move_t, *move_p;

typedef struct {
	int set_size;
	short set_val[SETSIZE];
} set_t,*set_p;

struct exprnode {
	short ex_operator;
	short ex_lnode;
	short ex_rnode;
};
typedef struct exprnode node_t;
typedef struct exprnode *node_p;

typedef struct {        /* to stack coercions */
	int c1_texpno;          /* token expression number */
	int c1_expr;		/* boolean expression */
	int c1_prop;		/* property of register needed */
	int c1_codep;           /* code index */
	cost_t c1_cost;		/* cost involved */
} c1_t,*c1_p;

#ifdef MAXSPLIT
typedef struct {        /* splitting coercions */
	int c2_texpno;          /* token expression number */
	int c2_nsplit;          /* split factor */
	int c2_repl[MAXSPLIT];  /* replacement instances */
	int c2_codep;           /* code index */
} c2_t,*c2_p;
#endif /* MAXSPLIT */

typedef struct {        /* one to one coercions */
	int c3_texpno;          /* token expression number */
	int c3_prop;            /* property of register needed */
	int c3_repl;            /* replacement instance */
	int c3_codep;           /* code index */
} c3_t,*c3_p;

/*
 * contents of .ex_operator
 */

#define EX_TOKFIELD     0
#define EX_ARG          1
#define EX_CON          2
#define EX_ALLREG       3
#define EX_SAMESIGN     4
#define EX_SFIT         5
#define EX_UFIT         6
#define EX_ROM          7
#define EX_NCPEQ        8
#define EX_SCPEQ        9
#define EX_RCPEQ        10
#define EX_NCPNE        11
#define EX_SCPNE        12
#define EX_RCPNE        13
#define EX_NCPGT        14
#define EX_NCPGE        15
#define EX_NCPLT        16
#define EX_NCPLE        17
#define EX_OR2          18
#define EX_AND2         19
#define EX_PLUS         20
#define EX_CAT          21
#define EX_MINUS        22
#define EX_TIMES        23
#define EX_DIVIDE       24
#define EX_MOD          25
#define EX_LSHIFT       26
#define EX_RSHIFT       27
#define EX_NOT          28
#define EX_COMP         29
#define EX_COST         30
#define EX_STRING       31
#define EX_DEFINED      32
#define EX_SUBREG       33
#define EX_TOSTRING     34
#define EX_UMINUS       35
#define EX_REG          36
#define EX_LOWW		37
#define EX_HIGHW	38
#define EX_INREG	39
#define EX_REGVAR	40



#define getint(a,b) \
	if ((a=((*(b)++)&BMASK)) >= 128) {\
		a = ((a-128)<<BSHIFT) | (*(b)++&BMASK); \
	}