root/lu/LULog.lua

--------------------------------------------------------------------------------
-- Title:               LULog.lua
-- Description:         Like a square peg in a round hole
-- Author:              Raphaël Szwarc http://alt.textdrive.com/lua/
-- Creation Date:       February 1, 2005
-- Legal:               Copyright (C) 2005 Raphaël Szwarc
--------------------------------------------------------------------------------

-- import dependencies
local LUObject = require( "LUObject" )
local LUString = require( "LUString" )
local debug = require( "debug" )
local io = require( "io" )
local os = require( "os" )
local table = require( "table" )

-- define the class
local super = LUObject
local self = super()

-- constant(s)
self.Trace = 1
self.Debug = 2
self.Info = 3
self.Warning = 4
self.Error = 5

self.All = 0
self.None = 10

self._verbosity = self.Debug

local Descriptions = { [ self.Trace ] = "(Trace)", [ self.Debug ] = "(Debug)", [ self.Info ] = "(Info)", [ self.Warning ] = "(Warning)", [ self.Error ] = "(ERROR)" }

-- private method to Log a message
local function Log( aLevel, ... )
        local someInfo = debug.getinfo( 3, "Sn" )
        local aClass = someInfo.source
        local aMethod = someInfo.name
        local aBuffer = {}

        for aComponent in aClass:gmatch( "([^?/?\]+)" ) do
                aClass = aComponent
        end
        
        aClass = aClass:sub( 1, aClass:find( "%." ) - 1 )
        aClass = aClass:gsub( "@", "" )
                                
        aBuffer[ #aBuffer + 1 ] = os.date( "%m/%d %H:%M:%S", os.time() )
        aBuffer[ #aBuffer + 1 ] = Descriptions[ aLevel ]
        
        if aClass ~= nil and aMethod ~= nil then
                aMethod = aClass .. "." .. aMethod
                aMethod = aMethod .. ":"
                aBuffer[ #aBuffer + 1 ] = aMethod
        elseif aClass ~= nil then
                aBuffer[ #aBuffer + 1 ] = aClass .. ":"
        elseif aMethod ~= nil then
                aBuffer[ #aBuffer + 1 ] = aMethod .. ":"
        end

        do
                local aCount = select( "#", ... )
                
                for anIndex = 1, aCount do
                        local aValue = select( anIndex, ... )
                
                        aBuffer[ #aBuffer + 1 ] = LUString:toString( aValue )
                        aBuffer[ #aBuffer + 1 ] = "\t"
                end

                aBuffer[ #aBuffer ] = nil
        end

        aBuffer[ #aBuffer + 1 ] = "\n"
        
        if aLevel < self.Warning then
                io.stdout:write( table.concat( aBuffer, " " ) )
        else
                io.stderr:write( table.concat( aBuffer, " " ) )
        end
end

-- method to Log a trace message
function self:trace( ... )
        if self.Trace >= self._verbosity then
                Log( self.Trace, ... )
        end
        
        return self
end

-- method to Log a debug message
function self:debug( ... )
        if self.Debug >= self._verbosity then
                return Log( self.Debug, ... )
        end
        
        return self
end

-- method to Log an info message
function self:info( ... )
        if self.Info >= self._verbosity then
                return Log( self.Info, ... )
        end
        
        return self
end

-- method to Log a warning message
function self:warning( ... )
        if self.Warning >= self._verbosity then
                return Log( self.Warning, ... )
        end
        
        return self
end

-- method to Log an error message
function self:error( ... )
        if self.Error >= self._verbosity then
                return Log( self.Error, ... )
        end
        
        return self
end

function self:verbosity()
        return self._verbosity
end

function self:setVerbosity( aValue )
        self._verbosity = aValue
end

return self