在网上查询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/