tracing throughput

["zouheir hasnaoui" <hasnaoui_z@excite.com>]

hi ns-users
I implemented an application class with Tcl
 Class TraceApp -superclass Application
TraceApp instproc init {args} {
        $self set bytes_ 0
         eval $self next $args
 }
 TraceApp instproc recv {byte} {
         $self instvar bytes_
         set bytes_ [expr $bytes_ + $byte]
         return $bytes_
 }
 and attached it to a TcpSink. But, after running the simulation, I don't
see any bytes received. the value of bytes is 0.
 
set traceapp [new TraceApp]
set sink [new Agent/TCPSink]
$traceapp attach-agent $sink
  puts "[$traceapp set bytes_]"
 $ns at 0.0 "$traceapp start"


 
any help will be appreciated.

Zouheir




_______________________________________________________
Get your free, private email at http://mail.excite.com/