From 0cef986e6958a0a6a7e94e8256b0039709aed56b Mon Sep 17 00:00:00 2001
From: Kimplul <kimi.h.kuparinen@gmail.com>
Date: Fri, 6 Dec 2024 20:00:42 +0200
Subject: add trailing closures

+ Useful for guard statements, not entirely sure about the final syntax
  but at least they're possible
---
 examples/fib.fwd   |  3 +++
 examples/guard.fwd | 33 +++++++++++++++++++++++++++++++++
 examples/uniq.fwd  | 15 +++++++++++++++
 3 files changed, 51 insertions(+)
 create mode 100644 examples/guard.fwd

(limited to 'examples')

diff --git a/examples/fib.fwd b/examples/fib.fwd
index 44ced4a..be2b63f 100644
--- a/examples/fib.fwd
+++ b/examples/fib.fwd
@@ -14,6 +14,9 @@ fib(int n, (int) res)
 	}
 }
 
+/* 'extern' println */
+fwd_println(int n);
+
 main()
 {
 	fib(6) => int n;
diff --git a/examples/guard.fwd b/examples/guard.fwd
new file mode 100644
index 0000000..6af570d
--- /dev/null
+++ b/examples/guard.fwd
@@ -0,0 +1,33 @@
+/* 'any' doesn't actually exist but at the moment I'm not checking types so as
+ * long as there's some type identifier here the compiler will not complain,
+ * will eventually have to fix */
+fwd_println(any a);
+
+guard(bool cond, () err, () ok)
+{
+	if cond {
+		err();
+	} else {
+		ok();
+	}
+}
+
+try_print_one(int a)
+{
+	guard(a < 1) => {
+		fwd_println("smaller than 1");
+	} => ;
+
+	guard(a > 1) => {
+		fwd_println("larger than 1");
+	} => ;
+
+	fwd_println(a);
+}
+
+main()
+{
+	try_print_one(0);
+	try_print_one(1);
+	try_print_one(2);
+}
diff --git a/examples/uniq.fwd b/examples/uniq.fwd
index fa7504a..5945d65 100644
--- a/examples/uniq.fwd
+++ b/examples/uniq.fwd
@@ -1,5 +1,15 @@
 /* not entirely sure about the final syntax just yet but something like this */
 
+/* 'extern' functions (though some should probably be generic?) */
+fwd_getline(
+	(optional![string]) next);
+
+fwd_some(optional![string] o,
+	(string) next);
+
+fwd_insert(unordered_set![string] set, string line,
+	(unordered_set![string]) next);
+
 /* at some point I'll probably add in a type system as well, but for now let's
  * pretend we're static-dynamic (or dynamic at compiletime? dunno) */
 readlines(unordered_set![string] set, (unordered_set![string]) next)
@@ -19,6 +29,11 @@ readlines(unordered_set![string] set, (unordered_set![string]) next)
 	}
 }
 
+fwd_foreach(unordered_set![string] set,
+	(string) callback);
+
+fwd_println(string s);
+
 main()
 {
 	/* fwdlib.hpp uses namespace std, not good practice but allows us to do
-- 
cgit v1.2.3