parse-cookie ( string -- seq )

Vocabulary

http

Inputs

string

an object

Outputs

seq

an object

Definition

USING: accessors assocs combinators http.parsers kernel make ;

IN: http

: parse-cookie ( string -- seq )
    [
        f swap (parse-cookie) [
            swap {
                { "$version" [ >>version ] }
                { "$domain" [ >>domain ] }
                { "$path" [ >>path ] }
                [ <cookie> dup , nip ]
            } case
        ] assoc-each drop
    ] { } make ;