wm withdraw .; wm withdraw .output; wm geo .konsola 668x615+643+7

## ZeroMQ - serwer
# + linux, tclkit8.5/6, pamietac o ". e" PRZED uruchomieniem konsoli!
#    skrypt "e" ustawia LD_LIBRARY_PATH na kat. z bibl. .so
# + docs:
#   http://zguide.zeromq.org/page:all#Getting-the-Message-Out
#   http://wiki.tcl.tk/27462 - zmq
#   http://wiki.tcl.tk/37718 - msgpck (wersja skryptowa?)
#   jest tez ksiazka w pdf...
#

proc err args {catch $args err; set err}
lappend auto_path ./zeromq
package re zmq
  #% 4.0.1
package re msgpack
  #% 0.5.0

zmq context c1
zmq socket s1 c1 REP
  #% ::s1

s1 bind "tcp://*:7777"
  #% 
s1 readable qqq
  # + callback serwerowy, automatycznie odp. klientom...
proc qqq args {
  set x [s1 recv]
  puts "args=$args, x=$x"
  s1 send "odp na: $x"; # odp jest niezbedna w REP/REQ !
}

s1 send "odp wysylam"
  #% 

# do tego miejsca wykonac...

c1 config
s1 config
  # + introspekcja?



s1 destroy
  #% 
c1 destroy
  #% 






exit