decode-uri-iter ( index str quot: ( ch -- ? ) -- )

Vocabulary

urls.encoding.private

Inputs

index	an object
str	an object
quot	a quotation with stack effect ( ch -- ? )

Outputs

None

Definition

USING: kernel math sequences sequences.private ;

IN: urls.encoding.private

: decode-uri-iter ( index str quot: ( ch -- ? ) -- )
    dup '[
        2dup length >=
        [ 2drop ] [
            2dup nth-unsafe dup 37 =
            [ drop 2dup _ decode-uri-hex [ 3 + ] dip ]
            [ utf8% [ 1 + ] dip ] if _ decode-uri-iter
        ] if
    ] call ; inline recursive