I have a define-foreign-type, translate-to-foreign, translate-from-foreign and a defclass at bottom of this page
These four sections of code make up my types. At the top of the code is a defcstruct that, I am trying to make a part of my types by changing the :actual-type in the define-foreign-type to:
(:actual-type '(:pointer (:struct rect1))).
The :actual-type is normally :pointer and that makes it so the defcfun at the bottom of code section compiles no problem. When I compile the code here I get an error in my defcun saying that "(:pointer (:struct rect1)) is not a cffi type". Why is it doing this and how can I make the actual type of my define-foreign-type a (:pointer (:struct rect1))? The reason I would like to do this is so I can convert the C data to lisp data as soon as possible. If this won't work and you have any other suggestions on how to do this professionally. pls let me know. Thank you.
;;;;Code
(cffi:defcstruct rect1
(x :int)
(y :int)
(width :int)
(height :int))
(define-foreign-type rect ()
((garbage-collect :reader garbage-collect :initform nil :initarg
:garbage-collect))
(:actual-type '(:pointer (:struct rect1)))
(:simple-parser rect))
(defclass cv-rect ()
((c-pointer :reader c-pointer :initarg :c-pointer)))
(defmethod translate-to-foreign ((lisp-value cv-rect) (c-type rect))
(values (c-pointer lisp-value) lisp-value))
(defmethod translate-from-foreign (c-pointer (c-type rect))
(let ((rectangle (make-instance 'cv-rect :c-pointer c-pointer)))
(when (garbage-collect c-type)
(tg:finalize rectangle (lambda () (del-rect c-pointer))))
rectangle))
(defcfun ("cv_create_Rect4" rect-4) rect
"RECT constructor."
(x :int)
(y :int)
(width :int)
(height :int))
