Router Mechanisms - Simulation Scripts

[anandr@cs.ucsb.edu (Anand P. Rangarajan)]

hi
  Please help me solve the following problem. 
Thanks,
Anand

  i'm using ns-2 and am trying to run the simulation scripts
  for the "Router Mechanisms" paper. The scripts are in the
  directory $nshome/tcl/rtmechanisms.
  They are also in the link http://www-nrg.ee.lbl.gov/collapse.html
  ( the 2nd command given in Reclassv2.v2.com is wrong )

  i tried to run the Section 6 simulations using the following
  command:

  ns rtm_reclass.tcl three enable net3  

  I get the following error:


invalid command name "_o54"
    while executing
"$q info class"
    (procedure "_o55" line 13)
    (SimpleLink init line 13)
    invoked from within
"_o55 init _o25 _o27 1.5Mb 3ms _o54"
    (Class create line 1)
    invoked from within
"SimpleLink create _o55 _o25 _o27 1.5Mb 3ms _o54"
    invoked from within
"catch "$className create $o $args" msg"
    (procedure "new" line 3)
    invoked from within
"new SimpleLink     $n1 $n2 $bw $delay $q"
    ("default" arm line 2)
    invoked from within
"switch -exact $qtypeOrig {
RTM {
set c [lindex $args 1]
set link_($sid:$did) [new CBQLink        $n1 $n2 $bw $delay $q $c]
}
CBQ -
CBQ/WRR {
if {[llen..."
    (procedure "_o5" line 27)
    (Simulator simplex-link line 27)
    invoked from within
"$ns simplex-link $node_(r1) $node_(r2) 1.5Mb 3ms "CBQ $cl""
    (procedure "_o12" line 8)
    (Topology/net3 init line 8)
    invoked from within
"_o12 init _o5"
    (Class create line 1)
    invoked from within
"Topology/net3 create _o12 _o5"
    invoked from within
"catch "$className create $o $args" msg"
    (procedure "new" line 3)
    invoked from within
"new Topology/$net_ $ns_"
    (procedure "_o4" line 15)
    (Object next line 15)
    invoked from within
"$self next"
    (procedure "_o4" line 7)
    (Test/three init line 7)
    invoked from within
"_o4 init net3 three true"
    (Class create line 1)
    invoked from within
"Test/three create _o4 net3 three true"
    invoked from within
"catch "$className create $o $args" msg"
    (procedure "new" line 3)
    invoked from within
"new Test/$test $topo $test $enable"
    (procedure "TestSuite" line 44)
    (TestSuite runTest line 44)
    invoked from within
"TestSuite runTest"
    (file "rtm_reclass.tcl" line 562)