Differences From Artifact [edb46feb54]:
- File loadwatch/loadwatch.scm — part of check-in [69157830fb] at 2015-06-18 05:59:45 on branch v1.60 — Added loadwatch (user: matt, size: 1766) [annotate] [blame] [check-ins using]
To Artifact [ac08451f48]:
- File loadwatch/loadwatch.scm — part of check-in [610dd685d1] at 2015-06-18 06:00:23 on branch v1.60 — Added loadwatch (user: matt, size: 1788) [annotate] [blame] [check-ins using]
︙ | |||
48 49 50 51 52 53 54 55 | 48 49 50 51 52 53 54 55 56 | + | (processdat-%cpu-set! pdat (+ (processdat-%cpu pdat) %cpu)) (processdat-%mem-set! pdat (+ (processdat-%mem pdat) %mem)) (processdat-virt-set! pdat (+ (processdat-virt pdat) virt)) (processdat-res-set! pdat (+ (processdat-res pdat) res)) (processdat-count-set! pdat (+ (processdat-count pdat) 1)) (loop (read-line) inbod))))))))) (define x (snagload)) (processdat-%cpu (hash-table-ref (hash-table-ref x "matt") "evolution-calen")) |