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

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页