picrin/src/state.c

#include <stdlib.h>

#include "picrin.h"
#include "picrin/gc.h"

static struct pic_env *
pic_new_empty_env()
{
  struct pic_env *env;

  env = (struct pic_env *)malloc(sizeof(struct pic_env));
  env->assoc = pic_nil_value();
  env->parent = NULL;

  return env;
}

pic_state *
pic_open()
{
  pic_state *pic;

  pic = (pic_state *)malloc(sizeof(pic_state));

  /* prepare VM stack */
  pic->stbase = pic->sp = (pic_value *)malloc(sizeof(pic_value) * 1024);
  pic->stend = pic->stbase + 1024;
  *pic->sp = pic_nil_value();	/* push dummy object */

  /* memory heap */
  pic->heap = (struct heap_page *)malloc(sizeof(struct heap_page));
  init_heap_page(pic->heap);

  /* GC arena */
  pic->arena_idx = 0;

  pic->global_env = pic_new_empty_env();
  pic->sDEFINE = pic_intern_cstr(pic, "define");
  pic->sCONS = pic_intern_cstr(pic, "cons");
  pic->sADD = pic_intern_cstr(pic, "add");

  return pic;
}

void
pic_close(pic_state *pic)
{
  free(pic);
}