24 lines
693 B
Factor
24 lines
693 B
Factor
|
! Copyright (C) 2012 Eungju PARK.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: byte-arrays destructors formatting io kernel sequences
|
||
|
|
strings zeromq zeromq.ffi ;
|
||
|
|
IN: zeromq.examples.hwclient
|
||
|
|
|
||
|
|
: hwclient ( -- )
|
||
|
|
[
|
||
|
|
<zmq-context> &dispose
|
||
|
|
"Connecting to hello world server…" print
|
||
|
|
ZMQ_REQ <zmq-socket> &dispose
|
||
|
|
dup "tcp://localhost:5555" zmq-connect
|
||
|
|
10 iota [
|
||
|
|
[ "Hello" dup rot "Sending %s %d...\n" printf
|
||
|
|
dupd >byte-array 0 zmq-send ]
|
||
|
|
[ [ dup 0 zmq-recv >string ] dip
|
||
|
|
"Received %s %d\n" printf flush ]
|
||
|
|
bi
|
||
|
|
] each drop
|
||
|
|
] with-destructors ;
|
||
|
|
|
||
|
|
MAIN: hwclient
|
||
|
|
|