parse-tar-header ( seq -- header )

Vocabulary

tar

Inputs

seq

an object

Outputs

header

an object

Definition

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

IN: tar

: parse-tar-header ( seq -- header )
    dup checksum-header dup zero-checksum =
    [ 2drop tar-header new 0 >>size 0 >>checksum ] [
        [
            binary [ read-tar-header ] with-byte-reader
            dup checksum>>
        ] dip = [ checksum-error ] unless
    ] if ;