Fix bool foreign type

used cffi-grovel, because sizeof(bool) is implementation-dependent and may differ from sizeof(int).
HiTECNOLOGYs · May 26, 2015 · 853e815 · 853e815
1 parent 9bb94ef
commit 853e815
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/cl-charms.asd b/cl-charms.asd
@@ -38,11 +38,13 @@
   :license "MIT License (See COPYING)"
   :depends-on (#:cffi
                #:alexandria)
+  :defsystem-depends-on (#:cffi-grovel) ; for processing :cffi-grovel-file
   :serial t
   :pathname "src/"
   :components ((:module "low-level"
                 :serial t
                 :components ((:file "package")
+                             (:cffi-grovel-file "curses-grovel")
                              (:file "curses-bindings")))
                (:module "high-level"
                 :serial t

diff --git a/src/low-level/curses-bindings.lisp b/src/low-level/curses-bindings.lisp
@@ -89,7 +89,7 @@
 
 
 ;; types
-(cffi:defctype bool :int)
+;;  note: bool definition is moved into grovel file (curses-grovel.lisp)
 (cffi:defctype char-ptr :pointer)
 (cffi:defctype chtype :int)
 (cffi:defctype file-ptr :pointer)

diff --git a/src/low-level/curses-grovel.lisp b/src/low-level/curses-grovel.lisp
@@ -0,0 +1,5 @@
+;; (include "/usr/include/ncurses.h")
+(include "ncurses.h")
+(in-package #:cl-charms/low-level)
+
+(ctype bool "bool") ;; grovel it, because sizeof(bool) is implementation-dependent