rle90-decode ( bytes -- bytes' )

Vocabulary

binhex.private

Inputs

bytes

an object

Outputs

bytes'

an object

Definition

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

IN: binhex.private

: rle90-decode ( bytes -- bytes' )
    binary [
        [
            0 [
                read1 [
                    dup 144 = [
                        drop read1 dup 0 =
                        ~quotation~ ~quotation~ if
                    ] [ nip dup ~quotation~ when* ] if
                ] keep
            ] loop drop
        ] B{ } make
    ] with-byte-reader ;