increment-file-extension ( 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-extension ( path -- path' )
    dup file-extension
    [ ?tail drop ] [
        [ string>number ] [ 1 + number>string append ]
        [ ".1" 3append ] ?if
    ] bi ;