Megatest

Artifact 038a7e66e10458b6c8c6c60736de44e2728bdf33:

• File testzmq/hwserver.scm — part of check-in [dc9fc1c7d4] at 2012-10-23 00:13:55 on branch switch-to-zmq — Start of conversion to zmq (user: matt, size: 385) [annotate] [blame] [check-ins using] [more...]

(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)))