1 #

     2 # Network definition file for a localhost network which uses

     3 # the hostname instead of "localhost" so it acts like a 

     4 # distributed test.

     5 #

     6 for {set i 0} {$i < 254} {incr i} {

     7     net::node $i [info hostname] [expr 10000 + $i*1000]

     8 }