How to use StOMP

"Serialization"session := Dictionary new add: #id -> 123456; add: #expires -> 180 seconds; yourself. bytes := session toStomp.

"Deserialization"bytes := #[130 146 161 5 162 105 100 206 0 1 226 64 146 161 5 167 101 120 112 105 114 101 115 147 161 2 241 207 0 0 0 41 232 214 8 0]. Object fromStomp: bytes.

"Serialization" writer := StompWriter on: (WriteStream on: ByteArray new). writer nextPut: 'Hello'; nextPut: 'World'. writer nextPutAll: (Array with: Date today with: Time now). bytes := writer contents.

"Deserialization" bytes := #[146 161 4 165 72 101 108 108 111 146 161 4 165 87 111 114 108 100 147 161 2 230 206 207 194 146 128 147 161 2 242 205 241 110]. reader := StompReader on: (ReadStream on: bytes). objects := OrderedCollection new. [reader atEnd] whileFalse: [  objects add: reader next ]. ^ objects " -> an OrderedCollection('Hello' 'World' 16 June 2011 5:10:06 pm)"

Stream style: