Artifact 2bca7d9a69aba3428940f6428106932201e1021e:
- File testzmq/hwclient.scm — part of check-in [05bb10596e] at 2012-10-30 18:48:52 on branch monitor-cleanup — partial migration ofdashboard-tests.scm to zmq (user: mrwellan, size: 384) [annotate] [blame] [check-ins using] [more...]
(use zmq posix srfi-18) (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)))