escape-header ( key value -- key' value' )

Vocabulary

stomp

Inputs

key	an object
value	an object

Outputs

key'	an object
value'	an object

Definition

USING: combinators namespaces splitting ;

IN: stomp

: escape-header ( key value -- key' value' )
    stomp-version get {
        { "1.0" [ ] }
        {
            "1.1"
            [
                "\\" "\\\\" replace "\n" "\\n" replace
                ":" "\\c" replace
            ]
        }
        {
            "1.2"
            [
                "\\" "\\\\" replace "\n" "\\n" replace
                ":" "\\c" replace "\r" "\\r" replace
            ]
        }
    } case ;