From 7aa66702b2b9396add0cc20849ec89a48495c7ff Mon Sep 17 00:00:00 2001
From: Samuel Fadel <samuel@nihil.ws>
Date: Thu, 1 Dec 2022 15:03:05 +0100
Subject: Initial commit.

Sketching Scheme/C interop.
---
 wm.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 wm.scm

(limited to 'wm.scm')

diff --git a/wm.scm b/wm.scm
new file mode 100644
index 0000000..8304dca
--- /dev/null
+++ b/wm.scm
@@ -0,0 +1,24 @@
+(define-module (wm)
+  #:use-module (system foreign)
+  #:export (wm-init wm-quit))
+
+(define libschewm (dynamic-link "libschewm"))
+
+(define (int-as-bool i)
+  (not (eq? 0 i)))
+
+(define (schewm-func return-type name args)
+  (pointer->procedure
+   return-type
+   (dynamic-func name libschewm)
+   args))
+
+(define (wm-init)
+  (let ((c/wm-init
+         (schewm-func int "wm_init" '())))
+    (int-as-bool (c/wm-init))))
+
+(define (wm-quit s)
+  (let ((c/wm-quit
+         (schewm-func void "wm_quit" (list '*))))
+  (c/wm-quit (string->pointer s))))
-- 
cgit v1.2.3