78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
;;======================================================================
;; db specials here
;;======================================================================
;; remote call to open-run-close
(rpc:publish-procedure!
'rdb:open-run-close
(lambda (procname . remargs)
(debug:print-info 4 "Remote call of 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 msg)
(debug:print-info 4 "Remote call of cdb:test-set-status-state test-id=" test-id ", status=" status ", state=" state ", msg=" msg)
(cdb:test-set-status-state test-id status state msg)))
(rpc:publish-procedure!
'cdb:test-rollup-test_data-pass-fail
(lambda (test-id)
(debug:print-info 4 "Remote call of cdb:test-rollup-test_data-pass-fail " test-id)
(cdb:test-rollup-test_data-pass-fail test-id)))
(rpc:publish-procedure!
'cdb:pass-fail-counts
(lambda (test-id fail-count pass-count)
(debug:print-info 4 "Remote call of cdb:pass-fail-counts " test-id " passes: " pass-count " fails: " fail-count)
(cdb:pass-fail-counts test-id fail-count pass-count)))
(rpc:publish-procedure!
'cdb:tests-register-test
(lambda (db run-id test-name item-path)
(debug:print-info 4 "Remote call of cdb:tests-register-test " run-id " testname: " test-name " item-path: " item-path)
(cdb:tests-register-test db run-id test-name item-path)))
(rpc:publish-procedure!
'cdb:flush-queue
(lambda ()
(debug:print-info 4 "Remote call of cdb:flush-queue")
(cdb:flush-queue)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
|
|
|
|
|
|
|
|
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
;;======================================================================
;; db specials here
;;======================================================================
;; remote call to open-run-close
(rpc:publish-procedure!
'rdb:open-run-close
(lambda (procname . remargs)
(debug:print-info 12 "Remote call of 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 msg)
(debug:print-info 12 "Remote call of cdb:test-set-status-state test-id=" test-id ", status=" status ", state=" state ", msg=" msg)
(cdb:test-set-status-state test-id status state msg)))
(rpc:publish-procedure!
'cdb:test-rollup-test_data-pass-fail
(lambda (test-id)
(debug:print-info 12 "Remote call of cdb:test-rollup-test_data-pass-fail " test-id)
(cdb:test-rollup-test_data-pass-fail test-id)))
(rpc:publish-procedure!
'cdb:pass-fail-counts
(lambda (test-id fail-count pass-count)
(debug:print-info 12 "Remote call of cdb:pass-fail-counts " test-id " passes: " pass-count " fails: " fail-count)
(cdb:pass-fail-counts test-id fail-count pass-count)))
(rpc:publish-procedure!
'cdb:tests-register-test
(lambda (db run-id test-name item-path)
(debug:print-info 12 "Remote call of cdb:tests-register-test " run-id " testname: " test-name " item-path: " item-path)
(cdb:tests-register-test db run-id test-name item-path)))
(rpc:publish-procedure!
'cdb:flush-queue
(lambda ()
(debug:print-info 12 "Remote call of cdb:flush-queue")
(cdb:flush-queue)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
|