Retain `filename' and `arguments' fields of process in subprocess

structure, and provide accessors to get them.  Add a properties list
to the subprocess structure.

diff --git a/v7/src/runtime/process.scm b/v7/src/runtime/process.scm
index 4858ea2e34c0857a342797d3ea022dae6794da31..9a08847a4f42f8b7b38a541a4f984f12b44ad69d 100644 (file)
--- a/v7/src/runtime/process.scm
+++ b/v7/src/runtime/process.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.6 1991/03/01 01:06:22 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/process.scm,v 1.7 1991/03/07 04:30:58 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -55,13 +55,22 @@ MIT in each case. |#
 (define-structure (subprocess
                   (constructor %make-subprocess)
                   (conc-name subprocess-))
+  (filename false read-only true)
+  (arguments false read-only true)
   index
   pty-master
   (id false read-only true)
   input-channel
   output-channel
   %input-port
-  %output-port)
+  %output-port
+  (properties (make-1d-table) read-only true))
+
+(define (subprocess-get process key)
+  (1d-table/get (subprocess-properties process) key false))
+
+(define (subprocess-put! process key datum)
+  (1d-table/put! (subprocess-properties process) key datum))
 
 (define (subprocess-input-port process)
   (without-interrupts

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index b5e525b1d37f109d4435e7c2174db1addc0d1276..3195987bad5b3885b87dfbfbf746367a8f749a43 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.93 1991/03/06 23:03:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.94 1991/03/07 04:31:16 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -1934,9 +1934,12 @@ MIT in each case. |#
          start-pipe-subprocess
          start-pty-subprocess
          start-subprocess-in-background
+         subprocess-arguments
          subprocess-continue-background
          subprocess-continue-foreground
          subprocess-delete
+         subprocess-filename
+         subprocess-get
          subprocess-id
          subprocess-input-channel
          subprocess-input-port
@@ -1947,7 +1950,9 @@ MIT in each case. |#
          subprocess-list
          subprocess-output-channel
          subprocess-output-port
+         subprocess-properties
          subprocess-pty-master
+         subprocess-put!
          subprocess-quit
          subprocess-signal
          subprocess-status

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 3cb0f3948ba8ede29426c1eb79f2629eb367e4d4..7ec993b5c02429fdba124f0e07fb77704fb0bc25 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.93 1991/03/06 23:03:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.94 1991/03/07 04:31:16 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -1934,9 +1934,12 @@ MIT in each case. |#
          start-pipe-subprocess
          start-pty-subprocess
          start-subprocess-in-background
+         subprocess-arguments
          subprocess-continue-background
          subprocess-continue-foreground
          subprocess-delete
+         subprocess-filename
+         subprocess-get
          subprocess-id
          subprocess-input-channel
          subprocess-input-port
@@ -1947,7 +1950,9 @@ MIT in each case. |#
          subprocess-list
          subprocess-output-channel
          subprocess-output-port
+         subprocess-properties
          subprocess-pty-master
+         subprocess-put!
          subprocess-quit
          subprocess-signal
          subprocess-status