316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
(kill-tries 0))
;; (tests:set-full-meta-info #f test-id run-id (calc-minutes) work-area)
;; (tests:set-full-meta-info test-id run-id (calc-minutes) work-area)
(tests:set-full-meta-info #f test-id run-id (calc-minutes) work-area 10)
(let loop ((minutes (calc-minutes))
(cpu-load (get-cpu-load))
(disk-free (get-df (current-directory))))
(let ((new-cpu-load (let* ((load (get-cpu-load))
(delta (abs (- load cpu-load))))
(if (> delta 0.6) ;; don't bother updating with small changes
load
#f)))
(new-disk-free (let* ((df (get-df (current-directory)))
(delta (abs (- df disk-free))))
(if (> delta 200) ;; ignore changes under 200 Meg
|
|
|
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
(kill-tries 0))
;; (tests:set-full-meta-info #f test-id run-id (calc-minutes) work-area)
;; (tests:set-full-meta-info test-id run-id (calc-minutes) work-area)
(tests:set-full-meta-info #f test-id run-id (calc-minutes) work-area 10)
(let loop ((minutes (calc-minutes))
(cpu-load (get-cpu-load))
(disk-free (get-df (current-directory))))
(let ((new-cpu-load (let* ((load (common:get-normalized-cpu-load #f))
(delta (abs (- load cpu-load))))
(if (> delta 0.6) ;; don't bother updating with small changes
load
#f)))
(new-disk-free (let* ((df (get-df (current-directory)))
(delta (abs (- df disk-free))))
(if (> delta 200) ;; ignore changes under 200 Meg
|