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 [
        [ [ drop 2dup ] ] dip
        [ decode-uri-hex [ 3 + ] dip ] curry compose
    ] dip [
        [ [ 2dup nth-unsafe dup 37 = ] ] dip
        [ [ utf8% [ 1 + ] dip ] if ] curry compose
    ] dip [ decode-uri-iter ] curry compose
    [ [ 2dup length >= [ 2drop ] ] ] dip [ if ] curry compose
    call ; inline recursive