first success with ffi (Call hask from c)

1 files changed, 21 insertions, 0 deletions

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;
+}