--

--	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

module "tek.lib.debug"

level = 10 -- global default

function print(lvl, msg, ...)

	if level and lvl >= level then

		local t = getinfo(3, "lS")

		local arg = { }

		for i, v in ipairs { ... } do

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

		end

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

			t.short_src, t.currentline, msg:format(unpack(arg))))

	end

end

function debug(msg, ...)

	print(1, msg, ...)

end

function trace(msg, ...)

	print(2, 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