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