Megatest

Artifact 118f034d5157fa99bd825746dff40fb67a203900:

• File testzmq/hwserver.scm — part of check-in [b3e432ecb4] at 2012-10-21 15:03:33 on branch trunk — Added zmq example and install support (user: matt, size: 391) [annotate] [blame] [check-ins using]

(use zmq srfi-18 posix)

(define s (make-socket 'rep))
(bind-socket s "tcp://127.0.0.1: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.01)
    (print "Sending response \"" resp "\"")
    (send-message s resp)
    (loop)))