gdjn  Artifact [dce8093e3b]

Artifact dce8093e3b46d8088e6929bad3c4771e2c9258c96ad789c809cb4095ff5cb0bc:

• File src/vm.h — part of check-in [91e02e35d5] at 2025-02-21 22:02:29 on branch trunk — add janet API bootstrapping infra (prim, core), begin building executor (vm.c), design class model, continue working on loading, add script instances, tidy up src organization, build janet to use godot malloc/free (user: lexi, size: 1824) [annotate] [blame] [check-ins using]

#pragma once
#include "gdjn.h"
#include "type.h"

Janet
gdjn_janetize_typed
(	GDExtensionTypePtr     const v,
	GDExtensionVariantType const t
);

static inline Janet
gdjn_janetize(gd_variant* const v) {
	return gdjn_janetize_typed(v, _t(variant).getType(v));
}

void
gdjn_dejanetize_typed
(	GDExtensionTypePtr v, /* out */
	GDExtensionVariantType const t,
	Janet val /* in */
);

// typedef struct gdjn_vm_class {
//
// } gdjn_vm_class;

JanetTable* gdjn_vm_api_build_compTime(void);
JanetTable* gdjn_vm_api_build_core(void);

JanetTable*
gdjn_vm_compile
(	pstr const  body,
	JanetTable* api,
	const char* ctx
);

pstr
gdjn_vm_image
(	JanetTable* env,
	JanetTable* binds
);

typedef struct gdjn_vm_bind {
	enum gdjn_vm_bind_kind {
		gdjn_vm_bind_flag_static = 1 << 5,
		gdjn_vm_bind_flag_doc    = 1 << 6,
		gdjn_vm_bind_flag_umask = ~(
			gdjn_vm_bind_flag_static |
			gdjn_vm_bind_flag_doc
		),

		gdjn_vm_bind_none = 0,
		gdjn_vm_bind_const,
		gdjn_vm_bind_prop,
		gdjn_vm_bind_method,
		gdjn_vm_bind_class,
		gdjn_vm_bind_mac, /* always static unfortunately */

		gdjn_vm_bind_prop_static = gdjn_vm_bind_prop
			| gdjn_vm_bind_flag_static,
		gdjn_vm_bind_method_static = gdjn_vm_bind_method
			| gdjn_vm_bind_flag_static,
	} kind;
	Janet val, meta;
} gdjn_vm_bind;

static inline bool
gdjn_vm_metaKey
(	JanetTable* const bind,
	char const* const kw,
	Janet     *       valSlot
) {
	Janet jv;
	if (valSlot == nullptr) valSlot = &jv;
	*valSlot = janet_table_get(bind, janet_ckeywordv(kw));
	return (janet_type(*valSlot) != JANET_NIL);
}

static inline bool
gdjn_vm_metaFlag
(	JanetTable* const bind,
	char const* const kw
) {
	Janet v = janet_table_get(bind, janet_ckeywordv(kw));
	return janet_truthy(v);
}

gdjn_vm_bind
gdjn_vm_meta
(	JanetTable* bind
);

gdjn_vm_bind
gdjn_vm_resv
(	JanetTable* env,
	Janet       key
);