41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
;;======================================================================
(include "megatest-version.scm")
(include "megatest-fossil-hash.scm")
;; Globals
(define *runremote* #f) ;; if set up for server communication this will hold <host port>
;; db stats
(define *db-stats* (make-hash-table)) ;; hash of vectors < count duration-total >
(define *db-stats-mutex* (make-mutex))
(define *toppath* #f)
(define *db-keys* #f)
(define *keyvals* #f)
|
<
|
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
;;======================================================================
(include "megatest-version.scm")
(include "megatest-fossil-hash.scm")
;; Globals
;; db stats
(define *db-stats* (make-hash-table)) ;; hash of vectors < count duration-total >
(define *db-stats-mutex* (make-mutex))
(define *toppath* #f)
(define *db-keys* #f)
(define *keyvals* #f)
|