[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Reading bytes from a TCP port

From: kooda
Subject: Re: Reading bytes from a TCP port
Date: Thu, 28 Nov 2019 13:54:36 +0100
User-agent: OtterMail

Fredrik Appelberg <address@hidden> wrote:
> Hello all, new chicken schemer here.
> I'm writing an AMPQ client for fun (as One does) and can't figure out
> the correct way to read from a TCP port. I want to block until input is
> available, and then read all buffered data into a byte buffer (I'm using
> bitstring, but it can be anything really). This is what I've come up with:
> (let* ((buf (->bitstring ""))
>        (first-byte (read-string 1 in)))
>   (if (eq? #!eof first-byte)
>       ... handle eof
>       (begin 
>         (bitstring-append! buf (string->bitstring (string-append first-byte 
> (read-buffered in))))
>         ... do something with buf))
> It works okay, but it seems a bit clunky to me. Is there a more
> idiomatic way of reading a byte buffer from a port?
> Cheers,
> -- Fredrik

The read-u8vector procedure from SRFI-4 might be what you want:

reply via email to

[Prev in Thread] Current Thread [Next in Thread]