[ns] Classifier

["PangBin" <bpang@cti.com.cn>]

Hi,
I want to change the default classifier of CBQ. The script is:

    #Create a simulator object
    set ns [new Simulator]
    proc finish {} {
            exit 0
    }
    set n0 [$ns node]
    set n1 [$ns node]
    set cl [new Classifier/Hash/SrcDestFid 33]
    $ns simplex-link $n0 $n1 1Mb 10ms CBQ/WRR $cl
    $ns simplex-link $n1 $n0 1Mb 10ms DropTail
    $ns at 1.0 "finish"
    #Run the simulation
    $ns run

There are errors:

    $ ./ns slot.tcl
    no such object 
        (_o18 cmd line 1)
        invoked from within
    "_o18 cmd target {}"
        invoked from within
    "catch "$self cmd $args" ret"
        (procedure "_o18" line 2)
        (SplitObject unknown line 2)
        invoked from within
    "$head_ target $classifier_"
        (procedure "_o16" line 8)
        (CBQLink init line 8)
        invoked from within
    "_o16 init _o10 _o12 1Mb 10ms _o15 {}"
        (Class create line 1)
        invoked from within
    "CBQLink create _o16 _o10 _o12 1Mb 10ms _o15 {}"
        invoked from within
    "catch "$className create $o $args" msg"
        (procedure "new" line 3)
        invoked from within
    "new CBQLink        $n1 $n2 $bw $delay $q $c"
        ("CBQ/WRR" arm line 7)
        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 "_o3" line 27)
        (Simulator simplex-link line 27)
        invoked from within
    "$ns simplex-link $n0 $n1 1Mb 10ms CBQ/WRR $cl"
        (file "slot.tcl" line 12)
    
Any help is appreciated.
PB