Added support for subprocesses.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 83988fff29da5695312d069ad8a732b34dbc7cb7..876fac9244dd4acbff977120ab3e63d52a367354 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.61 1990/02/10 23:45:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.62 1990/02/27 19:53:29 markf Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -1268,6 +1268,12 @@ MIT in each case. |#
          channel-name
          close-physical-channel
          open-output-channel)
+  (export (runtime subprocesses input)
+         close-physical-channel
+         open-input-channel)
+  (export (runtime subprocesses output)
+         close-physical-channel
+         open-output-channel)
   (initialization (initialize-package!)))
 
 (define-package (runtime random-number)
@@ -1866,4 +1872,37 @@ MIT in each case. |#
          working-directory-pathname)
   (export (runtime emacs-interface)
          hook/set-working-directory-pathname!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime subprocesses)
+  (files "process")
+  (parent ())
+  (export ()
+         create-process
+         delete-process
+         kill-process
+         process?
+         process/command-string
+         process/microcode-process
+         process/to-port
+         process/from-port
+         process-get-pid
+         process-get-input-channel
+         process-get-output-channel
+         process-get-status-flags
+         prim-process-char-ready?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime subprocesses input)
+  (files "procin")
+  (parent ())
+  (export ()
+         open-process-input)
+  (initialization (initialize-package!)))
+
+(define-package (runtime subprocesses output)
+  (files "procout")
+  (parent ())
+  (export ()
+         open-process-output)
   (initialization (initialize-package!)))
\ No newline at end of file

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index a4d250d1dd8908198973042199b1223ad9f982c0..d4cd170cb1975ad5438c262d4de2c2a687dda628 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.61 1990/02/10 23:45:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.62 1990/02/27 19:53:29 markf Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -1268,6 +1268,12 @@ MIT in each case. |#
          channel-name
          close-physical-channel
          open-output-channel)
+  (export (runtime subprocesses input)
+         close-physical-channel
+         open-input-channel)
+  (export (runtime subprocesses output)
+         close-physical-channel
+         open-output-channel)
   (initialization (initialize-package!)))
 
 (define-package (runtime random-number)
@@ -1866,4 +1872,37 @@ MIT in each case. |#
          working-directory-pathname)
   (export (runtime emacs-interface)
          hook/set-working-directory-pathname!)
+  (initialization (initialize-package!)))
+
+(define-package (runtime subprocesses)
+  (files "process")
+  (parent ())
+  (export ()
+         create-process
+         delete-process
+         kill-process
+         process?
+         process/command-string
+         process/microcode-process
+         process/to-port
+         process/from-port
+         process-get-pid
+         process-get-input-channel
+         process-get-output-channel
+         process-get-status-flags
+         prim-process-char-ready?)
+  (initialization (initialize-package!)))
+
+(define-package (runtime subprocesses input)
+  (files "procin")
+  (parent ())
+  (export ()
+         open-process-input)
+  (initialization (initialize-package!)))
+
+(define-package (runtime subprocesses output)
+  (files "procout")
+  (parent ())
+  (export ()
+         open-process-output)
   (initialization (initialize-package!)))
\ No newline at end of file