--

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