write-binhex ( binhex -- )

Vocabulary

binhex

Inputs

binhex

an object

Outputs

None

Definition

USING: accessors binhex.private grouping io io.encodings.binary
io.streams.byte-array kernel sequences ;

IN: binhex

: write-binhex ( binhex -- )
    begin write 13 write1 13 write1 58 write1 binary [
        [ write-header ] [ data>> ] [ resource>> ] tri
        [ write-with-crc ] bi@
    ] with-byte-writer rle90-encode hqx-encode 64 group
    [ 13 write1 ] [ write ] interleave 58 write1 13 write1 ;