goon

#ifndef GOON_H

#define GOON_H

#include <stddef.h>

#include <stdint.h>

#include <stdbool.h>

#define GOON_VERSION "0.1.0"

typedef enum {

    GOON_NIL,

    GOON_BOOL,

    GOON_INT,

    GOON_STRING,

    GOON_LIST,

    GOON_RECORD,

    GOON_BUILTIN,

    GOON_LAMBDA,

} Goon_Type;

typedef struct Goon_Value Goon_Value;

typedef struct Goon_Ctx Goon_Ctx;

typedef struct Goon_Record_Field Goon_Record_Field;

typedef struct Goon_Binding Goon_Binding;

typedef Goon_Value *(*Goon_Builtin_Fn)(Goon_Ctx *ctx, Goon_Value **args, size_t argc);

struct Goon_Record_Field {

    char *key;

    Goon_Value *value;

    Goon_Record_Field *next;

};

struct Goon_Value {

    Goon_Type type;

    struct Goon_Value *next_alloc;

    union {

        bool boolean;

        int64_t integer;

        char *string;

        struct {

            Goon_Value **items;

            size_t len;

            size_t cap;

        } list;

        struct {

            Goon_Record_Field *fields;

        } record;

        Goon_Builtin_Fn builtin;

        struct {

            char **params;

            size_t param_count;

            char *body;

            Goon_Binding *env;

        } lambda;

    } data;

};

typedef struct Goon_Binding {

    char *name;

    Goon_Value *value;

    struct Goon_Binding *next;

} Goon_Binding;

typedef struct {

    char *message;

    char *file;

    size_t line;

    size_t col;

    char *source_line;

} Goon_Error;

struct Goon_Ctx {

    Goon_Binding *env;

    Goon_Value *values;

    Goon_Record_Field *fields;

    Goon_Error error;

    char *base_path;

    void *userdata;

};

Goon_Ctx *goon_create(void);

void goon_destroy(Goon_Ctx *ctx);

void goon_set_userdata(Goon_Ctx *ctx, void *userdata);

void *goon_get_userdata(Goon_Ctx *ctx);

void goon_register(Goon_Ctx *ctx, const char *name, Goon_Builtin_Fn fn);

bool goon_load_file(Goon_Ctx *ctx, const char *path);

bool goon_load_string(Goon_Ctx *ctx, const char *source);

const char *goon_get_error(Goon_Ctx *ctx);

const Goon_Error *goon_get_error_info(Goon_Ctx *ctx);

void goon_error_print(const Goon_Error *err);

Goon_Value *goon_nil(Goon_Ctx *ctx);

Goon_Value *goon_bool(Goon_Ctx *ctx, bool val);

Goon_Value *goon_int(Goon_Ctx *ctx, int64_t val);

Goon_Value *goon_string(Goon_Ctx *ctx, const char *val);

Goon_Value *goon_list(Goon_Ctx *ctx);

Goon_Value *goon_record(Goon_Ctx *ctx);

bool goon_is_nil(Goon_Value *val);

bool goon_is_bool(Goon_Value *val);

bool goon_is_int(Goon_Value *val);

bool goon_is_string(Goon_Value *val);

bool goon_is_list(Goon_Value *val);

bool goon_is_record(Goon_Value *val);

bool goon_to_bool(Goon_Value *val);

int64_t goon_to_int(Goon_Value *val);

const char *goon_to_string(Goon_Value *val);

void goon_list_push(Goon_Ctx *ctx, Goon_Value *list, Goon_Value *item);

size_t goon_list_len(Goon_Value *list);

Goon_Value *goon_list_get(Goon_Value *list, size_t index);

void goon_record_set(Goon_Ctx *ctx, Goon_Value *record, const char *key, Goon_Value *value);

Goon_Value *goon_record_get(Goon_Value *record, const char *key);

Goon_Record_Field *goon_record_fields(Goon_Value *record);

Goon_Value *goon_eval_result(Goon_Ctx *ctx);

char *goon_to_json(Goon_Value *val);

char *goon_to_json_pretty(Goon_Value *val, int indent);

#endif