Welcome to the CHICKEN Scheme pasting service

;;hwclient.scm
;;============
(use zmq posix)

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

(print "Start client...")

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

;; hwserver.scm
;;=============
(use zmq srfi-18 posix)

(define s (make-socket 'rep))
(connect-socket s "tcp://localhost:5563")

(print "Start server...")
(let loop ()
  (let ((msg (receive-message s)))
    ;; (printf "Received request: [~a]\n" (receive-message s))
    (print "Received request: [" msg "]")
    (thread-sleep! 1)
    (print "Sending response \"World\"")
    (send-message s "World")
    (loop)))


# script to run
#==============

#!/bin/bash

echo Compiling hwclient and hwserver
csc hwclient.scm
csc hwserver.scm

./hwserver &
sleep 1
./hwclient 

# Output
#=======

# output from hwtest.sh

matt@xena:~/data/megatest/testzmq$ ./hwtest.sh
Compiling hwclient and hwserver
Start server...
Start client...
sending message #0
sent "Hello", looking for a reply