parse-tar ( -- )

Vocabulary

tar

Inputs

None

Outputs

None

Definition

USING: accessors combinators io kernel sequences ;

IN: tar

: parse-tar ( -- )
    block-size read dup length block-size = [
        parse-tar-header dup typeflag>> {
            { 0 [ typeflag-0 ] }
            { 48 [ typeflag-0 ] }
            { 50 [ typeflag-2 ] }
            { 53 [ typeflag-5 ] }
            { 103 [ typeflag-g ] }
            { 76 [ typeflag-L ] }
            { f [ drop ] }
        } case parse-tar
    ] [ drop ] if ;