I am simulating cluster based routing protocol in ns2.. but when i run my
TCL code, I get the followin error :
(_o17 cmd line 1)
invoked from within
"_o17 cmd if-queue _o20"
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 "_o17" line 2)
(SplitObject unknown line 2)
invoked from within
"$agent if-queue [$self set ifq_(0)] "
(procedure "_o14" line 23)
(Node/MobileNode add-target line 23)
invoked from within
"$self add-target $agent $port"
(procedure "_o14" line 15)
(Node attach line 15)
invoked from within
"$node attach $ragent [Node set rtagent_port_]"
(procedure "_o3" line 75)
(Simulator create-wireless-node line 75)
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 2)
invoked from within
"for {set i 0} {$i < $opt(nn)} {incr i} {
set node_($i) [$ns_ node]
$node_($i) random-motion 0 ;#disable random motion
}"
I checked ns-default.tcl and ns-lib.tcl but could not find the error.. Same
code written for AODV and DSDV in ns-lib works ..Please help.. Thanks
--
Hitesh Sharma
Department of Electronics and Computer
IIT Roorkee
Roorkee - 247667 , Uttarakhand
India
