next: *

next/core/native.c

@@ -0,0 +1,29 @@
+#include <growl.h>
+#include <string.h>
+
+#include "dynarray.h"
+
+static void call_native(GrowlVM *vm, void *data) {
+  void (*fn)(GrowlVM *) = data;
+  fn(vm);
+}
+
+// clang-format off
+static GrowlAlienType native_type = {
+  .name = "native",
+  .finalizer = NULL,
+  .call = call_native,
+};
+// clang-format on
+
+void growl_register_native(GrowlVM *vm, const char *name,
+                           void (*fn)(GrowlVM *)) {
+  Growl alien = growl_make_alien_tenured(vm, &native_type, (void *)fn);
+  GrowlDictionary *entry =
+      growl_dictionary_upsert(&vm->dictionary, name, &vm->arena);
+  GrowlDefinition *def = push(&vm->defs, &vm->arena);
+  def->name = growl_arena_strdup(&vm->arena, name);
+  def->callable = alien;
+  entry->callable = alien;
+  entry->index = vm->defs.count - 1;
+}