如何从鸡方案调用 C 回调

Question

我正在编写一个最终可以从C代码中使用的Chicken Scheme库。为此，我从我的方案代码中定义入口点my_entrypoint。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;
}

Answer 1

据我所知，您不能从作为参数传递的 Scheme 中调用 C 函数。最简单的方法是使用本地外部 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)