68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
'rdb:open-run-close
(lambda (procname . remargs)
(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-state-status
(lambda (test-id status state)
(debug:print 4 "INFO: cdb:test-set-state-status " procname " " remargs)
(apply cdb:test-set-state-status remargs)))
;;======================================================================
;; end of publish-procedure section
;;======================================================================
(set! *rpc:listener* rpc:listener)
(on-exit (lambda ()
|
|
|
|
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
'rdb:open-run-close
(lambda (procname . remargs)
(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 ()
|