(ns activemq-sample (require io stomp)) (defn+ main () (let* (conn (stomp/connect "localhost" 61613 "" "") f (fn (msg) { (io/format "~p" [msg]) })) (stomp/subscribe "SampleQueue" conn) (stomp/on_message f conn) (stomp/disconnect conn) )
(ns activemq-sample (require io stomp)) (defn+ main () (let* (conn (stomp/connect "localhost" 61613 "" "") f (fn (msg) { (io/format "~p" [msg]) })) (stomp/subscribe "SampleQueue" conn) (stomp/on_message f conn) (stomp/disconnect conn) )