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]
}