向SWIG生成的Tcl模块添加自定义Tcl过程？

Question

我正在尝试使用SWIG将旧的Tcl接口替换为C。下面是一个示例类：

class test {
  std::string str;
 public:
  test(const char * s):str(s) {}
  void print() const {std::cout << str << std::endl;}
};

这是使用它的标准方法：

load ./example.so example
test s "this is a test string"
s print

但我想保留旧界面的简单性，它不使用“”。我发现我可以做如下事情：

load ./example.so example

proc TEST {args} { test [lindex $args 0] [lrange $args 1 end] }

TEST s2 this is another test string
s2 print

它看起来很简单，工作完美，但是，当然，我不能在用户脚本中使用proc定义。我不确定还能把它放在哪里。有办法把它放在. i文件中吗？

Answer 1

我想你可以把这个放进你的。i文件：

%init %{
    Tcl_Eval(interp, "proc TEST {args} { ... }");
%}

这将插入对Tcl_Eval的调用（这将使过程）到您的模块的初始化函数中，并且只要interp上下文在那里可用（警告！检查这个！）然后你会得到一切很好的打包。

如果你有很多代码，考虑调用Tcl_EvalFile来代替，或者调用Tcl代码，它将source脚本代码（如果你需要复杂的脚本来定位要读取的文件，这是必要的）。