时间戳

首页 > 解决方案 > 如何从鸡计划中调用 C 回调

chicken-scheme - 如何从鸡计划中调用 C 回调

问题描述

我正在编写一个最终可以从 C 代码中使用的 Chicken Scheme 库。为此，我my_entrypoint从我的 Scheme 代码中定义了入口点。my_entrypoint接受一个进行计算的 C 回调：

(define-external (my_entrypoint ((function void (void)) compute)) void
  (let ([x (compute)])
    ...))

(return-to-host)

如何调整第 2 行，以便我的库可以正确构建和运行。照原样，我的代码因以下错误日志而崩溃：

$ ./test

Error: call of non-procedure: #<pointer 0x10f47fb75>

    Call history:

    test.scm:5: return-to-host    
    test.scm:2: compute

这是使用我的库的 C 程序示例：

#include <chicken.h>

int compute_something(void)
{
  return 42;
}

void my_entrypoint(void (*)(void));

int main()
{
  C_word k = CHICKEN_run(C_toplevel);
  (void)k;
  my_entrypoint(&compute_something);
  return 0;
}

标签： chicken-scheme

解决方案

据我所知，您不能从作为参数传递的 Scheme 中调用 C 函数。最简单的方法是使用本地的 foreign-lambda* 来完成，您将函数指针传递给它，然后它可以进行实际的调用：

(define-external (my_entrypoint ((function int ()) compute-raw)) void
  (let* ((call-proc (foreign-lambda* int (((function int ()) compute))
                      "C_return(compute());"))
         (x (call-proc compute)))
    ...))

(return-to-host)

推荐阅读