gsm0808: Be able to parse a ciphering mode complete with layer3 contents

1 files changed, 28 insertions, 0 deletions

diff --git a/BSSMAP.st b/BSSMAP.st
index 0e9a8b3..00d9c86 100644
--- a/BSSMAP.st
+++ b/BSSMAP.st
@@ -797,3 +797,31 @@ GSM0808IE subclass: GSM0808Classmark3IE [
         aMsg putByteArray: cm.
     ]
 ]
+
+GSM0808IE subclass: GSM0808Layer3MessageContents [
+    | layer3Message |
+    <category: 'OsmoGSM'>
+
+    GSM0808Layer3MessageContents class >> elementId [^32]
+    GSM0808Layer3MessageContents class >> initWith: aByteArray [
+        ^self new
+            layer3Message: aByteArray;
+            yourself
+    ]
+
+    GSM0808Layer3MessageContents class >> parseFrom: aStream [
+        | size |
+        size := aStream next.
+        ^self initWith: (aStream next: size)
+    ]
+
+    layer3Message: aByteArray [
+        layer3Message := aByteArray
+    ]
+
+    writeOnDirect: aMsg [
+        aMsg
+            putByte: layer3Message size;
+            putByteArray: layer3Message.
+    ]
+]