gsm: Add all reject causes for the GSM48RejectCause

One range is not added, as it is not clear when to use it.

1 files changed, 27 insertions, 0 deletions

diff --git a/GSM48.st b/GSM48.st
index 7f46bed..9b578e5 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -709,6 +709,33 @@ GSM48SimpleData subclass: GSM48RejectCause [
     <gsmName: 'cause'>
     <gsmValueLength: 1>
 
+
+    GSM48RejectCause class [
+        causeImsiUnknownInHlr           [ <category: 'cause'> ^ 2r00000010 ]
+        causeIllegalMS                  [ <category: 'cause'> ^ 2r00000011 ]
+        causeImsiUnknownInVLR           [ <category: 'cause'> ^ 2r00000100 ]
+        causeIMEINotAccepted            [ <category: 'cause'> ^ 2r00000101 ]
+        causeIllegalME                  [ <category: 'cause'> ^ 2r00000110 ]
+        causePLMNNotAllowed             [ <category: 'cause'> ^ 2r00001011 ]
+        causeLocationAreaNotAllowed     [ <category: 'cause'> ^ 2r00001100 ]
+        causeRoamingNotAllowedInLAC     [ <category: 'cause'> ^ 2r00001101 ]
+        cuaseNetworkFailure             [ <category: 'cause'> ^ 2r00010001 ]
+        causeCongestion                 [ <category: 'cause'> ^ 2r00010110 ]
+        cuaseServiceOptionNotSupported  [ <category: 'cause'> ^ 2r00100000 ]
+        causeRequestedServiceOptionNotSubscribed    [ <category: 'cause'> ^ 2r00100001 ]
+        causeServiceOptionTemporarilyOutOfOrder [ <category: 'cause'> ^ 2r00100010 ]
+        causeCallCannotBeIdentified     [ <category: 'cause'> ^ 2r00100110 ]
+        "TODO: Range of causes for re-try 2r00110000 to 2r00111111"
+        causeSemanticallyIncorrectMessage                  [ <category: 'cause'> ^ 2r01011111 ]
+        causeInvalidMandatoryInformation                   [ <category: 'cause'> ^ 2r01100000 ]
+        causeMessageTypeNonExistentOrNotImplemented        [ <category: 'cause'> ^ 2r01100001 ]
+        causeMessageTypeNotCompatibleWithProtocolState     [ <category: 'cause'> ^ 2r01100010 ]
+        causeInformationElementNonExistentOrNotImplemented [ <category: 'cause'> ^ 2r01100011 ]
+        causeConditionalIEError         [ <category: 'cause'> ^ 2r01100100 ]
+        causeMessageNotCompatibleWithProtocolState  [ <category: 'cause'> ^ 2r01100101 ]
+        causeProtocolErrorUnspecified   [ <category: 'cause'> ^ 2r01101111 ]
+    ]
+
     GSM48RejectCause class >> createDefault [
         <category: 'creation'>
         ^ self new