From 98b554584d06d85f20e10905efb96e4dd5f7c820 Mon Sep 17 00:00:00 2001 From: Moon Flower Date: Thu, 27 Feb 2025 14:49:26 +0330 Subject: Slight revamp + Algebraic data types --- main.c | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'main.c') diff --git a/main.c b/main.c index de8da5c..f49b452 100644 --- a/main.c +++ b/main.c @@ -3,18 +3,16 @@ #define __MOONSHINE_LIBC_WARNINGS #include "moonshine.h" -void cleanup_free(var* input) { print("Deallocation logic goes here ", input); } - -#define auto_free __attribute__((cleanup(cleanup_free))) - -#define create(type, name, ...) \ - auto_free var cat(name, _parent) = __VA_ARGS__; \ - type name = cat(name, _parent); +datatype(binarytree, ((leaf, int), (node, binarytree *, int, binarytree *) )); int main() { - create(t(int), proof_of_concept, new(int)); + const auto tree = instance(binarytree, leaf, 3); - print("Neat, right? ", proof_of_concept); + match(tree) { + of(leaf, v) print("Leafy ", v); + of(node, _, v, _) print("Nodey ", v); + other() print("Idk man"); + } return 0; } -- cgit v1.2.3