ns2 - How to get routing agent (AODV agent)

3가지 방법이 있다.

1. agent 간에 패킷에 해당 객체의 주소를 넣어 주고 받는다.

(high complexity)

 2. cc 코드 상에서 실행.

MyAgent.cc

class MyAgent: public Agent{

..

void get_aodv( void );

};

void MyAgent::get_aodv( void ){

   Tcl& tcl=Tcl::instance();

   sprintf( tcl.buffer(),"$node_(%d) set ragent_",addr() ); 

   // TCL 코드상에서 $node_(번호)라는 변수가 선언이 되어야 한다.

   tcl.eval();

   AODV* agent = (AODV*)TclObject::lookup(tcl.result());

   agent->hello();

}

Tcl 스크립트상에서 $node_(번호)라는 변수와 위의 함수내에 굵게 처리한 부분과 일치해야하며,

변수의 %d 부분과 자신의 주소(addr())이 동일해야 동작한다.

(한마디로 low scalability이다. -_-;)

3. Tcl 스크립트와 연동하여 사용. (Recommendable)

Myagent.cc

class MyAgent: public Agent{

..

AODV* agent_;

};

void MyAgent::command(int argc, ...... ){

   Tcl& tcl=Tcl::instance();

   ...

   if( argc == 2 ) {

     if( strcasecmp(argv[1], "start" ) == 0) {

         ....

      }

   }

   else if( argc == 3) {

      if( strcasecmp(argv[1], "get-aodv" ) == 0){

         agent = (AODV*)TclObject::lookup(argv[2]);

         return TCL_OK;

      }

     else if ( 

           .........

   }

   ...

}

simulation.tcl 에서 

...

set var(rp)     AODV

...

$ns_ node-config -adhocRouting $val(rp) \

...

for {set i 0} {$i < 5 } {incr i} {

 set node_($i) [$ns node_]

 set p_($i) [new Agent/Protoname]

 $ns_ attach-agent $node_($i) $p_($i)

}

for {set i 0} {$i < 5 } {incr i} {

 set ra [$node_($i) set ragent_] ;#1

 $ns_ at 4.5 "$p_($i) get-aodv $ra" ;#2

 $ns_ at 5.0 "$p_($i) start";

}

....

#1.

Tcl 문법에서 클래스의 멤버변수에 값을 할당하기 위해 <인스턴스 set 변수 세팅할_값> 순서로 스크립팅한다. 세팅할_값 을 생략하면 그 변수가 가지고 있는 값을 리턴하는 것이 Tcl 문법인것 같다.(추측 ;) 

#2 

<#1>실행으로 획득한 Tcl 변수 ra의 값은 특정 TclObject를 간접적으로 가리키는 유일한 스트링 값이다. (포인터 처럼 직접적으로 가리키진 않음)

언더바+문자+숫자, 예를 들어 _o17 이런식으로 이루어져있다.