BSSMAP: Be able to parse a simple Classmark Update

1 files changed, 51 insertions, 0 deletions

diff --git a/BSSMAP.st b/BSSMAP.st
index 3b69b18..cfde905 100644
--- a/BSSMAP.st
+++ b/BSSMAP.st
@@ -561,3 +561,54 @@ GSM0808IE subclass: GSM0808SpeechVerIE [
         aMsg putByte: speech.
     ]
 ]
+
+GSM0808IE subclass: GSM0808Classmark2IE [
+    | cm |
+
+    GSM0808Classmark2IE class >> elementId [ ^ 18 ]
+    GSM0808Classmark2IE class >> initWith: aCM [
+        ^ self new
+            cm: aCM; yourself
+    ]
+
+    GSM0808Classmark2IE class >> parseFrom: aByteArray [
+        | size |
+        size := aByteArray at: 2.
+
+        ^ self initWith: (aByteArray copyFrom: 3 to: 3 + size - 1)
+    ]
+
+    cm: aCM [
+        cm := aCM
+    ]
+
+    writeOnDirect: aMsg [
+        aMsg putByte: cm size.
+        aMsg putByteArray: cm.
+    ]
+]
+
+GSM0808IE subclass: GSM0808Classmark3IE [
+    | cm |
+    GSM0808Classmark3IE class >> elementId [ ^ 19 ]
+    GSM0808Classmark3IE class >> initWith: aCM [
+        ^ self new
+            cm: aCM; yourself
+    ]
+
+    GSM0808Classmark3IE class >> parseFrom: aByteArray [
+        | size |
+        size := aByteArray at: 2.
+
+        ^ self initWith: (aByteArray copyFrom: 3 to: 3 + size - 1)
+    ]
+
+    cm: aCM [
+        cm := aCM.
+    ]
+
+    writeOnDirect: aMsg [
+        aMsg putByte: cm size.
+        aMsg putByteArray: cm.
+    ]
+]