27 lines
807 B
Factor
27 lines
807 B
Factor
! Copyright (C) 2012 Eungju PARK.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: byte-arrays calendar destructors formatting io kernel
|
|
math strings sequences zeromq zeromq.ffi ;
|
|
IN: zeromq.examples.tasksink
|
|
|
|
: tasksink ( -- )
|
|
[
|
|
<zmq-context> &dispose
|
|
ZMQ_PULL <zmq-socket> &dispose
|
|
dup "tcp://*:5558" zmq-bind
|
|
! Wait for start of batch
|
|
dup 0 zmq-recv drop
|
|
! Start our clock now
|
|
now
|
|
! Process 100 confirmations
|
|
100 <iota> [
|
|
pick 0 zmq-recv drop
|
|
10 rem zero? [ ":" ] [ "." ] if write flush
|
|
] each
|
|
! Calculate and report duration of batch
|
|
now swap time- duration>milliseconds "Total elapsed time: %d msec\n" printf
|
|
drop
|
|
] with-destructors ;
|
|
|
|
MAIN: tasksink
|