Megatest

Diff
Login

Differences From Artifact [400cec6b70]:

To Artifact [443a5f53cd]:


475
476
477
478
479
480
481
482
483
484
485




486
487
488
489

490
491
492
493
494
495
496
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 (rmt:get-key-val-pairs run-id)
  (rmt:send-receive 'get-key-val-pairs run-id (list run-id)))

(define (rmt:get-keys)
  (if *db-keys* *db-keys* 
     (let ((res (rmt:send-receive 'get-keys #f '())))
       (set! *db-keys* res)
       res)))
  ;; (if *db-keys* *db-keys* 
  (let ((res (rmt:send-receive 'get-keys #f '())))
    ;; (set! *db-keys* res)
    res)) ;; )

(define (rmt:get-keys-write) ;; dummy query to force server start
  (let ((res (rmt:send-receive 'get-keys-write #f '())))
    (set! *db-keys* res)
    ;; (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 (rmt:get-key-vals run-id)
  (or (hash-table-ref/default *keyvals* run-id #f)