Trying
to run the following condensed version of tg.tcl in ns/tcl/ex. I get
a "warning: no class variable Tracefile::debug_"
Any
ideas? If I take the original tg.tcl script, and remove the lines for the
tracefile driven source, it works fine, as has everything else up until
now.
Thanks
very much,
Peter.
set
stoptime 10.0
set ns [new Simulator] set n0 [$ns node] set n1 [$ns node] $ns
duplex-link $n0 $n1 10Mb 5ms DropTail
set
tfile [new Tracefile]
$tfile filename example-trace set s0 [new Agent/UDP] $ns attach-agent $n0 $s0 set null1 [new Agent/Null] $ns attach-agent $n1 $null1 $ns connect $s0 $null1 set
trace0 [new Application/Traffic/Trace]
$trace0 attach-tracefile $tfile $trace0 attach-agent $s0 $ns at 1.0 "$trace0 start" $ns at $stoptime "$trace0 stop" proc finish file { } $ns run |