## 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