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

mgcp: Some very simple MGCPTransaction/CRCX command test

This commit is contained in:
Holger Hans Peter Freyther 2011-06-23 14:23:20 +02:00
parent 6c1eff1e51
commit b083d7e557
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
callagent/MGCPCallAgent.st
View File

@ -71,6 +71,12 @@ Object subclass: MGCPCallAgentBase [
] fork.
]
stop [
socket close.
tx ifNotNil: [tx terminate].
rx ifNotNil: [rx terminate].
]
queueData: aDatagram [
queue nextPut: aDatagram.
]

23
callagent/MGCPCommands.st
View File

@ -23,17 +23,15 @@ Object subclass: MGCPCommand [
certain things. E.g. the endpoint numbering is different'>
<category: 'MGCP-callagent'>
MGCPCommand class >> create: anEndpoint callId: aCallId transId: aTransId [
MGCPCommand class >> create: anEndpoint callId: aCallId [
^ (self new)
transactionId: aTransId;
endpoint: anEndpoint;
parameterAdd: 'C: ', aCallId asString;
yourself
]
MGCPCommand class >> create: anEndpoint transId: aTransId [
MGCPCommand class >> create: anEndpoint [
^ (self new)
transactionId: aTransId;
endpoint: anEndpoint;
yourself
]
@ -116,12 +114,11 @@ MGCPCommand subclass: MGCPCRCXCommand [
^ 'CRCX'
]
MGCPCRCXCommand class >> createCRCX: anEndpoint callId: aCallId transId: aTransId [
MGCPCRCXCommand class >> createCRCX: anEndpoint callId: aCallId [
<category: 'factory'>
"I create a CRCX command for the given endpoint."
^ (self create: anEndpoint callId: aCallId transId: aTransId)
parameterAdd: 'M: recvonly';
^ (self create: anEndpoint callId: aCallId)
yourself
]
]
@ -135,10 +132,10 @@ MGCPCommand subclass: MGCPMDCXCommand [
^ 'MDCX'
]
MGCPMDCXCommand class >> createMDCX: anEndpoint callId: aCallId transId: aTransId [
MGCPMDCXCommand class >> createMDCX: anEndpoint callId: aCallId [
<category: 'factory'>
^ (self create: anEndpoint callId: aCallId transId: aTransId)
^ (self create: anEndpoint callId: aCallId)
yourself
]
]
@ -152,8 +149,8 @@ MGCPCommand subclass: MGCPDLCXCommand [
^ DLCX
]
MGCPDLCXCommand class >> createDLCX: anEndpoint callId: aCallId transId: aTransId [
^ (self create: anEndpoint callId: aCallId transId: aTransId)
MGCPDLCXCommand class >> createDLCX: anEndpoint callId: aCallId [
^ (self create: anEndpoint callId: aCallId)
yourself
]
]
@ -167,8 +164,8 @@ MGCPCommand subclass: MGCPAUEPComamnd [
^ 'AUEP'
]
MGCPAUEPComamnd class >> createAUEP: anEndpoint transId: aTransId [
^ (self create: anEndpoint transId: aTransId)
MGCPAUEPComamnd class >> createAUEP: anEndpoint [
^ (self create: anEndpoint)
yourself
]
]