On Thu, 10 Mar 2022, Zelphir Kaltstahl <zelphirkaltst...@posteo.de> wrote:

> I have the following questions:
>
> (1) Is the read-from-write-to procedure useful at all, or is there a better 
> way 
> to get all stuff from an input port and output it to an output port, avoiding 
> possibly large string values?

On Linux, there's slice(2) for pipes that does exactly that.

Otherwise, I think this version is a better fit

(define splice
  (lambda (in-port out-port)
    "Read from an IN-PORT and write to OUT-PORT"
    (let loop ([bv (get-bytevector-some in-port)])
      (unless (eof-object? bv)
        (put-bytevector out-port bv)
        (loop (get-bytevector-some in-port))))))

you should not close OUT-PORT.  This break the REPL in my case if using
the `current-output-port`.

-- 
Olivier Dion
Polymtl

Reply via email to