Core: Add Logging dependency and areas

LogArea.st

@@ -0,0 +1,10 @@
+Osmo.LogArea subclass: LogAreaOsmoCore [
+    LogAreaOsmoCore class >> areaName [ ^ #osmocore ]
+    LogAreaOsmoCore class >> areaDescription [ ^ 'OSMOCore bindings' ]
+    LogAreaOsmoCore class >> default [
+        ^ self new
+            enabled: true;
+            minLevel: Osmo.LogLevel notice;
+            yourself
+    ]
+]

OsmoCore.st

@@ -2,7 +2,10 @@
 
 Eval [
     "Handle reloading the OsmoCore.st file for updates"
-    Namespace current at: #OSMOCore ifPresent: [ :each | OSMOCore stopProcess ].
+    Namespace current at: #OSMOCore ifPresent: [ :each |
+        OSMOCore logNotice: 'OSMOCore is getting updated.' area: #osmocore.
+        OSMOCore stopProcess
+    ].
 ]
 
 Object subclass: OSMOCore [
@@ -44,10 +47,12 @@ Object subclass: OSMOCore [
 
     OSMOCore class >> update: aSymbol [
         "Check if the BSC Symbols are there again?"
+        self logDebug: '#>>update: called' area: #osmocore
     ]
 
     OSMOCore class >> bsc_select_main: poll [
-       <cCall: 'bsc_select_main' returning: #int args: #(#int) >
+        self logDebug: '#>>bsc_select_main: called' area: #osmocore
+        <cCall: 'bsc_select_main' returning: #int args: #(#int) >
     ]
 
     OSMOCore class >> processEvents [
@@ -55,22 +60,27 @@ Object subclass: OSMOCore [
     ]
 
     OSMOCore class >> msgb_length: aMsg [
+        self logDebug: '#>>msgb_length: called' area: #osmocore
         <cCall: 'msgb_length' returning: #uInt args: #(#cObject) >
     ]
 
     OSMOCore class >> msgb_data: aMsg [
+        self logDebug: '#>>msgb_data: called' area: #osmocore
         <cCall: 'msgb_data' returning: #cObject args: #(#cObject) >
     ]
 
     OSMOCore class >> msgb_free: aMsg [
+        self logDebug: '#>>msgb_free: called' area: #osmocore
         <cCall: 'msgb_free' returning: #void args: #(#cObject) >
     ]
 
     OSMOCore class >> gsm0480_create_ussd_resp: invokeId trans: transId text: aText [
+        self logDebug: '#>>gsm0480_create_ussd_resp: called' area: #osmocore
         <cCall: 'gsm0480_create_ussd_resp' returning: #cObject args: #(#int #int #string) >
     ]
 
     OSMOCore class >> gsm0808_prepend_dtap_header: msg linkId: aId [
+        self logDebug: '#>>gsm0808_prepend_dtap_header: called' area: #osmocore
         <cCall: 'gsm0808_prepend_dtap_header' returning: #void args: #(#cObject #uInt) >
     ]
 ]

package.xml

@@ -2,10 +2,14 @@
     <name>OsmoBinding</name>
     <namespace>Osmo</namespace>
 
+    <prereq>OsmoLogging</prereq>
+
     <filein>OsmoCore.st</filein>
     <filein>OsmoVTY.st</filein>
+    <filein>LogArea.st</filein>
 
     <file>OsmoCore.st</file>
     <file>OsmoVTY.st</file>
     <file>VTY.st</file>
+    <file>LogArea.st</file>
 </package>