stomp-connect ( -- frame )


Vocabulary
stomp

Inputs
None

Outputs
framean object


Definition
USING: kernel namespaces ;

IN: stomp

: stomp-connect ( -- frame )
"CONNECT" <frame> stomp-version get "accept-version"
set-header stomp-username get [ "login" set-header ] when*
stomp-password get [ "passcode" set-header ] when*
stomp-heartbeat get "0,0" or "heart-beat" set-header ;