Artifact 8c368de31ed61f49ae707e3105da10cb7af2944f:
- File testzmq/hwclient.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: 384) [annotate] [blame] [check-ins using]
(use zmq posix) (define s (make-socket 'req)) (connect-socket s "tcp://127.0.0.1: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)))