hi all,
i am trying to execute "ns tcl/ex/swp.tcl".
i am getting error like this.
[EMAIL PROTECTED] ex]# ns swp.tcl
couldn't read file "timer.tcl": no such file or directory
while executing
"source.orig timer.tcl"
("uplevel" body line 1)
invoked from within
"uplevel source.orig [list $fileName]"
invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig [list $fileName]
..."
(procedure "source" line 8)
invoked from within
"source timer.tcl"
(file "swp.tcl" line 1)
==> So, I found timer.tcl in mcast and mobility. copied from mcast directory
[EMAIL PROTECTED] ex]# cp ../mcast/timer.tcl .
[EMAIL PROTECTED] ex]# ns swp.tcl
n0=0
n1=1
n2=2
n3=3
wrong # args: should be "_o83 self class proc ns"
(Object next line 1)
invoked from within
"$self next"
(procedure "_o83" line 2)
(Object next line 2)
invoked from within
"_o83 next"
("eval" body line 1)
invoked from within
"eval $self next $args"
(procedure "_o83" line 2)
(Object next line 2)
invoked from within
"$self next"
(procedure "_o83" line 2)
(Sender init line 2)
invoked from within
"_o83 init "
(Class create line 1)
invoked from within
"Sender create _o83 "
invoked from within
"catch "$className create $o $args" msg"
invoked from within
"if [catch "$className create $o $args" msg] {
if [string match "__FAILED_SHADOW_OBJECT_" $msg] {
delete $o
return ""
}
global errorInfo
error "class $..."
(procedure "new" line 3)
invoked from within
"new Sender"
invoked from within
"set sndr [new Sender]"
(file "swp.tcl" line 114)
Please, help me to correct this problem.
Give me some guidelines for the same.
regards,
stp.
