ns2.30下添加mflood源码

一、需要的mflood源码：mflood.cc，mflood.h，mflood-seqtable.cc，mflood-seqtable.h，mflood-packet.h

二、具体过程：

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

2、 修改 ns-lib.tcl（在ns2.30/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
}

（上面的部分原来的书里面没有，在测试时发现ns node生成时出错，因此按照这里修改了以上部分）
Simulator instproc create-mflood-agent {node} {
    set ragent [new Agent/MFlood [$node id]]
    $node set ragent_ $ragent
    return $ragent
}

3、修改ns-packet.tcl（在ns2.30/tcl/lib/ ）：

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

4、修改 packet.h（在ns2.30/common/）：

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

5、修改 Makefile（在ns2.30/）

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

6、在mflood.cc（在刚建立的文件加ns2.30/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.30/mflood/）：

NsObject *uptarget_;
NsObject *port_dmux_;

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