sdl phase 1

examples/29-fn-pointers.sx

@@ -0,0 +1,28 @@
+#import "modules/std.sx";
+
+add :: (a: s32, b: s32) -> s32 { a + b; }
+mul :: (a: s32, b: s32) -> s32 { a * b; }
+
+apply :: (f: (s32, s32) -> s32, x: s32, y: s32) -> s32 {
+    f(x, y);
+}
+
+main :: () {
+    // Store function in variable
+    fp : (s32, s32) -> s32 = add;
+    print("fp(3,4) = {}\n", fp(3, 4));
+
+    // Reassign to different function
+    fp = mul;
+    print("fp(3,4) = {}\n", fp(3, 4));
+
+    // Pass function pointer as argument
+    print("apply(add,5,6) = {}\n", apply(add, 5, 6));
+    print("apply(mul,5,6) = {}\n", apply(mul, 5, 6));
+}
+
+// ** stdout **
+//fp(3,4) = 7
+//fp(3,4) = 12
+//apply(add,5,6) = 11
+//apply(mul,5,6) = 30