Wednesday, April 25, 2012

[ns] getting error in snoop

Regardz

Muhammad Musaddiq

+92-332-4197661

--- On Wed, 4/25/12, Muhammad Musaddiq <hi_02_27@yahoo.com> wrote:

From: Muhammad Musaddiq <hi_02_27@yahoo.com>
Subject: getting error in snoop
To: ns-users@isi.edu
Date: Wednesday, April 25, 2012, 10:40 PM

Guys this is the function which i make for snoop protocol, i am getting error which is below the code

set last_seqno 0.0
set rtt1 3
proc snoop {} {
global ns snoop1 current_seqno last_seqno rtt1 roundtriptime last_ack abc
$snoop1 instvar snoopIn_ snoopOut_ snoopDrop_ queue_ head_
set time 0.1
set now [$ns now]
set current_seqno [$tcp1 set t_seqno_]
set last_ack [$tcp1 set ack_]
set roundtriptime [$tcp1 set rtt_]


if {$current_seqno > $last_seqno} {
if {[expr ($last_seqno +1)] == $current_seqno} {
set snoopIn_ $current_seqno
set snoopOut_ $current_seqno
if {$roundtriptime > $rtt1} {
set snoopOut_ $current_seqno
} else {
set snoopOut_ $current_seqno
set rtt1 $roundtriptime
}
} elseif {$current_seqno > $last_ack} {
set snoopOut_
$current_seqno
} else {
set snoopDrop_ $current_seqno
}
if {[expr ($current_seqno - $last_seqno)] > 1} {
set snoopIn_ $current_seqno
set snoopOut_ $current_seqno
} else {
}
set last_seqno $current_seqno
} else {
set snoopOut_ $last_seqno
set abc [$tcp1 set nrexmitpack_]
puts "number of retransmission = [$tcp1 set nrexmitpack_]"
}

$ns at [expr $now + $time] "snoop"
}

Error is :


INITIALIZE THE LIST xListHead
warning: no class variable LanRouter::debug_

    see tcl-object.tcl in tclcl
for info about this warning.

ns: snoop: can't read "snoop1": no such variable
    while executing
"$snoop1 instvar snoopIn_ snoopOut_ snoopDrop_ queue_ head_"
    (procedure "snoop" line 3)
    invoked from within
"snoop"

kindly reply me as soon as possible ................
Regardz

Muhammad Musaddiq

+92-332-4197661

No comments:

Post a Comment

Counter

blogger analytics