在ns2.31下实现MFlood泛洪协议 （2.28同样适用）

这是《NS与网络模拟》第七章的一个例子，展示了安装路由协议的一般流程，不过书上的步骤是针对ns2.26的，在ns2.31下安装需要有些修 改。下面根据网上搜索到的信息和实际操作总结如下：

首先确认已经获得下列文件（随书光盘里有，或者在网上搜索）：
mflood源 码：mflood.cc，mflood.h，mflood-seqtable.cc，mflood-seqtable.h，mflood- packet.h。
mflood测试代码：cbr-50n-30c-1p，scene-50n-0p-40s-400t- 1200-1200，getNodeRecv.awk，getRatio.awk，mflood-3nodes.tcl，mflood- scene.tcl。

1、在ns-2.31目录下建立mflood文件夹，把上述文件统统放进去。

2、修改 ns-lib.tcl（在ns2.31\tcl\lib\）：(红色表示添加部分 )

OMNIMCAST {
    eval $node addr $args
    set ragent [$self create-omnimcast-agent $node]
}
MFlood {
    set ragent [$self create-mflood-agent $node]  
} 
DumbAgent {
    set ragent [$self create-dumb-agent $node]
}
另外在空白处加入：
Simulator instproc create-tora-agent { node } {
    set ragent [new Agent/TORA [$node id]]
    $node set ragent_ $ragent
    return $ragent
}
Simulator instproc create-mflood-agent {node} {
    set ragent [new Agent/MFlood [$node id]]
    $node set ragent_ $ragent
    return $ragent  
}

3、 修改ns-packet.tcl（在 ns2.31\tcl\lib\ ）：

foreach prot {  
    ...
    MFlood
    AODV
    ...
}

4、修改 packet.h（在ns2.31\common\）：

enum packet_t {  
    ⋯⋯
    PT_AODV,
    PT_MFLOOD,
    ⋯⋯
}
p_info() {
    ⋯⋯
    name_[PT_AODV]= "AODV";
    name_[PT_MFLOOD]="MFlood";
    ⋯⋯
}

5、修改 Makefile（在ns2.31\）

在 OBJ_CC 中增加一行：
mflood/mflood.o mflood/mflood-seqtable.o \  

6、在mflood.cc（在 刚建立的文件加ns2.31\mflood\）中加入 ：

        ...
        uptarget_ = (NsObject*)TclObject::lookup(argv[2]);  
        if (uptarget_ == 0) {  
             tcl.resultf("no such object %s", argv[2]);  
             return (TCL_ERROR);  
         }  
        return (TCL_OK);  
        }

        else if (strcasecmp (argv[1], "port-dmux") == 0) {  
             TclObject *obj;  
             port_dmux_ = (NsObject *) obj;  
            return TCL_OK;  
        }
    }  
    return Agent::command(argc, argv);
}

并且修改：
MFlood::MFlood(nsaddr_t id) : Agent(PT_MFLOOD) , port_dmux_(0) {  
    index_ = id;
    logtarget = 0;
    myseq_ = 0;
}

7、 修改 mflood.h（在 ns2.31\mflood\）：

NsObject *uptarget_;
NsObject *port_dmux_;

8、在 ns2.31\下make，可能会有一些warning，不用去管它。

9、测试：(进入mflood\)
a) 测试mflood-3nodes.tcl
ns mflood-3nodes.tcl
输出：
num_nodes is set 3
INITIALIZE THE LIST xListHead
Starting Simulation ...
channel.cc:sendUp - Calc highestAntennaZ_ and distCST_
highestAntennaZ_ = 1.5, distCST_ = 550.0
SORTING LISTS ...DONE!
NS EXITING ...

b)测试mflood- sceen.tcl
首先修改mflood-sceen.tcl文件：（将文件名改成同目录下的scene-50n-0p-40s-400t- 1200-1200）
#set val(sc)             "../scene-50n-0p-2s-400t-1200-1200"
set val(sc)             "scene-50n-0p-40s-400t-1200-1200"
#set val(sc)  "../scene/jscene-50n-0p-2s-400t-1200-1200-1"
然后输入：
ns mflood-sceen.tcl
输出类似上面的，会生成57兆左右的trace文 件。

其他的数据分析应该没什么问题了。