新增或修改NS2的核心模块

這個章節最主要的目的就是希望使用者可以學會如何新增或修改ns2的核心模組，更明確的說就是去新增和修改[*.cc, *.h]檔案，以筆者和筆者朋友學習ns2的經驗來說，這需要花很多時間和很大的勇氣，時間是花來找資料，勇氣是用來承受當程式寫不好時，ns2可能隨時會當掉。

不過別怕，只要跟著筆者所介紹的方法，一定可以成功，若是不成功，就寫信給筆者吧。

若是一開始就要叫ns2的新手去增加的模組，新手一定會哇哇叫，所以筆者不會這樣做，筆者先教大家拷貝ns2已經有的模組檔，但改成別的名字，這樣就可以輕鬆且很明確知道該如何增加模組。

(1)(1)打開cygwin的命令視窗，把路徑切換到queue的目錄下。

cd ns-allinone-2.27/ns-2.27/queue(2)(2)拷貝drop-tail.[cc, h]到myfifo.[cc.h]。

cp cp drop-tail.h myfifo.h(3)(3)使用文字編輯軟體去修改myfifo.h和。

(因為我們的環境是在windows下，所以建議可以使用ultra-edit來修改。

a. a.先修改myfifo.h，使用取代的功能把所有DropTail改成myfifo，另外，把drop_tail改成myfifo。

#ifndef ns_myfifo_h#define ns_myfifo_h#include <string.h>#include "queue.h"#include "config.h"/** A bounded, drop-tail queue*/class myfifo : public Queue {public:myfifo() {q_ = new PacketQueue;pq_ = q_;bind_bool("drop_front_", &drop_front_);bind_bool("summarystats_", &summarystats);bind_bool("queue_in_bytes_", &qib_); // boolean: q in bytes?bind("mean_pktsize_", &mean_pktsize_);// _RENAMED("drop-front_", "drop_front_");}~myfifo() {delete q_;}protected:void reset();int command(int argc, const char*const* argv);void enque(Packet*);Packet* deque();void shrink_queue(); // To shrink queue and drop excessive packets.PacketQueue *q_; /* underlying FIFO queue */int drop_front_; /* drop-from-front (rather than from tail) */int summarystats;void print_summarystats();int qib_; /* bool: queue measured in bytes? */int mean_pktsize_; /* configured mean packet size in bytes */};#endifb. b.再修改，使用取代的功能把所有DropTail改成myfifo，另外，把drop_tail改成myfifo和drop-tail改成myfifo。

#include "myfifo.h"static class myfifoClass : public TclClass {public:myfifoClass() : TclClass("Queue/myfifo") {}TclObject* create(int, const char*const*) {return (new myfifo);}} class_myfifo;void myfifo::reset(){Queue::reset();}int myfifo::command(int argc, const char*const* argv) {if (argc==2) {if (strcmp(argv[1], "printstats") == 0) {print_summarystats();return (TCL_OK);}if (strcmp(argv[1], "shrink-queue") == 0) {shrink_queue();return (TCL_OK);}}if (argc == 3) {if (!strcmp(argv[1], "packetqueue-attach")) {delete q_;if (!(q_ = (PacketQueue*) TclObject::lookup(argv[2])))return (TCL_ERROR);else {pq_ = q_;return (TCL_OK);}}}return Queue::command(argc, argv);}/** drop-tail*/void myfifo::enque(Packet* p){if (summarystats) {Queue::updateStats(qib_?q_->byteLength():q_->length());}int qlimBytes = qlim_ * mean_pktsize_;if ((!qib_ && (q_->length() + 1) >= qlim_) ||(qib_ && (q_->byteLength() + hdr_cmn::access(p)->size()) >= qlimBytes)){ // if the queue would overflow if we added this packet...if (drop_front_) { /* remove from head of queue */q_->enque(p);Packet *pp = q_->deque();drop(pp);} else {drop(p);}} else {q_->enque(p);}}//AG if queue size changes, we drop excessive packets...void myfifo::shrink_queue(){int qlimBytes = qlim_ * mean_pktsize_;if (debug_)printf("shrink-queue: time %5.2f qlen %d, qlim %d\n",Scheduler::instance().clock(),q_->length(), qlim_);while ((!qib_ && q_->length() > qlim_) ||(qib_ && q_->byteLength() > qlimBytes)) {if (drop_front_) { /* remove from head of queue */Packet *pp = q_->deque();drop(pp);} else {Packet *pp = q_->tail();q_->remove(pp);drop(pp);}}}Packet* myfifo::deque(){if (summarystats && &Scheduler::instance() != NULL) {Queue::updateStats(qib_?q_->byteLength():q_->length());}return q_->deque();}void myfifo::print_summarystats(){//double now = Scheduler::instance().clock();printf("True average queue: %5.3f", true_ave_);if (qib_)printf(" (in bytes)");printf(" time: %5.3f\n", total_time_);}(4)(4)修改ns-default.tcl檔，設定初始內定值。

a. a.cd ns-allinone-2.27/ns-2.27/tcl/lib/b. b.使用文字編輯軟體打開ns-default.tclc. c.使用搜尋的功能找到Queue/DropTaild. d.把每個初始設定值都再設一份給Queue/myfifo……………………………………………..Queue/DropTail set drop_front_ falseQueue/DropTail set summarystats_ falseQueue/DropTail set queue_in_bytes_ falseQueue/DropTail set mean_pktsize_ 500Queue/myfifo set drop_front_ falseQueue/myfifo set summarystats_ falseQueue/myfifo set queue_in_bytes_ falseQueue/myfifo set mean_pktsize_ 500……………………………………………..(5)(5)修改Makefile，把myfifo.o加入OBJ_CC內，並重新編譯。

a. a.使用文字編輯軟體打開ns-allinone-2.27/ns-2.27目錄下的Makefileb. b.使用搜尋找到drop-tail.o。

c. c.在drop-tail.o後面加上queue/myfifo。

……………………………………………..tools/flowmon.o tools/loss-monitor.o \queue/queue.o queue/drop-tail.o queue/myfifo.o \adc/simple-intserv-sched.o queue/red.o \……………………………………………d. d.重新編譯。