I do appreciate all your attention to my types GC issue so far but when Wim gave me this untested code:
(defmethod translate-to-foreign ((lisp-value cv-matrix) (c-type cv-mat)) (values (c-pointer lisp-value) lisp-value))
I thought it worked but I still had my mem-aref macro defined to access the c-pointer value so I didn't get a good test?
for example I'm referring to the lisp wrapper for this C function now, but it is identical to the cv-matrix one:
Scalar* cv_create_Scalar(double val0, double val1, double val2, double val3) { return new Scalar(val0, val1, val2, val3); }
I now have my lisp wrapper and types/finalizers for the above c function defined like this:
(defcfun ("cv_create_Scalar" %scalar) scalar (val0 :double) (val1 :double) (val2 :double) (val3 :double))
(define-foreign-type scalar () ((garbage-collect :reader garbage-collect :initform nil :initarg :garbage-collect)) (:actual-type :pointer) (:simple-parser scalar))
(defclass cv-scalar () ((c-pointer :reader c-pointer :initarg :c-pointer)))
(defmethod translate-to-foreign ((lisp-value cv-scalar) (c-type scalar)) (values (c-pointer lisp-value) lisp-value)) <--the new version Wim gave me untested
(defmethod translate-from-foreign (c-pointer (c-type scalar)) (let ((scalar (make-instance 'cv-scalar :c-pointer c-pointer))) (when (garbage-collect c-type) (tg:finalize scalar (lambda () (del-scalar c-pointer)))) scalar))
When I run (defparameter a (%scalar 1d0 2d0 3d0 4d0)) and (mem-aref a :double) I still get:
The value #<CV-SCALAR {10046BC833}> is not of type SB-SYS:SYSTEM-AREA-POINTER.
but when I run (mem-aref (c-pointer a) :double) it works.
What do I have to change in my types so I can mem-aref "A" normally, like this
(mem-aref a :double)...Any help is much appreciated:)