25 lines
570 B
Scheme
25 lines
570 B
Scheme
(define-interface pps-interface
|
|
(export pps
|
|
|
|
process-info?
|
|
process-info-pid
|
|
process-info-ppid
|
|
process-info-logname
|
|
process-info-real-uid
|
|
process-info-effective-uid
|
|
process-info-saved-set-uid
|
|
process-info-real-gid
|
|
process-info-effective-gid
|
|
process-info-saved-set-gid
|
|
process-info-time
|
|
process-info-%cpu
|
|
process-info-tty
|
|
process-info-executable
|
|
process-info-command-line))
|
|
|
|
(define-structure pps pps-interface
|
|
(open scheme-with-scsh
|
|
(subset srfi-1 (drop take))
|
|
define-record-types)
|
|
(files pps))
|