Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.81-journal-based-throttling |
| Files: | files | file ages | folders |
| SHA1: |
62d878791d31460f7cc3456e0cb9bdde |
| User & Date: | matt on 2024-07-09 20:07:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-07-10
| ||
| 03:20 | basic stats capture working check-in: f86e5d3082 user: matt tags: v1.81-journal-based-throttling | |
|
2024-07-09
| ||
| 20:07 | wip check-in: 62d878791d user: matt tags: v1.81-journal-based-throttling | |
| 19:26 | wip check-in: 040bf225dc user: mrwellan tags: v1.81-journal-based-throttling | |
Changes
Modified tcp-transportmod.scm from [225cc8fb42] to [1868d597df].
| ︙ | ︙ | |||
1142 1143 1144 1145 1146 1147 1148 | ;; 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) | > > | | | | | | 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))
'())))
)
|