1 files changed, 103 insertions, 0 deletions
diff --git a/program.c b/program.c
new file mode 100644
index 0000000..c413f38
--- /dev/null
+++ b/program.c
@@ -0,0 +1,103 @@
+/*
+ * Copyright (C) 2022 Jo-Philipp Wich <jo@mein.io>
+ *
+ * Permission to use, copy, modify, and/or distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#include "ucode/program.h"
+
+
+uc_program_t *
+uc_program_new(void)
+{
+	uc_program_t *prog;
+
+	prog = xalloc(sizeof(*prog));
+
+	prog->functions.next = &prog->functions;
+	prog->functions.prev = &prog->functions;
+
+	return prog;
+}
+
+static inline uc_function_t *
+ref_to_function(uc_weakref_t *ref)
+{
+	return (uc_function_t *)((uintptr_t)ref - offsetof(uc_function_t, progref));
+}
+
+static inline uc_value_t *
+ref_to_uv(uc_weakref_t *ref)
+{
+	return (uc_value_t *)((uintptr_t)ref - offsetof(uc_function_t, progref));
+}
+
+void
+uc_program_free(uc_program_t *prog)
+{
+	uc_weakref_t *ref, *tmp;
+	uc_function_t *func;
+
+	if (!prog)
+		return;
+
+	for (ref = prog->functions.next, tmp = ref->next; ref != &prog->functions; ref = tmp, tmp = tmp->next) {
+		func = ref_to_function(ref);
+		func->program = NULL;
+		func->progref.next = NULL;
+		func->progref.prev = NULL;
+
+		ucv_put(&func->header);
+	}
+
+	free(prog);
+}
+
+uc_value_t *
+uc_program_function_new(uc_program_t *prog, const char *name, size_t srcpos, uc_source_t *source)
+{
+	uc_function_t *func;
+
+	func = (uc_function_t *)ucv_function_new(name, srcpos, source, prog);
+	func->root = (prog->functions.next == &prog->functions);
+
+	ucv_ref(&prog->functions, &func->progref);
+
+	return &func->header;
+}
+
+size_t
+uc_program_function_id(uc_program_t *prog, uc_value_t *func)
+{
+	uc_weakref_t *ref;
+	size_t i;
+
+	for (ref = prog->functions.prev, i = 1; ref != &prog->functions; ref = ref->prev, i++)
+		if (ref_to_uv(ref) == func)
+			return i;
+
+	return 0;
+}
+
+uc_value_t *
+uc_program_function_load(uc_program_t *prog, size_t id)
+{
+	uc_weakref_t *ref;
+	size_t i;
+
+	for (ref = prog->functions.prev, i = 1; ref != &prog->functions; ref = ref->prev, i++)
+		if (i == id)
+			return ref_to_uv(ref);
+
+	return NULL;
+}