Initial commit

src/cstate.c

@@ -0,0 +1,74 @@
+#include "cstate.h"
+#include "cchunk.h"
+#include "cobj.h"
+#include "cvm.h"
+
+#include <string.h>
+
+CState *cosmoV_newState() {
+    // we use C's malloc because we don't want to trigger a GC with an invalid state
+    CState *state = malloc(sizeof(CState));
+
+    if (state == NULL) {
+        CERROR("failed to allocate memory!");
+        exit(1);
+    }
+
+    state->panic = false;
+    state->freezeGC = false;
+
+    // GC
+    state->objects = NULL;
+    state->grayCount = 0;
+    state->grayCapacity = 2;
+    state->grayStack = NULL;
+    state->allocatedBytes = 0;
+    state->nextGC = 1024 * 8; // threshhold starts at 8kb
+
+    // init stack
+    state->top = state->stack;
+    state->frameCount = 0;
+    state->openUpvalues = NULL;
+
+    cosmoT_initTable(state, &state->strings, 8); // init string table
+    cosmoT_initTable(state, &state->globals, 8); // init global table
+    return state;
+}
+
+void cosmoV_freeState(CState *state) {
+    // frees all the objects
+    CObj *objs = state->objects;
+    while (objs != NULL) {
+        CObj *next = objs->next;
+        cosmoO_freeObject(state, objs);
+        objs = next;
+    }
+
+    // free our string & global table
+    cosmoT_clearTable(state, &state->strings);
+    cosmoT_clearTable(state, &state->globals);
+
+    // free our gray stack & finally free the state structure
+    free(state->grayStack);
+    free(state);
+}
+
+void cosmoV_register(CState *state, const char *identifier, CValue val) {
+    // we push the values so the garbage collector can find them
+    cosmoV_pushValue(state, cosmoV_newObj(cosmoO_copyString(state, identifier, strlen(identifier))));
+    cosmoV_pushValue(state, val);
+
+    CValue *oldVal = cosmoT_insert(state, &state->globals, *cosmoV_getTop(state, 1));
+    *oldVal = val;
+    
+    cosmoV_setTop(state, 2); // pops the 2 values off the stack
+}
+
+void cosmoV_printStack(CState *state) {
+    printf("==== [[ stack dump ]] ====\n");
+    for (CValue *top = state->top - 1; top >= state->stack; top--) {
+        printf("%d: ", (int)(top - state->stack));
+        printValue(*top);
+        printf("\n");
+    }
+}