如何将外部数组的索引值分配为外部结构的值。例如,以下内容:
(cffi:with-foreign-objects ((x '(:struct my-struct))
(arr '(:struct my-struct) 2))
(setf (cffi:mem-aref arr '(:struct my-struct) 0)
(cffi:mem-ref x '(:struct my-struct))))
我预计大致相当于
struct my_struct *x;
struct my_struct arr[2];
// x is initialized somewhere
arr[0] = *x;
相反,它希望调用泛型函数cffi:translate-into-foreign-memory
。有没有办法把SETF的外来记忆传递给外来记忆?
在irc.greenode.net#lisp上的一些其他人的帮助下,我们发现了:使用memcpy
:
(cffi:with-foreign-objects ((x '(:struct my-struct))
(arr '(:struct my-struct) 2))
(cffi:foreign-funcall "memcpy"
:pointer (cffi:mem-aptr arr '(:struct my-struct) 0)
:pointer x
:int (cffi:foreign-type-size '(:struct my-struct))
:void))