scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add %cpu

This commit is contained in:
Martin Gasbichler 2004-10-25 14:38:46 +00:00
parent 6fe00e8593
commit 8e592025e1
4 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/pps/README
View File

@ -1,6 +1,6 @@
The structure pps implements a portable version of the ps command. It The structure pps implements a portable version of the ps command. It
currently supports FreeBSD (4.6), Mac OS X/Darwin (10.2/6.3), Linux currently supports FreeBSD (4.6,5.2), Mac OS X/Darwin (10.2/6.3), Linux
(2.4.19), AIX (4.3.2), Solaris (SunOS 5.8) (tested version). As the ps (2.4.19), AIX (4.3.2), Solaris (SunOS 5.8,5.9) (tested version). As the ps
command is not part of any standard this package is likely to fail if command is not part of any standard this package is likely to fail if
the version of your system differs from the one I tested. Please the version of your system differs from the one I tested. Please
report incompatible versions and, if possible, provide an adapted report incompatible versions and, if possible, provide an adapted
@ -38,6 +38,7 @@ Type predicate for process-info.
(process-info-effective-gid process-info) -> number (process-info-effective-gid process-info) -> number
(process-info-saved-set-gid process-info) -> number (process-info-saved-set-gid process-info) -> number
(process-info-time process-info) -> number (process-info-time process-info) -> number
(process-info-%cpu process-info) -> float-number
(process-info-tty process-info) -> string (process-info-tty process-info) -> string
(process-info-executable process-info) -> string (process-info-executable process-info) -> string
(process-info-command-line process-info) -> string (process-info-command-line process-info) -> string

1
scsh/pps/packages.scm
View File

@ -12,6 +12,7 @@
process-info-effective-gid process-info-effective-gid
process-info-saved-set-gid process-info-saved-set-gid
process-info-time process-info-time
process-info-%cpu
process-info-tty process-info-tty
process-info-executable process-info-executable
process-info-command-line)) process-info-command-line))

2
scsh/pps/pkg-def.scm
View File

@ -1,5 +1,5 @@
(define-package "pps" (define-package "pps"
(1 0) (1 1)
((install-lib-version (1 0))) ((install-lib-version (1 0)))
(write-to-load-script (write-to-load-script
`((config) `((config)

14
scsh/pps/pps.scm
View File

@ -8,7 +8,7 @@
(really-make-process-info pid ppid logname (really-make-process-info pid ppid logname
real-uid effective-uid saved-set-uid real-uid effective-uid saved-set-uid
real-gid effective-gid saved-set-gid real-gid effective-gid saved-set-gid
time tty executable command-line) time %cpu tty executable command-line)
process-info? process-info?
(pid process-info-pid) (pid process-info-pid)
(ppid process-info-ppid) (ppid process-info-ppid)
@ -20,6 +20,7 @@
(effective-gid process-info-effective-gid) (effective-gid process-info-effective-gid)
(saved-set-gid process-info-saved-set-gid) (saved-set-gid process-info-saved-set-gid)
(time process-info-time) (time process-info-time)
(%cpu process-info-%cpu)
(tty process-info-tty) (tty process-info-tty)
(executable process-info-executable) (executable process-info-executable)
(command-line process-info-command-line)) (command-line process-info-command-line))
@ -33,7 +34,7 @@
pid ppid logname pid ppid logname
real-uid effective-uid saved-set-uid real-uid effective-uid saved-set-uid
real-gid effective-gid saved-set-gid real-gid effective-gid saved-set-gid
time tty executable . command-line) time %cpu tty executable . command-line)
(really-make-process-info (really-make-process-info
(string->number pid) (string->number ppid) logname (string->number pid) (string->number ppid) logname
(string->number real-uid) (string->number effective-uid) (string->number real-uid) (string->number effective-uid)
@ -41,6 +42,7 @@
(string->number real-gid) (string->number effective-gid) (string->number real-gid) (string->number effective-gid)
(string->number saved-set-gid) (string->number saved-set-gid)
((ps-time->seconds ps-functions) time) ((ps-time->seconds ps-functions) time)
(string->number %cpu)
tty executable command-line)) tty executable command-line))
(define *os-pss* '()) (define *os-pss* '())
@ -87,7 +89,7 @@
(let ((res (run/strings (let ((res (run/strings
(ps -axww (ps -axww
;; uses rgid instead of gid ;; uses rgid instead of gid
"-opid,ppid,user,ruid,uid,svuid,rgid,rgid,svgid,time,tty,ucomm,command")))) "-opid,ppid,user,ruid,uid,svuid,rgid,rgid,svgid,time,%cpu,tty,ucomm,command"))))
(if (null? res) (if (null? res)
(error "ps failed") (error "ps failed")
(cdr res)))) (cdr res))))
@ -136,7 +138,7 @@
(define (linux-ps-command) (define (linux-ps-command)
(let ((res (run/strings (let ((res (run/strings
(ps -A ;axww (ps -A ;axww
"-opid,ppid,user,ruid,uid,svuid,rgid,gid,svgid,time,tty,ucomm,command")))) "-opid,ppid,user,ruid,uid,svuid,rgid,gid,svgid,time,%cpu,tty,ucomm,command"))))
(if (null? res) (if (null? res)
(error "ps failed") (error "ps failed")
(cdr res)))) (cdr res))))
@ -164,7 +166,7 @@
(let ((res (run/strings (let ((res (run/strings
(ps -A (ps -A
;; uses ruid/rgid instead of svuid/svgid ;; uses ruid/rgid instead of svuid/svgid
-opid -oppid -ouser -oruid -ouid -oruid -orgid -ogid -orgid -otime -otty -oucomm -oargs)))) -opid -oppid -ouser -oruid -ouid -oruid -orgid -ogid -orgid -otime -opcpu -otty -oucomm -oargs))))
(if (null? res) (if (null? res)
(error "ps failed") (error "ps failed")
(cdr res)))) (cdr res))))
@ -195,7 +197,7 @@
(let ((res (run/strings (let ((res (run/strings
(ps -A (ps -A
;; uses ruid/rgid instead of svuid/svgid ;; uses ruid/rgid instead of svuid/svgid
-opid -oppid -ouser -oruid -ouid -oruid -orgid -ogid -orgid -otime -otty -ocomm -oargs)))) -opid -oppid -ouser -oruid -ouid -oruid -orgid -ogid -orgid -otime -opcpu -otty -ocomm -oargs))))
(if (null? res) (if (null? res)
(error "ps failed") (error "ps failed")
(cdr res)))) (cdr res))))