diff --git a/LogArea.st b/LogArea.st new file mode 100644 index 0000000..425e800 --- /dev/null +++ b/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 + ] +] diff --git a/OsmoCore.st b/OsmoCore.st index ef66051..8e043c2 100644 --- a/OsmoCore.st +++ b/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 [ - + self logDebug: '#>>bsc_select_main: called' area: #osmocore + ] OSMOCore class >> processEvents [ @@ -55,22 +60,27 @@ Object subclass: OSMOCore [ ] OSMOCore class >> msgb_length: aMsg [ + self logDebug: '#>>msgb_length: called' area: #osmocore ] OSMOCore class >> msgb_data: aMsg [ + self logDebug: '#>>msgb_data: called' area: #osmocore ] OSMOCore class >> msgb_free: aMsg [ + self logDebug: '#>>msgb_free: called' area: #osmocore ] OSMOCore class >> gsm0480_create_ussd_resp: invokeId trans: transId text: aText [ + self logDebug: '#>>gsm0480_create_ussd_resp: called' area: #osmocore ] OSMOCore class >> gsm0808_prepend_dtap_header: msg linkId: aId [ + self logDebug: '#>>gsm0808_prepend_dtap_header: called' area: #osmocore ] ] diff --git a/package.xml b/package.xml index cfcfea0..a613b71 100644 --- a/package.xml +++ b/package.xml @@ -2,10 +2,14 @@ OsmoBinding Osmo + OsmoLogging + OsmoCore.st OsmoVTY.st + LogArea.st OsmoCore.st OsmoVTY.st VTY.st + LogArea.st