76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
(status #f)
(count 0))
(define (db:with-db dbstruct run-id r/w proc . params)
(case (rmt:transport-mode)
((http)(dbfile:with-db dbstruct run-id r/w proc params))
((tcp) (dbmod:with-db dbstruct run-id r/w proc params))))
;;======================================================================
;; hash of hashs
;;======================================================================
(define (db:hoh-set! dat key1 key2 val)
|
|
>
>
|
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
(status #f)
(count 0))
(define (db:with-db dbstruct run-id r/w proc . params)
(case (rmt:transport-mode)
((http)(dbfile:with-db dbstruct run-id r/w proc params))
((tcp) (dbmod:with-db dbstruct run-id r/w proc params))
((nfs) (dbmod:with-db dbstruct run-id r/w proc params))
(else (assert #f "FATAL: db:with-db called with non-existant transport mode"))))
;;======================================================================
;; hash of hashs
;;======================================================================
(define (db:hoh-set! dat key1 key2 val)
|