开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
ns-mobilenode.tcl
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：23k
源码类别：

通讯编程

开发平台：

Visual C++

ns-mobilenode.tcl：源码内容
  1. # -*- Mode:tcl; tcl-indent-level:8; tab-width:8; indent-tabs-mode:t -*-
  2. #
  3. # Copyright (c) 1998-2000 Regents of the University of California.
  4. # All rights reserved.
  5. # 
  6. # Redistribution and use in source and binary forms, with or without
  7. # modification, are permitted provided that the following conditions
  8. # are met:
  9. # 1. Redistributions of source code must retain the above copyright
  10. #    notice, this list of conditions and the following disclaimer.
  11. # 2. Redistributions in binary form must reproduce the above copyright
  12. #    notice, this list of conditions and the following disclaimer in the
  13. #    documentation and/or other materials provided with the distribution.
  14. # 3. All advertising materials mentioning features or use of this software
  15. #    must display the following acknowledgement:
  16. #  This product includes software developed by the MASH Research
  17. #  Group at the University of California Berkeley.
  18. # 4. Neither the name of the University nor of the Research Group may be
  19. #    used to endorse or promote products derived from this software without
  20. #    specific prior written permission.
  21. # 
  22. # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  23. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  24. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  25. # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  26. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  27. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  28. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  29. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  30. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  31. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  32. # SUCH DAMAGE.
  33. #
  34. # $Header: /cvsroot/nsnam/ns-2/tcl/lib/ns-mobilenode.tcl,v 1.58 2008/03/19 04:35:35 tom_henderson Exp $
  35. #
  36. # Ported from CMU-Monarch project's mobility extensions -Padma, 10/98.
  37. #
  39. # IT IS NOT ENCOURAGED TO SUBCLASSS MOBILENODE CLASS DEFINED IN THIS FILE
  41. #======================================================================
  42. # The ARPTable class
  43. #======================================================================
  44. ARPTable instproc init args {
  45. eval $self next $args ;# parent class constructor
  46. }
  48. ARPTable set bandwidth_         0
  49. ARPTable set delay_             5us
  51. #======================================================================
  52. # The Node/MobileNodeNode class
  53. #======================================================================
  55. Node/MobileNode instproc init args {
  56. #   # I don't care about address classifier; it's not my business
  57. #   # All I do is to setup port classifier so we can do broadcast, 
  58. #   # and to set up interface stuff.
  59. #   $self attach-node $node
  60. #   $node port-notify $self
  62. eval $self next $args
  64. $self instvar nifs_ arptable_ X_ Y_ Z_ nodetype_
  65. set X_ 0.0
  66. set Y_ 0.0
  67. set Z_ 0.0
  68.         set arptable_ ""                ;# no ARP table yet
  69. set nifs_ 0 ;# number of network interfaces
  70. # Mobile IP node processing
  71.         $self makemip-New$nodetype_
  72. }
  74. #----------------------------------------------------------------------
  76. # XXX Following are the last remnant of nodetype_. Need to be completely 
  77. # removed, however, we need a better mechanism to distinguish vanilla 
  78. # mobile node from MIP base station, and MIP mobile host.
  80. Node/MobileNode instproc makemip-NewMobile {} {
  81. }
  83. Node/MobileNode instproc makemip-NewBase {} {
  84. }
  86. Node/MobileNode instproc makemip-New {} {
  87. }
  89. Node/MobileNode instproc makemip-NewMIPBS {} {
  90. $self instvar regagent_ encap_ decap_ agents_ id_
  92. set dmux [new Classifier/Port/Reserve]
  93. $dmux set mask_ 0x7fffffff
  94. $dmux set shift_ 0
  95. $self install-demux $dmux
  96.    
  97. set regagent_ [new Agent/MIPBS $self]
  98. $self attach $regagent_ [Node/MobileNode set REGAGENT_PORT]
  99. $self attach-encap 
  100. $self attach-decap
  101. }
  103. Node/MobileNode instproc attach-encap {} {
  104. $self instvar encap_ 
  106. set encap_ [new MIPEncapsulator]
  108. $encap_ set mask_ [AddrParams NodeMask 1]
  109. $encap_ set shift_ [AddrParams NodeShift 1]
  110. #set mask 0x7fffffff
  111. #set shift 0
  112. set nodeaddr [AddrParams addr2id [$self node-addr]]
  113. $encap_ set addr_ [expr ( ~([AddrParams NodeMask 1] << 
  114. [AddrParams NodeShift 1]) & $nodeaddr )]
  115. $encap_ set port_ 1
  116. $encap_ target [$self entry]
  117. $encap_ set node_ $self
  118. }
  120. Node/MobileNode instproc attach-decap {} {
  121. $self instvar decap_ dmux_ agents_
  122. set decap_ [new Classifier/Addr/MIPDecapsulator]
  123. lappend agents_ $decap_
  124. $decap_ set mask_ [AddrParams NodeMask 1]
  125. $decap_ set shift_ [AddrParams NodeShift 1]
  126. $dmux_ install [Node/MobileNode set DECAP_PORT] $decap_
  127. }
  129. Node/MobileNode instproc makemip-NewMIPMH {} {
  130. $self instvar regagent_
  131.  
  132. set dmux [new Classifier/Port/Reserve]
  133. $dmux set mask_ 0x7fffffff
  134. $dmux set shift_ 0
  135. $self install-demux $dmux
  137. set regagent_ [new Agent/MIPMH $self]
  138. $self attach $regagent_ [Node/MobileNode set REGAGENT_PORT]
  139. $regagent_ set mask_ [AddrParams NodeMask 1]
  140. $regagent_ set shift_ [AddrParams NodeShift 1]
  141.   $regagent_ set dst_addr_ [expr (~0) << [AddrParams NodeShift 1]]
  142. $regagent_ set dst_port_ 0
  143. $regagent_ node $self
  144. }
  146. #----------------------------------------------------------------------
  148. Node/MobileNode instproc reset {} {
  149. $self instvar arptable_ nifs_ netif_ mac_ ifq_ ll_ imep_
  150.         for {set i 0} {$i < $nifs_} {incr i} {
  151. $netif_($i) reset
  152. $mac_($i) reset
  153. $ll_($i) reset
  154. $ifq_($i) reset
  155. if { [info exists opt(imep)] && $opt(imep) == "ON" } { 
  156. $imep_($i) reset 
  157. }
  158. }
  159. if { $arptable_ != "" } {
  160. $arptable_ reset 
  161. }
  162. }
  164. #
  165. # Attach an agent to a node.  Pick a port and
  166. # bind the agent to the port number.
  167. # if portnumber is 255, default target is set to the routing agent
  168. #
  169. Node/MobileNode instproc add-target { agent port } {
  170. $self instvar dmux_ imep_ toraDebug_ 
  172. set ns [Simulator instance]
  173. set newapi [$ns imep-support]
  175. $agent set sport_ $port
  177. # special processing for TORA/IMEP node
  178. set toraonly [string first "TORA" [$agent info class]] 
  179. if {$toraonly != -1 } {
  180. $agent if-queue [$self set ifq_(0)]  ;# ifq between LL and MAC
  181. #
  182. # XXX: The routing protocol and the IMEP agents needs handles
  183. # to each other.
  184. #
  185. $agent imep-agent [$self set imep_(0)]
  186. [$self set imep_(0)] rtagent $agent
  187. }
  189. # Special processing for AODV
  190. set aodvonly [string first "AODV" [$agent info class]] 
  191. if {$aodvonly != -1 } {
  192. $agent if-queue [$self set ifq_(0)]   ;# ifq between LL and MAC
  193. }
  195. #<zheng: add>
  196. # Special processing for ZBR
  197. #set zbronly [string first "ZBR" [$agent info class]] 
  198. #if {$zbronly != -1 } {
  199. # $agent if-queue [$self set ifq_(0)]   ;# ifq between LL and MAC
  200. #}
  201. #</zheng: add>
  203. if { $port == [Node set rtagent_port_] } {
  204. # Ad hoc routing agent setup needs special handling
  205. $self add-target-rtagent $agent $port
  206. return
  207. }
  209. # Attaching a normal agent
  210. set namfp [$ns get-nam-traceall]
  211. if { [Simulator set AgentTrace_] == "ON" } {
  212. #
  213. # Send Target
  214. #
  215. if {$newapi != ""} {
  216. set sndT [$self mobility-trace Send "AGT"]
  217. } else {
  218. set sndT [cmu-trace Send AGT $self]
  219. }
  220. if { $namfp != "" } {
  221. $sndT namattach $namfp
  222. }
  223. $sndT target [$self entry]
  224. $agent target $sndT
  225. #
  226. # Recv Target
  227. #
  228. if {$newapi != ""} {
  229. set rcvT [$self mobility-trace Recv "AGT"]
  230. } else {
  231. set rcvT [cmu-trace Recv AGT $self]
  232. }
  233. if { $namfp != "" } {
  234. $rcvT namattach $namfp
  235. }
  236. $rcvT target $agent
  237. $dmux_ install $port $rcvT
  238. } else {
  239. #
  240. # Send Target
  241. #
  242. $agent target [$self entry]
  243. #
  244. # Recv Target
  245. #
  246. $dmux_ install $port $agent
  247. }
  248. }
  250. Node/MobileNode instproc add-target-rtagent { agent port } {
  251. $self instvar imep_ toraDebug_ 
  253. set ns [Simulator instance]
  254. set newapi [$ns imep-support]
  255. set namfp [$ns get-nam-traceall]
  257. set dmux_ [$self demux]
  258. set classifier_ [$self entry]
  260. # let the routing agent know about the port dmux
  261. $agent port-dmux $dmux_
  263. if { [Simulator set RouterTrace_] == "ON" } {
  264. #
  265. # Send Target
  266. #
  267. if {$newapi != ""} {
  268. set sndT [$self mobility-trace Send "RTR"]
  269. } else {
  270. set sndT [cmu-trace Send "RTR" $self]
  271. }
  272. if { $namfp != "" } {
  273. $sndT namattach $namfp
  274. }
  275. if { $newapi == "ON" } {
  276. $agent target $imep_(0)
  277. $imep_(0) sendtarget $sndT
  278. # second tracer to see the actual
  279. # types of tora packets before imep packs them
  280. if { [info exists toraDebug_] && $toraDebug_ == "ON"} {
  281. set sndT2 [$self mobility-trace Send "TRP"]
  282. $sndT2 target $imep_(0)
  283. $agent target $sndT2
  284. }
  285. } else {  ;#  no IMEP
  286. $agent target $sndT
  287. }
  288. $sndT target [$self set ll_(0)]
  289. #
  290. # Recv Target
  291. #
  292. if {$newapi != ""} {
  293. set rcvT [$self mobility-trace Recv "RTR"]
  294. } else {
  295. set rcvT [cmu-trace Recv "RTR" $self]
  296. }
  297. if { $namfp != "" } {
  298. $rcvT namattach $namfp
  299. }
  300. if {$newapi == "ON" } {
  301. [$self set ll_(0)] up-target $imep_(0)
  302. $classifier_ defaulttarget $agent
  303. # need a second tracer to see the actual
  304. # types of tora packets after imep unpacks them
  305. # no need to support any hier node
  306. if {[info exists toraDebug_] && $toraDebug_ == "ON" } {
  307. set rcvT2 [$self mobility-trace Recv "TRP"]
  308. $rcvT2 target $agent
  309. $classifier_ defaulttarget $rcvT2
  310. }
  311. } else {
  312. $rcvT target $agent
  313. $classifier_ defaulttarget $rcvT
  314. $dmux_ install $port $rcvT
  315. }
  316. } else {
  317. #
  318. # Send Target
  319. #
  320. # if tora is used
  321. if { $newapi == "ON" } {
  322. $agent target $imep_(0)
  323. # second tracer to see the actual
  324. # types of tora packets before imep packs them
  325. if { [info exists toraDebug_] && $toraDebug_ == "ON"} {
  326. set sndT2 [$self mobility-trace Send "TRP"]
  327. $sndT2 target $imep_(0)
  328. $agent target $sndT2
  329. }
  330. $imep_(0) sendtarget [$self set ll_(0)]
  332. } else {  ;#  no IMEP
  333. $agent target [$self set ll_(0)]
  334. }    
  335. #
  336. # Recv Target
  337. #
  338. if {$newapi == "ON" } {
  339. [$self set ll_(0)] up-target $imep_(0)
  340. $classifier_ defaulttarget $agent
  341. # need a second tracer to see the actual
  342. # types of tora packets after imep unpacks them
  343. # no need to support any hier node
  344. if {[info exists toraDebug_] && $toraDebug_ == "ON" } {
  345. set rcvT2 [$self mobility-trace Recv "TRP"]
  346. $rcvT2 target $agent
  347. [$self set classifier_] defaulttarget $rcvT2
  348. }
  349. } else {
  350. $classifier_ defaulttarget $agent
  351. $dmux_ install $port $agent
  352. }
  353. }
  354. }
  356. #
  357. # The following setups up link layer, mac layer, network interface
  358. # and physical layer structures for the mobile node.
  359. #
  360. Node/MobileNode instproc add-interface { channel pmodel lltype mactype qtype qlen iftype anttype topo inerrproc outerrproc fecproc } {
  361. $self instvar arptable_ nifs_ netif_ mac_ ifq_ ll_ imep_ inerr_ outerr_ fec_
  363. set ns [Simulator instance]
  364. set imepflag [$ns imep-support]
  365. set t $nifs_
  366. incr nifs_
  368. set netif_($t) [new $iftype] ;# interface
  369. set mac_($t) [new $mactype] ;# mac layer
  370. set ifq_($t) [new $qtype] ;# interface queue
  371. set ll_($t) [new $lltype] ;# link layer
  372.         set ant_($t)    [new $anttype]
  374. $ns mac-type $mactype
  375. set inerr_($t) ""
  376. if {$inerrproc != ""} {
  377. set inerr_($t) [$inerrproc]
  378. }
  379. set outerr_($t) ""
  380. if {$outerrproc != ""} {
  381. set outerr_($t) [$outerrproc]
  382. }
  383. set fec_($t) ""
  384. if {$fecproc != ""} {
  385. set fec_($t) [$fecproc]
  386. }
  388. set namfp [$ns get-nam-traceall]
  389.         if {$imepflag == "ON" } {              
  390. # IMEP layer
  391. set imep_($t) [new Agent/IMEP [$self id]]
  392. set imep $imep_($t)
  393. set drpT [$self mobility-trace Drop "RTR"]
  394. if { $namfp != "" } {
  395. $drpT namattach $namfp
  396. }
  397. $imep drop-target $drpT
  398. $ns at 0.[$self id] "$imep_($t) start"   ;# start beacon timer
  399.         }
  400. #
  401. # Local Variables
  402. #
  403. set nullAgent_ [$ns set nullAgent_]
  404. set netif $netif_($t)
  405. set mac $mac_($t)
  406. set ifq $ifq_($t)
  407. set ll $ll_($t)
  409. set inerr $inerr_($t)
  410. set outerr $outerr_($t)
  411. set fec $fec_($t)
  413. #
  414. # Initialize ARP table only once.
  415. #
  416. if { $arptable_ == "" } {
  417. set arptable_ [new ARPTable $self $mac]
  418. # FOR backward compatibility sake, hack only
  419. if {$imepflag != ""} {
  420. set drpT [$self mobility-trace Drop "IFQ"]
  421. } else {
  422. set drpT [cmu-trace Drop "IFQ" $self]
  423. }
  424. $arptable_ drop-target $drpT
  425. if { $namfp != "" } {
  426. $drpT namattach $namfp
  427. }
  428.         }
  429. #
  430. # Link Layer
  431. #
  432. $ll arptable $arptable_
  433. $ll mac $mac
  434. $ll down-target $ifq
  436. if {$imepflag == "ON" } {
  437. $imep recvtarget [$self entry]
  438. $imep sendtarget $ll
  439. $ll up-target $imep
  440.         } else {
  441. $ll up-target [$self entry]
  442. }
  444. #
  445. # Interface Queue
  446. #
  447. $ifq target $mac
  448. $ifq set limit_ $qlen
  449. if {$imepflag != ""} {
  450. set drpT [$self mobility-trace Drop "IFQ"]
  451. } else {
  452. set drpT [cmu-trace Drop "IFQ" $self]
  453.         }
  454. $ifq drop-target $drpT
  455. if { $namfp != "" } {
  456. $drpT namattach $namfp
  457. }
  458. if {[$ifq info class] == "Queue/XCP"} {
  459. $mac set bandwidth_ [$ll set bandwidth_]
  460. $mac set delay_ [$ll set delay_]
  461. $ifq set-link-capacity [$mac set bandwidth_]
  462. $ifq queue-limit $qlen
  463. $ifq link $ll
  464. $ifq reset
  466. }
  468. #
  469. # Mac Layer
  470. #
  472. $mac netif $netif
  473. $mac up-target $ll
  475. if {$outerr == "" && $fec == ""} {
  476. $mac down-target $netif
  477. } elseif {$outerr != "" && $fec == ""} {
  478. $mac down-target $outerr
  479. $outerr target $netif
  480. } elseif {$outerr == "" && $fec != ""} {
  481. $mac down-target $fec
  482. $fec down-target $netif
  483. } else {
  484. $mac down-target $fec
  485. $fec down-target $outerr
  486. $err target $netif
  487. }
  489. set god_ [God instance]
  490.         if {$mactype == "Mac/802_11"} {
  491. $mac nodes [$god_ num_nodes]
  492. }
  493. #
  494. # Network Interface
  495. #
  496. #if {$fec == ""} {
  497.         # $netif up-target $mac
  498. #} else {
  499.         # $netif up-target $fec
  500. # $fec up-target $mac
  501. #}
  503. $netif channel $channel
  504. if {$inerr == "" && $fec == ""} {
  505. $netif up-target $mac
  506. } elseif {$inerr != "" && $fec == ""} {
  507. $netif up-target $inerr
  508. $inerr target $mac
  509. } elseif {$err == "" && $fec != ""} {
  510. $netif up-target $fec
  511. $fec up-target $mac
  512. } else {
  513. $netif up-target $inerr
  514. $inerr target $fec
  515. $fec up-target $mac
  516. }
  518. $netif propagation $pmodel ;# Propagation Model
  519. $netif node $self ;# Bind node <---> interface
  520. $netif antenna $ant_($t)
  521. #
  522. # Physical Channel
  523. #
  524. $channel addif $netif
  526.         # List-based improvement
  527. # For nodes talking to multiple channels this should
  528. # be called multiple times for each channel
  529. $channel add-node $self
  531. # let topo keep handle of channel
  532. $topo channel $channel
  533. # ============================================================
  535. if { [Simulator set PhyTrace_] == "ON" } {
  536. #
  537. # Trace Dropped Packets
  538. #
  539. if {$imepflag != ""} {
  540. set drpPhyT [$self mobility-trace Drop "PHY"]
  541. } else {
  542. set drpPhyT [cmu-trace Drop "PHY" $self]
  543. }
  544. $netif drop-target $drpPhyT
  545. if { $namfp != "" } {
  546. $drpPhyT namattach $namfp
  547. }
  549. #
  550. # Trace Sent Packets
  551. #
  552.         if {$imepflag != ""} {
  553.             set sndPhyT [$self mobility-trace Send "PHY"]
  554.         } else {
  555.             set sndPhyT [cmu-trace Send "PHY" $self]
  556.         }
  557.         $sndPhyT target $channel
  558.         $netif down-target $sndPhyT
  559.         if { $namfp != "" } {
  560.             $sndPhyT namattach $namfp
  561.         }
  562.         
  563. } else {
  564. $netif drop-target [$ns set nullAgent_]
  565. }
  567. if { [Simulator set MacTrace_] == "ON" } {
  568. #
  569. # Trace RTS/CTS/ACK Packets
  570. #
  571. if {$imepflag != ""} {
  572. set rcvT [$self mobility-trace Recv "MAC"]
  573. } else {
  574. set rcvT [cmu-trace Recv "MAC" $self]
  575. }
  576. $mac log-target $rcvT
  577. if { $namfp != "" } {
  578. $rcvT namattach $namfp
  579. }
  580. #
  581. # Trace Sent Packets
  582. #
  583. if {$imepflag != ""} {
  584. set sndT [$self mobility-trace Send "MAC"]
  585. } else {
  586. set sndT [cmu-trace Send "MAC" $self]
  587. }
  588. $sndT target [$mac down-target]
  589. $mac down-target $sndT
  590. if { $namfp != "" } {
  591. $sndT namattach $namfp
  592. }
  593. #
  594. # Trace Received Packets
  595. #
  596. if {$imepflag != ""} {
  597. set rcvT [$self mobility-trace Recv "MAC"]
  598. } else {
  599. set rcvT [cmu-trace Recv "MAC" $self]
  600. }
  601. $rcvT target [$mac up-target]
  602. $mac up-target $rcvT
  603. if { $namfp != "" } {
  604. $rcvT namattach $namfp
  605. }
  606. #
  607. # Trace Dropped Packets
  608. #
  609. if {$imepflag != ""} {
  610. set drpT [$self mobility-trace Drop "MAC"]
  611. } else {
  612. set drpT [cmu-trace Drop "MAC" $self]
  613. }
  614. $mac drop-target $drpT
  615. if { $namfp != "" } {
  616. $drpT namattach $namfp
  617. }
  618. } else {
  619. $mac log-target [$ns set nullAgent_]
  620. $mac drop-target [$ns set nullAgent_]
  621. }
  623. # change wrt Mike's code
  624.        if { [Simulator set EotTrace_] == "ON" } {
  625.                #
  626.                # Also trace end of transmission time for packets
  627.                #
  629.                if {$imepflag != ""} {
  630.                        set eotT [$self mobility-trace EOT "MAC"]
  631.                } else {
  632.                        set eoT [cmu-trace EOT "MAC" $self]
  633.                }
  634.                $mac eot-target $eotT
  635.        }
  639. # ============================================================
  641. $self addif $netif
  642. }
  644. # set transmission power
  645. Node/MobileNode instproc setPt { val } {
  646. $self instvar netif_
  647. $netif_(0) setTxPower $val
  648. }
  650. # set receiving power
  651. Node/MobileNode instproc setPr { val } {
  652. $self instvar netif_
  653. $netif_(0) setRxPower $val
  654. }
  656. # set idle power -- Chalermek
  657. Node/MobileNode instproc setPidle { val } {
  658. $self instvar netif_
  659. $netif_(0) setIdlePower $val
  660. }
  661. #
  662. Node/MobileNode instproc setPsleep { val } {
  663. $self instvar netif_
  664. $netif_(0) setSleepPower $val
  665. }
  666. #
  667. Node/MobileNode instproc setTSleep { val } {
  668. $self instvar netif_
  669. $netif_(0) setSleepTime $val
  670. }
  671. #
  672. Node/MobileNode instproc setPtransition { val } {
  673. $self instvar netif_
  674. $netif_(0) setTransitionPower $val
  675. }
  677. Node/MobileNode instproc setTtransition { val } {
  678. $self instvar netif_
  679. $netif_(0) setTransitionTime $val
  680. }
  681. #
  682. # change wrt Mike's code
  683.  Node/MobileNode instproc getMac {param0} {
  684.        $self instvar mac_
  685.        return $mac_($param0)
  686.  }
  688.  Node/MobileNode instproc CFP { beacon_period cfp_duration } {
  689.        if {$mactype == "Mac/802_11"} {
  690.                $self instvar mac_
  691.                set ns_ [Simulator instance]
  692.                set beacon_period [$ns_ delay_parse $beacon_period]
  693.                set cfp_duration [$ns_ delay_parse $cfp_duration]
  694.                $mac_(0) cfp $beacon_period $cfp_duration
  695.        }
  696.  }
  700. Node/MobileNode instproc mobility-trace { ttype atype } {
  701. set ns [Simulator instance]
  702.         set tracefd [$ns get-ns-traceall]
  703.         if { $tracefd == "" } {
  704.         puts "Warning: You have not defined you tracefile yet!"
  705.         puts "Please use trace-all command to define it."
  706. return ""
  707. }
  708. set T [new CMUTrace/$ttype $atype]
  709. $T newtrace [Simulator set WirelessNewTrace_]
  710. $T tagged [Simulator set TaggedTrace_]
  711. $T target [$ns nullagent]
  712. $T attach $tracefd
  713.         $T set src_ [$self id]
  714.         $T node $self
  715. return $T
  716. }
  718. Node/MobileNode instproc nodetrace { tracefd } {
  719. #
  720. # This Trace Target is used to log changes in direction
  721. # and velocity for the mobile node.
  722. #
  723. set T [new Trace/Generic]
  724. $T target [[Simulator instance] set nullAgent_]
  725. $T attach $tracefd
  726. $T set src_ [$self id]
  727. $self log-target $T    
  728. }
  730. Node/MobileNode instproc agenttrace {tracefd} {
  731. set ns [Simulator instance]
  732. set ragent [$self set ragent_]
  733. #
  734. # Drop Target (always on regardless of other tracing)
  735. #
  736. set drpT [$self mobility-trace Drop "RTR"]
  737. set namfp [$ns get-nam-traceall]
  738. if { $namfp != ""} {
  739. $drpT namattach $namfp
  740. }
  741. $ragent drop-target $drpT
  742. #
  743. # Log Target
  744. #
  745. set T [new Trace/Generic]
  746. $T target [$ns set nullAgent_]
  747. $T attach $tracefd
  748. $T set src_ [$self id]
  749. $ragent tracetarget $T
  750. #
  751. # XXX: let the IMEP agent use the same log target.
  752. #
  753. set imepflag [$ns imep-support]
  754. if {$imepflag == "ON"} {
  755. [$self set imep_(0)] log-target $T
  756. }
  757. }
  759. Node/MobileNode instproc mip-call {ragent} {
  760. $self instvar regagent_
  761. if [info exists regagent_] {
  762. $regagent_ ragent $ragent
  763. }
  764. }
  766. Node/MobileNode instproc attach-gafpartner {} {
  768.         $self instvar gafpartner_ address_ ll_ 
  770.         set gafpartner_ [new GAFPartner]
  772. $gafpartner_ set mask_ [AddrParams NodeMask 1]
  773. $gafpartner_ set shift_ [AddrParams NodeShift 1]
  774. set nodeaddr [AddrParams addr2id [$self node-addr]]
  776. #$gafpartner_ set addr_ [expr ( ~([AddrParams NodeMask 1] << 
  777. # [AddrParams NodeShift 1]) & $nodeaddr )]
  780. $gafpartner_ set addr_ $nodeaddr
  781. $gafpartner_ set port_ 254
  783. #puts [$gafpartner_ set addr_]
  785.         $gafpartner_ target [$self entry]
  786. $ll_(0) up-target $gafpartner_
  787. }
  789. Node/MobileNode instproc unset-gafpartner {} {
  790. $self instvar gafpartner_
  792. $gafpartner_ set-gafagent 0
  794. }
  796. # <zheng: add>
  797. Node/MobileNode instproc sscs args {
  798. $self instvar mac_
  799. eval $mac_(0) sscs $args
  800. }
  802. Node/MobileNode instproc NodeClr {arg1} {
  803. $self instvar mac_
  804. $mac_(0) NodeClr $arg1
  805. }
  807. Node/MobileNode instproc NodeLabel args {
  808. $self instvar mac_
  809. eval $mac_(0) NodeLabel $args
  810. }
  812. Node/MobileNode instproc node-down {} {
  813. $self instvar mac_
  814. $mac_(0) node-down
  815. }
  817. Node/MobileNode instproc node-up {} {
  818. $self instvar mac_
  819. $mac_(0) node-up
  820. }
  822. Node/MobileNode instproc RNType args {
  823. $self instvar ragent_
  824. eval $ragent_ RNType $args
  825. }
  826. # </zheng: add>
  828. Class SRNodeNew -superclass Node/MobileNode
  830. SRNodeNew instproc init args {
  831. $self instvar dsr_agent_ dmux_ entry_point_ address_
  833.         set ns [Simulator instance]
  835. eval $self next $args ;# parent class constructor
  837. if {$dmux_ == "" } {
  838. # Use the default mash and shift
  839. set dmux_ [new Classifier/Port]
  840. }
  841. set dsr_agent_ [new Agent/DSRAgent]
  843. # setup address (supports hier-address) for dsragent
  844. $dsr_agent_ addr $address_
  845. $dsr_agent_ node $self
  846. if [Simulator set mobile_ip_] {
  847. $dsr_agent_ port-dmux [$self set dmux_]
  848. }
  849. # set up IP address
  850. $self addr $address_
  852. if { [Simulator set RouterTrace_] == "ON" } {
  853. # Recv Target
  854. set rcvT [$self mobility-trace Recv "RTR"]
  855. set namfp [$ns get-nam-traceall]
  856. if {  $namfp != "" } {
  857. $rcvT namattach $namfp
  858. }
  859. $rcvT target $dsr_agent_
  860. set entry_point_ $rcvT
  861. } else {
  862. # Recv Target
  863. set entry_point_ $dsr_agent_
  864. }
  866. $self set ragent_ $dsr_agent_
  867. $dsr_agent_ target $dmux_
  869. # packets to the DSR port should be dropped, since we've
  870. # already handled them in the DSRAgent at the entry.
  871. set nullAgent_ [$ns set nullAgent_]
  872. $dmux_ install [Node set rtagent_port_] $nullAgent_
  874. # SRNodes don't use the IP addr classifier.  The DSRAgent should
  875. # be the entry point
  876. $self instvar classifier_
  877. set classifier_ "srnode made illegal use of classifier_"
  879. return $self
  880. }
  882. SRNodeNew instproc start-dsr {} {
  883. $self instvar dsr_agent_
  884. $dsr_agent_ startdsr
  885. }
  887. SRNodeNew instproc entry {} {
  888.         $self instvar entry_point_
  889.         return $entry_point_
  890. }
  892. SRNodeNew instproc add-interface args {
  893. eval $self next $args
  895. $self instvar dsr_agent_ ll_ mac_ ifq_
  897. set ns [Simulator instance]
  898. $dsr_agent_ mac-addr [$mac_(0) id]
  900. if { [Simulator set RouterTrace_] == "ON" } {
  901. # Send Target
  902. set sndT [$self mobility-trace Send "RTR"]
  903. set namfp [$ns get-nam-traceall]
  904. if {$namfp != "" } {
  905. $sndT namattach $namfp
  906. }
  907. $sndT target $ll_(0)
  908. $dsr_agent_ add-ll $sndT $ifq_(0)
  909. } else {
  910. # Send Target
  911. $dsr_agent_ add-ll $ll_(0) $ifq_(0)
  912. }
  913. # setup promiscuous tap into mac layer
  914. $dsr_agent_ install-tap $mac_(0)
  915. }
  917. SRNodeNew instproc reset args {
  918. $self instvar dsr_agent_
  919. eval $self next $args
  920. $dsr_agent_ reset
  921. }