90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
(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) db:get-tests-for-runs)
(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
|
|
|
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
(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
|