From a658551abcd8eba6be0cb22312181c67d6514062 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Wed, 20 Oct 2010 21:43:56 +0200
Subject: [PATCH] Add nonworking code for the BSC/Server...

---
 BSC.st    | 24 ++++++++++++++++++++++++
 Server.st | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 56 insertions(+)
 create mode 100644 BSC.st
 create mode 100644 Server.st

diff --git a/BSC.st b/BSC.st
new file mode 100644
index 0000000..34d6c5c
--- /dev/null
+++ b/BSC.st
@@ -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. 
+    ]
+]
+
diff --git a/Server.st b/Server.st
new file mode 100644
index 0000000..4963ae6
--- /dev/null
+++ b/Server.st
@@ -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 [
+    ]
+]