Initial version - 1.2.0.60

EN: 1.2.0.60
CN: 1.2.0.61
JP: 1.2.0.63
KR: 1.2.0.67

lua/diagnose.lua

@@ -0,0 +1,89 @@
+local tableconcat = table.concat
+local stringformat = string.format
+local StringBuilder = {}
+function StringBuilder:new(sep)
+	local object = {}
+	setmetatable(object, self)
+	self.__index = self
+	object.sep = sep
+	object.buffer = {}
+	return object
+end
+function StringBuilder:Append(str)
+	self.buffer[#self.buffer + 1] = str
+end
+function StringBuilder:AppendFormat(format, ...)
+	self:Append(stringformat(format, ...))
+end
+function StringBuilder:AppendLine(str)
+	self:Append(str)
+	self:Append("\r\n")
+end
+function StringBuilder:ToString()
+	return tableconcat(self.buffer, self.sep)
+end
+function StringBuilder:Clear()
+	local count = #self.buffer
+	for i = 1, count do
+		self.buffer[i] = nil
+	end
+end
+local function __printTable(tb, sb, name, aPreText, bLast)
+	if tb == nil then
+		return
+	end
+	if bLast == nil then
+		bLast = false
+	end
+	name = name or ""
+	local preText = aPreText or ""
+	local subPreText = ""
+	if aPreText == nil then
+		sb:AppendLine("[ROOT]")
+	else
+		if bLast then
+			subPreText = preText .. "    "
+		else
+			subPreText = preText .. "│  "
+		end
+		if type(tb) == "table" then
+			if bLast then
+				sb:AppendLine(string.format("%s└─[%s]", preText, name))
+			else
+				sb:AppendLine(string.format("%s├─[%s]", preText, name))
+			end
+		elseif bLast then
+			sb:AppendLine(string.format("%s└─%s= %s", preText, name, tostring(tb)))
+		else
+			sb:AppendLine(string.format("%s├─%s= %s", preText, name, tostring(tb)))
+		end
+	end
+	if type(tb) == "table" then
+		local counter = 0
+		local count = 0
+		for _, _ in pairs(tb) do
+			count = count + 1
+		end
+		for key, obj in pairs(tb) do
+			counter = counter + 1
+			__printTable(obj, sb, key, subPreText, counter == count)
+		end
+	end
+	if bLast then
+		sb:AppendLine(preText)
+	end
+end
+function PrintTable(tb, filename)
+	local sb = StringBuilder:new()
+	__printTable(tb, sb)
+	local str = sb:ToString()
+	if filename then
+		local f = io.open(filename, "w")
+		if f ~= nil then
+			f:write(str)
+			f:close()
+		end
+	else
+		print(str)
+	end
+end