Handbook
Glossary
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
[
[
unclip-slice
]
]
dip
[
at*
t
assert=
swap
[
suffix!
]
[
"\\"
split1
[
append!
]
dip
]
bi*
]
curry
compose
[
[
[
>sbuf
]
dip
]
]
dip
[
until-empty
""
like
]
curry
compose
unless-empty
]
when*
;