This repository has been archived on 2022-02-17. You can view files and clone it, but cannot push or open issues or pull requests.
2010-11-17 15:56:10 +00:00
|
|
|
"General IE based message handling"
|
2010-11-17 09:26:28 +00:00
|
|
|
Object subclass: IEMessage [
|
2010-11-19 08:02:26 +00:00
|
|
|
<category: 'osmo-messages'>
|
2010-11-17 09:26:28 +00:00
|
|
|
| ies type |
|
|
|
|
|
|
|
|
IEMessage class >> initWith: type [
|
2010-11-19 08:02:26 +00:00
|
|
|
<category: 'creation'>
|
2010-11-17 09:26:28 +00:00
|
|
|
^ (self new)
|
|
|
|
type: type;
|
|
|
|
yourself
|
|
|
|
]
|
|
|
|
|
|
|
|
type: aType [
|
2010-11-19 08:02:26 +00:00
|
|
|
<category: 'creation'>
|
2010-11-17 09:26:28 +00:00
|
|
|
type := aType.
|
|
|
|
]
|
|
|
|
|
|
|
|
addIe: aIe [
|
2010-11-19 08:02:26 +00:00
|
|
|
<category: 'creation'>
|
2010-11-17 09:26:28 +00:00
|
|
|
self ies add: aIe.
|
|
|
|
]
|
|
|
|
|
|
|
|
ies [
|
2010-11-19 08:02:26 +00:00
|
|
|
<category: 'access'>
|
2010-11-17 09:26:28 +00:00
|
|
|
ies isNil ifTrue: [
|
|
|
|
ies := OrderedCollection new.
|
|
|
|
].
|
|
|
|
|
|
|
|
^ ies
|
|
|
|
]
|
|
|
|
|
|
|
|
storeOn: aMsg [
|
2010-11-19 08:02:26 +00:00
|
|
|
<category: 'creation'>
|
2010-11-17 09:26:28 +00:00
|
|
|
aMsg putByte: type.
|
|
|
|
|
|
|
|
self ies do: [:each | each storeOn: aMsg ]
|
|
|
|
]
|
|
|
|
]
|
|
|
|
|
|
|
|
|