Change name: RUN-SYNCHRONOUS-PROCESS to RUN-SYNCHRONOUS-SUBPROCESS.

Change calling convention of RUN-SYNCHRONOUS-SUBPROCESS and
RUN-SHELL-COMMAND to accept keyword arguments, and eliminate
MAKE-SUBPROCESS-CONTEXT.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 78f4789a006dadf3bf0f752fa828ad3e953bf0ef..2daf6a1ccdc31dbd56fd071ed101f18752af6c13 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.301 1999/01/29 22:46:34 cph Exp $
+$Id: runtime.pkg,v 14.302 1999/01/31 20:42:20 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -2332,9 +2332,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          condition-type:subprocess-exited
          condition-type:subprocess-signalled
          condition-type:subprocess-stopped
-         make-subprocess-context
          run-shell-command
-         run-synchronous-process))
+         run-synchronous-subprocess))
 
 (define-package (runtime graphics)
   (files "graphics")

diff --git a/v7/src/runtime/syncproc.scm b/v7/src/runtime/syncproc.scm
index bcd241eec091ea4ffde740fac7fea41fa81e34f0..c12c252408312e2d825715f409f1cd976a957812 100644 (file)
--- a/v7/src/runtime/syncproc.scm
+++ b/v7/src/runtime/syncproc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syncproc.scm,v 1.2 1999/01/29 22:58:29 cph Exp $
+$Id: syncproc.scm,v 1.3 1999/01/31 20:43:21 cph Exp $
 
 Copyright (c) 1999 Massachusetts Institute of Technology
 
@@ -24,6 +24,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (declare (usual-integrations))
 \f
+(load-option 'SUBPROCESS)
+
 (define-structure (subprocess-context
                   (keyword-constructor make-subprocess-context)
                   (conc-name subprocess-context/))
@@ -52,20 +54,14 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   ;; The name of the shell interpreter.
   (shell-file-name (os/shell-file-name) read-only #t))
 
-(define (run-shell-command command #!optional context)
-  (let ((context
-        (if (or (default-object? context) (not context))
-            (make-subprocess-context)
-            context)))
-    (run-synchronous-process (subprocess-context/shell-file-name context)
-                            (os/form-shell-command command)
-                            context)))
+(define (run-shell-command command . options)
+  (apply run-synchronous-subprocess
+        (subprocess-context/shell-file-name context)
+        (os/form-shell-command command)
+        options))
 \f
-(define (run-synchronous-process program arguments #!optional context)
-  (let* ((context
-         (if (or (default-object? context) (not context))
-             (make-subprocess-context)
-             context))
+(define (run-synchronous-subprocess program arguments . options)
+  (let* ((context (apply make-subprocess-context options))
         (directory (subprocess-context/working-directory context))
         (process #f))
     (bind-condition-handler '()

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 074f42059de597cc244d99b0d7b7f1eb728e7fc8..7a990555f2cb6fe114feb7d3b69df1b1cffe0369 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.307 1999/01/29 22:46:26 cph Exp $
+$Id: runtime.pkg,v 14.308 1999/01/31 20:42:27 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -2336,9 +2336,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
          condition-type:subprocess-exited
          condition-type:subprocess-signalled
          condition-type:subprocess-stopped
-         make-subprocess-context
          run-shell-command
-         run-synchronous-process))
+         run-synchronous-subprocess))
 
 (define-package (runtime graphics)
   (files "graphics")