decode-uri-hex ( 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 make math math.parser sequences ;

IN: urls.encoding.private

: decode-uri-hex ( index str quot: ( ch -- ? ) -- )
    [ [ [ 1 + dup 2 + ] dip <slice> dup hex> dup ] ] dip
    [ [ nip , ] [ 37 , drop % ] if ] compose compose
    [ [ 2dup length 2 - >= [ 2drop ] ] ] dip [ if ] curry
    compose call ; inline