Commit 07e191a1 authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Woops, put lans inside the topology section.

parent b8f40257
...@@ -35,7 +35,7 @@ ...@@ -35,7 +35,7 @@
# SUCH DAMAGE. # SUCH DAMAGE.
# #
# @(#) $Header: /home/cvs_mirrors/cvs-public.flux.utah.edu/CVS/testbed/tbsetup/ns2ir/Attic/sim.tcl,v 1.3 2000-12-26 20:10:09 calfeld Exp $ # @(#) $Header: /home/cvs_mirrors/cvs-public.flux.utah.edu/CVS/testbed/tbsetup/ns2ir/Attic/sim.tcl,v 1.4 2000-12-26 23:54:15 calfeld Exp $
# #
...@@ -191,16 +191,18 @@ Simulator instproc run {} { ...@@ -191,16 +191,18 @@ Simulator instproc run {} {
foreach link $linkslist { foreach link $linkslist {
$link print $IRfile $link print $IRfile
} }
puts $IRfile "END links\nEND topology\nSTART events" puts $IRfile "END links"
foreach event $eventlist {
$event print $IRfile
}
puts $IRfile "END events"
puts $IRfile "START lans" puts $IRfile "START lans"
foreach lan $lanlist { foreach lan $lanlist {
$lan print $IRfile $lan print $IRfile
} }
puts $IRfile "END lans" puts $IRfile "END lans"
puts $IRfile "END topology"
puts $IRfile "START events"
foreach event $eventlist {
$event print $IRfile
}
puts $IRfile "END events"
close $IRfile close $IRfile
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment