196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
|
(db:delete-test-records db test-id)))
(rpc:publish-procedure!
'rtests:register-test
(lambda (run-id test-name item-path)
(tests:register-test db run-id test-name item-path)))
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
(sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" host:port)
(sqlite3:finalize! db)))
(thread-start! th1)
(thread-start! th2)
(thread-join! th2))) ;; rpc:server)))
(define (server:find-free-port-and-open port)
(handle-exceptions
exn
(begin
(print "Failed to bind to port " (rpc:default-server-port) ", trying next port")
(server:find-free-port-and-open (+ port 1)))
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
|
(db:delete-test-records db test-id)))
(rpc:publish-procedure!
'rtests:register-test
(lambda (run-id test-name item-path)
(tests:register-test db run-id test-name item-path)))
(rpc:publish-procedure!
'rdb:test-data-rollup
(lambda (test-id status)
(db:test-data-rollup db test-id status)))
(rpc:publish-procedure!
'rtests:test-set-status!
(lambda (run-id test-name state status itemdat-or-path comment dat)
(test-set-status! db run-id test-name state status itemdat-or-path comment dat)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
(sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" host:port)
(sqlite3:finalize! db)))
(thread-start! th1)
(thread-start! th2)
;; (thread-join! th2)
;; return th2 for the calling process to do a join with
th2
)) ;; rpc:server)))
(define (server:find-free-port-and-open port)
(handle-exceptions
exn
(begin
(print "Failed to bind to port " (rpc:default-server-port) ", trying next port")
(server:find-free-port-and-open (+ port 1)))
|