Hi. I want to use the following C function:
;; void ClearBackground(Color color);
Color is C Struct:
;; typedef struct Color { ;; unsigned char r; // Color red value ;; unsigned char g; // Color green value ;; unsigned char b; // Color blue value ;; unsigned char a; // Color alpha value ;; } Color;
So I wrote:
(cffi:defcstruct %color (r :uint8) (g :uint8) (b :uint8) (a :uint8))
(defvar *%lightgray* (cffi:foreign-alloc '(:struct %color)))
(cffi:with-foreign-slots ((r g b a) *%lightgray* (:struct %color)) (setf (cffi:foreign-slot-value *%lightgray* '(:struct %color) 'r) 200) (setf (cffi:foreign-slot-value *%lightgray* '(:struct %color) 'g) 200) (setf (cffi:foreign-slot-value *%lightgray* '(:struct %color) 'b) 200) (setf (cffi:foreign-slot-value *%lightgray* '(:struct %color) 'a) 255) (format t "~s ~s ~s ~s" r g b a))
;; void ClearBackground(Color color); (cffi:defcfun ("ClearBackground" %clear-background) :void (color (:struct %color)))
(defun clear-background (color) (%clear-background color))
But when i run
(clear-background *%lightgray*)
That does not work, I have already added my .asd file ":cffi-libffi" as dependency.
What is the problem? If this issue has no solution, is there an alternate way?