Hello everyone,
I hav added a new tcp agent named TCPPR. i hav done make successfully. But i m
getting following errors in my tcl script named testpr.tcl
[EMAIL PROTECTED] ex]# ns testpr.tcl
invalid command name "Agent/TCP/PR"
while executing
"Agent/TCP/PR create _o36 "
invoked from within
"catch "$className create $o $args" msg"
(procedure "new" line 3)
invoked from within
"new Agent/TCP/PR"
invoked from within
"set tcp [new Agent/TCP/PR]"
(file "testpr.tcl" line 18)
[EMAIL PROTECTED] ex]#
-----------------------------------
My tcl script named testpt.tcl is as follows
set ns [new Simulator]
$ns color 0 blue
$ns color 1 red
set n0 [$ns node]
set n1 [$ns node]
set f [open out.tr w]
$ns trace-all $f
set nf [open out.nam w]
$ns namtrace-all $nf
$ns duplex-link $n0 $n1 5Mb 2ms DropTail
#$ns duplex-link-op $n0 $n1 queuePos 0.5
set tcp [new Agent/TCP/PR]
$ns attach-agent $n0 $tcp
set sink [new Agent/TCPSink]
$ns attach-agent $n1 $sink
$ns connect $tcp $sink
set ftp [new Application/FTP]
$ftp attach-agent $tcp
$ns at 1.2 "$ftp start"
$ns at 10.35 "$ns detach-agent $n0 $tcp ; $ns detach-agent $n1 $sink"
$ns at 11.0 "finish"
proc finish {} {
global ns f nf
$ns flush-trace
close $f
close $nf
puts "running nam..."
exec nam out.nam &
exit 0
}
$ns run
---------------------------------------------
please reply me whether there is problem in tcl script or agent or the ns2
version..
Thanks you all...Merry christmas and Happy new year to all
Regards & Thanks
Aleem M.S
ME-CSE
Walchand College Of Engineering, Sangli
Call - 09326053389
