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

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

通讯编程

开发平台：

Visual C++

com.tcl：源码内容
  1. #
  2. # Copyright (c) 1996-1998 Regents of the University of California.
  3. # All rights reserved.
  4. # 
  5. # Redistribution and use in source and binary forms, with or without
  6. # modification, are permitted provided that the following conditions
  7. # are met:
  8. # 1. Redistributions of source code must retain the above copyright
  9. #    notice, this list of conditions and the following disclaimer.
  10. # 2. Redistributions in binary form must reproduce the above copyright
  11. #    notice, this list of conditions and the following disclaimer in the
  12. #    documentation and/or other materials provided with the distribution.
  13. # 3. All advertising materials mentioning features or use of this software
  14. #    must display the following acknowledgement:
  15. #  This product includes software developed by the MASH Research
  16. #  Group at the University of California Berkeley.
  17. # 4. Neither the name of the University nor of the Research Group may be
  18. #    used to endorse or promote products derived from this software
  19. # 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/mobility/com.tcl,v 1.9 2003/02/19 22:22:28 haldar Exp $
  35. #
  37. # These procedures are all obsolete and has been replaced by the newer node 
  38. # configuration. See test-suite-WL-tutorial.tcl for details.
  40. proc create-base-station-node {address } {
  41.     
  42.     puts "Method create-base-station-node is now obsolete. Use methods in ~ns/tcl/test/test-suite-WLtutorial.tcl to create base-station nodesnn"
  43.     exit 0
  45.     # global topo tracefd opt node node_ ns_
  46. #     set ns_ [Simulator instance]
  47. #     if [Simulator set mobile_ip_] {
  48. #  Simulator set node_factory_ MobileNode/MIPBS
  49. #     } else {
  50. #  Simulator set node_factory_ Node/MobileNode/BaseStationNode
  51. #     }
  52. #     set node [$ns_ node $address]
  53. #     set id [$node id]
  55. #     $node random-motion 0 ;# disable random motion
  56. #     $node topography $topo
  57. #     #
  58. #     # This Trace Target is used to log changes in direction
  59. #     # and velocity for the mobile node.
  60. #     #
  61. #     set T [new Trace/Generic]
  62. #     $T target [$ns_ set nullAgent_]
  63. #     $T attach $tracefd
  64. #     $T set src_ $id
  65. #     $node log-target $T
  66. #     $node base-station [AddrParams addr2id [$node node-addr]]
  67.     
  68. #     create-$opt(rp)-bs-node $node $id
  69.     
  70. #     Simulator set node_factory_ Node    ;# default value
  71. #     return $node
  72. }
  75. proc create-dsdv-bs-node {node id} {
  77.     puts "Method create-dsdv-bs-node is now obsolete. Use methods in ~ns/tcl/test/test-suite-WLtutorial.tcl to create base-station nodesnn"
  78.     exit 0
  80. # global ns_ chan prop opt node_
  81. # $node instvar regagent_ ragent_
  82. #
  83. # $node add-interface $chan $prop $opt(ll) $opt(mac)
  84. #     $opt(ifq) $opt(ifqlen) $opt(netif) 
  85. #     $opt(ant)
  86. #    
  87. # create-$opt(rp)-routing-agent $node $id
  88. #
  89. # if [info exists regagent_] {
  90. # $regagent_ ragent $ragent_
  91. # }
  92. # if { $opt(pos) == "Box" } {
  93. # #
  94. # # Box Configuration
  95. # #
  96. # set spacing 200
  97. # set maxrow 7
  98. # set col [expr ($id - 1) % $maxrow]
  99. # set row [expr ($id - 1) / $maxrow]
  100. # $node set X_ [expr $col * $spacing]
  101. # $node set Y_ [expr $row * $spacing]
  102. # $node set Z_ 0.0
  103. # $node set speed_ 0.0
  104. #
  105. # $ns_ at 0.0 "$node_($id) start"
  106. # }
  107. }
  109. proc create-dsr-bs-node {node id} {
  111.     puts "Method create-dsr-bs-node is now obsolete. Use methods in ~ns/tcl/test/test-suite-WLtutorial.tcl to create base-station nodesnn"
  112.     exit 0
  114. #    global ns_ chan prop opt
  115. #    $node instvar regagent_ ragent_
  116. #    
  117. #    $node add-interface $chan $prop $opt(ll) $opt(mac)
  118. #     $opt(ifq) $opt(ifqlen) $opt(netif) 
  119. #     $opt(ant)
  120. #    
  121. #    create-$opt(rp)-routing-agent $node $id
  122. #    $node create-xtra-interface 
  123. #    
  124. #    if [info exists regagent_] {
  125. # $regagent_ ragent $ragent_
  126. #    }
  127. #    
  128. #    $ns_ at 0.0 "$node start-dsr"
  129. }
  132. proc create-dsr-routing-agent { node id } {
  134.     puts "Method create-dsr-routing-agent is now obsolete. Use methods in ~ns/tcl/test/test-suite-WLtutorial.tcl to create base-station nodesnn"
  135.     exit 0
  136.     
  137. #    global ns_ ragent_ tracefd opt
  138. #
  139. #    # 
  140. #    # Create routing agent and attach it to port 255
  141. #    #
  142. #    set ragent_($id) [new Agent/DSRAgent/BS_DSRAgent]
  143. #    set ragent $ragent_($id)
  144. #    
  145. #    # setup address (supports hier-addr) for dsdv agent 
  146. #    set address [$node node-addr]
  147. #    $ragent addr $address
  148. #    $ragent node $node
  149. #    if [Simulator set mobile_ip_] {
  150. # $ragent port-dmux [$node set dmux_]
  151. #    }
  152. #    
  153. #    $node addr $address
  154. #    $node set ragent_ $ragent
  155. #    
  156. #    set dmux [$node set dmux_]
  157. #    if {$dmux == "" } {
  158. # set dmux [new Classifier/Hash/Dest 32]
  159. # $dmux set mask_ [AddrParams PortMask]
  160. # $dmux set shift_ [AddrParams PortShift]
  161. # #
  162. # # point the node's routing entry to itself
  163. # # at the port demuxer (if there is one)
  164. # #
  165. # $node add-route $address $ragent
  166. # $node set dmux_ $dmux
  167. #    }
  168. #    set level [AddrParams hlevel]
  169. #    
  170. #    if { [Simulator set RouterTrace_] == "ON" } {
  171. # #
  172. # Recv Target
  173. #
  174. # set rcvT [cmu-trace Recv "RTR" $node]
  175. # $rcvT target $ragent
  176. # for {set i 1} {$i <= $level} {incr i} {
  177. #     [$node set classifiers_($i)] defaulttarget $rcvT
  178. #     [$node set classifiers_($i)] bcast-receiver $rcvT
  179. # }
  180. #    } else {
  181. #
  182. # for {set i 1} {$i <= $level} {incr i} {
  183. #     [$node set classifiers_($i)] defaulttarget $ragent
  184. #     [$node set classifiers_($i)] bcast-receiver $ragent
  185. # }
  186. #    }
  187.     #
  188.     # Drop Target (always on regardless of other tracing)
  189.     #
  190. #    set drpT [cmu-trace Drop "RTR" $node]
  191. #    $ragent drop-target $drpT
  192. #    
  193.     #
  194.     # Log Target
  195.     #
  196.     #set T [new Trace/Generic]
  197.     #$T target [$ns_ set nullAgent_]
  198.     #$T attach $tracefd
  199.     #$T set src_ [$node id]
  200.     #$ragent log-target $T
  202. #    $ragent target $dmux
  203.     
  204.     # packets to the DSR port should be handed over to ragent_
  205.     # since all pkts now donot go thru ragent
  206. #    $dmux install $opt(rt_port) $ragent
  207. }
  210. Node/MobileNode/BaseStationNode instproc create-xtra-interface { } {
  211.     global ns_ opt 
  212.     $self instvar ragent_ ll_ mac_ ifq_
  213.     
  214.     $ragent_ mac-addr [$mac_(0) id]
  216.     if { [Simulator set RouterTrace_] == "ON" } {
  217. # Send Target
  218. set sndT [cmu-trace Send "RTR" $self]
  219. $sndT target $ll_(0)
  220. $ragent_ add-ll $sndT $ifq_(0)
  221.     } else {
  222. # Send Target
  223. $ragent_ add-ll $ll_(0) $ifq_(0)
  224.     }
  225.     
  226.     # setup promiscuous tap into mac layer
  227.     $ragent_ install-tap $mac_(0)
  228.     
  229. }
  231. Node/MobileNode/BaseStationNode instproc start-dsr {} {
  232.     $self instvar ragent_
  233.     global opt;
  235.     $ragent_ startdsr
  236.     if {$opt(cc) == "on"} {checkcache $dsr_agent_}
  237. }
  239. Node/MobileNode/BaseStationNode instproc reset args {
  240.     $self instvar ragent_
  241.     eval $self next $args
  243.     $ragent_ reset
  244. }
  246. #Class God
  247. #God instproc init {args} { 
  248. # eval $self next $args
  249. #}
  251. proc create-god { nodes } {
  252. #global ns_ god_ tracefd
  253. set god [God info instances]
  254. if { $god == "" } {
  255. set god [new God]
  256. }
  257. $god num_nodes $nodes
  258. return $god
  259. }
  261. God proc instance {} {
  262. set god [God info instances]
  263.         if { $god != "" } {
  264.                 return $god
  265.         }  
  266. error "Cannot find instance of god"
  267. }      
  269. proc cmu-trace { ttype atype node } {
  270. global ns_ tracefd
  272. if { $tracefd == "" } {
  273. return ""
  274. }
  275. set T [new CMUTrace/$ttype $atype]
  276. $T target [$ns_ set nullAgent_]
  277. $T attach $tracefd
  278.         $T set src_ [$node id]
  280.         $T node $node
  282. return $T
  283. }
  285. proc log-movement {} {
  286.     global logtimer ns_ ns
  288.     set ns $ns_
  289.     source ../mobility/timer.tcl
  290.     Class LogTimer -superclass Timer
  291.     LogTimer instproc timeout {} {
  292.         global opt node_;
  293.         for {set i 0} {$i < $opt(nn)} {incr i} {
  294.             $node_($i) log-movement
  295.         }
  296.         $self sched 0.1
  297.     }
  299.     set logtimer [new LogTimer]
  300.     $logtimer sched 0.1
  301. }    
  303. proc set-wireless-traces { args } {
  304.   set len [llength $args]
  305.   if { $len <= 0 || [expr $len%2] } {
  306.         error "Incorrect number of parameters"
  307.   }
  308.   for {set n 0} {$n < $len} {incr n 2} {
  309.      if {[string compare [lindex $args $n] "-AgentTrace"] == 0 } {
  310.          Simulator set AgentTrace_ [lindex $args [expr $n+1]]
  311.      } elseif {[string compare [lindex $args $n] "-RouterTrace"] == 0 } {
  312.          Simulator set RouterTrace_ [lindex $args [expr $n+1]]
  313.      } elseif {[string compare [lindex $args $n] "-MacTrace"] == 0 } {
  314.          Simulator set MacTrace_ [lindex $args [expr $n+1]]
  315.      } else {
  316.           error "Unknown wireless trace type: [lindex $args $n]"
  317.      }
  318.   }
  319. }