Add nonworking code for the BSC/Server...
This commit is contained in:
parent
fd0dd5a50e
commit
a658551abc
|
@ -0,0 +1,24 @@
|
|||
Object subclass: BSCConfig [
|
||||
| lacs password |
|
||||
<comment: 'I represent a BSC configuration'>
|
||||
|
||||
BSCConfig class >> initialize: aPassword [
|
||||
^ (self new)
|
||||
initialize;
|
||||
password: aPassword;
|
||||
yourself
|
||||
]
|
||||
|
||||
initialize [
|
||||
lacs := OrderedCollection new.
|
||||
]
|
||||
|
||||
password: aPassword [
|
||||
password := aPassword.
|
||||
]
|
||||
|
||||
addLac: aLac [
|
||||
lacs add: aLac.
|
||||
]
|
||||
]
|
||||
|
|
@ -0,0 +1,32 @@
|
|||
PackageLoader fileInPackage: 'OsmoNetwork'.
|
||||
PackageLoader fileInPackage: 'OsmoLogging'.
|
||||
|
||||
Object subclass: IPAConnection [
|
||||
| socket bsc rx tx |
|
||||
<comment: 'I represent one Connection to a BSC. I have virtual
|
||||
connections hanging off my tree and I will destroy them when my connection
|
||||
is going away.'>
|
||||
|
||||
IPAConnection class >> createOn: aSocket [
|
||||
|
||||
]
|
||||
]
|
||||
|
||||
|
||||
Object subclass: IPAServer [
|
||||
| socket addr port |
|
||||
|
||||
IPAServer class >> listenOn: anAddr port: aPort [
|
||||
^ (self new)
|
||||
addr: anAddr port: aPort.
|
||||
]
|
||||
|
||||
addr: anAddr port: aPort [
|
||||
<category: 'configure'>
|
||||
addr := anAddr.
|
||||
port := aPort.
|
||||
]
|
||||
|
||||
listen [
|
||||
]
|
||||
]
|
Reference in New Issue