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

rsl: Introduce the RSL Encryption Command

This commit is contained in:
Holger Hans Peter Freyther 2013-08-27 16:21:05 +02:00
parent bdb064746c
commit c9dd990360
2 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fakebts/RSLMsg.st
View File

@ -290,6 +290,14 @@ Object subclass: RSLMessageDefinitions [
beTV; valueSize: 1; yourself
]
l3InfoIE [
<category: 'common-ie'>
^Osmo.TLVDescription new
tag: RSLInformationElement attrL3Information;
instVarName: #l3_info; parseClass: RSLAttributeData;
beTLV; beLen16; yourself
]
causeIE [
<category: 'common-ie'>
^ Osmo.TLVDescription new
@ -309,10 +317,7 @@ Object subclass: RSLMessageDefinitions [
dataRequestMessage [
<category: 'radio-link'>
^ self radioLinkMessageBase
add: (Osmo.TLVDescription new
tag: RSLInformationElement attrL3Information;
instVarName: #l3_info; parseClass: RSLAttributeData;
beTLV; beLen16; yourself);
add: self l3InfoIE;
yourself
]
@ -558,10 +563,7 @@ Object subclass: RSLMessageDefinitions [
instVarName: #encr_info; parseClass: RSLAttributeData;
beTLV; minSize: 1; yourself);
add: self linkIdentifierIE;
add: (Osmo.TLVDescription new
tag: RSLInformationElement attrL3Information;
instVarName: #l3_info; parseClass: RSLAttributeData;
beTLV; minSize: 4 maxSize: 4; yourself);
add: (self l3InfoIE minSize: 4 maxSize: 4; yourself);
yourself.
]
@ -1015,6 +1017,13 @@ RSLDedicatedChannelManagement subclass: RSLSacchDeactivate [
<rslMessageDefinition: #deactivateSacchMessage>
]
RSLDedicatedChannelManagement subclass: RSLEncryptionCommand [
| encr_info l3_info link_id |
<comment: 'I represent a GSM 08.58 GSM 8.4.6 ENCRyption CoMmaD'>
<rslMessageType: #messageDedEncryptionCommand>
<rslMessageDefinition: #encryptionCommandMessage>
]
RSLDedicatedChannelManagement subclass: RSLHandoverDetection [
| access_delay |
<comment: 'I represent a GSM 08.58 GSM 8.4.7 HANDOVER DETECTION'>

8
fakebts/Test.st
View File

@ -445,6 +445,10 @@ RoundTripTestCase subclass: RSLRoundTripTest [
43 43 43 43 43 43)
]
encryptionCommand [
^ #(8 38 1 18 7 9 2 77 103 31 156 22 75 40 0 2 0 11 0 3 6 53 17 )
]
pagingCommandData [
^ #(16r0C 16r15 16r01 16r90 16r0E 16r02 16r0C 16r05 16rF4 16r53
16rD3 16rD3 16r03 16r28 16r02)
@ -526,6 +530,10 @@ RoundTripTestCase subclass: RSLRoundTripTest [
self roundtripTestFor: #sacchFillingData2 class: RSLSACCHFilling.
]
testEncryptionCommand [
self roundtripTestFor: #encryptionCommand class: RSLEncryptionCommand.
]
testImmediateAssignment [
| rsl gsm |
self roundtripTestFor: #immediateAssignmentData class: RSLImmediateAssignment.