第一类接口：
tcl中的语句：
set chan($j) [new WimshChannel]
c++对应的语句：
1.定义WimshChannel类
class WimshChannel:public TclObject {};
2.做好两层的接口
static class WimshChannelClass : public TclClass {
public:
WimshChannelClass() : TclClass("WimshChannel") {}
TclObject* create(int, const char*const*) {
return (new WimshChannel);
}
} class_wimsh_channel;
第二类接口：
tcl中的语句：
$chan($j) topology $topo
c++中对应的语句：
int WimshChannel::command(int argc, const char*const* argv)
if ( argc == 3 && strcmp (argv[1], "topology") == 0 ) {
topology_ = (WimshTopologySimple*) TclObject::lookup(argv[2]);
return TCL_OK;
}
第三类接口：
tcl中对应的语句：
Mac/802_11e set basicRate_ 1Mb
c++中对应的语句：
Tcl& tcl = Tcl::instance();
tcl.evalf("Mac/802_11e set basicRate_");
if (strcmp(tcl.result(), "0") != 0)
bind_bw("basicRate_", &basicRate_);
else
basicRate_ = bandwidth_;
