26 lines
764 B
Factor
26 lines
764 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
|
||
|
|
random-generator get now timestamp>unix-time >fixnum seed-random [
|
||
|
|
[ t ] [
|
||
|
|
dup
|
||
|
|
100000 random
|
||
|
|
215 random 80 -
|
||
|
|
50 random 10 +
|
||
|
|
"%05d %d %d" sprintf
|
||
|
|
>byte-array 0 zmq-send
|
||
|
|
] while
|
||
|
|
] with-random drop
|
||
|
|
] with-destructors ;
|
||
|
|
|
||
|
|
MAIN: wuserver
|