--

--	tek.lib.debug

--	Written by Timm S. Mueller <tmueller at neoscientists.org>

--	See copyright notice in COPYRIGHT

--

local getinfo = require "debug".getinfo

local date = require "os".date

local stderr = require "io".stderr

local tostring = tostring

local ipairs = ipairs

local type = type

local unpack = unpack

local select = select

local time = os.time

module "tek.lib.debug"

level = 10 -- global default

function print(lvl, msg, ...)

	if level and lvl >= level then

		local t = getinfo(3, "lS")

-- 		stderr:write(("(%02d %d %s:%d) "):format(lvl,

-- 			time(), t.short_src, t.currentline))

		local arg = { }

		for i = 1, select('#', ...) do

			local v = select(i, ...)

			if not v then

				arg[i] = 0

			else

				arg[i] = type(v) ~= "number" and tostring(v) or v

			end

		end

		stderr:write(("(%02d %d %s:%d) " .. msg):format(lvl, time(), t.short_src, t.currentline, unpack(arg)) .. "\n")

	end

end

function execute(lvl, func, ...)

	if level and lvl >= level then

		func(...)

	end

end

function trace(msg, ...) print(2, msg, ...) end

function note(msg, ...) print(3, msg, ...) end

function info(msg, ...) print(4, msg, ...) end

function warn(msg, ...) print(5, msg, ...) end

function error(msg, ...) print(10, msg, ...) end

function fail(msg, ...) print(20, msg, ...) end

function dotrace(msg, ...) execute(2, msg, ...) end

function donote(msg, ...) execute(3, msg, ...) end

function doinfo(msg, ...) execute(4, msg, ...) end

function dowarn(msg, ...) execute(5, msg, ...) end

function doerror(msg, ...) execute(10, msg, ...) end

function dofail(msg, ...) execute(20, msg, ...) end