Megatest

Check-in [9daa64433e]
Login
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: 9daa64433e159523f6e71bdd133d7a0c6d7de5bb
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
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
6

7
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.5110)
(define megatest-version 1.5112)