From 7f802671c6e80d4b4f8e23cfa2c90b7b2745a5c5 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sun, 5 Sep 2010 18:30:04 +0800
Subject: [PATCH] LogManager: Start designing the API and access.

---
 LogManager.st | 146 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 146 insertions(+)
 create mode 100644 LogManager.st

diff --git a/LogManager.st b/LogManager.st
new file mode 100644
index 0000000..409a06a
--- /dev/null
+++ b/LogManager.st
@@ -0,0 +1,146 @@
+"Copyright placeholder"
+
+Object extend [
+    logConfig [
+        <category: '*osmo-logging-core'>
+        "I provide access to the global LogConfig"
+        ^ LogConfig instance
+    ]
+
+    logManager [
+        <category: '*osmo-logging-core'>
+        ^ LogManager default
+    ]
+
+    logDebug: aMessage area: anArea [
+        <category: '*osmo-logging-core'>
+        (self logManager)
+            log: aMessage source: self area: anArea level: LogLevel debug
+    ]
+
+    logInfo: aMessage area: anArea [
+        <category: '*osmo-logging-core'>
+        (self logManager)
+            log: aMessage source: self area: anArea level: LogLevel info
+    ]
+
+    logNotice: aMessage area: anArea [
+        <category: '*osmo-logging-core'>
+        (self logManager)
+            log: aMessage source: self area: anArea level: LogLevel notice
+    ]
+
+    logError: aMessage area: anArea [
+        <category: '*osmo-logging-core'>
+        (self logManager)
+            log: aMessage source: self area: anArea level: LogLevel error
+    ]
+]
+
+Object subclass: LogLevel [
+    <category: 'osmo-logging-core'>
+    <comment: 'I represent the available levels for log messages'>
+
+    LogLevel class >> debug [
+        ^ #logDebug
+    ]
+
+    LogLevel class >> info [
+        ^ #logInfo
+    ]
+
+    LogLevel class >> notice [
+        ^ #logNotice
+    ]
+
+    LogLevel class >> error [
+        ^ #logError
+    ]
+]
+
+Object subclass: LogArea [
+    | name enabled level |
+    <category: 'osmo-logging-core'>
+    <comment: 'I represent one LogArea and have status'>
+
+    LogArea class >> withName: aName enabled: anEnabled level: aLevel [
+        <category: 'instance'>
+        ^ (LogArea new)
+            name: aName;
+            enabled: anEnabled;
+            level: aLevel;
+            yourself
+    ]
+
+    name [
+        <category: 'accessing'>
+        ^ name
+    ]
+
+    name: aName [
+        <category: 'accessing'>
+        name := aName.
+    ]
+
+    enabled [
+        <category: 'accessing'>
+        ^ enabled
+    ]
+
+    enabled: anEnabled [
+        <category: 'accessing'>
+        enabled := anEnabled.
+    ]
+
+    level [
+        <category: 'accessing'>
+        ^ level
+    ]
+
+    level: aLevel [
+        <category: 'accessing'>
+        level := aLevel
+    ]
+]
+
+Object subclass: LogConfig [
+    | areas |
+
+    <category: 'osmo-logging-core'>
+    <comment: 'I handle the config, the backends, the log areas, the default level'>
+
+    Config := LogConfig new.
+
+    LogConfig class >> default [
+        <category: 'accessing'>
+
+        ^ Config
+    ]
+
+    addArea: anArea name: aName [
+        <category: 'management'>
+        "Add the area to the list of areas"
+        "TODO: compile the area..."
+    ]
+
+    areas [
+        ^ areas
+    ]
+]
+
+Object subclass: LogManager [
+    <category: 'osmo-logging-core'>
+    <comment: 'I handle the actual log invocation'>
+
+    Log := LogManager new.
+
+    LogManager class >> default [
+        <category: 'instance'>
+       ^ Log
+    ]
+
+    log: message source: anObject area: anArea level: anLevel [
+        <category: 'log'>
+        Transcript show: message; nl.
+    ]
+]