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

Vocabulary

io.files.trash.unix.private

Inputs

path	an object
counter	an object

Outputs

path'

an object

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 ;