module definitions for pps

This commit is contained in:
Martin Gasbichler 2003-01-28 10:53:17 +00:00
parent f53bcbc078
commit 08b7071076
2 changed files with 22 additions and 0 deletions

17
scsh/pps/interfaces.scm Normal file
View File

@ -0,0 +1,17 @@
(define-interface pps-interface
(export pps
process-recrod?
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-tty
process-info-executable
process-info-command-line))

5
scsh/pps/packages.scm Normal file
View File

@ -0,0 +1,5 @@
(define-structure pps pps-interface
(open scheme-with-scsh
(subset srfi-1 (drop take))
define-record-types)
(files pps))