anicca.h

#ifndef _ANICCA_H
#define _ANICCA_H

#define DO(n, body) do {       \
        I i=0, _t=n;           \
        for (i=0; i<_t; i++) { \
            body;              \
        }                      \
} while(0)

#define R return

typedef int           I;
typedef unsigned int  UI;
typedef char          B;
typedef char          C;
typedef unsigned char UC;
typedef double        D;
typedef void          VO;
typedef void*         VP;

#define ZR(z) ((z).re)
#define ZI(z) ((z).img)

typedef struct _complex {
    D re;
    D img;
} Z;

#define AT(a) ((a)->type)
#define AC(a) ((a)->count)
#define AR(a) ((a)->rank)
#define AN(a) ((a)->num)
#define AS(a) ((a)->shape)
#define AV(a) ((a)->value)

#define BAV(a) ((B *)AV(a))
#define CAV(a) ((C *)AV(a))
#define IAV(a) ((I *)AV(a))
#define DAV(a) ((D *)AV(a))
#define ZAV(a) ((Z *)AV(a))

typedef struct _array {
    I type;
    I count;
    I rank;
    I num;
    I *shape;
    VP value;
} *A;

#define AAV(a) ((A *)AV(a))

typedef VO(*SF)();
typedef A(*AF)();
typedef A(*AF1)(A);
typedef A(*AF2)(A, A);
typedef A(*AF3)(A, A, A);

#define ANY  -1L
#define BOOL (1L<<0)
#define CHAR (1L<<1)
#define INT  (1L<<2)
#define FLT  (1L<<3)
#define CMPX (1L<<4)
#define BOX  (1L<<5)
#define VERB (1L<<6)
#define ADV  (1L<<7)
#define CONJ (1L<<8)
#define NAME (1L<<9)
#define LPAR (1L<<10)
#define RPAR (1L<<11)
#define ASGN (1L<<12)
#define MARK (1L<<13)

#define INTEGER (BOOL | INT)
#define NUMERIC (INTEGER | FLT | CMPX)
#define NOUN    (NUMERIC | CHAR | BOX)
#define FUNC    (VERB | CONJ | ADV)

#define MONAD(name) A name(A y)
#define DYAD(name)  A name(A x, A y)

#define DMONAD(name) A name(A y, A self)
#define DDYAD(name)  A name(A x, A y, A self)

A zero; A one;
A ten;
A zone;
A mark;
A lpar; A rpar;

#endif