将字符串从 ECL 传递到C++

Question

我试图进入嵌入C++的Common Lisp的迷人世界。我的问题是我无法设法从 c++ 读取和打印由 ECL 中定义的 lisp 函数返回的字符串。

在C++中，我有这个函数来运行任意的Lisp表达式：

cl_object lisp(const std::string & call) {
    return cl_safe_eval(c_string_to_object(call.c_str()), Cnil, Cnil);
}

我可以这样用一个数字来做到这一点：

预期信用日志：

(defun return-a-number () 5.2)

阅读和打印C++：

auto x = ecl_to_float(lisp("(return-a-number)"));
std::cout << "The number is " << x << std::endl;

一切都设置好并且工作正常，但我不知道用字符串而不是数字来做。这是我尝试过的：

预期信用日志：

(defun return-a-string () "Hello")

C++：

 cl_object y = lisp("(return-a-string)");
 std::cout << "A string: " << y << std::endl;

打印字符串的结果是这样的：

字符串：0x3188b00

我猜是字符串的地址。

下面是调试器的捕获，y cl_object的内容。 y->string.self 类型是一个ecl_character。

调试

Answer 1

（从@coredump的回答开始，string.self字段提供结果。

string.self字段被定义为类型 ecl_character* （ecl/object.h），在 ecl/config.h 中似乎作为类型 int 给出（尽管我怀疑这有点依赖于平台）。因此，您将无法像打印字符数组一样打印它。

我

发现对我有用的方法是将其重新解释为wchar_t（即 unicode 字符）。不幸的是，我有理由确定这不是可移植的，并且取决于 ecl 的配置方式和编译器C++。

// basic check that this should work
static_assert(sizeof(ecl_character)==sizeof(wchar_t),"sizes must be the same");
std::wcout << "A string: " << reinterpret_cast<wchar_t*>(y->string.self) << std::endl;
// prints hello, as required
// note the use of wcout

另一种方法是使用 lisp 类型

base-string 它确实使用 char（base-char 在 lisp 中）作为其字符类型。然后 lisp 代码读取

(defun return-a-base-string ()
    (coerce "Hello" 'base-string))

（可能有更优雅的方法可以转换为base-string但我不知道）。

以C++打印

cl_object y2 = lisp("(return-a-base-string)");
std::cout << "Another: " << y2->base_string.self << std::endl;

（请注意，您不能在同一程序中混合wcout和cout）

Answer 2

根据 ECL 手册的 2.6 字符串部分，我认为通过访问返回对象的 string.self 字段可以找到实际的字符数组。您可以尝试以下方法吗？

std::cout << y->string.self << std::endl;

Answer 3

std::string str {""};    
cl_object y2 = lisp("(return-a-base-string)");
//get dimension
int j = y2->string.dim;
//get pointer
ecl_character* selv = y2->string.self;
//do simple pointer addition
for(int i=0;i<j;i++){
    str += (*(selv+i));
}
//do whatever you want to str

当字符串从ecl_characters构建时，此代码有效

从文档中：

"ECL定义了两种C类型来保存其字符：ecl_base_char和ecl_character。

当 ECL 在没有 Unicode 的情况下构建时，它们都重合并且通常匹配无符号字符，以涵盖所需的 256 个代码。当ECL使用Unicode构建时，这两种类型不再等同，ecl_character更大。为了使您的代码具有可移植性和面向未来，请使用这两种类型来真正表达您打算做什么。

Answer 4

在我的系统上不需要返回一个基本字符串，但我认为添加兼容性可能会很好。我使用 （ecl） 嵌入式 CLISP 16.1.2 版本。以下代码段从 lisp 中读取字符串并转换为C++字符串类型 - std：：string 和 c-string，并将它们存储在C++变量中：

// strings initializations: string and c-string
std::string str2 {""};     
char str_c[99] = " ";
// text read from clisp, whatever clisp function that returns string type
cl_object cl_text = lisp("(coerce (text-from-lisp X) 'base-string)");
//cl_object cl_text = lisp("(text-from-lisp X)"); // no base string conversions
// catch dimension
int cl_text_dim = cl_text->string.dim;
// complete c-string char by char
for(int ind=0;i<cl_text_dim;i++){
str_c[i] = ecl_char(cl_text,i); // ecl function to get char from cl_object
   }
str_c[cl_text_dim] =''; // end of the c-string
str2 = str_c; // get the string on the other string type
std::cout <<  "Dim: " << cl_ text_dim << " C-String var: " << str_c() << " String var << str2 << std::endl;   

这是一个缓慢的过程，就像逐个字符传递一样，但这是我知道的唯一方法。希望对您有所帮助。问候！