unescape-header ( key value -- key' value' )

Vocabulary

stomp

Inputs

key	an object
value	an object

Outputs

key'	an object
value'	an object

Definition

USING: assocs combinators kernel namespaces sbufs sequences
sequences.extras splitting ;

IN: stomp

: unescape-header ( key value -- key' value' )
    stomp-version get {
        { "1.0" [ f ] }
        { "1.1" [ H{ { 99 58 } { 92 92 } { 110 10 } } ] }
        {
            "1.2"
            [ H{ { 114 13 } { 99 58 } { 92 92 } { 110 10 } } ]
        }
    } case [
        [ "\\" split1 ] dip '[
            [ >sbuf ] dip [
                unclip-slice _ at* t assert= swap
                [ suffix! ] [ "\\" split1 [ append! ] dip ] bi*
            ] until-empty "" like
        ] unless-empty
    ] when* ;