ns-2.31下添加MFlood協議
2007-5-15更新
我使用的mflood代碼是《NS與網絡模擬》書中第七章中所用代碼，目前許多人都提供了修正版本，本文以此舊版本爲例，爲了方便大多數添加代碼都靠近AODV的代碼位置.在修改NS的系統Tcl文件中，一個很有用的技巧就是參考NS中已有的代碼，特別注意格式問題
添加/修改源文件
這個mflood文件夾拷到ns-2.31目錄下，aodv也在這個目錄下
mflood文件夾包含以下5個文件：mflood.h, mflood.cc, mflood_packet.h, mflood-seqtable.h, mflood-seqtable.cc
修改~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的修改是爲了綁定分組類型值 和它們的名字，作爲新加類型的數字代碼。
修改~ns/tcl/lib/ns-packet.tcl中，在要激活的分組頭的名字中加入MFLood
foreach prot {
....
AODV # routing protocol for ad-hoc networks
Mflood # add 說明
...
}
MFlood前方是一個製表符和AODV對齊，後邊回車換行就可以了，如有說明請用＃開始，具體參照上方
修改文件~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了
