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