File: run.tcl

package info (click to toggle)
ns2 2.35%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 78,864 kB
  • sloc: cpp: 172,923; tcl: 107,130; perl: 6,391; sh: 6,143; ansic: 5,846; makefile: 818; awk: 525; csh: 355
file content (26 lines) | stat: -rwxr-xr-x 397 bytes parent folder | download | duplicates (8) 
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
 
#!/bin/csh

# get_goodput

set n_run=1
set ns="/users/haldar/ns-2/ns"
set sources=1
set duration=300
set file="urban-GBN-0"

# run ns for N times
set i=0;
while ($i < $n_run) 

	$ns $file $i $sources $duration
	@i = $i + 1
end

# get goodput values for the runs.
exec egrep "STATE 1" case0.tr > states.tr
set i=0
while ($i < $n_run)

         perl ontime.pl $duration $file
         @i = $i +1
end