3

我有这些用于 C++ 的 C 绑定，这些 C 绑定vector<int>在 CFFI 中。

我知道如何创建vector<int>sstd_carrayTovector并将数据转换回int指针 with ，std_vectorToCArray以便我可以使用 CFFI 函数在 Lisp 中从中检索数据MEM-AREF。我defcfun为下面的内容写了正确的。

我的问题是：如何将defcfunfor的输出转换std_vectorToCArray为 Lisp 向量（例如#(1 2 3)）并使其成为 O(1) 操作——即同时复制所有数据。

vector_int* std_carrayTovector(int* a, size_t len) {
    vector<int>* v = new vector<int>;
    for(size_t i = 0; i < len; i++) 
        v->push_back(a[i]);
    return v;
}

int* std_vectorToCArray(vector_int* s) {
    return s->data();
}


(defcfun ("std_vectori_to_carray" %vector-int-to-c-array) :pointer 
  (s (:pointer vector-int)))
4

1 回答 1

0

我还没有尝试过，但我认为以下应该有效。我们可以使用的关于 a 的重要一点std::vector是，它保证有一个诚实的数组支持。也就是说，& my_vector [0]指向 的对象数组my_vector。（当然，这不适用于例如 astd::list或其他任何东西）

因此，您所要做的就是创建一个 CFFI 可以调用的函数（在您的 C++ 代码中），该函数返回一个指向向量开头的指针。大概是这样的：

extern "C"
Foo*
start_of_foo_vector (std::vector<Foo> vec)
{
    return & vec[0];
}

你会想要一个extern "C"这样你就不必担心名字被修改了。当然，您必须为每种类型编写不同的函数（并且不能使用带有 的模板extern "C"，我不认为）。

在您下次修改向量之前，您获得的指针一直有效。

于 2014-04-26T19:55:55.030 回答