Add proc:pid, proc?, signal-process and process-sleep for improved compat

Thanks to Joerg Wittenberger for the suggestion to add proc:pid and
signal-process.

1 files changed, 10 insertions, 2 deletions

diff --git a/scsh-process.scm b/scsh-process.scm
index a741177..ce70290 100644
--- a/scsh-process.scm
+++ b/scsh-process.scm
@@ -11,7 +11,7 @@
 ;; WARNING: Don't mix with threading unless you're using
 ;;          Chicken 4.8.1 rev 47b5be71 or later.
 ;;
-;;; Copyright (c) 2012-2015, Peter Bex
+;;; Copyright (c) 2012-2016, Peter Bex
 ;; All rights reserved.
 ;
 ; Redistribution and use in source and binary forms, with or without
@@ -46,7 +46,7 @@
    run/collecting run/string run/strings run/port run/file run/sexp run/sexps
    || && (& run-final-thunk maybe->string) (run maybe->string) (exec-epf maybe->string)
 
-   process? wait)
+   process? proc? wait signal-process process-sleep)
 
 (import chicken scheme data-structures)
 
@@ -66,6 +66,10 @@
 
 (define-record scsh-process pid exit-status ok?)
 
+(define proc:pid scsh-process-pid)
+(define proc? scsh-process?)
+
+;; Deprecated
 (define process? scsh-process?)
 
 (define *scsh-pending-processes* (make-hash-table))
@@ -143,6 +147,10 @@
                    (hash-table-keys *scsh-pending-processes*))
          (when old-handler (old-handler signal)))))))
 
+(define (signal-process proc sig)
+  (process-signal (scsh-process-pid proc) sig))
+
+(define process-sleep sleep)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Execution and forking helpers ;;