在网上查询ns2跨层设计后,发现最有用的莫过于SEASON29问里的第28答了,里面介绍了路由层如何访问MAC层信息(见附录),
在 tcl 脚本中初始化:
set rt($i) [$node_($i) agent 255] # 获得路由层协议
$rt($i) set-mac [$node_($i) set mac_(0)] #初始化 mac 对象
其中255是端口号,agent 255代表是路由代理,不适合DSR协议;而mac_(0)中的0是单信道的意思。
对于其他层之间信息的访问(例如,MAC访问队列,MAC访问路由,TCP访问MAC,TCP访问队列等等),道理都是 类似的,只要讲相应的名称调换,即可。
aodv、 tora ---> agent 255
dsr ---> dsr_agent_($t)
ll --->ll_($t)
interface --->netif_($t)
mac ---> mac_($t)
arp ---> arptable_($t)
其中,$t应该是用在多信道情况 时,一般情况默认为0(单信道)。
例如:从MAC层访问队列的信息
set mymac($i) [$node_($i) set mac_(0)]
$mymac set-que [$node_($i) set ifq_(0)]
其他的同理即可。
注意:TCP进行跨层时,tcl中的定义必需放在tcp绑定节点之后。
eg:set tcp [new Agent/TCP]
$ns_ attach-agent $node_(0) $tcp
$tcp set-route [$node_(0) set dsragent_(0)] //tcp访问dsr层信息;
$tcp set-route [$node_(0) set agent 255] //tcp访问路由层(except dsr)信息;
$tcp set-mac [$node_(0) set mac_(0)] //tcp访问mac层信息;
$tcp set-ifq [$node_(0) set ifq_(0)] //tcp访问队列信息;
附录:(season29问第28答)
怎样在任意层访问下层的信息(包括 netif,mac,ifq,ll 等)
以 aodv 中访问 mac 为例,
1。在 aodv.h 中增加头文件
#include "mac/mac-802_11.h"
在 AODV 类里面声明
Mac802_11 * mymac;
2。修改 command()函数,增加以下代码
int
AODV::command(int argc, const char*const* argv) {
。。。
。。。
else if(argc == 3) {
if(strcmp(argv[1], "index") == 0) {
index = atoi(argv[2]);
return TCL_OK;
}//add by season
else if (strcmp(argv[1], "set-mac") == 0)
{
mymac = (Mac802_11 *) TclObject::lookup(argv[2]);
if (mymac == 0)
{
fprintf(stderr, "MESPAgent: %s lookup %s failed./n", argv[1], argv[2]);
return TCL_ERROR;
}
else
{
//test
printf("Get Node mac bss_id:%d /n", mymac->bss_id());
// fprintf(stderr, "Get Node address ./n", nodeID);
return TCL_OK;
}
}
。。。
。。。
}
3。在 tcl 脚本中初始化
set rt($i) [$node_($i) agent 255] # 获得路由层协议
$rt($i) set-mac [$node_($i) set mac_(0)] #初始化 mac 对象
4。然后就可以在 AODV 中通过 mymac 对象访问 mac 的信息
原文地址:http://yueyelmm.blog.163.com/blog/static/2981247320091131144420/