Regardz
Muhammad Musaddiq
+92-332-4197661
--- On Wed, 4/25/12, Muhammad Musaddiq <hi_02...@yahoo.com> wrote:
From: Muhammad Musaddiq <hi_02...@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
