unparse-cookie-value ( key value -- )

Vocabulary

http

Inputs

key	an object
value	an object

Outputs

None

Definition

USING: calendar calendar.format combinators kernel make math
math.parser sequences ;

IN: http

: unparse-cookie-value ( key value -- )
    {
        { f [ drop ] }
        { t [ check-cookie-string , ] }
        [
            {
                {
                    [ dup timestamp? ]
                    [ timestamp>cookie-string ]
                }
                {
                    [ dup duration? ]
                    [ duration>seconds number>string ]
                }
                { [ dup real? ] [ number>string ] }
                [ ]
            } cond [ check-cookie-string ] bi@ "=" glue ,
        ]
    } case ;