【文章內(nèi)容簡介】 第四個過程 ifNum 作為 nodeconfig 的一個參數(shù)，配置接口數(shù)，具體如表 所示。 表 ifNum過程 Simulator instproc getnumifs {} { $self instvar numifs_ if [ info exists numifs_ ] { return $numifs_ )eise( return } } 修改 nodeconfig 過程 nodeconfig 用來對節(jié) 點(diǎn)進(jìn)行配置，由于加入了新的接口參數(shù) chan($t)，所以必須對其初始化， 在多接口的情況下其為一數(shù)組，具體如表 所示。 表 nodeconfig 過程 Simulator instproc nodeconfig args { …… set args [eval $self initvars $args] $self instvar addressType_ routingAgent_ propType_ macTrace_ \ routerTrace_ agentTrace_ movementTrace_ channelType_ channel_ numifs_ \ chan topoInstance_ propInstance_ mobileIP_ \ rxPower_ txPower_ idlePower_ sleepPower_ sleepTime_ transitionPower_ \ Xx 理工大學(xué)畢業(yè)論文（設(shè)計） 9 續(xù)表 transitionTime_ satNodeType_ eotTrace_ phyTrace_ …… Multiple channel, multiple interfaces original:set chan $channel_ modifi as follows if {[info exists numifs_]} { set chan(0) $channel_ } else { set chan $channel_ } …… } 修改 createwirelessnode 過程 由于節(jié)點(diǎn)具有多接口，因此該過程中的 addinterface 必須 多次調(diào)用，調(diào)用的次數(shù)即節(jié)點(diǎn)具有的接口數(shù)，具體如表 所示。 表 createwirelessnode過程 Simulator instproc createwirelessnode args { $self instvar routingAgent_ wiredRouting_ propInstance_ llType_ \ macType_ ifqType_ ifqlen_ phyType_ chan antType_ \ energyModel_ initialEnergy_ txPower_ rxPower_ \ idlePower_ sleepPower_ sleepTime_ transitionPower_ transitionTime_ \ topoInstance_ level1_ level2_ inerrProc_ outerrProc_ FECProc_ rtAgentFunction_ numifs_ …… Adding Interface original: $node addinterface $chan $propInstance_ $llType_ $macType_ \ $ifqType_ $ifqlen_ $phyType_ $antType_ $topoInstance_ \ $inerrProc_ $outerrProc_ $FECProc_ modified as follows if {[info exist numifs_]} { Xx 理工大學(xué)畢業(yè)論文（設(shè)計） 10 續(xù)表 for {set i 0} {$i $numifs_} {incr i} { $node addinterface $chan($i) $propInstance_ $llType_ $macType_ \ $ifqType_ $ifqlen_ $phyType_ $antType_ $topoInstance_ \ $inerrProc_ $outerrProc_ $FECProc_ } } else { $node addinterface $chan $propInstance_ $llType_ $macType_ \ $ifqType_ $ifqlen_ $phyType_ $antType_ $topoInstance_ \ $inerrProc_ $outerrProc_ $FECProc_ } …… } 對 的修改 修改 addtarget 過程 addtarget 過程用來給端口綁 定代理，在多接口的情況下需要為每個接口都綁定代理，在添加之前需先 調(diào)用 getnumifs 過程取得節(jié)點(diǎn)接口數(shù)， 具體如表 所示。 表 修改 addtarget過程 Node/MobileNode instproc addtarget { agent port } { $self instvar dmux_ imep_ toraDebug_ set ns [Simulator instance] set newapi [$ns imepsupport] $agent set sport_ $port set numIfsSimulator [$ns getnumifs] …… original: if { $port == [Node set rtagent_port_] } { Ad hoc routing agent setup needs special handling $self addtargetrtagent $agent $port Xx 理工大學(xué)畢業(yè)論文（設(shè)計） 11 續(xù)表 return } modified as follows if { $port == [Node set rtagent_port_] } { if {$numIfsSimulator != } { for {set i 0} {$i [$self set nifs_]} {incr i} { $agent ifqueue $i [$self set ifq_($i)] } } $self addtargetrtagent $agent $port return } …… } 修改 addtargetrtagent 過程 此過程用來給接口添加路由代理，修改原則和上一過程類似 。首先調(diào)用getnumifs 過程取得接口數(shù)， 具體如表 所示。 表 修改 addtargetrtagent Node/MobileNode instproc addtargetrtagent { agent port } { …… set numIfSimulator [$ns getnumifs] …… original:} else { 。 no IMEP $agent target $sndT } $sndT target [$self set ll_(0)] modified as follows: } else { 。 no IMEP if {$numIfsSimulator != } { for {set i 0} {$i [$self set nifs_]} {incr i} { set sndT [cmutrace Send RTR $self] Xx 理工大學(xué)畢業(yè)論文（設(shè)計） 12 續(xù)表 $agent target $i $sndT $sndT target [$self set ll_($i)] } } else { $agent target $sndT $sndT target [$self set ll_(0)] } } …… 修改 addinterface 過程 原始的 addinterface 過程只會為每個節(jié)點(diǎn)創(chuàng)造一個 ARP 表，而不是為每個接口創(chuàng)造一個 ARP 表，因此我們?yōu)槊總€接口創(chuàng)造一個 ARP 表更為合適，具體如表 所示。 表 修改 addinterface 過程 Node/MobileNode instproc addinterface { channel pmodel lltype mactype qtype qlen iftype anttype topo inerrproc outerrproc fecproc } { …… Initialize ARP table only once. modified as follows set arptable_($t) [new ARPTable $self $mac] set arptable $arptable_($t) if {$imepflag != } { set drpT [$self mobilitytrace Drop IFQ] } else { set drpT [cmutrace Drop IFQ $self] } $arptable droptarget $drpT Xx 理工大學(xué)畢業(yè)論文（設(shè)計） 13 續(xù)表 if { $namfp != } { $drpT namattach $namfp } Link Layer $ll arptable $arptable …… }