unique-files ( prefix suffixes -- paths )

Vocabulary

io.files.unique

Inputs

prefix	an object
suffixes	an object

Outputs

paths

an object

Definition

USING: continuations io.directories io.files.unique.private
io.pathnames kernel namespaces sequences ;

IN: io.files.unique

: unique-files ( prefix suffixes -- paths )
    '[
        V{ } clone [
            _ _ random-file-name
            '[ _ glue dup touch-unique-file suffix! ] with each
            { } like
        ] [ [ [ delete-file ] each ] [ rethrow ] bi* ] recover
    ] unique-retries get retry [ absolute-path ] map ;