untar ( path -- )

Vocabulary

tar

Inputs

path

an object

Outputs

None

Definition

USING: io.backend io.directories io.encodings.binary io.files
io.pathnames kernel namespaces ;

IN: tar

: untar ( path -- )
    normalize-path dup parent-directory [
        V{ } clone to-link
        [ binary [ parse-tar ] with-file-reader make-links ]
        with-variable
    ] with-directory ;