BSSMAP: Parse the Clear Command message.

1 files changed, 35 insertions, 0 deletions

diff --git a/BSSMAP.st b/BSSMAP.st
index a18d05d..4b78034 100644
--- a/BSSMAP.st
+++ b/BSSMAP.st
@@ -210,3 +210,38 @@ GSM0808IE subclass: GSMLayer3Info [
         aMsg putByteArray: dat.
     ]
 ]
+
+GSM0808IE subclass: GSMCauseIE [
+    | cause |
+
+    <category: 'osmo-message'>
+    <comment: 'Generate a CauseIE'>
+    "TODO: Only simple ones are supported right now"
+
+    GSMCauseIE class >> elementId [ <category: 'spec'> ^ 4 ]
+
+    GSMCauseIE class >> initWith: aCause [
+        ^ self new
+            cause: aCause;
+            yourself
+    ]
+    GSMCauseIE class >> parseFrom: aByteArray [
+        | size |
+        size := aByteArray at: 2.
+        size = 1
+            ifFalse: [
+            ^ Error signal: 'Extended error codes are not supported.'.
+        ].
+
+        ^ GSMCauseIE initWith: (aByteArray at: 3)
+    ]
+
+    cause [ ^ cause ]
+    cause: aCause [ cause := aCause ]
+
+    writeOn: aMsg [
+        aMsg putByte: self class elementId.
+        aMsg putByte: 1.
+        aMsg putByte: cause.
+    ]
+]