From 928d5ea6fa1d5ebdd20790effb17c0a4d29592e9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 13 Sep 1995 19:58:39 +0000 Subject: [PATCH] Change SUBPROCESS-I/O-PORT to allow setting of input and output line translation independently. --- v7/src/runtime/process.scm | 24 +++++++++++++++--------- 1 file changed, 15 insertions(+), 9 deletions(-) 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)))))) -- 2.25.1