Megatest

Check-in [610dd685d1]
Login
Overview
Comment:Added loadwatch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 610dd685d1efb5739127810407601b3526fff35f
User & Date: matt on 2015-06-18 06:00:23
Other Links: branch diff | manifest | tags
Context
2015-06-18
18:00
Tweaks to loadwatch check-in: d0797d3ec2 user: mrwellan tags: v1.60
06:00
Added loadwatch check-in: 610dd685d1 user: matt tags: v1.60
05:59
Added loadwatch check-in: 69157830fb user: matt tags: v1.60
Changes

Modified loadwatch/loadwatch.scm from [edb46feb54] to [ac08451f48].

48
49
50
51
52
53
54

55
		   (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)))))))))
	   

(processdat-%cpu (hash-table-ref (hash-table-ref x "matt") "evolution-calen"))







>

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"))