向NS2中添加新的无线移动网络路由协议

按照[1]所述，添加新的路由协议之后，很多人问为什么总有“debug_”未定义的错误？这主要是因为没有将移动节点的新路由协议与队列关联起来。关联的过程实际上就是路由协议类通过 TclObject::lookup()获得队列的指针。

1．Packet type declaration

common/packet.h

1: enum packet_t {

2:   PT_TCP,

3:   PT_UDP,

4:   PT_CBR,

5:   /* ... much more packet types ... */

6:   PT_PROTONAME,

7:   PT_NTYPE // This MUST be the LAST one

8: };

common/packet.h

1: p_info() {

2:   name_[PT_TCP]= "tcp";

3:   name_[PT_UDP]= "udp";

4:     name_[PT_CBR]= "cbr";

5:   /* ... much more names ... */

6:   name_[PT_PROTONAME]= "protoname";

7: }

 

2．Tracing support

trace/cmu-trace.h

1: class CMUTrace :public Trace {

2:   /* ... definitions ... */

3: private:

4:   /* ... */

5:   void format_aodv(Packet *p, int offset);

6:   void format_protoname(Packet *p, intoffset);

7: };

trace/cmu-trace.cc

1: #include

2:

3: /* ... */

4:

5: void

6:CMUTrace::format_protoname(Packet *p, int offset)

7: {

8:   struct hdr_protoname_pkt* ph =HDR_PROTONAME_PKT(p);

9:

10: if (pt_->tagged()) {

11:           sprintf(pt_->buffer() + offset,

12:           "-protoname:o %d -protoname:s%d -protoname:l %d ",

13:           ph->pkt_src(),

14:           ph->pkt_seq_num(),

15:           ph->pkt_len());

16: }

17: else if (newtrace_) {

18:           sprintf(pt_->buffer() + offset,

19:           "-P protoname -Po %d -Ps %d -Pl %d ",

20:           ph->pkt_src(),

21:           ph->pkt_seq_num(),

22:           ph->pkt_len());

23: }

24: else {

25:           sprintf(pt_->buffer() + offset,

26:           "[protoname %d %d %d] ",

27:           ph->pkt_src(),

28:           ph->pkt_seq_num(),

29:           ph->pkt_len());

30: }

31: }

trace/cmu-trace.cc

1: void

2:CMUTrace::format(Packet* p, const char *why)

3: {

4:   /* ... */

5:   case PT_PING:

6:   break;

7:

8:   case PT_PROTONAME:

9:   format_protoname(p, offset);

10: break;

11:

12: default:

13: /* ... */

14: }

 

3．Tcl library

tcl/lib/ns-packet.tcl

1: foreach prot {

2:   Protoname

3:   AODV

4:   ARP

5:   # ...

6:   NV

7: } {

8:   add-packet-header $prot

9: }

tcl/lib/ns-default.tcl

1: # ...

2: # Defaults definedfor Protoname

3: Agent/Protoname setaccessible_var_ true

tcl/lib/ns-lib.tcl

1: Simulator instproccreate-wireless-node args {

2:   # ...

3:   switch -exact $routingAgent_ {

4:             Protoname {

5:                      set ragent [$selfcreate-protoname-agent $node]

6:             }

7:             # ...

8:   }

9:   # ...

10: }

tcl/lib/ns-lib.tcl

1: Simulator instproccreate-protoname-agent{ node } {

2:   # Create Protoname routing agent

3:   set ragent [new Agent/Protoname [$nodenode-addr]]

4:   $self at 0.0 "$ragent start"

5:   $node set ragent_ $ragent

6:   return $ragent

7: }

ns-mobilenode.tcl

1: Node/MobileNodeinstproc add-target{ agent port } {

2: #...

3: #Special processing forProtoname

4: setProtonameonly [string first "Protoname" [$agent info class]]

5: if{$Protonameonly!= -1 } {

6:    $agentif-queue [$self set ifq_(0)]  ;# ifqbetween LL and MAC

7: }

8: #...

9: }

 

4．Priority queue

queue/priqueue.cc

1: void

2:PriQueue::recv(Packet *p, Handler *h)

3: {

4:   struct hdr_cmn *ch = HDR_CMN(p);

5:

6:   if (Prefer_Routing_Protocols) {

7:

8:             switch(ch->ptype()) {

9:                      case PT_DSR:

10:                    case PT_MESSAGE:

11:                    case PT_TORA:

12:                    case PT_AODV:

13:                    case PT_PROTONAME:

14:                             recvHighPriority(p,h);

15:                             break;

16:

17:                    default:

18:                             Queue::recv(p, h);

19:           }

20: }

21: else {

22:           Queue::recv(p, h);

23:   }

24: }

 

5．Makefile

Makefile

1: OBJ_CC =

2:   tools/random.o tools/rng.o tools/ranvar.ocommon/misc.o common/timer-handler.o

3:   # ...

4:   protoname/protoname.oprotoname/protoname_rtable.o

5:   # ...

6:     $(OBJ_STL)

References:

[1]Implementing a New Manet Unicast Routing Protocol in NS2