[ns] PI controllers in ns snapshots

["gaodeyun" <deyungao@eyou.com>]

Hi,  
  Who use code about PI controllers contributed by Floyd in July 15?
I run "../../ns test-suite-pi.tcl pi1" in ns-2/tcl/test directory, but there
are the following. Who can give me some hints? I will appreciate it.

Deyun Gao

> ns test-suite-pi.tcl pi1
no such object _o24
    (_o75 cmd line 1)
    invoked from within
"_o75 cmd target _o24"
    invoked from within
"catch "$self cmd $args" ret"
    (procedure "_o75" line 2)
    (SplitObject unknown line 2)
    invoked from within
"$link_ target [$dst entry]"
    (procedure "_o72" line 25)
    (SimpleLink init line 25)
    invoked from within
"_o72 init _o19 _o22 1.5Mb 20ms _o71"
    (Class create line 1)
    invoked from within
"SimpleLink create _o72 _o19 _o22 1.5Mb 20ms _o71"
    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 33)
    (Simulator simplex-link line 33)
    invoked from within
"_o5 simplex-link _o19 _o22 1.5Mb 20ms PI"
    ("eval" body line 1)
    invoked from within
"eval $self simplex-link $n1 $n2 $bw $delay $type $args"
    (procedure "_o5" line 8)
    (Simulator duplex-link line 8)
    invoked from within
"$ns duplex-link $node_(r1) $node_(r2) 1.5Mb 20ms PI"
    (procedure "_o12" line 14)
    (Topology/net2 init line 14)
    invoked from within
"_o12 init _o5"
    (Class create line 1)
    invoked from within
"Topology/net2 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 4)
    (TestSuite setTopo line 4)
    invoked from within
"$self setTopo"
    (procedure "_o4" line 3)
    (Test/pi1 run line 3)
    invoked from within
"$t run"
    (procedure "TestSuite" line 24)
    (TestSuite runTest line 24)
    invoked from within
"TestSuite runTest
"
    (file "test-suite-pi.tcl" line 681)
> 





--http://www.eyou.com
--�ȶ��ɿ�����ѵ�������  �����ʼ�  �ƶ���ǩ  ��������  ����洢...����δ��