81 lines
2.0 KiB
Lua
81 lines
2.0 KiB
Lua
#! /usr/bin/env lua
|
|
--
|
|
-- debugtool.lua
|
|
-- Copyright (C) 2021 Shewer Lu <shewer@gmail.com>
|
|
--
|
|
-- Distributed under terms of the MIT license.
|
|
--
|
|
-- puts(tag,...)
|
|
-- DEBUG --> log.error
|
|
-- WARN --> log.warning
|
|
-- INFO --> log.info
|
|
-- CONSOLE --> print
|
|
--
|
|
-- ex:
|
|
-- test.lua
|
|
--
|
|
-- local puts = require 'tools/debugtool'
|
|
-- --set tag D103 C102
|
|
-- local D103= DEBUG .. "103"
|
|
-- local C102= CONSOLE .. "102"
|
|
-- local C103= nil
|
|
--
|
|
--
|
|
-- puts(ERROR,__FILE__(),__LINE__(),__FUNC__(), 1, 2 , 3 )
|
|
-- --> log.error( "error" .. tran_msg(...))
|
|
--
|
|
-- puts(DEBUG,__FILE__(),__LINE__(),__FUNC__(), 1, 2 , 3 )
|
|
-- --> log.error( DEBUG .. tran_msg(...))
|
|
--
|
|
-- puts(D103,__FILE__(),__LINE__(),__FUNC__(), 1 2 3)
|
|
-- --> log.error("trace103" .. tran_msg(...)
|
|
--
|
|
-- puts(C102,__FILE__(),__LINE__(),__FUNC__(), 1 2 3)
|
|
-- --> print("console103" .. tran_msg(...)
|
|
--
|
|
-- puts(C103,__FILE__(),__LINE__(),__FUNC__(), 1 2 3)
|
|
-- --> pass
|
|
--
|
|
--
|
|
--
|
|
-- puts(DEBUG,__FILE__(),__LINE__(),__FUNC__() , ...)
|
|
-- puts(INFO,__FILE__(),__LINE__(),__FUNC__() , ...)
|
|
--
|
|
-- global variable
|
|
function __FILE__(n) n=n or 2 return debug.getinfo(n,'S').source end
|
|
function __LINE__(n) n=n or 2 return debug.getinfo(n, 'l').currentline end
|
|
function __FUNC__(n) n=n or 2 return debug.getinfo(n, 'n').name end
|
|
INFO="log"
|
|
WARN="warn"
|
|
ERROR="error"
|
|
DEBUG="trace"
|
|
CONSOLE="console"
|
|
|
|
|
|
|
|
|
|
local function tran_msg(...)
|
|
local msg="\t"
|
|
for i,k in next, {...} do msg = msg .. ": " .. tostring(k) end
|
|
return msg
|
|
end
|
|
local function puts( tag , ...)
|
|
if type(tag) ~= "string" then return end
|
|
|
|
if INFO and tag:match("^" .. INFO) then
|
|
(log and log.info or print)( tag .. tran_msg(...))
|
|
elseif WARN and tag:match("^" .. WARN) then
|
|
(log and log.warning or print)(tag .. tran_msg(...))
|
|
elseif ERROR and tag:match("^" .. ERROR) then
|
|
(log and log.error or print)(tag .. tran_msg(...))
|
|
elseif DEBUG and tag:match("^" .. DEBUG) then
|
|
(log and log.error or print)(tag .. tran_msg(...))
|
|
elseif CONSOLE and tag:match( "^" .. CONSOLE ) then
|
|
( print)( tag .. tran_msg(...))
|
|
else
|
|
return
|
|
end
|
|
end
|
|
|
|
return puts
|