gsm: Be able to parse a GSM CC Progress message

1 files changed, 17 insertions, 0 deletions

diff --git a/GSM48.st b/GSM48.st
index feafb45..b0163dc 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -2847,6 +2847,22 @@ GSM48CCMessage subclass: GSM48CCEmergencySetup [
     ]
 ]
 
+GSM48CCMessage subclass: GSM48CCProgress [
+    <category: 'OsmoGSM'>
+
+    GSM48CCProgress class >> messageType [ ^self msgProgress ]
+    GSM48CCProgress class >> tlvDescription [
+        <category: 'parsing'>
+        ^OrderedCollection new
+            add: GSMProgress asTLVDescription;
+            add: (GSMUserUser asTLVDescription
+                    beOptional;
+                    minSize: 1 maxSize: 129;
+                    yourself);
+            yourself
+    ]
+]
+
 GSM48RRMessage subclass: GSM48RRAssignmentComplete [
     <category: 'OsmoGSM'>
 
@@ -3177,6 +3193,7 @@ Eval [
     GSM48CCReleaseCompl initialize.
     GSM48CCStatus initialize.
     GSM48CCEmergencySetup initialize.
+    GSM48CCProgress initialize.
 
     GSM48RRAssignmentComplete initialize.
     GSM48RRHandoverCommand initialize.