gsm: Add a selector for the TMSI to the MIdentity

1 files changed, 7 insertions, 0 deletions

diff --git a/GSM48.st b/GSM48.st
index a7bad46..d5502e7 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -597,6 +597,13 @@ GSM48VariableSizedIE subclass: GSM48MIdentity [
         ^ id
     ]
 
+    tmsi [
+        <category: 'query'>
+        self type = GSM48IdentityType typeTMSI
+            ifFalse: [^self error: 'Underlying type is not a TMSI'].
+        ^ id
+    ]
+
     id: anId [
         <category: 'creation'>
         id := anId