lisp - 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

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

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

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