pim-loss.tcl

ns gpsr路由协议 在ns２平台下实现的 对大家很有好处

## exhaustive loss on a lan

source loss.tcl
# source tcl/lib/ns-lib-diff.tcl

set ns [new Simulator]
Simulator set EnableMcast_ 1

for {set i 0 } { $i <= 4 } { incr i } {
        set n$i [$ns node]
}

#XXX assume a 6 scenario simulation ran before.. !
set traceIndex 6
set traceSuffix ".nam"
set traceFile "out-pimloss"
set file0 $traceFile-$traceIndex$traceSuffix
if { [file exists $file0] } {
	exec rm $file0
}
set f [open $file0 w]
$ns namtrace-all $f

# lappend traceFileList $file0

set nodes [list $n0 $n1 $n2 $n3]

Simulator set NumberInterfaces_ 1

$ns color 30 red
$ns color 31 blue
$ns color 32 green
$ns color 33 orange
$ns color 34 yellow

set lan [$ns multi-link-of-interfaces $nodes 1.50Mb 10ms DropTail]

#	|4|
#      /  \
#    |3|  |2|
#   ----------
#    |0|  |1|
$lan nodePos $n0 down
$lan nodePos $n1 down
$lan nodePos $n2 up
$lan nodePos $n3 up

$ns duplex-link $n3 $n4 1.5Mb 10ms DropTail
$ns duplex-link-op $n3 $n4 orient right-up

$ns duplex-link $n4 $n2 1.5Mb 10ms DropTail
#$ns duplex-link-op $n4 $n2 orient left-down

#Prune/Iface/Timer set timeout 0.3
#Deletion/Iface/Timer set timeout 0.1
set mproto detailedDM
$ns mrtproto $mproto {}
$ns rtproto Session  

set loss [new LossMgr $ns $lan]
$loss exhaustive-loss

# turn off agent tracing for now !
# set agentTraceFile "tcl/ex/agent-trace-7-24-2.out"
# if { [file exists $agentTraceFile] } {
#	exec rm $agentTraceFile
#}
#set agentTrace [open $agentTraceFile w]

set group0 [expr 0x8003]

#set sender4 [new agent/message/trace]
#$sender4 set dst $group0
#$sender4 set cls 2
#$ns attach-agent $n4 $sender4
#$sender4 trace $agentTrace
#$sender4 set-TxPrefix "S"

Agent/CBR set interval_ 25ms
set sender4 [new Agent/CBR]
$sender4 set dst_ $group0
$sender4 set class_ 2
$ns attach-agent $n4 $sender4

#for {set i 0 } { $i <= 3 } { incr i } {
#        set rcvr$i [new agent/message/trace]
#}

#for {set i 0 } { $i <= 3 } { incr i } {
#        eval "\$ns attach-agent \$n$i \$rcvr$i"
#	eval "\$rcvr$i trace \$agentTrace"
#        eval "\$rcvr$i set-RxPrefix \"R\""
#}

for {set i 0 } { $i <= 3 } { incr i } {
        set rcvr$i [new Agent/LossMonitor]
        eval "\$ns attach-agent \$n$i \$rcvr$i"
}

#PIM trace $agentTrace

for { set i 0 } { $i <= 1 } { incr i } {
	set J$i "[eval "set n$i"] join-group [eval "set rcvr$i"] $group0"
	set L$i "[eval "set n$i"] leave-group [eval "set rcvr$i"] $group0" 
}

# init and cleanup
lappend initList "\$ns clear-mcast"
lappend initList "\$ns run-mcast"
#lappend initList "\$pim0 force-nextHop \$group0 3"

set simulationDuration 0

proc generate-loss-scenarios { ev1 ev2 ev3 ev4 initList msgs } {
  global ns traceFile traceSuffix traceIndex loss \
#traceFileList \
		simulationDuration

  set scenarioInvestigated 0
  set scenarioDone 0

  set x [expr 0. - 0.0001]
  set scenarioNum 0
  for { set j 0 } {$j < 3} {incr j} {
    set event($j) $ev1
    for { set k 0} {$k < 3} {incr k} {
        if { $j == $k } {continue}
        set event($k) $ev2
        for { set l [expr $j + 1]} {$l < 4} {incr l} {
          if { $k == $l } { continue }
          set event($l) $ev3
          for { set m [expr $k + 1]} {$m < 4} {incr m} {
                if { $j == $m || $l == $m } {
                        continue
                }
                set event($m) $ev4

		if { $scenarioDone == 1 } {
			set j 3
			set k 3
			set l 4
			set m 4
			continue
		}

		if { $scenarioNum != $scenarioInvestigated } {
			incr scenarioNum
			continue
		}

		set scenarioDone 1

		set noLossFile $traceFile-$scenarioNum$traceSuffix
		foreach cls $msgs {
		  set counter [$loss programLoss $noLossFile $cls]

		  puts "!!!! scenario $scenarioNum counter $counter";

		  for {set ctr 0} {$ctr < $counter} {incr ctr} {
		    set cnt 0
		    foreach ev $initList {
			incr cnt
			$ns at [expr $x + 0.0002 * $cnt] $ev
		    }
                    $ns at [expr $x + .1] $event(0)
                    $ns at [expr $x + .2] $event(1)
                    $ns at [expr $x + .3] $event(2)
                    $ns at [expr $x + .4] $event(3)
                    set x [expr $x + .5]  
		  }
		}
# I don't think we need to change the trace file since this is only for one
# scenario for now.. !
#		incr scenarioNum
#		set fileNum [expr $scenarioNum + $traceIndex]
#		set newTraceFile $traceFile-$fileNum$traceSuffix
#		lappend traceFileList $newTraceFile
#		set newFile [open $newTraceFile w]
#		$ns at $x "$ns change-all-traces $newFile"
          }
        }
    }
  }
  set simulationDuration [expr $x + 0.1]
  puts "!!! simulationDuration $simulationDuration";
}

#lappend messages [PIM set ASSERT]
# the join for pimdm is 33
lappend messages 33
#lappend messages [PIM set JOIN]
#lappend messages [PIM set PRUNE] 

generate-loss-scenarios $J0 $J1 $L0 $L1 $initList $messages

$ns at 0.0001 "$sender4 start"
#set send_interval 0.025

#set pktCnt 0
#set duration 0
   
#while { $duration < $simulationDuration } {
#        incr pktCnt
#        set duration [expr 0 + $send_interval * $pktCnt]
#        $ns at $duration "$sender4 transmit \"$pktCnt\""
#}               

$ns at $simulationDuration "finish"

proc finish {} {
  global ns 
#traceFileList
  $ns flush-trace
#  set file [lindex $traceFileList 0]
#  set namTraceFile "tcl/ex/out-loss-7-24-6-nam.tr"
#  if { [file exists $namTraceFile] } {
#	  exec rm $namTraceFile
#  }
#  exec awk -f tcl/nam-demo/nstonam.awk $file > $namTraceFile

  puts "running nam..."
#  exec ~/nam/nam-0.8a/nam tcl/ex/out-loss-7-24-6-nam &
  exit 0
}

$ns run