NS技巧--怎样在C++代码里面调用tcl函数

例如要在Agent/MFlood C++类中调用tcl的Agent/MFlood类中的方法,具体如下：

1．在你的TCL脚本中定义下列过程

Agent/MFlood instproc putargs {} {

    puts " ^^^^^^^^^^^^^^^^^^^^^^^^^^^^"

}

2．然后在c++类中如下方式调用

  char out[100];

sprintf(out, "%s putargs", name());

Tcl& tcl = Tcl::instance();    

tcl.eval(out);//调用函数。

3．应用举例

  例如在C++代码中需要调用CBR数据流，调用的场景如果网络中的node0节点向node1节点发送了一个资源请求信息，则节点node1向节点node0发送一个持续30庙的cbr数据流，只需要在node0的代理里面调用下列过程即可，

 下面函数的含义是：在starttm时刻本节点（node0）向节点node($args)发送了一个持续时间为30秒的CBR数据流

Agent/MFlood instproc putargs {args starttm} {

global ns_ tracefd 

 $self instvar node_

puts "CBR START^_^1 at $starttm node[$node_ id] send a cbr to node$args"

set udp_(0) [new Agent/UDP]

$ns_ attach-agent $node_ $udp_(0)

set null_(0) [new Agent/Null]

# $ns_ attach-agent $node_($args) $null_(0)

$ns_ connect $udp_(0) $null_(0)

set cbr_(0) [new Application/Traffic/CBR]

$cbr_(0) set packetSize_ 512

$cbr_(0) set interval_ 4.0

$cbr_(0) set random_ 1

$cbr_(0) set maxpkts_ 10000

$cbr_(0) attach-agent $udp_(0)

$ns_ at $starttm "$cbr_(0) start"

$ns_ at [expr $starttm+30.0 ] "$cbr_(0) stop"

}