如何将C++变量插入到TCL脚本程序中？

Question

在NS2中，是否有任何方法将C++变量嵌入到TCL脚本中？例如，在TCL中，像这样设置路由协议，set opt(rt) XXX XXX可以是C++程序中定义的变量，例如

if(CONDITION==1) 

     XXX = "FLOODING";

if(CONDITION==2) 

         XXX = "AODV";

...

Answer 1

最简单的方法是使用Tcl_LinkVar将C++ (std::string不支持)中的char*变量耦合到Tcl。这样，您所要做的就是更改C++变量并调用Tcl_UpdateLinkedVar以允许Tcl注意到变量已经更改。如果没有在变量上设置任何跟踪，则不需要使用Tcl_UpdateLinkedVar，但它们实际上是一种非常常见的机制，因此建议进行调用。请注意，Tcl_UpdateLinkedVar是对Tcl解释器的重入调用；应该注意确保运行的任何跟踪不会触发循环回到代码…中。

// Setup (done once)...
Tcl_LinkVar(interp, "XXX", &XXX, TCL_LINK_STRING|TCL_LINK_READ_ONLY);


// Your code ...
if(CONDITION==1) 
     XXX = "FLOODING";
if(CONDITION==2) 
     XXX = "AODV";
// Notify Tcl ...
Tcl_UpdateLinkedVar(interp, "XXX");

如果您希望Tcl变量XXX的设置更改C++变量XXX，则需要格外小心。放弃使用TCL_LINK_READ_ONLY和确保总是使用ckalloc为XXX中的字符串分配内存(因为Tcl将在设置C++变量时使用匹配的ckfree来处理旧的ckfree)。