Re: [ns] Snoop.tcl

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

which version did supported snoop?

Debojyoti Dutta wrote:

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