From 3dd455a51030b13be35b0f23d9c918ee2f035aa7 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Mon, 7 Jan 2013 12:45:01 +0100
Subject: [PATCH] gsm: Allow to set the location updating type define the
 values

---
 GSM48.st | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/GSM48.st b/GSM48.st
index b91f48c..c97e5f7 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -597,7 +597,9 @@ GSM48DataHolder subclass: GSM48MultiRateConfiguration [
 
 GSM48SimpleData subclass: GSM48KeySeqLuType [
     <category: 'OsmoGSM'>
-    <comment: 'This byte is shared for two things'>
+    <comment: 'This byte is shared for two things. 10.5.3.5 location updating
+    type and the 10.5.1.2 for the ciphering key state. TODO: use the bitfield
+    class for both of them.'>
 
     <gsmName: 'luType'>
     <gsmValueLength: 1>
@@ -610,6 +612,12 @@ GSM48SimpleData subclass: GSM48KeySeqLuType [
     GSM48KeySeqLuType class >> cmTypeVBCall     [ <category: 'cm-types'> ^ 2r1010 ]
     GSM48KeySeqLuType class >> cmTypeLocation   [ <category: 'cm-types'> ^ 2r1011 ]
 
+    GSM48KeySeqLuType class >> luFollowOnRequest    [ <category: 'lu-for'> ^ 2r1000 ]
+    GSM48KeySeqLuType class >> luTypeNormal         [ <category: 'lu-type'> ^ 2r00 ]
+    GSM48KeySeqLuType class >> luTypePeriodic       [ <category: 'lu-type'> ^ 2r01 ]
+    GSM48KeySeqLuType class >> luTypeIMSIAttach     [ <category: 'lu-type'> ^ 2r10 ]
+    GSM48KeySeqLuType class >> luTypeReserved       [ <category: 'lu-type'> ^ 2r11 ]
+
     GSM48KeySeqLuType class >> createDefault [
         <category: 'creation'>
         ^ (self new)
@@ -617,7 +625,16 @@ GSM48SimpleData subclass: GSM48KeySeqLuType [
             yourself
     ]
 
+    luType: aVal [
+        | tmp |
+        <category: 'creation'>
+        tmp := self val clearBit: 2r11.
+        tmp := tmp bitOr: (aVal bitAnd: 2r11).
+        self val: tmp.
+    ]
+
     val [
+        <category: 'direct-access'>
         ^ self data at: 1
     ]