SessionNode instproc init {} { $self instvar id_ np_ set id_ [Node getid] set np_ 0 } SessionSim instproc simplex-link { n1 n2 bw delay type } { $self instvar bw_ delay_ set sid [$n1 id] set did [$n2 id] set bw_($sid:$did) [expr [string trimright $bw Mb] * 1000000] set delay_($sid:$did) [expr [string trimright $delay ms] * 0.001] }