NS2变量绑定之bind()
NS2支持C++变量和Tcl变量的双向绑定,这样,能通过它们访问同一个数据,而对其中一个变量做出了修改,与之绑定的变量也被修改.
NS2支持5种不同的类型:实数(reals)、整数(integers)、时间(timevalued variables)、带宽(bandwidthvalued variables)、布尔(booleans).
如下说明了5中类型的变量的绑定方法:
函数中,参数1指定了Tcl变量的名称，参数2指定了对应的C++变量的地址。
下面，我们跟踪bind函数，来大致了解其工作原理。
在tcl/Tcl.cc文件中，有这样的一段代码,实际上是定义了9个函数
#defineTOB(FUNCTION, C_TYPE, INSTVAR_TYPE, OTHER_STUFF) \
voidTclObject::FUNCTION(const char* var, C_TYPE* val) \
{\
create_instvar(var); \
OTHER_STUFF; \
init(new INSTVAR_TYPE(var, val), var); \
}
TOB(bind, double,InstVarReal, ;)
TOB(bind_bw, double,InstVarBandwidth, ;)
TOB(bind_time,double, InstVarTime, ;)
TOB(bind, int,InstVarInt, ;)
TOB(bind, unsignedint, InstVarUInt, ;)
TOB(bind_bool, int,InstVarBool, ;)
TOB(bind,TclObject*, InstVarTclObject, ;)
TOB(bind, TracedInt,InstVarTracedInt, val->name(var); val->owner(this);)
TOB(bind,TracedDouble, InstVarTracedReal, val->name(var); val->owner(this);)
其中InstVar***都是class InstVar的派生类，例如InstVarReal
class InstVarReal :public InstVar {
public:
InstVarReal(const char* name, double* val)
:InstVar(name), val_(val) {}
constchar* snget(char *wrk, int wrklen) {
if(-1 == snprintf(wrk, wrklen, "%.17g", *val_))
abort();
return(wrk);
}
voidset(const char* s) {
*val_= atof(s);
}
protected:
double*val_;
};
继续看bind函数调用的create_instvar(),定义如下
void
TclObject::create_instvar(constchar* var)
{
/*
* XXX can't use tcl.evalf() because it usesTcl_GlobalEval
* and we need to run in the context of themethod.
*/
charwrk[256];
sprintf(wrk,"$self instvar %s", var);
Tcl_Eval(Tcl::instance().interp(),wrk);
}
注意TclObject类是所有服从分裂对象模型的C++类的基类。可见，该函数执行了Tcl命令：$self instvar name
需要说明的是,instvar{}最初是在otcl_Init()函数(otcl/otcl.c)中被添加的,如下
OTclAddIMethod(theobj,"instvar", (Tcl_CmdProc *) OTclOInstVarMethod, 0, 0);
PS:在TclClass::create_shadow()函数(在创建OTcl对象时被调用)中，也添加了instvar{}
OTclAddPMethod(OTclGetObject(interp,argv[0]), "instvar",
(Tcl_CmdProc *) dispatch_instvar,(ClientData)o, 0);
而且,dispatch_instvar()部分代码跟OTclOInstVarMethod()一样的.但是,该添加操作是在构造TclObject对象之后发生的（create_shadow()调用create()构造了该对象，OTclAddPMethod()在create()之后被调用），而对bind()的调用发生在构造函数中，所以第一次构造TclObject对象时，用的是otcl_Init()添加的OTclOInstVarMethod()。（此处还需验证）
继续看bind()函数中的init(new INSTVAR_TYPE(var, val), var);
首先new了一个新的InstVar***对象，然后调用TclObject::init()
voidTclObject::init(InstVar* v, const char* var)
{
insert(v);
v->init(var);
}
每个TclObject对象维护了一个instvar_链表，记录绑定的变量的信息.
再来看InstVar::init()
voidInstVar::init(const char* var)
{
charwrk[256];
sprintf(wrk,"$self init-instvar %s", var);
if(Tcl_Eval(Tcl::instance().interp(), wrk) != TCL_OK) {
/*XXXcan only happy if TclObject::init-instvar broken */
Tcl::instance().evalf("putsstderr \"init-instvar: $errorInfo\"");
exit(1);
}
}
函数运行Tcl命令 $selfinit-instvar var来初始化变量
init-instvar{}定义在tclcl/embedded-tclobj.cc中
SplitObjectinstproc init-instvar var {
set cl [$self info class]
while { \"$cl\" != \"\" &&\"$cl\" != \"SplitObject\" } {
foreach c $cl {
if ![catch \"$c set $var\" val] {
$self set $var $val
return
}
}
set parents \"\"
foreach c $cl {
if { $cl != \"SplitObject\" && $cl !=\"Object\" } {
set parents \"$parents [$c info superclass]\"
}
}
set cl $parents
}
$self warn-instvar [$self info class]::$var
}
该过检查对象和其所有的父类,找到第一个定义var变量的类,使用该类的变量的值初始化var,大部分的这样的变量定义在tcl/lib/ns-default.tcl中，例如
需要特别注意的是,没修改一次默认值,都需要重新编译NS2,方能使之生效.
在ns2源码目录下的Makefile文件中，
NS_TCL_LIB = \
tcl/lib/ns-compat.tcl \
tcl/lib/ns-default.tcl \
tcl/lib/ns-errmodel.tcl \
tcl/lib/ns-lib.tcl \
......
$(NS_TCL_LIB_STL)
$(GEN_DIR)ns_tcl.cc: $(NS_TCL_LIB)
$(TCLSH) bin/tcl-expand.tcl tcl/lib/ns-lib.tcl $(NS_TCL_LIB_STL) | $(TCL2C) et_ns_lib > $@
(原以为,Tcl脚本会被ns程序解释的,原来是被链接进去了)
如果没有指定默认值,在Tcl中new的时候,会打印警告信息,但是不会影响程序执行(还没有发现什么问题)
PS:set{}也是定义在tclcl/embedded-tclobj.cc中，
注意看$self instvar -parse-part1 $var，再次调用了instvar。奇怪的是，OTclOInstVarMethod()没有对-parse-part1选项的处理操作，而在dispatch_instvar()则有相应的处理。(已经用eclipse搜索了pare-part1,只在dispatch_instvar()找到)