From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 13 Sep 1995 19:58:39 +0000 (+0000)
Subject: Change SUBPROCESS-I/O-PORT to allow setting of input and output line
X-Git-Tag: 20090517-FFI~5952
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=928d5ea6fa1d5ebdd20790effb17c0a4d29592e9;p=mit-scheme.git

Change SUBPROCESS-I/O-PORT to allow setting of input and output line
translation independently.
---

diff --git a/v7/src/runtime/process.scm b/v7/src/runtime/process.scm
index e84c808d7..61842e42c 100644
--- a/v7/src/runtime/process.scm
+++ b/v7/src/runtime/process.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: process.scm,v 1.16 1995/04/14 19:06:04 cph Exp $
+$Id: process.scm,v 1.17 1995/09/13 19:58:39 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -85,11 +85,16 @@ MIT in each case. |#
 (define (subprocess-remove! process key)
   (1d-table/remove! (subprocess-properties process) key))
 
-(define (subprocess-i/o-port process #!optional line-translation)
-  (let ((line-translation
-	 (if (default-object? line-translation)
-	     'DEFAULT
-	     line-translation)))
+(define (subprocess-i/o-port process #!optional
+			     input-line-translation outnput-line-translation)
+  (let* ((input-line-translation
+	  (if (default-object? input-line-translation)
+	      'DEFAULT
+	      input-line-translation))
+	 (output-line-translation
+	  (if (default-object? output-line-translation)
+	      input-line-translation
+	      output-line-translation)))
     (without-interrupts
      (lambda ()
        (or (subprocess-%i/o-port process)
@@ -100,14 +105,15 @@ MIT in each case. |#
 			(if output-channel
 			    (make-generic-i/o-port input-channel output-channel
 						   512 512
-						   line-translation)
+						   input-line-translation
+						   output-line-translation)
 			    (make-generic-input-port input-channel
 						     512
-						     line-translation))
+						     input-line-translation))
 			(if output-channel
 			    (make-generic-output-port output-channel
 						      512
-						      line-translation)
+						      output-line-translation)
 			    false)))))
 	     (set-subprocess-%i/o-port! process port)
 	     port))))))