Commit 0afd1b01 authored by Robert Ricci's avatar Robert Ricci
Browse files

Goddamit, I hate TCL!

parent 907bb9b6
......@@ -82,7 +82,7 @@ for {set i 1} {$i <= $num_nodes} {incr i} {
set node($i) [$ns node]
tb-set-hardware $node($i) $hwtype
append $inet_string "$node(${i}) "
append inet_string "$node(${i}) "
if { [llength $nodelist] > 0 } {
tb-fix-node $node($i) [lindex $nodelist [expr $i - 1]]
......
Markdown is supported
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