First working Guile bindingHEADmaster

1 files changed, 15 insertions, 3 deletions

diff --git a/src/gemma_api.cpp b/src/gemma_api.cpp
index 618f283..77c1d56 100644
--- a/src/gemma_api.cpp
+++ b/src/gemma_api.cpp
@@ -3,10 +3,17 @@
 
 #include <stdio.h>
 #include <libguile.h>
-#include <libguile/boolean.h>
-#include <libguile/numbers.h>
+// #include <libguile/boolean.h>
+// #include <libguile/numbers.h>
+
+// extern SCM my_incrementing_function (SCM a, SCM flag);
+
+// extern "C" SCM my_ping(SCM i);
+
+static SCM my_ping(SCM i) {
+    return i;
+}
 
-extern SCM my_incrementing_zig_function (SCM a, SCM flag);
 
 SCM my_incrementing_function (SCM a, SCM flag)
 {
@@ -19,3 +26,8 @@ SCM my_incrementing_function (SCM a, SCM flag)
 
   return result;
 }
+
+
+extern "C" void init_module() {
+    scm_c_define_gsubr("my-ping", 1, 0, 0, (scm_t_subr)my_ping);
+}