Artifact
e984c3fbacfe4abdee56ad4b0da280fb91ab7787:
0000: 28 75 73 65 20 7a 6d 71 20 70 6f 73 69 78 29 0a (use zmq posix).
0010: 0a 28 64 65 66 69 6e 65 20 73 20 28 6d 61 6b 65 .(define s (make
0020: 2d 73 6f 63 6b 65 74 20 27 72 65 71 29 29 0a 28 -socket 'req)).(
0030: 63 6f 6e 6e 65 63 74 2d 73 6f 63 6b 65 74 20 73 connect-socket s
0040: 20 22 74 63 70 3a 2f 2f 2a 3a 35 35 36 33 22 29 "tcp://*:5563")
0050: 0a 0a 28 64 65 66 69 6e 65 20 6d 79 6e 61 6d 65 ..(define myname
0060: 20 28 63 61 64 72 20 28 61 72 67 76 29 29 29 0a (cadr (argv))).
0070: 0a 28 70 72 69 6e 74 20 22 53 74 61 72 74 20 63 .(print "Start c
0080: 6c 69 65 6e 74 2e 2e 2e 22 29 0a 0a 28 64 6f 20 lient...")..(do
0090: 28 28 69 20 30 20 28 2b 20 69 20 31 29 29 29 0a ((i 0 (+ i 1))).
00a0: 20 20 20 20 28 28 3e 3d 20 69 20 31 30 30 30 29 ((>= i 1000)
00b0: 29 0a 20 20 28 70 72 69 6e 74 20 22 73 65 6e 64 ). (print "send
00c0: 69 6e 67 20 6d 65 73 73 61 67 65 20 23 22 20 69 ing message #" i
00d0: 29 0a 20 20 28 73 65 6e 64 2d 6d 65 73 73 61 67 ). (send-messag
00e0: 65 20 73 20 28 63 6f 6e 63 20 22 48 65 6c 6c 6f e s (conc "Hello
00f0: 20 66 72 6f 6d 20 22 20 6d 79 6e 61 6d 65 29 29 from " myname))
0100: 0a 20 20 28 70 72 69 6e 74 20 22 73 65 6e 74 20 . (print "sent
0110: 5c 22 48 65 6c 6c 6f 5c 22 2c 20 6c 6f 6f 6b 69 \"Hello\", looki
0120: 6e 67 20 66 6f 72 20 61 20 72 65 70 6c 79 22 29 ng for a reply")
0130: 0a 20 20 28 70 72 69 6e 74 66 20 22 52 65 63 65 . (printf "Rece
0140: 69 76 65 64 20 72 65 70 6c 79 20 7e 61 20 5b 7e ived reply ~a [~
0150: 61 5d 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 a]\n".
0160: 69 20 28 72 65 63 65 69 76 65 2d 6d 65 73 73 61 i (receive-messa
0170: 67 65 20 73 29 29 29 0a ge s))).