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

testphone: misc changes to ease scripting and lu

This commit is contained in:
Holger Hans Peter Freyther 2011-05-19 00:40:12 +02:00
parent 60c5441e9b
commit 6a07c73878
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
GSMDriver.st
View File

@ -222,7 +222,7 @@ Object subclass: ProcedureBase [
openConnection: aMsg sapi: aSapi phone: aPhone handler: aHandler [
| msg bssap |
msg := IEMessage initWith: GSM0808Helper msgComplL3.
msg addIe: (GSMCellIdentifier initWith: 274 mnc: 8 lac: 4099 ci: 40000).
msg addIe: (GSMCellIdentifier initWith: 274 mnc: 8 lac: 8210 ci: 30000).
msg addIe: (GSMLayer3Info initWith: aMsg).
bssap := BSSAPManagement initWith: msg.
@ -306,7 +306,7 @@ ProcedureBase subclass: CallProcedure [
]
nr: aNr [
nr := (ByteArray with: 16r80), (GSMNumberDigits encodeFrom: aNr).
nr := (ByteArray with: 16r91), (GSMNumberDigits encodeFrom: aNr).
]
createConnection: aHandler phone: aPhone [
@ -363,7 +363,7 @@ ProcedureBase subclass: CallProcedure [
]
ProcedureBase subclass: USSDProcedure [
| nr |
| nr facility |
<import: Osmo>
@ -407,6 +407,10 @@ ProcedureBase subclass: USSDProcedure [
nr := aNr.
]
facility [
^ facility
]
createConnection: aHandler phone: aPhone [
| cm |
@ -433,6 +437,7 @@ ProcedureBase subclass: USSDProcedure [
handleData: aMsg sapi: aSapi [
aMsg class messageType = GSM48SSMessage msgReleaseCompl ifTrue:[
facility := aMsg facility.
aMsg inspect.
self success: aMsg ti = 9.
].

8
TestPhone.st
View File

@ -30,6 +30,10 @@ Object subclass: IPAConnection [
yourself
]
socket [
^ socket
]
socket: aSocket [
socket := aSocket.
]
@ -62,7 +66,9 @@ Object subclass: IPAConnection [
dispatcher dispatch: data first with: data second.
self drainSendQueue.
] on: SystemExceptions.EndOfStream do: [:e | ^ false ]
]
on: SystemExceptions.FileError do: [:e | ^ false ]
on: SystemExceptions.EndOfStream do: [:e | ^ false ]
]
]