BEGINEXTERN
typedef enum {Fseq,
Fmatrix,Frange,
Fassign,
Fmatcoeff,
Fmatrixelts,Fmatrixlines,
Fmat,Fvec,Fnoarg,Fnorange,
Flistarg,
Frefarg, Fvararg,
Fconst,Fsmall,
Ftag,
Fentry,Fcall,Ffunction,Flambda
} Ffunc;
#define Flastfunc (Fdeffunc)
#define FneedENTRY (Fconst)
typedef struct node_s
{
Ffunc f;
long x;
long y;
const char *str;
size_t len;
long flags;
} node;
typedef enum {CSTstr, CSTquote, CSTint, CSTreal, CSTmember, CSTentry} CSTtype;
typedef enum {OPor, OPand, OPid, OPeq, OPne, OPge, OPg, OPle, OPl, OPs, OPp, OPsl, OPsr, OPmod, OPdr, OPeuc, OPd, OPm, OPpow, OPcat, OPss, OPpp, OPse ,OPpe ,OPsle ,OPsre ,OPmode ,OPdre ,OPeuce ,OPde ,OPme, OPpl, OPn, OPnb, OPfact, OPderiv, OPtrans, OPrange, OPcompr, OPcomprc, OPhist, OPhisttime, OPlength, OPnboperator} OPerator;
extern THREAD node *pari_tree;
ENDEXTERN