Overview
| Comment: | Switched to receive-message* which supposedly does not block chicken threads |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | defunct-try-of-non-blocking-receive |
| Files: | files | file ages | folders |
| SHA1: |
f3b8ce03c983eabef629d493d90bb341 |
| User & Date: | mrwellan on 2012-10-31 17:17:16 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-10-31
| ||
| 20:54 | Converted some, reverted some, borked Closed-Leaf check-in: 3fa64f636a user: matt | |
| 17:17 | Switched to receive-message* which supposedly does not block chicken threads check-in: f3b8ce03c9 user: mrwellan tags: defunct-try-of-non-blocking-receive | |
| 17:03 | Login/logout list and kill working nicely check-in: d24a0f4c43 user: mrwellan tags: monitor-cleanup | |
Changes
Modified db.scm from [8e7dce497a] to [fdb669a25b].
| ︙ | |||
1166 1167 1168 1169 1170 1171 1172 | 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 | - + |
(define (db:string->obj msg)(with-input-from-string msg (lambda ()(deserialize))))
(define (cdb:client-call zmq-socket . params)
(debug:print-info 11 "cdb:client-call zmq-socket=" zmq-socket " params=" params)
(let ((zdat (db:obj->string params)) ;; (with-output-to-string (lambda ()(serialize params))))
(res #f))
(send-message zmq-socket zdat)
|
| ︙ |
Modified server.scm from [2fc90a75bd] to [6908adafb0].
| ︙ | |||
58 59 60 61 62 63 64 | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | - + |
(begin
(debug:print-info 0 "Queue not flushed, waiting ...")
(loop)))))))
;; The heavy lifting
;;
(let loop ()
|
| ︙ |