isup: Fill out the category encodings from Q.763

These are used by GSM MAP. So specify the encoding here..

1 files changed, 67 insertions, 0 deletions

diff --git a/isup/ISUPExtensions.st b/isup/ISUPExtensions.st
index 8571a01..7c138e7 100644
--- a/isup/ISUPExtensions.st
+++ b/isup/ISUPExtensions.st
@@ -30,3 +30,70 @@ ISUPNatureOfConnectionIndicators class extend [
     ecdiNotIncluded [ <category: 'isup-extension'> ^ 2r0 ]
     ecdiIncluded    [ <category: 'isup-extension'> ^ 2r1 ]
 ]
+
+ISUPCallingPartysCategory class extend [
+    callingSubscriberWithPriority [
+	<category: 'encoding'>
+	^2r1011
+    ]
+
+    categoryUnknown [
+	<category: 'encoding'>
+	^2r0
+    ]
+
+    dataCall [
+	<category: 'encoding'>
+	^2r1100
+    ]
+
+    operatorLanguageEnglish [
+	<category: 'encoding'>
+	^2r10
+    ]
+
+    operatorLanguageFrench [
+	<category: 'encoding'>
+	^2r1
+    ]
+
+    operatorLanguageGerman [
+	<category: 'encoding'>
+	^2r11
+    ]
+
+    operatorLanguageRussian [
+	<category: 'encoding'>
+	^2r100
+    ]
+
+    operatorLanguageSpanish [
+	<category: 'encoding'>
+	^2r101
+    ]
+
+    ordinarySubscriber [
+	<category: 'encoding'>
+	^2r1010
+    ]
+
+    payphone [
+	<category: 'encoding'>
+	^2r1111
+    ]
+
+    reserved [
+	<category: 'encoding'>
+	^2r1001
+    ]
+
+    spare [
+	<category: 'encoding'>
+	^2r1110
+    ]
+
+    testCall [
+	<category: 'encoding'>
+	^2r1101
+    ]
+]