smalltalk
/
osmo-st-gsm
Archived
1
0
Fork 0
Code Releases Activity

gsm: Allow to set the location updating type define the values

This commit is contained in:
Holger Hans Peter Freyther 2013-01-07 12:45:01 +01:00
parent 0c196f0c55
commit 3dd455a510
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
GSM48.st
View File

@ -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
]