diff options
author | Holger Hans Peter Freyther <zecke@selfish.org> | 2013-03-31 15:00:12 +0200 |
---|---|---|
committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2013-03-31 15:04:13 +0200 |
commit | 98a9d07856671daf934aa0029f3bebcc13a06f9d (patch) | |
tree | ef9e817229b4379826adf59ea92c8bb6f268c014 | |
parent | c83932dbe05ed301a16ae355755277aa05b280b3 (diff) |
-rw-r--r-- | GSMDriver.st | 9 | ||||
-rw-r--r-- | TestPhone.st | 3 |
2 files changed, 11 insertions, 1 deletions
diff --git a/GSMDriver.st b/GSMDriver.st index 3fa825b..da5c626 100644 --- a/GSMDriver.st +++ b/GSMDriver.st @@ -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 [ diff --git a/TestPhone.st b/TestPhone.st index b65dc44..ddb4710 100644 --- a/TestPhone.st +++ b/TestPhone.st @@ -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 [ |