Basic:
"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.
Stream style:
"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)"
Hooks:
Renaming:
ShapeChangers:
|
|
