Working on the public API

main.c

@@ -0,0 +1,70 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdbool.h>
+
+#include "WL.h"
+
+int main(void)
+{
+    FILE *f = fopen("main.wl", "rb");
+    if (f == NULL)
+        return -1;
+
+    fseek(f, 0, SEEK_END);
+    long file_size = ftell(f);
+    fseek(f, 0, SEEK_SET);
+
+    char *file_data = malloc(file_size);
+
+    fread(file_data, 1, file_size, f);
+    fclose(f);
+
+    char err[1<<9];
+    char *mem = malloc(1<<20);
+    WL_Arena a = { mem, 1<<20, 0 };
+
+    WL_Program program;
+    int ret = WL_compile(file_data, file_size, a, &program, err, (int) sizeof(err));
+    if (ret < 0) {
+        printf("%s\n", err);
+        return -1;
+    }
+
+    WL_State *state = WL_State_init(&a, program, err, (int) sizeof(err));
+
+    for (bool done = false; !done; ) {
+
+        WL_Result result = WL_eval(state);
+        switch (result.type) {
+
+            case WL_DONE:
+            done = true;
+            break;
+
+            case WL_ERROR:
+            done = true;
+            break;
+
+            case WL_VAR:
+            if (0) {}
+            else if (WL_streq(result.str, "varA", -1)) WL_pushint(state, 1);
+            else if (WL_streq(result.str, "varB", -1)) WL_pushint(state, 1);
+            else if (WL_streq(result.str, "varC", -1)) WL_pushint(state, 1);
+            break;
+
+            case WL_CALL:
+            // TODO
+            printf("(called [%.*s])\n", result.str.len, result.str.ptr);
+            break;
+
+            case WL_OUTPUT:
+            fwrite(result.str.ptr, 1, result.str.len, stdout);
+            break;
+        }
+    }
+
+    WL_State_free(state);
+    free(file_data);
+    free(mem);
+    return 0;
+}