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

gsm48: Add ClassmarkChange message to the list of messages we can generate 

Add ClassmarkChange as some MSCs require early classmark sending and
this message can now easily be constructed.
This commit is contained in:
Holger Hans Peter Freyther 2012-10-21 13:11:43 +02:00
parent eb859ad14e
commit e2c35a5d93
2 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
GSM48.st
View File

@ -517,6 +517,15 @@ GSM48DataHolder subclass: GSM48Classmark2 [
]
]
GSM48DataHolder subclass: GSM48Classmark3 [
<category: 'OsmoGSM'>
<comment: 'I am CM3 of 10.5.1.7'>
<gsmName: 'cm3'>
<gsmElementId: 2r00100000>
<gsmMinValueSize: 2 max: 12>
]
GSM48VariableSizedIE subclass: GSM48MIdentity [
| type id |
@ -2355,6 +2364,24 @@ GSM48RRMessage subclass: GSM48RRChannelRelease [
]
]
GSM48RRMessage subclass: GSM48RRClassmarkChange [
<category: 'OsmoGSM'>
<comment: 'I represent a GSM 04.08 9.1.11 Classmark'>
GSM48RRClassmarkChange class >> messageType [
<category: 'parsing'>
^ self msgClassmarkChange
]
GSM48RRClassmarkChange class >> tlvDescription [
<category: 'parsing'>
^ OrderedCollection new
add: GSM48Classmark2 asTLVDescription;
add: (GSM48Classmark3 asTLVDescription beConditional; yourself);
yourself
]
]
GSM48SSMessage subclass: GSM48SSFacility [
<category: 'OsmoGSM'>
@ -2421,6 +2448,7 @@ Eval [
GSM48RRAssignmentComplete initialize.
GSM48RRImmediateAssignCommand initialize.
GSM48RRChannelRelease initialize.
GSM48RRClassmarkChange initialize.
GSM48SSFacility initialize.
GSM48SSRegister initialize.

10
Tests.st
View File

@ -1,5 +1,5 @@
"
(C) 2010-2011 by Holger Hans Peter Freyther
(C) 2010-2012 by Holger Hans Peter Freyther
All Rights Reserved
This program is free software: you can redistribute it and/or modify
@ -378,6 +378,14 @@ TestCase subclass: GSM48Test [
octet3 radioChannelRequirement: 2r10.
self assert: octet3 data = 2r01011101.
]
testClassmarkChange [
| dec inp |
inp := #(16r06 16r16 16r03 16r33 16r19 16rA2) asByteArray.
dec := GSM48MSG decode: inp readStream.
self assert: dec type = GSM48RRClassmarkChange messageType.
self assert: dec toMessage asByteArray = inp.
]
]
SCCPHandler subclass: TestSCCPHandler [