从赤壁方案 FFI 绑定中的 out 参数中获取结构*

Question

你能从赤壁方案中C函数的out参数中得到一个struct *吗？

我正在尝试从这个 C 函数中获取struct archive_entry *：

int archive_read_next_header(
struct archive *archive,
struct archive_entry **out_entry);

在 C 语言中，可以这样做：

struct archive_entry *entry;
archive_read_next_header(archive, &entry);

我的赤壁FFI代码是：

(define-c-struct archive)
(define-c-struct archive_entry)
(define-c int
archive-read-next-header
(archive (result reference archive_entry)))

但它没有生成正确的 C 代码来获取archive_entry。我 认为reference是错误的东西。我也试过pointer但它也没有用。

Answer 1

我仍然不知道是否可以直接完成。

但是我能够通过用 C 编写自定义 thunk 函数来解决此问题：

(c-declare "
struct archive_entry *my_archive_read(struct archive *a, int *out_errcode) {
struct archive_entry *entry;
int errcode;
*out_errcode = errcode = archive_read_next_header(a, &entry);
return (errcode == ARCHIVE_OK) ? entry : NULL;
}")
(define-c archive_entry my-archive-read (archive (result int)))

所以关键是Scheme不需要处理这个版本中的任何双向(**)。C 代码将 Scheme 的双间接寻址转换为单寻址，因此一切都可以解决。

方案程序的示例用法：

(let ((archive (my-archive-open filename)))
(disp "archive" archive)
(let* ((return-values (my-archive-read archive))
(entry (car return-values))
(errcode (cadr return-values)))
(display entry)
(newline)))

我从 chibi-sqlite3 绑定中复制了该技术，它们面临着类似的问题，必须从 out 参数获取sqlite3_stmt *：

(c-declare
"sqlite3_stmt* sqlite3_prepare_return(sqlite3* db, const char* sql, const int len) {
sqlite3_stmt* stmt;
char** err;
return sqlite3_prepare_v2(db, sql, len, &stmt, NULL) != SQLITE_OK ? NULL : stmt;
}
")
(define-c sqlite3_stmt (sqlite3-prepare "sqlite3_prepare_return") (sqlite3 string (value (string-length arg1) int)))