Overview
| Comment: | Slight improvement to catching of ^c and flushing of server communication. Servers still dies sometimes |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | v1.5112 |
| Files: | files | file ages | folders |
| SHA1: |
9daa64433e159523f6e71bdd133d7a0c |
| User & Date: | mrwellan on 2012-11-05 13:40:41 |
| Other Links: | manifest | tags |
Context
|
2012-11-05
| ||
| 14:42 | Changed dashboard so that horizontal expansion is propagated to widgets so folks can expand to read long labels check-in: 45092ee176 user: mrwellan tags: trunk | |
| 13:40 | Slight improvement to catching of ^c and flushing of server communication. Servers still dies sometimes check-in: 9daa64433e user: mrwellan tags: trunk, v1.5112 | |
| 13:27 | Added catching of ^c and flushing of server communication so that server doesn't die check-in: d69a3dee28 user: mrwellan tags: trunk, v1.5111 | |
Changes
Modified db.scm from [fcdb272fed] to [fd4b646002].
| ︙ | ︙ | |||
1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 |
res))
;; params = 'target cached remparams
(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))
(set! *received-response* #f)
(send-message zmq-socket zdat)
(set! res (db:string->obj (if *client-non-blocking-mode*
(receive-message* zmq-socket)
(receive-message zmq-socket))))
(set! *received-response* #t)
(debug:print-info 11 "zmq-socket " (car params) " res=" res)
res))
| > > | 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 |
res))
;; params = 'target cached remparams
(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))
;; (signal-mask! signal/int)
(set! *received-response* #f)
(send-message zmq-socket zdat)
;; (signal-unmask! signal/int)
(set! res (db:string->obj (if *client-non-blocking-mode*
(receive-message* zmq-socket)
(receive-message zmq-socket))))
(set! *received-response* #t)
(debug:print-info 11 "zmq-socket " (car params) " res=" res)
res))
|
| ︙ | ︙ |
Modified megatest-version.scm from [a44c5abdde] to [d3ed860b1c].
1 2 3 4 5 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 1 2 3 4 5 6 7 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.5112) |