testsuites/rubbos/rubbos_scripts/1-1-1/nsFile.txt

   1
   2 set ns [new Simulator]
   3 source tb_compat.tcl
   4
   5
   6 set node1 [$ns node]
   7 tb-set-node-os $node1 FC4-RUBBoS
   8 tb-set-hardware $node1 pc3000
   9
  10 set node2 [$ns node]
  11 tb-set-node-os $node2 FC4-RUBBoS
  12 tb-set-hardware $node2 pc3000
  13
  14 set node3 [$ns node]
  15 tb-set-node-os $node3 FC4-RUBBoS
  16 tb-set-hardware $node3 pc3000
  17
  18 set node4 [$ns node]
  19 tb-set-node-os $node4 FC4-RUBBoS
  20 tb-set-hardware $node4 pc3000
  21
  22 set node5 [$ns node]
  23 tb-set-node-os $node5 FC4-RUBBoS
  24 tb-set-hardware $node5 pc3000
  25
  26 set node6 [$ns node]
  27 tb-set-node-os $node6 FC4-RUBBoS
  28 tb-set-hardware $node6 pc3000
  29
  30 set node7 [$ns node]
  31 tb-set-node-os $node7 FC4-RUBBoS
  32 tb-set-hardware $node7 pc3000
  33
  34 set node8 [$ns node]
  35 tb-set-node-os $node8 FC4-RUBBoS
  36 tb-set-hardware $node8 pc3000
  37
  38 set node9 [$ns node]
  39 tb-set-node-os $node9 FC4-RUBBoS
  40 tb-set-hardware $node9 pc3000
  41
  42 set lan1 [$ns make-lan "$node1 $node2 $node3 $node4 $node5 $node6 $node7 " 1000Mb 0ms]
  43 set lan2 [$ns make-lan "$node7 $node8 " 1000Mb 0ms]
  44 set lan4 [$ns make-lan "$node8 $node9 " 1000Mb 0ms]
  45
  46
  47 $ns rtproto Static
  48 $ns run