Megatest

hwserver.scm at [51ca0f283a]
Login

File testzmq/hwserver.scm artifact 038a7e66e1 part of check-in 51ca0f283a


(use zmq srfi-18 posix)

(define s (make-socket 'rep))
(bind-socket s "tcp://*:5563")

(print "Start server...")
(let loop ()
  (let* ((msg  (receive-message s))
	 (name (caddr (string-split msg " ")))
	 (resp (conc "World " name)))
    (print "Received request: [" msg "]")
    (thread-sleep! 0.0001)
    (print "Sending response \"" resp "\"")
    (send-message s resp)
    (loop)))