138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
(let* ((newremote (make-and-init-remote areapath)))
(set! *runremote* newremote)
(set! runremote newremote)))
(let* ((dbfname (conc (dbfile:run-id->dbnum run-id)".db"))) ;;(dbfile:run-id->path areapath run-id)))
(tt:handler runremote cmd run-id params attemptnum area-dat areapath readonly-mode dbfname testsuite mtexe)))
(define (http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode)
;; do all the prep locked under the rmt-mutex
(mutex-lock! *rmt-mutex*)
;; ensure we have a record for our connection for given area
(if (not runremote) ;; can remove this one. should never get here.
(begin
(set! *runremote* (make-and-init-remote areapath))
(let* ((server-info (remote-server-info *runremote*)))
|
|
|
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
(let* ((newremote (make-and-init-remote areapath)))
(set! *runremote* newremote)
(set! runremote newremote)))
(let* ((dbfname (conc (dbfile:run-id->dbnum run-id)".db"))) ;;(dbfile:run-id->path areapath run-id)))
(tt:handler runremote cmd run-id params attemptnum area-dat areapath readonly-mode dbfname testsuite mtexe)))
(define (http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode)
;; do all the prep locked under the rmt-mutex
(mutex-lock! *rmt-mutex*)
;; ensure we have a record for our connection for given area
(if (not runremote) ;; can remove this one. should never get here.
(begin
(set! *runremote* (make-and-init-remote areapath))
(let* ((server-info (remote-server-info *runremote*)))
|