From d176e70202a5ef3c6af8fcef0fdcc5733d641f38 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 23 Feb 2019 22:47:24 +0100 Subject: Reenable guile stuff. --- guile_type_helpers.c | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 guile_type_helpers.c (limited to 'guile_type_helpers.c') diff --git a/guile_type_helpers.c b/guile_type_helpers.c new file mode 100644 index 00000000..3f76c2d4 --- /dev/null +++ b/guile_type_helpers.c @@ -0,0 +1,18 @@ +#include "guile_type_helpers.h" + +#include "macro.h" + +SCM scm_from_strbuf(strbuf* s) + { return scm_from_utf8_stringn (s->mem, s->len - 1); } + +SCM scm_from_vector(VECT(vcomponent)* vect, SCM element_type) { + SCM l = SCM_EOL; + for (size_t i = 0; i < vect->length; i++) { + l = scm_cons( + scm_make_foreign_object_1 (element_type, GET(VECT(vcomponent))(vect, i)), + l); + } + return scm_reverse(l); +} + + -- cgit v1.2.3