89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
(define *synchashes* (make-hash-table))
(define (synchash:server-get db proc synckey keynum . params)
;; (debug:print-info 2 "synckey: " synckey ", keynum: " keynum ", params: " params)
(let* ((synchash (hash-table-ref/default *synchashes* synckey #f))
(newdat (apply (case proc
((db:get-runs) db:get-runs)
((db:get-tests-for-runs-mindata) db:get-tests-for-runs-mindata)
(else print))
db params))
(postdat #f)
(make-indexed (lambda (x)
(list (vector-ref x keynum) x))))
;; Now process newdat based on the query type
(set! postdat (case proc
((db:get-runs)
|
|
>
>
>
|
|
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
(define *synchashes* (make-hash-table))
(define (synchash:server-get db proc synckey keynum . params)
;; (debug:print-info 2 "synckey: " synckey ", keynum: " keynum ", params: " params)
(let* ((synchash (hash-table-ref/default *synchashes* synckey #f))
(newdat (apply (case proc
((db:get-runs) db:get-runs)
((db:get-tests-for-runs-mindata) db:get-tests-for-runs-mindata)
((db:get-test-info-by-ids) db:get-test-info-by-ids)
(else
(print "ERROR: sync for hash " proc " not setup! Edits needed in synchash.scm")
print))
db params))
(postdat #f)
(make-indexed (lambda (x)
(list (vector-ref x keynum) x))))
;; Now process newdat based on the query type
(set! postdat (case proc
((db:get-runs)
|