241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
(rpc:publish-procedure!
'rtests:test-set-toplog!
(lambda (run-id test-name logf)
(set! *last-db-access* (current-seconds))
(test-set-toplog! db run-id test-name logf)))
;;======================================================================
;; 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)
|
>
>
>
>
>
>
|
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
|
(rpc:publish-procedure!
'rtests:test-set-toplog!
(lambda (run-id test-name logf)
(set! *last-db-access* (current-seconds))
(test-set-toplog! db run-id test-name logf)))
(rpc:publish-procedure!
'db:test-get-paths-matching
(lambda (keynames target)
(set! *last-db-access* (current-seconds))
(db:test-get-paths-matching db keynames target)))
;;======================================================================
;; 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)
|