30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
+
|
(declare (uses dbmod))
(declare (uses dbfile))
(declare (uses keys))
(declare (uses ods))
(declare (uses mt))
(declare (uses commonmod))
(declare (uses mtargs))
(declare (uses rmtmod))
(import commonmod
(prefix mtargs args:))
(use (srfi 18)
extras
tcp
|
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
+
|
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)
(import debugprint)
(import dbmod)
(import dbfile)
(import rmtmod)
;; record for keeping state,status and count for doing roll-ups in
;; iterated tests
;;
(defstruct dbr:counts
(state #f)
(status #f)
|