gsm: Add a selector for the TMSI to the MIdentity

2012-11-24 10:35:26 +01:00 · 2012-11-24 10:35:26 +01:00 · 8f1ee67556
parent 2c60c8b62a
commit 8f1ee67556
1 changed files with 7 additions and 0 deletions
--- 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