将 guile 链接到 Rcpp

Question

我正在尝试 link 欺骗一个 Rcpp 文件。似乎可以编译，但加载时出错：

sourceCpp("test_2.cpp", rebuild = TRUE, showOutput = TRUE)
/usr/lib/R/bin/R CMD SHLIB --preclean -o 'sourceCpp_2.so' 'test_2.cpp' 
g++-10 -I"/usr/share/R/include" -DNDEBUG   -I"/home/matias/R/x86_64-pc-linux-gnu-library/4.0/Rcpp/include" -I"/home/matias/Documentos/Program/R/guile"    -fpic  -O3 -march=native -mtune=native -fPIC -pthread  -I"/usr/include/guile/3.0" -c test_2.cpp -o test_2.o
g++-10 -shared -L/usr/lib/R/lib -lm -ldl -lgmpxx -lgmp -lmpfr -lmpc -lguile-3.0 -lgc -o sourceCpp_2.so test_2.o -L/usr/lib/R/lib -lR
Error in dyn.load("/tmp/Rtmpm2flY8/sourceCpp-x86_64-pc-linux-gnu-1.0.5/sourcecpp_29e2d33505085/sourceCpp_2.so") : 
  unable to load shared object '/tmp/Rtmpm2flY8/sourceCpp-x86_64-pc-linux-gnu-1.0.5/sourcecpp_29e2d33505085/sourceCpp_2.so':
  /tmp/Rtmpm2flY8/sourceCpp-x86_64-pc-linux-gnu-1.0.5/sourcecpp_29e2d33505085/sourceCpp_2.so: undefined symbol: scm_init_guile

如果我删除 Rcpp header 并直接使用 g++ 构建，linking 工作正常。

我的 Makevars 看起来像这样：

CXX = g++-10
CXXFLAGS = -O3 -march=native -mtune=native -fPIC -pthread  -I"/usr/include/guile/3.0"
CXXSTD = -std=c++11
LDFLAGS =  -lm -ldl -lgmpxx -lgmp -lmpfr -lmpc -lguile-3.0 -lgc

.cpp 文件：

#include <Rcpp.h>
#include <stdio.h>
#include <libguile.h>

using namespace Rcpp;

// [[Rcpp::export]]
int test_guile() {
    SCM func, func2;
    scm_init_guile();

    scm_c_primitive_load("script.scm");

    func = scm_variable_ref(scm_c_lookup("simple-func"));
    func2 = scm_variable_ref(scm_c_lookup("quick-test"));

    scm_call_0(func);
    scm_call_0(func2);

    return 0;
}

Answer 1

你们是如此，如此亲密。你基本上解决了这个问题。我只是拿了你的文件，做了一个小修改，使脚本成为一个参数，并且（因为你没有 post script.scm）注释掉了特定内容的东西。 我们仍然加载它：

#include <Rcpp.h>
#include <stdio.h>
#include <libguile.h>

using namespace Rcpp;

// [[Rcpp::export]]
int test_guile(std::string file) {
    SCM func, func2;
    scm_init_guile();

    scm_c_primitive_load(file.c_str());

    //func = scm_variable_ref(scm_c_lookup("simple-func"));
    //func2 = scm_variable_ref(scm_c_lookup("quick-test"));

    //scm_call_0(func);
    //scm_call_0(func2);

    return 0;
}

同样，我刚刚在 Rcpp.package.skeleton() 创建的文件中添加了一个 src/Makevars。 这还不够好，因为您需要一些最小的 configure 或类似的逻辑来从 guile-config-3.0 或类似的 中获取这些值。但它通过了试金石。 C++11 是 R 4.0.* 下的默认设置，而且编译器在我的盒子上是最新的，所以我们只有这个（在删除一些 GNU GMP 和我们不需要的相关部分之后）：

PKG_CXXFLAGS = -I"/usr/include/guile/3.0"
PKG_LIBS = -lguile-3.0 -lgc

现在可以正常构建、安装和运行：

> file <- system.file("guile", "script.scm", package="RcppGuile")
> RcppGuile::test_guile(file)
[1] 0
>

作为参考，我提交并推送了整个示例包here。如果您提供指向 script.scm 的指针，我们也可以添加它。

编辑： 几秒钟的谷歌搜索导致 the script.scm you may have used 所以现在我们有了一个完整的示例，其中包含一个可用的嵌入式 Guile 解释器：

> library(RcppGuile)
> test_guile(system.file("guile", "script.scm", package="RcppGuile"))
Script called, now I can change this
Adding another function, can modify without recompilation
Called this, without recompiling the C code
[1] 0
>

将 guile 链接到 Rcpp

Linking guile to Rcpp

scheme

guile

rcpp