read-header ( -- name type auth flags #data #resource )

Vocabulary

binhex.private

Inputs

None

Outputs

name	an object
type	an object
auth	an object
flags	an object
#data	an object
#resource	an object

Definition

USING: endian io io.encodings.string io.encodings.utf8 kernel
math sequences ;

IN: binhex.private

:: read-header ( -- name type auth flags #data #resource )
    read1 :> n n 19 + read n prefix
    check-crc :> header 1 dup n + header subseq utf8 decode
    n 2 + dup 4 + header subseq be> n 6 + dup 4 + header subseq
    be> n 10 + dup 2 + header subseq be> n 12 + dup 4 +
    header subseq be> n 16 + dup 4 + header subseq be> ;