Initial commit

c/main.c

@@ -0,0 +1,21 @@
+#include <caml/mlvalues.h>
+#include <caml/callback.h>
+#include <stdio.h>
+
+void print_closure(const char *closure_name) {
+    value * closure_f = caml_named_value(closure_name);
+    if (closure_f == NULL) {
+        printf("ERROR: Unreachable closure %s\n", closure_name);
+        return;
+    }
+
+    const char *str = String_val(caml_callback(*closure_f, Val_unit));
+    printf("%s: %s\n", closure_name, str);
+}
+
+int main(int argc, char **argv) {
+    caml_main(argv);
+    print_closure("Hello callback");
+    print_closure("Bye callback");
+    return 0;
+}