80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
(lambda (run-id test-name item-path status)
(db:roll-up-pass-fail-counts db run-id test-name item-path status)))
(rpc:publish-procedure!
'rdb:test-set-comment
(lambda (run-id test-name item-path comment)
(db:test-set-comment db run-id test-name item-path comment)))
(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-join! th1))) ;; rpc:server)))
|
>
>
>
>
>
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
(lambda (run-id test-name item-path status)
(db:roll-up-pass-fail-counts db run-id test-name item-path status)))
(rpc:publish-procedure!
'rdb:test-set-comment
(lambda (run-id test-name item-path comment)
(db:test-set-comment db run-id test-name item-path comment)))
(rpc:publish-procedure!
'rpc:test-set-log!
(lambda (run-id test-name item-path logf)
(db:test-set-log! db run-id test-name item-path logf)))
(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-join! th1))) ;; rpc:server)))
|