reorganize directory structure

1 files changed, 0 insertions, 1126 deletions

diff --git a/builtins.c b/builtins.c
deleted file mode 100644
index b8d3322..0000000
--- a/builtins.c
+++ /dev/null
@@ -1,1126 +0,0 @@
-#include "builtins.h"
-#include "parser.h"
-#include <ctype.h>
-#include <dlfcn.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#define MAX 1000
-#define JUSTDO(a)                                                              \
-  if (!(a)) {                                                                  \
-    perror(#a);                                                                \
-    exit(1);                                                                   \
-  }
-
-extern array_t *STACK;
-extern array_t *EVAL_STACK;
-extern ht_t *WORD_TABLE;
-extern char *INBUF;
-extern parser_t *PARSER;
-
-extern ht_t *FLIT;
-extern ht_t *OBJ_TABLE;
-
-/* TODO: rotr, rotl, dip, map, filter, errstr, join (for strings), switch
- * (for quotes), split (split array, string, word into two), del (deleting
- * entries from quotes, strings, words) */
-
-char *get_line(FILE *f) {
-  int len = MAX;
-  char buf[MAX], *e = NULL, *ret;
-  JUSTDO(ret = calloc(MAX, 1));
-  while (fgets(buf, MAX, f)) {
-    if (len - strlen(ret) < MAX)
-      JUSTDO(ret = realloc(ret, len *= 2));
-    strcat(ret, buf);
-    if ((e = strrchr(ret, '\n')))
-      break;
-  }
-  if (e)
-    *e = '\0';
-  return ret;
-}
-
-void print_value(value_t *v) {
-  custom_t *c;
-  switch (v->type) {
-  case VINT:
-    printf("%.0Lf\n", v->int_float);
-    break;
-  case VFLOAT:
-    printf("%Lf\n", v->int_float);
-    break;
-  case VSTR:
-    printf("%s", v->str_word->value);
-    break;
-  case VWORD:
-    printf("W: %s\n", v->str_word->value);
-    break;
-  case VQUOTE:
-    printf("Q:\n");
-    for (int i = 0; i < v->quote->size; i++) {
-      print_value(v->quote->items[i]);
-    }
-    break;
-  case VERR:
-    printf("STACK ERR\n");
-    break;
-  case VCUSTOM:
-    c = ht_get(OBJ_TABLE, v->str_word);
-    c->printfunc(v->custom);
-    break;
-  }
-}
-
-void eval_error() {
-  value_t *v = init_value(VERR);
-  array_append(STACK, v);
-}
-
-void stemadd(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  if (v1->type == VINT && v2->type == VINT) {
-    retval->type = VINT;
-  }
-  if (v1->type != VINT && v1->type != VFLOAT ||
-      v2->type != VINT && v2->type != VFLOAT) {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  retval->int_float = v1->int_float + v2->int_float;
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-
-void stemsub(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  if (v1->type == VINT && v2->type == VINT) {
-    retval->type = VINT;
-  }
-  retval->int_float = v1->int_float - v2->int_float;
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-
-void stemmul(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  if (v1->type == VINT && v2->type == VINT) {
-    retval->type = VINT;
-  }
-  retval->int_float = v1->int_float * v2->int_float;
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-void stemdiv(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  if (v1->type == VINT && v2->type == VINT) {
-    retval->type = VINT;
-  }
-  retval->int_float = v1->int_float / v2->int_float;
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-
-void stemfunc(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  if (v1->type != VWORD) {
-    eval_error();
-    return;
-  }
-  ht_add(WORD_TABLE, string_copy(v1->str_word), v2);
-  value_free(v1);
-}
-void nop(value_t *v) {}
-
-void stempow(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  if (v1->type == VINT && v2->type == VINT) {
-    retval->type = VINT;
-  }
-  retval->int_float = powl(v1->int_float, v2->int_float);
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-
-void stemsin(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  retval->int_float = sinhl(v1->int_float);
-  array_append(STACK, retval);
-  value_free(v1);
-}
-
-void stemcos(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  retval->int_float = coshl(v1->int_float);
-  array_append(STACK, retval);
-  value_free(v1);
-}
-
-void stemexp(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  retval->int_float = expl(v1->int_float);
-  array_append(STACK, retval);
-  value_free(v1);
-}
-
-void stemeval(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v1);
-    eval_error();
-    return;
-  }
-  if (v1->type == VQUOTE) {
-    array_append(EVAL_STACK, v1);
-    for (int i = 0; i < v1->quote->size; i++) {
-      eval(value_copy(v1->quote->items[i]));
-    }
-    value_t *vf = array_pop(EVAL_STACK);
-    if (vf) {
-      value_free(vf);
-    }
-  } else {
-    eval(v1);
-  }
-}
-
-void stemln(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  retval->int_float = logl(v1->int_float);
-  array_append(STACK, retval);
-  value_free(v1);
-}
-void stemceil(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  retval->int_float = ceil(v1->int_float);
-  array_append(STACK, retval);
-  value_free(v1);
-}
-void stemfloor(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VFLOAT);
-  retval->int_float = floor(v1->int_float);
-  array_append(STACK, retval);
-  value_free(v1);
-}
-
-void strquote(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  if (v1->type != VSTR) {
-    array_append(STACK, v1);
-    eval_error();
-    return;
-  }
-  value_t *retval = init_value(VQUOTE);
-  retval->quote = init_array(10);
-  char *s = malloc(strlen(v1->str_word->value) + 1);
-  strcpy(s, v1->str_word->value);
-  parser_t *p = init_parser(s);
-  value_t *cur;
-  while (1) {
-    cur = parser_get_next(p);
-    if (cur == NULL)
-      break;
-    array_append(retval->quote, cur);
-  }
-  array_append(STACK, retval);
-  value_free(v1);
-  free(p->source);
-  free(p);
-}
-
-void curry(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  if (v2->type != VQUOTE) {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  array_append(v2->quote, v1);
-  array_append(STACK, v2);
-}
-void stemfread(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  if (v1->type != VSTR) {
-    array_append(STACK, v1);
-    eval_error();
-    return;
-  }
-  char *val = NULL;
-  size_t len;
-  FILE *fp = fopen(v1->str_word->value, "rb");
-  if (!fp) {
-    array_append(STACK, v1);
-    eval_error();
-    return;
-  }
-  ssize_t bytes_read = getdelim(&val, &len, '\0', fp);
-  fclose(fp);
-  value_t *retval = init_value(VSTR);
-  retval->str_word = init_string(val);
-  array_append(STACK, retval);
-  value_free(v1);
-  free(val);
-}
-void stemread(value_t *v) {
-  value_t *retval = init_value(VSTR);
-  char *a = get_line(stdin);
-  retval->str_word = init_string(a);
-  array_append(STACK, retval);
-  free(a);
-}
-
-void stemexit(value_t *v) {
-  ht_free(WORD_TABLE, value_free);
-  ht_free(FLIT, func_free);
-  array_free(STACK);
-  free(INBUF);
-  free(PARSER);
-  array_free(EVAL_STACK);
-  ht_free(OBJ_TABLE, func_free);
-  exit(0);
-}
-
-void quote(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VQUOTE);
-  retval->quote = init_array(10);
-  array_append(retval->quote, v1);
-  array_append(STACK, retval);
-}
-void stemtype(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  retval->int_float = v1->type;
-  array_append(STACK, v1);
-  array_append(STACK, retval);
-}
-
-void dsc(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-
-  value_free(v1);
-}
-void swap(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  array_append(STACK, v2);
-  array_append(STACK, v1);
-}
-
-void isdef(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  if (v1->type != VWORD) {
-    retval->int_float = 0;
-  } else {
-    retval->int_float = ht_exists(WORD_TABLE, v1->str_word);
-  }
-  array_append(STACK, v1);
-  array_append(STACK, retval);
-}
-
-void stemdup(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-
-  value_t *retval = value_copy(v1);
-  array_append(STACK, v1);
-  array_append(STACK, retval);
-}
-
-void questionmark(value_t *v) {
-  for (int i = 0; i < STACK->size; i++) {
-    print_value(STACK->items[i]);
-  }
-}
-
-void period(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  print_value(v1);
-  value_free(v1);
-}
-void stemlen(value_t *v) {
-
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  if (v1->type == VINT || v1->type == VFLOAT) {
-    retval->int_float = 1;
-  } else if (v1->type == VSTR || v1->type == VWORD) {
-    retval->int_float = strlen(v1->str_word->value);
-  } else if (v1->type == VQUOTE) {
-    retval->int_float = v1->quote->size;
-  }
-  array_append(STACK, v1);
-  array_append(STACK, retval);
-}
-
-void dip(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  if (v2->type == VQUOTE) {
-    array_append(EVAL_STACK, v1);
-    array_append(EVAL_STACK, v2);
-    for (int i = 0; i < v2->quote->size; i++) {
-      eval(value_copy(v2->quote->items[i]));
-    }
-    value_free(array_pop(EVAL_STACK));
-    value_free(array_pop(EVAL_STACK));
-  } else {
-    eval(v1);
-  }
-  array_append(STACK, v1);
-}
-
-void keep(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  array_append(STACK, value_copy(v1));
-  if (v2->type == VQUOTE) {
-    array_append(EVAL_STACK, v2);
-    for (int i = 0; i < v2->quote->size; i++) {
-      eval(value_copy(v2->quote->items[i]));
-    }
-    value_free(array_pop(EVAL_STACK));
-  } else {
-    eval(v1);
-  }
-  array_append(STACK, v1);
-}
-
-void del(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  if (v2->type != VINT) {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  switch (v1->type) {
-  case VQUOTE:
-    break;
-  case VSTR:
-    break;
-  case VWORD:
-    break;
-  default:
-    value_free(v1);
-    break;
-  }
-}
-
-void clear(value_t *v) {
-  for (int i = 0; i < STACK->size; i++) {
-    value_free(array_pop(STACK));
-  }
-}
-
-void stemif(value_t *v) {
-  value_t *v3 = array_pop(STACK);
-  if (v3 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    array_append(STACK, v3);
-    eval_error();
-    return;
-  }
-
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    array_append(STACK, v3);
-    eval_error();
-    return;
-  }
-
-  if (v1->type != VINT) {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    array_append(STACK, v3);
-    eval_error();
-    return;
-  }
-
-  if (v1->int_float) {
-    value_free(v3);
-    value_free(v1);
-    if (v2->type == VQUOTE) {
-
-      array_append(EVAL_STACK, v2);
-      for (int i = 0; i < v2->quote->size; i++) {
-        eval(value_copy(v2->quote->items[i]));
-      }
-      value_t *vf = array_pop(EVAL_STACK);
-      if (vf) {
-        value_free(vf);
-      }
-    } else {
-      eval(v2);
-    }
-  } else {
-    value_free(v2);
-    value_free(v1);
-    if (v3->type == VQUOTE) {
-      array_append(EVAL_STACK, v3);
-      for (int i = 0; i < v3->quote->size; i++) {
-        eval(value_copy(v3->quote->items[i]));
-      }
-      value_t *vf = array_pop(EVAL_STACK);
-      if (vf) {
-        value_free(vf);
-      }
-    } else {
-      eval(v3);
-    }
-  }
-}
-void gtequals(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  if (v1->type == VSTR && v2->type == VSTR ||
-      v1->type == VWORD && v2->type == VWORD) {
-    retval->int_float = strcmp(v1->str_word->value, v2->str_word->value) <= 0;
-  } else if ((v1->type == VINT || v1->type == VFLOAT) &&
-             (v2->type == VINT || v2->type == VFLOAT)) {
-    retval->int_float = v1->int_float >= v2->int_float;
-  } else {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-void ltequals(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  if (v1->type == VSTR && v2->type == VSTR ||
-      v1->type == VWORD && v2->type == VWORD) {
-    retval->int_float = strcmp(v1->str_word->value, v2->str_word->value) <= 0;
-  } else if ((v1->type == VINT || v1->type == VFLOAT) &&
-             (v2->type == VINT || v2->type == VFLOAT)) {
-    retval->int_float = v1->int_float <= v2->int_float;
-  } else {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-void clib(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  void *handle = dlopen(v1->str_word->value, RTLD_LAZY);
-  if (!handle) {
-    array_append(STACK, v1);
-    eval_error();
-    return;
-  }
-  dlerror();
-  void (*af)(void);
-  void (*aobjs)(void);
-  char *error;
-  *(void **)(&af) = dlsym(handle, "add_funcs");
-  *(void **)(&aobjs) = dlsym(handle, "add_objs");
-  if ((error = dlerror()) != NULL) {
-    value_free(v1);
-    fprintf(stderr, "%s\n", error);
-    eval_error();
-    return;
-  } else {
-    (*af)();
-    (*aobjs)();
-    value_free(v1);
-  }
-}
-
-void gthan(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  if (v1->type == VSTR && v2->type == VSTR ||
-      v1->type == VWORD && v2->type == VWORD) {
-    retval->int_float = strcmp(v1->str_word->value, v2->str_word->value) > 0;
-  } else if ((v1->type == VINT || v1->type == VFLOAT) &&
-             (v2->type == VINT || v2->type == VFLOAT)) {
-    retval->int_float = v1->int_float > v2->int_float;
-  } else {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-
-void lthan(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  if (v1->type == VSTR && v2->type == VSTR ||
-      v1->type == VWORD && v2->type == VWORD) {
-    retval->int_float = strcmp(v1->str_word->value, v2->str_word->value) < 0;
-  } else if ((v1->type == VINT || v1->type == VFLOAT) &&
-             (v2->type == VINT || v2->type == VFLOAT)) {
-    retval->int_float = v1->int_float < v2->int_float;
-  } else {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-
-void equals(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  if (v1->type == VSTR && v2->type == VSTR ||
-      v1->type == VWORD && v2->type == VWORD) {
-    retval->int_float = strcmp(v1->str_word->value, v2->str_word->value) == 0;
-  } else if ((v1->type == VINT || v1->type == VFLOAT) &&
-             (v2->type == VINT || v2->type == VFLOAT)) {
-    retval->int_float = v1->int_float == v2->int_float;
-  } else {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-void nequals(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  if (v1->type == VSTR && v2->type == VSTR ||
-      v1->type == VWORD && v2->type == VWORD) {
-    retval->int_float = strcmp(v1->str_word->value, v2->str_word->value) != 0;
-  } else if ((v1->type == VINT || v1->type == VFLOAT) &&
-             (v2->type == VINT || v2->type == VFLOAT)) {
-    retval->int_float = v1->int_float != v2->int_float;
-  } else {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  array_append(STACK, retval);
-  value_free(v1);
-  value_free(v2);
-}
-
-void wtostr(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-
-  if (v1->type != VWORD) {
-    array_append(STACK, v1);
-    eval_error();
-    return;
-  }
-  v1->type = VSTR;
-  array_append(STACK, v1);
-}
-
-void compose(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  value_t *retval;
-  if (v2->type == VSTR && v1->type == VSTR) {
-    retval = init_value(VSTR);
-    string_concat(v1->str_word, v2->str_word);
-    retval->str_word = string_copy(v1->str_word);
-    value_free(v1);
-    value_free(v2);
-  } else if (v2->type == VWORD && v1->type == VWORD) {
-    retval = init_value(VWORD);
-    string_concat(v1->str_word, v2->str_word);
-    retval->str_word = string_copy(v1->str_word);
-    value_free(v1);
-    value_free(v2);
-  } else if (v2->type == VQUOTE && v1->type == VQUOTE) {
-    retval = v1;
-    array_extend(v1->quote, v2->quote);
-    free(v2->quote);
-    free(v2);
-  } else {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  array_append(STACK, retval);
-}
-
-void isnum(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-
-  bool isnum = true;
-  for (int i = 0; i < v1->str_word->length; i++) {
-    if (isspace(v1->str_word->value[i])) {
-      continue;
-    } else if (!isdigit(v1->str_word->value[i])) {
-      isnum = false;
-      break;
-    }
-  }
-  retval->int_float = isnum;
-
-  array_append(STACK, v1);
-  array_append(STACK, retval);
-}
-
-void stoi(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-
-  value_t *retval = init_value(VINT);
-  retval->int_float = atoi(v1->str_word->value);
-  array_append(STACK, retval);
-  value_free(v1);
-}
-
-void ssize(value_t *v) {
-  value_t *retval = init_value(VINT);
-  retval->int_float = STACK->size;
-  array_append(STACK, retval);
-}
-void qstack(value_t *v) {
-  value_t *retval = init_value(VQUOTE);
-  retval->quote = array_copy(STACK);
-  array_append(STACK, retval);
-}
-
-void vat(value_t *v) {
-  value_t *v2 = array_pop(STACK);
-  if (v2 == NULL) {
-    eval_error();
-    return;
-  }
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-
-  if (v1->type != VINT) {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-  if (v2->type == VQUOTE) {
-    if (v2->quote->size <= v1->int_float) {
-      array_append(STACK, v1);
-      array_append(STACK, v2);
-      eval_error();
-      return;
-    }
-    array_append(STACK, v2);
-    array_append(STACK, value_copy(v2->quote->items[(int)v1->int_float]));
-    value_free(v1);
-  } else if (v2->type == VSTR) {
-    if (v2->str_word->length <= v1->int_float) {
-      array_append(STACK, v1);
-      array_append(STACK, v2);
-      eval_error();
-      return;
-    }
-    char *a = (char[]){v2->str_word->value[(int)v1->int_float], '\0'};
-    string_t *s = init_string(a);
-    value_t *retval = init_value(VINT);
-    retval->str_word = s;
-    array_append(STACK, v2);
-    array_append(STACK, retval);
-    value_free(v1);
-  } else {
-    array_append(STACK, v1);
-    array_append(STACK, v2);
-    eval_error();
-    return;
-  }
-}
-
-void stemfwrite(value_t *v) {
-  value_t *v1 = array_pop(STACK);
-  if (v1 == NULL) {
-    eval_error();
-    return;
-  }
-  if (v1->type != VSTR) {
-    array_append(STACK, v1);
-    eval_error();
-    return;
-  }
-  char *val;
-  size_t len;
-  FILE *fp = fopen(v1->str_word->value, "w+");
-  if (!fp) {
-    array_append(STACK, v1);
-    eval_error();
-    return;
-  }
-  fprintf(fp, "%s", v1->str_word->value);
-  value_free(v1);
-  fclose(fp);
-}
-
-void add_func(ht_t *h, void (*func)(value_t *), char *key) {
-  string_t *s = init_string(key);
-  ht_add(h, s, func);
-}
-
-void add_obj(ht_t *h, ht_t *h2, void (*printfunc)(void *),
-             void (*freefunc)(void *), void *(*copyfunc)(void *),
-             void (*createfunc)(void *), char *key) {
-
-  custom_t *c = init_custom(printfunc, freefunc, copyfunc);
-  ht_add(h, init_string(key), c);
-  ht_add(h2, init_string(key), createfunc);
-}
-
-void add_objs() {}
-
-void add_funcs() {
-  add_func(FLIT, period, ".");
-  add_func(FLIT, questionmark, "?");
-  add_func(FLIT, stemadd, "+");
-  add_func(FLIT, stemsub, "-");
-  add_func(FLIT, stemdiv, "/");
-  add_func(FLIT, stemmul, "*");
-  add_func(FLIT, stempow, "pow");
-  add_func(FLIT, stemsin, "sin");
-  add_func(FLIT, stemcos, "cos");
-  add_func(FLIT, stemexp, "exp");
-  add_func(FLIT, strquote, "strquote");
-  add_func(FLIT, stemeval, "eval");
-  add_func(FLIT, stemfunc, "func");
-  add_func(FLIT, nop, "nop");
-  add_func(FLIT, stemln, "ln");
-  add_func(FLIT, stemfloor, "floor");
-  add_func(FLIT, stemceil, "ceil");
-  add_func(FLIT, stemfread, "fread");
-  add_func(FLIT, stemread, "read");
-  add_func(FLIT, vat, "vat");
-  add_func(FLIT, qstack, "qstack");
-  add_func(FLIT, ssize, "ssize");
-  add_func(FLIT, stoi, "stoi");
-  add_func(FLIT, isnum, "isnum");
-  add_func(FLIT, compose, "compose");
-  add_func(FLIT, stemfwrite, "wtostr");
-  add_func(FLIT, lthan, "<");
-  add_func(FLIT, ltequals, "<=");
-  add_func(FLIT, gthan, ">");
-  add_func(FLIT, gtequals, ">=");
-  add_func(FLIT, nequals, "!=");
-  add_func(FLIT, equals, "=");
-  add_func(FLIT, stemif, "if");
-  add_func(FLIT, clear, "clear");
-  add_func(FLIT, keep, "keep");
-  add_func(FLIT, dip, "dip");
-  add_func(FLIT, stemlen, "len");
-  add_func(FLIT, quote, "quote");
-  add_func(FLIT, stemexit, "exit");
-  add_func(FLIT, stemtype, "type");
-  add_func(FLIT, stemdup, "dup");
-  add_func(FLIT, curry, "curry");
-  add_func(FLIT, swap, "swap");
-  add_func(FLIT, isdef, "isdef");
-  add_func(FLIT, dsc, "dsc");
-  add_func(FLIT, clib, "clib");
-}