1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
|
;; monte-carlo-esque random sampling of journal files
;; for all the files:
;; if .journal
;; update stats +1 +1
;; update stats +1 0
;;
(define (tt:write-load-tracking dbdir)
(directory-fold
dbdir
(lambda (res fname)
(cons fname res))
'()))
)
|
>
>
|
|
|
|
|
|
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
|
;; monte-carlo-esque random sampling of journal files
;; for all the files:
;; if .journal
;; update stats +1 +1
;; update stats +1 0
;;
(define (tt:write-load-tracking dbdir)
(let* ((cs (current-seconds))
(key (inexact->exact (quotient cs 10))))
(directory-fold
dbdir
(lambda (res fname)
(cons fname res))
'())))
)
|