54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
(set! deleted (cons id deleted))
(hash-table-delete! synchash id))))
orig-keys)
(list changed deleted)
;; (list indat '()) ;; just for debugging
))
;; (cdb:remote-run db:get-keys #f)
;; (cdb:remote-run db:get-num-runs #f "%")
;; (cdb:remote-run db:get-runs #f runnamepatt numruns *start-run-offset* keypatts)
;;
|
<
<
<
<
|
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
(set! deleted (cons id deleted))
(hash-table-delete! synchash id))))
orig-keys)
(list changed deleted)
;; (list indat '()) ;; just for debugging
))
;; keynum => the field to use as the unique key (usually 0 but can be other field)
;;
(define (synchash:client-get area-dat proc synckey keynum synchash run-id . params)
(let* ((data (rmt:synchash-get run-id proc synckey keynum params area-dat))
(newdat (car data))
(removs (cadr data))
(myhash (hash-table-ref/default synchash synckey #f)))
|