increment-file-name ( path -- path' )

Vocabulary

http.download.private

Inputs

path

an object

Outputs

path'

an object

Definition

USING: io.pathnames kernel math math.parser sequences splitting
;

IN: http.download.private

: increment-file-name ( path -- path' )
    [
        file-stem " " split1-last
        [ ?parenthesis-number ]
        [ 1 + number>string "(" ")" surround " " glue ]
        [ "(1)" append " " glue ] ?if
    ] [ file-extension ] bi "." glue ;