extra/zeromq/examples/wuserver.factor

   1 ! Copyright (C) 2012 Eungju PARK.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: byte-arrays calendar destructors formatting kernel math
   4 namespaces random zeromq zeromq.ffi ;
   5 IN: zeromq.examples.wuserver
   6
   7 : wuserver ( -- )
   8     [
   9         <zmq-context> &dispose
  10         ZMQ_PUB <zmq-socket> &dispose
  11         dup "tcp://*:5556" zmq-bind
  12         dup "ipc://weather.ipc" zmq-bind
  13
  14         [
  15             dup
  16             100000 random
  17             215 random 80 -
  18             50 random 10 +
  19             "%05d %d %d" sprintf
  20             >byte-array 0 zmq-send
  21             t
  22         ] loop
  23
  24         drop
  25     ] with-destructors ;
  26
  27 MAIN: wuserver