diff --git a/premake5.lua b/premake5.lua
index 40aaa01..f966e8a 100644
--- a/premake5.lua
+++ b/premake5.lua
@@ -47,6 +47,7 @@ project "gemma"
kind "ConsoleApp"
defines { "OPENBLAS" }
language "C++"
+ buildoptions { "-Wfatal-errors" }
objdir "build/"
targetdir "build/bin/%{cfg.buildcfg}"
diff --git a/src/gemma.cpp b/src/gemma.cpp
index a9038c7..5804bde 100644
--- a/src/gemma.cpp
+++ b/src/gemma.cpp
@@ -82,6 +82,8 @@ void gemma_gsl_error_handler (const char * reason,
#include <openblas_config.h>
#endif
+using namespace gemmaguile;
+
void GEMMA::PrintHeader(void) {
cout <<
diff --git a/src/guile/examples.scm b/src/guile/examples.scm
new file mode 100644
index 0000000..8855a34
--- /dev/null
+++ b/src/guile/examples.scm
@@ -0,0 +1,6 @@
+(define-module (example)
+ #:use-module (srfi srfi-4)
+ #:export (make-floats))
+
+(define (make-floats)
+ #f64( 1.0 2.2 3.3 4.0))
diff --git a/src/guile_api.cpp b/src/guile_api.cpp
index 21eb9ff..e3ef482 100644
--- a/src/guile_api.cpp
+++ b/src/guile_api.cpp
@@ -1,13 +1,44 @@
#include <guile_api.h>
-void global_start_guile() {
- scm_init_guile();
-}
+namespace gemmaguile {
+
+ void global_start_guile() {
+ scm_init_guile();
+ }
+
+ string global_guile_version() {
+ SCM version_scm = scm_version();
+ char* c_str = scm_to_utf8_string(version_scm);
+ string version_str(c_str);
+ free(c_str); // Must free the allocated memory
+
+ return version_str;
+ }
+
+ SCM make_floats()
+ {
+ return scm_call_0(scm_c_public_ref("example", "make-floats"));
+ }
+
+ void use_floats()
+ {
+ SCM vec = make_floats();
+
+ scm_t_array_handle handle;
+ size_t len;
+ ssize_t inc;
+ const SCM *elt;
+
+ const double *ny = scm_f64vector_elements (vec,&handle,&len,&inc);
+ for (size_t i = 0; i < len; i++) {
+ printf("elem %zu = %f\n", i, ny[i]);
+ }
+ scm_array_handle_release (&handle);
+ }
+
+ void start_test() {
+ scm_c_primitive_load("src/guile/examples.scm");
+ use_floats();
+ }
-string global_guile_version() {
- SCM version_scm = scm_version();
- char* c_str = scm_to_utf8_string(version_scm);
- string version_str(c_str);
- free(c_str); // Must free the allocated memory
- return version_str;
}
diff --git a/src/guile_api.h b/src/guile_api.h
index 1244b11..b413342 100644
--- a/src/guile_api.h
+++ b/src/guile_api.h
@@ -5,5 +5,10 @@
using namespace std;
-void global_start_guile();
-string global_guile_version();
+namespace gemmaguile {
+
+ void global_start_guile();
+ string global_guile_version();
+ void start_test();
+
+};
diff --git a/src/main.cpp b/src/main.cpp
index 95c8fd3..ee6d597 100644
--- a/src/main.cpp
+++ b/src/main.cpp
@@ -32,8 +32,8 @@ int main(int argc, char *argv[]) {
gsl_set_error_handler (&gemma_gsl_error_handler);
- global_start_guile();
-
+ gemmaguile::global_start_guile();
+ gemmaguile::start_test();
if (argc <= 1) {
cGemma.PrintHeader();
|
