70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
(debug:print 4 "INFO: rdb:open-run-close " procname " " remargs)
(set! *last-db-access* (current-seconds))
(apply open-run-close (eval procname) remargs)))
(rpc:publish-procedure!
'cdb:test-set-status-state
(lambda (test-id status state)
(debug:print 4 "INFO: cdb:test-set-status-state " procname " " remargs)
(apply cdb:test-set-status-state remargs)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
|
|
|
>
>
>
>
>
>
|
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
(debug:print 4 "INFO: rdb:open-run-close " procname " " remargs)
(set! *last-db-access* (current-seconds))
(apply open-run-close (eval procname) remargs)))
(rpc:publish-procedure!
'cdb:test-set-status-state
(lambda (test-id status state)
(debug:print 4 "INFO: cdb:test-set-status-state " test-id " " status "/" state)
(apply cdb:test-set-status-state test-id status statue)))
(rpc:publish-procedure!
'cdb:test-rollup-iterated-pass-fail
(lambda (test-id)
(debug:print 4 "INFO: cdb:test-rollup-iterated-pass-fail " test-id)
(apply cdb:test-rollup-iterated-pass-fail test-id)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
|