[ns] Snoop.tcl

[Kyeongjin Lee <kjlee@datacom.chungnam.ac.kr>]

Hi...
I tried to run ns/tcl/ex/snoop.tcl

ns snoop.tcl -e 0.2 -eu time -stop 20 -ll LLSnoop -r


error message===================================

invalid command name "Mac/Csma/Ca"
    while executing
"Mac/Csma/Ca create _o45 "
    invoked from within
"catch "$className create $o $args" msg"
    (procedure "new" line 3)
    invoked from within
"new $macType_"
    (procedure "_o42" line 14)
    (LanIface init line 14)
    invoked from within
"_o42 init _o13 _o37 -ifqType Queue/DropTail -llType LL -macType
Mac/Csma/Ca -phyType Phy/WiredPhy"
    (Class create line 1)
    invoked from within
"LanIface create _o42 _o13 _o37 -ifqType Queue/DropTail -llType LL
-macType Mac/Csma/Ca -phyType Phy/WiredP
    invoked from within
"catch "$className create $o $args" msg"
    (procedure "new" line 3)
    invoked from within
"new LanIface $src $self  -ifqType $ifqType  -llType  $llType  -macType
$macType  -phyType $phyType"
    (procedure "_o37" line 14)
    (LanNode addNode line 14)
    invoked from within
"$lan addNode $nodelist $bw $delay $llType $ifqType $macType  $phyType"
    (procedure "_o4" line 3)
    (Simulator make-lan line 3)
    invoked from within
"$ns make-lan $nodelist $opt(bw) $opt(delay)  LL $opt(ifq) $opt(mac)
$opt(chan)"
    (procedure "create-topology" line 17)
    invoked from within
"create-topology $opt(num)"
    (file "snoop.tcl" line 383)

======================================
so, I changed

set opt(mac)   Mac/Csma/Ca ------>set opt(mac)    Mac/802_11

error message ========================================================

can't read "lanIface_(1)" ; no such element in arrary
    while executing
"set nif $lanIface_([$dst id])"
    (procedure "add-error" line 4)
    invoked from within
"add-error $lan $src $dst $e1"
    (procedure "create-error" line 25)
    invoked from within
"create-error $lan $node(0) $dstlist $opt(em) $opt(e)  $opt(eu)
$opt(trans)"
    invoked from within
"if { [info exists opt(e)] } {
        if { $opt(e) == 0 || $opt(e) == "" } {
                puts "error rate 0 ==> no errors"
        } else {
                if { [info exists opt(www)] } {
..."
    (file "snoop.tcl" line 390)
=======================================================================

what should be modified..?



Thank you...