read-data-blocks ( header -- )

Vocabulary

tar

Inputs

header

an object

Outputs

None

Definition

USING: accessors io kernel math sequences ;

IN: tar

: read-data-blocks ( header -- )
    dup size>> 0 > [
        block-size read [
            over size>> dup block-size <=
            [ head write drop ] [
                drop write [ block-size - ] change-size
                read-data-blocks
            ] if
        ] [ drop ] if*
    ] [ drop ] if ; inline recursive