read-binhex ( -- binhex )

Vocabulary

binhex

Inputs

None

Outputs

binhex

an object

Definition

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

IN: binhex

: read-binhex ( -- binhex )
    "\r\n" read-until drop "(This file must be converted " head?
    t assert= skip-return 58 assert= ":" read-until 58 assert=
    hqx-decode rle90-decode binary
    [ read-header [ read check-crc ] bi@ binhex boa ]
    with-byte-reader ;