#define INTERDATA 2 #define GCOS 3 #define PDP11 4 #define IBM 5 #define CMACH 6 #define VAX 7 #define DMR 2 #define SCJ 3 #define BINARY 2 #define ASCII 3 #define PREFIX 2 #define POSTFIX 3 #ifndef FAMILY FAMILY NOT DEFINED !!! Family = FAMILY #endif #ifndef HERE HERE NOT DEFINED !!!! Here = HERE #endif #ifndef OUTPUT OUTPUT NOT DEFINED!!!! Output = OUTPUT #endif #ifndef POLISH POLISH NOT DEFINED !!! Polish = POLISH #endif #define M(x) (1<tag==TCONST && ISINT(z->vtype)) #define ISCHAR(z) (z->vtype==TYCHAR) #define ISINT(z) ONEOF(z, MSKINT) #define ISCONST(z) (z->tag==TCONST) #define ISERROR(z) (z->tag==TERROR) #define ISPLUSOP(z) (z->tag==TEXPR && z->opcode==OPPLUS) #define ISSTAROP(z) (z->tag==TEXPR && z->opcode==OPSTAR) #define ISONE(z) (ISICON(z) && z->const.ci==1) #define INT(z) ONEOF(z, MSKINT|MSKCHAR) #define ICON(z) mkintcon( (ftnint)(z) ) #define CHCON(z) mkstrcon(strlen(z), z) /* round a up to a multiple of b */ #define roundup(a,b) ( b * ( (a+b-1)/b) )