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

callagent: Add the AUEP command..

This commit is contained in:
Holger Hans Peter Freyther 2011-06-10 14:00:23 +02:00
parent a50bb20cdb
commit 868399d80c
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
callagent/MGCPCommands.st
View File

@ -31,6 +31,13 @@ Object subclass: MGCPCommand [
yourself
]
MGCPCommand class >> create: anEndpoint transId: aTransId [
^ (self new)
transactionId: aTransId;
endpoint: anEndpoint;
yourself
]
verb: aVerb [
<category: 'private'>
verb := aVerb.
@ -78,7 +85,7 @@ Object subclass: MGCPCommand [
cr; nl.
"write the parameters"
params do: [:each |
self params do: [:each |
out
nextPutAll: each;
cr; nl.
@ -138,3 +145,14 @@ MGCPCommand subclass: MGCPDLCXCommand [
yourself
]
]
MGCPCommand subclass: MGCPAUEPComamnd [
<comment: 'I represent an AUEP message'>
<category: 'MGCP-Callagent'>
MGCPAUEPComamnd class >> createAUEP: anEndpoint transId: aTransId [
^ (self create: anEndpoint transId: aTransId)
verb: 'AUEP';
yourself
]
]