| 1 |
set ns [new Simulator] |
|---|
| 2 |
source tb_compat.tcl |
|---|
| 3 |
|
|---|
| 4 |
# Two nodes |
|---|
| 5 |
set nodeA [$ns node] |
|---|
| 6 |
set nodeB [$ns node] |
|---|
| 7 |
|
|---|
| 8 |
# A link |
|---|
| 9 |
$ns duplex-link $nodeA $nodeB 100Mb 0ms DropTail |
|---|
| 10 |
|
|---|
| 11 |
# Set the OS. |
|---|
| 12 |
tb-set-node-os $nodeA FBSD-STD |
|---|
| 13 |
tb-set-node-os $nodeB RHL-STD |
|---|
| 14 |
|
|---|
| 15 |
# Load our software. |
|---|
| 16 |
tb-set-node-tarfiles $nodeA /usr/site /proj/testbed/tarfiles/silly.tar.gz |
|---|
| 17 |
tb-set-node-tarfiles $nodeB /usr/site /proj/testbed/tarfiles/silly.tar.gz |
|---|
| 18 |
|
|---|
| 19 |
# Set the commands to run |
|---|
| 20 |
tb-set-node-startcmd $nodeA "/usr/site/bin/run-silly >& /tmp/foo.log" |
|---|
| 21 |
tb-set-node-startcmd $nodeB "/usr/site/bin/run-silly >& /tmp/foo.log" |
|---|
| 22 |
|
|---|
| 23 |
$ns run |
|---|
| 24 |
|
|---|
