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

misc: Add proper categories to ease porting

This commit is contained in:
Holger Hans Peter Freyther 2013-03-31 15:00:12 +02:00
parent c83932dbe0
commit 98a9d07856
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
GSMDriver.st
View File

@ -20,7 +20,7 @@ PackageLoader fileInPackage: #OsmoASN1.
OsmoGSM.SCCPConnectionBase subclass: GSMConnection [
| sapis completeSem phoneConfig mainProc |
<category: 'osmo-gsm-operation'>
<category: 'OsmoTestPhone'>
<comment: 'I create a SCCP connection and handle stuff on it. In the base class
I am just capable of handling BSSMAP Management and need to dispatch it to other
classes.'>
@ -203,6 +203,7 @@ classes.'>
Object subclass: ProcedureBase [
| success conn |
<category: 'OsmoTestPhone'>
<comment: 'I provide a transaction base class for a given SAPI'>
<import: OsmoGSM>
@ -255,6 +256,8 @@ Object subclass: ProcedureBase [
]
ProcedureBase subclass: IMSIDetachProcedure [
<category: 'OsmoTestPhone'>
initialMessage [
| detach |
@ -279,6 +282,8 @@ ProcedureBase subclass: IMSIDetachProcedure [
]
ProcedureBase subclass: LUProcedure [
<category: 'OsmoTestPhone'>
initialMessage [
| lu |
@ -306,6 +311,7 @@ ProcedureBase subclass: LUProcedure [
ProcedureBase subclass: CallProcedure [
| nr |
<category: 'OsmoTestPhone'>
CallProcedure class >> initWithNr: aNr [
^ self new
@ -385,6 +391,7 @@ ProcedureBase subclass: CallProcedure [
ProcedureBase subclass: USSDProcedure [
| nr facility |
<category: 'OsmoTestPhone'>
<import: Osmo>
USSDProcedure class >> initWithNr: aNr [

3
TestPhone.st
View File

@ -21,6 +21,7 @@ PackageLoader fileInPackage: 'OsmoGSM'.
Object subclass: IPAConnection [
| socket demuxer queue muxer dispatcher sccp ipa sem |
<category: 'OsmoTestPhone'>
<import: OsmoGSM>
IPAConnection class >> initWith: anAddr port: aPort token: aToken [
@ -98,6 +99,7 @@ Object subclass: IPAConnection [
Object subclass: IPAConfig [
| addr port token connection sem |
<category: 'OsmoTestPhone'>
addr: anAddr port: aPort [
addr := anAddr.
@ -182,6 +184,7 @@ Object subclass: IPAConfig [
Object subclass: PhoneConfig [
| imsi auKey auVer |
<category: 'OsmoTestPhone'>
<comment: 'I am the config of a phone. I do have an IMSI and such.'>
PhoneConfig class >> initWith: aImsi auKey: anAuKey [