misc: Add proper categories to all classes
In preparation to the pharo port add proper categories.master
parent
6502e32773
commit
47cbd9c5b1
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPBindTransmitterBody subclass: SMPPBindTransceiver [
|
||||
<category: 'SMPP-Codec'>
|
||||
|
||||
SMPPBindTransceiver class >> messageType [
|
||||
^self bindTransceiver
|
||||
]
|
||||
|
|
|
@ -18,6 +18,7 @@
|
|||
|
||||
SMPPBodyBase subclass: SMPPBindTransmitterBody [
|
||||
| system_id password system_type version addr_ton addr_npi addr_range |
|
||||
<category: 'SMPP-Codec'>
|
||||
|
||||
SMPPBindTransmitterBody class >> messageType [
|
||||
^self bindTransmitter
|
||||
|
|
|
@ -17,6 +17,7 @@
|
|||
"
|
||||
|
||||
Osmo.TLVParserBase subclass: SMPPBodyBase [
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I represent a specific "BODY" of a Payload. My
|
||||
sub-classes will provide the specific bodies.'>
|
||||
|
||||
|
|
|
@ -17,6 +17,7 @@
|
|||
"
|
||||
|
||||
SMPPBodyBase subclass: SMPPEnquireLink [
|
||||
<category: 'SMPP-Codec'>
|
||||
|
||||
SMPPEnquireLink class >> messageType [
|
||||
^self enquireLink
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPBodyBase subclass: SMPPGenericNack [
|
||||
<category: 'SMPP-Codec'>
|
||||
|
||||
SMPPGenericNack class >> messageType [
|
||||
^self genericNack
|
||||
]
|
||||
|
|
|
@ -19,6 +19,8 @@
|
|||
Object subclass: SMPPMessage [
|
||||
| header body |
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
|
||||
SMPPMessage class >> readFrom: aStream [
|
||||
| len data stream header body |
|
||||
len := ((aStream next: 4) asByteArray uintAt: 1) swap32.
|
||||
|
|
|
@ -18,7 +18,7 @@
|
|||
|
||||
Object subclass: SMPPPDUHeader [
|
||||
| commandId commandStatus sequenceNumber |
|
||||
<category: 'OsmoSMPP-Codec'>
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I represent a SMPPv3.4 SMPP PDU Header. E.g.
|
||||
3.2 of the SMPPv3.4 specification. The four byte lengths
|
||||
need to be written/read by someone else.'>
|
||||
|
|
|
@ -32,6 +32,8 @@ SMPPBodyBase subclass: SMPPSubmitSM [
|
|||
alert_on_msg_delivery language_indicator its_reply_type
|
||||
its_session_info ussd_service_op |
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
|
||||
SMPPSubmitSM class >> messageType [
|
||||
^self submitSM
|
||||
]
|
||||
|
|
|
@ -17,6 +17,9 @@
|
|||
"
|
||||
|
||||
SMPPBodyBase subclass: SMPPUnbind [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
|
||||
SMPPUnbind class >> messageType [
|
||||
^self unbind
|
||||
]
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPOctetString subclass: SMPPAddress [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present an 5.2.8 attribute. It should be a IPv4
|
||||
address. IPv6 is not supported'>
|
||||
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPAddressNumberingPlanIndicator [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present 5.2.6 of SMPPv3.4'>
|
||||
|
||||
SMPPAddressNumberingPlanIndicator class [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPOctetString subclass: SMPPAddressRange [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present 5.2.7 of SMPPv3.4'>
|
||||
|
||||
SMPPAddressRange class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPAddressTypeOfNumber [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present 5.2.5 of SMPPv3.4'>
|
||||
|
||||
SMPPAddressTypeOfNumber class [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPDataCoding [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I represent a 5.2.19'>
|
||||
|
||||
SMPPDataCoding class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPDefaultMessageId [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present 5.2.20'>
|
||||
|
||||
SMPPDefaultMessageId class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPESMClass [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present a 5.2.12'>
|
||||
|
||||
SMPPESMClass class [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
Object subclass: SMPPInteger [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I help with the various kind of numbers'>
|
||||
|
||||
SMPPInteger class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPInterfaceVersion [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present 5.2.4 of SMPPv3.4'>
|
||||
|
||||
SMPPInterfaceVersion class >> attrVersion34 [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
Object subclass: SMPPOctetString [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I represent a variable string as used in SMPP'>
|
||||
|
||||
SMPPOctetString class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPOctetString subclass: SMPPPassword [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I represent 5.2.2 of SMPPv3.4'>
|
||||
|
||||
SMPPPassword class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPPriorityFlag [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present 5.2.14 of SMPPv3.4. The range is 0 to 3 but
|
||||
the meaning depends on the type of message.'>
|
||||
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPProtocolId [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present a 5.2.13. But it refers to other things'>
|
||||
|
||||
SMPPProtocolId class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPRegisteredDelivery [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present a 5.2.17'>
|
||||
|
||||
SMPPRegisteredDelivery class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPInteger subclass: SMPPReplaceIfPresentFlag [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present a 5.2.18 flag'>
|
||||
|
||||
SMPPReplaceIfPresentFlag class [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPOctetString subclass: SMPPScheduleDeliveryTime [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present a 5.2.15 field and can be NULL'>
|
||||
|
||||
SMPPScheduleDeliveryTime class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPOctetString subclass: SMPPServiceType [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present a ServiceType as of 5.2.11'>
|
||||
|
||||
SMPPServiceType class [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
Object subclass: SMPPShortMessage [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I represent the sm_length and short_message'>
|
||||
|
||||
SMPPShortMessage class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPOctetString subclass: SMPPSystemId [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present 5.2.1 of SMPPv3.4'>
|
||||
|
||||
SMPPSystemId class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPOctetString subclass: SMPPSystemType [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present 5.2.3 of SMPPv3.4'>
|
||||
|
||||
SMPPSystemType class >> tlvDescription [
|
||||
|
|
|
@ -17,6 +17,8 @@
|
|||
"
|
||||
|
||||
SMPPOctetString subclass: SMPPValidityPeriod [
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I represent a 5.2.16 validity period. I can be
|
||||
an empty string or contain 16 characters'>
|
||||
|
||||
|
|
|
@ -18,6 +18,8 @@
|
|||
|
||||
Object subclass: SMPPValueHolder [
|
||||
| tag value |
|
||||
|
||||
<category: 'SMPP-Codec'>
|
||||
<comment: 'I re-present a general TLV kind of structure'>
|
||||
|
||||
SMPPValueHolder class >> for: aString tag: aTag [
|
||||
|
|
|
@ -18,12 +18,14 @@
|
|||
|
||||
SMPPEnquireLink extend [
|
||||
connectionDispatchOn: aConnection with: aMessage [
|
||||
<category: '*SMPP-Connection'>
|
||||
aConnection respondToEnquire: aMessage
|
||||
]
|
||||
]
|
||||
|
||||
SMPPBindTransceiverResponse extend [
|
||||
connectionDispatchOn: aConnection with: aMessage [
|
||||
<category: '*SMPP-Connection'>
|
||||
aConnection receviedResponse: aMessage
|
||||
]
|
||||
]
|
||||
|
|
|
@ -17,7 +17,7 @@
|
|||
"
|
||||
|
||||
TestCase subclass: SMPPMessageTest [
|
||||
<category: 'OsmoSMPP-Test'>
|
||||
<category: 'SMPP-Codec-Test'>
|
||||
<comment: 'I test reading and writing most of the SMPP header and body'>
|
||||
|
||||
examplePdu [
|
||||
|
|
|
@ -17,7 +17,7 @@
|
|||
"
|
||||
|
||||
TestCase subclass: SMPPPDUHeaderTest [
|
||||
<category: 'OsmoSMPP-Test'>
|
||||
<category: 'SMPP-Codec-Test'>
|
||||
<comment: 'I test reading and writing most of the SMPP header.'>
|
||||
|
||||
testParse [
|
||||
|
|
Reference in New Issue