start-stomp-client ( -- )

Vocabulary

stomp.cli

Inputs

None

Outputs

None

Definition

USING: formatting io io.encodings.utf8 io.sockets kernel
namespaces prettyprint stomp ;

IN: stomp.cli

: start-stomp-client ( -- )
    stomp-host get stomp-port get with-port
    [ dup "Connecting to %s...\n" printf flush ] with-global
    utf8
    [ stomp-mailbox [ [ nl . flush ] with-global ] stomp-loop ]
    spawn-client ;