OsmoNetwork: Start using the logging framework

IPADispatcher.st

@@ -18,7 +18,7 @@ Object subclass: IPADispatcher [
     dispatch: aStream with: aData [
         | handler |
         handler := handlers at: aStream ifAbsent: [
-            self error: 'No registered handler for ', aStream asString.
+            self logError: 'No registered handler for ', aStream asString area: #ipa.
         ].
 
         (handler first) perform: (handler second) with: aData.

IPAMuxer.st

@@ -41,7 +41,8 @@ Object subclass: IPAMuxer [
 
 	aData size > 65536
 	    ifTrue: [
-	    self error: 'Too much data'.
+                self logError: 'Too much data' area: #ipa.
+	        self error: 'Too much data'.
 	].
 
 	msg := MessageBuffer new.

IPAProtoHandler.st

@@ -34,7 +34,8 @@ Object subclass: IPAProtoHandler [
 
         | selector |
         selector := handlers at: (aMsg first asInteger) ifAbsent: [
-            ('Message not understood', aMsg first asInteger asString) printNl.
+            self logError: 'IPA message not understood', aMsg first asInteger asString
+                 area: #ipa.
             ^ false
         ].
 
@@ -48,6 +49,7 @@ Object subclass: IPAProtoHandler [
 
     handlePong: aMsg [
         <category: 'private'>
+        self logDebug: 'PONG' area: #ipa.
         'pong' printNl.
     ]
 
@@ -66,7 +68,7 @@ Object subclass: IPAProtoHandler [
 
     handleIdAck: aMsg [
         <category: 'private'>
-        'idack' printNl.
+        self logDebug: 'ID ACK' area: #ipa.
     ]
 ]
 

LogAreas.st

@@ -0,0 +1,21 @@
+Osmo.LogArea subclass: LogAreaSCCP [
+    LogAreaSCCP class >> areaName [ ^ #sccp ]
+    LogAreaSCCP class >> areaDescription [ ^ 'SCCP related' ]
+    LogAreaSCCP class >> default [
+        ^ self new
+            enabled: true;
+            minLevel: Osmo.LogLevel debug;
+            yourself
+    ]
+]
+
+Osmo.LogArea subclass: LogAreaIPA [
+    LogAreaIPA class >> areaName [ ^ #ipa ]
+    LogAreaIPA class >> areaDescription [ ^ 'IPA related' ]
+    LogAreaIPA class >> default [
+        ^ self new
+            enabled: true;
+            minLevel: Osmo.LogLevel debug;
+            yourself
+    ]
+]

package.xml

@@ -2,6 +2,8 @@
     <name>OsmoNetwork</name>
     <namespace>Osmo</namespace>
 
+    <prereq>OsmoLogging</prereq>
+
     <filein>Extensions.st</filein>
     <filein>IPAConstants.st</filein>
     <filein>IPADispatcher.st</filein>
@@ -9,6 +11,7 @@
     <filein>IPAProtoHandler.st</filein>
     <filein>MessageBuffer.st</filein>
     <filein>SCCP.st</filein>
+    <filein>LogAreas.st</filein>
 
     <test>
         <sunit>Osmo.SCCPTests</sunit>
@@ -24,4 +27,5 @@
     <file>IPAProtoHandler.st</file>
     <file>MessageBuffer.st</file>
     <file>SCCP.st</file>
+    <file>LogAreas.st</file>
 </package>