NS2运行机制分析16.pptVIP

启动过程9 $ns at 0.1 $ftp start“ $ns at 5.0 “exit 0“ $ns run Simulator instproc at args { $self instvar scheduler_ return [eval $scheduler_ at $args] } % $ns at 0.1 $ftp start 1 % % $ns at 10.0 exit 0 2 % 进入scheduler.cc 11: [Simulator instance] get-link-head 0 1 dbg11.35 n 11: Simulator instance dbg11.36 11: [Simulator instance] get-link-head 1 0 在启动的过程中，我们没有找到把节点出口和链路的入口连接起来的操作；但是，当运行起来后，即$ns run之后，会运行下面这样一些tcl代码。 返回SimpleLink的一个变量head_ Node的结构 Simulator instproc run {} { $self check-smac $self check-node-num $self rtmodel-configure [$self get-routelogic] configure $self instvar scheduler_ Node_ link_ started_ set started_ 1 foreach nn [array names Node_] { $Node_($nn) reset if { [Simulator set nix-routing] } { $Node_($nn) populate-objects } } foreach qn [array names link_] { set q [$link_($qn) queue] $q reset } $self init-nam return [$scheduler_ run] } #tcl/rtglib/dynamic.tcl Simulator instproc rtmodel-configure {} { $self instvar rtq_ rtModel_ if [info exists rtModel_] { set rtq_ [new rtQueue $self] foreach m $rtModel_ { $m configure } } } 似乎没有执行 #tcl/lib/ns-route.tcl Simulator instproc get-routelogic {} { $self instvar routingTable_ if ![info exists routingTable_] { set routingTable_ [new RouteLogic] } return $routingTable_ } 执行了，创建了一个对象 #tcl/ns-route.tcl RouteLogic instproc configure {} { $self instvar rtprotos_ if [info exists rtprotos_] { foreach proto [array names rtprotos_] { eval Agent/rtProto/$proto init-all $rtprotos_($proto) } } else { Agent/rtProto/Static init-all } } #tcl/rtglib/route-proto.tcl Agent/rtProto/Static proc init-all args { # The Simulator knows the entire topology. # Hence, the current compute-routes method in the Simulator class is # well suited. We use it as is. [Simulator instance] compute-routes } #tcl/lib/ns-route.tcl Simulator instproc compute-routes {} { if [Simulator hier-addr?] { $self compute-hier-routes } else { $self compute-flat-routes