Cosmo/src/cstate.h

#ifndef CSTATE_H
#define CSTATE_H

#include "cosmo.h"
#include "cvalue.h"
#include "cobj.h"
#include "ctable.h"

typedef struct CCompilerState CCompilerState;

typedef struct CCallFrame {
    CObjClosure *closure;
    INSTRUCTION *pc;
    CValue* base;
} CCallFrame;

typedef struct CState {
    bool panic;
    int freezeGC; // when > 0, GC events will be ignored (for internal use)
    CObj *objects; // tracks all of our allocated objects
    CObj **grayStack; // keeps track of which objects *haven't yet* been traversed in our GC, but *have been* found
    int grayCount;
    int grayCapacity;
    size_t allocatedBytes;
    size_t nextGC; // when allocatedBytes reaches this threshhold, trigger a GC event

    CObjUpval *openUpvalues; // tracks all of our still open (meaning still on the stack) upvalues
    CTable strings;
    CTable globals;

    CValue *top; // top of the stack
    CValue stack[STACK_MAX]; // stack
    CCallFrame callFrame[FRAME_MAX]; // call frames
    int frameCount;
} CState;

COSMO_API CState *cosmoV_newState();
COSMO_API void cosmoV_register(CState *state, const char *identifier, CValue val);
COSMO_API void cosmoV_freeState(CState *state);
COSMO_API void cosmoV_printStack(CState *state);

// pushes value to the stack
static inline void cosmoV_pushValue(CState *state, CValue val) {
    *(state->top++) = val;
}

// sets stack->top to stack->top - indx
static inline StkPtr cosmoV_setTop(CState *state, int indx) {
    state->top -= indx;
    return state->top;
}

// returns stack->top - indx - 1
static inline StkPtr cosmoV_getTop(CState *state, int indx) {
    return &state->top[-(indx + 1)];
}

// pops 1 value off the stack
static inline StkPtr cosmoV_pop(CState *state) {
    return cosmoV_setTop(state, 1);
}

#endif