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

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

通讯编程

开发平台：

Visual C++

topologies.tcl：源码内容
  1. #
  2. # Copyright (c) 1995 The 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 Computer Systems
  16. # Engineering Group at Lawrence Berkeley Laboratory.
  17. # 4. Neither the name of the University nor of the Laboratory may be used
  18. #    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/test/topologies.tcl,v 1.14 1998/05/09 00:35:53 sfloyd Exp $
  34. #
  35. #
  36. # This test suite reproduces most of the tests from the following note:
  37. # Floyd, S., Simulator Tests. July 1995.  
  38. # URL ftp://ftp.ee.lbl.gov/papers/simtests.ps.Z.
  39. #
  40. # To run individual tests:
  41. # ns test-suite.tcl tahoe1
  42. # ns test-suite.tcl tahoe2
  43. # ...
  44. #
  46. Class SkelTopology
  48. SkelTopology instproc init {} {
  49.     $self next
  50. }
  52. SkelTopology instproc node? n {
  53.     $self instvar node_
  54.     if [info exists node_($n)] {
  55. set ret $node_($n)
  56.     } else {
  57. set ret ""
  58.     }
  59.     set ret
  60. }
  62. SkelTopology instproc add-fallback-links {ns nodelist bw delay qtype args} {
  63.    $self instvar node_
  64.     set n1 [lindex $nodelist 0]
  65.     foreach n2 [lrange $nodelist 1 end] {
  66. if ![info exists node_($n2)] {
  67.     set node_($n2) [$ns node]
  68. }
  69. $ns duplex-link $node_($n1) $node_($n2) $bw $delay $qtype
  70. foreach opt $args {
  71.     set cmd [lindex $opt 0]
  72.     set val [lindex $opt 1]
  73.     if {[llength $opt] > 2} {
  74. set x1 [lindex $opt 2]
  75. set x2 [lindex $opt 3]
  76.     } else {
  77. set x1 $n1
  78. set x2 $n2
  79.     }
  80.     $ns $cmd $node_($x1) $node_($x2) $val
  81.     $ns $cmd $node_($x2) $node_($x1) $val
  82. }
  83. set n1 $n2
  84.     }
  85. }
  87. SkelTopology instproc checkConfig {lclass ns} {
  88.     if {[$lclass info instprocs config] != "" &&
  89.     [$self info class] == $lclass} {
  90. $self config $ns
  91.     }
  92. }
  94. #
  96. Class NodeTopology/4nodes -superclass SkelTopology
  98. # Create a simple four node topology:
  99. #
  100. #    s1
  101. #       
  102. #     8Mb,5ms    0.8Mb,100ms
  103. #         r1 --------- k1
  104. #     8Mb,5ms /
  105. #      /
  106. #    s2
  108. NodeTopology/4nodes instproc init ns {
  109.     $self next
  111.     $self instvar node_
  112.     set node_(s1) [$ns node]
  113.     set node_(s2) [$ns node]
  114.     set node_(r1) [$ns node]
  115.     set node_(k1) [$ns node]
  116. }
  118. #
  119. # Links1 uses 8Mb, 5ms feeders, and a 800Kb 100ms bottleneck.
  120. # Queue-limit on bottleneck is 6 packets.
  121. #
  122. Class Topology/net0 -superclass NodeTopology/4nodes
  123. Topology/net0 instproc init ns {
  124.     $self next $ns
  125.     $self instvar node_
  126.     $ns duplex-link $node_(s1) $node_(r1) 8Mb 5ms DropTail 
  127.     $ns duplex-link $node_(s2) $node_(r1) 8Mb 5ms DropTail 
  128.     $ns duplex-link $node_(r1) $node_(k1) 800Kb 100ms DropTail
  129.     $ns queue-limit $node_(r1) $node_(k1) 6
  130.     $ns queue-limit $node_(k1) $node_(r1) 6
  132.     $ns duplex-link-op $node_(s1) $node_(r1) orient right-down
  133.     $ns duplex-link-op $node_(s2) $node_(r1) orient right-up
  134.     $ns duplex-link-op $node_(r1) $node_(k1) orient right
  135.     $ns duplex-link-op $node_(r1) $node_(k1) queuePos 0
  136.     $ns duplex-link-op $node_(k1) $node_(r1) queuePos 0
  138.     $self checkConfig $class $ns
  139. }
  141. Class Topology/net0-lossy -superclass NodeTopology/4nodes
  142. Topology/net0-lossy instproc init ns {
  143.     $self next $ns
  144.     $self instvar node_
  145.     $ns duplex-link $node_(s1) $node_(r1) 8Mb 5ms DropTail 
  146.     $ns duplex-link $node_(s2) $node_(r1) 8Mb 5ms DropTail 
  147.     $ns duplex-link $node_(r1) $node_(k1) 800Kb 100ms DropTail
  148.     $ns queue-limit $node_(r1) $node_(k1) 6
  149.     $ns queue-limit $node_(k1) $node_(r1) 6
  151.     $ns duplex-link-op $node_(s1) $node_(r1) orient right-down
  152.     $ns duplex-link-op $node_(s2) $node_(r1) orient right-up
  153.     $ns duplex-link-op $node_(r1) $node_(k1) orient right
  154.     $ns duplex-link-op $node_(r1) $node_(k1) queuePos 0
  155.     $ns duplex-link-op $node_(k1) $node_(r1) queuePos 0
  157.     $self instvar lossylink_
  158.     set lossylink_ [$ns link $node_(r1) $node_(k1)]
  159.     set em [new ErrorModule Fid]
  160.     set errmodel [new ErrorModel/Periodic]
  161.     $errmodel unit pkt
  162.     $errmodel set offset_ 1.0
  163.     $errmodel set period_ 25.0
  164.     $lossylink_ errormodule $em
  165.     $em insert $errmodel
  166.     $em bind $errmodel 0
  168.     $self checkConfig $class $ns
  169. }
  171. Class Topology/net0- -superclass Topology/net0
  172. Topology/net0- instproc init ns {
  173.     $self next $ns
  174.     $self instvar node_ rtm_
  175.     set rtm_(r1:k1)  [$ns rtmodel Exponential {} $node_(r1) $node_(k1)]
  176.     set dynamicsTrace [open dyn.tr "w"]
  177.     [$ns link $node_(r1) $node_(k1)] trace-dynamics $ns $dynamicsTrace
  178.     [$ns link $node_(k1) $node_(r1)] trace-dynamics $ns $dynamicsTrace
  179.     $self checkConfig $class $ns
  180. }
  182. Class Topology/net0-Session -superclass Topology/net0
  183. Topology/net0-Session instproc init ns {
  184.     $self next $ns ;# instantiate entire topology
  185.     $self add-fallback-links $ns {r1 b1 k1} 800Kb 100ms DropTail
  186.     $self instvar node_ rtm_
  187.     set rtm_(r1:k1) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(k1)]
  188.     $ns rtproto Session
  189.     $self checkConfig $class $ns
  190. }
  192. Class Topology/net0-DV -superclass Topology/net0
  193. Topology/net0-DV instproc init ns {
  194.     $self next $ns ;# instantiate entire topology
  195.     $self add-fallback-links $ns {r1 b1 k1} 800Kb 100ms DropTail
  196.     $self instvar node_ rtm_
  197.     set rtm_(r1:k1) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(k1)]
  198.     $ns rtproto DV
  199.     $self checkConfig $class $ns
  200. }
  202. Class Topology/net0-DVm0 -superclass Topology/net0
  203. Topology/net0-DVm0 instproc init ns {
  204.     Node set multiPath_ 1
  205.     Agent/rtProto/Direct set preference_ 200 ;# Cf. tcl/ex/simple-eqp1.tcl
  207.     $self next $ns ;# now instantiate entire topology
  208.     $self add-fallback-links $ns {r1 b1 k1} 800Kb 100ms DropTail {cost 2 r1 k1}
  209.     $ns rtproto DV
  210.     $self checkConfig $class $ns
  211. }
  213. Class Topology/net0-DVm1 -superclass Topology/net0
  214. Topology/net0-DVm1 instproc init ns {
  215.     Node set multiPath_ 1
  216.     Agent/rtProto/Direct set preference_ 200 ;# Cf. tcl/ex/simple-eqp1.tcl
  218.     $self next $ns ;# now instantiate entire topology
  219.     $self add-fallback-links $ns {r1 b1 k1} 800Kb 100ms DropTail {cost 2 r1 k1}
  220.     $self instvar node_ rtm_
  221.     set rtm_(r1:k1) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(k1)]
  222.     $ns rtproto DV
  223.     $self checkConfig $class $ns
  224. }
  226. #
  227. #
  228. # Links1 uses 10Mb, 5ms feeders, and a 1.5Mb 100ms bottleneck.
  229. # Queue-limit on bottleneck is 23 packets.
  230. #
  232. Class Topology/net1 -superclass NodeTopology/4nodes
  233. Topology/net1 instproc init ns {
  234.     $self next $ns
  235.     $self instvar node_
  237.     $ns duplex-link $node_(s1) $node_(r1) 10Mb 5ms DropTail 
  238.     $ns duplex-link $node_(s2) $node_(r1) 10Mb 5ms DropTail 
  239.     $ns duplex-link $node_(r1) $node_(k1) 1.5Mb 100ms DropTail
  240.     $ns queue-limit $node_(r1) $node_(k1) 23
  241.     $ns queue-limit $node_(k1) $node_(r1) 23
  243.     $ns duplex-link-op $node_(s1) $node_(r1) orient right-down
  244.     $ns duplex-link-op $node_(s2) $node_(r1) orient right-up
  245.     $ns duplex-link-op $node_(r1) $node_(k1) orient right
  246.     $ns duplex-link-op $node_(r1) $node_(k1) queuePos 0
  247.     $ns duplex-link-op $node_(k1) $node_(r1) queuePos 0
  249.     $self checkConfig $class $ns
  250. }
  252. Class Topology/net1- -superclass Topology/net1
  253. Topology/net1- instproc init ns {
  254.     $self next $ns
  255.     $self instvar node_ rtm_
  256.     set rtm_(r1:k1) [$ns rtmodel Exponential {} $node_(r1) $node_(k1)]
  257.     set dynamicsTrace [open dyn.tr "w"]
  258.     [$ns link $node_(r1) $node_(k1)] trace-dynamics $ns $dynamicsTrace
  259.     [$ns link $node_(k1) $node_(r1)] trace-dynamics $ns $dynamicsTrace
  260.     $self checkConfig $class $ns
  261. }
  263. Class Topology/net1-Session -superclass Topology/net1
  264. Topology/net1-Session instproc init ns {
  265.     $self next $ns ;# instantiate entire topology
  266.     $self add-fallback-links $ns {r1 b1 k1} 1.5Mb 100ms DropTail
  267.     $self instvar node_ rtm_
  268.     set rtm_(r1:k1) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(k1)]
  269.     $ns rtproto Session
  270.     $self checkConfig $class $ns
  271. }
  273. Class Topology/net1-DV -superclass Topology/net1
  274. Topology/net1-DV instproc init ns {
  275.     $self next $ns ;# instantiate entire topology
  276.     $self add-fallback-links $ns {r1 b1 k1} 1.5Mb 100ms DropTail
  277.     $self instvar node_ rtm_
  278.     set rtm_(r1:k1) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(k1)]
  279.     $ns rtproto DV
  280.     $self checkConfig $class $ns
  281. }
  283. Class Topology/net1-DVm0 -superclass Topology/net1
  284. Topology/net1-DVm0 instproc init ns {
  285.     Node set multiPath_ 1
  286.     Agent/rtProto/Direct set preference_ 200 ;# Cf. tcl/ex/simple-eqp1.tcl
  288.     $self next $ns ;# now instantiate entire topology
  289.     $self add-fallback-links $ns {r1 b1 k1} 1.5Mb 100ms DropTail {cost 2 r1 k1}
  290.     $ns rtproto DV
  291.     $self checkConfig $class $ns
  292. }
  294. Class Topology/net1-DVm1 -superclass Topology/net1
  295. Topology/net1-DVm1 instproc init ns {
  296.     Node set multiPath_ 1
  297.     Agent/rtProto/Direct set preference_ 200 ;# Cf. tcl/ex/simple-eqp1.tcl
  299.     $self next $ns ;# now instantiate entire topology
  300.     $self add-fallback-links $ns {r1 b1 k1} 1.5Mb 100ms DropTail {cost 2 r1 k1}
  301.     $self instvar node_ rtm_
  302.     set rtm_(r1:k1) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(k1)]
  303.     $ns rtproto DV
  304.     $self checkConfig $class $ns
  305. }
  307. #
  309. Class NodeTopology/6nodes -superclass SkelTopology
  311. #
  312. # Create a simple six node topology:
  313. #
  314. #        s1                 s3
  315. #                          /
  316. # 10Mb,2ms   1.5Mb,20ms   / 10Mb,4ms
  317. #           r1 --------- r2
  318. # 10Mb,3ms /                10Mb,5ms
  319. #         /                 
  320. #        s2                 s4 
  321. #
  323. NodeTopology/6nodes instproc init ns {
  324.     $self next
  326.     $self instvar node_
  327.     set node_(s1) [$ns node]
  328.     set node_(s2) [$ns node]
  329.     set node_(r1) [$ns node]
  330.     set node_(r2) [$ns node]
  331.     set node_(s3) [$ns node]
  332.     set node_(s4) [$ns node]
  333. }
  335. Class Topology/cbq1 -superclass NodeTopology/6nodes
  336. Topology/cbq1 instproc init ns {
  337. $self next $ns
  339. $self instvar node_
  340. $ns duplex-link $node_(s1) $node_(r1) 10Mb 5ms DropTail
  341. $ns duplex-link $node_(s2) $node_(r1) 10Mb 5ms DropTail
  342. $ns duplex-link $node_(s3) $node_(r1) 10Mb 5ms DropTail
  343. $ns duplex-link $node_(s4) $node_(r1) 10Mb 5ms DropTail
  344. $ns simplex-link $node_(r2) $node_(r1) 1.5Mb 5ms DropTail
  345. $ns queue-limit $node_(r2) $node_(r1) 20
  346. }
  348. Class Topology/cbq1-prr -superclass Topology/cbq1
  349. Topology/cbq1-prr instproc init ns {
  350. $self next $ns
  352. $self instvar node_ cbqlink_
  353. $ns simplex-link $node_(r1) $node_(r2) 1.5Mb 5ms CBQ
  354. set cbqlink_ [$ns link $node_(r1) $node_(r2)]
  355. }
  357. Class Topology/cbq1-wrr -superclass Topology/cbq1
  358. Topology/cbq1-wrr instproc init ns {
  359. $self next $ns
  361. $self instvar node_ cbqlink_
  362. $ns simplex-link $node_(r1) $node_(r2) 1.5Mb 5ms CBQ/WRR
  363. set cbqlink_ [$ns link $node_(r1) $node_(r2)]
  364. }
  366. Class Topology/net2 -superclass NodeTopology/6nodes
  367. Topology/net2 instproc init ns {
  368.     $self next $ns
  370.     $self instvar node_
  371.     $ns duplex-link $node_(s1) $node_(r1) 10Mb 2ms DropTail 
  372.     $ns duplex-link $node_(s2) $node_(r1) 10Mb 3ms DropTail 
  373.     $ns duplex-link $node_(r1) $node_(r2) 1.5Mb 20ms RED 
  374.     $ns queue-limit $node_(r1) $node_(r2) 25
  375.     $ns queue-limit $node_(r2) $node_(r1) 25
  376.     $ns duplex-link $node_(s3) $node_(r2) 10Mb 4ms DropTail 
  377.     $ns duplex-link $node_(s4) $node_(r2) 10Mb 5ms DropTail 
  379.     $ns duplex-link-op $node_(s1) $node_(r1) orient right-down
  380.     $ns duplex-link-op $node_(s2) $node_(r1) orient right-up
  381.     $ns duplex-link-op $node_(r1) $node_(r2) orient right
  382.     $ns duplex-link-op $node_(r1) $node_(r2) queuePos 0
  383.     $ns duplex-link-op $node_(r2) $node_(r1) queuePos 0
  384.     $ns duplex-link-op $node_(s3) $node_(r2) orient left-down
  385.     $ns duplex-link-op $node_(s4) $node_(r2) orient left-up
  387.     $self checkConfig $class $ns
  388. }
  390. Class Topology/net2-lossy -superclass Topology/net2
  391. Topology/net2-lossy instproc init ns {
  392.     $self next $ns
  393.     $self instvar node_
  395.     $self instvar lossylink_
  396.     set lossylink_ [$ns link $node_(r1) $node_(r2)]
  397.     set em [new ErrorModule Fid]
  398.     set errmodel [new ErrorModel/Periodic]
  399.     $errmodel unit pkt
  400.     $lossylink_ errormodule $em
  401.     $em insert $errmodel
  402.     $em bind $errmodel 0
  403.     $em default pass
  404. }
  406. Class Topology/net2- -superclass Topology/net2
  407. Topology/net2- instproc init ns {
  408.     $self next $ns
  409.     $self instvar node_ rtm_
  410.     set rtm_(r1:r2) [$ns rtmodel Exponential {} $node_(r1) $node_(r2)]
  411.     set dynamicsTrace [open dyn.tr "w"]
  412.     [$ns link $node_(r1) $node_(r2)] trace-dynamics $ns $dynamicsTrace
  413.     [$ns link $node_(r2) $node_(r1)] trace-dynamics $ns $dynamicsTrace
  414.     $self checkConfig $class $ns
  415. }
  417. Class Topology/net2-Session -superclass Topology/net2
  418. Topology/net2-Session instproc init ns {
  419.     $self next $ns ;# instantiate entire topology
  420.     $self add-fallback-links $ns {r1 b1 r2} 1.5Mb 10ms DropTail 
  421.     {queue-limit 25}
  422.     $self instvar node_ rtm_
  423.     set rtm_(r1:r2) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(r2)]
  424.     $ns rtproto Session
  425.     $self checkConfig $class $ns
  426. }
  428. Class Topology/net2-DV -superclass Topology/net2
  429. Topology/net2-DV instproc init ns {
  430.     $self next $ns ;# instantiate entire topology
  431.     $self add-fallback-links $ns {r1 b1 r2} 1.5Mb 10ms DropTail 
  432.     {queue-limit 25}
  433.     $self instvar node_ rtm_
  434.     set rtm_(r1:r2) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(r2)]
  435.     $ns rtproto DV
  436.     $self checkConfig $class $ns
  437. }
  439. Class Topology/net2-DVm0 -superclass Topology/net2
  440. Topology/net2-DVm0 instproc init ns {
  441.     Node set multiPath_ 1
  442.     $self next $ns ;# instantiate entire topology
  443.     $self add-fallback-links $ns {r1 b1 r2} 1.5Mb 10ms DropTail 
  444.     {queue-limit 25} {cost 2 r1 r2}
  445.     $ns rtproto DV
  446.     $self checkConfig $class $ns
  447. }
  449. Class Topology/net2-DVm1 -superclass Topology/net2
  450. Topology/net2-DVm1 instproc init ns {
  451.     Node set multiPath_ 1
  452.     $self next $ns ;# instantiate entire topology
  453.     $self add-fallback-links $ns {r1 b1 r2} 1.5Mb 10ms DropTail 
  454.     {queue-limit 25} {cost 2 r1 r2}
  455.     $self instvar node_ rtm_
  456.     set rtm_(r1:r2) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(r2)]
  457.     $ns rtproto DV
  458.     $self checkConfig $class $ns
  459. }
  461. Class Topology/net2RED-Session -superclass Topology/net2
  462. Topology/net2RED-Session instproc init ns {
  463.     $self next $ns ;# instantiate entire topology
  464.     $self add-fallback-links $ns {r1 b1 r2} 1.5Mb 10ms RED 
  465.     {queue-limit 25}
  466.     $self instvar node_ rtm_
  467.     set rtm_(r1:r2) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(r2)]
  468.     $ns rtproto Session
  469.     $self checkConfig $class $ns
  470. }
  472. Class Topology/net2RED-DV -superclass Topology/net2
  473. Topology/net2RED-DV instproc init ns {
  474.     $self next $ns ;# instantiate entire topology
  475.     $self add-fallback-links $ns {r1 b1 r2} 1.5Mb 10ms RED 
  476.     {queue-limit 25}
  477.     $self instvar node_ rtm_
  478.     set rtm_(r1:r2) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(r2)]
  479.     $ns rtproto DV
  480.     $self checkConfig $class $ns
  481. }
  483. Class Topology/net2RED-DVm0 -superclass Topology/net2
  484. Topology/net2RED-DVm0 instproc init ns {
  485.     Node set multiPath_ 1
  486.     $self next $ns ;# instantiate entire topology
  487.     $self add-fallback-links $ns {r1 b1 r2} 1.5Mb 10ms RED 
  488.     {queue-limit 25} {cost 2 r1 r2}
  489.     $ns rtproto DV
  490.     $self checkConfig $class $ns
  491. }
  493. Class Topology/net2RED-DVm1 -superclass Topology/net2
  494. Topology/net2RED-DVm1 instproc init ns {
  495.     Node set multiPath_ 1
  496.     $self next $ns ;# instantiate entire topology
  497.     $self add-fallback-links $ns {r1 b1 r2} 1.5Mb 10ms RED 
  498.     {queue-limit 25} {cost 2 r1 r2}
  499.     $self instvar node_ rtm_
  500.     set rtm_(r1:r2) [$ns rtmodel Trace "dyn.tr" $node_(r1) $node_(r2)]
  501.     $ns rtproto DV
  502.     $self checkConfig $class $ns
  503. }
  505. #
  507. Class NodeTopology/8nodes -superclass SkelTopology
  509. #
  510. # Create a simple eight node topology:
  511. #
  512. #        s1                 s3
  513. #               4  x       /
  514. # 10Mb,2ms   1.5Mb,20ms   / 10Mb,4ms
  515. #           r1 -.--.--.- r4
  516. # 10Mb,3ms /                10Mb,5ms
  517. #         /                 
  518. #        s2                 s4 
  519. #
  520. # This topology is of interest when the 4 node spine is dynamic,
  521. # and 3 alternate nodes provide fallback paths.
  522. #
  524. NodeTopology/8nodes instproc init ns {
  525.     $self next
  526.     
  527.     $self instvar node_
  528.     set node_(s1) [$ns node]
  529.     set node_(s2) [$ns node]
  530.     set node_(s3) [$ns node]
  531.     set node_(s4) [$ns node]
  532.     
  533.     set node_(r1) [$ns node]
  534.     set node_(r2) [$ns node]
  535.     set node_(r3) [$ns node]
  536.     set node_(r4) [$ns node]
  537. }
  539. Class Topology/net3 -superclass NodeTopology/8nodes
  540. Topology/net3 instproc init ns {
  541.     $self next $ns
  542.     
  543.     $self instvar node_
  544.     $ns duplex-link $node_(s1) $node_(r1) 10Mb 2ms DropTail 
  545.     $ns duplex-link $node_(s2) $node_(r1) 10Mb 3ms DropTail 
  546.     $ns duplex-link $node_(r1) $node_(r2) 1.5Mb 20ms RED 
  547.     $ns queue-limit $node_(r1) $node_(r2) 25
  548.     $ns queue-limit $node_(r2) $node_(r1) 25
  549.     $ns duplex-link $node_(r2) $node_(r3) 1.5Mb 20ms DropTail 
  550.     $ns duplex-link $node_(r3) $node_(r4) 1.5Mb 20ms DropTail 
  551.     $ns duplex-link $node_(s3) $node_(r4) 10Mb 4ms DropTail 
  552.     $ns duplex-link $node_(s4) $node_(r4) 10Mb 5ms DropTail 
  554.     $ns duplex-link-op $node_(s1) $node_(r1) orient right-down
  555.     $ns duplex-link-op $node_(s2) $node_(r1) orient right-up
  556.     $ns duplex-link-op $node_(r1) $node_(r2) orient right
  557.     $ns duplex-link-op $node_(r1) $node_(r2) queuePos 0
  558.     $ns duplex-link-op $node_(r2) $node_(r1) queuePos 0
  559.     $ns duplex-link-op $node_(r2) $node_(r3) orient right
  560.     $ns duplex-link-op $node_(r3) $node_(r4) orient right
  561.     $ns duplex-link-op $node_(s3) $node_(r4) orient left-down
  562.     $ns duplex-link-op $node_(s4) $node_(r4) orient left-up
  564.     $self checkConfig $class $ns
  565. }
  567. Class Topology/net3- -superclass Topology/net3
  568. Topology/net3- instproc init ns {
  569.     $self next $ns
  570.     $self instvar node_ rtm_
  571.     set dynamicsTrace [open dyn.tr "w"]
  572.     foreach i [list {r1 b1 r2} {r2 b2 r3} {r3 b3 r4}] {
  573. set x1 [lindex $i 0]
  574. set x2 [lindex $i 2]
  575. set rtm_($x1:$x2) [$ns rtmodel Exponential {5.0 1.0} $node_($x1) $node_($x2)]
  576. [$ns link $node_($x1) $node_($x2)] trace-dynamics $ns $dynamicsTrace
  577. [$ns link $node_($x2) $node_($x1)] trace-dynamics $ns $dynamicsTrace
  578.     }
  579.     $self checkConfig $class $ns
  580. }
  582. Class Topology/net3-Session -superclass Topology/net3
  583. Topology/net3-Session instproc init ns {
  584.     $self next $ns ;# instantiate entire topology
  585.     $self instvar node_ rtm_
  586.     foreach i [list {r1 b1 r2} {r2 b2 r3} {r3 b3 r4}] {
  587. set x1 [lindex $i 0]
  588. set x2 [lindex $i 2]
  589. set b1 [lindex $i 1]
  590. $self add-fallback-links $ns [list $x1 $b1 $x2] 1.5Mb 10ms DropTail 
  591. {queue-limit 25}
  592. set rtm_($x1:$x2) [$ns rtmodel Trace "dyn.tr" $node_($x1) $node_($x2)]
  593.     }
  594.     $ns rtproto Session
  595.     $self checkConfig $class $ns
  596. }
  598. Class Topology/net3-DV -superclass Topology/net3
  599. Topology/net3-DV instproc init ns {
  600.     $self next $ns ;# instantiate entire topology
  601.     $self instvar node_ rtm_
  602.     foreach i [list {r1 b1 r2} {r2 b2 r3} {r3 b3 r4}] {
  603. set x1 [lindex $i 0]
  604. set x2 [lindex $i 2]
  605. set b1 [lindex $i 1]
  606. $self add-fallback-links $ns [list $x1 $b1 $x2] 1.5Mb 10ms DropTail 
  607. {queue-limit 25}
  608. set rtm_($x1:$x2) [$ns rtmodel Trace "dyn.tr" $node_($x1) $node_($x2)]
  609.     }
  610.     $ns rtproto DV
  611.     $self checkConfig $class $ns
  612. }
  614. Class Topology/net3-DVm0 -superclass Topology/net3
  615. Topology/net3-DVm0 instproc init ns {
  616.     Node set multiPath_ 1
  617.     $self next $ns ;# instantiate entire topology
  618.     foreach i [list {r1 b1 r2} {r2 b2 r3} {r3 b3 r4}] {
  619. set x1 [lindex $i 0]
  620. set x2 [lindex $i 2]
  621. set b1 [lindex $i 1]
  622. $self add-fallback-links $ns [list $x1 $b1 $x2] 1.5Mb 10ms DropTail 
  623. {queue-limit 25} [list cost 2 $x1 $x2]
  624.     }
  625.     $ns rtproto DV
  626.     $self checkConfig $class $ns
  627. }
  629. Class Topology/net3-DVm1 -superclass Topology/net3
  630. Topology/net3-DVm1 instproc init ns {
  631.     Node set multiPath_ 1
  632.     $self next $ns ;# instantiate entire topology
  633.     $self instvar node_ rtm_
  634.     foreach i [list {r1 b1 r2} {r2 b2 r3} {r3 b3 r4}] {
  635. set x1 [lindex $i 0]
  636. set x2 [lindex $i 2]
  637. set b1 [lindex $i 1]
  638. $self add-fallback-links $ns [list $x1 $b1 $x2] 1.5Mb 10ms DropTail 
  639. {queue-limit 25} [list cost 2 $x1 $x2]
  640. set rtm_($x1:$x2) [$ns rtmodel Trace "dyn.tr" $node_($x1) $node_($x2)]
  641.     }
  642.     $ns rtproto DV
  643.     $self checkConfig $class $ns
  644. }
  646. Class Topology/net3RED-Session -superclass Topology/net3
  647. Topology/net3RED-Session instproc init ns {
  648.     $self next $ns ;# instantiate entire topology
  649.     $self instvar node_ rtm_
  650.     foreach i [list {r1 b1 r2} {r2 b2 r3} {r3 b3 r4}] {
  651. set x1 [lindex $i 0]
  652. set x2 [lindex $i 2]
  653. set b1 [lindex $i 1]
  654. $self add-fallback-links $ns [list $x1 $b1 $x2] 1.5Mb 10ms RED 
  655. {queue-limit 25}
  656. set rtm_($x1:$x2) [$ns rtmodel Trace "dyn.tr" $node_($x1) $node_($x2)]
  657.     }
  658.     $ns rtproto Session
  659.     $self checkConfig $class $ns
  660. }
  662. Class Topology/net3RED-DV -superclass Topology/net3
  663. Topology/net3RED-DV instproc init ns {
  664.     $self next $ns ;# instantiate entire topology
  665.     $self instvar node_ rtm_
  666.     foreach i [list {r1 b1 r2} {r2 b2 r3} {r3 b3 r4}] {
  667. set x1 [lindex $i 0]
  668. set x2 [lindex $i 2]
  669. set b1 [lindex $i 1]
  670. $self add-fallback-links $ns [list $x1 $b1 $x2] 1.5Mb 10ms RED 
  671. {queue-limit 25}
  672. set rtm_($x1:$x2) [$ns rtmodel Trace "dyn.tr" $node_($x1) $node_($x2)]
  673.     }
  674.     $ns rtproto DV
  675.     $self checkConfig $class $ns
  676. }
  678. Class Topology/net3RED-DVm0 -superclass Topology/net3
  679. Topology/net3RED-DVm0 instproc init ns {
  680.     Node set multiPath_ 1
  681.     $self next $ns ;# instantiate entire topology
  682.     foreach i [list {r1 b1 r2} {r2 b2 r3} {r3 b3 r4}] {
  683. set x1 [lindex $i 0]
  684. set x2 [lindex $i 2]
  685. set b1 [lindex $i 1]
  686. $self add-fallback-links $ns [list $x1 $b1 $x2] 1.5Mb 10ms RED 
  687. {queue-limit 25} [list cost 2 $x1 $x2]
  688.     }
  689.     $ns rtproto DV
  690.     $self checkConfig $class $ns
  691. }
  693. Class Topology/net3RED-DVm1 -superclass Topology/net3
  694. Topology/net3RED-DVm1 instproc init ns {
  695.     Node set multiPath_ 1
  696.     $self next $ns ;# instantiate entire topology
  697.     $self instvar node_ rtm_
  698.     foreach i [list {r1 b1 r2} {r2 b2 r3} {r3 b3 r4}] {
  699. set x1 [lindex $i 0]
  700. set x2 [lindex $i 2]
  701. set b1 [lindex $i 1]
  702. $self add-fallback-links $ns [list $x1 $b1 $x2] 1.5Mb 10ms RED 
  703. {queue-limit 25} [list cost 2 $x1 $x2]
  704. set rtm_($x1:$x2) [$ns rtmodel Trace "dyn.tr" $node_($x1) $node_($x2)]
  705.     }
  706.     $ns rtproto DV
  707.     $self checkConfig $class $ns
  708. }