smalltalk
/
osmo-st-msc
Archived
1
0
Fork 0

Add nonworking code for the BSC/Server...

This commit is contained in:
Holger Hans Peter Freyther 2010-10-20 21:43:56 +02:00
parent fd0dd5a50e
commit a658551abc
2 changed files with 56 additions and 0 deletions

24
BSC.st Normal file
View File

@ -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.
]
]

32
Server.st Normal file
View File

@ -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 [
]
]