## interaktywne eksperymenty z NS-2
# + pozwalaja dokladnie zrozumiec strukture ob. ns-2...
# + jak sie dostac do ob. SimpleLink??? odp: $ns link $n1 $n2
# + ob. SimpleLink ma podob. Queue/*, DelayLink oraz inne
# + introspekcja OTcl: 
#   jest dostep do zmiennych ob.: $ob info vars
#   niestety, nie ma dostepu do metod (w C++)
# + skad brac opis metod takich jak $ns link ???
#   patrz man: ns.1
#

proc bgerror args {_puts $args}
set ns [new Simulator]
  #% _o3
  #+ uwaga!!! ten obiekt to singleton!

set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]

$ns duplex-link $n1 $n2 100Mb 50ms DropTail
  #% 
  # + nie zwraca obiektu !!!

$ns queue-limit $n1 $n2 30
  # + tak mozna ustawic dlugosc kolejki polaczenia
  #   ale dotyczy tylko jednego z SimpleLink !!!
[[$ns link $n1 $n2] queue] set limit_
  #% 30
[[$ns link $n2 $n1] queue] set limit_
  #% 50
  # + 50 to default

# podob. w SimpleLink...

[$ns link $n1 $n2] info class
  #% SimpleLink
[$ns link $n2 $n1] info class
  #% SimpleLink
[$ns link $n1 $n2] info vars
  #% toNode_ fromNode_ ttl_ oldColor_ color_ head_ id_ queue_ link_ trace_ drophead_
[$ns link $n1 $n2] set ttl_
  #% _o24
[$ns link $n1 $n2] set head_
  #% _o22
[$ns link $n1 $n2] set queue_
  #% _o19
[$ns link $n1 $n2] set link_
  #% _o23
[$ns link $n1 $n2] set drophead_
  #% _o21

_o24 info class
  #% TTLChecker
_o22 info class
  #% Connector
_o19 info class
  #% Queue/DropTail
_o23 info class
  #% DelayLink
_o21 info class
  #% Connector

_o23 info class
  #% DelayLink
_o23 info vars
  #% bandwidth_ delay_ avoidReordering_
_o23 set delay_
  #% 0.050000000000000003

_o19 info class
  #% Queue/DropTail
_o19 info vars
  #% queue_in_bytes_ summarystats_ drop_front_ util_weight_ mean_pktsize_ unblock_on_resume_ util_records_ util_check_intv_ limit_ blocked_
_o19 set limit_
  #% 50