我使用的 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
- 修改~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的修改是為了綁定分組類型值 和它們的名字,作為新加類型 的數字代碼。
- 修改~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綁定在一起。同時該方法的代碼一定要是這樣的,不能按照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 +空格+ / +回車
2 重新編譯
在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了