url-decode-iter ( index str -- )

Vocabulary

urls.encoding.private

Inputs

index	an object
str	an object

Outputs

None

Definition

USING: kernel math sequences sequences.private ;

IN: urls.encoding.private

: url-decode-iter ( index str -- )
    2dup length >=
    [ 2drop ] [
        2dup nth-unsafe dup 37 =
        [ drop 2dup url-decode-hex [ 3 + ] dip ]
        [ utf8% [ 1 + ] dip ] if url-decode-iter
    ] if ; inline recursive