c++ - Swig:如何将指针列表从 C++ 返回到 Tcl

Question

我想返回一个从 C++ 到 Tcl 的指针列表。然后通过指针调用一些成员函数。 SWIG 可以帮助我做到这一点。

但是，SWIG 给了我一个指向指针的指针的列表。

% getLongTime 10
_30a8620000000000_p_p_MyData _30bc620000000000_p_p_MyData

我在 SWIG 中找不到取消引用的语法。所以我必须为每个类编写解引用函数。很不方便。

我包含“std_vector.i”以返回指针列表。有人有使用 vector 但没有第二个指针的例子吗？或者任何替代解决方案都可以!

我也曾尝试编写一个通用的取消引用函数，例如:

void * dereference(void ** p){ return *p; }

但是，它不起作用。 Tcl 给我类型错误:

TypeError in method 'dereference', argument 1 of type 'void **

如果您想试用我的程序，我会简化我的代码。这是我的 main.cpp:

#include <cstdlib>
#include <vector>
using namespace std;
#include "main.hh"
#include <tcl.h>

std::vector<MyData> MyData::AllTime;            // It seems the place of this statement matters

std::vector<MyData*> getLongTime(int limit) {
    vector<MyData*> longTime;
    for(int i = 0; i <= 3; ++i)
        if (MyData::AllTime[i].getMinute() >= limit )
            longTime.push_back(&MyData::AllTime[i]);
    return longTime;
}

MyData* derefMyData(MyData** p) {return *p;}    // I have to write a dereference function for every class

/// print command, exectue it and print resulte
void print(Tcl_Interp *interp, const char *command) {
    printf("%% %s\n", command);
    Tcl_Eval(interp, command);
    const char *msg = Tcl_GetStringResult(interp);
    if (*msg != '\0')
        printf("%s\n", msg);
}

int main(int argc, char** argv) {
    Tcl_Interp *interp = Tcl_CreateInterp();
    Tcl_Eval(interp, "load ./swig.so swig");
    MyData::AllTime.push_back(MyData(10));
    MyData::AllTime.push_back(MyData(15));
    MyData::AllTime.push_back(MyData(9));

    // set the time exceeding 10 to 10 by tcl function.
    print(interp, "set times [getLongTime 10]");
    print(interp, "foreach t $times { [derefMyData $t] setMinute 10}");

    printf("All times:");
    for(std::vector<MyData>::iterator i = MyData::AllTime.begin(); i != MyData::AllTime.end(); ++i)
        printf("%d ", i->getMinute());
    printf("\n");

    Tcl_DeleteInterp(interp);
    return 0;
}

这是我的main.hh

#ifndef MAIN_HH
#define MAIN_HH

#include <cstdlib>
#include <stdio.h>
#include <vector>
using namespace std;

class MyData{
    int minute;
public:
    MyData(int minute):minute(minute){};
    int getMinute(){return minute;};
    void setMinute(int m){ minute = m; };
    static std::vector<MyData> AllTime;
};

std::vector<MyData*> getLongTime(int limit);
MyData* derefMyData(MyData** p);
#endif /* MAIN_HH */

这是我的饮料.i

/* swig.i */
 %module swig
 %{
#include "main.hh"
 %}
%include "std_vector.i"
namespace std {
    %template(myDataVector) std::vector<MyData *>;
}

class MyData{
public:
    MyData(int minute);
    void setMinute(int m);
};

extern std::vector<MyData*> getLongTime(int limit);
extern MyData* derefMyData(MyData** p);

这是我的编译命令

swig -c++ -tcl swig.i
g++ -fpic -c main.cpp swig_wrap.cxx 
g++ -shared main.o swig_wrap.o -o swig.so ;# I don't need to compile with main.o in my original program.
g++ main.o -o swig.out -g -I/usr/local/include -L/usr/local/lib -ltcl8.5
setenv LD_LIBRARY_PATH /usr/local/lib:/usr/local/lib
./swig.out

这是输出:

% set times [getLongTime 10]
_30a8620000000000_p_p_MyData _80bb620000000000_p_p_MyData
% foreach t $times { [derefMyData $t] setMinute 10}
All times:10 10 9 

对了，简化程序报告* glibc detected *
我不知道如何修复它。
还好我的原程序没问题。
如果有人知道如何修复它。请告诉我。

我的 SWIG 版本:1.3.29
我的gcc版本:4.5.2

Answer 1

我认为问题在于您没有 MyData * 的 SWIG 类型映射而只是为了 MyData (或者可能是 &MyData ；我的 C++ 有点不稳定)。这使得 SWIG 生成的代码不符合您的预期； _30a8620000000000_p_p_MyData是从 longTime 复制的值中单元格的句柄局部变量，因此句柄的映射类型是指向单元格内容的指针，即 MyData ** .

如果返回 const vector<MyData *>，您可能会得到更好的结果.这在 Tcl 方面肯定更有意义，因为值本身实际上是恒定的。我不知道 SWIG 是否足够聪明，可以利用它。您可能必须自己编写类型映射代码(只有当您的实际代码比这长得多时才有意义)。