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

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

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

同样适用于CFFI:CONVERT-TO-FOREIGN和CFFI:TRANSLATE-TO-FOREIGN。

Answer 2

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

由于无符号整数的解释错误为有符号整数，可能会出现指针值的负值。

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

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

lambda-gtk负指针

2 个答案: