-1

上記の 2 つの関数定義のラッパーであるこの関数スカラーがあります。じぶんの ？の出力を mem-aref する方法です(scalar 1 2 3 4)。これはメタオブジェクトと呼ばれると#<CV-SCALAR {10044559D3}> 思います#<CV-SCALAR {10044559D3}>

    ;; Scalar* cv_create_Scalar(double val0, (double val1, double val2, double val3)
    (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))
      (c-pointer lisp-value))


    (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))
4

1 に答える 1

0

defclass と defmethods が上記のように定義されている場合(mem-aref (c-pointer a) :int 1)、戻り値の mem-aref を実行します

于 2014-04-28T08:36:38.890 に答える