119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
-
+
|
(string->symbol cmd))
;;===============================================
;; READ/WRITE QUERIES
;;===============================================
;; SERVERS
((start-server) (apply server:kind-run params))
((start-server) (apply server:kind-run params area-dat))
((kill-server) (set! *server-run* #f))
;; TESTS
((test-set-state-status-by-id) (apply db:test-set-state-status-by-id dbstruct area-dat params))
((delete-test-records) (apply db:delete-test-records dbstruct area-dat params))
((delete-old-deleted-test-records) (apply db:delete-old-deleted-test-records dbstruct area-dat params))
((test-set-status-state) (apply db:test-set-status-state dbstruct area-dat params))
|
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
-
-
+
+
-
+
|
;; MISC
((sync-inmem->db) (let ((run-id (car params)))
(db:sync-touched dbstruct area-dat run-id force-sync: #t)))
((mark-incomplete) (apply db:find-and-mark-incomplete dbstruct area-dat params))
;; TESTMETA
((testmeta-add-record) (apply db:testmeta-add-record dbstruct area-dat params))
((testmeta-update-field) (apply db:testmeta-update-field dbstruct area-dat params))
((testmeta-add-record) (apply db:testmeta-add-record dbstruct area-dat params))
((testmeta-update-field) (apply db:testmeta-update-field dbstruct area-dat params))
;; TASKS
((tasks-add) (apply tasks:add dbstruct area-dat params))
((tasks-add) (apply tasks:add dbstruct area-dat params))
((tasks-set-state-given-param-key) (apply tasks:set-state-given-param-key dbstruct area-dat params))
;; ARCHIVES
;; ((archive-get-allocations)
((archive-register-disk) (apply db:archive-register-disk dbstruct area-dat params))
((archive-register-block-name)(apply db:archive-register-block-name dbstruct area-dat params))
((archive-allocate-testsuite/area-to-block)(apply db:archive-allocate-testsuite/area-to-block dbstruct area-dat block-id testsuite-name areakey))
|
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
|
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
|
-
+
|
((have-incompletes?) (apply db:have-incompletes? dbstruct area-dat params))
((login) (apply db:login dbstruct area-dat params))
((general-call) (let ((stmtname (car params))
(run-id (cadr params))
(realparams (cddr params)))
(db:with-db dbstruct area-dat run-id #t ;; these are all for modifying the db
(lambda (db)
(db:general-call db stmtname realparams)))))
(db:general-call db stmtname realparams area-dat)))))
((sdb-qry) (apply sdb:qry params))
((ping) (current-process-id))
;; TESTMETA
((testmeta-get-record) (apply db:testmeta-get-record dbstruct area-dat params))
;; TASKS
|