osmo-st-gsm/Messages.st

"Messages for GSM04.08"

Object subclass: IEMessage [
    | ies type |

    IEMessage class >> initWith: type [
        ^ (self new)
            type: type;
            yourself
    ]

    type: aType [
        type := aType.
    ]

    addIe: aIe [
        self ies add: aIe.
    ]

    ies [
        ies isNil ifTrue: [
            ies := OrderedCollection new.
        ].

        ^ ies
    ]

    storeOn: aMsg [
        aMsg putByte: type.

        self ies do: [:each | each storeOn: aMsg ]
    ]
]


Object subclass: LocationUpdatingRequest [
    | imsi tmsi |

    LocationUpdatingRequest class >> initWithIMSI: aImsi [
        ^ (self new)
            imsi: aImsi;
            yourself
    ]

    LocationUpdatingRequest class >> initWithTMSI: aTmsi [
        ^ (self new)
            tmsi: aTmsi;
            yourself
    ]

    toMessage [
    ]
]

Object subclass: LocationUpdatingAccept [
    toMessage [
    ]
]

Object subclass: LocationUpdatingReject [
    toMessage [
    ]
]

Object subclass: IdentityRequest [
    toMessage [
    ]
]

Object subclass: IdentityResponse [
    toMessage [
    ]
]