telianet.tcl

来自「Isisns is an extension of Network Simula」· TCL 代码 · 共 55 行

source ../../tcl/isisnodes.tcl
source ../../tcl/ns-rtProtoISIS.tcl

set ns [new Simulator]

$ns use-scheduler Calendar

$ns rtproto ISIS

set nf [open out.nam w]
$ns namtrace-all $nf

set in [new ISISNodes]

$in buildnet 4 24 40 3 10

#$in maketranslate

puts stderr "[$ns get-number-of-nodes]"

proc init {} {
    global n ns nf
    $ns ISISchangeCost 10
    $ns ISIScmd log telianet.log
    $ns readISISconfig isis.conf
    $ns ISIScmd run
}

proc finish {} {
    global ns nf
    $ns flush-trace
    close $nf
    $ns ISIScmd finish
#    exec nam out.nam
    exit 0
}

for {set i 0} {$i < 20} {incr i} {
    $in linkevent_a-d [expr 10 + $i * 0.000001] cost
}

$ns at 0 "init"
for {set i 0} {$i < 31} {incr i} {
    $ns at $i "puts stderr $i"
}

$ns at 9.9 "$ns setISISparam lspDelay 0"
$ns at 9.9 "$ns setISISparam lspThrottle 33"
$ns at 9.9 "$ns setISISparam SPFdelay 5500"


$ns at 30 "finish"

$ns run