diff options
author | Holger Hans Peter Freyther <zecke@selfish.org> | 2013-01-07 12:45:01 +0100 |
---|---|---|
committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2013-01-07 12:45:01 +0100 |
commit | 3dd455a51030b13be35b0f23d9c918ee2f035aa7 (patch) | |
tree | 56a0d665c71e8b5137a2a68b5cdfc9a27b4d1950 /GSM48.st | |
parent | 0c196f0c55ff1f6cdeb390e11a302a3e44e278b4 (diff) |
gsm: Allow to set the location updating type define the values
Diffstat (limited to 'GSM48.st')
-rw-r--r-- | GSM48.st | 19 |
1 files changed, 18 insertions, 1 deletions
@@ -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 ] |