From 782137dfb11ada4df9fb14aaa8b17961ce8e583b Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Tue, 27 Feb 1990 19:53:29 +0000 Subject: [PATCH] Added support for subprocesses. --- v7/src/runtime/runtime.pkg | 41 +++++++++++++++++++++++++++++++++++++- v8/src/runtime/runtime.pkg | 41 +++++++++++++++++++++++++++++++++++++- 2 files changed, 80 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 83988fff2..876fac924 100644 --- 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 a4d250d1d..d4cd170cb 100644 --- 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 -- 2.25.1