extra/zeromq/examples/echo-client.factor

   1 ! Copyright (C) 2013 John Benediktsson.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: byte-arrays calendar destructors io kernel present strings
   4 threads zeromq zeromq.ffi ;
   5 IN: zeromq.examples.echo-client
   6
   7 : echo-client ( -- )
   8     [
   9         <zmq-context> &dispose
  10         ZMQ_REQ <zmq-socket> &dispose
  11         dup "tcp://127.0.0.1:5000" zmq-connect
  12         [
  13             now present
  14             [ "Sending " write print flush ]
  15             [ >byte-array dupd 0 zmq-send ] bi
  16             dup 0 zmq-recv >string
  17             "Received " write print flush
  18             1 seconds sleep
  19             t
  20         ] loop drop
  21     ] with-destructors ;
  22
  23 MAIN: echo-client