--

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