如何在 cffi 中将 NULL 作为 :string 发送

Question

我正在尝试从 lisp 端使用 wayland-client，这是我的代码：

(define-foreign-library wayland-client
  (:unix (:or "libwayland-client.so.0.20.0" "libwayland-client.so"))
  (t (:default "libwayland-client")))


(use-foreign-library wayland-client)

(defcfun "wl_display_connect" :pointer
  (name :string))

(wl-display-connect (null-pointer));;return NULL

C 语言代码，来自 here

#include <stdio.h>
#include <stdlib.h>
#include <wayland-client.h>

struct wl_display *display = NULL;

int main(int argc, char **argv) {

    display = wl_display_connect(NULL);
    if (display == NULL) {
    fprintf(stderr, "Can't connect to display\n");
    exit(1);
    }
    printf("connected to display\n");

    wl_display_disconnect(display);
    printf("disconnected from display\n");    
    exit(0);
}

我已经测试了 C 版本并且它有效，那么 lisp 版本应该如何正确？

如何在此处定义wl_display_connect

struct wl_display* wl_display_connect(const char *name)

Answer 1

我不是 CFFI 方面的专家，但我认为诀窍是说事情是 (:pointer :char) 而不是 :string 。给定这个简单的 C 函数：

#include <stdio.h>

char *ts(char *x) {
  if (x == NULL) {
    printf("Got a null\n");
  }
  return x;
}

以及这个 CFFI 声明：

(defcfun (ts "ts")
    (:pointer :char)
  (name (:pointer :char)))

那么这将起作用：

> (null-pointer-p (ts (null-pointer)))
Got a null
t

然后您可以使用外部字符串调用它，但您需要处理它们的分配和取消分配： (ts "foo")行不通的。但这将：

(defun ts-wrapper (s)
  (with-foreign-string (x s)
    (foreign-string-to-lisp (ts x))))

现在：

> (ts-wrapper "foo")
"foo"
3

显然在您的情况下，您不需要处理从外部字符串的转换。

Answer 2

您可以使用 (cffi:null-pointer) 因为 string 是指向 char 数组的指针。