--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/test/comparison/randemu.tcl Thu Apr 21 14:57:45 2011 +0100
@@ -0,0 +1,195 @@
+#
+# Copyright 2005-2006 Intel Corporation
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+# Start of Base Script to setup Emulab DTN2 experiments
+
+# Use: cat base-emu.tcl | sed 's/711/finishtime'
+
+set delay 5ms
+set queue DropTail
+set protocol Static
+
+set WARMUPTIME 10
+#Time between ending of one protocol and starting of the next
+set DELAY_FOR_SOURCE_NODE 2
+
+
+## find length of protos and nexthops
+set runs [expr [llength $protos]*[llength $perhops] ]
+
+set MAX_SIM_TIME [expr $runs*$finish + $runs*$WARMUPTIME + $WARMUPTIME]
+set ONE_CYCLE_LENGTH [expr $finish + $WARMUPTIME]
+set uplist {}
+set downlist {}
+
+
+## generates output in two lists up and down
+proc sched {offset} {
+global MAX_SIM_TIME
+global ONE_CYCLE_LENGTH
+global up
+global down
+global uplist
+global downlist
+global WARMUPTIME
+
+global offset_up
+## locals are only start, current,
+set uplist {}
+set downlist {}
+
+
+## Assumes that the link is up. (rather just up)
+## The first event schedules is a down link event
+set start $WARMUPTIME
+
+## Make sure $offset > 1
+while {$start < $MAX_SIM_TIME} {
+
+ set count 1
+ lappend downlist [expr $start + 1]
+
+ # puts "Outer loop $start"
+ set current [expr $start + $offset]
+ set limit [expr $start + $ONE_CYCLE_LENGTH ]
+ while {$current < $limit} {
+
+ set current [expr $current + $offset_up($count)]
+ if {$current > $limit} break ;
+ lappend uplist $current
+
+ set current [expr $current + $up]
+ if {$current > $limit} break ;
+ lappend downlist $current
+
+ incr count
+
+ }
+ set start [expr $start + $ONE_CYCLE_LENGTH ]
+}
+
+## Finally make the link up (to allow debugging)
+lappend uplist [expr $WARMUPTIME + $current]
+
+}
+
+## get cmd to be executed on node $id.
+proc get-cmd {id perhopl protol} {
+
+
+ global maxnodes
+ global nfiles
+ global size
+ global exp
+ global ftp_impl
+
+ set valperhopl 1
+ if {$perhopl == "ph"} { set valperhopl 1};
+ if {$perhopl == "e2e"} { set valperhopl 0};
+
+ set args "$id $exp $maxnodes $nfiles $size $valperhopl $protol"
+
+ set prefix /proj/DTN/nsdi/DTN2
+ return "$prefix/test/base-cmd.sh $args $ftp_impl"
+
+}
+
+
+
+# This is a simple ns script that demonstrates loops.
+set ns [new Simulator]
+source tb_compat.tcl
+set os rhl-os3
+
+#Create nodes
+for {set i 1} {$i <= $maxnodes} {incr i} {
+ set node($i) [$ns node]
+ tb-set-node-os $node($i) $os
+
+}
+
+#Create duplex links and set loss rate
+for {set i 1} {$i < $maxnodes} {incr i} {
+ # set iplus1 $i ; incr iplus1
+ set link($i) [$ns duplex-link $node($i) $node([expr $i + 1]) $bw $delay $queue]
+ tb-set-link-loss $link($i) $loss
+
+}
+$ns rtproto $protocol
+
+
+## this is only for random sched generation
+
+if {$OFFSET_VAL != -1 } {
+ exit ;
+}
+
+if {$linkdynamics == 1} {
+ for {set i 1} {$i < $maxnodes} {incr i} {
+ #Do stuff for the ith link
+ set offset [expr ($OFFSET_VAL*[expr $i - 1]) % ($up + $down) ]
+
+
+
+ ## Set the global array of offset values
+ for {set j 1} {$j < 100} {incr j} {
+ set offset_up($j) [expr int(rand()*($up + $down))]
+ }
+ set offset -1
+ sched $offset
+
+ ## Now you have uplist and downlist and use them to schedule your events
+ set linkname "link-$i"
+ foreach uptime $uplist {
+ $ns at $uptime "$linkname up"
+ }
+ foreach downtime $downlist {
+ $ns at $downtime "$linkname down"
+ }
+ }
+}
+
+### Node programs
+
+for {set i 1} {$i <= $maxnodes} {incr i} {
+ set starttime 0
+ foreach proto $protos {
+ foreach perhop $perhops {
+ set progVar "prog-$proto-$perhop-$i"
+ # set [set progVar] [new Program $ns]
+ set $progVar [new Program $ns]
+ $progVar set node $node($i)
+ $progVar set command [get-cmd $i $perhop $proto]
+ set starttime [expr $starttime + $WARMUPTIME]
+ set mytime $starttime
+ set end [expr $starttime + $finish]
+ ## Source is later as it will contact server on socket
+ if {$i == 1} { set mytime [expr $starttime + $DELAY_FOR_SOURCE_NODE] }
+ $ns at $mytime "[set $progVar] start"
+ $ns at $end "[set $progVar] stop"
+
+ set starttime [expr $starttime + $finish]
+ }
+
+ }
+}
+
+
+
+$ns run
+#$ns at 1800 "$ns swapout"
+
+