diff options
| -rw-r--r-- | .gitignore | 2 | ||||
| -rw-r--r-- | guix.scm | 7 | ||||
| -rw-r--r-- | premake5.lua | 30 | ||||
| -rw-r--r-- | src/gemma_api.cpp | 21 |
4 files changed, 58 insertions, 2 deletions
@@ -1,5 +1,7 @@ build/ PanGemma.make +gemma.make +gemmalib.make Makefile *.o *.tar.gz @@ -59,6 +59,11 @@ ninja ruby zlib)) + (propagated-inputs + (list + `("guile" ,guile-3.0-latest) + `("guile-debug" ,guile-3.0-latest "debug"))) + ;; ("gsl-static" ,gsl-static) ;; ("zlib:static" ,zlib "static") (arguments @@ -91,7 +96,7 @@ genome-wide association studies (GWAS).") (build-system gnu-build-system) (propagated-inputs (modify-inputs (package-inputs pangemma-base-git) - (append which binutils coreutils gcc-toolchain premake5 gnu-make ;; for the shell + (append which binutils coreutils gcc-toolchain premake5 gnu-make ;; for the shell ))) (arguments `(#:phases (modify-phases %standard-phases diff --git a/premake5.lua b/premake5.lua index b1bca78..4502e74 100644 --- a/premake5.lua +++ b/premake5.lua @@ -1,5 +1,9 @@ -- Build with -- +-- premake5 gmake2 && make verbose=1 gemmalib -j 8 +-- +-- Including bin +-- -- premake5 gmake2 && make verbose=1 config=debug -- -- Or @@ -13,7 +17,30 @@ workspace "PanGemma" configurations { "Debug", "Release" } -project "PanGemma" + project "gemmalib" -- library for interactive development + kind "SharedLib" + defines { "OPENBLAS" } + language "C++" + objdir "build/" + targetdir "build/bin/%{cfg.buildcfg}" + + files { "src/*.h src/*.c src/**.hpp", "src/**.cpp" } + removefiles { "src/main.cpp" } + includedirs { "src/", os.getenv('GUIX_ENVIRONMENT') .. "/include/guile/3.0" } + + links { "gsl", "z", "openblas" } + + filter "configurations:Debug" + defines { "DEBUG" } + symbols "On" + + filter "configurations:Release" + defines { "NDEBUG" } + optimize "On" + + + +project "gemma" kind "ConsoleApp" defines { "OPENBLAS" } language "C++" @@ -21,6 +48,7 @@ project "PanGemma" targetdir "build/bin/%{cfg.buildcfg}" files { "src/*.h src/*.c src/**.hpp", "src/**.cpp" } + removefiles { "src/gemma_api.cpp" } includedirs { "src/" } links { "gsl", "z", "openblas" } diff --git a/src/gemma_api.cpp b/src/gemma_api.cpp new file mode 100644 index 0000000..618f283 --- /dev/null +++ b/src/gemma_api.cpp @@ -0,0 +1,21 @@ +// Testing bindings, see README.md and +// https://www.gnu.org/savannah-checkouts/gnu/guile/docs/docs-2.0/guile-ref/Dynamic-Types.html + +#include <stdio.h> +#include <libguile.h> +#include <libguile/boolean.h> +#include <libguile/numbers.h> + +extern SCM my_incrementing_zig_function (SCM a, SCM flag); + +SCM my_incrementing_function (SCM a, SCM flag) +{ + SCM result; + + if (scm_is_true (flag)) + result = scm_sum (a, scm_from_int (1)); + else + result = a; + + return result; +} |