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

CC: Some call control fixes

This commit is contained in:
Holger Hans Peter Freyther 2012-08-11 17:12:01 +02:00
parent 3b82029531
commit 41fcc5d899
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
GSMDriver.st
View File

@ -307,15 +307,25 @@ ProcedureBase subclass: CallProcedure [
'Accepted' printNl.
resp := GSM48CCSetup new.
resp seq: 1.
resp bearer1OrDefault data: #(16r60 16r02 0 1 4 16r85) asByteArray.
resp calledOrDefault data: nr.
conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0).
]
handleData: aMsg sapi: aSapi [
aMsg class messageType = GSM48CCMessage msgProceeding ifTrue: [
| resp |
resp := GSM48CCDisconnect new.
resp seq: 1.
resp cause data: #(16rE1 16r90).
conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0).
].
aMsg class messageType = GSM48CCMessage msgConnect ifTrue: [
| resp |
resp := GSM48CCConnectAck new.
resp seq: 1.
conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0).
self success: true.
@ -324,9 +334,17 @@ ProcedureBase subclass: CallProcedure [
aMsg class messageType = GSM48CCMessage msgDisconnect ifTrue: [
| resp |
resp := GSM48CCRelease new.
resp seq: 1.
resp causeOrDefault data: #(16rE1 16r90) asByteArray.
conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0)
].
aMsg class messageType = GSM48CCMessage msgRelease ifTrue: [
| resp |
resp := GSM48CCReleaseCompl new.
resp seq: 1.
conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0)
].
]
]