#
# podstawowy eksperyment z udp ...
#

## Watpliwosci:
# - czy datagramy sa jakos buforowane?
# - jaka jest max dlugosc datagramu?
# - ???

# ---
#load {E:\TEMP\tcl\udp\tcludp.dll} udp
load tcludp.so udp

# wysyla datagramy
#
set s1 [udp_open]
fconfigure $s1 -remote {localhost 10000}
fconfigure $s1
  #% -blocking 1 -buffering full -buffersize 4096 -encoding cp1250 -eofchar {{} {}} -translation {auto crlf} -myport 1028 -remote {localhost 10000} -peer {{} 0} -mcastgroups {} -broadcast 0 -ttl 32

puts -nonewline $s1 "qqq www eee111"; flush $s1
puts -nonewline $s1 "qqq www eee222"; flush $s1
  # wysylanie datagramow


# odbiera datagramy
#
set s2 [udp_open 10000]
fconfigure $s2
  #% -blocking 1 -buffering full -buffersize 4096 -encoding cp1250 -eofchar {{} {}} -translation {auto crlf} -myport 10000 -remote {{} 0} -peer {127.0.0.1 1028} -mcastgroups {} -broadcast 0 -ttl 32

read $s2
  # read odczytuje pojedynczy komunikat
  # - nie blokuje nawet jesli nie ma nic do odczytania
  # - w tym eksperymencie komunikaty sie nie gubia i nie zmienia
  #  sie ich kolejnosc ... ale w realnym swiecie to moze nastapic!!!