Megatest

Artifact e984c3fbacfe4abdee56ad4b0da280fb91ab7787:

• File testzmq/hwclient.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: 376) [annotate] [blame] [check-ins using] [more...]

(use zmq posix)

(define s (make-socket 'req))
(connect-socket s "tcp://*:5563")

(define myname (cadr (argv)))

(print "Start client...")

(do ((i 0 (+ i 1)))
    ((>= i 1000))
  (print "sending message #" i)
  (send-message s (conc "Hello from " myname))
  (print "sent \"Hello\", looking for a reply")
  (printf "Received reply ~a [~a]\n"
          i (receive-message s)))