--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/comparison/base-emu.tcl	Thu Apr 21 14:57:45 2011 +0100
@@ -0,0 +1,183 @@
+#
+#    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
+
+
+# Modify ftp_impl if needed
+
+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
+## 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} {
+
+    ## Start up state (link is down before offset)
+    if {$offset > 0} {
+	lappend downlist [expr $start + 1]
+	lappend uplist [expr $start + $offset   ]
+    }  else {
+	lappend uplist [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 + $up]
+	if {$current > $limit} break ; 
+	lappend downlist $current
+	set current [expr $current + $down]
+	if {$current > $limit} break ; 
+	lappend uplist $current
+    }
+    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
+
+
+
+
+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)  ]
+	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"
+
+