178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
(db:read-test-data db test-id categorypatt)))
(rpc:publish-procedure!
'rdb:get-test-info
(lambda (run-id testname item-path)
(db:get-test-info db run-id testname 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-join! th1))) ;; rpc:server)))
|
>
>
>
>
>
|
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
(db:read-test-data db test-id categorypatt)))
(rpc:publish-procedure!
'rdb:get-test-info
(lambda (run-id testname item-path)
(db:get-test-info db run-id testname item-path)))
(rpc:publish-procedure!
'rdb:delete-test-records
(lambda (test-id)
(db:delete-test-records db test-id)))
(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)))
|