gsm: Allow to set the location updating type define the values
This commit is contained in:
parent
0c196f0c55
commit
3dd455a510
19
GSM48.st
19
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
|
||||
]
|
||||
|
||||
|
|
Reference in New Issue