read-bytestring ( info -- byte-array )

Vocabulary

cbor.private

Inputs

info

an object

Outputs

byte-array

an object

Definition

USING: cbor io kernel sequences ;

IN: cbor.private

: read-bytestring ( info -- byte-array )
    read-unsigned dup +cbor-indefinite+ = [
        drop [ read-cbor dup +cbor-break+ = not ] [ ] produce
        nip concat
    ] [ read [ B{ } ] unless* ] if ;