sk_server/luafight/Modules/Battle/Logic/BattleLogManager.lua

327 lines
9.8 KiB
Lua

BattleLogManager = {}
local this = BattleLogManager
local isLog = nil
if AppConst and AppConst.isOpenBLog ~= nil then
isLog = AppConst.isOpenBLog
else
isLog = true --< 服务端跑战斗开启
end
local function pairsByKeys(t)
local a = {}
for n in pairs(t) do
if n then
a[#a+1] = n
end
end
table.sort(a, function( op1, op2 )
local type1, type2 = type(op1), type(op2)
local num1, num2 = tonumber(op1), tonumber(op2)
if ( num1 ~= nil) and (num2 ~= nil) then
return num1 < num2
elseif type1 ~= type2 then
return type1 < type2
elseif type1 == "string" then
return op1 < op2
elseif type1 == "boolean" then
return op1
-- 以上处理: number, string, boolean
else -- 处理剩下的: function, table, thread, userdata
return tostring(op1) < tostring(op2) -- tostring后比较字符串
end
end)
local i = 0
return function()
i = i + 1
return a[i], t[a[i]]
end
end
function this.PrintBattleTable(tb)
local indent_str = "{"
local count = 0
for k,v in pairs(tb) do
count = count + 1
end
for k=1, #tb do
local v = tb[k]
if type(v) == "table" then
indent_str = indent_str .. this.PrintBattleTable(v)
elseif type(v) == "string" then
indent_str = indent_str .. "\""..tostring(v) .. "\""
else
indent_str = indent_str .. tostring(v)
end
if k < count then
indent_str = indent_str..","
end
end
local index = 0
for k,v in pairsByKeys(tb) do
index = index + 1
if type(k) ~= "number" then
if type(v) == "table" then
indent_str = string.format("%s%s=%s", indent_str, tostring(k), this.PrintBattleTable(v))
elseif type(v) == "string" then
indent_str = string.format("%s%s=\"%s\"", indent_str, tostring(k), tostring(v))
else
indent_str = string.format("%s%s=%s", indent_str, tostring(k), tostring(v))
end
if index < count then
indent_str = indent_str .. ","
end
end
end
indent_str = indent_str .. "}"
return indent_str
end
--
function this.Init(fightdata)
this.timestamp = Random.GetSeed()
this.fightdata = fightdata
this.logList = {}
this.logListCa = {}
end
function this.Log(...)
-- Log(...)
if not isLog then return end
local args = {...}
local log = args[1] .. ":\n"
log = log .. string.format("%s = %s, ", "frame", BattleLogic.CurFrame())
for i = 2, #args, 2 do
local key = args[i]
local value = args[i + 1]
log = log .. string.format("%s = %s, ", key, value)
end
table.insert(this.logList, log)
end
function this.WriteFile()
if not isLog then return end
local time = string.format("%d-%d-%d-%d-%d-%d",
os.date("%Y"),
os.date("%m"),
os.date("%d"),
os.date("%H"),
os.date("%M"),
os.date("%S")).."-"..tostring(this.fightdata["uid"])
local file
local platform
-- linux
if not file then
file = io.open("../luafight/BattleRecord/log-ServerFightData-"..time..".txt", "a")
platform = "Linux"
end
-- local window server
if not file then
file = io.open("luafight/BattleRecord/log-ServerFightData-"..time..".txt", "a")
platform = "Local Windows Server"
end
-- local
if not file then
file = io.open("BattleRecord/log-ServerFightData-"..time..".txt", "a")
platform = "Local"
end
file:write(platform..":\n\n\n")
for i = 1, #this.logList do
file:write(this.logList[i].."\n")
end
file:write("\n\n\n\n\n")
file:write("fightData:\n")
file:write(this.PrintBattleTable(this.fightdata))
file:write("\n\n")
-- this.PLog(file, "S ", this.fightdata)
file:write("\n\n")
file:write("timeStamp: " .. this.timestamp)
io.close(file)
end
function this.logProtoPkg(file, LOGPrefix, prtPkg , deep)
local tDeep = deep or 0
local space = string.rep(' ', 4)
local pkgStr = tostring(prtPkg)
local splitTab = string.split(pkgStr,'\n')
for i,v in ipairs(splitTab) do
file:write(string.format(LOGPrefix .. "%s%s",string.rep(space, tDeep),v))
file:write("\n")
end
end
-- 判断是否是protoTable
function this.isProtoTable( tab )
local bbb = tostring(tab)
local hasTable = string.find(bbb, "table:")
if hasTable ~= nil and hasTable == 1 then
return false
end
return true
end
function this.logTab(file, LOGPrefix, tab)
if type(tab) ~= "table" then
file:write(tostring(tab))
file:write("\n")
return
end
-- 防止proto死循环
if this.isProtoTable(tab) then
file:write(LOGPrefix .. "Proto-Table")
file:write("\n")
file:write(LOGPrefix .. "{")
file:write("\n")
this.logProtoPkg(file, LOGPrefix,tab,1)
file:write(LOGPrefix .. "}")
file:write("\n")
return
end
local space, deep = string.rep(" ", 4), 1
local function _dump(t)
for k, v in pairs(t) do
local key = tostring(k)
if key == "class" or key == "_listener_for_children" or key == "_message_descriptor" or key == "_listener" then
--todo
elseif type(v) == "table" then
-- 防止proto死循环
local isProto = this.isProtoTable(v)
if isProto then
file:write(string.format(LOGPrefix .. "%s[%s] => Proto-Table",string.rep(space, deep),key))
file:write("\n")
file:write(string.format(LOGPrefix .. "%s{",string.rep(space, deep)))
file:write("\n")
this.logProtoPkg(file, LOGPrefix,v,deep+1)
file:write(string.format(LOGPrefix .. "%s}", string.rep(space, deep)))
file:write("\n")
else
file:write(string.format(LOGPrefix .. "%s[%s] => Table",string.rep(space, deep),key))
file:write("\n")
file:write(string.format(LOGPrefix .. "%s{",string.rep(space, deep)))
file:write("\n")
deep = deep + 1
_dump(v)
deep = deep - 1
file:write(string.format(LOGPrefix .. "%s}", string.rep(space, deep)))
file:write("\n")
end
else
if type(v) ~= "string" then
v = tostring(v)
end
file:write(string.format(LOGPrefix .. "%s[%s] => %s", string.rep(space, deep), key, v))
file:write("\n")
end
end
end
file:write(string.format(LOGPrefix .. "Table"))
file:write("\n")
file:write(LOGPrefix .. "{")
file:write("\n")
_dump(tab)
file:write(string.format(LOGPrefix .. "}\n"))
file:write("\n")
end
function this.PLog(file, LOGPrefix, fmt, ...)
if type(fmt) == "table" then
this.logTab(file, LOGPrefix, fmt)
elseif type(fmt) == "boolean" or type(fmt) == "nil" or type(fmt) == "function" or type(fmt) == "userdata" then
file:write(LOGPrefix, fmt)
file:write("\n")
else
local r, r1, r2 = pcall(string.format, fmt, ...)
if r then
file:write(LOGPrefix .. r1)
file:write("\n")
else
file:write(LOGPrefix .. "ERROR FORMAT", r1, r2)
file:write("\n")
end
end
end
function this.WriteServerFightData(data, time, sign)
-- if not isLog then return end
-- local file
-- local platform
-- -- linux
-- if not file then
-- file = io.open("../luafight/BattleRecord/log-ServerFightData" .. time .. "_" .. sign .. ".txt", "a+")
-- platform = "Linux"
-- end
-- -- local window server
-- if not file then
-- file = io.open("luafight/BattleRecord/log-ServerFightData" .. time .. "_" .. sign .. ".txt", "a+")
-- platform = "Local Windows Server"
-- end
-- -- local
-- if not file then
-- file = io.open("BattleRecord/log-ServerFightData" .. time .. "_" .. sign .. ".txt", "a+")
-- platform = "Local"
-- end
--
-- file:write(platform..":\n\n\n")
--
-- file:write(this.PrintBattleTable(data))
-- file:write("\n\n")
-- file:write("timeStamp: " .. Random.GetSeed())
-- io.close(file)
end
--> 用于战斗log标识
function this.WriteServerFightDataB(time, sign)
-- if not isLog then return end
-- local file
-- local platform
-- -- linux
-- if not file then
-- file = io.open("../luafight/BattleRecord/log-ServerFightData" .. time .. "_" .. sign .. ".txt", "a+")
-- platform = "Linux"
-- end
-- -- local window server
-- if not file then
-- file = io.open("luafight/BattleRecord/log-ServerFightData" .. time .."_" .. sign .. ".txt", "a+")
-- platform = "Local Windows Server"
-- end
-- -- local
-- if not file then
-- file = io.open("BattleRecord/log-ServerFightData" .. time .."_" .. sign .. ".txt", "a+")
-- platform = "Local"
-- end
--
-- file:write(platform..":\n\n\n")
--
-- file:write(sign)
-- file:write("\n\n")
-- file:write("timeStamp: " .. Random.GetSeed())
-- io.close(file)
end
function this.LogCa(...)
if not isLog then return end
local args = {...}
local log = args[1] .. ":\n"
log = log .. string.format("%s = %s, ", "frame", BattleLogic.CurFrame())
for i = 2, #args, 2 do
local key = args[i]
local value = args[i + 1]
log = log .. string.format("%s = %s, ", key, value)
end
table.insert(this.logListCa, log)
end
return BattleLogManager