Re: [ns] Snoop.tcl

[Debojyoti Dutta <ddutta@wins.hrl.com>]

Snoop is broken in the current release. Efforts are on to revive it. 

Debojyoti

On Fri, 8 Sep 2000, Kyeongjin Lee wrote:

> 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...
> 
> 
> 
>