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

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

通讯编程

开发平台：

Visual C++

ns-source.tcl：源码内容
  1. #
  2. # Copyright (c) 1996 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 without
  19. #    specific prior written permission.
  20. # 
  21. # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24. # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31. # SUCH DAMAGE.
  32. #
  33. # @(#) $Header: /cvsroot/nsnam/ns-2/tcl/lib/ns-source.tcl,v 1.25 2000/11/01 21:47:59 xuanc Exp $
  34. #
  36. #  NOTE:  Could consider renaming this file to ns-app.tcl and moving the
  37. #  backward compatible code to ns-compat.tcl
  39. #set ns_telnet(interval) 1000ms
  40. #set ns_bursty(interval) 0
  41. #set ns_bursty(burst-size) 2
  42. #set ns_message(packet-size) 40
  44. Class Application/FTP -superclass Application
  46. Application/FTP instproc init {} {
  47. $self next
  48. }
  50. Application/FTP instproc start {} {
  51. [$self agent] send -1
  52. }
  54. # Causes TCP to send no more new data.
  55. Application/FTP instproc stop {} {
  56. [$self agent] advance 0
  57. [$self agent] close
  58. }
  60. Application/FTP instproc send {nbytes} {
  61. [$self agent] send $nbytes
  62. }
  64. # For sending packets.  Sends $pktcnt packets.
  65. Application/FTP instproc produce { pktcnt } {
  66. [$self agent] advance $pktcnt
  67. }
  69. # For sending packets.  Sends $pktcnt more packets.
  70. Application/FTP instproc producemore { pktcnt } {
  71. [$self agent] advanceby $pktcnt
  72. }
  74. # Backward compatibility
  75. Application/Traffic instproc set args {
  76. $self instvar packetSize_ rate_
  77. if { [lindex $args 0] == "packet_size_" } {
  78. if { [llength $args] == 2 } {
  79. set packetSize_ [lindex $args 1]
  80. return
  81. } elseif { [llength $args] == 1 } {
  82. return $packetSize_
  83. }
  84. }
  85. eval $self next $args
  86. }
  87. # Helper function to convert rate_ into an interval_
  88. #Hicked to generate pulse UDP traffic (seperate rate_ and interval_).
  89. Application/Traffic/CBR instproc set args {
  90. $self instvar packetSize_ rate_
  91. if { [lindex $args 0] == "interval_" } {
  92. if { [llength $args] == 2 } {
  93. set ns_ [Simulator instance]
  94. set interval_ [$ns_ delay_parse [lindex $args 1]]
  95. $self set rate_ [expr $packetSize_ * 8.0/$interval_]
  96. return
  97. } elseif { [llength $args] == 1 } {
  98. return [expr $packetSize_ * 8.0/$rate_]
  99. }
  100. }
  101. eval $self next $args
  102. }
  104. #
  105. # Below are backward compatible components
  106. #
  108. Class Agent/CBR -superclass Agent/UDP
  109. Class Agent/CBR/UDP -superclass Agent/UDP
  110. Class Agent/CBR/RTP -superclass Agent/RTP
  111. Class Agent/CBR/UDP/SA -superclass Agent/SA
  113. Agent/SA instproc attach-traffic tg {
  114. $tg attach-agent $self
  115. eval $self cmd attach-traffic $tg
  116. }
  118. Agent/CBR/UDP instproc attach-traffic tg {
  119. $self instvar trafgen_
  120. $tg attach-agent $self
  121. set trafgen_ $tg
  122. }
  124. Agent/CBR/UDP instproc done {} { }
  126. Agent/CBR/UDP instproc start {} {
  127. $self instvar trafgen_
  128. $trafgen_ start
  129. }
  131. Agent/CBR/UDP instproc stop {} {
  132. $self instvar trafgen_
  133. $trafgen_ stop
  134. }
  136. Agent/CBR/UDP instproc advance args {
  137. $self instvar trafgen_
  138. eval $trafgen_ advance $args
  139. }
  141. Agent/CBR/UDP instproc advanceby args {
  142. $self instvar trafgen_
  143. eval $trafgen_ advanceby $args
  144. }
  146. Agent/CBR instproc init {} {
  147. $self next
  148. $self instvar trafgen_ interval_ random_ packetSize_ maxpkts_
  149. # The following used to be in ns-default.tcl
  150. set packetSize_ 210
  151. set random_ 0
  152. set maxpkts_ 268435456
  153. set interval_ 0.00375
  154. set trafgen_ [new Application/Traffic/CBR]
  155. $trafgen_ attach-agent $self
  156. # Convert packetSize_ and interval_ to trafgen_ rate_
  157. $trafgen_ set rate_ [expr $packetSize_ * 8.0/ $interval_]
  158. $trafgen_ set random_ [$self set random_]
  159. $trafgen_ set maxpkts_ [$self set maxpkts_]
  160. $trafgen_ set packetSize_ [$self set packetSize_]
  161. # The line below is needed for backward compat with v1 test scripts 
  162.         if {[Simulator set nsv1flag] == 0} { 
  163.         
  164.     puts "using backward compatible Agent/CBR; use Application/Traffic/CBR instead"
  165. }    
  166. }
  170. Agent/CBR instproc done {} { }
  172. Agent/CBR instproc start {} {
  173. $self instvar trafgen_
  174. $trafgen_ start
  175. }
  177. Agent/CBR instproc stop {} {
  178. $self instvar trafgen_
  179. $trafgen_ stop
  180. }
  182. Agent/CBR instproc advance args {
  183. $self instvar trafgen_
  184. eval $trafgen_ advance $args
  185. }
  187. Agent/CBR instproc advanceby args {
  188. $self instvar trafgen_
  189. eval $trafgen_ advanceby $args
  190. }
  192. # Catches parameter settings for overlying traffic generator object
  193. Agent/CBR instproc set args {
  194. $self instvar interval_ random_ packetSize_ maxpkts_ trafgen_
  195. if { [info exists trafgen_] } {
  196. if { [lindex $args 0] == "packetSize_" } {
  197. if { [llength $args] == 2 } {
  198. $trafgen_ set packetSize_ [lindex $args 1]
  199. set packetSize_ [lindex $args 1]
  200. # Recompute rate 
  201. $trafgen_ set rate_ [expr $packetSize_ * 8.0/ $interval_]
  202.                          return 
  203.                  } elseif { [llength $args] == 1 } {
  204. return $packetSize_
  205.                  }
  206. } elseif { [lindex $args 0] == "random_" } {
  207. if { [llength $args] == 2 } {
  208. $trafgen_ set random_ [lindex $args 1]
  209. set random_ [lindex $args 1]
  210. return
  211.                  } elseif { [llength $args] == 1 } {
  212. return $random_
  213. }
  214. } elseif { [lindex $args 0] == "maxpkts_" } {
  215. if { [llength $args] == 2 } {
  216. $trafgen_ set maxpkts_ [lindex $args 1]
  217. set maxpkts_ [lindex $args 1]
  218. return
  219.                  } elseif { [llength $args] == 1 } {
  220. return $maxpkts_
  221. }
  222. } elseif { [lindex $args 0] == "interval_" } {
  223. if { [llength $args] == 2 } {
  224. set ns_ [Simulator instance]
  225. set interval_ [$ns_ delay_parse [lindex $args 1]]
  226. # Convert interval_ to rate for trafgen_
  227. $trafgen_ set rate_ [expr $packetSize_ * 8.0/ $interval_]
  228. return
  229.                  } elseif { [llength $args] == 1 } {
  230. return $interval_
  231. }
  232. }
  233. }
  234. eval $self next $args
  235. }
  236.  
  237. Class Traffic/Expoo -superclass Application/Traffic/Exponential
  238. Class Traffic/Pareto -superclass Application/Traffic/Pareto
  239. Class Traffic/RealAudio -superclass Application/Traffic/RealAudio
  240. Class Traffic/Trace -superclass Application/Traffic/Trace
  242. # These instprocs are needed to map old Traffic/* type variables
  243. Traffic/Expoo instproc set args {
  244. $self instvar packetSize_ burst_time_ idle_time_ rate_ 
  245. if { [lindex $args 0] == "packet-size" } {
  246. if { [llength $args] == 2 } {
  247. $self set packetSize_ [lindex $args 1]
  248.                         return 
  249.                 } elseif { [llength $args] == 1 } {
  250. return $packetSize_
  251.                 }
  252. } elseif { [lindex $args 0] == "burst-time" } {
  253. if { [llength $args] == 2 } {
  254. $self set burst_time_ [lindex $args 1]
  255.                         return 
  256.                 } elseif { [llength $args] == 1 } {
  257. return $burst_time_
  258.                 }
  259. } elseif { [lindex $args 0] == "idle-time" } {
  260. if { [llength $args] == 2 } {
  261. $self set idle_time_ [lindex $args 1]
  262.                         return 
  263.                 } elseif { [llength $args] == 1 } {
  264. return $idle_time_
  265.                 }
  266. } elseif { [lindex $args 0] == "rate" } {
  267. if { [llength $args] == 2 } {
  268. $self set rate_ [lindex $args 1]
  269.                         return 
  270.                 } elseif { [llength $args] == 1 } {
  271. return $rate_
  272.                 }
  273. }
  274. eval $self next $args
  275. }
  277. Traffic/Pareto instproc set args {
  278. $self instvar packetSize_ burst_time_ idle_time_ rate_ shape_
  279. if { [lindex $args 0] == "packet-size" } {
  280. if { [llength $args] == 2 } {
  281. $self set packetSize_ [lindex $args 1]
  282.                         return 
  283.                 } elseif { [llength $args] == 1 } {
  284. return $packetSize_
  285.                 }
  286. } elseif { [lindex $args 0] == "burst-time" } {
  287. if { [llength $args] == 2 } {
  288. $self set burst_time_ [lindex $args 1]
  289.                         return 
  290.                 } elseif { [llength $args] == 1 } {
  291. return $burst_time_
  292.                 }
  293. } elseif { [lindex $args 0] == "idle-time" } {
  294. if { [llength $args] == 2 } {
  295. $self set idle_time_ [lindex $args 1]
  296.                         return 
  297.                 } elseif { [llength $args] == 1 } {
  298. return $idle_time_
  299.                 }
  300. } elseif { [lindex $args 0] == "rate" } {
  301. if { [llength $args] == 2 } {
  302. $self set rate_ [lindex $args 1]
  303.                         return 
  304.                 } elseif { [llength $args] == 1 } {
  305. return $rate_
  306.                 }
  307. } elseif { [lindex $args 0] == "shape" } {
  308. if { [llength $args] == 2 } {
  309. $self set shape_ [lindex $args 1]
  310.                         return 
  311.                 } elseif { [llength $args] == 1 } {
  312. return $shape_
  313.                 }
  314. }
  315. eval $self next $args
  316. }
  318. Traffic/RealAudio instproc set args {
  319. $self instvar packetSize_ burst_time_ idle_time_ rate_ 
  320. if { [lindex $args 0] == "packet-size" } {
  321. if { [llength $args] == 2 } {
  322. $self set packetSize_ [lindex $args 1]
  323.                         return 
  324.                 } elseif { [llength $args] == 1 } {
  325. return $packetSize_
  326.                 }
  327. } elseif { [lindex $args 0] == "burst-time" } {
  328. if { [llength $args] == 2 } {
  329. $self set burst_time_ [lindex $args 1]
  330.                         return 
  331.                 } elseif { [llength $args] == 1 } {
  332. return $burst_time_
  333.                 }
  334. } elseif { [lindex $args 0] == "idle-time" } {
  335. if { [llength $args] == 2 } {
  336. $self set idle_time_ [lindex $args 1]
  337.                         return 
  338.                 } elseif { [llength $args] == 1 } {
  339. return $idle_time_
  340.                 }
  341. } elseif { [lindex $args 0] == "rate" } {
  342. if { [llength $args] == 2 } {
  343. $self set rate_ [lindex $args 1]
  344.                         return 
  345.                 } elseif { [llength $args] == 1 } {
  346. return $rate_
  347.                 }
  348. }
  349. eval $self next $args
  350. }
  352. Class Source/FTP -superclass Application
  353. Source/FTP set maxpkts_ 268435456
  355. Source/FTP instproc attach o {
  356. $self instvar agent_
  357. set agent_ $o
  358. $self attach-agent $o
  359. }
  361. Source/FTP instproc init {} {
  362. $self next
  363. $self instvar maxpkts_ agent_
  364. set maxpkts_ 268435456
  365. }
  367. Source/FTP instproc start {} {
  368. $self instvar agent_ maxpkts_
  369. $agent_ advance $maxpkts_
  370. }
  372. Source/FTP instproc stop {} {
  373. $self instvar agent_
  374. $agent_ advance 0
  375. }
  377. Source/FTP instproc produce { pktcnt } {
  378. $self instvar agent_ 
  379. $agent_ advance $pktcnt
  380. }
  382. Source/FTP instproc producemore { pktcnt } {
  383. $self instvar agent_
  384. $agent_ advanceby $pktcnt
  385. }
  388. #
  389. # For consistency with other applications
  390. #
  391. Class Source/Telnet -superclass Application/Telnet
  393. Source/Telnet set maxpkts_ 268435456
  395. Source/Telnet instproc attach o {
  396. $self instvar agent_
  397. set agent_ $o
  398. $self attach-agent $o
  399. }