1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
# configure RED parameters
Queue/RED set setbit_ true
Queue/RED set drop-tail_ false
Queue/RED set fracthresh_ true
Queue/RED set fracminthresh_ 0.15
Queue/RED set fracmaxthresh_ 0.6
Queue/RED set q_weight_ 0.01
Queue/RED set wait_ false
Queue/RED set linterm_ 10
#Queue/RED set linterm_ 5
Queue set interleave_ false
Queue set acksfirst_ false
Queue set filteracks_ false
Queue set replace_head_ false
Queue set ackfromfront_ false
Queue set priority_drop_ false
Queue set random_drop_ false
Agent/TCP set disable_ecn_ 0
Agent/TCP set restart_bugfix_ true
Agent/TCP/Fack set ss-div4 0
Agent/TCP/Fack set rampdown 0
proc plotgraph {graph connGraphFlag midtime { qtraceflag false } } {
global env
upvar $connGraphFlag graphFlag
exec gawk --lint -f ../../../ex/asym/tcp-trace.awk tcp-raw.tr
exec gawk --lint -f ../../../ex/asym/seq.awk out.tr
exec gawk --lint -v mid=$midtime -f ../../../ex/asym/tcp.awk tcp.tr
exec gawk --lint -f ../../../ex/asym/tcp-burst.awk tcp.tr
if { $qtraceflag } {
exec gawk --lint -f ../../../ex/asym/queue.awk q.tr
}
set if [open index.out r]
while {[gets $if i] >= 0} {
if {$graph || $graphFlag($i)} {
set seqfile [format "seq-%s.out" $i]
set ackfile [format "ack-%s.out" $i]
set cwndfile [format "cwnd-%s.out" $i]
set ssthreshfile [format "ssthresh-%s.out" $i]
set srttfile [format "srtt-%s.out" $i]
set rttvarfile [format "rttvar-%s.out" $i]
exec xgraph -display $env(DISPLAY) -bb -tk -m -x time -y seqno $seqfile $ackfile &
exec xgraph -display $env(DISPLAY) -bb -tk -m -x time -y window $cwndfile &
}
}
close $if
if { $qtraceflag } {
set qif [open qindex.out r]
while {[gets $qif i] >= 0} {
exec xgraph -display $env(DISPLAY) -bb -tk -m -x time -y "# packets" $i &
}
close $qif
}
}
proc monitor_queue {ns n0 n1 queuetrace sampleInterval} {
set id0 [$n0 id]
set id1 [$n1 id]
set l01 [$ns set link_($id0:$id1)]
$ns monitor-queue $n0 $n1 $queuetrace $sampleInterval
$l01 set qBytesEstimate_ 0
$ns at [$ns now] "$l01 queue-sample-timeout"
}
proc trace_queue {ns n0 n1 queuetrace} {
set id0 [$n0 id]
set id1 [$n1 id]
set l01 [$ns set link_($id0:$id1)]
$ns monitor-queue $n0 $n1 $queuetrace
$ns at [$ns now] "$l01 start-tracing"
}
proc createTcpSource { type { maxburst 0 } { tcpTick 0.1 } { window 100 } } {
set tcp0 [new Agent/$type]
puts "$type $maxburst"
$tcp0 set class_ 1
$tcp0 set maxburst_ $maxburst
$tcp0 set tcpTick_ $tcpTick
$tcp0 set window_ $window
$tcp0 set maxcwnd_ $window
$tcp0 set ecn_ 1
$tcp0 set g_ 0.125
return $tcp0
}
proc setupTcpTracing { tcp0 tcptrace } {
$tcp0 attach $tcptrace
$tcp0 trace "t_seqno_"
$tcp0 trace "rtt_"
$tcp0 trace "srtt_"
$tcp0 trace "rttvar_"
$tcp0 trace "backoff_"
$tcp0 trace "dupacks_"
$tcp0 trace "ack_"
$tcp0 trace "cwnd_"
$tcp0 trace "ssthresh_"
$tcp0 trace "maxseq_"
$tcp0 trace "exact_srtt_"
}
proc setupGraphing { tcp connGraph connGraphFlag} {
upvar $connGraphFlag graphFlag
set saddr [expr [$tcp set addr_]/256]
set sport [expr [$tcp set addr_]%256]
set daddr [expr [$tcp set dst_]/256]
set dport [expr [$tcp set dst_]%256]
set conn [format "%d,%d-%d,%d" $saddr $sport $daddr $dport]
set graphFlag($conn) $connGraph
}
proc createTcpSink { type sinktrace { ackSize 40 } { maxdelack 25 } } {
set sink0 [new Agent/$type]
$sink0 set packetSize_ $ackSize
if {[string first "Asym" $type] != -1} {
$sink0 set maxdelack_ $maxdelack
}
$sink0 attach $sinktrace
return $sink0
}
proc createFtp { ns n0 tcp0 n1 sink0 } {
puts "creating ftp $n0 $n1"
$ns attach-agent $n0 $tcp0
$ns attach-agent $n1 $sink0
$ns connect $tcp0 $sink0
set ftp0 [new Source/FTP]
$ftp0 set agent_ $tcp0
return $ftp0
}
proc configQueue { ns n0 n1 type qtrace rtrace { size -1 } { nonfifo 0 } { acksfirst false } { filteracks false } { replace_head false } { priority_drop false } { random_drop false } { reconsacks false } } {
if { $size >= 0 } {
$ns queue-limit $n0 $n1 $size
}
set id0 [$n0 id]
set id1 [$n1 id]
set l01 [$ns set link_($id0:$id1)]
set q01 [$l01 set queue_]
if {$nonfifo} {
set spq [new PacketQueue/Semantic]
$spq set acksfirst_ $acksfirst
puts "filteracks $filteracks reconsacks $reconsacks"
$spq set filteracks_ $filteracks
$spq set replace_head_ $replace_head
$spq set priority_drop_ $priority_drop
puts "rand $random_drop"
$spq set random_drop_ $random_drop
if { $reconsacks == "true"} {
set recons [new AckReconsControllerClass]
# Set queue_ of controller. This is
# used by the individual reconstructors
$recons set queue_ $q01
$spq set reconsAcks_ 1
$spq ackrecons $recons
}
$q01 packetqueue-attach $spq
}
if {[string first "RED" $type] != -1} {
configREDQueue $ns $n0 $n1 [$q01 set q_weight_] 1
}
# $q01 trace $trace
if { $qtrace != 0 } {
trace_queue $ns $n0 $n1 $qtrace
}
$q01 reset
}
proc configREDQueue { ns n0 n1 { q_weight -1 } { fracthresh 0 } { fracminthresh 0.4 } { fracmaxthresh 0.8} } {
puts "Configuring reverse RED gateway"
set id0 [$n0 id]
set id1 [$n1 id]
set l01 [$ns set link_($id0:$id1)]
set q01 [$l01 set queue_]
if {$q_weight >= 0} {
$q01 set q_weight_ $q_weight
}
if { $fracthresh } {
set lim [$q01 set limit_]
$q01 set thresh_ [expr $fracminthresh*$lim]
$q01 set maxthresh_ [expr $fracmaxthresh*$lim]
}
$q01 set setbit_ true
}
|
