ns-2.31 下实现 mflood协议的添加

ns-2.31下添加MFlood协议

作者：lzqlgq@gmail.com

2007-5-15更新

我使用的mflood代码是《NS与网络模拟》书中第七章中所用代码，目前许多人都提供了修正版本，本文以此旧版本为例，为了方便大多数添加代码都靠近AODV的代码位置.在修改NS的系统Tcl文件中，一个很有用的技巧就是参考NS中已有的代码，特别注意格式问题

　　

添加/修改源文件

1. 这个mflood文件夹拷到ns-2.31目录下，aodv也在这个目录下

mflood文件夹包含以下5个文件：mflood.h, mflood.cc, mflood_packet.h, mflood-seqtable.h, mflood-seqtable.cc

2. 修改~ns/common/packet.h这个文件，一共要改两个地方。

在这个枚举类型中的PT_AODV的下一行加入PT_MFLOOD,前方请使用一个制表符（Tab健）和PT_AODV对齐，并且后边紧跟一个逗号，这个枚举类型中的最后一个应当为PT_NTYPE，这个是不能变的，不过不在最后面添加就好了

　　 在结构class p_info { ... 中，找到name[PT_AODV]="AODV";在其后面加入         

           name_[PT_MFLOOD]= "MFlood" ; 前方用两个制表符和上面对齐，后边用分号结尾，对于p_info的修改是为了绑定分组类型值 和它们的名字，作为新加类型的数字代码。

3. 修改~ns/tcl/lib/ns-packet.tcl中，在要激活的分组头的名字中加入MFLood

　　 foreach prot {

　　 ....

          AODV # routing protocol for ad-hoc networks

　　 Mflood # add 说明

　　 ...

　　 }

MFlood前方是一个制表符和AODV对齐，后边回车换行就可以了，如有说明请用＃开始，具体参照上方

4. 修改文件~ns/tcl/lib/ns-lib.tcl,在Simulator类的create-wireless-node成员函数（这个函数的定义为Simulator instproc create-wireless-node args）中加入下面的代码：

　　 switch -exact $routingAgent_ {

　　 #这里是不同的协议的初始化函数，以下为加入代码

　　     MFlood {

　　              set ragent [$self create-mflood-agent $node]

　　 }

　　 这个表示当无线移动节点指定跌幅协议为MFlood的时候，将会调用create-mflood-agent成员函数来进行初始化。

然后我们在~ns/tcl/lib/ns-lib.tcl文件中定义create-mflood-agent成员函数，代码如下：

　　 Simulator instproc create-mflood-agent { node } {

　　     set ragent [new Agent/MFlood [$node id]]

　　     $node set ragent_ $ragent

　　     return $ragent

　　 }

这里注意，set前请使用制表符对齐，否则可能发生错误如下：

invalid command name "　　"

while executing

"　　 set ragent [new Agent/MFlood [$node id]]"

　　从create-mflood-agent这个函数的定义中可以看到，创建了Agent/MFlood的一个对象，这个对象最后将和某一个移动节点$node绑定在一起。

　　5、在makefile文件中（~ns这个目录下），的OBJ_CC变量的定义中增加下面这行

　　aodv/aodv_logs.o aodv/aodv.o /

aodv/aodv_rtable.o aodv/aodv_rqueue.o /

aomdv/aomdv_logs.o aomdv/aomdv.o /

aomdv/aomdv_rtable.o aomdv/aomdv_rqueue.o /

mflood/mflood.o mflood/mflood-seqtable.o /

common/ns-process.o /

注意格式： 制表符＋mflood/mflood.o mflood/mflood-seqtable.o ＋空格＋ / ＋回车

重新编译

在shell中进入目录ns-2.31依次运行命令make clean/make depend/make

运行例子程mflood-3node.tcl会出现错误的提示

　

INITIALIZE THE LIST xListHead

(_o17 cmd line 1)

invoked from within

"_o17 cmd port-dmux _o26"

invoked from within

"catch "$self cmd $args" ret"

invoked from within

"if [catch "$self cmd $args" ret] {

set cls [$self info class]

global errorInfo

set savedInfo $errorInfo

error "error when calling class $cls: $args" $..."

(procedure "_o17" line 2)

(SplitObject unknown line 2)

invoked from within

"$agent port-dmux $dmux_"

(procedure "_o14" line 11)

(Node/MobileNode add-target-rtagent line 11)

invoked from within

"$self add-target-rtagent $agent $port"

(procedure "_o14" line 23)

(Node/MobileNode add-target line 23)

invoked from within

"$self add-target $agent $port" //$self 调用类似于动态运行时

(procedure "_o14" line 15)

(Node attach line 15)

《attach 函数15行果然是"$self add-target $agent $port" ，计算行数不算注释，空格要算》

invoked from within

"$node attach $ragent [Node set rtagent_port_]" 此时 "$ node = = _o14"

(procedure "_o3" line 75)

(Simulator create-wireless-node line 75)

invoked from within

"_o3 create-wireless-node" // _o3 是Simulaor的

("eval" body line 1)

invoked from within

"eval $self create-wireless-node $args" #$self = = "-o3"

(procedure "_o3" line 23)

(Simulator node line 23)

invoked from within

"$ns_ node"

("for" body line 2)

invoked from within

"for {set i 0} {$i < $val(nn) } {incr i} {

set node_($i) [$ns_ node]

$node_($i) random-motion 0;

}"

(file "mflood-3nodes.tcl" line 61)

怎样分析错误所在处请见文档《错误分析》

解决办法如下：<红色字体为添加内容>

第一：在mflood.cc中，修改command这个函数：

MFlood::command(int argc, const char*const* argv) {

... ..............................

　　else if (strcmp(argv[1], "uptarget") == 0) {

                if (*argv[2] == '0') {

                target_ = 0;

                return (TCL_OK);

       }

        uptarget_ = (NsObject*)TclObject::lookup(argv[2]);

        if (uptarget_ == 0) {

        tcl.resultf("no such object %s", argv[2]);

         return (TCL_ERROR);

          }

            return (TCL_OK);

       }

//add by lzqlgq

    else if (strcasecmp (argv[1], "port-dmux") == 0) {

        TclObject *obj;

        port_dmux_ = (NsObject *) obj;

        return TCL_OK;

    }　　

//end

... ..............................

}

第二：修改mflood的构造函数,

　　MFlood::MFlood(nsaddr_t id) : Agent(PT_MFLOOD), port_dmux_(0) {

index_ = id;

logtarget = 0;

myseq_ = 0;

}

　　

第三：修改mflood.h这个文件

　　 MFlood_RTable rtable_;

　　 Trace *logtarget;

　　 NsObject *uptarget_;

　　 NsObject *port_dmux_;

　　private:

　　 u_int32_t myseq_;

　　};

　

这样就OVER了