/* $Id$ */ /* expression operators. Do not change values, as they are used as indices into arrays. */ #define E_NOT 1 #define E_DEREF 2 #define E_AND 3 #define E_OR 4 #define E_DIV 5 /* equal to truncated quotient */ #define E_MOD 6 /* x = (x E_DIV y) * y + x E_MOD y, 0 <= (x E_MOD y) < y */ #define E_ZDIV 7 /* quotient rounded to 0 */ #define E_ZMOD 8 /* remainder of E_ZDIV */ #define E_IN 9 /* set membership */ #define E_ARRAY 10 #define E_PLUS 11 #define E_MIN 12 #define E_MUL 13 #define E_EQUAL 14 #define E_NOTEQUAL 15 #define E_LTEQUAL 16 #define E_GTEQUAL 17 #define E_LT 18 #define E_GT 19 #define E_SELECT 20 #define E_BAND 21 /* bitwise and */ #define E_BOR 22 /* bitwise or */ #define E_BXOR 23 #define E_BNOT 24 #define E_DERSELECT 25 /* -> in C */ #define E_LSFT 26 #define E_RSFT 27 #define E_ADDR 28 /* long get_int(char *buf, long size, int class) Returns the value of size 'size', residing in 'buf', of 'class' T_INTEGER, T_UNSIGNED, or T_ENUM. */ extern long get_int(); /* int put_int(char *buf, long size, long value) Stores the value 'value' of size 'size' in 'buf'. */ extern int put_int(); /* double get_real(char *buf, long size) Returns the real value of size 'size', residing in 'buf'. T_INTEGER, T_UNSIGNED, or T_ENUM. */ extern double get_real(); /* int put_real(char *buf, long size, double value) Stores the value 'value' of size 'size' in 'buf'. */ extern int put_real(); /* int eval_cond(p_tree p) This routine evaluates the conditional expression indicated by p and returns 1 if it evaluates to TRUE, or 0 if it could not be evaluated for some reason or if it evalutes to FALSE. If the expression cannot be evaluated, an error message is given. */ extern int eval_cond(); /* int eval_desig(p_tree p, t_addr *pbuf, long **psize, p_type *ptp) This routine evaluates the expression indicated by p, which should result in a designator. The result of the expression is an address which is to be found in *pbuf. *psize will contain the size of the designated object, and *ptp its type. If the expression cannot be evaluated or does not result in a designator, 0 is returned and an error message is given. Otherwise, 1 is returned. */ extern int eval_desig(); /* int eval_expr(p_tree p, char **pbuf, long **psize, p_type *ptp) This routine evaluates the expression indicated by p. The result of the expression is left in *pbuf. *psize will contain the size of the value, and *ptp its type. If the expression cannot be evaluated, 0 is returned and an error message is given. Otherwise, 1 is returned. */ extern int eval_expr(); /* int convert(char **pbuf, long *psize, p_type *ptp, p_type tp, long size) This routine tries to convert the value in pbuf of size psize and type ptp to type tp with size size. It returns 0 if this fails, while producing an error message. Otherwise, it returns 1 and the resulting value, type and size are left in pbuf, ptp, and psize, respectively. */ extern int convert();