Overview
| Comment: | Added numbers egg as needed to mockup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | remote-run-capability |
| Files: | files | file ages | folders |
| SHA1: |
639b5034ccf09bd4e15933de1179ce2e |
| User & Date: | matt on 2013-01-08 20:43:27 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-01-08
| ||
| 20:43 | Added numbers egg as needed to mockup Closed-Leaf check-in: 639b5034cc user: matt tags: remote-run-capability | |
| 17:21 | More fixes/ideas in the mockup for zmq check-in: fcdbe6448f user: mrwellan tags: remote-run-capability | |
Changes
Modified testzmq/mockupclient.scm from [49bf10e866] to [63a8c6685a].
|
| | | 1 2 3 4 5 6 7 8 |
(use zmq posix numbers)
(define cname "Bob")
(define runtime 10)
(let ((args (argv)))
(if (< (length args) 3)
(begin
(print "Usage: mockupclient clientname runtime")
|
| ︙ | ︙ |
Modified testzmq/mockupserver.scm from [0049176f85] to [f130435054].
1 2 3 4 5 | ;; pub/sub with envelope address ;; Note that if you don't insert a sleep, the server will crash with SIGPIPE as soon ;; as a client disconnects. Also a remaining client may receive tons of ;; messages afterward. | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 | ;; pub/sub with envelope address ;; Note that if you don't insert a sleep, the server will crash with SIGPIPE as soon ;; as a client disconnects. Also a remaining client may receive tons of ;; messages afterward. (use zmq srfi-18 sqlite3 numbers) (define pub (make-socket 'pub)) (define pull (make-socket 'pull)) (define cname "server") (define total-db-accesses 0) (define start-time (current-seconds)) |
| ︙ | ︙ |
Modified testzmq/random.scm from [ff0bb26c19] to [7090f9f44f].
|
| | | 1 2 3 4 5 6 7 8 | (use posix numbers) (randomize (inexact->exact (current-seconds))) (define low (string->number (cadr (argv)))) (define hi (string->number (caddr (argv)))) (print (+ low (random (- hi low)))) |