Ns2 2.33中添加MFlood协议的一些问题

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

　　

添加/修改源文件

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

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

 

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

在packet_t中，枚举类型被改变为静态的无符号整型变量，因此添加staitc const packet_t PT_MFLOOD = 61；同时修改static packet_t PT_NTYPE=62;

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

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

 

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

　　 foreach prot {

　　 ....

          AODV # routing protocol for ad-hoc networks

　　      Mflood # add 说明

　　 ...

　　 }

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

1. 修改文件~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绑定在一起。同时该方法的代码一定要是这样的，不能按照ADOV协议那样的写法，否则会产生如下的错误：

num_nodes is set 3
INITIALIZE THE LIST xListHead
ns: _o17 start:
    (_o17 cmd line 1)
    invoked from within
"_o17 cmd start"
    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
"_o17 start"

 

　　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.33依次运行命令make clean/make depend/make，如果首先是运行./configure命令，然后再依次运行make clean, make dependk, make，那么在运行了./configure命令之后，记得修改Makefile文件，添加上面的那两个目标文件。

运行例子程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了