Changes In Branch v1.81-journal-based-throttling Through [62d878791d] Excluding Merge-Ins
This is equivalent to a diff from 5ac37f3fd4 to 62d878791d
|
2024-07-11
| ||
| 13:34 | cherry pick e8d7732e preq-fail tests in messages Leaf check-in: 2b4f2ebcce user: mmgraham tags: v1.81-preq-fail-details | |
|
2024-07-10
| ||
| 23:42 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-server-load-and-cores check-in: 600ba0778d user: fdiskadm tags: v1.81 | |
| 18:32 | Changed message on busy server candidate host to give actual load and number of cores Leaf check-in: dc040c6bd7 user: mmgraham tags: v1.81-server-load-and-cores | |
| 11:03 | Create new branch named "ricky_testing_to_delete" Closed-Leaf check-in: a59962edb1 user: ramartin tags: ricky_testing_to_delete | |
| 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 | |
| 10:21 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-multi-server check-in: 5ac37f3fd4 user: ramartin tags: v1.81 | |
| 08:53 | Merged from v1.81 and fixed conflicts Leaf check-in: dbc22912d1 user: mrwellan tags: v1.81-multi-server | |
|
2024-07-08
| ||
| 12:55 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-fix-api-changed check-in: 0249193b68 user: ramartin tags: v1.81 | |
Modified tcp-transportmod.scm from [f03b836e05] to [1868d597df].
| ︙ | ︙ | |||
39 40 41 42 43 44 45 46 47 48 49 50 51 52 | extras hostinfo ports posix files data-structures tcp )) (chicken-5 (import chicken.base chicken.condition chicken.file chicken.pathname | > | 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | extras hostinfo ports posix files data-structures directory-utils tcp )) (chicken-5 (import chicken.base chicken.condition chicken.file chicken.pathname |
| ︙ | ︙ | |||
1126 1127 1128 1129 1130 1131 1132 1133 |
(sort (get-all-ips) ip-pref-less?))
(define (get-all-ips)
(map address-info-host
(filter (lambda (x)
(equal? (address-info-type x) "tcp"))
(address-infos (get-host-name)))))
| > > > | > > > > > > > > > > > > > > > > > > > | 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 |
(sort (get-all-ips) ip-pref-less?))
(define (get-all-ips)
(map address-info-host
(filter (lambda (x)
(equal? (address-info-type x) "tcp"))
(address-infos (get-host-name)))))
;;======================================================================
;; Other Utils
;;======================================================================
;; 1.db => (10 . 9) ;; (total . hits)
(define *journal-stats* (make-hash-table))
;; 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))
'())))
)
|