在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文件。

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