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))))))