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