From 08b7071076a1692fcc44d6c8bef1059e99a2c988 Mon Sep 17 00:00:00 2001 From: Martin Gasbichler Date: Tue, 28 Jan 2003 10:53:17 +0000 Subject: [PATCH] module definitions for pps --- scsh/pps/interfaces.scm | 17 +++++++++++++++++ scsh/pps/packages.scm | 5 +++++ 2 files changed, 22 insertions(+) create mode 100644 scsh/pps/interfaces.scm create mode 100644 scsh/pps/packages.scm diff --git a/scsh/pps/interfaces.scm b/scsh/pps/interfaces.scm new file mode 100644 index 0000000..c0e35c1 --- /dev/null +++ b/scsh/pps/interfaces.scm @@ -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)) \ No newline at end of file diff --git a/scsh/pps/packages.scm b/scsh/pps/packages.scm new file mode 100644 index 0000000..6658f2d --- /dev/null +++ b/scsh/pps/packages.scm @@ -0,0 +1,5 @@ +(define-structure pps pps-interface + (open scheme-with-scsh + (subset srfi-1 (drop take)) + define-record-types) + (files pps)) \ No newline at end of file