9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
;; PURPOSE.
;;======================================================================
(declare (unit api))
(declare (uses rmt))
(declare (uses db))
(declare (uses tasks))
;; allow these queries through without starting a server
;;
(define api:read-only-queries
'(get-key-val-pairs
get-keys
test-toplevel-num-items
get-test-info-by-id
|
|
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
;; PURPOSE.
;;======================================================================
(declare (unit api))
(declare (uses rmt))
(declare (uses db))
(declare (uses tasks))
(declare (uses bb))
;; allow these queries through without starting a server
;;
(define api:read-only-queries
'(get-key-val-pairs
get-keys
test-toplevel-num-items
get-test-info-by-id
|
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
testmeta-get-record
have-incompletes?
synchash-get
))
(define api:write-queries
'(
;; SERVERS
start-server
kill-server
;; TESTS
test-set-state-status-by-id
delete-test-records
|
>
|
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
testmeta-get-record
have-incompletes?
synchash-get
))
(define api:write-queries
'(
bbtest
;; SERVERS
start-server
kill-server
;; TESTS
test-set-state-status-by-id
delete-test-records
|
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
#t
(let ((cmd (vector-ref dat 0))
(params (vector-ref dat 1)))
(case (if (symbol? cmd)
cmd
(string->symbol cmd))
;;===============================================
|
>
>
>
|
|
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
#t
(let ((cmd (vector-ref dat 0))
(params (vector-ref dat 1)))
(case (if (symbol? cmd)
cmd
(string->symbol cmd))
;; Brandon's test to extend API
((bbtest) (apply bb:test params))
;;===============================================
;; READ/WRITE QUERIES
;;===============================================
;; SERVERS
((start-server) (apply server:kind-run params))
((kill-server) (set! *server-run* #f))
|