28 lines
652 B
Factor
28 lines
652 B
Factor
! Copyright (C) 2012 Eungju PARK.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: byte-arrays calendar destructors formatting kernel math
|
|
namespaces random zeromq zeromq.ffi ;
|
|
IN: zeromq.examples.wuserver
|
|
|
|
: wuserver ( -- )
|
|
[
|
|
<zmq-context> &dispose
|
|
ZMQ_PUB <zmq-socket> &dispose
|
|
dup "tcp://*:5556" zmq-bind
|
|
dup "ipc://weather.ipc" zmq-bind
|
|
|
|
[
|
|
dup
|
|
100000 random
|
|
215 random 80 -
|
|
50 random 10 +
|
|
"%05d %d %d" sprintf
|
|
>byte-array 0 zmq-send
|
|
t
|
|
] loop
|
|
|
|
drop
|
|
] with-destructors ;
|
|
|
|
MAIN: wuserver
|