From fd74ca7bd641b3c7d5148c5b8f5822af86bf7f26 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sat, 11 Dec 2010 08:34:26 +0100
Subject: [PATCH] SCCP: Handle CMService Accept  and Cipher Mode Command as
 accepted

---
 GSM48.st     |  1 +
 GSMDriver.st | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/GSM48.st b/GSM48.st
index 6fe1d4a..393c60b 100644
--- a/GSM48.st
+++ b/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 ]
diff --git a/GSMDriver.st b/GSMDriver.st
index ffc0140..3495118 100644
--- a/GSMDriver.st
+++ b/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"
+    ]
 ]