98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
(rpc:publish-procedure!
'rdb:test-set-log!
(lambda (run-id test-name item-path logf)
(db:test-set-log! db run-id test-name item-path logf)))
(rpc:publish-procedure!
'rpc:get-test-data-by-id
(lambda (test-id)
(db:get-test-data-by-id db test-id)))
(rpc:publish-procedure!
'serve:get-toppath
(lambda ()
*toppath*))
|
|
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
(rpc:publish-procedure!
'rdb:test-set-log!
(lambda (run-id test-name item-path logf)
(db:test-set-log! db run-id test-name item-path logf)))
(rpc:publish-procedure!
'rdb:get-test-data-by-id
(lambda (test-id)
(db:get-test-data-by-id db test-id)))
(rpc:publish-procedure!
'serve:get-toppath
(lambda ()
*toppath*))
|