475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
|
;; These require run-id because the values come from the run!
;;
(define (mrmt:get-key-val-pairs run-id)
(mrmt:send-receive 'get-key-val-pairs run-id (list run-id)))
(define (mrmt:get-keys)
(if *db-keys* *db-keys*
(let ((res (mrmt:send-receive 'get-keys #f '())))
(set! *db-keys* res)
res)))
(define (mrmt:get-keys-write) ;; dummy query to force server start
(let ((res (mrmt:send-receive 'get-keys-write #f '())))
(set! *db-keys* res)
res))
;; we don't reuse run-id's (except possibly *after* a db cleanup) so it is safe
;; to cache the resuls in a hash
;;
(define (mrmt:get-key-vals run-id)
(or (hash-table-ref/default *keyvals* run-id #f)
|
|
|
|
|
|
|
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
|
;; These require run-id because the values come from the run!
;;
(define (mrmt:get-key-val-pairs run-id)
(mrmt:send-receive 'get-key-val-pairs run-id (list run-id)))
(define (mrmt:get-keys)
;; (if *db-keys* *db-keys*
(let ((res (mrmt:send-receive 'get-keys #f '())))
;; (set! *db-keys* res)
res)) ;; )
(define (mrmt:get-keys-write) ;; dummy query to force server start
(let ((res (mrmt:send-receive 'get-keys-write #f '())))
;; (set! *db-keys* res)
res))
;; we don't reuse run-id's (except possibly *after* a db cleanup) so it is safe
;; to cache the resuls in a hash
;;
(define (mrmt:get-key-vals run-id)
(or (hash-table-ref/default *keyvals* run-id #f)
|