SCCP: Handle CMService Accept and Cipher Mode Command as accepted

GSM48.st

@@ -873,6 +873,7 @@ GSM48MSG subclass: GSM48MMMessage [
     GSM48MMMessage class >> msgIdReq [ ^ 16r18 ]
     GSM48MMMessage class >> msgAuReq [ ^ 16r12 ]
     GSM48MMMessage class >> msgAuRes [ ^ 16r14 ]
+    GSM48MMMessage class >> msgCMAccept [ ^ 16r21 ]
     GSM48MMMessage class >> msgCMReject [ ^ 16r22 ]
     GSM48MMMessage class >> msgCMReq [ ^ 16r24 ]
     GSM48MMMessage class >> msgIMSIDetach [ ^ 16r01 ]

GSMDriver.st

@@ -91,6 +91,8 @@ classes.'>
             resp := IEMessage initWith: GSM0808Helper msgCipherModeCmpl.
             resp addIe: (GSM0808ChosenEncrIE initWith: 1).
             sccp nextPutData: (BSSAPManagement initWith: resp).
+
+            self dispatchCMAccept.
             ^ true
         ].
 
@@ -130,6 +132,12 @@ classes.'>
             ^ true
         ].
 
+        aMsg class messageType = GSM48MMMessage msgCMAccept ifTrue: [
+            self dispatchCMAccept.
+            ^ true
+        ].
+
+
         sapis at: aSapi ifPresent: [:handler |
             handler handleData: aMsg sapi: aSapi.
         ].
@@ -149,6 +157,12 @@ classes.'>
         ].
         aMsg inspect.
     ]
+
+    dispatchCMAccept [
+        sapis do: [:each |
+            each serviceAccepted.
+        ].
+    ]
 ]
 
 Object subclass: ProcedureBase [
@@ -185,6 +199,10 @@ Object subclass: ProcedureBase [
     success: aSuc [
         success := aSuc.
     ]
+
+    serviceAccepted [
+        "TO BE implemented"
+    ]
 ]