read-TXT-strings ( byte-array -- strings )

Vocabulary

dns

Inputs

byte-array

an object

Outputs

strings

an object

Definition

USING: io io.encodings.binary io.streams.byte-array kernel make
;

IN: dns

: read-TXT-strings ( byte-array -- strings )
    [
        binary <byte-reader>
        [ [ read1 [ read , t ] [ f ] if* ] loop ]
        with-input-stream
    ] { } make ;