From cb5462fb5e1e5c864d5159751858a4cf76345f4b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 Mar 1991 04:31:16 +0000
Subject: [PATCH] Retain `filename' and `arguments' fields of process in
 subprocess structure, and provide accessors to get them.  Add a properties
 list to the subprocess structure.

---
 v7/src/runtime/process.scm | 13 +++++++++++--
 v7/src/runtime/runtime.pkg |  7 ++++++-
 v8/src/runtime/runtime.pkg |  7 ++++++-
 3 files changed, 23 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/process.scm b/v7/src/runtime/process.scm
index 4858ea2e3..9a08847a4 100644
--- 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 b5e525b1d..3195987ba 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.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 3cb0f3948..7ec993b5c 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.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
-- 
2.25.1