write-header ( binhex -- )

Vocabulary

binhex.private

Inputs

binhex

an object

Outputs

None

Definition

USING: accessors combinators endian io io.encodings.binary
io.encodings.string io.encodings.utf8 io.streams.byte-array
kernel sequences ;

IN: binhex.private

: write-header ( binhex -- )
    binary [
        {
            [
                name>> utf8 encode
                [ length write1 ] [ write ] bi 0 write1
            ]
            [ type>> 4 >be write ]
            [ auth>> 4 >be write ]
            [ flags>> 2 >be write ]
            [ data>> length 4 >be write ]
            [ resource>> length 4 >be write ]
        } cleave
    ] with-byte-writer write-with-crc ;