Megatest

Differences From Artifact [8c368de31e]:

• 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]

To Artifact [e984c3fbac]:

• 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...]

1
2
3
4

5
6
7
8
9
10
11

1
2
3

4
5
6
7
8
9
10
11

-
+

(use zmq posix)

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

(define myname (cadr (argv)))

(print "Start client...")

(do ((i 0 (+ i 1)))
    ((>= i 1000))