From b45e37124d855bdf3365e8202559c45cf28e9d88 Mon Sep 17 00:00:00 2001
From: Miguel <m.i@gmx.at>
Date: Sat, 30 Mar 2019 16:08:18 +0100
Subject: first success with ffi (Call hask from c)

---
 ffi/foomain.c | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 ffi/foomain.c

(limited to 'ffi/foomain.c')

diff --git a/ffi/foomain.c b/ffi/foomain.c
new file mode 100644
index 0000000..70d891c
--- /dev/null
+++ b/ffi/foomain.c
@@ -0,0 +1,21 @@
+#include <stdio.h>
+#include "HsFFI.h"
+
+#ifdef __GLASGOW_HASKELL__
+#include "Foo_stub.h"
+#endif
+
+int main(int argc, char *argv[])
+{
+  int i;
+
+  hs_init(&argc, &argv);
+
+  for (i = 0; i < 5; i++) {
+    printf("%d\n", foo(2500+i));
+    printf("%d\n", foo(2500+i));
+  }
+
+  hs_exit();
+  return 0;
+}
-- 
cgit v1.2.3