zim-dump ( zim args -- )

Vocabulary

zim.tools

Inputs

zim	an object
args	an object

Outputs

None

Definition

USING: accessors io.directories io.encodings.binary io.files
kernel sequences ;

IN: zim.tools

: zim-dump ( zim args -- )
    ?first "." or dup make-directories
    [ [ first2 swap url>> binary set-file-contents ] each ]
    with-directory ;