lambda-gtk负指针

Question

我试着用Lisp语言在(Gdk) pixbuf上写我自己的put-pixel。当我最终意识到如何在CL中对C指针进行操作时，新的障碍出现了- (gdk:pixbuf-get-pixels pb)返回负数。我的问题是:我能以某种方式将它转换为有效的指针吗？我尝试使用cffi:convert-from-foreign和cffi:translate-from-foreign (它们之间有什么区别？)失败。

下面是我的实际代码(不工作)：

(defun put-pixel (pixbuf x y r g b)
  (let ((p (+ (gdk:pixbuf-get-pixels pixbuf) (* x (gdk:pixbuf-get-n-channels pixbuf)) (* y (gdk:pixbuf-get-rowstride pixbuf)))))
    (setf (cffi:mem-aref p :unsigned-char 0) r)
    (setf (cffi:mem-aref p :unsigned-char 1) g)
    (setf (cffi:mem-aref p :unsigned-char 2) b)))

Answer 1

我认为lambda-gtk错误地定义了pixbuf-get-pixels的绑定。

由于不正确地将无符号整数解释为有符号整数，因此可能会出现指针值的负值。

纠正此值的最简单方法是使用mod

CL-USER> (mod -1 (expt 2 #+cffi-features:x86 32 #+cffi-features:x86-64 64))
4294967295

Answer 2

CFFI:TRANSLATE-FROM-FOREIGN是一个泛型函数。您可以使用CFFI:DEFINE-FOREIGN-TYPE定义自己的外部类型，然后将一个方法添加到CFFI:TRANSLATE- from -TRANSLATE中，以指定从外部值到Lisp值的转换应该如何工作。

如果您需要显式转换某些值，则应该调用CFFI:CONVERT-FROM-FOREIGN。它将在幕后调用CFFI:TRANSLATE-FROM-FOREIGN，如果可能的话，它可能会执行一些编译时优化。

同样的事情也适用于CFFI:CONVERT-TO-FOREIGN和CFFI:TRANSLATE-TO-FOREIGN。