interim/sledge/minilisp.h

#ifndef MINILISP_H
#define MINILISP_H

#define jit_word_t unsigned long // FIXME: works only on linux

#include "strmap.h"

#define KNRM  "\x1B[0m"
#define KRED  "\x1B[31m"
#define KGRN  "\x1B[32m"
#define KYEL  "\x1B[33m"
#define KBLU  "\x1B[34m"
#define KMAG  "\x1B[35m"
#define KCYN  "\x1B[36m"
#define KWHT  "\x1B[37m"

#define TAG_FREED 0
#define TAG_INT  1
#define TAG_CONS 2
#define TAG_SYM  4
#define TAG_LAMBDA  8
#define TAG_BUILTIN 16
#define TAG_BIGNUM 32
#define TAG_STR 64
#define TAG_BYTES 128
#define TAG_VEC 256
#define TAG_ERROR 512
#define TAG_LET 1024
#define TAG_ANY 2048
#define TAG_VOID 4096
#define TAG_STREAM 8192
#define TAG_FS 16384
#define TAG_MARK 65536

#define tag_t jit_word_t

#define MAX_EVAL_DEPTH 10000
#define SYM_INIT_BUFFER_SIZE 32
#define BIGNUM_INIT_BUFFER_SIZE 32

#define ERR_SYNTAX 0
#define ERR_MAX_EVAL_DEPTH 1
#define ERR_UNKNOWN_OP 2
#define ERR_APPLY_NIL 3
#define ERR_INVALID_PARAM_TYPE 4
#define ERR_OUT_OF_BOUNDS 5
#define ERR_OUT_OF_MEMORY 666

#define ERR_NOT_FOUND 404
#define ERR_FORBIDDEN 403

#define max(a,b) (a > b ? a : b)
#define min(a,b) (a < b ? a : b)

typedef struct Cell {
  union ar {
    jit_word_t value;
    void* addr;
  } ar;
  union dr {
    jit_word_t size;
    void* next;
  } dr;
  jit_word_t tag;
} Cell;

int is_nil(Cell* c);

typedef struct env_entry {
  Cell* cell;
  char name[64];
} env_entry;

#define car(x) (x?(Cell*)((Cell*)x)->ar.addr:NULL)
#define cdr(x) (x?(Cell*)((Cell*)x)->dr.next:NULL)

#endif