1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
;; sun release 4 getrusage interface. (constructed using structs.lsp)
(in-package 'si)
(DEFSTRUCT (|rusage| (:static t))
(|ru_utime.tv_sec| 0 :TYPE FIXNUM)
(|ru_utime.tv_usec| 0 :TYPE FIXNUM)
(|ru_stime.tv_sec| 0 :TYPE FIXNUM)
(|ru_stime.tv_usec| 0 :TYPE FIXNUM)
(|ru_maxrss| 0 :TYPE FIXNUM)
(|ru_ixrss| 0 :TYPE FIXNUM)
(|ru_idrss| 0 :TYPE FIXNUM)
(|ru_isrss| 0 :TYPE FIXNUM)
(|ru_minflt| 0 :TYPE FIXNUM)
(|ru_majflt| 0 :TYPE FIXNUM)
(|ru_nswap| 0 :TYPE FIXNUM)
(|ru_inblock| 0 :TYPE FIXNUM)
(|ru_oublock| 0 :TYPE FIXNUM)
(|ru_msgsnd| 0 :TYPE FIXNUM)
(|ru_msgrcv| 0 :TYPE FIXNUM)
(|ru_nsignals| 0 :TYPE FIXNUM)
(|ru_nvcsw| 0 :TYPE FIXNUM)
(|ru_nivcsw| 0 :TYPE FIXNUM))
(clines "static mygetrusage(x,y) int x; object y;{return getrusage(x,y->str.str_self);}")
(defentry GETRUSAGE1 (int object) (int "mygetrusage"))
(defun get-usage (self usage)
(or (typep usage '|rusage|) (setq usage (make-|rusage|)))
(getrusage1 (if self 0 -1) usage)
usage)
(defmacro with-change-displayed (form)
`(let ((.beg (get-usage t nil)))
(prog1 ,form
(let ((.end (get-usage t nil)))
(let ((sd (s-data-slot-descriptions (get '|rusage| 's-data))))
(sloop for i from 0
for v in(s-data-slot-descriptions (get '|rusage| 's-data))
for dif =
(- (structure-ref1 .end i ) (structure-ref1 .beg i ) )
when (not (zerop dif))
do(print (list (car v) dif))))))))
|
