From 41fcc5d89938a1b2f246c8ff67f3d8482bcd1529 Mon Sep 17 00:00:00 2001 From: Holger Hans Peter Freyther Date: Sat, 11 Aug 2012 17:12:01 +0200 Subject: CC: Some call control fixes --- GSMDriver.st | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/GSMDriver.st b/GSMDriver.st index 631b238..cf5b2cc 100644 --- a/GSMDriver.st +++ b/GSMDriver.st @@ -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) + ]. ] ] -- cgit v1.2.3