decode-content-codings ( response bytes -- decoded )

Vocabulary

http.client.private

Inputs

response	an object
bytes	an object

Outputs

decoded

an object

Definition

USING: ascii combinators compression.inflate http http.client
kernel sequences splitting ;

IN: http.client.private

:: decode-content-codings ( response bytes -- decoded )
    bytes response "content-encoding" header [
        ",;" split reverse [
            [ blank? ] trim >lower {
                { "" [ ] }
                { "identity" [ ] }
                { "gzip" [ gzip-inflate ] }
                { "x-gzip" [ gzip-inflate ] }
                [ unsupported-content-encoding ]
            } case
        ] each
    ] when* ;