ns-2.33에 NOAH (NO AdHoc Routing) 사용할 때 오류 발생할 경우

ns-2.31까지는 문제 없이 사용하다가 ns-2.33에서 noah(http://icapeople.epfl.ch/widmer/uwb/ns-2/noah/) 추가하고 사용하려 하니(make 까지는 오류 없이 됨) 다음과 같은 tcl 오류 발생

[ooos@netlab 8-31]$ ~/ns-allinone-2.33/bin/ns smac-chain.tcl 10 1 10
--- parameters ------------------
nn = 10
cbrrate = 1
dutyCycle = 10
---------------------------------
num_nodes is set 10
   (_o3 cmd line 1)
    invoked from within
"_o3 cmd create-noah-agent _o14"
    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 "_o3" line 2)
    (SplitObject unknown line 2)
    invoked from within
"$self create-noah-agent $node"
    ("NOAH" arm line 2)
    invoked from within
"switch -exact $routingAgent_ {
NOAH {
set ragent [$self create-noah-agent $node]
}
DSDV {
set ragent [$self create-dsdv-agent $node]
}
DSR {
$self at ..."
    (procedure "_o3" line 14)
    (Simulator create-wireless-node line 14)
    invoked from within
"_o3 create-wireless-node"
    ("eval" body line 1)
    invoked from within
"eval $self create-wireless-node $args"
    (procedure "_o3" line 23)
    (Simulator node line 23)
    invoked from within
"$ns_ node"
    ("for" body line 3)
    invoked from within
"for {set i 0} {$i < $val(nn) } {incr i} {
               set node_($i) [$ns_ node]

                $node_($i) random-motion 0              ;# disable random motion
                   set cmd "[$nod..."
    (file "smac-chain.tcl" line 176)

 

확인해 봐야 되겠지만
우선 다음과 같이 해결함 (오류 없이 돌아감, 그 이상은 아직 확인 안 해 봄)

noah를 추가할 때, ns/tcl/lib/ns-lib.tcl에 다음을 추가하게 되는데

Simulator instproc set-noah-agent { node }   {
...
}

 

이 부분을 다음과 같이 변경(set을 create로) 한 후 다시 make

Simulator instproc create-noah-agent { node }   {
...
}