Overview
| Comment: | Added zmq example and install support |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b3e432ecb4c8d2835a02b9df3519da66 |
| User & Date: | matt on 2012-10-21 15:03:33 |
| Other Links: | manifest | tags |
Context
|
2012-10-21
| ||
| 16:45 | Added support for building private copy of libuuid check-in: dc6f698439 user: matt tags: trunk | |
| 15:03 | Added zmq example and install support check-in: b3e432ecb4 user: matt tags: trunk | |
|
2012-10-20
| ||
| 19:22 | Added zmq to the install check-in: 23fa12cb70 user: matt tags: trunk | |
Changes
Added testzmq/hwclient.scm version [8c368de31e].
> > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
(use zmq posix)
(define s (make-socket 'req))
(connect-socket s "tcp://127.0.0.1:5563")
(define myname (cadr (argv)))
(print "Start client...")
(do ((i 0 (+ i 1)))
((>= i 1000))
(print "sending message #" i)
(send-message s (conc "Hello from " myname))
(print "sent \"Hello\", looking for a reply")
(printf "Received reply ~a [~a]\n"
i (receive-message s)))
|
Added testzmq/hwserver.scm version [118f034d51].
> > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
(use zmq srfi-18 posix)
(define s (make-socket 'rep))
(bind-socket s "tcp://127.0.0.1:5563")
(print "Start server...")
(let loop ()
(let* ((msg (receive-message s))
(name (caddr (string-split msg " ")))
(resp (conc "World " name)))
(print "Received request: [" msg "]")
(thread-sleep! 0.01)
(print "Sending response \"" resp "\"")
(send-message s resp)
(loop)))
|
Added testzmq/hwtest.sh version [8c0fcb3c18].
> > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 | #!/bin/bash echo Compiling hwclient and hwserver csc hwclient.scm csc hwserver.scm ./hwserver & sleep 1 for x in a b c d e f g h i j k l m n o p q r s t u v w x y z;do ./hwclient $x & done # killall -v hwserver hwclient |
Modified utils/installall.sh from [c7075b0063] to [ad96d410c3].
| ︙ | ︙ | |||
146 147 148 149 150 151 152 | ./configure --prefix=$PREFIX --enable-shared make make install cd $BUILDHOME export CSCLIBS=`echo $LD_LIBRARY_PATH | sed 's/:/ -L/g'` | | > | 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 |
./configure --prefix=$PREFIX --enable-shared
make
make install
cd $BUILDHOME
export CSCLIBS=`echo $LD_LIBRARY_PATH | sed 's/:/ -L/g'`
CSC_OPTIONS="-I$PREFIX/include -L$CSCLIBS" chicken-install $PROX -D no-library-checks -feature disable-iup-web iup
# iup:1.0.2
CSC_OPTIONS="-I$PREFIX/include -L$CSCLIBS" chicken-install $PROX -D no-library-checks canvas-draw
# http://download.zeromq.org/zeromq-2.2.0.tar.gz
ZEROMQ=zeromq-2.2.0
if ! [[ -e ${ZEROMQ}.tar.gz ]] ; then
wget http://download.zeromq.org/${ZEROMQ}.tar.gz
fi
|
| ︙ | ︙ |