interim/sledge/minilisp.h

#ifndef MINILISP_H
#define MINILISP_H

#if __AMIGA
#define uint8_t unsigned char
#define uint16_t unsigned short
#define uint32_t unsigned long
#define uint64_t unsigned long long
#else
#include <stdint.h>
#endif

#if CPU_X64
#define jit_word_t uint64_t
#else
#define jit_word_t uint32_t
#endif

#include "strmap.h"

#ifndef BLAND
#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"
#else
#define KNRM  ""
#define KRED  ""
#define KGRN  ""
#define KYEL  ""
#define KBLU  ""
#define KMAG  ""
#define KCYN  ""
#define KWHT  ""
#endif

#define TAG_FREED 0
#define TAG_INT  1
#define TAG_CONS 2
#define TAG_SYM  3
#define TAG_LAMBDA  4
#define TAG_BUILTIN 5
#define TAG_BIGNUM 6
#define TAG_STR 7
#define TAG_BYTES 8
#define TAG_VEC 9
#define TAG_STRUCT_DEF 10
#define TAG_STRUCT 11
#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