osmo-st-gsm/GSM411.st

"
 (C) 2012 by Holger Hans Peter Freyther
 All Rights Reserved

 This program is free software: you can redistribute it and/or modify
 it under the terms of the GNU Affero General Public License as
 published by the Free Software Foundation, either version 3 of the
 License, or (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU Affero General Public License for more details.

 You should have received a copy of the GNU Affero General Public License
 along with this program.  If not, see <http://www.gnu.org/licenses/>.
"
"Message for GSM04.11"


GSM48DataHolder subclass: GSM411CpUserData [
    <category: 'OsmoGSM-SMS-Types'>
    <comment: '8.1.4.1'>
    <gsmElementId: 2r01>
    <gsmMinValueSize: 0 max: 248>
    <gsmName: 'userData'>
]

GSM48SimpleTag subclass: GSM411CpCause [
    <category: 'OsmoGSM-SMS-Types'>
    <comment: '8.1.4.2'>
    <gsmElementId: 2r10>
    <gsmName: 'cause'>

    GSM411CpCause class [
        causeNetworkFailure                 [ <category: 'cause'> ^ 17 ]
        causeCongestion                     [ <category: 'cause'> ^ 22 ]
        causeInvalidTransaction             [ <category: 'cause'> ^ 81 ]
        causeSemanticallyIncorrectMessage   [ <category: 'cause'> ^ 95 ]
        causeInvalidatMandatoryInformation  [ <category: 'cause'> ^ 96 ]
        causeMessageTypeNonExistent         [ <category: 'cause'> ^ 97 ]
        causeMessageNotCompatible           [ <category: 'cause'> ^ 98 ]
        causeInformationElementNonExistent  [ <category: 'cause'> ^ 99 ]
        causeProtocolError                  [ <category: 'cause'> ^ 111 ]
    ]
]

GSM48SimpleTag subclass: GSM411RpMessageType [
    <category: 'OsmoGSM-SMS-Types'>
    <comment: '8.2.2'>
]

GSM48FixedSizeIE subclass: GSM411RpMessageReference [
    <category: 'OsmoGSM-SMS-Types'>
    <comment: '8.2.3'>
    <gsmValueLength: 1>
]

GSM48DataHolder subclass: GSM411RpOriginatorAddress [
    <category: 'OsmoGSM-SMS-Types'>
    <comment: '8.2.5.1'>
]

GSM48DataHolder subclass: GSM411RpDestinationAddress [
    <category: 'OsmoGSM-SMS-Types'>
    <comment: '8.2.5.2'>
]

GSM48DataHolder subclass: GSM411RpUserData [
    <category: 'OsmoGSM-SMS-Types'>
    <comment: '8.2.5.3'>
    <gsmElementId: 2r1000001>
]

GSM48DataHolder subclass: GSM411RpCause [
    <category: 'OsmoGSM-SMS-Types'>
    <comment: '8.2.5.4'>
    <gsmElementId: 2r1000010>

    GSM411RpCause class [
        "MO Causes"
        causeUnassignedNumber                   [ <category: 'cause'> ^ 1 ]
        causeOperatorDeterminedBar              [ <category: 'cause-mo'> ^ 8 ]
        causeCallBarred                         [ <category: 'cause-mo'> ^ 10 ]
        causeReserved                           [ <category: 'cause-mo'> ^ 11 ]
        causeShortMessageTransferRejected       [ <category: 'cause-mo'> ^ 21 ]
        causeDestinationOutOfOrder              [ <category: 'cause-mo'> ^ 27 ]
        causeUnidentifiedSubscriber             [ <category: 'cause-mo'> ^ 28 ]
        causeFacilityRejected                   [ <category: 'cause-mo'> ^ 29 ]
        causeUnknownSubscriber                  [ <category: 'cause-mo'> ^ 30 ]
        causeNetworkOutOfOrder                  [ <category: 'cause-mo'> ^ 38 ]
        causeTemporaryFailure                   [ <category: 'cause-mo'> ^ 41 ]
        causeCongestion                         [ <category: 'cause-mo'> ^ 42 ]
        causeResourcesUnavilable                [ <category: 'cause-mo'> ^ 47 ]
        causeRequestedFacilityNotSubscribed     [ <category: 'cause-mo'> ^ 50 ]
        causeRequestedFacilityNotImplemented    [ <category: 'cause-mo'> ^ 69 ]
        causeInterworkingUnspecified            [ <category: 'cause-mo'> ^ 127 ]

        "MT causes"
        causeMemoryCapacityExceeded             [ <category: 'cause-mt'> ^ 22 ]

        "Common code"
        causeInvalidShortMessageTransferReference   [ <category: 'cause'> ^ 81 ]
        causeSemanticallyIncorrectMessage       [ <category: 'cause'> ^ 95 ]
        causeInvalidatMandatoryInformation      [ <category: 'cause'> ^ 96 ]
        causeMessageTypeNonExistent             [ <category: 'cause'> ^ 97 ]
        causeMessageNotCompatible               [ <category: 'cause'> ^ 98 ]
        causeInformationElementNonExistent      [ <category: 'cause'> ^ 99 ]
        causeProtocolError                      [ <category: 'cause'> ^ 111 ]

        memoryAvailableMessages [
            "Cause names and type for memory available notification"
            ^ OrderedCollection new
                add: #causeUnknownSubscriber    -> #Permanent;
                add: #causeNetworkOutOfOrder    -> #Temporary;
                add: #causeTemporaryFailure     -> #Temporary;
                add: #causeCongestion           -> #Temporary;
                add: #causeResourcesUnavilable  -> #Temporary;
                add: #causeRequestedFacilityNotImplemented  -> #Permanent;
                add: #causeSemanticallyIncorrectMessage -> #Permanent;
                add: #causeInvalidatMandatoryInformation    -> #Permanent;
                add: #causeMessageTypeNonExistent -> #Permanent;
                add: #causeMessageNotCompatible -> #Permanent;
                add: #causeInformationElementNonExistent -> #Permanent;
                add: #causeProtocolError -> #Permanent;
                add: #causeInterworkingUnspecified -> #Permanent;
                yourself
        ]
    ]
]


GSM48MSG subclass: GSMCpMessage [
    <category: 'OsmoGSM-SMS-Message'>

    GSMCpMessage class >> msgCpData [ <category: 'type'> ^ 2r00000001 ]
    GSMCpMessage class >> msgCpAck  [ <category: 'type'> ^ 2r00000100 ]
    GSMCpMessage class >> msgCpError[ <category: 'type'> ^ 2r00010000 ]

    GSMCpMessage class >> isGSMBaseclass [ <category: 'gsm'> ^ self = GSMCpMessage ]
    GSMCpMessage class >> classType [ <category: 'gsm'> ^ 16r9 ]

    ti [
        ^ ti ifNil: [ 0 ]
    ]
]

GSMCpMessage subclass: GSMCpData [
    <category: 'OsmoGSM-SMS-Message'>
    <comment: '7.2.1'>

    GSMCpData class >> messageType [ <category: 'gsm'> ^ self msgCpData ]
    GSMCpData class >> tlvDescription [
        <category: 'parsing'>
        ^ OrderedCollection new
            add: GSM411CpUserData asTLVDescription;
            yourself
    ]
]

GSMCpMessage subclass: GSMCpAck [
    <category: 'OsmoGSM-SMS-Message'>
    <comment: '7.2.2'>

    GSMCpAck class >> messageType [ <category: 'gsm'> ^ self msgCpAck ]
    GSMCpAck class >> tlvDescription [
        <category: 'parsing'>
        ^ OrderedCollection new
    ]
]

GSMCpMessage subclass: GSMCpError [
    <category: 'OsmoGSM-SMS-Message'>
    <comment: '7.2.3'>

    GSMCpError class >> messageType [ <category: 'gsm'> ^ self msgCpError ]
    GSMCpError class >> tlvDescription [
        <category: 'parsing'>
        ^ OrderedCollection new
            add: GSM411CpCause asTLVDescription;
            yourself
    ]
]

Osmo.TLVParserBase subclass: GSMRpMessage [
    <category: 'OsmoGSM-SMS-Message'>
]

GSMRpMessage subclass: GSMRpData [
    <category: 'OsmoGSM-SMS-Message'>
    <comment: '7.3.1'>
    "Depending on the direction the Originator address is short."
]

GSMRpMessage subclass: GSMRpSmma [
    <category: 'OsmoGSM-SMS-Message'>
    <comment: '7.3.2'>
]

GSMRpMessage subclass: GSMRpAck [
    <category: 'OsmoGSM-SMS-Message'>
    <comment: '7.3.3'>
]


GSMRpMessage subclass: GSMRpError [
    <category: 'OsmoGSM-SMS-Message'>
    <comment: '7.3.4'>
]

Eval [
    GSMCpData initialize.
    GSMCpAck initialize.
    GSMCpError initialize.
]