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))
_______________________________________________
Cffi-devel mailing list
Cffi-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
