42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
-
+
+
+
|
((get-prereqs-not-met) (apply db:get-prereqs-not-met params))
;; RUNS
((get-run-info) (let ((res (apply db:get-run-info db params)))
(list (vector-ref res 0)
(vector->list (vector-ref res 1)))))
((register-run) (apply db:register-run db params))
((set-tests-state-status) (apply db:set-state-status db params))
((set-tests-state-status) (apply db:set-tests-state-status db params))
((get-tests-for-run) (map vector->list (apply db:get-tests-for-run db params)))
((get-test-id) (apply db:get-test-id-not-cached db params))
((get-tests-for-runs-mindata) (map vector->list (apply db:get-tests-for-runs-mindata db params)))
((get-run-name-from-id) (apply db:get-run-name-from-id db params))
((delete-run) (apply db:delete-run db params))
((get-runs) (let* ((res (apply db:get-runs db params))
(hedr (vector-ref res 0))
(data (vector-ref res 1)))
(list hedr (map vector->list data))))
((get-runs-by-patt) (let* ((res (apply db:get-runs-by-patt db params))
(hedr (vector-ref res 0))
(data (vector-ref res 1)))
(list hedr (map vector->list data))))
((lock/unlock-run) (apply db:lock/unlock-run params))
((update-run-event_time) (apply db:update-run-event_time params))
;; MISC
((login) (apply db:login db params))
((general-call) (let ((stmtname (car params))
(realparams (cdr params)))
(db:general-call db stmtname realparams)))
((kill-server)
|
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
-
+
+
|
port: port)
(set! *server-run* #f)
(thread-sleep! 3)
(if pid
(process-signal pid signal/kill)
(thread-start! th1))
'(#t "exit process started")))
((testmeta-add-record) (apply db:testmeta-add-record params))
((testmeta-update-field) (apply db:testmeta-update-field params))
(else
(list "ERROR" 0))))
;; http-server send-response
;; api:process-request
;; db:*
;;
|