(safe-file-name) ( path counter -- path' ) - Factor Documentation

(safe-file-name) ( path counter -- path' )

Vocabulary
io.files.trash.unix.private

Inputs

path	an object
counter	an object

Outputs

path'

Definition

USING: formatting io.pathnames kernel sequences ;

IN: io.files.trash.unix.private

: (safe-file-name) ( path counter -- path' )
[
[ parent-directory ] [ file-stem ]
[ file-extension dup [ "." prepend ] when ] tri
] dip swap "%s%s %s%s" sprintf ;